 
Т >Basic6502 Т Т (?Т Patches BASIC V module to assemble 6502/65C02/65C816 code 2Т <Т F Т Version 1.30 (15 Dec 2009) P.Т by John Kortink, (c) Zeridajh 2005..2009 ZТ d$Т Version 1.30-jgh (21 Feb 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$ = "6502_" + 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=&32303536:Т "6502"≤	    м╒  м╛М 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Т	`Т 6502 assembler	jТ	t	~KГ Source% = 105 └ Source% = 116 ▄ word% = &E28F1014 ▀ word% = &E28F103C	┬Рprime(2, word%)	▓	°[OPT `P	і;	╟ BL patch_6502_1	╨;	д]	н	ьРprim4(3, &E202140F)	Б	Л[OPT `P	Ж;
  B patch_6502_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
П;
З6 ─ r0,r0,#%11111 ; change to match patch outside м;]"м,6Рprime(5, &E200001F)@J[OPT `PT;^ ─ r0,r0,#%11111111h;r]|├KГ Source% = 105 └ Source% = 116 ▄ word% = &E35A0080 ▀ word% = &E35A007F░Рprime(4, word%) є[OPT `Pў;╦ B patch_6502_0б;л]жЮТЙТ Other code pointsТТЧРprim4(50, &E51830C0)Рprime(51, &E92D4002)Рprime(52, &E1A00400)&0Т:Т Extra codeDТNXP% = Data% + Size%bl[OPT `Pv─┼■.patch_6502_0·;╗F TEQ r10,#token_OR                  ; 'Expand' tokenised mnemonics╡ LDREQB r1,[r11]╪ BICEQ r1,r1,#&20ф TEQEQ r1,#≈"A"п SUBEQ r11,r11,#1з LDREQ r0,mnem_ORAД BEQ Data%+Patch_Off(52)Н;Ь TEQ r10,#token_AND SUBEQ r11,r11,#2 LDREQ r0,mnem_AND BEQ Data%+Patch_Off(52) ;* TEQ r10,#token_EOR4 SUBEQ r11,r11,#2> LDREQ r0,mnem_EORH BEQ Data%+Patch_Off(52)R;\? BIC r0,r10,#&20                    ; Build 'mnemonic word'f;p LDRB r1,[r11,#0]z 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ч;Х EQUS "ORA "Р;Э.mnem_AND; EQUS "AND ";$.mnem_EOR.;8 EQUS "EOR "BLV`.patch_6502_1j;tU ADR r1,table_mnem_65xxx            ; Use 65xxx mnemonic table instead of ARM one~;┬0 MOV pc,r14                         ; Return▓°і╟.table_mnem_65xxx╨;д EQUS "ORA":EQUB &00н EQUS "AND":EQUB &02ь EQUS "EOR":EQUB &04Б EQUS "ADC":EQUB &06Л EQUS "STA":EQUB &08Ж EQUS "LDA":EQUB &0A  EQUS "CMP":EQUB &0C
 EQUS "SBC":EQUB &0E; EQUS "ASL":EQUB &10( EQUS "ROL":EQUB &122 EQUS "LSR":EQUB &14< EQUS "ROR":EQUB &16F;P EQUS "BRL":EQUB &20Z EQUS "BPL":EQUB &21d EQUS "BMI":EQUB &23n EQUS "BVC":EQUB &25x EQUS "BVS":EQUB &27┌ EQUS "BRA":EQUB &28▄ EQUS "BCC":EQUB &29√ EQUS "BCS":EQUB &2B═ EQUS "BNE":EQUB &2D╙ EQUS "BEQ":EQUB &2FЄ;Ў EQUS "BIT":EQUB &30х;р EQUS "CPX":EQUB &4Eэ EQUS "CPY":EQUB &4CФ;П EQUS "DEC":EQUB &5CЗ EQUS "INC":EQUB &5E; EQUS "JMP":EQUB &60;" EQUS "JSR":EQUB &70,;6 EQUS "LDX":EQUB &82@ EQUS "LDY":EQUB &80J;T EQUS "STX":EQUB &92^ EQUS "STY":EQUB &90h;r EQUS "TRB":EQUB &A0| EQUS "TSB":EQUB &A1├ EQUS "RMB":EQUB &A2░ EQUS "SMB":EQUB &A3  EQUS "BBR":EQUB &A4є EQUS "BBS":EQUB &A5ў EQUS "CLR":EQUB &A6╦ EQUS "STZ":EQUB &A6б EQUS "REP":EQUB &A8л EQUS "SEP":EQUB &A9ж EQUS "MVN":EQUB &AAЮ EQUS "MVP":EQUB &ABЙ EQUS "PEA":EQUB &ACТ EQUS "PEI":EQUB &ADЧ EQUS "PER":EQUB &AE EQUS "COP":EQUB &AF; EQUS "BRK":EQUB &B0& EQUS "CLC":EQUB &B10 EQUS "CLD":EQUB &B2: EQUS "CLI":EQUB &B3D EQUS "CLV":EQUB &B4N EQUS "DEX":EQUB &B5X EQUS "DEY":EQUB &B6b EQUS "INX":EQUB &B7l EQUS "INY":EQUB &B8v EQUS "NOP":EQUB &B9─ EQUS "PHA":EQUB &BA┼ EQUS "PHP":EQUB &BB■ EQUS "PLA":EQUB &BC· EQUS "PLP":EQUB &BD╗ EQUS "RTI":EQUB &BE╡ EQUS "RTS":EQUB &BF╪ EQUS "SEC":EQUB &C0ф EQUS "SED":EQUB &C1п EQUS "SEI":EQUB &C2з EQUS "TAX":EQUB &C3Д EQUS "TAY":EQUB &C4Н EQUS "TSX":EQUB &C5Ь EQUS "TXA":EQUB &C6 EQUS "TXS":EQUB &C7 EQUS "TYA":EQUB &C8 EQUS "DEA":EQUB &C9  EQUS "INA":EQUB &CA* EQUS "PHX":EQUB &CB4 EQUS "PHY":EQUB &CC> EQUS "PLX":EQUB &CDH EQUS "PLY":EQUB &CER EQUS "WAI":EQUB &CF\ EQUS "STP":EQUB &D0f EQUS "PHB":EQUB &D1p EQUS "PHD":EQUB &D2z EQUS "PHK":EQUB &D3└ EQUS "PLB":EQUB &D4▌ EQUS "PLD":EQUB &D5≤ EQUS "RTL":EQUB &D6╒ EQUS "TCD":EQUB &D7╛ EQUS "TAD":EQUB &D7І EQUS "TCS":EQUB &D8ю EQUS "TAS":EQUB &D8й EQUS "TDC":EQUB &D9т EQUS "TDA":EQUB &D9ч EQUS "TSC":EQUB &DAХ EQUS "TSA":EQUB &DAР EQUS "TXY":EQUB &DBЭ EQUS "TYX":EQUB &DC EQUS "XBA":EQUB &DD EQUS "SWA":EQUB &DD EQUS "XCE":EQUB &DE$;.H EQUS "OPT":EQUB &F0                ; (pass the other relevant ones)8 EQUS "EQU":EQUB &F1B EQUS "DCB":EQUB &F2L EQUS "DCW":EQUB &F3V EQUS "DCD":EQUB &F4`;j8 EQUD 0                             ; (end of table)t~┬▓.supported_opcodes°;і║;     0         1         2         3         4         5         6         7         8         9         A         B         C         D         E         F╟;╨╚ EQUB %111:EQUB %111:EQUB %100:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110    ; 0д╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110    ; 1н╚ EQUB %111:EQUB %111:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; 2ь╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110    ; 3Б╚ EQUB %111:EQUB %111:EQUB %100:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; 4Л╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %110    ; 5Ж╚ EQUB %111:EQUB %111:EQUB %100:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; 6 ╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %110:EQUB %111:EQUB %111:EQUB %110    ; 7
╚ EQUB %110:EQUB %111:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %110:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; 8╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %110:EQUB %111:EQUB %110:EQUB %110    ; 9╚ EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; A(╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; B2╚ EQUB %111:EQUB %111:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; C<╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %110:EQUB %100:EQUB %111:EQUB %111:EQUB %110    ; DF╚ EQUB %111:EQUB %111:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %111:EQUB %100:EQUB %111:EQUB %111:EQUB %111:EQUB %110    ; EP╚ EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %110:EQUB %111:EQUB %111:EQUB %110:EQUB %100:EQUB %100:EQUB %111:EQUB %111:EQUB %110    ; FZdnx.instr_6502┌;▄ EQUD 0√═╙Є.patch_6502_2Ў;хE MOV r3,r2,LSR#24                   ; Initialise processing flagsр;э; LDRB r10,[r11],#1                  ; To next characterФ;ПE CMP r3,#&A2                        ; Is this a 4-char mnemonic ?З RSBCSS r14,r3,#&A5@ BCS class_nobn                     ; Yes, don't skip spaces;5 BL skip_spaces                     ; Skip spaces";,.class_nobn6;@@ ADR r2,instr_6502+1                ; Buffer for instructionJ;T1 MOV r0,#0                          ; Wipe it^ STR r0,[r2]h;r> ADR r14,class_done                 ; Call 'class' handler| STMFD r13!,{r14}├ ─ r0,r3,#%11110000░ ADD pc,pc,r0,LSR#4-2  MOV r0,r0є;ў B class_ORA╦ B class_ASLб B class_BPLл B class_BITж B class_CPXЮ B class_DECЙ B class_JMPТ B class_JSRЧ B class_LDX B class_STX B class_TRB B class_BRK& B class_BRK0 B class_BRK: B class_BRKD EQUD 0N;X.class_doneb;l5 BL skip_spaces                     ; Skip spacesv;─= MOV r0,r3,LSR#24                   ; Buffer final opcode┼ STRB r0,instr_6502■;·8 MOV r1,#0                          ; Processor code╗ BL opt_16╡ MOVNE r1,#1╪ BL opt_32ф MOVNE r1,#2п;зN ADR r14,supported_opcodes          ; Instruction supported by processor ?Д LDRB r14,[r14,r0]Н MOV r14,r14,LSR r1Ь TST r14,#1< BEQ badop_error                    ; No, generate error;D ─ r0,r0,#%00000111               ; 65C02/65C816 conflict area ?  TEQ r0,#%00000111*, BNE badop_nconf                    ; No4;>D ─ r0,r3,#%11111111               ; Actual 'Rockwell' conflict ?H CMP r0,#&A2R RSBCSS r0,r0,#&A5\ MOVCS r0,#1f MOVCC r0,#2p;z TEQ r0,r1└= BNE badop_error                    ; Yes, generate error▌;≤.badop_nconf╒;╛@ ADR r1,instr_6502                  ; Return number of bytesІ SUB r2,r2,r1ю;й@ LDR r1,instr_6502                  ; Return bytes to outputт;ч@ B Data%+Patch_Off(50)              ; Join '0..4 bytes' codeХ;Р.badop_errorЭ; CMP r1,#1 BLO badop_error_6502 BEQ badop_error_65C02$ BHI badop_error_65C816.;8.badop_error_6502B;LD єgenerate_error_message(4, "Instruction not supported by 6502")V;`.badop_error_65C02j;tE єgenerate_error_message(4, "Instruction not supported by 65C02")~;┬.badop_error_65C816▓;°F єgenerate_error_message(4, "Instruction not supported by 65C816")і;╟;╨;д.eval_expr_prevн;ьA SUB r11,r11,#1                     ; Step back one characterБ LDRB r10,[r11,#-1]Л;Ж.eval_expr_curr ;
= STMFD r13!,{r1-r3,r14}             ; Evaluate expression; BL Data%+Patch_Off(51)(;2 LDMFD r13!,{r1-r3,pc}^<;F.eval_expr_prev_sizedP;ZA SUB r11,r11,#1                     ; Step back one characterd LDRB r10,[r11,#-1]n;x.eval_expr_curr_sized┌;▄.evxcs_skspc√;═9 LDRB r10,[r11],#1                  ; Skip any spaces╙ TEQ r10,#≈" "Є BEQ evxcs_skspcЎ;х@ TEQ r10,#≈"<"                    ; Size indicator present ?р TEQNE r10,#≈">"э TEQNE r10,#≈"^"Ф;П= BNE eval_expr_prev                 ; No, nothing to skipЗ;; CMP r10,#≈">"                    ; Flag size indicator └RLO r3,r3,#1<<16 └REQ r3,r3,#2<<16" └RHI r3,r3,#3<<16,;6< B eval_expr_curr                   ; And skip indicator@;J;T;^.hop_skip_spacesh;r8 LDRB r10,[r11],#1                  ; Skip character|;├.skip_spaces░; 9 TEQ r10,#≈" "                    ; Scan to non-spaceє LDREQB r10,[r11],#1ў BEQ skip_spaces╦;б MOVS pc,r14л;ж;Ю;Й.not_a_variableТ;Ч STMFD r13!,{r14}; LDRB r14,[r11];& CMP r14,#≈"A"0 BLO notav_chelo: CMP r14,#≈"Z"D BLS notav_isvarN;X.notav_chelob;l CMP r14,#≈"a"v BLO notav_chedi─ CMP r14,#≈"z"┼ BLS notav_isvar■;·.notav_chedi╗;╡ CMP r14,#≈"0"╪ BLO notav_cheotф CMP r14,#≈"9"п BLS notav_isvarз;Д.notav_cheotН;Ь TEQ r14,#≈"`" TEQNE r14,#≈"_" TEQNE r14,#≈"$" TEQNE r14,#≈"%"  TEQNE r14,#≈"("* BEQ notav_isvar4;> TEQ r14,r14H;R LDMFD r13!,{pc}\;f.notav_isvarp;z CMN r14,#1└;▌ LDMFD r13!,{pc}≤;╒;╛;І
.opt_2ю;й STMFD r13!,{r0,r14}т;ч LDRB r0,[r8,#basoff_opt%]Х TST r0,#2Р;Э LDMFD r13!,{r0,pc};;;$.opt_16.;8 STMFD r13!,{r0,r14}B;L LDRB r0,[r8,#basoff_opt%]V TST r0,#16`;j LDMFD r13!,{r0,pc}t;~;┬;▓.opt_32°;і STMFD r13!,{r0,r14}╟;╨ LDRB r0,[r8,#basoff_opt%]д TST r0,#32н;ь LDMFD r13!,{r0,pc}Б;Л;Ж; .mnem_bit_number
;A CMP r10,#≈"0"                    ; '0' .. '7', as expected ?3 BLO mnebn_error                    ; No, error( CMP r10,#≈"7"23 BHI mnebn_error                    ; No, error<;F9 SUB r0,r10,#≈"0"                 ; Return bit numberP;ZD B hop_skip_spaces                  ; Skip bit number and spacesd;n.mnebn_errorx;┌Q єgenerate_error_message(2, "Expected bit number (0-7) attached to mnemonic")▄;√;═;╙.is_left_bracketЄ;Ў7 TEQ r10,#≈"("                    ; Round bracket ?х7 BEQ isleb_match                    ; Yes (default)р;э8 TEQ r10,#≈"["                    ; Square bracket ?Ф6 └REQ r3,r3,#1<<23                 ; Yes (flag it)П;З.isleb_match;? MOV pc,r14                         ; Return (with flags !);";,;6.is_right_bracket@;J3 STMFD r13!,{r14}                   ; Save linkT;^> TST r3,#1<<23                      ; Which bracket type ?h ЛQ r14,#≈")"r MOVNE r14,#≈"]"|;├A TEQ r10,r14                        ; Correct right bracket ?░; ? LDMFD r13!,{pc}                    ; Return (with flags !)є;ў;╦;б.is_comma_Yл;ж= STMFD r13!,{r10,r11,r14}           ; Save used registersЮ;Й6 TEQ r10,#≈","                    ; Expected ',' ?Т6 BNE iscoy_done                     ; No, no matchЧ; ? BL hop_skip_spaces                 ; Skip ',', skip spaces ; 6 TEQ r10,#≈"Y"                    ; Expected 'Y' ? & TEQNE r10,#≈"y" 0; :.iscoy_done D; N? LDMFD r13!,{r10,r11,pc}            ; Return (with flags !) X; b; l; v.is_comma_S ─; ┼= STMFD r13!,{r10,r11,r14}           ; Save used registers ■; ·6 TEQ r10,#≈","                    ; Expected ',' ? ╗6 BNE iscos_done                     ; No, no match ╡; ╪? BL hop_skip_spaces                 ; Skip ',', skip spaces ф; п6 TEQ r10,#≈"S"                    ; Expected 'S' ? з TEQNE r10,#≈"s" Д; Н.iscos_done Ь;!? LDMFD r13!,{r10,r11,pc}            ; Return (with flags !)!;!;! ;!*.error_or_immediate_ha!4;!>? TEQ r10,#≈"#"                    ; Expected character(s) ?!H2 ЛQS pc,r14                      ; Yes, return!R;!\C єgenerate_error_message(2, "Immediate addressing: expected #")!f;!p;!z;!└.error_or_zeropagex_X!▌;!≤? TEQ r10,#≈"X"                    ; Expected character(s) ?!╒ TEQNE r10,#≈"x"!╛2 ЛQS pc,r14                      ; Yes, return!І;!юE єgenerate_error_message(3, "Zero-page,X addressing: expected X")!й;!т;!ч;!Х.error_or_zeropagey_Y!Р;!Э? TEQ r10,#≈"Y"                    ; Expected character(s) ?" TEQNE r10,#≈"y""2 ЛQS pc,r14                      ; Yes, return";"$E єgenerate_error_message(3, "Zero-page,Y addressing: expected Y")".;"8;"B;"L.error_or_absolutex_X"V;"`? TEQ r10,#≈"X"                    ; Expected character(s) ?"j TEQNE r10,#≈"x""t2 ЛQS pc,r14                      ; Yes, return"~;"┬D єgenerate_error_message(3, "Absolute,X addressing: expected X")"▓;"°;"і;"╟.error_or_absolutey_Y"╨;"д? TEQ r10,#≈"Y"                    ; Expected character(s) ?"н TEQNE r10,#≈"y""ь2 ЛQS pc,r14                      ; Yes, return"Б;"ЛD єgenerate_error_message(3, "Absolute,Y addressing: expected Y")"Ж;# ;#
;#.error_or_absolute_X_Y#;#(? TEQ r10,#≈"X"                    ; Expected character(s) ?#2 TEQNE r10,#≈"x"#< TEQNE r10,#≈"Y"#F TEQNE r10,#≈"y"#P2 ЛQS pc,r14                      ; Yes, return#Z;#dK єgenerate_error_message(3, "Absolute,X/Y addressing: expected X or Y")#n;#x;#┌;#▄.error_or_absolongx_X#√;#═? TEQ r10,#≈"X"                    ; Expected character(s) ?#╙ TEQNE r10,#≈"x"#Є2 ЛQS pc,r14                      ; Yes, return#Ў;#хI єgenerate_error_message(3, "Absolute Long,X addressing: expected X")#р;#э;#Ф;#П.error_or_indirect_ls#З;$? TEQ r10,#≈"("                    ; Expected character(s) ?$2 ЛQS pc,r14                      ; Yes, return$;$"B єgenerate_error_message(3, "Indirect addressing: expected (")$,;$6;$@;$J.error_or_indirect_co_rb$T;$^3 STMFD r13!,{r14}                   ; Save link$h;$r? TEQ r10,#≈","                    ; Expected character(s) ?$| BLNE is_right_bracket$├5 LDMEQFD r13!,{pc}^                 ; Yes, return$░;$  TST r3,#1<<23$є BNE ermsg_indirect_co_rh$ў;$╦.ermsg_indirect_co_rs$б;$лG єgenerate_error_message(3, "Indirect addressing: expected , or )")$ж;$Ю.ermsg_indirect_co_rh$Й;$ТG єgenerate_error_message(3, "Indirect addressing: expected , or ]")$Ч;%;%;%.error_or_indirect_X_S%&;%0? TEQ r10,#≈"X"                    ; Expected character(s) ?%: TEQNE r10,#≈"x"%D TEQNE r10,#≈"S"%N TEQNE r10,#≈"s"%X2 ЛQS pc,r14                      ; Yes, return%b;%lG єgenerate_error_message(3, "Indirect addressing: expected X or S")%v;%─;%┼;%■.error_or_indirect_rb%·;%╗3 STMFD r13!,{r14}                   ; Save link%╡;%╪A BL is_right_bracket                ; Expected character(s) ?%ф5 LDMEQFD r13!,{pc}^                 ; Yes, return%п;%з TST r3,#1<<23%Д BNE ermsg_indirect_rh%Н;%Ь.ermsg_indirect_rs&;&B єgenerate_error_message(3, "Indirect addressing: expected )")&;& .ermsg_indirect_rh&*;&4B єgenerate_error_message(3, "Indirect addressing: expected ]")&>;&H;&R;&\.error_or_indirectx_co&f;&p? TEQ r10,#≈","                    ; Expected character(s) ?&z2 ЛQS pc,r14                      ; Yes, return&└;&▌D єgenerate_error_message(3, "Indirect,X addressing: expected ,")&≤;&╒;&╛;&І.error_or_indirectx_X&ю;&й? TEQ r10,#≈"X"                    ; Expected character(s) ?&т TEQNE r10,#≈"x"&ч2 ЛQS pc,r14                      ; Yes, return&Х;&РD єgenerate_error_message(3, "Indirect,X addressing: expected X")&Э;';';'.error_or_indirectx_rb'$;'.3 STMFD r13!,{r14}                   ; Save link'8;'BA BL is_right_bracket                ; Expected character(s) ?'L5 LDMEQFD r13!,{pc}^                 ; Yes, return'V;'` TST r3,#1<<23'j BNE ermsg_indirectx_rh't;'~.ermsg_indirectx_rs'┬;'▓D єgenerate_error_message(3, "Indirect,X addressing: expected )")'°;'і.ermsg_indirectx_rh'╟;'╨D єgenerate_error_message(3, "Indirect,X addressing: expected ]")'д;'н;'ь;'Б.error_or_indirecty_Y'Л;'Ж? TEQ r10,#≈"Y"                    ; Expected character(s) ?(  TEQNE r10,#≈"y"(
2 ЛQS pc,r14                      ; Yes, return(;(D єgenerate_error_message(3, "Indirect,Y addressing: expected Y")((;(2;(<;(F.error_or_indirects_co(P;(Z? TEQ r10,#≈","                    ; Expected character(s) ?(d2 ЛQS pc,r14                      ; Yes, return(n;(xD єgenerate_error_message(3, "Indirect,S addressing: expected ,")(┌;(▄;(√;(═.error_or_indirects_Y(╙;(Є? TEQ r10,#≈"Y"                    ; Expected character(s) ?(Ў TEQNE r10,#≈"y"(х2 ЛQS pc,r14                      ; Yes, return(р;(эD єgenerate_error_message(3, "Indirect,S addressing: expected Y")(Ф;(П;(З;).error_or_indirects_rb);)3 STMFD r13!,{r14}                   ; Save link)";),A BL is_right_bracket                ; Expected character(s) ?)65 LDMEQFD r13!,{pc}^                 ; Yes, return)@;)J TST r3,#1<<23)T BNE ermsg_indirects_rh)^;)h.ermsg_indirects_rs)r;)|D єgenerate_error_message(3, "Indirect,S addressing: expected )"))├;)░.ermsg_indirects_rh) ;)єD єgenerate_error_message(3, "Indirect,S addressing: expected ]"))ў;)╦;)б;)л.error_or_BBx_co)ж;)Ю? TEQ r10,#≈","                    ; Expected character(s) ?)Й2 ЛQS pc,r14                      ; Yes, return)Т;)ЧT єgenerate_error_message(3, "BBR/BBS Zero-page,Relative addressing: expected ,")*;*;*;*&.error_or_MVx_co*0;*:? TEQ r10,#≈","                    ; Expected character(s) ?*D2 ЛQS pc,r14                      ; Yes, return*N;*XK єgenerate_error_message(3, "MVN/MVP Bank,Bank addressing: expected ,")*b;*l;*v;*─.error_if_constoverflowB*┼;*■A STMFD r13!,{r1,r14}                ; Save registers and link*·;*╗  ADR r1,ermsg_constoverflowB*╡;*╪ B error_if_byteoverflow*ф;*п.error_if_constoverflowS*з;*ДA STMFD r13!,{r1,r14}                ; Save registers and link*Н;*Ь  ADR r1,ermsg_constoverflowS+;+ B error_if_shortoverflow+;+ .error_if_zpaddroverflow+*;+4A STMFD r13!,{r1,r14}                ; Save registers and link+>;+H  ADR r1,ermsg_zpaddroverflow+R;+\ B error_if_byteoverflow+f;+p.error_if_banknroverflow+z;+└A STMFD r13!,{r1,r14}                ; Save registers and link+▌;+≤  ADR r1,ermsg_banknroverflow+╒;+╛ B error_if_byteoverflow+І;+ю.error_if_codebyteoverflow+й;+тA STMFD r13!,{r1,r14}                ; Save registers and link+ч;+Х" ADR r1,ermsg_codebyteoverflow+Р;+Э B error_if_byteoverflow,;,.error_if_shortoverflow,;,$4 CMP r0,#&10000                     ; In range ?,.5 LDMLOFD r13!,{r1,pc}^              ; Yes, return,8;,B8 MVN r14,#0                         ; Force in range,L BIC r0,r0,r14,LSL#16,V;,`2 B eiovr_chopt                      ; Continue,j;,t.error_if_byteoverflow,~;,┬4 CMP r0,#&100                       ; In range ?,▓5 LDMLOFD r13!,{r1,pc}^              ; Yes, return,°;,і6 ─ r0,r0,#&FF                     ; Force in range,╟;,╨.eiovr_chopt,д;,н8 BL opt_2                           ; Errors fatal ?,ь;,Б4 LDMEQFD r13!,{r1,pc}^              ; No, return,Л;,Ж= MOV r0,r1                          ; Yes, generate error- ;-
 B error_generate-;-.ermsg_constoverflowB-(;-2? єerror_message(2, "Immediate value out of range [0..255]")-<;-F.ermsg_constoverflowS-P;-ZA єerror_message(2, "Immediate value out of range [0..65535]")-d;-n.ermsg_zpaddroverflow-x;-┌A єerror_message(2, "Zero-page address out of range [0..255]")-▄;-√.ermsg_banknroverflow-═;-╙; єerror_message(1, "Bank number out of range [0..255]")-Є;-Ў.ermsg_codebyteoverflow-х;-р9 єerror_message(2, "Code byte out of range [0..255]")-э;-Ф;-П;-З.error_if_offsetoutofrange.;.A STMFD r13!,{r2-r3,r14}             ; Save registers and link.;."7 LDR r2,[r8,#basoff_p%]             ; Branch offset., ADD r2,r2,r1,LSR#30.6 SUB r0,r0,r2.@;.J4 MOV r3,#1                          ; In range ?.T MOV r3,r3,LSL r1.^ ADD r2,r0,r3,LSR#1.h CMP r2,r3.r5 LDMLOFD r13!,{r2-r3,pc}^           ; Yes, return.|;.├8 BL opt_2                           ; Errors fatal ?.░;. 4 LDMEQFD r13!,{r2-r3,pc}^           ; No, return.є;.ў< TEQ r1,#2<<30 └ 8                 ; Yes, generate error.╦( ADREQ r0,ermsg_offsetoutofrange_Bxx.б TEQ r1,#3<<30 └ 8.л( ADREQ r0,ermsg_offsetoutofrange_BBx.ж TEQ r1,#3<<30 └ 16.Ю( ADREQ r0,ermsg_offsetoutofrange_BRL.Й;.Т B error_generate.Ч;/.ermsg_offsetoutofrange_Bxx/;/D єerror_message(1, "Branch target out of range [P%-126,P%+129]")/&;/0.ermsg_offsetoutofrange_BBx/:;/DD єerror_message(1, "Branch target out of range [P%-125,P%+130]")/N;/X.ermsg_offsetoutofrange_BRL/b;/lH єerror_message(1, "Branch target out of range [P%-32765,P%+32770]")/v;/─;/┼;/■.error_generate/·;/╗ SWI "OS_GenerateError"/╡;/╪;/ф;/п.which_address_size/з;/ДA STMFD r13!,{r1,r14}                ; Save registers and link/Н;/Ь? CMP r0,#256                        ; Address size in bytes0 MOVLO r14,#10 MOVHS r14,#20;0  MOV r1,#%110* ─S r1,r1,r3,LSR#1604 ЛQ r1,r140>;0H> CMP r1,#2                          ; Which address size ?0R;0\? LDMFD r13!,{r1,pc}                 ; Return (with flags !)0f;0p;0z;0└.try_immediate0▌;0≤= TEQ r10,#≈"#"                    ; Immediate indicated ?0╒ TEQNE r10,#≈"%"0╛> MOVNES pc,r14                      ; No, so not immediate0І;0ю6 └R r3,r3,r1,LSL#24                ; Finish opcode0й;0т= MOV r1,r10                         ; Remember value size0ч;0ХG BL eval_expr_curr                  ; Past '#'/'%', immediate value0Р;0Э4 TEQ r1,#≈"%"                     ; Large size ?15 BEQ trim_large                     ; Yes, 16 bit1;1? BL error_if_constoverflowB         ; Error if not in range1$;1.B B finish_byte                      ; End with 1 argument byte18;1B.trim_large1L;1V? BL error_if_constoverflowS         ; Error if not in range1`;1jC B finish_dble                      ; End with 2 argument bytes1t;1~;1┬;1▓.try_zeropage1°;1і= TEQ r10,#≈","                    ; Zero-page indicated ?1╟> ЛQS pc,r14                      ; No (an indexed version)1╨;1д5 ─ r14,r1,#%11111111              ; Finish opcode1н └R r3,r3,r14,LSL#241ь;1БB B finish_byte                      ; End with 1 argument byte1Л;1Ж;2 ;2
.try_absolute2;2< TEQ r10,#≈","                    ; Absolute indicated ?2(> ЛQS pc,r14                      ; No (an indexed version)22;2<5 ─ r14,r1,#%11111111              ; Finish opcode2F └R r3,r3,r14,LSL#242P;2ZC B finish_dble                      ; End with 2 argument bytes2d;2n;2x;2┌.try_absolong2▄;2√A TEQ r10,#≈","                    ; Absolute long indicated ?2═> ЛQS pc,r14                      ; No (an indexed version)2╙;2Є5 ─ r14,r1,#%11111111              ; Finish opcode2Ў └R r3,r3,r14,LSL#242х;2рC B finish_trip                      ; End with 3 argument bytes2э;2Ф;2П;2З.try_indirect3;3> MOV r1,r14                         ; Indirect indicated ?3 BL is_left_bracket3"= MOVNES pc,r1                       ; No, so not indirect3,;36I BL eval_expr_curr                  ; Past '('/'[', zero-page address3@;3J? BL error_if_zpaddroverflow         ; Error if not in range3T;3^: TST r3,#1<<23                      ; Square bracket ?3h9 BNE trind_plory                    ; Yes (no [Zp,X])3r;3|> BL error_or_indirect_co_rb         ; Match ',' or ')'/']'3├;3░8 TEQ r10,#≈","                    ; Was it the ',' ?3 9 BNE trind_plory                    ; No (not (Zp,X))3є;3ў? BL hop_skip_spaces                 ; Skip ',', skip spaces3╦;3б: BL error_or_indirect_X_S           ; Match 'X' or 'S'3л;3ж: TEQ r10,#≈"S"                    ; Following is 'S' ?3Ю TEQNE r10,#≈"s"3Й; BEQ trind_strel                    ; Yes (is (Zp,S),Y)3Т;3Ч6 └R r3,r3,#%00000001<<24           ; Finish opcode4;4? BL hop_skip_spaces                 ; Skip 'X', skip spaces4;4&7 BL error_or_indirectx_rb           ; Match ')'/']'40;4:P B finish_hop_byte                  ; Skip ')'/']', end with 1 argument byte4D;4N.trind_plory4X;4b7 BL error_or_indirect_rb            ; Match ')'/']'4l;4v@ TST r3,#1<<23                      ; Finish opcode (for ,Y)4─ └REQ r3,r3,#%00010001<<244┼ └RNE r3,r3,#%00010111<<244■;4·C BL hop_skip_spaces                 ; Skip ')'/']', skip spaces4╗;4╡: TEQ r10,#≈","                    ; Following is ',' ?4╪9 BNE trind_plain                    ; No (not (Zp),Y)4ф;4п? BL hop_skip_spaces                 ; Skip ',', skip spaces4з;4Д3 BL error_or_indirecty_Y            ; Match 'Y'4Н;4ЬL B finish_hop_byte                  ; Skip 'Y', end with 1 argument byte5;5.trind_plain5;5 C TST r3,#1<<23                      ; Finish opcode (for plain)5* ┌EQ r3,r3,#%00000011<<2454 ┌NE r3,r3,#%00010000<<245>;5HB B finish_byte                      ; End with 1 argument byte5R;5\.trind_strel5f;5p6 └R r3,r3,#%00010011<<24           ; Finish opcode5z;5└? BL hop_skip_spaces                 ; Skip 'S', skip spaces5▌;5≤7 BL error_or_indirects_rb           ; Match ')'/']'5╒;5╛C BL hop_skip_spaces                 ; Skip ')'/']', skip spaces5І;5ю3 BL error_or_indirects_co           ; Match ','5й;5т? BL hop_skip_spaces                 ; Skip ',', skip spaces5ч;5Х3 BL error_or_indirects_Y            ; Match 'Y'5Р;5ЭL B finish_hop_byte                  ; Skip 'Y', end with 1 argument byte6;6;6;6$.do_zeropage_Xopt6.;68D BL try_zeropage                    ; Try (plain) zero-page mode6B;6L? BL hop_skip_spaces                 ; Skip ',', skip spaces6V;6`3 BL error_or_zeropagex_X            ; Match 'X'6j;6t7 MOV r14,r1,LSR#8                   ; Finish opcode6~ └R r3,r3,r14,LSL#246┬;6▓L B finish_hop_byte                  ; Skip 'X', end with 1 argument byte6°;6і;6╟;6╨.do_zeropage_XorYopt6д;6нD BL try_zeropage                    ; Try (plain) zero-page mode6ь;6Б? BL hop_skip_spaces                 ; Skip ',', skip spaces6Л;6Ж: TST r3,#%1111                      ; Match 'X' or 'Y'7  BLEQ error_or_zeropagex_X7
 BLNE error_or_zeropagey_Y7;77 MOV r14,r1,LSR#8                   ; Finish opcode7( └R r3,r3,r14,LSL#2472;7<S B finish_hop_byte                  ; Skip 'X' or 'Y', end with 1 argument byte7F;7P;7Z;7d.do_absolute_Xopt7n;7xC BL try_absolute                    ; Try (plain) absolute mode7┌;7▄? BL hop_skip_spaces                 ; Skip ',', skip spaces7√;7═3 BL error_or_absolutex_X            ; Match 'X'7╙;7Є7 MOV r14,r1,LSR#8                   ; Finish opcode7Ў └R r3,r3,r14,LSL#247х;7рM B finish_hop_dble                  ; Skip 'X', end with 2 argument bytes7э;7Ф;7П;7З.do_absolute_XorYopt8;8C BL try_absolute                    ; Try (plain) absolute mode8;8"? BL hop_skip_spaces                 ; Skip ',', skip spaces8,;86: TST r3,#%1111                      ; Match 'X' or 'Y'8@ BLEQ error_or_absolutex_X8J BLNE error_or_absolutey_Y8T;8^7 MOV r14,r1,LSR#8                   ; Finish opcode8h └R r3,r3,r14,LSL#248r;8|T B finish_hop_dble                  ; Skip 'X' or 'Y', end with 2 argument bytes8├;8░;8 ;8є.do_absolong_Xopt8ў;8╦H BL try_absolong                    ; Try (plain) absolute long mode8б;8л? BL hop_skip_spaces                 ; Skip ',', skip spaces8ж;8Ю3 BL error_or_absolongx_X            ; Match 'X'8Й;8Т7 MOV r14,r1,LSR#8                   ; Finish opcode8Ч └R r3,r3,r14,LSL#249;9M B finish_hop_trip                  ; Skip 'X', end with 3 argument bytes9;9&;90;9:.finish_hop_implied9D;9NC LDRB r10,[r11],#1                  ; Consume current character9X;9b B finish_implied9l;9v.finish_hop_byte9─;9┼C LDRB r10,[r11],#1                  ; Consume current character9■;9· B finish_byte9╗;9╡.finish_hop_dble9╪;9фC LDRB r10,[r11],#1                  ; Consume current character9п;9з B finish_dble9Д;9Н.finish_hop_trip9Ь;:C LDRB r10,[r11],#1                  ; Consume current character:;:.finish_trip: ;:*@ STRB r0,[r2],#1                    ; Buffer opcode argument:4 MOV r0,r0,LSR#8:>;:H.finish_dble:R;:\ STRB r0,[r2],#1:f MOV r0,r0,LSR#8:p;:z.finish_byte:└;:▌ STRB r0,[r2],#1:≤;:╒.finish_implied:╛;:І LDMFD r13!,{pc}:ю;:й;:т;:ч.class_BRK:Х;:Р5 ADR r0,table_implieds-&B0          ; Make opcode:Э LDRB r0,[r0,r3]; └R r3,r3,r0,LSL#24;;;C B finish_implied                   ; End with 0 argument bytes;$;;.;;8;;B.table_implieds;L;;V EQUB &00;` EQUB &18;j EQUB &D8;t EQUB &58;~ EQUB &B8;┬ EQUB &CA;▓ EQUB &88;° EQUB &E8;і EQUB &C8;╟ EQUB &EA;╨ EQUB &48;д EQUB &08;н EQUB &68;ь EQUB &28;Б EQUB &40;Л EQUB &60;Ж EQUB &38<  EQUB &F8<
 EQUB &78< EQUB &AA< EQUB &A8<( EQUB &BA<2 EQUB &8A<< EQUB &9A<F EQUB &98<P;<Z EQUB &3A<d EQUB &1A<n EQUB &DA<x EQUB &5A<┌ EQUB &FA<▄ EQUB &7A<√ EQUB &CB<═ EQUB &DB<╙;<Є EQUB &8B<Ў EQUB &0B<х EQUB &4B<р EQUB &AB<э EQUB &2B<Ф EQUB &6B<П EQUB &5B<З; dup ^= EQUB &1B=; dup ^= EQUB &7B="; dup ^=, EQUB &3B=6; dup ^=@ EQUB &9B=J EQUB &BB=T EQUB &EB=^; dup ^=h EQUB &FB=r;=|
 ALIGN=├;=░;= ;=є.class_BPL=ў;=╦/ TEQ r3,#&20                        ; BRL ?=б- BEQ class_BRL                      ; Yes=л;=ж4 └R r3,r3,r3,LSL#28                ; Make opcode=Ю;=Й: BL eval_expr_prev                  ; Absolute address=Т;=ЧV MOV r1,#2<<30 └ 8                 ; Error if resulting branch offset out of range>! BL error_if_offsetoutofrange>;>B B finish_byte                      ; End with 1 argument byte>&;>0;>:;>D.class_BRL>N;>X4 └R r3,r3,#%10000010<<24           ; Make opcode>b;>l: BL eval_expr_prev                  ; Absolute address>v;>─V MOV r1,#3<<30 └ 16                ; Error if resulting branch offset out of range>┼! BL error_if_offsetoutofrange>■;>·C B finish_dble                      ; End with 2 argument bytes>╗;>╡;>╪;>ф.class_JMP>п;>з> BL is_left_bracket                 ; Indirect indicated ?>Д= BEQ cljmp_ind                      ; Yes, handle as such>Н;>ЬF BL eval_expr_prev_sized            ; Absolute address (with size)?;?? MOV r1,#%11                        ; Address size in bytes? ─S r1,r1,r3,LSR#16?  ЛQ r1,#2?*;?4> CMP r1,#2                          ; Which address size ??>;?H4 └RLS r3,r3,#%01001100<<24         ; Make opcode?R └RHI r3,r3,#%01011100<<24?\;?fE BLS finish_dble                    ; End with 2/3 argument bytes?p BHI finish_trip?z;?└.cljmp_ind?▌;?≤H BL eval_expr_curr                  ; Past '('/'[', absolute address?╒;?╛: TST r3,#1<<23                      ; Square bracket ??І< BNE cljmp_noc                      ; Yes (no '[Abs,X]')?ю;?й> BL error_or_indirect_co_rb         ; Match ',' or ')'/']'?т;?ч8 TEQ r10,#≈","                    ; Was it the ',' ??Х; BNE cljmp_noc                      ; No, (not (Abs,X))?Р;?Э? BL hop_skip_spaces                 ; Skip ',', skip spaces@;@3 BL error_or_indirectx_X            ; Match 'X'@;@$? BL hop_skip_spaces                 ; Skip 'X', skip spaces@.;@87 BL error_or_indirectx_rb           ; Match ')'/']'@B;@L4 └R r3,r3,#%01111100<<24           ; Make opcode@V;@`Q B finish_hop_dble                  ; Skip ')'/']', end with 2 argument bytes@j;@t.cljmp_noc@~;@┬7 BL error_or_indirect_rb            ; Match ')'/']'@▓;@°5 TST r3,#1<<23                      ; Make opcode@і └REQ r3,r3,#%01101100<<24@╟ └RNE r3,r3,#%11011100<<24@╨;@дQ B finish_hop_dble                  ; Skip ')'/']', end with 2 argument bytes@н;@ь;@Б;@Л.class_JSR@Ж;A < TEQ r10,#≈"("                    ; Indirect indicated ?A
= BEQ cljsr_ind                      ; Yes, handle as suchA;AF BL eval_expr_prev_sized            ; Absolute address (with size)A(;A2? MOV r1,#%11                        ; Address size in bytesA< ─S r1,r1,r3,LSR#16AF ЛQ r1,#2AP;AZ> CMP r1,#2                          ; Which address size ?Ad;An4 └RLS r3,r3,#%00100000<<24         ; Make opcodeAx └RHI r3,r3,#%00100010<<24A┌;A▄E BLS finish_dble                    ; End with 2/3 argument bytesA√ BHI finish_tripA═;A╙.cljsr_indAЄ;AЎD BL eval_expr_curr                  ; Past '(', absolute addressAх;Aр3 BL error_or_indirectx_co           ; Match ','Aэ;AФ? BL hop_skip_spaces                 ; Skip ',', skip spacesAП;AЗ3 BL error_or_indirectx_X            ; Match 'X'B;B? BL hop_skip_spaces                 ; Skip 'X', skip spacesB;B"3 BL error_or_indirectx_rb           ; Match ')'B,;B64 └R r3,r3,#%11111100<<24           ; Make opcodeB@;BJM B finish_hop_dble                  ; Skip ')', end with 2 argument bytesBT;B^;Bh;Br.class_ORAB|;B├/ TEQ r3,#&08                        ; STA ?B░;B 5 └R r3,r3,r3,LSL#28                ; Start opcodeBє;BўC BEQ clora_sta                      ; STA has no immediate modeB╦;Bб< MOV r1,#%00001001                  ; Try immediate modeBл BL try_immediateBж;BЮ.clora_staBЙ;BТ; BL try_indirect                    ; Try indirect modeBЧ;CS BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)C;C> BL which_address_size              ; Which address size ?C&;C00 BHI clora_alo                      ; 3-byteC:0 BEQ clora_abs                      ; 2-byteCD;CNE BL is_comma_Y                      ; Zero-page,Y (unavailable) ?CXF BEQ clora_abs                      ; Yes, turn it into absolute,YCb;Cl< BL is_comma_S                      ; Stack-relative,S ?Cv? BEQ clora_sre                      ; Yes, special handlingC─;C┼C MOV r1,#%00000101                  ; Handle zero-page(,X) modeC■ └R r1,r1,#%0010101<<8C·;C╗ B do_zeropage_XoptC╡;C╪.clora_sreCф;Cп6 └R r3,r3,#%00000011<<24           ; Finish opcodeCз;CД? BL hop_skip_spaces                 ; Skip ',', skip spacesCН;CЬL B finish_hop_byte                  ; Skip 'S', end with 1 argument byteD;D.clora_absD;D C MOV r1,#%00001101                  ; Try (plain) absolute modeD* BL try_absoluteD4;D>? BL hop_skip_spaces                 ; Skip ',', skip spacesDH;DR: BL error_or_absolute_X_Y           ; Match 'X' or 'Y'D\;Df5 TEQ r10,#≈"X"                    ; Finish opcodeDp TEQNE r10,#≈"x"Dz └REQ r3,r3,#%00011101<<24D└ └RNE r3,r3,#%00011001<<24D▌;D≤T B finish_hop_dble                  ; Skip 'X' or 'Y', end with 2 argument bytesD╒;D╛.clora_aloDІ;DюG MOV r1,#%00001111                  ; Handle absolute long(,X) modeDй └R r1,r1,#%00011111<<8Dт;Dч B do_absolong_XoptDХ;DР;DЭ;E.class_ASLE;E5 └R r3,r3,r3,LSL#28                ; Start opcodeE$;E.. TEQ r10,#≈"A"                    ; Accu ?E8 TEQNE r10,#≈"a"EB BLEQ not_a_variableEL; └REQ r3,r3,#%00001010<<24         ; Yes, finish opcodeEVU BEQ finish_hop_implied             ; And skip 'A', and end with 0 argument bytesE`;EjS BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)Et;E~> BL which_address_size              ; Which address size ?E┬;E▓N MOV r1,#%00000110                  ; Handle zero-page/absolute(,X/Y) modeE° └R r1,r1,#%00010110<<8Eі BLO do_zeropage_XoptE╟ └R r1,r1,#%00001000E╨ └R r1,r1,#%00001000<<8Eд BHS do_absolute_XoptEн;Eь;EБ;EЛ.class_DECEЖ;F < TEQ r3,#&5C                        ; Opcode for DEA/INAF
 ЛQ r1,#%00111010F MOVNE r1,#%00011010F;F(. TEQ r10,#≈"A"                    ; Accu ?F2 TEQNE r10,#≈"a"F< BLEQ not_a_variableFF; └REQ r3,r3,r1,LSL#24              ; Yes, finish opcodeFPU BEQ finish_hop_implied             ; And skip 'A', and end with 0 argument bytesFZ;Fd5 └R r3,r3,r3,LSL#28                ; Start opcodeFn;FxS BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)F┌;F▄> BL which_address_size              ; Which address size ?F√;F═N MOV r1,#%00000110                  ; Handle zero-page/absolute(,X/Y) modeF╙ └R r1,r1,#%00010110<<8FЄ BLO do_zeropage_XoptFЎ └R r1,r1,#%00001000Fх └R r1,r1,#%00001000<<8Fр BHS do_absolute_XoptFэ;FФ;FП;FЗ.class_CPXG;G5 └R r3,r3,r3,LSL#28                ; Start opcodeG;G"< MOV r1,#%00000000                  ; Try immediate modeG, BL try_immediateG6;G@S BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)GJ;GT> BL which_address_size              ; Which address size ?G^;GhG └R r3,r3,#%00000100<<24           ; Handle zero-page/absolute modeGr BLO finish_byteG| └R r3,r3,#%00001000<<24G├ BHS finish_dbleG░;G ;Gє;Gў.class_BITG╦;Gб< MOV r1,#%10001001                  ; Try immediate modeGл BL try_immediateGж;GЮS BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)GЙ;GТ> BL which_address_size              ; Which address size ?GЧ;HN MOV r1,#%00100100                  ; Handle zero-page/absolute(,X/Y) modeH └R r1,r1,#%00110100<<8H BLO do_zeropage_XoptH& └R r1,r1,#%00001000H0 └R r1,r1,#%00001000<<8H: BHS do_absolute_XoptHD;HN;HX;Hb.class_LDXHl;Hv4 ─ r0,r3,#%00001111               ; Start opcodeH─ └R r0,r0,#%10100000H┼ └R r3,r3,r0,LSL#24H■;H·< MOV r1,#%00000000                  ; Try immediate modeH╗ BL try_immediateH╡;H╪S BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)Hф;Hп> BL which_address_size              ; Which address size ?Hз;HДN MOV r1,#%00000100                  ; Handle zero-page/absolute(,X/Y) modeHН └R r1,r1,#%00010100<<8HЬ BLO do_zeropage_XorYoptI └R r1,r1,#%00001000I └R r1,r1,#%00001000<<8I BHS do_absolute_XorYoptI ;I*;I4;I>.class_STXIH;IR4 ─ r0,r3,#%00001111               ; Start opcodeI\ └R r0,r0,#%10000000If └R r3,r3,r0,LSL#24Ip;IzS BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)I└;I▌> BL which_address_size              ; Which address size ?I≤;I╒@ └RHS r3,r3,#%00001100<<24         ; Absolute, finish opcodeI╛G BHS finish_dble                    ; And end with 2 argument bytesIІ;IюE MOV r1,#%00000100                  ; Handle zero-page(,X/Y) modeIй └R r1,r1,#%00010100<<8Iт;Iч B do_zeropage_XorYoptIХ;IР;IЭ;J.class_TRBJ;J= CMP r3,#&AF                        ; Dispatch instn codeJ$ BEQ class_COPJ. CMP r3,#&AEJ8 BEQ class_PERJB CMP r3,#&ADJL BEQ class_PEIJV CMP r3,#&ACJ` BEQ class_PEAJj CMP r3,#&AAJt BHS class_MVNJ~ CMP r3,#&A8J┬ BHS class_REPJ▓ CMP r3,#&A6J° BHS class_CLRJі CMP r3,#&A4J╟ BHS class_BBRJ╨ CMP r3,#&A2Jд BHS class_RMBJн;Jь6 TEQ r3,#&A0                        ; Start opcodeJБ └REQ r3,r3,#%00010000<<24JЛ └RNE r3,r3,#%00000000<<24JЖ;K S BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)K
;K> BL which_address_size              ; Which address size ?K;K(G └R r3,r3,#%00000100<<24           ; Handle zero-page/absolute modeK2 BLO finish_byteK< └R r3,r3,#%00001000<<24KF BHS finish_dbleKP;KZ;Kd;Kn.class_RMBKx;K┌6 TEQ r3,#&A2                        ; Start opcodeK▄ └REQ r3,r3,#%00000111<<24K√ └RNE r3,r3,#%10000111<<24K═;K╙> BL mnem_bit_number                 ; Check for bit numberKЄ;KЎA └R r3,r3,r0,LSL#28                ; Add bit number to opcodeKх;Kр; BL eval_expr_prev                  ; Zero-page addressKэ;KФ? BL error_if_zpaddroverflow         ; Error if not in rangeKП;KЗB B finish_byte                      ; End with 1 argument byteL;L;L;L".class_BBRL,;L66 TEQ r3,#&A4                        ; Start opcodeL@ └REQ r3,r3,#%00001111<<24LJ └RNE r3,r3,#%10001111<<24LT;L^> BL mnem_bit_number                 ; Check for bit numberLh;LrA └R r3,r3,r0,LSL#28                ; Add bit number to opcodeL|;L├; BL eval_expr_prev                  ; Zero-page addressL░;L ? BL error_if_zpaddroverflow         ; Error if not in rangeLє;LўD STMFD r13!,{r0}                    ; Remember zero-page addressL╦;Lб3 BL error_or_BBx_co                 ; Match ','Lл;Lж? BL hop_skip_spaces                 ; Skip ',', skip spacesLЮ;LЙ: BL eval_expr_prev                  ; Absolute addressLТ;LЧV MOV r1,#3<<30 └ 8                 ; Error if resulting branch offset out of rangeM! BL error_if_offsetoutofrangeM;M> LDMFD r13!,{r1}                    ; Merge argument bytesM& └R r0,r1,r0,LSL#8M0;M:C B finish_dble                      ; End with 2 argument bytesMD;MN;MX;Mb.class_CLRMl;MvS BL eval_expr_prev_sized            ; Zero-page or absolute address (with size)M─;M┼> BL which_address_size              ; Which address size ?M■;M·N MOV r1,#%01100100                  ; Handle zero-page/absolute(,X/Y) modeM╗ └R r1,r1,#%01110100<<8M╡ BLO do_zeropage_XoptM╪ MOV r1,#%10011100Mф └R r1,r1,#%10011110<<8Mп BHS do_absolute_XoptMз;MД;MН;MЬ.class_REPN;N5 TEQ r3,#&A8                        ; Make opcodeN └REQ r3,r3,#%11000010<<24N  └RNE r3,r3,#%11100010<<24N*;N43 BL error_or_immediate_ha           ; Match '#'N>;NHC BL eval_expr_curr                  ; Past '#', immediate valueNR;N\? BL error_if_constoverflowB         ; Error if not in rangeNf;NpB B finish_byte                      ; End with 1 argument byteNz;N└;N▌;N≤.class_MVNN╒;N╛5 TEQ r3,#&AA                        ; Make opcodeNІ └REQ r3,r3,#%01010100<<24Nю └RNE r3,r3,#%01000100<<24Nй;Nт; BL eval_expr_prev                  ; Bank number (src)Nч;NХ? BL error_if_banknroverflow         ; Error if not in rangeNР;NЭ> STMFD r13!,{r0}                    ; Remember bank numberO;O3 BL error_or_MVx_co                 ; Match ','O;O$? BL hop_skip_spaces                 ; Skip ',', skip spacesO.;O8; BL eval_expr_prev                  ; Bank number (dst)OB;OL? BL error_if_banknroverflow         ; Error if not in rangeOV;O`> LDMFD r13!,{r1}                    ; Merge argument bytesOj └R r0,r0,r1,LSL#8Ot;O~C B finish_dble                      ; End with 2 argument bytesO┬;O▓;O°;Oі.class_PEAO╟;O╨4 └R r3,r3,#%11110100<<24           ; Make opcodeOд;Oн: BL eval_expr_prev                  ; Absolute addressOь;OБC B finish_dble                      ; End with 2 argument bytesOЛ;OЖ;P ;P
.class_PEIP;P4 └R r3,r3,#%11010100<<24           ; Make opcodeP(;P23 BL error_or_indirect_ls            ; Match '('P<;PF? BL hop_skip_spaces                 ; Skip '(', skip spacesPP;PZ; BL eval_expr_prev                  ; Zero-page addressPd;Pn? BL error_if_zpaddroverflow         ; Error if not in rangePx;P┌3 BL error_or_indirect_rb            ; Match ')'P▄;P√L B finish_hop_byte                  ; Skip ')', end with 1 argument byteP═;P╙;PЄ;PЎ.class_PERPх;Pр4 └R r3,r3,#%01100010<<24           ; Make opcodePэ;PФ: BL eval_expr_prev                  ; Absolute addressPП;PЗV MOV r1,#3<<30 └ 16                ; Error if resulting branch offset out of rangeQ! BL error_if_offsetoutofrangeQ;QC B finish_dble                      ; End with 2 argument bytesQ";Q,;Q6;Q@.class_COPQJ;QT4 └R r3,r3,#%00000010<<24           ; Make opcodeQ^;Qh3 BL eval_expr_prev                  ; Code byteQr;Q|? BL error_if_codebyteoverflow       ; Error if not in rangeQ├;Q░B B finish_byte                      ; End with 1 argument byteQ QєQўQ╦]QбQлМQжQЮSize% = P% - Data%QЙQТАQЧRRR-щєerror_message(asm_err%, error_message$)R&R0[OPT `PR:;RD EQUD asm_err%RN EQUS error_message$RX EQUB 0Rb;Rl
 ALIGNRv;R─]R┼R■= 0R·R╗R╡R╪6щєgenerate_error_message(asm_err%, error_message$)RфRп[OPT `PRз;RД ADR r0,P%+2*4RН;RЬ B error_generateS;S- єerror_message(asm_err%, error_message$)S;S ]S*S4= 0S>SHSRS\щРdoing_105SfSpТ RISC OS 3.1x BASIC 1.05Sz1Т Address data for v1.05 added by J.G.HarstonS└S▌0Patch_Off(1) = &B994:Т TEXTLOAD renumber 1,1S≤2Patch_Off(2) = &A044:Т Point to mnemonic tableS╒)Patch_Off(3) = &A0E8:Т B patch_6502_2S╛)Patch_Off(4) = &9FE8:Т B patch_6502_0SІ2Patch_Off(5) = &A87C:Т AND R0,R0,#15; mask OPTSюSйPatch_Off(50) = &A668SтPatch_Off(51) = &AA18Sч1Patch_Off(52) = &A040:Т Search mnemonic tableSХSРbasoff_p%   = -&C0SЭbasoff_opt% = -&26TTWhich$ = "BASIC105"TT$АT.T8TBTLщРdoing_116TVT`Т RISC OS 3.70 BASIC 1.16TjTtPatch_Off(1) = &BAD4T~Patch_Off(2) = &A184T┬Patch_Off(3) = &A228T▓Patch_Off(4) = &A128T°Patch_Off(5) = &A9BCTіT╟Patch_Off(50) = &A7A8T╨Patch_Off(51) = &AB58TдPatch_Off(52) = &A180TнTьbasoff_p%   = -&C0TБbasoff_opt% = -&1ETЛTЖWhich$ = "BASIC116"U U
АUUU(U2щРdoing_119U<UFТ RISC OS 4.02 BASIC 1.19UPUZPatch_Off(1) = &C588UdPatch_Off(2) = &A198UnPatch_Off(3) = &A35CUxPatch_Off(4) = &A14CU┌Patch_Off(5) = &B204U▄U√Patch_Off(50) = &AFF0U═Patch_Off(51) = &B498U╙Patch_Off(52) = &A194UЄUЎbasoff_p%   = -&C0Uхbasoff_opt% = -&1EUрUэWhich$ = "BASIC119"UФUПАUЗVVVщРdoing_120V"V,Т RISC OS 4.03 BASIC 1.20V6V@Patch_Off(1) = &C5B8VJPatch_Off(2) = &A1CCVTPatch_Off(3) = &A390V^Patch_Off(4) = &A180VhPatch_Off(5) = &B238VrV|Patch_Off(50) = &B024V├Patch_Off(51) = &B4CCV░Patch_Off(52) = &A1C8V Vєbasoff_p%   = -&C0Vўbasoff_opt% = -&1EV╦VбWhich$ = "BASIC120"VлVжАVЮVЙVТVЧщРdoing_120xWW'Т RISC OS 4.02 'mystery' BASIC 1.20WW&Patch_Off(1) = &C5D4W0Patch_Off(2) = &A1E0W:Patch_Off(3) = &A3A4WDPatch_Off(4) = &A194WNPatch_Off(5) = &B24CWXWbPatch_Off(50) = &B038WlPatch_Off(51) = &B4E0WvPatch_Off(52) = &A1DCW─W┼basoff_p%   = -&C0W■basoff_opt% = -&1EW·W╗Which$ = "BASIC120X"W╡W╪АWфWпWзWДщРdoing_128WНWЬТ RISC OS 4.37 BASIC 1.28XXPatch_Off(1) = &C678XPatch_Off(2) = &A244X Patch_Off(3) = &A408X*Patch_Off(4) = &A1F8X4Patch_Off(5) = &B300X>XHPatch_Off(50) = &B0ECXRPatch_Off(51) = &B594X\Patch_Off(52) = &A240XfXpbasoff_p%   = -&C0Xzbasoff_opt% = -&1AX└X▌Which$ = "BASIC128"X≤X╒АX╛XІXюXйщРdoing_129XтXчТ RISC OS 4.39 BASIC 1.29XХXРPatch_Off(1) = &C678XЭPatch_Off(2) = &A244YPatch_Off(3) = &A408YPatch_Off(4) = &A1F8YPatch_Off(5) = &B300Y$Y.Patch_Off(50) = &B0ECY8Patch_Off(51) = &B594YBPatch_Off(52) = &A240YLYVbasoff_p%   = -&C0Y`basoff_opt% = -&1AYjYtWhich$ = "BASIC129"Y~Y┬АY▓Y°YіY╟щРprime(code%, old%)Y╨YдРcheck(code%, old%, 0)YнYьАYБYЛYЖZ щРprim4(code%, old%)Z
ZРcheck(code%, old%, 4)ZZ(АZ2Z<ZFZP щРcheck(code%, old%, choff%)ZZZd!P% = Data% + Patch_Off(code%)ZnZxГ `P = %0000 ▀ АZ┌Z▄KГ P%!choff% <> old% ▄ ┘ 66, "Old doesn't match (code " + ц(code%) + ")"Z√Z═АЪ