 
Т >Basic6809 Т Т (2Т Patches BASIC V module to assemble 6809 code 2Т <Т F Т Version 1.00 (05 Nov 2009) P(Т by John Kortink, (c) Zeridajh 2009 ZТ d#Т Version 1.0-jgh (21 Nov 2010) nOТ J.G.Harston - Also patches BASIC v1.05, corrected assembler error numbers xТ ┌Т ▄Т √ ═!Н ┘ Я "Error: ";Ж$;" at ";·:Ю ╙ Єч Patch_Off(100) Ў хData_Size% = 256 * 1024 р эч Data% Data_Size% + 4 Ф ПSource% = єwhich_source Зх▌ Source% й  и 105 : Рdoing_105"  и 116 : Рdoing_116,  и 119 : Рdoing_1196  и 120 : Рdoing_120@  и 920 : Рdoing_120xJ  и 128 : Рdoing_128T  и 129 : Рdoing_129^hкr|Рpatch_code├░"Я "Total size ";Size%;" bytes" є out_file$ = "6809_" + Which$ў╦<х≥ "OS_File", 10, out_file$, &FFA,, Data%, Data% + Size%блЯ '"Saved to ";out_file$'жЮЮЙТЧщєwhich_sourceЙ choice%&Й source%0:шDNЯ "Possible sources:"'XЯ "1. Local RISC OS ROM"b!Я "2. RISC OS ROM image file"l"Я "3. BASIC module image file"v─Я '"Your source: ";┼■х≥ "OS_Byte", 15, 0·╗8У choice% = ╔ - ≈("0"):Щ choice% >= 1 ─ choice% <= 3╡╪Я ;choice%'фп-Ц A% = Data% ╦ Data% + Data_Size% - 1 ┬ 4зД  !A% = 0НЬМх▌ choice% й   и 1 : Рsrc_local*  и 2 : Рsrc_riscos4  и 3 : Рsrc_module>HкR\source% = 0fpGГ source% = 0 ▄ Г єtest_module(52308, &70AD) ▄ source% = 105 :Т JGHz@Г source% = 0 ▄ Г єtest_module(52628, &5EF2) ▄ source% = 116└@Г source% = 0 ▄ Г єtest_module(55392, &58E4) ▄ source% = 119▌@Г source% = 0 ▄ Г єtest_module(55440, &71CA) ▄ source% = 120≤@Г source% = 0 ▄ Г єtest_module(55532, &45DF) ▄ source% = 920╒@Г source% = 0 ▄ Г єtest_module(55632, &EB77) ▄ source% = 128╛@Г source% = 0 ▄ Г єtest_module(55636, &8A16) ▄ source% = 129Ію7Г source% = 0 ▄ ┘ 64, "BASIC module not recognized"йт= source%чХРЭщРsrc_localЙ base%$+х≥ "OS_Module", 18, "Basic" ╦ ,,, base%.8Size% = base%!-4 - 4BLЦ A% = 0 ╦ Size% - 1 ┬ 4V`  Data%!A% = base%!A%jtМ~┬А▓°і╟щРsrc_riscos╨дЙ inнЙ riscos%ьЙ file_name$БЛХ "Filename: " file_name$'Ж "Size% = єfile_size(file_name$)
in = ▌(file_name$)(riscos% = 02<JГ riscos% = 0 ▄ Г єtest_riscos(in, &119D54, &000000DC) ▄ riscos% = 370FJГ riscos% = 0 ▄ Г єtest_riscos(in, &11D7A4, &000000DC) ▄ riscos% = 371PJГ riscos% = 0 ▄ Г єtest_riscos(in, &18F5FC, &000000F4) ▄ riscos% = 402ZJГ riscos% = 0 ▄ Г єtest_riscos(in, &18FFAC, &00000138) ▄ riscos% = 403dnUГ riscos% = 0 ▄ ┘ 65, "RISC OS ROM not recognized (knows 3.70, 3.71, 4.02, 4.03)"x┌о#in = ▐#in - 8▄√!х≥ "OS_GBPB", 4, in, Data%, 4═╙Size% = !Data% - 4ЄЎ%х≥ "OS_GBPB", 4, in, Data%, Size%хры#inэФАПЗщРsrc_module"Й file_name$,6Х "Filename: " file_name$'@J"Size% = єfile_size(file_name$)T^'х≥ "OS_File", 16, file_name$, Data%hrА|├░ щєfile_size(file_name$)єўЙ size%╦Й object%бл5х≥ "OS_File", 17, file_name$ ╦ object% ,,,, size%жЮ,Г object% <> 1 ▄ ┘ 214, "File not found"ЙТ= size%Ч%щєtest_riscos(in, offset%, word%)&0*х≥ "OS_GBPB", 3, in, Data%, 4, offset%:D= (!Data% = word%)NXbl,щєtest_module(actual_size%, actual_crc%)v─
Й crc%┼■9х≥ "OS_CRC", 0, Data%, Data% + actual_size%, 1 ╦ crc%·╗Г crc% <> actual_crc% ▄ = ё╡╪Size% = actual_size%фп= ╧зДНЬщРpatch_codetoken_AND = &80token_EOR = &82 token_OR  = &84*4Size% = (Size% + 3) ─ ╛ 3>HТRТ Change module name\ТfpЦ A%=Data% ╦ Data%+Size%-1z"  Г !A%=&49534142 ─ A%?4=&43 ▄└C    Г A%!-4<>&20434242 ─ A%?5<>≈"$" ─ A%?5<>≈"T" ─ A%?5<>≈"." ▄▌!      A%!1=&39303836:Т "6809"≤	    м╒  м╛М A%Ію Ц `P = %0000 ╦ %0010 ┬ %0010йтТч0Т On TEXTLOAD, RENUMBER 1,1 instead of 10,10ХТРЭРprime(1, &E3A0400A)		[OPT `P	;	$ MOV r4,#1	. MOV r5,#1	8;	B]	L	VТ	`Т 6809 assembler	jТ	t	~KГ Source% = 105 └ Source% = 116 ▄ word% = &E28F1014 ▀ word% = &E28F103C	┬Рprime(2, word%)	▓	°[OPT `P	і;	╟ BL patch_6809_1	╨;	д]	н	ьРprim4(3, &E202140F)	Б	Л[OPT `P	Ж;
  B patch_6809_2

;
]

(%Г Source% = 105 └ Source% = 116 ▄
2
<Г Source%=105 ▄ Dest%=&A864
FГ Source%=116 ▄ Dest%=&A9A4
P
ZP% -= 6 * 4
d
n[OPT `P
x;
┌# SUB r2,r2,#&F0000000-&C0000000
▄ BCS Data%+Dest%
√ ADD r11,r11,#2
═ CMP r2,#&F0000000
╙ BCS P% - 4 * 4
Є;
Ў]
х
рРprime(5, &E200000F)
э
Ф[OPT `P
П;
З ─ r0,r0,#%11111;]"м,6KГ Source% = 105 └ Source% = 116 ▄ word% = &E35A0080 ▀ word% = &E35A007F@Рprime(4, word%)JT[OPT `P^;h B patch_6809_0r;|]├░Т Т Other code pointsєТў╦Рprim4(50, &E51830C0)бРprime(51, &E92D4002)лРprime(52, &E1A00400)жЮТЙТ Extra codeТТЧP% = Data% + Size%[OPT `P&0:D.patch_6809_0N;XF TEQ r10,#token_OR                  ; 'Expand' tokenised mnemonicsb BNE mnem_notORl LDRB r1,[r11]v BIC r1,r1,#&20─ TEQ r1,#≈"A"┼ TEQNE r1,#≈"B"■ TEQNE r1,#≈"C"· BNE mnem_notOR╗ SUB r11,r11,#1╡ CMP r1,#≈"B"╪ LDRLO r0,mnem_ORAф LDREQ r0,mnem_ORBп LDRHI r0,mnem_ORCз B Data%+Patch_Off(52)Д;Н.mnem_notORЬ; TEQ r10,#token_AND SUBEQ r11,r11,#2 LDREQ r0,mnem_AND  BEQ Data%+Patch_Off(52)*;4 TEQ r10,#token_EOR> SUBEQ r11,r11,#2H LDREQ r0,mnem_EORR BEQ Data%+Patch_Off(52)\;fA BIC r0,r10,#&20                    ; Skip 'L' for all 'LBxx'p TEQ r0,#≈"L"z LDREQB r0,[r11,#0]└ BICEQ r0,r0,#&20▌ TEQEQ r0,#≈"B"≤ LDREQB r10,[r11],#1╒;╛? BIC r0,r10,#&20                    ; Build 'mnemonic word'І;ю LDRB r1,[r11,#0]й BIC r1,r1,#&20т └R r0,r0,r1,LSL#8ч;Х LDRB r1,[r11,#1]Р BIC r1,r1,#&20Э └R r0,r0,r1,LSL#16; B Data%+Patch_Off(52);$.mnem_ORA.;8 EQUS "ORA "B;L.mnem_ORBV;` EQUS "ORB "j;t.mnem_ORC~;┬ EQUS "ORC "▓;°.mnem_ANDі;╟ EQUS "AND "╨;д.mnem_EORн;ь EQUS "EOR "БЛЖ .patch_6809_1
;T ADR r1,table_mnem_6809             ; Use 6809 mnemonic table instead of ARM one;(0 MOV pc,r14                         ; Return2<FP.table_mnem_6809Z;d EQUS "ADC":EQUB &00n EQUS "ADD":EQUB &01x EQUS "AND":EQUB &02┌ EQUS "BIT":EQUB &03▄ EQUS "CMP":EQUB &04√ EQUS "EOR":EQUB &05═ EQUS "SBC":EQUB &06╙ EQUS "SUB":EQUB &07Є EQUS "JMP":EQUB &08Ў EQUS "JSR":EQUB &09х EQUS "LEA":EQUB &0Aр EQUS "CWA":EQUB &0Bэ;Ф EQUS "ASL":EQUB &10П EQUS "ASR":EQUB &11З EQUS "CLR":EQUB &12 EQUS "COM":EQUB &13 EQUS "DEC":EQUB &14 EQUS "INC":EQUB &15" EQUS "LSL":EQUB &16, EQUS "LSR":EQUB &176 EQUS "NEG":EQUB &18@ EQUS "ROL":EQUB &19J EQUS "ROR":EQUB &1AT EQUS "TST":EQUB &1B^;h EQUS "ORA":EQUB &2Dr EQUS "ORB":EQUB &2D| EQUS "ORC":EQUB &2D├;░ EQUS "LDA":EQUB &2E  EQUS "LDB":EQUB &2Eє EQUS "LDD":EQUB &2Eў EQUS "LDS":EQUB &2E╦ EQUS "LDU":EQUB &2Eб EQUS "LDX":EQUB &2Eл EQUS "LDY":EQUB &2Eж;Ю EQUS "STA":EQUB &2FЙ EQUS "STB":EQUB &2FТ EQUS "STD":EQUB &2FЧ EQUS "STS":EQUB &2F EQUS "STU":EQUB &2F EQUS "STX":EQUB &2F EQUS "STY":EQUB &2F&;0 EQUS "BCC":EQUB &40: EQUS "BCS":EQUB &41D EQUS "BEQ":EQUB &42N EQUS "BGE":EQUB &43X EQUS "BGT":EQUB &44b EQUS "BHI":EQUB &45l EQUS "BHS":EQUB &46v EQUS "BLE":EQUB &47─ EQUS "BLO":EQUB &48┼ EQUS "BLS":EQUB &49■ EQUS "BLT":EQUB &4A· EQUS "BMI":EQUB &4B╗ EQUS "BNE":EQUB &4C╡ EQUS "BPL":EQUB &4D╪ EQUS "BRA":EQUB &4Eф EQUS "BRN":EQUB &4Fп EQUS "BSR":EQUB &50з EQUS "BVC":EQUB &51Д EQUS "BVS":EQUB &52Н;Ь EQUS "EXG":EQUB &70 EQUS "TFR":EQUB &71; EQUS "PSH":EQUB &80  EQUS "PUL":EQUB &81*;4 EQUS "ABX":EQUB &A0> EQUS "DAA":EQUB &A1H EQUS "MUL":EQUB &A2R EQUS "NOP":EQUB &A3\ EQUS "RTI":EQUB &A4f EQUS "RTS":EQUB &A5p EQUS "SEX":EQUB &A6z EQUS "SYN":EQUB &A7└;▌ EQUS "SWI":EQUB &B0≤;╒J EQUS "DCB":EQUB &E0                ; (make DCx directives big-endian)╛ EQUS "DCW":EQUB &E1І EQUS "DCD":EQUB &E2ю;йH EQUS "OPT":EQUB &F0                ; (pass the other relevant ones)т EQUS "EQU":EQUB &F1ч;Х8 EQUD 0                             ; (end of table)РЭ.patch_6809_2;$E MOV r3,r2,LSR#24                   ; Initialise processing flags.;8; LDRB r10,[r11],#1                  ; To next characterB;LD ─ r0,r3,#&F0                     ; Possibly a 4-char mnemonic ?V TEQ r0,#&00` TEQNE r0,#&10j TEQNE r0,#&20t TEQNE r0,#&40~ TEQNE r0,#&50┬ TEQNE r0,#&80▓ TEQNE r3,#&A7° TEQNE r0,#&B0і@ BEQ class_nobn                     ; Yes, don't skip spaces╟;╨5 BL skip_spaces                     ; Skip spacesд;н.class_nobnь;Б@ SUB r2,r8,#-basoff_stracc%         ; Buffer for instructionЛ;Ж1 MOV r0,#0                          ; Wipe it  STR r0,[r2,#0]
 STR r0,[r2,#4];> ADR r14,class_done                 ; Call 'class' handler( STMFD r13!,{r14}2 ─ r0,r3,#%11110000< ADD pc,pc,r0,LSR#4-2F MOV r0,r0P;Z B class_ADCd B class_ASLn B class_ORAx EQUD 0┌ B class_BCC▄ B class_BCC√ EQUD 0═ B class_EXG╙ B class_PSHЄ EQUD 0Ў B class_ABXх B class_SWIр EQUD 0э EQUD 0Ф B class_DCxП EQUD 0З;.class_done;5 BL skip_spaces                     ; Skip spaces";,? B Data%+Patch_Off(50)              ; Join 'n>4 bytes' code6;@;J;T.eval_expr_back^;hA SUB r11,r11,#1                     ; Step back one characterr LDRB r10,[r11,#-1]|;├.eval_expr░; = STMFD r13!,{r1-r3,r14}             ; Evaluate expressionє;ў BL Data%+Patch_Off(51)╦;б LDMFD r13!,{r1-r3,pc}^л;ж;Ю;Й.hop_skip_spacesТ;Ч8 LDRB r10,[r11],#1                  ; Skip character;.skip_spaces;&9 TEQ r10,#≈" "                    ; Scan to non-space0 LDREQB r10,[r11],#1: BEQ skip_spacesD;N MOVS pc,r14X;b;l;v.not_a_variable─;┼ STMFD r13!,{r14}■;· LDRB r14,[r11]╗;╡ CMP r14,#≈"A"╪ BLO notav_cheloф CMP r14,#≈"Z"п BLS notav_isvarз;Д.notav_cheloН;Ь CMP r14,#≈"a" BLO notav_chedi CMP r14,#≈"z" BLS notav_isvar ;*.notav_chedi4;> CMP r14,#≈"0"H BLO notav_cheotR CMP r14,#≈"9"\ BLS notav_isvarf;p.notav_cheotz;└ TEQ r14,#≈"`"▌ TEQNE r14,#≈"_"≤ TEQNE r14,#≈"$"╒ TEQNE r14,#≈"%"╛ TEQNE r14,#≈"("І BEQ notav_isvarю;й TEQ r14,r14т;ч LDMFD r13!,{pc}Х;Р.notav_isvarЭ; CMN r14,#1; LDMFD r13!,{pc}$;.;8;B
.opt_2L;V STMFD r13!,{r0,r14}`;j LDRB r0,[r8,#basoff_opt%]t TST r0,#2~;┬ LDMFD r13!,{r0,pc}▓;°;і;╟.error_bad_mnemonic╨;д ADR r0,ermsg_bad_mnemonicн;ь B error_generateБ;Л.ermsg_bad_mnemonicЖ; * єerror_message(4, "No such mnemonic")
;;;(.error_constoverflow2;<3 STMFD r13!,{r14}                   ; Save linkF;P8 BL opt_2                           ; Errors fatal ?Z;d6 LDMFD r13!,{r14}                   ; Restore linkn;x1 ЛQS pc,r14                      ; No, return┌;▄ TST r1,#&FF00√# ADREQ r0,ermsg_constoverflow_b═# ADRNE r0,ermsg_constoverflow_s╙;Є B error_generateЎ;х.ermsg_constoverflow_bр;э? єerror_message(2, "Immediate value out of range [0..255]")Ф;П.ermsg_constoverflow_sЗ;A єerror_message(2, "Immediate value out of range [0..65535]");;";,.error_offsetoutofrange6;@3 STMFD r13!,{r14}                   ; Save linkJ;T8 BL opt_2                           ; Errors fatal ?^;h6 LDMFD r13!,{r14}                   ; Restore linkr;|1 ЛQS pc,r14                      ; No, return├;░ MOV r0,r3,LSR#24  CMP r0,#5є' ADRLO r0,ermsg_offsetoutofrange_l4ў' ADRHS r0,ermsg_offsetoutofrange_l5╦;б B error_generateл;ж.ermsg_offsetoutofrange_l4Ю;ЙH єerror_message(1, "Offset target out of range [P%-32764,P%+32771]")Т;Ч.ermsg_offsetoutofrange_l5;H єerror_message(1, "Offset target out of range [P%-32763,P%+32772]");&;0;:.error_branchoutofrangeD;N3 STMFD r13!,{r14}                   ; Save linkX;b8 BL opt_2                           ; Errors fatal ?l;v6 LDMFD r13!,{r14}                   ; Restore link─;┼1 ЛQS pc,r14                      ; No, return■;· MOV r0,r3,LSR#28╗ CMP r0,#3╡& ADRLO r0,ermsg_branchoutofrange_n╪' ADREQ r0,ermsg_branchoutofrange_l3ф' ADRHI r0,ermsg_branchoutofrange_l4п;з B error_generateД;Н.ermsg_branchoutofrange_nЬ;D єerror_message(1, "Branch target out of range [P%-126,P%+129]");.ermsg_branchoutofrange_l3 ;*H єerror_message(1, "Branch target out of range [P%-32765,P%+32770]")4;>.ermsg_branchoutofrange_l4H;RH єerror_message(1, "Branch target out of range [P%-32764,P%+32771]")\;f;p;z.error_R_register└;▌3 STMFD r13!,{r14}                   ; Save link≤;╒M BIC r14,r10,#&20                   ; 'X', 'Y', 'U' or 'S', as expected ?╛ TEQ r14,#≈"X"І TEQNE r14,#≈"Y"ю TEQNE r14,#≈"U"й TEQNE r14,#≈"S"т5 LDMEQFD r13!,{pc}^                 ; Yes, returnч;Х ADR r0,ermsg_R_registerР;Э B error_generate;.ermsg_R_register;$C єerror_message(3, "Indexed addressing: expected X, Y, U or S").;8;B;L.error_R_PCR_registerV;`3 STMFD r13!,{r14}                   ; Save linkj;tT BIC r14,r10,#&20                   ; 'X', 'Y', 'U', 'S' or 'PCR', as expected ?~ TEQ r14,#≈"X"┬ TEQNE r14,#≈"Y"▓ TEQNE r14,#≈"U"° TEQNE r14,#≈"S"і5 LDMEQFD r13!,{pc}^                 ; Yes, return╟;╨ TEQ r14,#≈"P"д LDREQB r14,[r11,#0]н BICEQ r14,r14,#&20ь TEQEQ r14,#≈"C"Б LDREQB r14,[r11,#1]Л BICEQ r14,r14,#&20Ж TEQEQ r14,#≈"R" 5 LDMEQFD r13!,{pc}^                 ; Yes, return
;  ADR r0,ermsg_R_PCR_register;( B error_generate2;<.ermsg_R_PCR_registerF;PH єerror_message(3, "Indexed addressing: expected X, Y, U, S or PCR")Z;d;n;x.error_all_register┌;▄= STMFD r13!,{r10,r14}               ; Save used registers√;═m BIC r14,r10,#&20                   ; 'A', 'B', 'D', 'X', 'Y', 'U', 'S', 'CC', 'DP' or 'PC' as expected ?╙ TEQ r14,#≈"A"Є TEQNE r14,#≈"B"Ў TEQNE r14,#≈"D"х TEQNE r14,#≈"X"р TEQNE r14,#≈"Y"э TEQNE r14,#≈"U"Ф TEQNE r14,#≈"S"П5 LDMEQFD r13!,{r10,pc}^             ; Yes, returnЗ; LDRB r10,[r11,#0] BIC r10,r10,#&20;" TEQ r14,#≈"C", TEQEQ r10,#≈"C"65 LDMEQFD r13!,{r10,pc}^             ; Yes, return@;J TEQ r14,#≈"D"T TEQEQ r10,#≈"P"^5 LDMEQFD r13!,{r10,pc}^             ; Yes, returnh;r TEQ r14,#≈"P"| TEQEQ r10,#≈"C"├5 LDMEQFD r13!,{r10,pc}^             ; Yes, return░;  ADR r0,ermsg_all_registerє;ў B error_generate╦;б.ermsg_all_registerл;жD єerror_message(3, "Expected A, B, D, X, Y, U, S, CC, DP or PC")Ю;Й;Т;Ч.error_bad_addressing ;   ADR r0,ermsg_bad_addressing ; & B error_generate 0; :.ermsg_bad_addressing D; NJ єerror_message(3, "Addressing mode not allowed for this instruction") X; b; l; v.error_bad_ifnotalpha ─; ┼3 STMFD r13!,{r14}                   ; Save link ■; ·E ┌ r14,r10,r0                     ; Alpha character as expected ? ╗ BICS r14,r14,#&20 ╡F BNE error_bad_mnemonic             ; No, error 'no such mnemonic' ╪; фC BL hop_skip_spaces                 ; Skip character and spaces п; з0 LDMFD r13!,{pc}                    ; Return Д; Н; Ь;!.error_indexed_c!;!: TEQ r10,#≈","                    ; ',', as expected ?! 2 ЛQS pc,r14                      ; Yes, return!*;!4 ADR r0,ermsg_indexed_c!>;!H B error_generate!R;!\.ermsg_indexed_c!f;!p8 єerror_message(3, "Indexed addressing: expected ,")!z;!└;!▌;!≤.error_indexed_i!╒;!╛: TEQ r10,#≈"]"                    ; ']', as expected ?!І2 ЛQS pc,r14                      ; Yes, return!ю;!й ADR r0,ermsg_indexed_i!т;!ч B error_generate!Х;!Р.ermsg_indexed_i!Э;"A єerror_message(3, "Indirect indexed addressing: expected ]")";";"$;"..error_transfer_c"8;"B: TEQ r10,#≈","                    ; ',', as expected ?"L2 ЛQS pc,r14                      ; Yes, return"V;"` ADR r0,ermsg_transfer_c"j;"t B error_generate"~;"┬.ermsg_transfer_c"▓;"°. єerror_message(3, "TFR/EXG : expected ,")"і;"╟;"╨;"д.error_transfer_x"н;"ь ADR r0,ermsg_transfer_x"Б;"Л B error_generate"Ж;# .ermsg_transfer_x#
;#? єerror_message(3, "TFR/EXG: registers are different size")#;#(;#2;#<.error_bad_pushpull#F;#P ADR r0,ermsg_bad_pushpull#Z;#d B error_generate#n;#x.ermsg_bad_pushpull#┌;#▄= єerror_message(3, "PSH/PUL: register cannot be stacked")#√;#═;#╙;#Є.error_bad_autostep#Ў;#х ADR r0,ermsg_bad_autostep#р;#э B error_generate#Ф;#П.ermsg_bad_autostep#З;$\ єerror_message(3, "Indirect indexed addressing: auto-increment/decrement must be by 2")$;$;$";$,.error_generate$6;$@ SWI "OS_GenerateError"$J;$T;$^;$h.do_R_register$r;$|3 STMFD r13!,{r14}                   ; Save link$├;$░< BL error_R_register                ; Match 'R' register$ ;$єG BIC r10,r10,#&20                   ; Return specified 'R' register$ў TEQ r10,#≈"X"$╦ ЛQ r14,#%00$б TEQ r10,#≈"Y"$л ЛQ r14,#%01$ж TEQ r10,#≈"U"$Ю ЛQ r14,#%10$Й TEQ r10,#≈"S"$Т ЛQ r14,#%11$Ч;%8 LDRB r10,[r11],#1                  ; Next character%;% LDMFD r13!,{pc}%&;%0;%:;%D.do_R_PCR_register%N;%X3 STMFD r13!,{r14}                   ; Save link%b;%lE BL error_R_PCR_register            ; Match 'R' register or 'PCR'%v;%─G BIC r10,r10,#&20                   ; Return specified 'R' register%┼ TEQ r10,#≈"X"%■ ЛQ r14,#%00%· TEQ r10,#≈"Y"%╗ ЛQ r14,#%01%╡ TEQ r10,#≈"U"%╪ ЛQ r14,#%10%ф TEQ r10,#≈"S"%п ЛQ r14,#%11%з;%Д6 TEQ r10,#≈"P"                    ; Next character%Н: ADDEQ r11,r11,#2                   ; (and flag 'PCR')%Ь LDRB r10,[r11],#1&;& LDMFD r13!,{pc}&;& ;&*;&4.do_T_register&>;&H= STMFD r13!,{r0,r14}                ; Save used registers&R;&\< BL error_all_register              ; Match 'T' register&f;&pG BIC r10,r10,#&20                   ; Return specified 'T' register&z LDRB r14,[r11,#0]&└ BIC r14,r14,#&20&▌;&≤ TEQ r10,#≈"A"&╒ ЛQ r0,#%10000&╛ TEQ r10,#≈"B"&І ЛQ r0,#%10010&ю TEQ r10,#≈"D"&й ЛQ r0,#%00000&т TEQEQ r14,#≈"P"&ч ЛQ r0,#%10111&Х TEQ r10,#≈"X"&Р ЛQ r0,#%00010&Э TEQ r10,#≈"Y"' ЛQ r0,#%00100' TEQ r10,#≈"U"' ЛQ r0,#%00110'$ TEQ r10,#≈"S"'. ЛQ r0,#%01000'8 TEQ r10,#≈"C"'B ЛQ r0,#%10101'L TEQ r10,#≈"P"'V ЛQ r0,#%01011'`;'j8 MOVS r14,r0,LSR#1                  ; Next character't ADDCS r11,r11,#1'~ LDRB r10,[r11],#1'┬;'▓ LDMFD r13!,{r0,pc}'°;'і;'╟;'╨.do_P_register'д;'н= STMFD r13!,{r0,r14}                ; Save used registers'ь;'Б< BL do_T_register                   ; Match 'P' register'Л;'ЖG ADR r0,do_P_register_map           ; Return specified 'P' register(  LDRB r14,[r0,r14](
;( LDMFD r13!,{r0,pc}(;((.do_P_register_map(2;(< EQUB 0 << 0:Т D(F EQUB 1 << 4:Т X(P EQUB 1 << 5:Т Y(Z EQUB 1 << 6:Т U(d EQUB 1 << 6:Т S(n EQUB 1 << 7:Т PC(x EQUB 0 << 0:Т -(┌ EQUB 0 << 0:Т -(▄ EQUB 1 << 1:Т A(√ EQUB 1 << 2:Т B(═ EQUB 1 << 0:Т CC(╙ EQUB 1 << 3:Т DP(Є EQUB 0 << 0:Т -(Ў EQUB 0 << 0:Т -(х EQUB 0 << 0:Т -(р EQUB 0 << 0:Т -(э;(Ф;(П;(З.do_dieximin);)= STMFD r13!,{r1-r2,r14}             ; Save used registers);)"? MOV r3,r3,LSL#24                   ; Move instruction info),;)6> MOV r0,#1<<1                       ; 8- or 16-bit force ?)@ TEQ r10,#≈"<")J ЛQ r0,#1<<0)T TEQNE r10,#≈">")^E └REQ r3,r3,r0,LSL#4               ; Yes, flag it (and which one))hH BLEQ hop_skip_spaces               ; And skip '<' or '>' and spaces)r;)|3 TEQ r10,#≈"#"                    ; Immediate ?)├6 BNE do_dieximin_noimm              ; No, continue)░;) 9 BL eval_expr                       ; Immediate value)є;)ў= └R r3,r3,#2<<0                    ; Indicate 'immediate')╦;)б0 B do_dieximin_rtarg                ; Finish)л;)ж.do_dieximin_noimm)Ю;)Й5 TEQ r10,#≈"["                    ; Indirection ?)Т5 └REQ r3,r3,#1<<7                  ; Yes, flag it)ЧA BLEQ hop_skip_spaces               ; And skip '[' and spaces*;*< TEQ r10,#≈","                    ; Indexed, no offset ?*= BEQ do_dieximin_ixnul              ; Yes, handle as such*&;*0? BIC r0,r10,#&20                    ; Indexed, accu based ?*: TEQ r0,#≈"A"*D TEQNE r0,#≈"B"*N TEQNE r0,#≈"D"*X BLEQ not_a_variable*b= BEQ do_dieximin_ixacc              ; Yes, handle as such*l;*v; BL eval_expr_back                  ; Address or offset*─;*┼> TEQ r10,#≈","                    ; Indexed, with offset ?*■= BEQ do_dieximin_ixoff              ; Yes, handle as such*·;*╗7 TST r3,#1<<7                       ; Indirection ?*╡? └RNE r3,r3,#%10011111<<8          ; Yes, extended indirect*╪A BNE do_dieximin_ixfin              ; And finish as 'indexed'*ф;*пI TST r3,#1<<4                       ; Indicate 'direct' or 'extended'*з └RNE r3,r3,#0<<0*Д └REQ r3,r3,#1<<0*Н;*Ь0 B do_dieximin_rtarg                ; Finish+;+.do_dieximin_ixfin+;+ ; └R r3,r3,#3<<0                    ; Indicate 'indexed'+*;+47 TST r3,#1<<7                       ; Indirection ?+>A BEQ do_dieximin_rtarg              ; No, don't check for ']'+H;+RB └R r3,r3,#%00010000<<8            ; Make post-byte 'indirect'+\;+f5 BL skip_spaces                     ; Skip spaces+p;+z3 BL error_indexed_i                 ; Match ']'+└;+▌8 LDRB r10,[r11],#1                  ; Next character+≤;+╒.do_dieximin_rtarg+╛;+І0 LDMFD r13!,{r1-r2,pc}              ; Return+ю;+й.do_dieximin_ixnul+т;+ч= BL hop_skip_spaces                 ; Skip ',' and spaces+Х;+Р> MOV r0,#%10000100                  ; Initialise post-byte+Э;,7 TEQ r10,#≈"-"                    ; Pre-decrement ?,= ЛQ r0,#%10000010                ; Yes, note and skip '-', LDREQB r10,[r11],#1,$: TEQEQ r10,#≈"-"                  ; Double decrement ?,.= ЛQ r0,#%10000011                ; Yes, note and skip '-',8 LDREQB r10,[r11],#1,B;,L; BL do_R_register                   ; Note 'R' register,V └R r3,r3,r14,LSL#13,`;,j@ TEQ r0,#%10000100                  ; Have a pre-decrement ?,t@ BNE do_dieximin_noinc              ; Yes, no post-increment,~;,┬8 TEQ r10,#≈"+"                    ; Post-increment ?,▓= ЛQ r0,#%10000000                ; Yes, note and skip '+',° LDREQB r10,[r11],#1,і: TEQEQ r10,#≈"+"                  ; Double increment ?,╟= ЛQ r0,#%10000001                ; Yes, note and skip '+',╨ LDREQB r10,[r11],#1,д;,н.do_dieximin_noinc,ь;,Б@ └R r3,r3,r0,LSL#8                 ; Note required post-byte,Л;,ЖG TST r3,#1<<7                       ; Fault single-inc/dec indirect-  TEQNE r0,#%10000100-
 TEQNE r0,#%10000011- TEQNE r0,#%10000001- BNE error_bad_autostep-(;-2: B do_dieximin_ixfin                ; Finish 'indexed'-<;-F.do_dieximin_ixacc-P;-ZB CMP r0,#≈"B"                     ; Note specified accumulator-d └RLO r3,r3,#%10000110<<8-n └REQ r3,r3,#%10000101<<8-x └RHI r3,r3,#%10001011<<8-┌;-▄J BL hop_skip_spaces                 ; Skip accumulator name and spaces-√;-═3 BL error_indexed_c                 ; Match ','-╙;-Є= BL hop_skip_spaces                 ; Skip ',' and spaces-Ў;-х; BL do_R_register                   ; Note 'R' register-р └R r3,r3,r14,LSL#13-э;-Ф: B do_dieximin_ixfin                ; Finish 'indexed'-П;-З.do_dieximin_ixoff.;.= BL hop_skip_spaces                 ; Skip ',' and spaces.;."M BL do_R_PCR_register               ; Note 'R' register (or detect 'PCR').,P BEQ do_dieximin_ixopc              ; (if 'PCR' detected, handle seperately).6 └R r3,r3,r14,LSL#13.@;.J7 TST r3,#1<<4                       ; 8-bit force ?.T3 └RNE r3,r3,#%10001000<<8          ; Yes, do it.^> BNE do_dieximin_ixfin              ; And finish 'indexed'.h;.r8 TST r3,#1<<5                       ; 16-bit force ?.|3 └RNE r3,r3,#%10001001<<8          ; Yes, do it.├> BNE do_dieximin_ixfin              ; And finish 'indexed'.░;. B TST r3,#1<<7                       ; No 5-bit offset indirect.є BNE do_dieximin_ixoby.ў;.╦A ADD r14,r0,#&10                    ; Offset fits in 5 bits ?.б CMP r14,#&20.л= BHS do_dieximin_ixoby              ; No, try next larger.ж;.Ю@ ─S r14,r0,#%11111                ; Note offset in post-byte.Й └RNE r3,r3,r14,LSL#8.ТB └REQ r3,r3,#%10000100<<8          ; (replace '0,R' with ',R').Ч;/: B do_dieximin_ixfin                ; Finish 'indexed'/;/.do_dieximin_ixoby/&;/0F ADD r14,r0,#&80                    ; Fit offset in 8 or 16 bits ?/: CMP r14,#&100/D* └RLO r3,r3,#%10001000<<8          ; 8/N+ └RHS r3,r3,#%10001001<<8          ; 16/X;/b: B do_dieximin_ixfin                ; Finish 'indexed'/l;/v.do_dieximin_ixopc/─;/┼J LDR r14,[r8,#basoff_p%]            ; Calculate offset relative to PCR/■M ADD r3,r3,#2<<24                   ; (assuming 16-bit offset -> 2 bytes)/· ADD r14,r14,r3,LSR#24/╗ SUB r0,r0,r14/╡;/╪4 ADD r14,r0,#&8000                  ; In range ?/ф CMP r14,#&10000/пP BLHS error_offsetoutofrange        ; No, error 'offset target out of range'/з;/Д7 ADD r0,r0,#1                       ; 8-bit force ?/Н TST r3,#1<<4/Ь3 └RNE r3,r3,#%10001100<<8          ; Yes, do it0> BNE do_dieximin_ixfin              ; And finish 'indexed'0;08 SUB r0,r0,#1                       ; 16-bit force ?0  TST r3,#1<<50*3 └RNE r3,r3,#%10001101<<8          ; Yes, do it04> BNE do_dieximin_ixfin              ; And finish 'indexed'0>;0HF ADD r0,r0,#1                       ; Fit offset in 8 or 16 bits ?0R ADD r14,r0,#&800\ CMP r14,#&1000f* └RLO r3,r3,#%10001100<<8          ; 80p SUBHS r0,r0,#10z+ └RHS r3,r3,#%10001101<<8          ; 160└;0▌: B do_dieximin_ixfin                ; Finish 'indexed'0≤;0╒;0╛;0І.finish_hop_byte0ю;0й= LDRB r10,[r11],#1                  ; Skip last character0т;0ч.finish_byte0Х;0Р@ STRB r0,[r2],#1                    ; Buffer opcode argument0Э;1 LDMFD r13!,{pc}1;1;1$;1..finish_hop_word18;1B= LDRB r10,[r11],#1                  ; Skip last character1L;1V.finish_word1`;1j@ MOV r0,r0,ROR#8                    ; Buffer opcode argument1t STRB r0,[r2],#11~ MOV r0,r0,ROR#241┬ STRB r0,[r2],#11▓;1° LDMFD r13!,{pc}1і;1╟;1╨;1д.finish_hop_dble1н;1ь= LDRB r10,[r11],#1                  ; Skip last character1Б;1Л.finish_dble1Ж;2 @ MOV r0,r0,ROR#24                   ; Buffer opcode argument2
 STRB r0,[r2],#12 MOV r0,r0,ROR#242 STRB r0,[r2],#12( MOV r0,r0,ROR#2422 STRB r0,[r2],#12< MOV r0,r0,ROR#242F STRB r0,[r2],#12P;2Z LDMFD r13!,{pc}2d;2n;2x;2┌.finish_hop_implied2▄;2√= LDRB r10,[r11],#1                  ; Skip last character2═;2╙.finish_implied2Є;2Ў LDMFD r13!,{pc}2х;2р;2э;2Ф.class_ABX2П;2ЗO TEQ r3,#&A7                        ; Check 4th mnemonic character (if any)3 ЛQ r0,#≈"C"3 BLEQ error_bad_ifnotalpha3;3"7 ADR r1,table_implieds_ABX-&A0      ; Output opcode3, LDRB r1,[r1,r3]36 STRB r1,[r2],#13@;3JC B finish_implied                   ; End with 0 argument bytes3T;3^;3h;3r.table_implieds_ABX3|;3├ EQUB &3A3░ EQUB &193  EQUB &3D3є EQUB &123ў EQUB &3B3╦ EQUB &393б EQUB &1D3л EQUB &133ж;3Ю
 ALIGN3Й;3Т;3Ч;4.class_EXG4;47 TEQ r3,#&70                        ; Output opcode4& ЛQ r1,#&1E40 MOVNE r1,#&1F4: STRB r1,[r2],#14D;4NA BL do_T_register                   ; Determine argument byte4X └R r0,r14,r0,LSL#44b;4l BL skip_spaces4v;4─ BL error_transfer_c4┼;4■ BL hop_skip_spaces4·;4╗ BL do_T_register4╡ └R r0,r14,r0,LSL#44╪;4ф@ ┌ r14,r0,r0,LSR#4                ; Fault incompatible sizes4п TST r14,#%10004з BNE error_transfer_x4Д;4НB B finish_byte                      ; End with 1 argument byte4Ь;5;5;5.class_PSH5 ;5*F BIC r0,r10,#&20                    ; Check 4th mnemonic character54 TEQ r0,#≈"S"5> TEQNE r0,#≈"U"5H MVNNE r0,r05R BL error_bad_ifnotalpha5\;5f7 TEQ r3,#&80                        ; Output opcode5p ЛQ r1,#&345z MOVNE r1,#&355└ TEQ r0,#≈"U"5▌ ADDEQ r1,r1,#&025≤ STRB r1,[r2],#15╒;5╛A MOV r0,#%00000000                  ; Determine argument byte5І;5ю.class_PSH_reg5й;5т BL do_P_register5ч;5Х TEQ r14,#05Р BEQ error_bad_pushpull5Э;6 └R r0,r0,r146;6 BL skip_spaces6$;6. TEQ r10,#≈","68 BNE class_PSH_regd6B;6L BL hop_skip_spaces6V;6` B class_PSH_reg6j;6t.class_PSH_regd6~;6┬B B finish_byte                      ; End with 1 argument byte6▓;6°;6і;6╟.class_BCC6╨;6д: LDRB r0,[r11,#-5]                  ; 'Long' version ?6н BIC r0,r0,#&206ь TEQ r0,#≈"L"6Б5 └REQ r3,r3,#1<<16                 ; Yes, flag it6Л;6Ж: ADR r1,table_branches-&40*4        ; Determine opcode7  ─ r14,r3,#%111111117
 LDR r1,[r1,r14,LSL#2]7 TST r3,#1<<167 MOVNE r1,r1,ROR#167( ADDNE r3,r3,#1<<2872;7<5 ─S r14,r1,#&FF00                 ; Output opcode7F MOVNE r14,r14,LSR#87P STRNEB r14,[r2],#17Z ADDNE r3,r3,#1<<287d STRB r1,[r2],#17n;7xA BL eval_expr_back                  ; Calculate branch offset7┌ LDR r1,[r8,#basoff_p%]7▄ ADD r3,r3,#2<<287√ ADD r1,r1,r3,LSR#287═ SUB r0,r0,r17╙;7Є4 TST r3,#1<<16                      ; In range ?7Ў ЛQ r1,#&00807х MOVNE r1,#&80007р ADD r14,r0,r17э CMP r14,r1,LSL#17ФP BLHS error_branchoutofrange        ; No, error 'branch target out of range'7П;7ЗK TST r3,#1<<16                      ; Finish with 1 or 2 argument bytes8 BEQ finish_byte8 BNE finish_word8;8";8,;86.table_branches8@;8J EQUW &0024:EQUW &10248T EQUW &0025:EQUW &10258^ EQUW &0027:EQUW &10278h EQUW &002C:EQUW &102C8r EQUW &002E:EQUW &102E8| EQUW &0022:EQUW &10228├ EQUW &0024:EQUW &10248░ EQUW &002F:EQUW &102F8  EQUW &0025:EQUW &10258є EQUW &0023:EQUW &10238ў EQUW &002D:EQUW &102D8╦ EQUW &002B:EQUW &102B8б EQUW &0026:EQUW &10268л EQUW &002A:EQUW &102A8ж EQUW &0020:EQUW &00168Ю EQUW &0021:EQUW &10218Й EQUW &008D:EQUW &00178Т EQUW &0028:EQUW &10288Ч EQUW &0029:EQUW &10299;9;9;9&.class_SWI90;9:< TEQ r10,#≈"2"                    ; SWI number postfix ?9D TEQNE r10,#≈"3"9N; BNE class_SWI_nonum                ; No, not 'special'9X;9b< SUB r1,r10,#≈"2"-&10             ; Output opcode prefix9l STRB r1,[r2],#19v;9─9 LDRB r10,[r11],#1                  ; Skip SWI number9┼;9■.class_SWI_nonum9·;9╗7 MOV r1,#%00111111                  ; Output opcode9╡ STRB r1,[r2],#19╪;9фC B finish_implied                   ; End with 0 argument bytes9п;9з;9Д;9Н.class_ADC9Ь;:5 TEQ r3,#&02                        ; ─CC / └CC ?: TEQNE r3,#&0D: BICEQ r0,r10,#&20:  TEQEQ r0,#≈"C":* LDREQB r0,[r11,#0]:4 BICEQ r0,r0,#&20:> TEQEQ r0,#≈"C":H? ADDEQ r11,r11,#1                   ; Yes, 'forget' first C:R; ЛQ r10,#&03                     ; And 're-code' second:\;:f.class_ASL_noacc:p;:z? ADR r0,table_deii_instns           ; Mnemonic's info table:└ LDR r3,[r0,r3,LSL#2]:▌ ADD r3,r0,r3:≤;:╒E BIC r0,r10,#&20                    ; Match register name postfix:╛;:І SUB r1,r3,#1:ю;:й.class_ADC_pocha:т;:ч LDRB r14,[r1,#1]!:Х TEQ r14,#0:Р BEQ error_bad_mnemonic:Э TEQ r14,#≈" "; BEQ class_ADC_ponot; TEQ r14,r0; BNE class_ADC_pocha;$;;..class_ADC_ponot;8;;B? SUB r0,r1,r3                       ; Mnemonic's info entry;L ADD r1,r3,#8;V ADD r1,r1,r0,LSL#3;`;;jC TEQ r14,#≈" "                    ; Skip register name (if any);t LDRNEB r10,[r11],#1;~;;┬5 BL skip_spaces                     ; Skip spaces;▓;;°O MOV r3,#2<<0                       ; Minimum number of bytes for 'indexed';і LDR r14,[r1,#3<<1];╟ TST r14,#&1F00;╨ ADDNE r3,r3,#1<<0;д;;нQ BL do_dieximin                     ; Parse direct/extended/immediate/indexed;ь;;Б5 ─ r14,r3,#%11                    ; Output opcode;Л LDR r1,[r1,r14,LSL#1];Ж ─S r14,r1,#&1F00<  MOVNE r14,r14,LSR#8<
 STRNEB r14,[r2],#1< STRB r1,[r2],#1<;<(C TST r1,#1<<15                      ; Addressing mode allowed ?<2> BNE error_bad_addressing           ; No, abort with error<<;<F@ ─ r14,r3,#%11                    ; Dispatch addressing mode<P CMP r14,#2<Z BLO class_ADC_straight<d BEQ class_ADC_immediate<n BHI class_ADC_indexed<x;<┌.class_ADC_straight<▄;<√K CMP r14,#1                         ; Finish with 1 or 2 argument bytes<═ BLO finish_byte<╙ BEQ finish_word<Є;<Ў.class_ADC_immediate<х;<р4 TST r1,#1<<14                      ; In range ?<э ЛQ r1,#&0080<Ф MOVNE r1,#&8000<П CMP r0,r1,LSL#1<ЗR BLHS error_constoverflow           ; No, error 'immediate value out of range'=;=K TST r1,#&FF00                      ; Finish with 1 or 2 argument bytes= BEQ finish_byte=" BNE finish_word=,;=6.class_ADC_indexed=@;=JA MOV r1,r3,LSR#8                    ; Output opcode post-byte=T STRB r1,[r2],#1=^;=hL ─ r1,r1,#%10001111               ; Finish with 0, 1 or 2 argument bytes=r;=| TEQ r1,#%10001001=├ TEQNE r1,#%10001101=░ TEQNE r1,#%10001111=  BEQ finish_word=є;=ў TEQ r1,#%10001000=╦ TEQNE r1,#%10001100=б BEQ finish_byte=л;=ж B finish_implied=Ю;=Й;=Т;=Ч.table_deii_instns>;>, EQUD table_deii_ADC - table_deii_instns>, EQUD table_deii_ADD - table_deii_instns>&, EQUD table_deii_AND - table_deii_instns>0, EQUD table_deii_BIT - table_deii_instns>:, EQUD table_deii_CMP - table_deii_instns>D, EQUD table_deii_EOR - table_deii_instns>N, EQUD table_deii_SBC - table_deii_instns>X, EQUD table_deii_SUB - table_deii_instns>b, EQUD table_deii_JMP - table_deii_instns>l, EQUD table_deii_JSR - table_deii_instns>v, EQUD table_deii_LEA - table_deii_instns>─, EQUD table_deii_CWA - table_deii_instns>┼ EQUD 0>■, EQUD table_deii_ORx - table_deii_instns>·, EQUD table_deii_LDx - table_deii_instns>╗, EQUD table_deii_STx - table_deii_instns>╡;>╪, EQUD table_deii_ASL - table_deii_instns>ф, EQUD table_deii_ASR - table_deii_instns>п, EQUD table_deii_CLR - table_deii_instns>з, EQUD table_deii_COM - table_deii_instns>Д, EQUD table_deii_DEC - table_deii_instns>Н, EQUD table_deii_INC - table_deii_instns>Ь, EQUD table_deii_LSL - table_deii_instns?, EQUD table_deii_LSR - table_deii_instns?, EQUD table_deii_NEG - table_deii_instns?, EQUD table_deii_ROL - table_deii_instns? , EQUD table_deii_ROR - table_deii_instns?*, EQUD table_deii_TST - table_deii_instns?4 EQUD 0?> EQUD 0?H EQUD 0?R EQUD 0?\;?f;?p;?z.table_deii_ADC?└;?▌ EQUS єnull_pad_8("AB")?≤: EQUW &0099:EQUW &00B9:EQUW 0 << 14 └ &0089:EQUW &00A9?╒: EQUW &00D9:EQUW &00F9:EQUW 0 << 14 └ &00C9:EQUW &00E9?╛;?І.table_deii_ADD?ю;?й EQUS єnull_pad_8("ABD")?т: EQUW &009B:EQUW &00BB:EQUW 0 << 14 └ &008B:EQUW &00AB?ч: EQUW &00DB:EQUW &00FB:EQUW 0 << 14 └ &00CB:EQUW &00EB?Х: EQUW &00D3:EQUW &00F3:EQUW 1 << 14 └ &00C3:EQUW &00E3?Р;?Э.table_deii_AND@;@" EQUS єnull_pad_8("AB"+Ґ(&03))@: EQUW &0094:EQUW &00B4:EQUW 0 << 14 └ &0084:EQUW &00A4@$: EQUW &00D4:EQUW &00F4:EQUW 0 << 14 └ &00C4:EQUW &00E4@.: EQUW &FFFF:EQUW &FFFF:EQUW 0 << 14 └ &001C:EQUW &FFFF@8;@B.table_deii_BIT@L;@V EQUS єnull_pad_8("AB")@`: EQUW &0095:EQUW &00B5:EQUW 0 << 14 └ &0085:EQUW &00A5@j: EQUW &00D5:EQUW &00F5:EQUW 0 << 14 └ &00C5:EQUW &00E5@t;@~.table_deii_CMP@┬;@▓  EQUS єnull_pad_8("ABDSUXY")@°: EQUW &0091:EQUW &00B1:EQUW 0 << 14 └ &0081:EQUW &00A1@і: EQUW &00D1:EQUW &00F1:EQUW 0 << 14 └ &00C1:EQUW &00E1@╟: EQUW &1093:EQUW &10B3:EQUW 1 << 14 └ &1083:EQUW &10A3@╨: EQUW &119C:EQUW &11BC:EQUW 1 << 14 └ &118C:EQUW &11AC@д: EQUW &1193:EQUW &11B3:EQUW 1 << 14 └ &1183:EQUW &11A3@н: EQUW &009C:EQUW &00BC:EQUW 1 << 14 └ &008C:EQUW &00AC@ь: EQUW &109C:EQUW &10BC:EQUW 1 << 14 └ &108C:EQUW &10AC@Б;@Л.table_deii_EOR@Ж;A  EQUS єnull_pad_8("AB")A
: EQUW &0098:EQUW &00B8:EQUW 0 << 14 └ &0088:EQUW &00A8A: EQUW &00D8:EQUW &00F8:EQUW 0 << 14 └ &00C8:EQUW &00E8A;A(.table_deii_SBCA2;A< EQUS єnull_pad_8("AB")AF: EQUW &0092:EQUW &00B2:EQUW 0 << 14 └ &0082:EQUW &00A2AP: EQUW &00D2:EQUW &00F2:EQUW 0 << 14 └ &00C2:EQUW &00E2AZ;Ad.table_deii_SUBAn;Ax EQUS єnull_pad_8("ABD")A┌: EQUW &0090:EQUW &00B0:EQUW 0 << 14 └ &0080:EQUW &00A0A▄: EQUW &00D0:EQUW &00F0:EQUW 0 << 14 └ &00C0:EQUW &00E0A√: EQUW &0093:EQUW &00B3:EQUW 1 << 14 └ &0083:EQUW &00A3A═;A╙.table_deii_JMPAЄ;AЎ EQUS єnull_pad_8(" ")Aх0 EQUW &000E:EQUW &007E:EQUW &FFFF:EQUW &006EAр;Aэ.table_deii_JSRAФ;AП EQUS єnull_pad_8(" ")AЗ0 EQUW &009D:EQUW &00BD:EQUW &FFFF:EQUW &00ADB;B.table_deii_LEAB;B" EQUS єnull_pad_8("SUXY")B,0 EQUW &FFFF:EQUW &FFFF:EQUW &FFFF:EQUW &0032B60 EQUW &FFFF:EQUW &FFFF:EQUW &FFFF:EQUW &0033B@0 EQUW &FFFF:EQUW &FFFF:EQUW &FFFF:EQUW &0030BJ0 EQUW &FFFF:EQUW &FFFF:EQUW &FFFF:EQUW &0031BT;B^.table_deii_CWABh;Br EQUS єnull_pad_8("I")B|0 EQUW &FFFF:EQUW &FFFF:EQUW &003C:EQUW &FFFFB├;B░.table_deii_ORxB ;Bє" EQUS єnull_pad_8("AB"+Ґ(&03))Bў: EQUW &009A:EQUW &00BA:EQUW 0 << 14 └ &008A:EQUW &00AAB╦: EQUW &00DA:EQUW &00FA:EQUW 0 << 14 └ &00CA:EQUW &00EABб: EQUW &FFFF:EQUW &FFFF:EQUW 0 << 14 └ &001A:EQUW &FFFFBл;Bж.table_deii_LDxBЮ;BЙ  EQUS єnull_pad_8("ABDSUXY")BТ: EQUW &0096:EQUW &00B6:EQUW 0 << 14 └ &0086:EQUW &00A6BЧ: EQUW &00D6:EQUW &00F6:EQUW 0 << 14 └ &00C6:EQUW &00E6C: EQUW &00DC:EQUW &00FC:EQUW 1 << 14 └ &00CC:EQUW &00ECC: EQUW &10DE:EQUW &10FE:EQUW 1 << 14 └ &10CE:EQUW &10EEC: EQUW &00DE:EQUW &00FE:EQUW 1 << 14 └ &00CE:EQUW &00EEC&: EQUW &009E:EQUW &00BE:EQUW 1 << 14 └ &008E:EQUW &00AEC0: EQUW &109E:EQUW &10BE:EQUW 1 << 14 └ &108E:EQUW &10AEC:;CD.table_deii_STxCN;CX  EQUS єnull_pad_8("ABDSUXY")Cb0 EQUW &0097:EQUW &00B7:EQUW &FFFF:EQUW &00A7Cl0 EQUW &00D7:EQUW &00F7:EQUW &FFFF:EQUW &00E7Cv0 EQUW &00DD:EQUW &00FD:EQUW &FFFF:EQUW &00EDC─0 EQUW &10DF:EQUW &10FF:EQUW &FFFF:EQUW &10EFC┼0 EQUW &00DF:EQUW &00FF:EQUW &FFFF:EQUW &00EFC■0 EQUW &009F:EQUW &00BF:EQUW &FFFF:EQUW &00AFC·0 EQUW &109F:EQUW &10BF:EQUW &FFFF:EQUW &10AFC╗;C╡.table_deii_ASLC╪;Cф EQUS єnull_pad_8(" ")Cп0 EQUW &0008:EQUW &0078:EQUW &FFFF:EQUW &0068Cз;CД.table_deii_ASRCН;CЬ EQUS єnull_pad_8(" ")D0 EQUW &0007:EQUW &0077:EQUW &FFFF:EQUW &0067D;D.table_deii_CLRD ;D* EQUS єnull_pad_8(" ")D40 EQUW &000F:EQUW &007F:EQUW &FFFF:EQUW &006FD>;DH.table_deii_COMDR;D\ EQUS єnull_pad_8(" ")Df0 EQUW &0003:EQUW &0073:EQUW &FFFF:EQUW &0063Dp;Dz.table_deii_DECD└;D▌ EQUS єnull_pad_8(" ")D≤0 EQUW &000A:EQUW &007A:EQUW &FFFF:EQUW &006AD╒;D╛.table_deii_INCDІ;Dю EQUS єnull_pad_8(" ")Dй0 EQUW &000C:EQUW &007C:EQUW &FFFF:EQUW &006CDт;Dч.table_deii_LSLDХ;DР EQUS єnull_pad_8(" ")DЭ0 EQUW &0008:EQUW &0078:EQUW &FFFF:EQUW &0068E;E.table_deii_LSRE;E$ EQUS єnull_pad_8(" ")E.0 EQUW &0004:EQUW &0074:EQUW &FFFF:EQUW &0064E8;EB.table_deii_NEGEL;EV EQUS єnull_pad_8(" ")E`0 EQUW &0000:EQUW &0070:EQUW &FFFF:EQUW &0060Ej;Et.table_deii_ROLE~;E┬ EQUS єnull_pad_8(" ")E▓0 EQUW &0009:EQUW &0079:EQUW &FFFF:EQUW &0069E°;Eі.table_deii_RORE╟;E╨ EQUS єnull_pad_8(" ")Eд0 EQUW &0006:EQUW &0076:EQUW &FFFF:EQUW &0066Eн;Eь.table_deii_TSTEБ;EЛ EQUS єnull_pad_8(" ")EЖ0 EQUW &000D:EQUW &007D:EQUW &FFFF:EQUW &006DF ;F
;F;F.class_ASLF(;F2D BIC r0,r10,#&20                    ; Accumulator name postfix ?F< TEQ r0,#≈"A"FF TEQNE r0,#≈"B"FP BLEQ not_a_variableFZ9 BNE class_ASL_noacc                ; No, not impliedFd;Fn7 ADR r1,table_implieds_ASL-&10      ; Output opcodeFx LDRB r1,[r1,r3]F┌ SUB r0,r0,#≈"A"F▄ └R r1,r1,r0,LSL#4F√ STRB r1,[r2],#1F═;F╙] B finish_hop_implied               ; Skip accumulator name and end with 0 argument bytesFЄ;FЎ;Fх;Fр.table_implieds_ASLFэ;FФ EQUB &48FП EQUB &47FЗ EQUB &4FG EQUB &43G EQUB &4AG EQUB &4CG" EQUB &48G, EQUB &44G6 EQUB &40G@ EQUB &49GJ EQUB &46GT EQUB &4DG^;Gh
 ALIGNGr;G|;G├;G░.class_ORAG ;Gє? SUB r11,r11,#2                     ; Step back to 3rd charGў LDRB r10,[r11],#1G╦;Gб; ┌ r3,r3,#&20 ┌ &00             ; Change to 'ADC' classGл;Gж B class_ADCGЮ;GЙ;GТ;GЧ.class_DCxH;H< BL eval_expr_back                  ; Calculate argumentH;H&N CMP r3,#&E1                        ; Finish with 1, 2 or 4 argument bytesH0 BLO finish_byteH: BEQ finish_wordHD BHI finish_dbleHNHXHbHl]HvH─МH┼H■Size% = P% - Data%H·H╗АH╡H╪HфHпщєnull_pad_8(string$)HзHД= юstring$ + д8, Ґ(0)), 8)HНHЬII-щєerror_message(asm_err%, error_message$)II [OPT `PI*;I4 EQUD asm_err%I> EQUS error_message$IH EQUB 0IR;I\
 ALIGNIf;Ip]IzI└= 0I▌I≤I╒I╛щРdoing_105IІIюТ RISC OS 3.1x BASIC 1.05Iй1Т Address data for v1.05 added by J.G.HarstonIтIч0Patch_Off(1) = &B994:Т TEXTLOAD renumber 1,1IХ2Patch_Off(2) = &A044:Т Point to mnemonic tableIР)Patch_Off(3) = &A0E8:Т B patch_6809_2IЭ)Patch_Off(4) = &9FE8:Т B patch_6809_0J2Patch_Off(5) = &A87C:Т AND R0,R0,#15; mask OPTJJPatch_Off(50) = &A668J$Patch_Off(51) = &AA18J.1Patch_Off(52) = &A040:Т Search mnemonic tableJ8JBbasoff_p%   = -&C0JLbasoff_opt% = -&26JVbasoff_stracc% = -&600J`JjWhich$ = "BASIC105"JtJ~АJ┬J▓J°JіщРdoing_116J╟J╨Т RISC OS 3.70 BASIC 1.16JдJнPatch_Off(1) = &BAD4JьPatch_Off(2) = &A184JБPatch_Off(3) = &A228JЛPatch_Off(4) = &A128JЖPatch_Off(5) = &A9BCK K
Patch_Off(50) = &A7A8KPatch_Off(51) = &AB58KPatch_Off(52) = &A180K(K2basoff_p%      = -&C0K<basoff_opt%    = -&1EKFbasoff_stracc% = -&600KPKZWhich$ = "BASIC116"KdKnАKxK┌K▄K√щРdoing_119K═K╙Т RISC OS 4.02 BASIC 1.19KЄKЎPatch_Off(1) = &C588KхPatch_Off(2) = &A198KрPatch_Off(3) = &A35CKэPatch_Off(4) = &A14CKФPatch_Off(5) = &B204KПKЗPatch_Off(50) = &AFF0LPatch_Off(51) = &B498LPatch_Off(52) = &A194LL"basoff_p%      = -&C0L,basoff_opt%    = -&1EL6basoff_stracc% = -&600L@LJWhich$ = "BASIC119"LTL^АLhLrL|L├щРdoing_120L░L Т RISC OS 4.03 BASIC 1.20LєLўPatch_Off(1) = &C5B8L╦Patch_Off(2) = &A1CCLбPatch_Off(3) = &A390LлPatch_Off(4) = &A180LжPatch_Off(5) = &B238LЮLЙPatch_Off(50) = &B024LТPatch_Off(51) = &B4CCLЧPatch_Off(52) = &A1C8MMbasoff_p%      = -&C0Mbasoff_opt%    = -&1EM&basoff_stracc% = -&600M0M:Which$ = "BASIC120"MDMNАMXMbMlMvщРdoing_120xM─M┼'Т RISC OS 4.02 'mystery' BASIC 1.20M■M·Patch_Off(1) = &C5D4M╗Patch_Off(2) = &A1E0M╡Patch_Off(3) = &A3A4M╪Patch_Off(4) = &A194MфPatch_Off(5) = &B24CMпMзPatch_Off(50) = &B038MДPatch_Off(51) = &B4E0MНPatch_Off(52) = &A1DCMЬNbasoff_p%      = -&C0Nbasoff_opt%    = -&1ENbasoff_stracc% = -&600N N*Which$ = "BASIC120X"N4N>АNHNRN\NfщРdoing_128NpNzТ RISC OS 4.37 BASIC 1.28N└N▌Patch_Off(1) = &C678N≤Patch_Off(2) = &A244N╒Patch_Off(3) = &A408N╛Patch_Off(4) = &A1F8NІPatch_Off(5) = &B300NюNйPatch_Off(50) = &B0ECNтPatch_Off(51) = &B594NчPatch_Off(52) = &A240NХNРbasoff_p%      = -&C0NЭbasoff_opt%    = -&1AObasoff_stracc% = -&600OOWhich$ = "BASIC128"O$O.АO8OBOLOVщРdoing_129O`OjТ RISC OS 4.39 BASIC 1.29OtO~Patch_Off(1) = &C678O┬Patch_Off(2) = &A244O▓Patch_Off(3) = &A408O°Patch_Off(4) = &A1F8OіPatch_Off(5) = &B300O╟O╨Patch_Off(50) = &B0ECOдPatch_Off(51) = &B594OнPatch_Off(52) = &A240OьOБbasoff_p%      = -&C0OЛbasoff_opt%    = -&1AOЖbasoff_stracc% = -&600P P
Which$ = "BASIC129"PPАP(P2P<PFщРprime(code%, old%)PPPZРcheck(code%, old%, 0)PdPnАPxP┌P▄P√щРprim4(code%, old%)P═P╙Рcheck(code%, old%, 4)PЄPЎАPхPрPэPФ щРcheck(code%, old%, choff%)PПPЗ!P% = Data% + Patch_Off(code%)QQГ `P = %0000 ▀ АQQ"KГ P%!choff% <> old% ▄ ┘ 66, "Old doesn't match (code " + ц(code%) + ")"Q,Q6АЪ