Home » Personal collection » Acorn tapes » Own_Work » box01_tape15a_d60_acorn_joystick_progs.wav » DISASS
DISASS
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn tapes » Own_Work » box01_tape15a_d60_acorn_joystick_progs.wav |
Filename: | DISASS |
Read OK: | ✔ |
File size: | 2381 bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF8023 |
File contents
10MODE 6:HIMEM=&7000:LOMEM=&6400 20VDU 28,0,24,39,16 30OSBYTE=&FFF4:OSWORD=&FFF1:OSASCI=&FFE3:OSWRCH=&FFEE 40OSRDCH=&FFE0:CLI=&FFF7 50OUT=&70:PUT=&71:SP=&72:BPT=&74 60CONBLK=&76:HI=&81:LO=&80:DISP=&82:DH=&83 70UP=&85:STK=&86:ACR=&84 80OLO=&7B:OHI=&7C:OUMB=&88 90HA=&8D:HB=&8E:HC=&8F 100DLINES=&7D:NUMB=&7E:TEMPSTACK=&7F 110FOR OP=0 TO 3 STEP 3 120P%=&5400 450[OPT OP 460TSX:STX TEMPSTACK 480LDA#0:STA CONBLK:LDA#6:STA CONBLK+1 500LDA#ASC("D"):STA DISP 520LDX#(ST1 MOD 256) 530LDY#(ST1 DIV 256) 540JSR OUTPUT 560LDA#4:LDX#1:JSR OSBYTE 590.L5 JSR DISPLAY 610.L7 JSR KEYIN 630CMP#ASC("D"):BNE NOND 650.STD STA DISP:JMP L5 660.NOND CMP#ASC("L"):BEQ STD 690CMP #ASC("H"):BNE NONH 710.HGIN LDX#15:LDY#2:JSR SETAB 730LDA#4:LDX#ASC("0"):LDY#ASC("F"):JSR STRIN 750JSR DHEX:BCCHGIN:LDA DH:STA HI 770LDA&602:STA&600:LDA&603:STA&601:JSR DHEX 790BCC HGIN:LDA DH:STA LO:JMP L5 800.NONH CMP#ASC("F"):BNE NOF 820.FGIN LDX#15:LDY#3:JSR SETAB 830LDA#2:LDX#ASC("0"):LDY#ASC("F"):JSR STRIN 840JSR DHEX:BCC FGIN:LDA DISP:CMP#ASC("L"):BNE OVSWAP 850LDA OLO:SEC:SBC OUMB:STA LO:LDA OHI:SBC#0:STA HI 860.OVSWAP 870LDY#0:LDA DH:.FLOOP INC LO:BNE OVHI:INC HI:.OVHI CMP(LO),Y:BNE FLOOP 880JMP L5 910.NOF LDX DISP:CPX#ASC("L"):BNE NONF:JMP LCOM 950.NONF CMP#&88:BNE NLEFT 970LDA LO:BNE DE1:DEC HI:.DE1 DEC LO:JMP L5 990.NLEFT CMP#&89:BNE NRT 1010INC LO:BNE DE2:INC HI:.DE2 JMP L5 1030.NRT CMP#&8A:BNE NDOWN 1050LDA LO:CLC:ADC#8:STA LO 1060LDA HI:ADC#0:STA HI:JMP L5 1080.NDOWN CMP#&8B:BNE NMOVE 1100LDA LO:SEC:SBC#8:STA LO 1110LDA HI:SBC#0:STA HI:JMP L5 1140.NMOVE CMP#ASC("A"):BNE NONA 1160.AGIN LDY#14 1180LDA ACR:ASL A:CLC:ADC ACR:CLC:ADC#6 1200TAX:JSR SETAB 1220LDA#2:LDX#ASC("0"):LDY#ASC("F"):JSR STRIN 1240JSR DHEX:BCC AGIN:LDA DH:LDY#0:STA (LO),Y 1250JMP L5 1290.DHEX LDA&600:CMP #ASC("9")+1:BCS AL1 1300AND#&0F:BCC TIP 1310.AL1 CMP #ASC("A"):BCC ERHEX:SBC #ASC("A")-10 1330.TIP ASL A:ASL A:ASL A:ASL A:STA DH 1340LDA&601:CMP #ASC("9")+1:BCS AL2 1350AND#&0F:BCC BOT 1360.AL2 CMP #ASC("A"):BCC ERHEX:SBC #ASC("A")-10 1380.BOT ORA DH:STA DH:SEC 1400.ERHEX RTS 1440.NONA CMP #ASC("S")BNE NONS 1460.SGIN LDY#14:LDA ACR:CLC:ADC#30:TAX:JSR SETAB 1480LDA#255:LDX #ASC(" "):LDY #ASC("~"):JSR STRIN 1500LDX#0:LDY#0 1520.LOP LDA&600,X:CMP#&0D:BEQ FINLOP 1530STA (LO),Y:INY:INX:BNE LOP 1540.FINLOP JMP L5 1570.NONS 1580JMP L7 1620.LCOM CMP#&0D:BNE NONCR 1640LDA OLO:STA LO:LDA OHI:STA HI:JMP L5 1660.NONCR CMP#&8B:BNE NONS 1680LDA OLO:INC OUMB:SEC:SBC OUMB:STA LO 1690LDA OHI:SBC#0:STA HI:JMP L5 1720.DIS LDX#(ST2 MOD 256) 1730LDY#(ST2 DIV 256) 1750JSR OUTPUT 1770LDA#16:STA DLINES 1780.LINLOP 1800LDA HI:JSR HEX:LDA LO:JSR HEXSP 1830LDY#0:LDX#3 1840.HALOP LDA(LO),Y:STA HA,Y:INY:DEX:BNE HALOP 1860LDX HA:LDA TYPE,X:TAX:LDA NUM,X 1880STA NUMB:CLC:ADC LO:STA LO:LDA#0:ADC HI:STA HI 1900LDX NUMB:LDY#3:LDA HA:JSR HEXSP:DEY:DEX:BEQ PAD 1910LDA HB:JSR HEXSP:DEY:DEX:BEQ PAD 1920LDA HC:JSR HEXSP:DEX:BEQ MNEM 1940.PAD TYA:PHA 1950LDX#(ST4 MOD 256):LDY#(ST4 DIV 256):JSR OUTPUT 1960PLA:TAY:DEY:BNE PAD 1980.MNEM LDA #ASC(" "):JSR OSASCI 2000LDX HA:LDA HASH,X:ASL A:ASL A:STA OUT 2020LDA#(STRING DIV 256):STA PUT:LDX#4:LDY#0 2040.MNMLOP LDA (OUT),Y:JSR OSASCI:INY:DEX:BNE MNMLOP 2050LDA #ASC(" "):JSR OSASCI 2070LDX HA:LDA TYPE,X:CMP#1:BNE NOD1 2090LDA #ASC("#"):JSR OSASCI:LDA #ASC("&"):JSR OSASCI 2110LDA HB:JSR HEXSP:LDY#5:JMP NDLINE 2130.NOD1 CMP#2:BNE NOD2 2150LDA #ASC("&"):JSR OSASCI:LDA HC:JSR HEX 2160LDA HB:JSR HEXSP:LDY#4:JMP NDLINE 2180.NOD2 CMP#3:BNE NOD3 2200LDA #ASC("&"):JSR OSASCI:LDA HB:JSR HEXSP 2210LDY#6:JMP NDLINE 2230.NOD3 CMP#4:BNE NOD4 2250LDA #ASC("A"):JSR OSASCI:LDY#9:JMP NDLINE 2270.NOD4:CMP#5:BNE NOD5 2290LDY#10:JMP NDLINE 2310.NOD5 CMP#6:BNE NOD6 2330LDA #ASC("("):JSR OSASCI:LDA #ASC("&"):JSR OSASCI 2340LDA HB:JSR HEX:LDA #ASC(","):JSR OSASCI 2350LDA #ASC("X"):JSR OSASCI:LDA #ASC(")"):JSR OSASCI 2360LDY#3:JMP NDLINE 2380.NOD6 CMP#7:BNE NOD7 2400LDA#ASC("("):JSR OSASCI:LDA#ASC("&"):JSR OSASCI 2410LDA HB:JSR HEX:LDA#ASC(")"):JSR OSASCI 2420LDA#ASC(","):JSR OSASCI:LDA#ASC("Y"):JSR OSASCI 2430LDY#3:JMP NDLINE 2450.NOD7 CMP#8:BNE NOD8 2470LDA#ASC("&"):JSR OSASCI:LDA HB:JSR HEX 2480LDA#ASC(","):JSR OSASCI:LDA#ASC("X"):JSR OSASCI 2490LDY#5:JMP NDLINE 2510.NOD8 CMP#9:BNE NOD9 2530LDA#ASC("&"):JSR OSASCI:LDA HC:JSR HEX 2540LDA HB:JSR HEX:LDA#ASC(","):JSR OSASCI 2550LDA#ASC("X"):JSR OSASCI 2560LDY#3:JMP NDLINE 2580.NOD9 CMP#&A:BNE NODA 2600LDA#ASC("&"):JSR OSASCI:LDA HC:JSR HEX 2610LDA HB:JSR HEX:LDA#ASC(","):JSR OSASCI 2620LDA#ASC("Y"):JSR OSASCI 2630LDY#3:JMP NDLINE 2650.NODA CMP#&B:BNE NODB 2670LDA#ASC("&"):JSR OSASCI 2690LDA HB:CMP#&7F:BCS BACK 2710CLC:ADC LO:PHA LDA#0:ADC HI:CLC:BCC REL 2730.BACK EOR#255:ADC#0:STA&70:LDA LO:SEC:SBC&70 2740PHA:LDA HI:SBC#0 2760.REL JSR HEX:PLA:JSR HEXSP 2770LDY#4:JMP NDLINE 2790.NODB CMP#&C:BNE NODC 2810LDA#ASC("("):JSR OSASCI:LDA#ASC("&"):JSR OSASCI 2820LDA HC:JSR HEX:LDA HB:JSR HEX 2830LDA#ASC(")"):JSR OSASCI:LDY#3:JMP NDLINE 2850.NODC CMP#&D:BNE NODD 2870LDA#ASC("&"):JSR OSASCI:LDA HB:JSR HEX 2880LDA#ASC(","):JSR OSASCI:LDA#ASC("Y"):JSR OSASCI 2890LDY#5:JMP NDLINE 2910.NODD LDY#10 2930.NDLINE LDA#ASC(" "):JSR OSASCI:DEY:BPL NDLINE 2950LDX NUMB:LDY#0 2960.DISPLOP LDA HA,Y:JSR CHOUT:INY:DEX:BNE DISPLOP 2980LDA#ASC(" "):.PAD2 JSR OSASCI:INY:CPY#4:BNE PAD2 3000LDX#5:.PAD3 JSR OSASCI:DEX:BNE PAD3 3030LDA DLINES:CMP#16:BNE OVOLD 3050LDA LO:STA OLO:LDA HI:STA OHI 3060LDA NUMB:STA OUMB 3080.OVOLD DEC DLINES:BEQ FINLIN:JMP LINLOP 3090.FINLIN RTS 3130.DISPLAY LDY#2:LDX#15:JSR SETAB 3150LDA HI:JSR HEX:LDA LO:JSR HEXSP: 3170LDA DISP:CMP#ASC("L"):BEQ DDISP 3190JSR SHOW:RTS 3210.DDISP JSR DIS:RTS 3250.SHOW LDX#(ST2 MOD256) 3260LDY#(ST2 DIV256) 3280JSR OUTPUT 3300LDA LO:AND#&F8:SEC:SBC#64:STA UP 3310LDA HI:SBC#0:STA STK 3330LDA LO:AND#7:STA ACR 3350LDX#0:.L4 STX STK+1:LDA#8:CLC:ADC UP:STA UP 3360LDA #0:ADC STK:STA STK 3380JSR HEX:LDA UP:JSR HEXSP:LDA#ASC(" "):JSR OSASCI 3400LDX#0:.L2 STX STK+2:TXA 3410TAY 3430LDA(UP),Y:JSR HEXSP 3450LDX STK+2:INX:CPX#8:BNE L2 3470LDX#0:.L3 STX STK+2:TXA 3490TAY 3500LDA(UP),Y:JSR CHOUT 3520LDX STK+2:INX:CPX#8:BNE L3 3540LDA#ASC(" "):JSR OSASCI:JSR OSASCI 3560LDX STK+1:INX:CPX#16:BNE L4 3580LDY#14:LDA ACR:ASL A:CLC:ADC ACR 3590ADC#5:STA STK+1:TAX:JSR SETAB 3610LDA#ASC("["):JSR OSASCI 3620LDA STK+1:CLC:ADC#3:TAX:LDY#14:JSR SETAB 3640LDA#ASC("]"):JSR OSASCI 3650RTS 3690.CHOUT CMP#ASC(" "):BCC DUF 3710CMP#&7F:BCC OK 3740.DUF LDA#ASC(".") 3750.OK JSR OSASCI:RTS 3790.SETAB STY ST3+2:STX ST3+1 3800LDX#(ST3 MOD256):LDY#(ST3 DIV256) 3810JSR OUTPUT:RTS 3850.KEYIN LDX#0:LDA#21:JSR OSBYTE 3860JSR OSRDCH:BCS KEYERR:RTS 3880.KEYERR STA STK+1 3890LDX#(ST6 MOD256):LDY#(ST6 DIV256):JSR CLI 3900LDA STK+1:CMP#&1B:BNE KERR 3920LDA#&7E:JSR OSBYTE 3930.KERR 3950LDX#0:LDY#22:JSR SETAB:LDX TEMPSTACK:TXS 3980BRK:EQUB99 3990EQUS"END OF DIS" 4010BRK 4050.OUTPUT STX&70:STY&71 4060LDY#0 4070.LOOP LDA(&70),Y:CMP#&FF:BEQ OUTEND 4080JSR OSASCI:INY:BNE LOOP 4090.OUTEND RTS 4130.HEXSP JSR HEX:LDA#&20:JMP OSWRCH 4150.HEX 4170PHA:LSR A:LSR A:LSR A:LSR A 4180JSR HEXDIG:PLA:AND#&F 4190.HEXDIG CMP#&A:BCC HEXDIH:ADC#6 4200.HEXDIH ADC#&30:JMP OSWRCH 4250.STRIN STA CONBLK+2:STX CONBLK+3:STY CONBLK+4 4260LDX#(ST5 MOD256) 4270LDY#(ST5 DIV256):JSR OUTPUT 4280LDA#0:LDX# CONBLK:TAY:JSR OSWORD 4290BCS ESC1:RTS 4300.ESC1 LDA#&1B:JMP KEYERR 4310] 4320ST1=P%+1:!ST1=&0D0C0616:P%=P%+5 4330$P%=" ELECTRON DEBUGGER D DUMP MEMORY " 4340$(P%+40)=" H HEX ADDR. : 0000 L LISTING " 4350$(P%+80)=" F FIND BYTE : 00 A ALTER BYTE " 4360$(P%+120)=" S STRING" 4370P%=P%+LEN($P%):?P%=&FF 4380ST2=P%+1:!ST2=&00000117:ST2!4=0:P%=P%+9 4390!P%=&001F0000:P%=P%+4:!P%=&FF07:P%=P%+2 4400ST3=P%:!P%=&0000001F:P%!4=&FF000000:P%=P%+8 4410ST4=P%:!P%=&FF202020:P%=P%+4 4420ST5=P%:!P%=&00010117:ST5!4=0:P%=P%+8 4430!P%=&FF000000:P%=P%+4 4440ST6=P%:$ST6="FX4,0":P%=P%+6 4450RESTORE 4460NUM=P%:FOR I=0 TO 14:READ N%:P%?I=N%:NEXT I 4470P%=P%+15 4480P%=(P% DIV256)+1:P%=P%*256 4490HASH=P%:TYPE=P%+256:P%=P%+512:STRING=P% 4500NEXT OP 4510FOR I%=0 TO 255 STEP 4:HASH!I%=0:TYPE!I%=0:STRING!I%=0:NEXT I% 4520REPEAT 4530READ A$:IF A$="*" THEN 4570 4540IF ASC(A$)=ASC("-") THEN I=ABS(VAL(A$)):GOTO 4530 4550M=EVAL("&"+LEFT$(A$,1)):MN=EVAL("&"+RIGHT$(A$,2)) 4560HASH?MN=I:TYPE?MN=M 4570UNTIL A$="*" 4580A$=" --- ADC AND ASL BCC BCS BEQ BIT BMI BNE" 4590A$=A$+" BPL BRK BVC BVS CLC CLD CLI CLV CMP CPX" 4600A$=A$+" CPY DEC DEX DEY EOR INC INX INY JMP JSR" 4610A$=A$+" LDA LDX LDY LSR NOP ORA PHA PHP PLA PLP" 4620A$=A$+" ROL ROR RTI RTS SBC SEC SED SEI STA STX" 4630A$=A$+" STY TAX TAY TSX TXA TXS TYA" 4640$STRING=A$ 4650END 4660DATA1,2,3,2,1,1,2,2,2,3,3,2,3,2,1 4670DATA-1,169,26D,365,661,771,875,97D,A79 4680DATA-2,129,22D,325,621,731,835,93D,A39 4690DATA-3,20E,306,40A,816,91E 4700DATA-4,B90 4710DATA-5,BB0 4720DATA-6,BF0 4730DATA-7,22C,324 4740DATA-8,B30 4750DATA-9,BD0 4760DATA-10,B10 4770DATA-11,500 4780DATA-12,B50 4790DATA-13,B70 4800DATA-14,518 4810DATA-15,5D8 4820DATA-16,558 4830DATA-17,5B8 4840DATA-18,1C9,2CD,3C5,6C1,7D1,8D5,9DD,AD9 4850DATA-19,1E0,2EC,3E4 4860DATA-20,1C0,2CC,3C4 4870DATA-21,2CE,3C6,8D6,9DE 4880DATA-22,5CA 4890DATA-23,588 4900DATA-24,149,24D,345,641,751,855,95D,A59 4910DATA-25,2EE,3E6,8F6,9FE 4920DATA-26,5E8 4930DATA-27,5C8 4940DATA-28,24C,C6C 4950DATA-29,220 4960DATA-30,1A9,2AD,3A5,6A1,7B1,8B5,9BD,AB9 4970DATA-31,1A2,2AE,3A6,ABE,DB6 4980DATA-32,1A0,2AC,3A4,8B4,9BC 4990DATA-33,24E,346,44A,856,95E 5000DATA-34,5EA 5010DATA-35,109,20D,305,601,711,815,91D,A19 5020DATA-36,548 5030DATA-37,508 5040DATA-38,568 5050DATA-39,528 5060DATA-40,22E,326,42A,836,93E 5070DATA-41,26E,366,46A,876,97E 5080DATA-42,540 5090DATA-43,560 5100DATA-44,1E9,2ED,3E5,6E1,7F1,8F5,9FD,AF9 5110DATA-45,538 5120DATA-46,5F8 5130DATA-47,578 5140DATA-48,28D,385,681,791,895,99D,A99 5150DATA-49,28E,386,D96 5160DATA-50,28C,384,894 5170DATA-51,5AA 5180DATA-52,5A8 5190DATA-53,5BA 5200DATA-54,58A 5210DATA-55,59A 5220DATA-56,598,*
� 6:�=&7000:�=&6400 � 28,0,24,39,16 7OSBYTE=&FFF4:OSWORD=&FFF1:OSASCI=&FFE3:OSWRCH=&FFEE (OSRDCH=&FFE0:CLI=&FFF7 2"OUT=&70:PUT=&71:SP=&72:BPT=&74 <,CONBLK=&76:HI=&81:LO=&80:DISP=&82:DH=&83 FUP=&85:STK=&86:ACR=&84 POLO=&7B:OHI=&7C:OUMB=&88 ZHA=&8D:HB=&8E:HC=&8F d%DLINES=&7D:NUMB=&7E:TEMPSTACK=&7F n� OP=0 � 3 � 3 xP%=&5400 �[OPT OP �TSX:STX TEMPSTACK �'LDA#0:STA CONBLK:LDA#6:STA CONBLK+1 �LDA#�("D"):STA DISP LDX#(ST1 � 256) LDY#(ST1 � 256) JSR OUTPUT 0LDA#4:LDX#1:JSR OSBYTE N.L5 JSR DISPLAY b.L7 JSR KEYIN vCMP#�("D"):BNE NOND �.STD STA DISP:JMP L5 �.NOND CMP#�("L"):BEQ STD �CMP #�("H"):BNE NONH � .HGIN LDX#15:LDY#2:JSR SETAB �)LDA#4:LDX#�("0"):LDY#�("F"):JSR STRIN �"JSR DHEX:BCCHGIN:LDA DH:STA HI ,LDA&602:STA&600:LDA&603:STA&601:JSR DHEX !BCC HGIN:LDA DH:STA LO:JMP L5 .NONH CMP#�("F"):BNE NOF 4 .FGIN LDX#15:LDY#3:JSR SETAB >)LDA#2:LDX#�("0"):LDY#�("F"):JSR STRIN H4JSR DHEX:BCC FGIN:LDA DISP:CMP#�("L"):BNE OVSWAP R4LDA OLO:SEC:SBC OUMB:STA LO:LDA OHI:SBC#0:STA HI \.OVSWAP fHLDY#0:LDA DH:.FLOOP INC LO:BNE OVHI:INC HI:.OVHI CMP(LO),Y:BNE FLOOP p JMP L5 �..NOF LDX DISP:CPX#�("L"):BNE NONF:JMP LCOM �.NONF CMP#&88:BNE NLEFT �,LDA LO:BNE DE1:DEC HI:.DE1 DEC LO:JMP L5 �.NLEFT CMP#&89:BNE NRT �%INC LO:BNE DE2:INC HI:.DE2 JMP L5 .NRT CMP#&8A:BNE NDOWN LDA LO:CLC:ADC#8:STA LO $LDA HI:ADC#0:STA HI:JMP L5 8.NDOWN CMP#&8B:BNE NMOVE LLDA LO:SEC:SBC#8:STA LO VLDA HI:SBC#0:STA HI:JMP L5 t.NMOVE CMP#�("A"):BNE NONA �.AGIN LDY#14 �'LDA ACR:ASL A:CLC:ADC ACR:CLC:ADC#6 �TAX:JSR SETAB �)LDA#2:LDX#�("0"):LDY#�("F"):JSR STRIN �-JSR DHEX:BCC AGIN:LDA DH:LDY#0:STA (LO),Y � JMP L5 '.DHEX LDA&600:CMP #�("9")+1:BCS AL1 �#&0F:BCC TIP -.AL1 CMP #�("A"):BCC ERHEX:SBC #�("A")-10 2'.TIP ASL A:ASL A:ASL A:ASL A:STA DH <!LDA&601:CMP #�("9")+1:BCS AL2 F�#&0F:BCC BOT P-.AL2 CMP #�("A"):BCC ERHEX:SBC #�("A")-10 d.BOT �A DH:STA DH:SEC x.ERHEX RTS �.NONA CMP #�("S")BNE NONS �1.SGIN LDY#14:LDA ACR:CLC:ADC#30:TAX:JSR SETAB �-LDA#255:LDX #�(" "):LDY #�("~"):JSR STRIN �LDX#0:LDY#0 �%.LOP LDA&600,X:CMP#&0D:BEQ FINLOP �STA (LO),Y:INY:INX:BNE LOP .FINLOP JMP L5 " .NONS , JMP L7 T.LCOM CMP#&0D:BNE NONCR h(LDA OLO:STA LO:LDA OHI:STA HI:JMP L5 |.NONCR CMP#&8B:BNE NONS �(LDA OLO:INC OUMB:SEC:SBC OUMB:STA LO �LDA OHI:SBC#0:STA HI:JMP L5 �.DIS LDX#(ST2 � 256) �LDY#(ST2 � 256) �JSR OUTPUT �LDA#16:STA DLINES �.LINLOP #LDA HI:JSR HEX:LDA LO:JSR HEXSP &LDY#0:LDX#3 0/.HALOP LDA(LO),Y:STA HA,Y:INY:DEX:BNE HALOP D#LDX HA:LDA TYPE,X:TAX:LDA NUM,X X2STA NUMB:CLC:ADC LO:STA LO:LDA#0:ADC HI:STA HI l3LDX NUMB:LDY#3:LDA HA:JSR HEXSP:DEY:DEX:BEQ PAD v$LDA HB:JSR HEXSP:DEY:DEX:BEQ PAD �!LDA HC:JSR HEXSP:DEX:BEQ MNEM �.PAD TYA:PHA �.LDX#(ST4 � 256):LDY#(ST4 � 256):JSR OUTPUT �PLA:TAY:DEY:BNE PAD � .MNEM LDA #�(" "):JSR OSASCI �)LDX HA:LDA HASH,X:ASL A:ASL A:STA OUT �*LDA#(STRING � 256):STA PUT:LDX#4:LDY#0 �5.MNMLOP LDA (OUT),Y:JSR OSASCI:INY:DEX:BNE MNMLOP LDA #�(" "):JSR OSASCI $LDX HA:LDA TYPE,X:CMP#1:BNE NOD1 *1LDA #�("#"):JSR OSASCI:LDA #�("&"):JSR OSASCI >%LDA HB:JSR HEXSP:LDY#5:JMP NDLINE R.NOD1 CMP#2:BNE NOD2 f)LDA #�("&"):JSR OSASCI:LDA HC:JSR HEX p%LDA HB:JSR HEXSP:LDY#4:JMP NDLINE �.NOD2 CMP#3:BNE NOD3 �+LDA #�("&"):JSR OSASCI:LDA HB:JSR HEXSP �LDY#6:JMP NDLINE �.NOD3 CMP#4:BNE NOD4 �+LDA #�("A"):JSR OSASCI:LDY#9:JMP NDLINE �.NOD4:CMP#5:BNE NOD5 �LDY#10:JMP NDLINE .NOD5 CMP#6:BNE NOD6 1LDA #�("("):JSR OSASCI:LDA #�("&"):JSR OSASCI $)LDA HB:JSR HEX:LDA #�(","):JSR OSASCI .1LDA #�("X"):JSR OSASCI:LDA #�(")"):JSR OSASCI 8LDY#3:JMP NDLINE L.NOD6 CMP#7:BNE NOD7 `/LDA#�("("):JSR OSASCI:LDA#�("&"):JSR OSASCI j(LDA HB:JSR HEX:LDA#�(")"):JSR OSASCI t/LDA#�(","):JSR OSASCI:LDA#�("Y"):JSR OSASCI ~LDY#3:JMP NDLINE �.NOD7 CMP#8:BNE NOD8 �(LDA#�("&"):JSR OSASCI:LDA HB:JSR HEX �/LDA#�(","):JSR OSASCI:LDA#�("X"):JSR OSASCI �LDY#5:JMP NDLINE �.NOD8 CMP#9:BNE NOD9 �(LDA#�("&"):JSR OSASCI:LDA HC:JSR HEX �(LDA HB:JSR HEX:LDA#�(","):JSR OSASCI �LDA#�("X"):JSR OSASCI LDY#3:JMP NDLINE .NOD9 CMP#&A:BNE NODA ((LDA#�("&"):JSR OSASCI:LDA HC:JSR HEX 2(LDA HB:JSR HEX:LDA#�(","):JSR OSASCI <LDA#�("Y"):JSR OSASCI FLDY#3:JMP NDLINE Z.NODA CMP#&B:BNE NODB nLDA#�("&"):JSR OSASCI �LDA HB:CMP#&7F:BCS BACK �+CLC:ADC LO:PHA LDA#0:ADC HI:CLC:BCC REL �..BACK �#255:ADC#0:STA&70:LDA LO:SEC:SBC&70 �PHA:LDA HI:SBC#0 �.REL JSR HEX:PLA:JSR HEXSP �LDY#4:JMP NDLINE �.NODB CMP#&C:BNE NODC �/LDA#�("("):JSR OSASCI:LDA#�("&"):JSR OSASCI !LDA HC:JSR HEX:LDA HB:JSR HEX *LDA#�(")"):JSR OSASCI:LDY#3:JMP NDLINE ".NODC CMP#&D:BNE NODD 6(LDA#�("&"):JSR OSASCI:LDA HB:JSR HEX @/LDA#�(","):JSR OSASCI:LDA#�("Y"):JSR OSASCI JLDY#5:JMP NDLINE ^.NODD LDY#10 r0.NDLINE LDA#�(" "):JSR OSASCI:DEY:BPL NDLINE �LDX NUMB:LDY#0 �3.DISPLOP LDA HA,Y:JSR CHOUT:INY:DEX:BNE DISPLOP �2LDA#�(" "):.PAD2 JSR OSASCI:INY:CPY#4:BNE PAD2 �'LDX#5:.PAD3 JSR OSASCI:DEX:BNE PAD3 �LDA DLINES:CMP#16:BNE OVOLD �!LDA LO:STA OLO:LDA HI:STA OHI �LDA NUMB:STA OUMB +.OVOLD DEC DLINES:BEQ FINLIN:JMP LINLOP .FINLIN RTS :#.DISPLAY LDY#2:LDX#15:JSR SETAB N$LDA HI:JSR HEX:LDA LO:JSR HEXSP: b!LDA DISP:CMP#�("L"):BEQ DDISP vJSR SHOW:RTS �.DDISP JSR DIS:RTS �.SHOW LDX#(ST2 �256) �LDY#(ST2 �256) �JSR OUTPUT �"LDA LO:�#&F8:SEC:SBC#64:STA UP �LDA HI:SBC#0:STA STK LDA LO:�#7:STA ACR /LDX#0:.L4 STX STK+1:LDA#8:CLC:ADC UP:STA UP LDA #0:ADC STK:STA STK 42JSR HEX:LDA UP:JSR HEXSP:LDA#�(" "):JSR OSASCI HLDX#0:.L2 STX STK+2:TXA RTAY fLDA(UP),Y:JSR HEXSP zLDX STK+2:INX:CPX#8:BNE L2 �LDX#0:.L3 STX STK+2:TXA �TAY �LDA(UP),Y:JSR CHOUT �LDX STK+2:INX:CPX#8:BNE L3 �$LDA#�(" "):JSR OSASCI:JSR OSASCI �LDX STK+1:INX:CPX#16:BNE L4 �$LDY#14:LDA ACR:ASL A:CLC:ADC ACR !ADC#5:STA STK+1:TAX:JSR SETAB LDA#�("["):JSR OSASCI $,LDA STK+1:CLC:ADC#3:TAX:LDY#14:JSR SETAB 8LDA#�("]"):JSR OSASCI BRTS j.CHOUT CMP#�(" "):BCC DUF ~CMP#&7F:BCC OK �.DUF LDA#�(".") �.OK JSR OSASCI:RTS �.SETAB STY ST3+2:STX ST3+1 �!LDX#(ST3 �256):LDY#(ST3 �256) �JSR OUTPUT:RTS ".KEYIN LDX#0:LDA#21:JSR OSBYTE JSR OSRDCH:BCS KEYERR:RTS (.KEYERR STA STK+1 2)LDX#(ST6 �256):LDY#(ST6 �256):JSR CLI <LDA STK+1:CMP#&1B:BNE KERR PLDA#&7E:JSR OSBYTE Z .KERR n,LDX#0:LDY#22:JSR SETAB:LDX TEMPSTACK:TXS �BRK:EQUB99 �EQUS"END OF DIS" �BRK �.OUTPUT STX&70:STY&71 � LDY#0 �'.LOOP LDA(&70),Y:CMP#&FF:BEQ OUTEND �JSR OSASCI:INY:BNE LOOP �.OUTEND RTS "%.HEXSP JSR HEX:LDA#&20:JMP OSWRCH 6.HEX JPHA:LSR A:LSR A:LSR A:LSR A TJSR HEXDIG:PLA:�#&F ^#.HEXDIG CMP#&A:BCC HEXDIH:ADC#6 h.HEXDIH ADC#&30:JMP OSWRCH �1.STRIN STA CONBLK+2:STX CONBLK+3:STY CONBLK+4 �LDX#(ST5 �256) �LDY#(ST5 �256):JSR OUTPUT �$LDA#0:LDX# CONBLK:TAY:JSR OSWORD �BCS ESC1:RTS �.ESC1 LDA#&1B:JMP KEYERR �] �#ST1=P%+1:!ST1=&0D0C0616:P%=P%+5 �2$P%=" ELECTRON DEBUGGER D DUMP MEMORY " �7$(P%+40)=" H HEX ADDR. : 0000 L LISTING " �7$(P%+80)=" F FIND BYTE : 00 A ALTER BYTE " -$(P%+120)=" S STRING" P%=P%+�($P%):?P%=&FF +ST2=P%+1:!ST2=&00000117:ST2!4=0:P%=P%+9 &+!P%=&001F0000:P%=P%+4:!P%=&FF07:P%=P%+2 0/ST3=P%:!P%=&0000001F:P%!4=&FF000000:P%=P%+8 : ST4=P%:!P%=&FF202020:P%=P%+4 D(ST5=P%:!P%=&00010117:ST5!4=0:P%=P%+8 N!P%=&FF000000:P%=P%+4 XST6=P%:$ST6="FX4,0":P%=P%+6 b� l&NUM=P%:� I=0 � 14:� N%:P%?I=N%:� I vP%=P%+15 �P%=(P% �256)+1:P%=P%*256 �+HASH=P%:TYPE=P%+256:P%=P%+512:STRING=P% �� OP �9� I%=0 � 255 � 4:HASH!I%=0:TYPE!I%=0:STRING!I%=0:� I% �� �� A$:� A$="*" � �dZQ �&� �(A$)=�("-") � I=�(�(A$)):� �trQ �$M=�("&"+�A$,1)):MN=�("&"+�A$,2)) �HASH?MN=I:TYPE?MN=M �� A$="*" �1A$=" --- ADC AND ASL BCC BCS BEQ BIT BMI BNE" �4A$=A$+" BPL BRK BVC BVS CLC CLD CLI CLV CMP CPX" �4A$=A$+" CPY DEC DEX DEY EOR INC INX INY JMP JSR" 4A$=A$+" LDA LDX LDY LSR NOP ORA PHA PHP PLA PLP" 4A$=A$+" ROL ROR RTI RTS SBC SEC SED SEI STA STX" (A$=A$+" STY TAX TAY TSX TXA TXS TYA" $STRING=A$ *� 4"�1,2,3,2,1,1,2,2,2,3,3,2,3,2,1 >'�-1,169,26D,365,661,771,875,97D,A79 H'�-2,129,22D,325,621,731,835,93D,A39 R�-3,20E,306,40A,816,91E \�-4,B90 f�-5,BB0 p�-6,BF0 z�-7,22C,324 ��-8,B30 ��-9,BD0 ��-10,B10 ��-11,500 ��-12,B50 ��-13,B70 ��-14,518 ��-15,5D8 ��-16,558 ��-17,5B8 �(�-18,1C9,2CD,3C5,6C1,7D1,8D5,9DD,AD9 ��-19,1E0,2EC,3E4 ��-20,1C0,2CC,3C4 �-21,2CE,3C6,8D6,9DE �-22,5CA �-23,588 $(�-24,149,24D,345,641,751,855,95D,A59 .�-25,2EE,3E6,8F6,9FE 8�-26,5E8 B�-27,5C8 L�-28,24C,C6C V�-29,220 `(�-30,1A9,2AD,3A5,6A1,7B1,8B5,9BD,AB9 j�-31,1A2,2AE,3A6,ABE,DB6 t�-32,1A0,2AC,3A4,8B4,9BC ~�-33,24E,346,44A,856,95E ��-34,5EA �(�-35,109,20D,305,601,711,815,91D,A19 ��-36,548 ��-37,508 ��-38,568 ��-39,528 ��-40,22E,326,42A,836,93E ��-41,26E,366,46A,876,97E ��-42,540 ��-43,560 �(�-44,1E9,2ED,3E5,6E1,7F1,8F5,9FD,AF9 ��-45,538 �-46,5F8 �-47,578 $�-48,28D,385,681,791,895,99D,A99 �-49,28E,386,D96 (�-50,28C,384,894 2�-51,5AA <�-52,5A8 F�-53,5BA P�-54,58A Z�-55,59A d�-56,598,* �
00000000 0d 00 0a 17 eb 20 36 3a d3 3d 26 37 30 30 30 3a |..... 6:.=&7000:| 00000010 d2 3d 26 36 34 30 30 0d 00 14 13 ef 20 32 38 2c |.=&6400..... 28,| 00000020 30 2c 32 34 2c 33 39 2c 31 36 0d 00 1e 37 4f 53 |0,24,39,16...7OS| 00000030 42 59 54 45 3d 26 46 46 46 34 3a 4f 53 57 4f 52 |BYTE=&FFF4:OSWOR| 00000040 44 3d 26 46 46 46 31 3a 4f 53 41 53 43 49 3d 26 |D=&FFF1:OSASCI=&| 00000050 46 46 45 33 3a 4f 53 57 52 43 48 3d 26 46 46 45 |FFE3:OSWRCH=&FFE| 00000060 45 0d 00 28 1a 4f 53 52 44 43 48 3d 26 46 46 45 |E..(.OSRDCH=&FFE| 00000070 30 3a 43 4c 49 3d 26 46 46 46 37 0d 00 32 22 4f |0:CLI=&FFF7..2"O| 00000080 55 54 3d 26 37 30 3a 50 55 54 3d 26 37 31 3a 53 |UT=&70:PUT=&71:S| 00000090 50 3d 26 37 32 3a 42 50 54 3d 26 37 34 0d 00 3c |P=&72:BPT=&74..<| 000000a0 2c 43 4f 4e 42 4c 4b 3d 26 37 36 3a 48 49 3d 26 |,CONBLK=&76:HI=&| 000000b0 38 31 3a 4c 4f 3d 26 38 30 3a 44 49 53 50 3d 26 |81:LO=&80:DISP=&| 000000c0 38 32 3a 44 48 3d 26 38 33 0d 00 46 1a 55 50 3d |82:DH=&83..F.UP=| 000000d0 26 38 35 3a 53 54 4b 3d 26 38 36 3a 41 43 52 3d |&85:STK=&86:ACR=| 000000e0 26 38 34 0d 00 50 1c 4f 4c 4f 3d 26 37 42 3a 4f |&84..P.OLO=&7B:O| 000000f0 48 49 3d 26 37 43 3a 4f 55 4d 42 3d 26 38 38 0d |HI=&7C:OUMB=&88.| 00000100 00 5a 18 48 41 3d 26 38 44 3a 48 42 3d 26 38 45 |.Z.HA=&8D:HB=&8E| 00000110 3a 48 43 3d 26 38 46 0d 00 64 25 44 4c 49 4e 45 |:HC=&8F..d%DLINE| 00000120 53 3d 26 37 44 3a 4e 55 4d 42 3d 26 37 45 3a 54 |S=&7D:NUMB=&7E:T| 00000130 45 4d 50 53 54 41 43 4b 3d 26 37 46 0d 00 6e 12 |EMPSTACK=&7F..n.| 00000140 e3 20 4f 50 3d 30 20 b8 20 33 20 88 20 33 0d 00 |. OP=0 . 3 . 3..| 00000150 78 0c 50 25 3d 26 35 34 30 30 0d 01 c2 0b 5b 4f |x.P%=&5400....[O| 00000160 50 54 20 4f 50 0d 01 cc 15 54 53 58 3a 53 54 58 |PT OP....TSX:STX| 00000170 20 54 45 4d 50 53 54 41 43 4b 0d 01 e0 27 4c 44 | TEMPSTACK...'LD| 00000180 41 23 30 3a 53 54 41 20 43 4f 4e 42 4c 4b 3a 4c |A#0:STA CONBLK:L| 00000190 44 41 23 36 3a 53 54 41 20 43 4f 4e 42 4c 4b 2b |DA#6:STA CONBLK+| 000001a0 31 0d 01 f4 17 4c 44 41 23 97 28 22 44 22 29 3a |1....LDA#.("D"):| 000001b0 53 54 41 20 44 49 53 50 0d 02 08 13 4c 44 58 23 |STA DISP....LDX#| 000001c0 28 53 54 31 20 83 20 32 35 36 29 0d 02 12 13 4c |(ST1 . 256)....L| 000001d0 44 59 23 28 53 54 31 20 81 20 32 35 36 29 0d 02 |DY#(ST1 . 256)..| 000001e0 1c 0e 4a 53 52 20 4f 55 54 50 55 54 0d 02 30 1a |..JSR OUTPUT..0.| 000001f0 4c 44 41 23 34 3a 4c 44 58 23 31 3a 4a 53 52 20 |LDA#4:LDX#1:JSR | 00000200 4f 53 42 59 54 45 0d 02 4e 13 2e 4c 35 20 4a 53 |OSBYTE..N..L5 JS| 00000210 52 20 44 49 53 50 4c 41 59 0d 02 62 11 2e 4c 37 |R DISPLAY..b..L7| 00000220 20 4a 53 52 20 4b 45 59 49 4e 0d 02 76 17 43 4d | JSR KEYIN..v.CM| 00000230 50 23 97 28 22 44 22 29 3a 42 4e 45 20 4e 4f 4e |P#.("D"):BNE NON| 00000240 44 0d 02 8a 18 2e 53 54 44 20 53 54 41 20 44 49 |D.....STD STA DI| 00000250 53 50 3a 4a 4d 50 20 4c 35 0d 02 94 1c 2e 4e 4f |SP:JMP L5.....NO| 00000260 4e 44 20 43 4d 50 23 97 28 22 4c 22 29 3a 42 45 |ND CMP#.("L"):BE| 00000270 51 20 53 54 44 0d 02 b2 18 43 4d 50 20 23 97 28 |Q STD....CMP #.(| 00000280 22 48 22 29 3a 42 4e 45 20 4e 4f 4e 48 0d 02 c6 |"H"):BNE NONH...| 00000290 20 2e 48 47 49 4e 20 4c 44 58 23 31 35 3a 4c 44 | .HGIN LDX#15:LD| 000002a0 59 23 32 3a 4a 53 52 20 53 45 54 41 42 0d 02 da |Y#2:JSR SETAB...| 000002b0 29 4c 44 41 23 34 3a 4c 44 58 23 97 28 22 30 22 |)LDA#4:LDX#.("0"| 000002c0 29 3a 4c 44 59 23 97 28 22 46 22 29 3a 4a 53 52 |):LDY#.("F"):JSR| 000002d0 20 53 54 52 49 4e 0d 02 ee 22 4a 53 52 20 44 48 | STRIN..."JSR DH| 000002e0 45 58 3a 42 43 43 48 47 49 4e 3a 4c 44 41 20 44 |EX:BCCHGIN:LDA D| 000002f0 48 3a 53 54 41 20 48 49 0d 03 02 2c 4c 44 41 26 |H:STA HI...,LDA&| 00000300 36 30 32 3a 53 54 41 26 36 30 30 3a 4c 44 41 26 |602:STA&600:LDA&| 00000310 36 30 33 3a 53 54 41 26 36 30 31 3a 4a 53 52 20 |603:STA&601:JSR | 00000320 44 48 45 58 0d 03 16 21 42 43 43 20 48 47 49 4e |DHEX...!BCC HGIN| 00000330 3a 4c 44 41 20 44 48 3a 53 54 41 20 4c 4f 3a 4a |:LDA DH:STA LO:J| 00000340 4d 50 20 4c 35 0d 03 20 1c 2e 4e 4f 4e 48 20 43 |MP L5.. ..NONH C| 00000350 4d 50 23 97 28 22 46 22 29 3a 42 4e 45 20 4e 4f |MP#.("F"):BNE NO| 00000360 46 0d 03 34 20 2e 46 47 49 4e 20 4c 44 58 23 31 |F..4 .FGIN LDX#1| 00000370 35 3a 4c 44 59 23 33 3a 4a 53 52 20 53 45 54 41 |5:LDY#3:JSR SETA| 00000380 42 0d 03 3e 29 4c 44 41 23 32 3a 4c 44 58 23 97 |B..>)LDA#2:LDX#.| 00000390 28 22 30 22 29 3a 4c 44 59 23 97 28 22 46 22 29 |("0"):LDY#.("F")| 000003a0 3a 4a 53 52 20 53 54 52 49 4e 0d 03 48 34 4a 53 |:JSR STRIN..H4JS| 000003b0 52 20 44 48 45 58 3a 42 43 43 20 46 47 49 4e 3a |R DHEX:BCC FGIN:| 000003c0 4c 44 41 20 44 49 53 50 3a 43 4d 50 23 97 28 22 |LDA DISP:CMP#.("| 000003d0 4c 22 29 3a 42 4e 45 20 4f 56 53 57 41 50 0d 03 |L"):BNE OVSWAP..| 000003e0 52 34 4c 44 41 20 4f 4c 4f 3a 53 45 43 3a 53 42 |R4LDA OLO:SEC:SB| 000003f0 43 20 4f 55 4d 42 3a 53 54 41 20 4c 4f 3a 4c 44 |C OUMB:STA LO:LD| 00000400 41 20 4f 48 49 3a 53 42 43 23 30 3a 53 54 41 20 |A OHI:SBC#0:STA | 00000410 48 49 0d 03 5c 0b 2e 4f 56 53 57 41 50 0d 03 66 |HI..\..OVSWAP..f| 00000420 48 4c 44 59 23 30 3a 4c 44 41 20 44 48 3a 2e 46 |HLDY#0:LDA DH:.F| 00000430 4c 4f 4f 50 20 49 4e 43 20 4c 4f 3a 42 4e 45 20 |LOOP INC LO:BNE | 00000440 4f 56 48 49 3a 49 4e 43 20 48 49 3a 2e 4f 56 48 |OVHI:INC HI:.OVH| 00000450 49 20 43 4d 50 28 4c 4f 29 2c 59 3a 42 4e 45 20 |I CMP(LO),Y:BNE | 00000460 46 4c 4f 4f 50 0d 03 70 0a 4a 4d 50 20 4c 35 0d |FLOOP..p.JMP L5.| 00000470 03 8e 2e 2e 4e 4f 46 20 4c 44 58 20 44 49 53 50 |....NOF LDX DISP| 00000480 3a 43 50 58 23 97 28 22 4c 22 29 3a 42 4e 45 20 |:CPX#.("L"):BNE | 00000490 4e 4f 4e 46 3a 4a 4d 50 20 4c 43 4f 4d 0d 03 b6 |NONF:JMP LCOM...| 000004a0 1b 2e 4e 4f 4e 46 20 43 4d 50 23 26 38 38 3a 42 |..NONF CMP#&88:B| 000004b0 4e 45 20 4e 4c 45 46 54 0d 03 ca 2c 4c 44 41 20 |NE NLEFT...,LDA | 000004c0 4c 4f 3a 42 4e 45 20 44 45 31 3a 44 45 43 20 48 |LO:BNE DE1:DEC H| 000004d0 49 3a 2e 44 45 31 20 44 45 43 20 4c 4f 3a 4a 4d |I:.DE1 DEC LO:JM| 000004e0 50 20 4c 35 0d 03 de 1a 2e 4e 4c 45 46 54 20 43 |P L5.....NLEFT C| 000004f0 4d 50 23 26 38 39 3a 42 4e 45 20 4e 52 54 0d 03 |MP#&89:BNE NRT..| 00000500 f2 25 49 4e 43 20 4c 4f 3a 42 4e 45 20 44 45 32 |.%INC LO:BNE DE2| 00000510 3a 49 4e 43 20 48 49 3a 2e 44 45 32 20 4a 4d 50 |:INC HI:.DE2 JMP| 00000520 20 4c 35 0d 04 06 1a 2e 4e 52 54 20 43 4d 50 23 | L5.....NRT CMP#| 00000530 26 38 41 3a 42 4e 45 20 4e 44 4f 57 4e 0d 04 1a |&8A:BNE NDOWN...| 00000540 1b 4c 44 41 20 4c 4f 3a 43 4c 43 3a 41 44 43 23 |.LDA LO:CLC:ADC#| 00000550 38 3a 53 54 41 20 4c 4f 0d 04 24 1e 4c 44 41 20 |8:STA LO..$.LDA | 00000560 48 49 3a 41 44 43 23 30 3a 53 54 41 20 48 49 3a |HI:ADC#0:STA HI:| 00000570 4a 4d 50 20 4c 35 0d 04 38 1c 2e 4e 44 4f 57 4e |JMP L5..8..NDOWN| 00000580 20 43 4d 50 23 26 38 42 3a 42 4e 45 20 4e 4d 4f | CMP#&8B:BNE NMO| 00000590 56 45 0d 04 4c 1b 4c 44 41 20 4c 4f 3a 53 45 43 |VE..L.LDA LO:SEC| 000005a0 3a 53 42 43 23 38 3a 53 54 41 20 4c 4f 0d 04 56 |:SBC#8:STA LO..V| 000005b0 1e 4c 44 41 20 48 49 3a 53 42 43 23 30 3a 53 54 |.LDA HI:SBC#0:ST| 000005c0 41 20 48 49 3a 4a 4d 50 20 4c 35 0d 04 74 1e 2e |A HI:JMP L5..t..| 000005d0 4e 4d 4f 56 45 20 43 4d 50 23 97 28 22 41 22 29 |NMOVE CMP#.("A")| 000005e0 3a 42 4e 45 20 4e 4f 4e 41 0d 04 88 10 2e 41 47 |:BNE NONA.....AG| 000005f0 49 4e 20 4c 44 59 23 31 34 0d 04 9c 27 4c 44 41 |IN LDY#14...'LDA| 00000600 20 41 43 52 3a 41 53 4c 20 41 3a 43 4c 43 3a 41 | ACR:ASL A:CLC:A| 00000610 44 43 20 41 43 52 3a 43 4c 43 3a 41 44 43 23 36 |DC ACR:CLC:ADC#6| 00000620 0d 04 b0 11 54 41 58 3a 4a 53 52 20 53 45 54 41 |....TAX:JSR SETA| 00000630 42 0d 04 c4 29 4c 44 41 23 32 3a 4c 44 58 23 97 |B...)LDA#2:LDX#.| 00000640 28 22 30 22 29 3a 4c 44 59 23 97 28 22 46 22 29 |("0"):LDY#.("F")| 00000650 3a 4a 53 52 20 53 54 52 49 4e 0d 04 d8 2d 4a 53 |:JSR STRIN...-JS| 00000660 52 20 44 48 45 58 3a 42 43 43 20 41 47 49 4e 3a |R DHEX:BCC AGIN:| 00000670 4c 44 41 20 44 48 3a 4c 44 59 23 30 3a 53 54 41 |LDA DH:LDY#0:STA| 00000680 20 28 4c 4f 29 2c 59 0d 04 e2 0a 4a 4d 50 20 4c | (LO),Y....JMP L| 00000690 35 0d 05 0a 27 2e 44 48 45 58 20 4c 44 41 26 36 |5...'.DHEX LDA&6| 000006a0 30 30 3a 43 4d 50 20 23 97 28 22 39 22 29 2b 31 |00:CMP #.("9")+1| 000006b0 3a 42 43 53 20 41 4c 31 0d 05 14 11 80 23 26 30 |:BCS AL1.....#&0| 000006c0 46 3a 42 43 43 20 54 49 50 0d 05 1e 2d 2e 41 4c |F:BCC TIP...-.AL| 000006d0 31 20 43 4d 50 20 23 97 28 22 41 22 29 3a 42 43 |1 CMP #.("A"):BC| 000006e0 43 20 45 52 48 45 58 3a 53 42 43 20 23 97 28 22 |C ERHEX:SBC #.("| 000006f0 41 22 29 2d 31 30 0d 05 32 27 2e 54 49 50 20 41 |A")-10..2'.TIP A| 00000700 53 4c 20 41 3a 41 53 4c 20 41 3a 41 53 4c 20 41 |SL A:ASL A:ASL A| 00000710 3a 41 53 4c 20 41 3a 53 54 41 20 44 48 0d 05 3c |:ASL A:STA DH..<| 00000720 21 4c 44 41 26 36 30 31 3a 43 4d 50 20 23 97 28 |!LDA&601:CMP #.(| 00000730 22 39 22 29 2b 31 3a 42 43 53 20 41 4c 32 0d 05 |"9")+1:BCS AL2..| 00000740 46 11 80 23 26 30 46 3a 42 43 43 20 42 4f 54 0d |F..#&0F:BCC BOT.| 00000750 05 50 2d 2e 41 4c 32 20 43 4d 50 20 23 97 28 22 |.P-.AL2 CMP #.("| 00000760 41 22 29 3a 42 43 43 20 45 52 48 45 58 3a 53 42 |A"):BCC ERHEX:SB| 00000770 43 20 23 97 28 22 41 22 29 2d 31 30 0d 05 64 19 |C #.("A")-10..d.| 00000780 2e 42 4f 54 20 84 41 20 44 48 3a 53 54 41 20 44 |.BOT .A DH:STA D| 00000790 48 3a 53 45 43 0d 05 78 0e 2e 45 52 48 45 58 20 |H:SEC..x..ERHEX | 000007a0 52 54 53 0d 05 a0 1d 2e 4e 4f 4e 41 20 43 4d 50 |RTS.....NONA CMP| 000007b0 20 23 97 28 22 53 22 29 42 4e 45 20 4e 4f 4e 53 | #.("S")BNE NONS| 000007c0 0d 05 b4 31 2e 53 47 49 4e 20 4c 44 59 23 31 34 |...1.SGIN LDY#14| 000007d0 3a 4c 44 41 20 41 43 52 3a 43 4c 43 3a 41 44 43 |:LDA ACR:CLC:ADC| 000007e0 23 33 30 3a 54 41 58 3a 4a 53 52 20 53 45 54 41 |#30:TAX:JSR SETA| 000007f0 42 0d 05 c8 2d 4c 44 41 23 32 35 35 3a 4c 44 58 |B...-LDA#255:LDX| 00000800 20 23 97 28 22 20 22 29 3a 4c 44 59 20 23 97 28 | #.(" "):LDY #.(| 00000810 22 7e 22 29 3a 4a 53 52 20 53 54 52 49 4e 0d 05 |"~"):JSR STRIN..| 00000820 dc 0f 4c 44 58 23 30 3a 4c 44 59 23 30 0d 05 f0 |..LDX#0:LDY#0...| 00000830 25 2e 4c 4f 50 20 4c 44 41 26 36 30 30 2c 58 3a |%.LOP LDA&600,X:| 00000840 43 4d 50 23 26 30 44 3a 42 45 51 20 46 49 4e 4c |CMP#&0D:BEQ FINL| 00000850 4f 50 0d 05 fa 1e 53 54 41 20 28 4c 4f 29 2c 59 |OP....STA (LO),Y| 00000860 3a 49 4e 59 3a 49 4e 58 3a 42 4e 45 20 4c 4f 50 |:INY:INX:BNE LOP| 00000870 0d 06 04 12 2e 46 49 4e 4c 4f 50 20 4a 4d 50 20 |.....FINLOP JMP | 00000880 4c 35 0d 06 22 09 2e 4e 4f 4e 53 0d 06 2c 0a 4a |L5.."..NONS..,.J| 00000890 4d 50 20 4c 37 0d 06 54 1b 2e 4c 43 4f 4d 20 43 |MP L7..T..LCOM C| 000008a0 4d 50 23 26 30 44 3a 42 4e 45 20 4e 4f 4e 43 52 |MP#&0D:BNE NONCR| 000008b0 0d 06 68 28 4c 44 41 20 4f 4c 4f 3a 53 54 41 20 |..h(LDA OLO:STA | 000008c0 4c 4f 3a 4c 44 41 20 4f 48 49 3a 53 54 41 20 48 |LO:LDA OHI:STA H| 000008d0 49 3a 4a 4d 50 20 4c 35 0d 06 7c 1b 2e 4e 4f 4e |I:JMP L5..|..NON| 000008e0 43 52 20 43 4d 50 23 26 38 42 3a 42 4e 45 20 4e |CR CMP#&8B:BNE N| 000008f0 4f 4e 53 0d 06 90 28 4c 44 41 20 4f 4c 4f 3a 49 |ONS...(LDA OLO:I| 00000900 4e 43 20 4f 55 4d 42 3a 53 45 43 3a 53 42 43 20 |NC OUMB:SEC:SBC | 00000910 4f 55 4d 42 3a 53 54 41 20 4c 4f 0d 06 9a 1f 4c |OUMB:STA LO....L| 00000920 44 41 20 4f 48 49 3a 53 42 43 23 30 3a 53 54 41 |DA OHI:SBC#0:STA| 00000930 20 48 49 3a 4a 4d 50 20 4c 35 0d 06 b8 18 2e 44 | HI:JMP L5.....D| 00000940 49 53 20 4c 44 58 23 28 53 54 32 20 83 20 32 35 |IS LDX#(ST2 . 25| 00000950 36 29 0d 06 c2 13 4c 44 59 23 28 53 54 32 20 81 |6)....LDY#(ST2 .| 00000960 20 32 35 36 29 0d 06 d6 0e 4a 53 52 20 4f 55 54 | 256)....JSR OUT| 00000970 50 55 54 0d 06 ea 15 4c 44 41 23 31 36 3a 53 54 |PUT....LDA#16:ST| 00000980 41 20 44 4c 49 4e 45 53 0d 06 f4 0b 2e 4c 49 4e |A DLINES.....LIN| 00000990 4c 4f 50 0d 07 08 23 4c 44 41 20 48 49 3a 4a 53 |LOP...#LDA HI:JS| 000009a0 52 20 48 45 58 3a 4c 44 41 20 4c 4f 3a 4a 53 52 |R HEX:LDA LO:JSR| 000009b0 20 48 45 58 53 50 0d 07 26 0f 4c 44 59 23 30 3a | HEXSP..&.LDY#0:| 000009c0 4c 44 58 23 33 0d 07 30 2f 2e 48 41 4c 4f 50 20 |LDX#3..0/.HALOP | 000009d0 4c 44 41 28 4c 4f 29 2c 59 3a 53 54 41 20 48 41 |LDA(LO),Y:STA HA| 000009e0 2c 59 3a 49 4e 59 3a 44 45 58 3a 42 4e 45 20 48 |,Y:INY:DEX:BNE H| 000009f0 41 4c 4f 50 0d 07 44 23 4c 44 58 20 48 41 3a 4c |ALOP..D#LDX HA:L| 00000a00 44 41 20 54 59 50 45 2c 58 3a 54 41 58 3a 4c 44 |DA TYPE,X:TAX:LD| 00000a10 41 20 4e 55 4d 2c 58 0d 07 58 32 53 54 41 20 4e |A NUM,X..X2STA N| 00000a20 55 4d 42 3a 43 4c 43 3a 41 44 43 20 4c 4f 3a 53 |UMB:CLC:ADC LO:S| 00000a30 54 41 20 4c 4f 3a 4c 44 41 23 30 3a 41 44 43 20 |TA LO:LDA#0:ADC | 00000a40 48 49 3a 53 54 41 20 48 49 0d 07 6c 33 4c 44 58 |HI:STA HI..l3LDX| 00000a50 20 4e 55 4d 42 3a 4c 44 59 23 33 3a 4c 44 41 20 | NUMB:LDY#3:LDA | 00000a60 48 41 3a 4a 53 52 20 48 45 58 53 50 3a 44 45 59 |HA:JSR HEXSP:DEY| 00000a70 3a 44 45 58 3a 42 45 51 20 50 41 44 0d 07 76 24 |:DEX:BEQ PAD..v$| 00000a80 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 53 50 |LDA HB:JSR HEXSP| 00000a90 3a 44 45 59 3a 44 45 58 3a 42 45 51 20 50 41 44 |:DEY:DEX:BEQ PAD| 00000aa0 0d 07 80 21 4c 44 41 20 48 43 3a 4a 53 52 20 48 |...!LDA HC:JSR H| 00000ab0 45 58 53 50 3a 44 45 58 3a 42 45 51 20 4d 4e 45 |EXSP:DEX:BEQ MNE| 00000ac0 4d 0d 07 94 10 2e 50 41 44 20 54 59 41 3a 50 48 |M.....PAD TYA:PH| 00000ad0 41 0d 07 9e 2e 4c 44 58 23 28 53 54 34 20 83 20 |A....LDX#(ST4 . | 00000ae0 32 35 36 29 3a 4c 44 59 23 28 53 54 34 20 81 20 |256):LDY#(ST4 . | 00000af0 32 35 36 29 3a 4a 53 52 20 4f 55 54 50 55 54 0d |256):JSR OUTPUT.| 00000b00 07 a8 17 50 4c 41 3a 54 41 59 3a 44 45 59 3a 42 |...PLA:TAY:DEY:B| 00000b10 4e 45 20 50 41 44 0d 07 bc 20 2e 4d 4e 45 4d 20 |NE PAD... .MNEM | 00000b20 4c 44 41 20 23 97 28 22 20 22 29 3a 4a 53 52 20 |LDA #.(" "):JSR | 00000b30 4f 53 41 53 43 49 0d 07 d0 29 4c 44 58 20 48 41 |OSASCI...)LDX HA| 00000b40 3a 4c 44 41 20 48 41 53 48 2c 58 3a 41 53 4c 20 |:LDA HASH,X:ASL | 00000b50 41 3a 41 53 4c 20 41 3a 53 54 41 20 4f 55 54 0d |A:ASL A:STA OUT.| 00000b60 07 e4 2a 4c 44 41 23 28 53 54 52 49 4e 47 20 81 |..*LDA#(STRING .| 00000b70 20 32 35 36 29 3a 53 54 41 20 50 55 54 3a 4c 44 | 256):STA PUT:LD| 00000b80 58 23 34 3a 4c 44 59 23 30 0d 07 f8 35 2e 4d 4e |X#4:LDY#0...5.MN| 00000b90 4d 4c 4f 50 20 4c 44 41 20 28 4f 55 54 29 2c 59 |MLOP LDA (OUT),Y| 00000ba0 3a 4a 53 52 20 4f 53 41 53 43 49 3a 49 4e 59 3a |:JSR OSASCI:INY:| 00000bb0 44 45 58 3a 42 4e 45 20 4d 4e 4d 4c 4f 50 0d 08 |DEX:BNE MNMLOP..| 00000bc0 02 1a 4c 44 41 20 23 97 28 22 20 22 29 3a 4a 53 |..LDA #.(" "):JS| 00000bd0 52 20 4f 53 41 53 43 49 0d 08 16 24 4c 44 58 20 |R OSASCI...$LDX | 00000be0 48 41 3a 4c 44 41 20 54 59 50 45 2c 58 3a 43 4d |HA:LDA TYPE,X:CM| 00000bf0 50 23 31 3a 42 4e 45 20 4e 4f 44 31 0d 08 2a 31 |P#1:BNE NOD1..*1| 00000c00 4c 44 41 20 23 97 28 22 23 22 29 3a 4a 53 52 20 |LDA #.("#"):JSR | 00000c10 4f 53 41 53 43 49 3a 4c 44 41 20 23 97 28 22 26 |OSASCI:LDA #.("&| 00000c20 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 08 3e |"):JSR OSASCI..>| 00000c30 25 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 53 |%LDA HB:JSR HEXS| 00000c40 50 3a 4c 44 59 23 35 3a 4a 4d 50 20 4e 44 4c 49 |P:LDY#5:JMP NDLI| 00000c50 4e 45 0d 08 52 18 2e 4e 4f 44 31 20 43 4d 50 23 |NE..R..NOD1 CMP#| 00000c60 32 3a 42 4e 45 20 4e 4f 44 32 0d 08 66 29 4c 44 |2:BNE NOD2..f)LD| 00000c70 41 20 23 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 |A #.("&"):JSR OS| 00000c80 41 53 43 49 3a 4c 44 41 20 48 43 3a 4a 53 52 20 |ASCI:LDA HC:JSR | 00000c90 48 45 58 0d 08 70 25 4c 44 41 20 48 42 3a 4a 53 |HEX..p%LDA HB:JS| 00000ca0 52 20 48 45 58 53 50 3a 4c 44 59 23 34 3a 4a 4d |R HEXSP:LDY#4:JM| 00000cb0 50 20 4e 44 4c 49 4e 45 0d 08 84 18 2e 4e 4f 44 |P NDLINE.....NOD| 00000cc0 32 20 43 4d 50 23 33 3a 42 4e 45 20 4e 4f 44 33 |2 CMP#3:BNE NOD3| 00000cd0 0d 08 98 2b 4c 44 41 20 23 97 28 22 26 22 29 3a |...+LDA #.("&"):| 00000ce0 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 48 |JSR OSASCI:LDA H| 00000cf0 42 3a 4a 53 52 20 48 45 58 53 50 0d 08 a2 14 4c |B:JSR HEXSP....L| 00000d00 44 59 23 36 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d |DY#6:JMP NDLINE.| 00000d10 08 b6 18 2e 4e 4f 44 33 20 43 4d 50 23 34 3a 42 |....NOD3 CMP#4:B| 00000d20 4e 45 20 4e 4f 44 34 0d 08 ca 2b 4c 44 41 20 23 |NE NOD4...+LDA #| 00000d30 97 28 22 41 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.("A"):JSR OSASC| 00000d40 49 3a 4c 44 59 23 39 3a 4a 4d 50 20 4e 44 4c 49 |I:LDY#9:JMP NDLI| 00000d50 4e 45 0d 08 de 18 2e 4e 4f 44 34 3a 43 4d 50 23 |NE.....NOD4:CMP#| 00000d60 35 3a 42 4e 45 20 4e 4f 44 35 0d 08 f2 15 4c 44 |5:BNE NOD5....LD| 00000d70 59 23 31 30 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d |Y#10:JMP NDLINE.| 00000d80 09 06 18 2e 4e 4f 44 35 20 43 4d 50 23 36 3a 42 |....NOD5 CMP#6:B| 00000d90 4e 45 20 4e 4f 44 36 0d 09 1a 31 4c 44 41 20 23 |NE NOD6...1LDA #| 00000da0 97 28 22 28 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.("("):JSR OSASC| 00000db0 49 3a 4c 44 41 20 23 97 28 22 26 22 29 3a 4a 53 |I:LDA #.("&"):JS| 00000dc0 52 20 4f 53 41 53 43 49 0d 09 24 29 4c 44 41 20 |R OSASCI..$)LDA | 00000dd0 48 42 3a 4a 53 52 20 48 45 58 3a 4c 44 41 20 23 |HB:JSR HEX:LDA #| 00000de0 97 28 22 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.(","):JSR OSASC| 00000df0 49 0d 09 2e 31 4c 44 41 20 23 97 28 22 58 22 29 |I...1LDA #.("X")| 00000e00 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 |:JSR OSASCI:LDA | 00000e10 23 97 28 22 29 22 29 3a 4a 53 52 20 4f 53 41 53 |#.(")"):JSR OSAS| 00000e20 43 49 0d 09 38 14 4c 44 59 23 33 3a 4a 4d 50 20 |CI..8.LDY#3:JMP | 00000e30 4e 44 4c 49 4e 45 0d 09 4c 18 2e 4e 4f 44 36 20 |NDLINE..L..NOD6 | 00000e40 43 4d 50 23 37 3a 42 4e 45 20 4e 4f 44 37 0d 09 |CMP#7:BNE NOD7..| 00000e50 60 2f 4c 44 41 23 97 28 22 28 22 29 3a 4a 53 52 |`/LDA#.("("):JSR| 00000e60 20 4f 53 41 53 43 49 3a 4c 44 41 23 97 28 22 26 | OSASCI:LDA#.("&| 00000e70 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 09 6a |"):JSR OSASCI..j| 00000e80 28 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 3a |(LDA HB:JSR HEX:| 00000e90 4c 44 41 23 97 28 22 29 22 29 3a 4a 53 52 20 4f |LDA#.(")"):JSR O| 00000ea0 53 41 53 43 49 0d 09 74 2f 4c 44 41 23 97 28 22 |SASCI..t/LDA#.("| 00000eb0 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c |,"):JSR OSASCI:L| 00000ec0 44 41 23 97 28 22 59 22 29 3a 4a 53 52 20 4f 53 |DA#.("Y"):JSR OS| 00000ed0 41 53 43 49 0d 09 7e 14 4c 44 59 23 33 3a 4a 4d |ASCI..~.LDY#3:JM| 00000ee0 50 20 4e 44 4c 49 4e 45 0d 09 92 18 2e 4e 4f 44 |P NDLINE.....NOD| 00000ef0 37 20 43 4d 50 23 38 3a 42 4e 45 20 4e 4f 44 38 |7 CMP#8:BNE NOD8| 00000f00 0d 09 a6 28 4c 44 41 23 97 28 22 26 22 29 3a 4a |...(LDA#.("&"):J| 00000f10 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 48 42 |SR OSASCI:LDA HB| 00000f20 3a 4a 53 52 20 48 45 58 0d 09 b0 2f 4c 44 41 23 |:JSR HEX.../LDA#| 00000f30 97 28 22 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.(","):JSR OSASC| 00000f40 49 3a 4c 44 41 23 97 28 22 58 22 29 3a 4a 53 52 |I:LDA#.("X"):JSR| 00000f50 20 4f 53 41 53 43 49 0d 09 ba 14 4c 44 59 23 35 | OSASCI....LDY#5| 00000f60 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d 09 ce 18 2e |:JMP NDLINE.....| 00000f70 4e 4f 44 38 20 43 4d 50 23 39 3a 42 4e 45 20 4e |NOD8 CMP#9:BNE N| 00000f80 4f 44 39 0d 09 e2 28 4c 44 41 23 97 28 22 26 22 |OD9...(LDA#.("&"| 00000f90 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 |):JSR OSASCI:LDA| 00000fa0 20 48 43 3a 4a 53 52 20 48 45 58 0d 09 ec 28 4c | HC:JSR HEX...(L| 00000fb0 44 41 20 48 42 3a 4a 53 52 20 48 45 58 3a 4c 44 |DA HB:JSR HEX:LD| 00000fc0 41 23 97 28 22 2c 22 29 3a 4a 53 52 20 4f 53 41 |A#.(","):JSR OSA| 00000fd0 53 43 49 0d 09 f6 19 4c 44 41 23 97 28 22 58 22 |SCI....LDA#.("X"| 00000fe0 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 0a 00 14 |):JSR OSASCI....| 00000ff0 4c 44 59 23 33 3a 4a 4d 50 20 4e 44 4c 49 4e 45 |LDY#3:JMP NDLINE| 00001000 0d 0a 14 19 2e 4e 4f 44 39 20 43 4d 50 23 26 41 |.....NOD9 CMP#&A| 00001010 3a 42 4e 45 20 4e 4f 44 41 0d 0a 28 28 4c 44 41 |:BNE NODA..((LDA| 00001020 23 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 53 |#.("&"):JSR OSAS| 00001030 43 49 3a 4c 44 41 20 48 43 3a 4a 53 52 20 48 45 |CI:LDA HC:JSR HE| 00001040 58 0d 0a 32 28 4c 44 41 20 48 42 3a 4a 53 52 20 |X..2(LDA HB:JSR | 00001050 48 45 58 3a 4c 44 41 23 97 28 22 2c 22 29 3a 4a |HEX:LDA#.(","):J| 00001060 53 52 20 4f 53 41 53 43 49 0d 0a 3c 19 4c 44 41 |SR OSASCI..<.LDA| 00001070 23 97 28 22 59 22 29 3a 4a 53 52 20 4f 53 41 53 |#.("Y"):JSR OSAS| 00001080 43 49 0d 0a 46 14 4c 44 59 23 33 3a 4a 4d 50 20 |CI..F.LDY#3:JMP | 00001090 4e 44 4c 49 4e 45 0d 0a 5a 19 2e 4e 4f 44 41 20 |NDLINE..Z..NODA | 000010a0 43 4d 50 23 26 42 3a 42 4e 45 20 4e 4f 44 42 0d |CMP#&B:BNE NODB.| 000010b0 0a 6e 19 4c 44 41 23 97 28 22 26 22 29 3a 4a 53 |.n.LDA#.("&"):JS| 000010c0 52 20 4f 53 41 53 43 49 0d 0a 82 1b 4c 44 41 20 |R OSASCI....LDA | 000010d0 48 42 3a 43 4d 50 23 26 37 46 3a 42 43 53 20 42 |HB:CMP#&7F:BCS B| 000010e0 41 43 4b 0d 0a 96 2b 43 4c 43 3a 41 44 43 20 4c |ACK...+CLC:ADC L| 000010f0 4f 3a 50 48 41 20 4c 44 41 23 30 3a 41 44 43 20 |O:PHA LDA#0:ADC | 00001100 48 49 3a 43 4c 43 3a 42 43 43 20 52 45 4c 0d 0a |HI:CLC:BCC REL..| 00001110 aa 2e 2e 42 41 43 4b 20 82 23 32 35 35 3a 41 44 |...BACK .#255:AD| 00001120 43 23 30 3a 53 54 41 26 37 30 3a 4c 44 41 20 4c |C#0:STA&70:LDA L| 00001130 4f 3a 53 45 43 3a 53 42 43 26 37 30 0d 0a b4 14 |O:SEC:SBC&70....| 00001140 50 48 41 3a 4c 44 41 20 48 49 3a 53 42 43 23 30 |PHA:LDA HI:SBC#0| 00001150 0d 0a c8 1e 2e 52 45 4c 20 4a 53 52 20 48 45 58 |.....REL JSR HEX| 00001160 3a 50 4c 41 3a 4a 53 52 20 48 45 58 53 50 0d 0a |:PLA:JSR HEXSP..| 00001170 d2 14 4c 44 59 23 34 3a 4a 4d 50 20 4e 44 4c 49 |..LDY#4:JMP NDLI| 00001180 4e 45 0d 0a e6 19 2e 4e 4f 44 42 20 43 4d 50 23 |NE.....NODB CMP#| 00001190 26 43 3a 42 4e 45 20 4e 4f 44 43 0d 0a fa 2f 4c |&C:BNE NODC.../L| 000011a0 44 41 23 97 28 22 28 22 29 3a 4a 53 52 20 4f 53 |DA#.("("):JSR OS| 000011b0 41 53 43 49 3a 4c 44 41 23 97 28 22 26 22 29 3a |ASCI:LDA#.("&"):| 000011c0 4a 53 52 20 4f 53 41 53 43 49 0d 0b 04 21 4c 44 |JSR OSASCI...!LD| 000011d0 41 20 48 43 3a 4a 53 52 20 48 45 58 3a 4c 44 41 |A HC:JSR HEX:LDA| 000011e0 20 48 42 3a 4a 53 52 20 48 45 58 0d 0b 0e 2a 4c | HB:JSR HEX...*L| 000011f0 44 41 23 97 28 22 29 22 29 3a 4a 53 52 20 4f 53 |DA#.(")"):JSR OS| 00001200 41 53 43 49 3a 4c 44 59 23 33 3a 4a 4d 50 20 4e |ASCI:LDY#3:JMP N| 00001210 44 4c 49 4e 45 0d 0b 22 19 2e 4e 4f 44 43 20 43 |DLINE.."..NODC C| 00001220 4d 50 23 26 44 3a 42 4e 45 20 4e 4f 44 44 0d 0b |MP#&D:BNE NODD..| 00001230 36 28 4c 44 41 23 97 28 22 26 22 29 3a 4a 53 52 |6(LDA#.("&"):JSR| 00001240 20 4f 53 41 53 43 49 3a 4c 44 41 20 48 42 3a 4a | OSASCI:LDA HB:J| 00001250 53 52 20 48 45 58 0d 0b 40 2f 4c 44 41 23 97 28 |SR HEX..@/LDA#.(| 00001260 22 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a |","):JSR OSASCI:| 00001270 4c 44 41 23 97 28 22 59 22 29 3a 4a 53 52 20 4f |LDA#.("Y"):JSR O| 00001280 53 41 53 43 49 0d 0b 4a 14 4c 44 59 23 35 3a 4a |SASCI..J.LDY#5:J| 00001290 4d 50 20 4e 44 4c 49 4e 45 0d 0b 5e 10 2e 4e 4f |MP NDLINE..^..NO| 000012a0 44 44 20 4c 44 59 23 31 30 0d 0b 72 30 2e 4e 44 |DD LDY#10..r0.ND| 000012b0 4c 49 4e 45 20 4c 44 41 23 97 28 22 20 22 29 3a |LINE LDA#.(" "):| 000012c0 4a 53 52 20 4f 53 41 53 43 49 3a 44 45 59 3a 42 |JSR OSASCI:DEY:B| 000012d0 50 4c 20 4e 44 4c 49 4e 45 0d 0b 86 12 4c 44 58 |PL NDLINE....LDX| 000012e0 20 4e 55 4d 42 3a 4c 44 59 23 30 0d 0b 90 33 2e | NUMB:LDY#0...3.| 000012f0 44 49 53 50 4c 4f 50 20 4c 44 41 20 48 41 2c 59 |DISPLOP LDA HA,Y| 00001300 3a 4a 53 52 20 43 48 4f 55 54 3a 49 4e 59 3a 44 |:JSR CHOUT:INY:D| 00001310 45 58 3a 42 4e 45 20 44 49 53 50 4c 4f 50 0d 0b |EX:BNE DISPLOP..| 00001320 a4 32 4c 44 41 23 97 28 22 20 22 29 3a 2e 50 41 |.2LDA#.(" "):.PA| 00001330 44 32 20 4a 53 52 20 4f 53 41 53 43 49 3a 49 4e |D2 JSR OSASCI:IN| 00001340 59 3a 43 50 59 23 34 3a 42 4e 45 20 50 41 44 32 |Y:CPY#4:BNE PAD2| 00001350 0d 0b b8 27 4c 44 58 23 35 3a 2e 50 41 44 33 20 |...'LDX#5:.PAD3 | 00001360 4a 53 52 20 4f 53 41 53 43 49 3a 44 45 58 3a 42 |JSR OSASCI:DEX:B| 00001370 4e 45 20 50 41 44 33 0d 0b d6 1f 4c 44 41 20 44 |NE PAD3....LDA D| 00001380 4c 49 4e 45 53 3a 43 4d 50 23 31 36 3a 42 4e 45 |LINES:CMP#16:BNE| 00001390 20 4f 56 4f 4c 44 0d 0b ea 21 4c 44 41 20 4c 4f | OVOLD...!LDA LO| 000013a0 3a 53 54 41 20 4f 4c 4f 3a 4c 44 41 20 48 49 3a |:STA OLO:LDA HI:| 000013b0 53 54 41 20 4f 48 49 0d 0b f4 15 4c 44 41 20 4e |STA OHI....LDA N| 000013c0 55 4d 42 3a 53 54 41 20 4f 55 4d 42 0d 0c 08 2b |UMB:STA OUMB...+| 000013d0 2e 4f 56 4f 4c 44 20 44 45 43 20 44 4c 49 4e 45 |.OVOLD DEC DLINE| 000013e0 53 3a 42 45 51 20 46 49 4e 4c 49 4e 3a 4a 4d 50 |S:BEQ FINLIN:JMP| 000013f0 20 4c 49 4e 4c 4f 50 0d 0c 12 0f 2e 46 49 4e 4c | LINLOP.....FINL| 00001400 49 4e 20 52 54 53 0d 0c 3a 23 2e 44 49 53 50 4c |IN RTS..:#.DISPL| 00001410 41 59 20 4c 44 59 23 32 3a 4c 44 58 23 31 35 3a |AY LDY#2:LDX#15:| 00001420 4a 53 52 20 53 45 54 41 42 0d 0c 4e 24 4c 44 41 |JSR SETAB..N$LDA| 00001430 20 48 49 3a 4a 53 52 20 48 45 58 3a 4c 44 41 20 | HI:JSR HEX:LDA | 00001440 4c 4f 3a 4a 53 52 20 48 45 58 53 50 3a 0d 0c 62 |LO:JSR HEXSP:..b| 00001450 21 4c 44 41 20 44 49 53 50 3a 43 4d 50 23 97 28 |!LDA DISP:CMP#.(| 00001460 22 4c 22 29 3a 42 45 51 20 44 44 49 53 50 0d 0c |"L"):BEQ DDISP..| 00001470 76 10 4a 53 52 20 53 48 4f 57 3a 52 54 53 0d 0c |v.JSR SHOW:RTS..| 00001480 8a 16 2e 44 44 49 53 50 20 4a 53 52 20 44 49 53 |...DDISP JSR DIS| 00001490 3a 52 54 53 0d 0c b2 18 2e 53 48 4f 57 20 4c 44 |:RTS.....SHOW LD| 000014a0 58 23 28 53 54 32 20 83 32 35 36 29 0d 0c bc 12 |X#(ST2 .256)....| 000014b0 4c 44 59 23 28 53 54 32 20 81 32 35 36 29 0d 0c |LDY#(ST2 .256)..| 000014c0 d0 0e 4a 53 52 20 4f 55 54 50 55 54 0d 0c e4 22 |..JSR OUTPUT..."| 000014d0 4c 44 41 20 4c 4f 3a 80 23 26 46 38 3a 53 45 43 |LDA LO:.#&F8:SEC| 000014e0 3a 53 42 43 23 36 34 3a 53 54 41 20 55 50 0d 0c |:SBC#64:STA UP..| 000014f0 ee 18 4c 44 41 20 48 49 3a 53 42 43 23 30 3a 53 |..LDA HI:SBC#0:S| 00001500 54 41 20 53 54 4b 0d 0d 02 16 4c 44 41 20 4c 4f |TA STK....LDA LO| 00001510 3a 80 23 37 3a 53 54 41 20 41 43 52 0d 0d 16 2f |:.#7:STA ACR.../| 00001520 4c 44 58 23 30 3a 2e 4c 34 20 53 54 58 20 53 54 |LDX#0:.L4 STX ST| 00001530 4b 2b 31 3a 4c 44 41 23 38 3a 43 4c 43 3a 41 44 |K+1:LDA#8:CLC:AD| 00001540 43 20 55 50 3a 53 54 41 20 55 50 0d 0d 20 1a 4c |C UP:STA UP.. .L| 00001550 44 41 20 23 30 3a 41 44 43 20 53 54 4b 3a 53 54 |DA #0:ADC STK:ST| 00001560 41 20 53 54 4b 0d 0d 34 32 4a 53 52 20 48 45 58 |A STK..42JSR HEX| 00001570 3a 4c 44 41 20 55 50 3a 4a 53 52 20 48 45 58 53 |:LDA UP:JSR HEXS| 00001580 50 3a 4c 44 41 23 97 28 22 20 22 29 3a 4a 53 52 |P:LDA#.(" "):JSR| 00001590 20 4f 53 41 53 43 49 0d 0d 48 1b 4c 44 58 23 30 | OSASCI..H.LDX#0| 000015a0 3a 2e 4c 32 20 53 54 58 20 53 54 4b 2b 32 3a 54 |:.L2 STX STK+2:T| 000015b0 58 41 0d 0d 52 07 54 41 59 0d 0d 66 17 4c 44 41 |XA..R.TAY..f.LDA| 000015c0 28 55 50 29 2c 59 3a 4a 53 52 20 48 45 58 53 50 |(UP),Y:JSR HEXSP| 000015d0 0d 0d 7a 1e 4c 44 58 20 53 54 4b 2b 32 3a 49 4e |..z.LDX STK+2:IN| 000015e0 58 3a 43 50 58 23 38 3a 42 4e 45 20 4c 32 0d 0d |X:CPX#8:BNE L2..| 000015f0 8e 1b 4c 44 58 23 30 3a 2e 4c 33 20 53 54 58 20 |..LDX#0:.L3 STX | 00001600 53 54 4b 2b 32 3a 54 58 41 0d 0d a2 07 54 41 59 |STK+2:TXA....TAY| 00001610 0d 0d ac 17 4c 44 41 28 55 50 29 2c 59 3a 4a 53 |....LDA(UP),Y:JS| 00001620 52 20 43 48 4f 55 54 0d 0d c0 1e 4c 44 58 20 53 |R CHOUT....LDX S| 00001630 54 4b 2b 32 3a 49 4e 58 3a 43 50 58 23 38 3a 42 |TK+2:INX:CPX#8:B| 00001640 4e 45 20 4c 33 0d 0d d4 24 4c 44 41 23 97 28 22 |NE L3...$LDA#.("| 00001650 20 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4a | "):JSR OSASCI:J| 00001660 53 52 20 4f 53 41 53 43 49 0d 0d e8 1f 4c 44 58 |SR OSASCI....LDX| 00001670 20 53 54 4b 2b 31 3a 49 4e 58 3a 43 50 58 23 31 | STK+1:INX:CPX#1| 00001680 36 3a 42 4e 45 20 4c 34 0d 0d fc 24 4c 44 59 23 |6:BNE L4...$LDY#| 00001690 31 34 3a 4c 44 41 20 41 43 52 3a 41 53 4c 20 41 |14:LDA ACR:ASL A| 000016a0 3a 43 4c 43 3a 41 44 43 20 41 43 52 0d 0e 06 21 |:CLC:ADC ACR...!| 000016b0 41 44 43 23 35 3a 53 54 41 20 53 54 4b 2b 31 3a |ADC#5:STA STK+1:| 000016c0 54 41 58 3a 4a 53 52 20 53 45 54 41 42 0d 0e 1a |TAX:JSR SETAB...| 000016d0 19 4c 44 41 23 97 28 22 5b 22 29 3a 4a 53 52 20 |.LDA#.("["):JSR | 000016e0 4f 53 41 53 43 49 0d 0e 24 2c 4c 44 41 20 53 54 |OSASCI..$,LDA ST| 000016f0 4b 2b 31 3a 43 4c 43 3a 41 44 43 23 33 3a 54 41 |K+1:CLC:ADC#3:TA| 00001700 58 3a 4c 44 59 23 31 34 3a 4a 53 52 20 53 45 54 |X:LDY#14:JSR SET| 00001710 41 42 0d 0e 38 19 4c 44 41 23 97 28 22 5d 22 29 |AB..8.LDA#.("]")| 00001720 3a 4a 53 52 20 4f 53 41 53 43 49 0d 0e 42 07 52 |:JSR OSASCI..B.R| 00001730 54 53 0d 0e 6a 1d 2e 43 48 4f 55 54 20 43 4d 50 |TS..j..CHOUT CMP| 00001740 23 97 28 22 20 22 29 3a 42 43 43 20 44 55 46 0d |#.(" "):BCC DUF.| 00001750 0e 7e 12 43 4d 50 23 26 37 46 3a 42 43 43 20 4f |.~.CMP#&7F:BCC O| 00001760 4b 0d 0e 9c 13 2e 44 55 46 20 4c 44 41 23 97 28 |K.....DUF LDA#.(| 00001770 22 2e 22 29 0d 0e a6 16 2e 4f 4b 20 4a 53 52 20 |".").....OK JSR | 00001780 4f 53 41 53 43 49 3a 52 54 53 0d 0e ce 1e 2e 53 |OSASCI:RTS.....S| 00001790 45 54 41 42 20 53 54 59 20 53 54 33 2b 32 3a 53 |ETAB STY ST3+2:S| 000017a0 54 58 20 53 54 33 2b 31 0d 0e d8 21 4c 44 58 23 |TX ST3+1...!LDX#| 000017b0 28 53 54 33 20 83 32 35 36 29 3a 4c 44 59 23 28 |(ST3 .256):LDY#(| 000017c0 53 54 33 20 81 32 35 36 29 0d 0e e2 12 4a 53 52 |ST3 .256)....JSR| 000017d0 20 4f 55 54 50 55 54 3a 52 54 53 0d 0f 0a 22 2e | OUTPUT:RTS...".| 000017e0 4b 45 59 49 4e 20 4c 44 58 23 30 3a 4c 44 41 23 |KEYIN LDX#0:LDA#| 000017f0 32 31 3a 4a 53 52 20 4f 53 42 59 54 45 0d 0f 14 |21:JSR OSBYTE...| 00001800 1d 4a 53 52 20 4f 53 52 44 43 48 3a 42 43 53 20 |.JSR OSRDCH:BCS | 00001810 4b 45 59 45 52 52 3a 52 54 53 0d 0f 28 15 2e 4b |KEYERR:RTS..(..K| 00001820 45 59 45 52 52 20 53 54 41 20 53 54 4b 2b 31 0d |EYERR STA STK+1.| 00001830 0f 32 29 4c 44 58 23 28 53 54 36 20 83 32 35 36 |.2)LDX#(ST6 .256| 00001840 29 3a 4c 44 59 23 28 53 54 36 20 81 32 35 36 29 |):LDY#(ST6 .256)| 00001850 3a 4a 53 52 20 43 4c 49 0d 0f 3c 1e 4c 44 41 20 |:JSR CLI..<.LDA | 00001860 53 54 4b 2b 31 3a 43 4d 50 23 26 31 42 3a 42 4e |STK+1:CMP#&1B:BN| 00001870 45 20 4b 45 52 52 0d 0f 50 16 4c 44 41 23 26 37 |E KERR..P.LDA#&7| 00001880 45 3a 4a 53 52 20 4f 53 42 59 54 45 0d 0f 5a 09 |E:JSR OSBYTE..Z.| 00001890 2e 4b 45 52 52 0d 0f 6e 2c 4c 44 58 23 30 3a 4c |.KERR..n,LDX#0:L| 000018a0 44 59 23 32 32 3a 4a 53 52 20 53 45 54 41 42 3a |DY#22:JSR SETAB:| 000018b0 4c 44 58 20 54 45 4d 50 53 54 41 43 4b 3a 54 58 |LDX TEMPSTACK:TX| 000018c0 53 0d 0f 8c 0e 42 52 4b 3a 45 51 55 42 39 39 0d |S....BRK:EQUB99.| 000018d0 0f 96 14 45 51 55 53 22 45 4e 44 20 4f 46 20 44 |...EQUS"END OF D| 000018e0 49 53 22 0d 0f aa 07 42 52 4b 0d 0f d2 19 2e 4f |IS"....BRK.....O| 000018f0 55 54 50 55 54 20 53 54 58 26 37 30 3a 53 54 59 |UTPUT STX&70:STY| 00001900 26 37 31 0d 0f dc 09 4c 44 59 23 30 0d 0f e6 27 |&71....LDY#0...'| 00001910 2e 4c 4f 4f 50 20 4c 44 41 28 26 37 30 29 2c 59 |.LOOP LDA(&70),Y| 00001920 3a 43 4d 50 23 26 46 46 3a 42 45 51 20 4f 55 54 |:CMP#&FF:BEQ OUT| 00001930 45 4e 44 0d 0f f0 1b 4a 53 52 20 4f 53 41 53 43 |END....JSR OSASC| 00001940 49 3a 49 4e 59 3a 42 4e 45 20 4c 4f 4f 50 0d 0f |I:INY:BNE LOOP..| 00001950 fa 0f 2e 4f 55 54 45 4e 44 20 52 54 53 0d 10 22 |...OUTEND RTS.."| 00001960 25 2e 48 45 58 53 50 20 4a 53 52 20 48 45 58 3a |%.HEXSP JSR HEX:| 00001970 4c 44 41 23 26 32 30 3a 4a 4d 50 20 4f 53 57 52 |LDA#&20:JMP OSWR| 00001980 43 48 0d 10 36 08 2e 48 45 58 0d 10 4a 1f 50 48 |CH..6..HEX..J.PH| 00001990 41 3a 4c 53 52 20 41 3a 4c 53 52 20 41 3a 4c 53 |A:LSR A:LSR A:LS| 000019a0 52 20 41 3a 4c 53 52 20 41 0d 10 54 17 4a 53 52 |R A:LSR A..T.JSR| 000019b0 20 48 45 58 44 49 47 3a 50 4c 41 3a 80 23 26 46 | HEXDIG:PLA:.#&F| 000019c0 0d 10 5e 23 2e 48 45 58 44 49 47 20 43 4d 50 23 |..^#.HEXDIG CMP#| 000019d0 26 41 3a 42 43 43 20 48 45 58 44 49 48 3a 41 44 |&A:BCC HEXDIH:AD| 000019e0 43 23 36 0d 10 68 1e 2e 48 45 58 44 49 48 20 41 |C#6..h..HEXDIH A| 000019f0 44 43 23 26 33 30 3a 4a 4d 50 20 4f 53 57 52 43 |DC#&30:JMP OSWRC| 00001a00 48 0d 10 9a 31 2e 53 54 52 49 4e 20 53 54 41 20 |H...1.STRIN STA | 00001a10 43 4f 4e 42 4c 4b 2b 32 3a 53 54 58 20 43 4f 4e |CONBLK+2:STX CON| 00001a20 42 4c 4b 2b 33 3a 53 54 59 20 43 4f 4e 42 4c 4b |BLK+3:STY CONBLK| 00001a30 2b 34 0d 10 a4 12 4c 44 58 23 28 53 54 35 20 83 |+4....LDX#(ST5 .| 00001a40 32 35 36 29 0d 10 ae 1d 4c 44 59 23 28 53 54 35 |256)....LDY#(ST5| 00001a50 20 81 32 35 36 29 3a 4a 53 52 20 4f 55 54 50 55 | .256):JSR OUTPU| 00001a60 54 0d 10 b8 24 4c 44 41 23 30 3a 4c 44 58 23 20 |T...$LDA#0:LDX# | 00001a70 43 4f 4e 42 4c 4b 3a 54 41 59 3a 4a 53 52 20 4f |CONBLK:TAY:JSR O| 00001a80 53 57 4f 52 44 0d 10 c2 10 42 43 53 20 45 53 43 |SWORD....BCS ESC| 00001a90 31 3a 52 54 53 0d 10 cc 1c 2e 45 53 43 31 20 4c |1:RTS.....ESC1 L| 00001aa0 44 41 23 26 31 42 3a 4a 4d 50 20 4b 45 59 45 52 |DA#&1B:JMP KEYER| 00001ab0 52 0d 10 d6 05 5d 0d 10 e0 23 53 54 31 3d 50 25 |R....]...#ST1=P%| 00001ac0 2b 31 3a 21 53 54 31 3d 26 30 44 30 43 30 36 31 |+1:!ST1=&0D0C061| 00001ad0 36 3a 50 25 3d 50 25 2b 35 0d 10 ea 32 24 50 25 |6:P%=P%+5...2$P%| 00001ae0 3d 22 20 45 4c 45 43 54 52 4f 4e 20 44 45 42 55 |=" ELECTRON DEBU| 00001af0 47 47 45 52 20 20 20 44 20 44 55 4d 50 20 4d 45 |GGER D DUMP ME| 00001b00 4d 4f 52 59 20 20 20 20 20 20 22 0d 10 f4 37 24 |MORY "...7$| 00001b10 28 50 25 2b 34 30 29 3d 22 20 48 20 48 45 58 20 |(P%+40)=" H HEX | 00001b20 41 44 44 52 2e 20 3a 20 30 30 30 30 20 20 4c 20 |ADDR. : 0000 L | 00001b30 4c 49 53 54 49 4e 47 20 20 20 20 20 20 20 20 20 |LISTING | 00001b40 20 22 0d 10 fe 37 24 28 50 25 2b 38 30 29 3d 22 | "...7$(P%+80)="| 00001b50 20 46 20 46 49 4e 44 20 42 59 54 45 20 3a 20 30 | F FIND BYTE : 0| 00001b60 30 20 20 20 20 41 20 41 4c 54 45 52 20 42 59 54 |0 A ALTER BYT| 00001b70 45 20 20 20 20 20 20 20 22 0d 11 08 2d 24 28 50 |E "...-$(P| 00001b80 25 2b 31 32 30 29 3d 22 20 20 20 20 20 20 20 20 |%+120)=" | 00001b90 20 20 20 20 20 20 20 20 20 20 20 20 20 53 20 53 | S S| 00001ba0 54 52 49 4e 47 22 0d 11 12 18 50 25 3d 50 25 2b |TRING"....P%=P%+| 00001bb0 a9 28 24 50 25 29 3a 3f 50 25 3d 26 46 46 0d 11 |.($P%):?P%=&FF..| 00001bc0 1c 2b 53 54 32 3d 50 25 2b 31 3a 21 53 54 32 3d |.+ST2=P%+1:!ST2=| 00001bd0 26 30 30 30 30 30 31 31 37 3a 53 54 32 21 34 3d |&00000117:ST2!4=| 00001be0 30 3a 50 25 3d 50 25 2b 39 0d 11 26 2b 21 50 25 |0:P%=P%+9..&+!P%| 00001bf0 3d 26 30 30 31 46 30 30 30 30 3a 50 25 3d 50 25 |=&001F0000:P%=P%| 00001c00 2b 34 3a 21 50 25 3d 26 46 46 30 37 3a 50 25 3d |+4:!P%=&FF07:P%=| 00001c10 50 25 2b 32 0d 11 30 2f 53 54 33 3d 50 25 3a 21 |P%+2..0/ST3=P%:!| 00001c20 50 25 3d 26 30 30 30 30 30 30 31 46 3a 50 25 21 |P%=&0000001F:P%!| 00001c30 34 3d 26 46 46 30 30 30 30 30 30 3a 50 25 3d 50 |4=&FF000000:P%=P| 00001c40 25 2b 38 0d 11 3a 20 53 54 34 3d 50 25 3a 21 50 |%+8..: ST4=P%:!P| 00001c50 25 3d 26 46 46 32 30 32 30 32 30 3a 50 25 3d 50 |%=&FF202020:P%=P| 00001c60 25 2b 34 0d 11 44 28 53 54 35 3d 50 25 3a 21 50 |%+4..D(ST5=P%:!P| 00001c70 25 3d 26 30 30 30 31 30 31 31 37 3a 53 54 35 21 |%=&00010117:ST5!| 00001c80 34 3d 30 3a 50 25 3d 50 25 2b 38 0d 11 4e 19 21 |4=0:P%=P%+8..N.!| 00001c90 50 25 3d 26 46 46 30 30 30 30 30 30 3a 50 25 3d |P%=&FF000000:P%=| 00001ca0 50 25 2b 34 0d 11 58 1f 53 54 36 3d 50 25 3a 24 |P%+4..X.ST6=P%:$| 00001cb0 53 54 36 3d 22 46 58 34 2c 30 22 3a 50 25 3d 50 |ST6="FX4,0":P%=P| 00001cc0 25 2b 36 0d 11 62 05 f7 0d 11 6c 26 4e 55 4d 3d |%+6..b....l&NUM=| 00001cd0 50 25 3a e3 20 49 3d 30 20 b8 20 31 34 3a f3 20 |P%:. I=0 . 14:. | 00001ce0 4e 25 3a 50 25 3f 49 3d 4e 25 3a ed 20 49 0d 11 |N%:P%?I=N%:. I..| 00001cf0 76 0c 50 25 3d 50 25 2b 31 35 0d 11 80 1c 50 25 |v.P%=P%+15....P%| 00001d00 3d 28 50 25 20 81 32 35 36 29 2b 31 3a 50 25 3d |=(P% .256)+1:P%=| 00001d10 50 25 2a 32 35 36 0d 11 8a 2b 48 41 53 48 3d 50 |P%*256...+HASH=P| 00001d20 25 3a 54 59 50 45 3d 50 25 2b 32 35 36 3a 50 25 |%:TYPE=P%+256:P%| 00001d30 3d 50 25 2b 35 31 32 3a 53 54 52 49 4e 47 3d 50 |=P%+512:STRING=P| 00001d40 25 0d 11 94 08 ed 20 4f 50 0d 11 9e 39 e3 20 49 |%..... OP...9. I| 00001d50 25 3d 30 20 b8 20 32 35 35 20 88 20 34 3a 48 41 |%=0 . 255 . 4:HA| 00001d60 53 48 21 49 25 3d 30 3a 54 59 50 45 21 49 25 3d |SH!I%=0:TYPE!I%=| 00001d70 30 3a 53 54 52 49 4e 47 21 49 25 3d 30 3a ed 20 |0:STRING!I%=0:. | 00001d80 49 25 0d 11 a8 05 f5 0d 11 b2 18 f3 20 41 24 3a |I%.......... A$:| 00001d90 e7 20 41 24 3d 22 2a 22 20 8c 20 8d 64 5a 51 0d |. A$="*" . .dZQ.| 00001da0 11 bc 26 e7 20 97 28 41 24 29 3d 97 28 22 2d 22 |..&. .(A$)=.("-"| 00001db0 29 20 8c 20 49 3d 94 28 bb 28 41 24 29 29 3a e5 |) . I=.(.(A$)):.| 00001dc0 20 8d 74 72 51 0d 11 c6 24 4d 3d a0 28 22 26 22 | .trQ...$M=.("&"| 00001dd0 2b c0 41 24 2c 31 29 29 3a 4d 4e 3d a0 28 22 26 |+.A$,1)):MN=.("&| 00001de0 22 2b c2 41 24 2c 32 29 29 0d 11 d0 17 48 41 53 |"+.A$,2))....HAS| 00001df0 48 3f 4d 4e 3d 49 3a 54 59 50 45 3f 4d 4e 3d 4d |H?MN=I:TYPE?MN=M| 00001e00 0d 11 da 0c fd 20 41 24 3d 22 2a 22 0d 11 e4 31 |..... A$="*"...1| 00001e10 41 24 3d 22 20 2d 2d 2d 20 41 44 43 20 41 4e 44 |A$=" --- ADC AND| 00001e20 20 41 53 4c 20 42 43 43 20 42 43 53 20 42 45 51 | ASL BCC BCS BEQ| 00001e30 20 42 49 54 20 42 4d 49 20 42 4e 45 22 0d 11 ee | BIT BMI BNE"...| 00001e40 34 41 24 3d 41 24 2b 22 20 42 50 4c 20 42 52 4b |4A$=A$+" BPL BRK| 00001e50 20 42 56 43 20 42 56 53 20 43 4c 43 20 43 4c 44 | BVC BVS CLC CLD| 00001e60 20 43 4c 49 20 43 4c 56 20 43 4d 50 20 43 50 58 | CLI CLV CMP CPX| 00001e70 22 0d 11 f8 34 41 24 3d 41 24 2b 22 20 43 50 59 |"...4A$=A$+" CPY| 00001e80 20 44 45 43 20 44 45 58 20 44 45 59 20 45 4f 52 | DEC DEX DEY EOR| 00001e90 20 49 4e 43 20 49 4e 58 20 49 4e 59 20 4a 4d 50 | INC INX INY JMP| 00001ea0 20 4a 53 52 22 0d 12 02 34 41 24 3d 41 24 2b 22 | JSR"...4A$=A$+"| 00001eb0 20 4c 44 41 20 4c 44 58 20 4c 44 59 20 4c 53 52 | LDA LDX LDY LSR| 00001ec0 20 4e 4f 50 20 4f 52 41 20 50 48 41 20 50 48 50 | NOP ORA PHA PHP| 00001ed0 20 50 4c 41 20 50 4c 50 22 0d 12 0c 34 41 24 3d | PLA PLP"...4A$=| 00001ee0 41 24 2b 22 20 52 4f 4c 20 52 4f 52 20 52 54 49 |A$+" ROL ROR RTI| 00001ef0 20 52 54 53 20 53 42 43 20 53 45 43 20 53 45 44 | RTS SBC SEC SED| 00001f00 20 53 45 49 20 53 54 41 20 53 54 58 22 0d 12 16 | SEI STA STX"...| 00001f10 28 41 24 3d 41 24 2b 22 20 53 54 59 20 54 41 58 |(A$=A$+" STY TAX| 00001f20 20 54 41 59 20 54 53 58 20 54 58 41 20 54 58 53 | TAY TSX TXA TXS| 00001f30 20 54 59 41 22 0d 12 20 0e 24 53 54 52 49 4e 47 | TYA".. .$STRING| 00001f40 3d 41 24 0d 12 2a 05 e0 0d 12 34 22 dc 31 2c 32 |=A$..*....4".1,2| 00001f50 2c 33 2c 32 2c 31 2c 31 2c 32 2c 32 2c 32 2c 33 |,3,2,1,1,2,2,2,3| 00001f60 2c 33 2c 32 2c 33 2c 32 2c 31 0d 12 3e 27 dc 2d |,3,2,3,2,1..>'.-| 00001f70 31 2c 31 36 39 2c 32 36 44 2c 33 36 35 2c 36 36 |1,169,26D,365,66| 00001f80 31 2c 37 37 31 2c 38 37 35 2c 39 37 44 2c 41 37 |1,771,875,97D,A7| 00001f90 39 0d 12 48 27 dc 2d 32 2c 31 32 39 2c 32 32 44 |9..H'.-2,129,22D| 00001fa0 2c 33 32 35 2c 36 32 31 2c 37 33 31 2c 38 33 35 |,325,621,731,835| 00001fb0 2c 39 33 44 2c 41 33 39 0d 12 52 1b dc 2d 33 2c |,93D,A39..R..-3,| 00001fc0 32 30 45 2c 33 30 36 2c 34 30 41 2c 38 31 36 2c |20E,306,40A,816,| 00001fd0 39 31 45 0d 12 5c 0b dc 2d 34 2c 42 39 30 0d 12 |91E..\..-4,B90..| 00001fe0 66 0b dc 2d 35 2c 42 42 30 0d 12 70 0b dc 2d 36 |f..-5,BB0..p..-6| 00001ff0 2c 42 46 30 0d 12 7a 0f dc 2d 37 2c 32 32 43 2c |,BF0..z..-7,22C,| 00002000 33 32 34 0d 12 84 0b dc 2d 38 2c 42 33 30 0d 12 |324.....-8,B30..| 00002010 8e 0b dc 2d 39 2c 42 44 30 0d 12 98 0c dc 2d 31 |...-9,BD0.....-1| 00002020 30 2c 42 31 30 0d 12 a2 0c dc 2d 31 31 2c 35 30 |0,B10.....-11,50| 00002030 30 0d 12 ac 0c dc 2d 31 32 2c 42 35 30 0d 12 b6 |0.....-12,B50...| 00002040 0c dc 2d 31 33 2c 42 37 30 0d 12 c0 0c dc 2d 31 |..-13,B70.....-1| 00002050 34 2c 35 31 38 0d 12 ca 0c dc 2d 31 35 2c 35 44 |4,518.....-15,5D| 00002060 38 0d 12 d4 0c dc 2d 31 36 2c 35 35 38 0d 12 de |8.....-16,558...| 00002070 0c dc 2d 31 37 2c 35 42 38 0d 12 e8 28 dc 2d 31 |..-17,5B8...(.-1| 00002080 38 2c 31 43 39 2c 32 43 44 2c 33 43 35 2c 36 43 |8,1C9,2CD,3C5,6C| 00002090 31 2c 37 44 31 2c 38 44 35 2c 39 44 44 2c 41 44 |1,7D1,8D5,9DD,AD| 000020a0 39 0d 12 f2 14 dc 2d 31 39 2c 31 45 30 2c 32 45 |9.....-19,1E0,2E| 000020b0 43 2c 33 45 34 0d 12 fc 14 dc 2d 32 30 2c 31 43 |C,3E4.....-20,1C| 000020c0 30 2c 32 43 43 2c 33 43 34 0d 13 06 18 dc 2d 32 |0,2CC,3C4.....-2| 000020d0 31 2c 32 43 45 2c 33 43 36 2c 38 44 36 2c 39 44 |1,2CE,3C6,8D6,9D| 000020e0 45 0d 13 10 0c dc 2d 32 32 2c 35 43 41 0d 13 1a |E.....-22,5CA...| 000020f0 0c dc 2d 32 33 2c 35 38 38 0d 13 24 28 dc 2d 32 |..-23,588..$(.-2| 00002100 34 2c 31 34 39 2c 32 34 44 2c 33 34 35 2c 36 34 |4,149,24D,345,64| 00002110 31 2c 37 35 31 2c 38 35 35 2c 39 35 44 2c 41 35 |1,751,855,95D,A5| 00002120 39 0d 13 2e 18 dc 2d 32 35 2c 32 45 45 2c 33 45 |9.....-25,2EE,3E| 00002130 36 2c 38 46 36 2c 39 46 45 0d 13 38 0c dc 2d 32 |6,8F6,9FE..8..-2| 00002140 36 2c 35 45 38 0d 13 42 0c dc 2d 32 37 2c 35 43 |6,5E8..B..-27,5C| 00002150 38 0d 13 4c 10 dc 2d 32 38 2c 32 34 43 2c 43 36 |8..L..-28,24C,C6| 00002160 43 0d 13 56 0c dc 2d 32 39 2c 32 32 30 0d 13 60 |C..V..-29,220..`| 00002170 28 dc 2d 33 30 2c 31 41 39 2c 32 41 44 2c 33 41 |(.-30,1A9,2AD,3A| 00002180 35 2c 36 41 31 2c 37 42 31 2c 38 42 35 2c 39 42 |5,6A1,7B1,8B5,9B| 00002190 44 2c 41 42 39 0d 13 6a 1c dc 2d 33 31 2c 31 41 |D,AB9..j..-31,1A| 000021a0 32 2c 32 41 45 2c 33 41 36 2c 41 42 45 2c 44 42 |2,2AE,3A6,ABE,DB| 000021b0 36 0d 13 74 1c dc 2d 33 32 2c 31 41 30 2c 32 41 |6..t..-32,1A0,2A| 000021c0 43 2c 33 41 34 2c 38 42 34 2c 39 42 43 0d 13 7e |C,3A4,8B4,9BC..~| 000021d0 1c dc 2d 33 33 2c 32 34 45 2c 33 34 36 2c 34 34 |..-33,24E,346,44| 000021e0 41 2c 38 35 36 2c 39 35 45 0d 13 88 0c dc 2d 33 |A,856,95E.....-3| 000021f0 34 2c 35 45 41 0d 13 92 28 dc 2d 33 35 2c 31 30 |4,5EA...(.-35,10| 00002200 39 2c 32 30 44 2c 33 30 35 2c 36 30 31 2c 37 31 |9,20D,305,601,71| 00002210 31 2c 38 31 35 2c 39 31 44 2c 41 31 39 0d 13 9c |1,815,91D,A19...| 00002220 0c dc 2d 33 36 2c 35 34 38 0d 13 a6 0c dc 2d 33 |..-36,548.....-3| 00002230 37 2c 35 30 38 0d 13 b0 0c dc 2d 33 38 2c 35 36 |7,508.....-38,56| 00002240 38 0d 13 ba 0c dc 2d 33 39 2c 35 32 38 0d 13 c4 |8.....-39,528...| 00002250 1c dc 2d 34 30 2c 32 32 45 2c 33 32 36 2c 34 32 |..-40,22E,326,42| 00002260 41 2c 38 33 36 2c 39 33 45 0d 13 ce 1c dc 2d 34 |A,836,93E.....-4| 00002270 31 2c 32 36 45 2c 33 36 36 2c 34 36 41 2c 38 37 |1,26E,366,46A,87| 00002280 36 2c 39 37 45 0d 13 d8 0c dc 2d 34 32 2c 35 34 |6,97E.....-42,54| 00002290 30 0d 13 e2 0c dc 2d 34 33 2c 35 36 30 0d 13 ec |0.....-43,560...| 000022a0 28 dc 2d 34 34 2c 31 45 39 2c 32 45 44 2c 33 45 |(.-44,1E9,2ED,3E| 000022b0 35 2c 36 45 31 2c 37 46 31 2c 38 46 35 2c 39 46 |5,6E1,7F1,8F5,9F| 000022c0 44 2c 41 46 39 0d 13 f6 0c dc 2d 34 35 2c 35 33 |D,AF9.....-45,53| 000022d0 38 0d 14 00 0c dc 2d 34 36 2c 35 46 38 0d 14 0a |8.....-46,5F8...| 000022e0 0c dc 2d 34 37 2c 35 37 38 0d 14 14 24 dc 2d 34 |..-47,578...$.-4| 000022f0 38 2c 32 38 44 2c 33 38 35 2c 36 38 31 2c 37 39 |8,28D,385,681,79| 00002300 31 2c 38 39 35 2c 39 39 44 2c 41 39 39 0d 14 1e |1,895,99D,A99...| 00002310 14 dc 2d 34 39 2c 32 38 45 2c 33 38 36 2c 44 39 |..-49,28E,386,D9| 00002320 36 0d 14 28 14 dc 2d 35 30 2c 32 38 43 2c 33 38 |6..(..-50,28C,38| 00002330 34 2c 38 39 34 0d 14 32 0c dc 2d 35 31 2c 35 41 |4,894..2..-51,5A| 00002340 41 0d 14 3c 0c dc 2d 35 32 2c 35 41 38 0d 14 46 |A..<..-52,5A8..F| 00002350 0c dc 2d 35 33 2c 35 42 41 0d 14 50 0c dc 2d 35 |..-53,5BA..P..-5| 00002360 34 2c 35 38 41 0d 14 5a 0c dc 2d 35 35 2c 35 39 |4,58A..Z..-55,59| 00002370 41 0d 14 64 0e dc 2d 35 36 2c 35 39 38 2c 2a 0d |A..d..-56,598,*.| 00002380 ff |.| 00002381