Home » Personal collection » Acorn tapes » Own_Work » box01_tape15a_d60_acorn_joystick_progs.wav » DISPRINT
DISPRINT
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: | DISPRINT |
| Read OK: | ✔ |
| File size: | 1BDE 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 2 STEP 2
120P%=&52BF
140[OPT OP:ADC#&FF:ADC&FFFF:ADC&FF:ADC(&FF,X):ADC(&FF),Y:ADC&FF,X:ADC&FFFF,X:ADC&FFFF,Y
150AND#&FF:AND&FFFF:AND&FF:AND(&FF,X):AND(&FF),Y:AND&FF,X:AND&FFFF,X:AND&FFFF,Y
160ASL&FFFF:ASL&FF:ASL A:ASL&FF,X:ASL&FFFF,X
170BCC P%+1:BCS P%+1:BEQ P%+1
180BIT&FFFF:BIT&FF
190BMI P%+1:BNE P%+1:BPL P%+1:BRK:BVC P%+1:BVS P%+1:CLC:CLD:CLI:CLV
200CMP#&FF:CMP&FFFF:CMP&FF:CMP(&FF,X):CMP(&FF),Y:CMP&FF,X:CMP&FFFF,X:CMP&FFFF,Y
210CPX#&FF:CPX&FFFF:CPX&FF
220CPY#&FF:CPY&FFFF:CPY&FF
230DEC&FFFF:DEC&FF:DEC&FF,X:DEC&FFFF,X
240DEX:DEY
250EOR#&FF:EOR&FFFF:EOR&FF:EOR(&FF,X):EOR(&FF),Y:EOR&FF,X:EOR&FFFF,X:EOR&FFFF,Y
260INC&FFFF:INC&FF:INC&FF,X:INC&FFFF,X
270INX:INY:JMP&FFFF:JMP(&FFFF)
280JSR&FFFF
290LDA#&FF:LDA&FFFF:LDA&FF:LDA(&FF,X):LDA(&FF),Y:LDA&FF,X:LDA&FFFF,X:LDA&FFFF,Y
300LDX#&FF:LDX&FFFF:LDX&FF:LDX&FF,Y:LDX&FFFF,Y
310LDY#&FF:LDY&FFFF:LDY&FF:LDY&FF,X:LDY&FFFF,X
320LSR&FFFF:LSR&FF:LSR A:LSR&FF,X:LSR&FFFF,X
330NOP:ORA#&FF:ORA&FFFF:ORA&FF:ORA(&FF,X):ORA(&FF),Y:ORA&FF,X:ORA&FFFF,X:ORA&FFFF,Y
340PHA:PHP:PLA:PLP
350ROL&FFFF:ROL&FF:ROL A:ROL&FF,X:ROL&FFFF,X
360ROR&FFFF:ROR&FF:ROR A:ROR&FF,X:ROR&FFFF,X
370RTI:RTS
380SBC#&FF:SBC&FFFF:SBC&FF:SBC(&FF,X):SBC(&FF),Y:SBC&FF,X:SBC&FFFF,X:SBC&FFFF,Y
390SEC:SED:SEI
400STA&FFFF:STA&FF:STA(&FF,X):STA(&FF),Y:STA&FF,X:STA&FFFF,X:STA&FFFF,Y
410STX&FFFF:STX&FF:STX&FF,Y:STY&FFFF:STY&FF:STY&FF,X
420TAX:TAY:TSX:TXA:TXS:TYA
430]
440PRINT P%
450[OPT OP
1775.START
1776 LDA LO:STA BLO:LDA HI:STA BHI
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 LDA OHI:CMP HI:BCC FINLIN:BNE ANOTHER:LDA OLO:CMP LO:BCC FINLIN:.ANOTHER JMP LINLOP
3090.FINLIN LDA BLO:STA LO:LDA BHI:STA HI:RTS:.BLO EQUW 0:.BHI EQUW 0
3690.CHOUT CMP#ASC(" "):BCC DUF
3710CMP#&7F:BCC OK
3740.DUF LDA#ASC(".")
3750.OK JSR OSASCI:RTS
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
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
P OLO=&7B:OHI=&7C:OUMB=&88
ZHA=&8D:HB=&8E:HC=&8F
d%DLINES=&7D:NUMB=&7E:TEMPSTACK=&7F
n� OP=0 � 2 � 2
x P%=&52BF
�X[OPT OP:ADC#&FF:ADC&FFFF:ADC&FF:ADC(&FF,X):ADC(&FF),Y:ADC&FF,X:ADC&FFFF,X:ADC&FFFF,Y
�@�#&FF:�&FFFF:�&FF:�(&FF,X):�(&FF),Y:�&FF,X:�&FFFF,X:�&FFFF,Y
�-ASL&FFFF:ASL&FF:ASL A:ASL&FF,X:ASL&FFFF,X
� BCC P%+1:BCS P%+1:BEQ P%+1
�BIT&FFFF:BIT&FF
�DBMI P%+1:BNE P%+1:BPL P%+1:BRK:BVC P%+1:BVS P%+1:CLC:CLD:CLI:CLV
�PCMP#&FF:CMP&FFFF:CMP&FF:CMP(&FF,X):CMP(&FF),Y:CMP&FF,X:CMP&FFFF,X:CMP&FFFF,Y
�CPX#&FF:CPX&FFFF:CPX&FF
�CPY#&FF:CPY&FFFF:CPY&FF
�'DEC&FFFF:DEC&FF:DEC&FF,X:DEC&FFFF,X
� DEX:DEY
�@�#&FF:�&FFFF:�&FF:�(&FF,X):�(&FF),Y:�&FF,X:�&FFFF,X:�&FFFF,Y
'INC&FFFF:INC&FF:INC&FF,X:INC&FFFF,X
INX:INY:JMP&FFFF:JMP(&FFFF)
JSR&FFFF
"PLDA#&FF:LDA&FFFF:LDA&FF:LDA(&FF,X):LDA(&FF),Y:LDA&FF,X:LDA&FFFF,X:LDA&FFFF,Y
,/LDX#&FF:LDX&FFFF:LDX&FF:LDX&FF,Y:LDX&FFFF,Y
6/LDY#&FF:LDY&FFFF:LDY&FF:LDY&FF,X:LDY&FFFF,X
@-LSR&FFFF:LSR&FF:LSR A:LSR&FF,X:LSR&FFFF,X
JLNOP:�A#&FF:�A&FFFF:�A&FF:�A(&FF,X):�A(&FF),Y:�A&FF,X:�A&FFFF,X:�A&FFFF,Y
TPHA:PHP:PLA:PLP
^-ROL&FFFF:ROL&FF:ROL A:ROL&FF,X:ROL&FFFF,X
h-ROR&FFFF:ROR&FF:ROR A:ROR&FF,X:ROR&FFFF,X
r RTI:RTS
|PSBC#&FF:SBC&FFFF:SBC&FF:SBC(&FF,X):SBC(&FF),Y:SBC&FF,X:SBC&FFFF,X:SBC&FFFF,Y
�SEC:SED:SEI
�HSTA&FFFF:STA&FF:STA(&FF,X):STA(&FF),Y:STA&FF,X:STA&FFFF,X:STA&FFFF,Y
�5STX&FFFF:STX&FF:STX&FF,Y:STY&FFFF:STY&FF:STY&FF,X
�TAX:TAY:TSX:TXA:TXS:TYA
�]
�� P%
� [OPT OP
�
.START
�" LDA LO:STA BLO:LDA HI:STA BHI
� .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 LDA OHI:CMP HI:BCC FINLIN:BNE ANOTHER:LDA OLO:CMP LO:BCC FINLIN:.ANOTHER JMP LINLOP
E.FINLIN LDA BLO:STA LO:LDA BHI:STA HI:RTS:.BLO EQUW 0:.BHI EQUW 0
j .CHOUT CMP#�(" "):BCC DUF
~CMP#&7F:BCC OK
�.DUF LDA#�(".")
�.OK JSR OSASCI:RTS
�.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
J PHA: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
�]
�#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
X ST6=P%:$ST6="FX4,0":P%=P%+6
b�
l&NUM=P%:� I=0 � 14:� N%:P%?I=N%:� I
v P%=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 32 20 88 20 32 0d 00 |. OP=0 . 2 . 2..|
00000150 78 0c 50 25 3d 26 35 32 42 46 0d 00 8c 58 5b 4f |x.P%=&52BF...X[O|
00000160 50 54 20 4f 50 3a 41 44 43 23 26 46 46 3a 41 44 |PT OP:ADC#&FF:AD|
00000170 43 26 46 46 46 46 3a 41 44 43 26 46 46 3a 41 44 |C&FFFF:ADC&FF:AD|
00000180 43 28 26 46 46 2c 58 29 3a 41 44 43 28 26 46 46 |C(&FF,X):ADC(&FF|
00000190 29 2c 59 3a 41 44 43 26 46 46 2c 58 3a 41 44 43 |),Y:ADC&FF,X:ADC|
000001a0 26 46 46 46 46 2c 58 3a 41 44 43 26 46 46 46 46 |&FFFF,X:ADC&FFFF|
000001b0 2c 59 0d 00 96 40 80 23 26 46 46 3a 80 26 46 46 |,Y...@.#&FF:.&FF|
000001c0 46 46 3a 80 26 46 46 3a 80 28 26 46 46 2c 58 29 |FF:.&FF:.(&FF,X)|
000001d0 3a 80 28 26 46 46 29 2c 59 3a 80 26 46 46 2c 58 |:.(&FF),Y:.&FF,X|
000001e0 3a 80 26 46 46 46 46 2c 58 3a 80 26 46 46 46 46 |:.&FFFF,X:.&FFFF|
000001f0 2c 59 0d 00 a0 2d 41 53 4c 26 46 46 46 46 3a 41 |,Y...-ASL&FFFF:A|
00000200 53 4c 26 46 46 3a 41 53 4c 20 41 3a 41 53 4c 26 |SL&FF:ASL A:ASL&|
00000210 46 46 2c 58 3a 41 53 4c 26 46 46 46 46 2c 58 0d |FF,X:ASL&FFFF,X.|
00000220 00 aa 1e 42 43 43 20 50 25 2b 31 3a 42 43 53 20 |...BCC P%+1:BCS |
00000230 50 25 2b 31 3a 42 45 51 20 50 25 2b 31 0d 00 b4 |P%+1:BEQ P%+1...|
00000240 13 42 49 54 26 46 46 46 46 3a 42 49 54 26 46 46 |.BIT&FFFF:BIT&FF|
00000250 0d 00 be 44 42 4d 49 20 50 25 2b 31 3a 42 4e 45 |...DBMI P%+1:BNE|
00000260 20 50 25 2b 31 3a 42 50 4c 20 50 25 2b 31 3a 42 | P%+1:BPL P%+1:B|
00000270 52 4b 3a 42 56 43 20 50 25 2b 31 3a 42 56 53 20 |RK:BVC P%+1:BVS |
00000280 50 25 2b 31 3a 43 4c 43 3a 43 4c 44 3a 43 4c 49 |P%+1:CLC:CLD:CLI|
00000290 3a 43 4c 56 0d 00 c8 50 43 4d 50 23 26 46 46 3a |:CLV...PCMP#&FF:|
000002a0 43 4d 50 26 46 46 46 46 3a 43 4d 50 26 46 46 3a |CMP&FFFF:CMP&FF:|
000002b0 43 4d 50 28 26 46 46 2c 58 29 3a 43 4d 50 28 26 |CMP(&FF,X):CMP(&|
000002c0 46 46 29 2c 59 3a 43 4d 50 26 46 46 2c 58 3a 43 |FF),Y:CMP&FF,X:C|
000002d0 4d 50 26 46 46 46 46 2c 58 3a 43 4d 50 26 46 46 |MP&FFFF,X:CMP&FF|
000002e0 46 46 2c 59 0d 00 d2 1b 43 50 58 23 26 46 46 3a |FF,Y....CPX#&FF:|
000002f0 43 50 58 26 46 46 46 46 3a 43 50 58 26 46 46 0d |CPX&FFFF:CPX&FF.|
00000300 00 dc 1b 43 50 59 23 26 46 46 3a 43 50 59 26 46 |...CPY#&FF:CPY&F|
00000310 46 46 46 3a 43 50 59 26 46 46 0d 00 e6 27 44 45 |FFF:CPY&FF...'DE|
00000320 43 26 46 46 46 46 3a 44 45 43 26 46 46 3a 44 45 |C&FFFF:DEC&FF:DE|
00000330 43 26 46 46 2c 58 3a 44 45 43 26 46 46 46 46 2c |C&FF,X:DEC&FFFF,|
00000340 58 0d 00 f0 0b 44 45 58 3a 44 45 59 0d 00 fa 40 |X....DEX:DEY...@|
00000350 82 23 26 46 46 3a 82 26 46 46 46 46 3a 82 26 46 |.#&FF:.&FFFF:.&F|
00000360 46 3a 82 28 26 46 46 2c 58 29 3a 82 28 26 46 46 |F:.(&FF,X):.(&FF|
00000370 29 2c 59 3a 82 26 46 46 2c 58 3a 82 26 46 46 46 |),Y:.&FF,X:.&FFF|
00000380 46 2c 58 3a 82 26 46 46 46 46 2c 59 0d 01 04 27 |F,X:.&FFFF,Y...'|
00000390 49 4e 43 26 46 46 46 46 3a 49 4e 43 26 46 46 3a |INC&FFFF:INC&FF:|
000003a0 49 4e 43 26 46 46 2c 58 3a 49 4e 43 26 46 46 46 |INC&FF,X:INC&FFF|
000003b0 46 2c 58 0d 01 0e 1f 49 4e 58 3a 49 4e 59 3a 4a |F,X....INX:INY:J|
000003c0 4d 50 26 46 46 46 46 3a 4a 4d 50 28 26 46 46 46 |MP&FFFF:JMP(&FFF|
000003d0 46 29 0d 01 18 0c 4a 53 52 26 46 46 46 46 0d 01 |F)....JSR&FFFF..|
000003e0 22 50 4c 44 41 23 26 46 46 3a 4c 44 41 26 46 46 |"PLDA#&FF:LDA&FF|
000003f0 46 46 3a 4c 44 41 26 46 46 3a 4c 44 41 28 26 46 |FF:LDA&FF:LDA(&F|
00000400 46 2c 58 29 3a 4c 44 41 28 26 46 46 29 2c 59 3a |F,X):LDA(&FF),Y:|
00000410 4c 44 41 26 46 46 2c 58 3a 4c 44 41 26 46 46 46 |LDA&FF,X:LDA&FFF|
00000420 46 2c 58 3a 4c 44 41 26 46 46 46 46 2c 59 0d 01 |F,X:LDA&FFFF,Y..|
00000430 2c 2f 4c 44 58 23 26 46 46 3a 4c 44 58 26 46 46 |,/LDX#&FF:LDX&FF|
00000440 46 46 3a 4c 44 58 26 46 46 3a 4c 44 58 26 46 46 |FF:LDX&FF:LDX&FF|
00000450 2c 59 3a 4c 44 58 26 46 46 46 46 2c 59 0d 01 36 |,Y:LDX&FFFF,Y..6|
00000460 2f 4c 44 59 23 26 46 46 3a 4c 44 59 26 46 46 46 |/LDY#&FF:LDY&FFF|
00000470 46 3a 4c 44 59 26 46 46 3a 4c 44 59 26 46 46 2c |F:LDY&FF:LDY&FF,|
00000480 58 3a 4c 44 59 26 46 46 46 46 2c 58 0d 01 40 2d |X:LDY&FFFF,X..@-|
00000490 4c 53 52 26 46 46 46 46 3a 4c 53 52 26 46 46 3a |LSR&FFFF:LSR&FF:|
000004a0 4c 53 52 20 41 3a 4c 53 52 26 46 46 2c 58 3a 4c |LSR A:LSR&FF,X:L|
000004b0 53 52 26 46 46 46 46 2c 58 0d 01 4a 4c 4e 4f 50 |SR&FFFF,X..JLNOP|
000004c0 3a 84 41 23 26 46 46 3a 84 41 26 46 46 46 46 3a |:.A#&FF:.A&FFFF:|
000004d0 84 41 26 46 46 3a 84 41 28 26 46 46 2c 58 29 3a |.A&FF:.A(&FF,X):|
000004e0 84 41 28 26 46 46 29 2c 59 3a 84 41 26 46 46 2c |.A(&FF),Y:.A&FF,|
000004f0 58 3a 84 41 26 46 46 46 46 2c 58 3a 84 41 26 46 |X:.A&FFFF,X:.A&F|
00000500 46 46 46 2c 59 0d 01 54 13 50 48 41 3a 50 48 50 |FFF,Y..T.PHA:PHP|
00000510 3a 50 4c 41 3a 50 4c 50 0d 01 5e 2d 52 4f 4c 26 |:PLA:PLP..^-ROL&|
00000520 46 46 46 46 3a 52 4f 4c 26 46 46 3a 52 4f 4c 20 |FFFF:ROL&FF:ROL |
00000530 41 3a 52 4f 4c 26 46 46 2c 58 3a 52 4f 4c 26 46 |A:ROL&FF,X:ROL&F|
00000540 46 46 46 2c 58 0d 01 68 2d 52 4f 52 26 46 46 46 |FFF,X..h-ROR&FFF|
00000550 46 3a 52 4f 52 26 46 46 3a 52 4f 52 20 41 3a 52 |F:ROR&FF:ROR A:R|
00000560 4f 52 26 46 46 2c 58 3a 52 4f 52 26 46 46 46 46 |OR&FF,X:ROR&FFFF|
00000570 2c 58 0d 01 72 0b 52 54 49 3a 52 54 53 0d 01 7c |,X..r.RTI:RTS..||
00000580 50 53 42 43 23 26 46 46 3a 53 42 43 26 46 46 46 |PSBC#&FF:SBC&FFF|
00000590 46 3a 53 42 43 26 46 46 3a 53 42 43 28 26 46 46 |F:SBC&FF:SBC(&FF|
000005a0 2c 58 29 3a 53 42 43 28 26 46 46 29 2c 59 3a 53 |,X):SBC(&FF),Y:S|
000005b0 42 43 26 46 46 2c 58 3a 53 42 43 26 46 46 46 46 |BC&FF,X:SBC&FFFF|
000005c0 2c 58 3a 53 42 43 26 46 46 46 46 2c 59 0d 01 86 |,X:SBC&FFFF,Y...|
000005d0 0f 53 45 43 3a 53 45 44 3a 53 45 49 0d 01 90 48 |.SEC:SED:SEI...H|
000005e0 53 54 41 26 46 46 46 46 3a 53 54 41 26 46 46 3a |STA&FFFF:STA&FF:|
000005f0 53 54 41 28 26 46 46 2c 58 29 3a 53 54 41 28 26 |STA(&FF,X):STA(&|
00000600 46 46 29 2c 59 3a 53 54 41 26 46 46 2c 58 3a 53 |FF),Y:STA&FF,X:S|
00000610 54 41 26 46 46 46 46 2c 58 3a 53 54 41 26 46 46 |TA&FFFF,X:STA&FF|
00000620 46 46 2c 59 0d 01 9a 35 53 54 58 26 46 46 46 46 |FF,Y...5STX&FFFF|
00000630 3a 53 54 58 26 46 46 3a 53 54 58 26 46 46 2c 59 |:STX&FF:STX&FF,Y|
00000640 3a 53 54 59 26 46 46 46 46 3a 53 54 59 26 46 46 |:STY&FFFF:STY&FF|
00000650 3a 53 54 59 26 46 46 2c 58 0d 01 a4 1b 54 41 58 |:STY&FF,X....TAX|
00000660 3a 54 41 59 3a 54 53 58 3a 54 58 41 3a 54 58 53 |:TAY:TSX:TXA:TXS|
00000670 3a 54 59 41 0d 01 ae 05 5d 0d 01 b8 08 f1 20 50 |:TYA....]..... P|
00000680 25 0d 01 c2 0b 5b 4f 50 54 20 4f 50 0d 06 ef 0a |%....[OPT OP....|
00000690 2e 53 54 41 52 54 0d 06 f0 22 20 4c 44 41 20 4c |.START..." LDA L|
000006a0 4f 3a 53 54 41 20 42 4c 4f 3a 4c 44 41 20 48 49 |O:STA BLO:LDA HI|
000006b0 3a 53 54 41 20 42 48 49 0d 06 f4 0b 2e 4c 49 4e |:STA BHI.....LIN|
000006c0 4c 4f 50 0d 07 08 23 4c 44 41 20 48 49 3a 4a 53 |LOP...#LDA HI:JS|
000006d0 52 20 48 45 58 3a 4c 44 41 20 4c 4f 3a 4a 53 52 |R HEX:LDA LO:JSR|
000006e0 20 48 45 58 53 50 0d 07 26 0f 4c 44 59 23 30 3a | HEXSP..&.LDY#0:|
000006f0 4c 44 58 23 33 0d 07 30 2f 2e 48 41 4c 4f 50 20 |LDX#3..0/.HALOP |
00000700 4c 44 41 28 4c 4f 29 2c 59 3a 53 54 41 20 48 41 |LDA(LO),Y:STA HA|
00000710 2c 59 3a 49 4e 59 3a 44 45 58 3a 42 4e 45 20 48 |,Y:INY:DEX:BNE H|
00000720 41 4c 4f 50 0d 07 44 23 4c 44 58 20 48 41 3a 4c |ALOP..D#LDX HA:L|
00000730 44 41 20 54 59 50 45 2c 58 3a 54 41 58 3a 4c 44 |DA TYPE,X:TAX:LD|
00000740 41 20 4e 55 4d 2c 58 0d 07 58 32 53 54 41 20 4e |A NUM,X..X2STA N|
00000750 55 4d 42 3a 43 4c 43 3a 41 44 43 20 4c 4f 3a 53 |UMB:CLC:ADC LO:S|
00000760 54 41 20 4c 4f 3a 4c 44 41 23 30 3a 41 44 43 20 |TA LO:LDA#0:ADC |
00000770 48 49 3a 53 54 41 20 48 49 0d 07 6c 33 4c 44 58 |HI:STA HI..l3LDX|
00000780 20 4e 55 4d 42 3a 4c 44 59 23 33 3a 4c 44 41 20 | NUMB:LDY#3:LDA |
00000790 48 41 3a 4a 53 52 20 48 45 58 53 50 3a 44 45 59 |HA:JSR HEXSP:DEY|
000007a0 3a 44 45 58 3a 42 45 51 20 50 41 44 0d 07 76 24 |:DEX:BEQ PAD..v$|
000007b0 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 53 50 |LDA HB:JSR HEXSP|
000007c0 3a 44 45 59 3a 44 45 58 3a 42 45 51 20 50 41 44 |:DEY:DEX:BEQ PAD|
000007d0 0d 07 80 21 4c 44 41 20 48 43 3a 4a 53 52 20 48 |...!LDA HC:JSR H|
000007e0 45 58 53 50 3a 44 45 58 3a 42 45 51 20 4d 4e 45 |EXSP:DEX:BEQ MNE|
000007f0 4d 0d 07 94 10 2e 50 41 44 20 54 59 41 3a 50 48 |M.....PAD TYA:PH|
00000800 41 0d 07 9e 2e 4c 44 58 23 28 53 54 34 20 83 20 |A....LDX#(ST4 . |
00000810 32 35 36 29 3a 4c 44 59 23 28 53 54 34 20 81 20 |256):LDY#(ST4 . |
00000820 32 35 36 29 3a 4a 53 52 20 4f 55 54 50 55 54 0d |256):JSR OUTPUT.|
00000830 07 a8 17 50 4c 41 3a 54 41 59 3a 44 45 59 3a 42 |...PLA:TAY:DEY:B|
00000840 4e 45 20 50 41 44 0d 07 bc 20 2e 4d 4e 45 4d 20 |NE PAD... .MNEM |
00000850 4c 44 41 20 23 97 28 22 20 22 29 3a 4a 53 52 20 |LDA #.(" "):JSR |
00000860 4f 53 41 53 43 49 0d 07 d0 29 4c 44 58 20 48 41 |OSASCI...)LDX HA|
00000870 3a 4c 44 41 20 48 41 53 48 2c 58 3a 41 53 4c 20 |:LDA HASH,X:ASL |
00000880 41 3a 41 53 4c 20 41 3a 53 54 41 20 4f 55 54 0d |A:ASL A:STA OUT.|
00000890 07 e4 2a 4c 44 41 23 28 53 54 52 49 4e 47 20 81 |..*LDA#(STRING .|
000008a0 20 32 35 36 29 3a 53 54 41 20 50 55 54 3a 4c 44 | 256):STA PUT:LD|
000008b0 58 23 34 3a 4c 44 59 23 30 0d 07 f8 35 2e 4d 4e |X#4:LDY#0...5.MN|
000008c0 4d 4c 4f 50 20 4c 44 41 20 28 4f 55 54 29 2c 59 |MLOP LDA (OUT),Y|
000008d0 3a 4a 53 52 20 4f 53 41 53 43 49 3a 49 4e 59 3a |:JSR OSASCI:INY:|
000008e0 44 45 58 3a 42 4e 45 20 4d 4e 4d 4c 4f 50 0d 08 |DEX:BNE MNMLOP..|
000008f0 02 1a 4c 44 41 20 23 97 28 22 20 22 29 3a 4a 53 |..LDA #.(" "):JS|
00000900 52 20 4f 53 41 53 43 49 0d 08 16 24 4c 44 58 20 |R OSASCI...$LDX |
00000910 48 41 3a 4c 44 41 20 54 59 50 45 2c 58 3a 43 4d |HA:LDA TYPE,X:CM|
00000920 50 23 31 3a 42 4e 45 20 4e 4f 44 31 0d 08 2a 31 |P#1:BNE NOD1..*1|
00000930 4c 44 41 20 23 97 28 22 23 22 29 3a 4a 53 52 20 |LDA #.("#"):JSR |
00000940 4f 53 41 53 43 49 3a 4c 44 41 20 23 97 28 22 26 |OSASCI:LDA #.("&|
00000950 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 08 3e |"):JSR OSASCI..>|
00000960 25 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 53 |%LDA HB:JSR HEXS|
00000970 50 3a 4c 44 59 23 35 3a 4a 4d 50 20 4e 44 4c 49 |P:LDY#5:JMP NDLI|
00000980 4e 45 0d 08 52 18 2e 4e 4f 44 31 20 43 4d 50 23 |NE..R..NOD1 CMP#|
00000990 32 3a 42 4e 45 20 4e 4f 44 32 0d 08 66 29 4c 44 |2:BNE NOD2..f)LD|
000009a0 41 20 23 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 |A #.("&"):JSR OS|
000009b0 41 53 43 49 3a 4c 44 41 20 48 43 3a 4a 53 52 20 |ASCI:LDA HC:JSR |
000009c0 48 45 58 0d 08 70 25 4c 44 41 20 48 42 3a 4a 53 |HEX..p%LDA HB:JS|
000009d0 52 20 48 45 58 53 50 3a 4c 44 59 23 34 3a 4a 4d |R HEXSP:LDY#4:JM|
000009e0 50 20 4e 44 4c 49 4e 45 0d 08 84 18 2e 4e 4f 44 |P NDLINE.....NOD|
000009f0 32 20 43 4d 50 23 33 3a 42 4e 45 20 4e 4f 44 33 |2 CMP#3:BNE NOD3|
00000a00 0d 08 98 2b 4c 44 41 20 23 97 28 22 26 22 29 3a |...+LDA #.("&"):|
00000a10 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 48 |JSR OSASCI:LDA H|
00000a20 42 3a 4a 53 52 20 48 45 58 53 50 0d 08 a2 14 4c |B:JSR HEXSP....L|
00000a30 44 59 23 36 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d |DY#6:JMP NDLINE.|
00000a40 08 b6 18 2e 4e 4f 44 33 20 43 4d 50 23 34 3a 42 |....NOD3 CMP#4:B|
00000a50 4e 45 20 4e 4f 44 34 0d 08 ca 2b 4c 44 41 20 23 |NE NOD4...+LDA #|
00000a60 97 28 22 41 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.("A"):JSR OSASC|
00000a70 49 3a 4c 44 59 23 39 3a 4a 4d 50 20 4e 44 4c 49 |I:LDY#9:JMP NDLI|
00000a80 4e 45 0d 08 de 18 2e 4e 4f 44 34 3a 43 4d 50 23 |NE.....NOD4:CMP#|
00000a90 35 3a 42 4e 45 20 4e 4f 44 35 0d 08 f2 15 4c 44 |5:BNE NOD5....LD|
00000aa0 59 23 31 30 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d |Y#10:JMP NDLINE.|
00000ab0 09 06 18 2e 4e 4f 44 35 20 43 4d 50 23 36 3a 42 |....NOD5 CMP#6:B|
00000ac0 4e 45 20 4e 4f 44 36 0d 09 1a 31 4c 44 41 20 23 |NE NOD6...1LDA #|
00000ad0 97 28 22 28 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.("("):JSR OSASC|
00000ae0 49 3a 4c 44 41 20 23 97 28 22 26 22 29 3a 4a 53 |I:LDA #.("&"):JS|
00000af0 52 20 4f 53 41 53 43 49 0d 09 24 29 4c 44 41 20 |R OSASCI..$)LDA |
00000b00 48 42 3a 4a 53 52 20 48 45 58 3a 4c 44 41 20 23 |HB:JSR HEX:LDA #|
00000b10 97 28 22 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.(","):JSR OSASC|
00000b20 49 0d 09 2e 31 4c 44 41 20 23 97 28 22 58 22 29 |I...1LDA #.("X")|
00000b30 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 |:JSR OSASCI:LDA |
00000b40 23 97 28 22 29 22 29 3a 4a 53 52 20 4f 53 41 53 |#.(")"):JSR OSAS|
00000b50 43 49 0d 09 38 14 4c 44 59 23 33 3a 4a 4d 50 20 |CI..8.LDY#3:JMP |
00000b60 4e 44 4c 49 4e 45 0d 09 4c 18 2e 4e 4f 44 36 20 |NDLINE..L..NOD6 |
00000b70 43 4d 50 23 37 3a 42 4e 45 20 4e 4f 44 37 0d 09 |CMP#7:BNE NOD7..|
00000b80 60 2f 4c 44 41 23 97 28 22 28 22 29 3a 4a 53 52 |`/LDA#.("("):JSR|
00000b90 20 4f 53 41 53 43 49 3a 4c 44 41 23 97 28 22 26 | OSASCI:LDA#.("&|
00000ba0 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 09 6a |"):JSR OSASCI..j|
00000bb0 28 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 3a |(LDA HB:JSR HEX:|
00000bc0 4c 44 41 23 97 28 22 29 22 29 3a 4a 53 52 20 4f |LDA#.(")"):JSR O|
00000bd0 53 41 53 43 49 0d 09 74 2f 4c 44 41 23 97 28 22 |SASCI..t/LDA#.("|
00000be0 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c |,"):JSR OSASCI:L|
00000bf0 44 41 23 97 28 22 59 22 29 3a 4a 53 52 20 4f 53 |DA#.("Y"):JSR OS|
00000c00 41 53 43 49 0d 09 7e 14 4c 44 59 23 33 3a 4a 4d |ASCI..~.LDY#3:JM|
00000c10 50 20 4e 44 4c 49 4e 45 0d 09 92 18 2e 4e 4f 44 |P NDLINE.....NOD|
00000c20 37 20 43 4d 50 23 38 3a 42 4e 45 20 4e 4f 44 38 |7 CMP#8:BNE NOD8|
00000c30 0d 09 a6 28 4c 44 41 23 97 28 22 26 22 29 3a 4a |...(LDA#.("&"):J|
00000c40 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 48 42 |SR OSASCI:LDA HB|
00000c50 3a 4a 53 52 20 48 45 58 0d 09 b0 2f 4c 44 41 23 |:JSR HEX.../LDA#|
00000c60 97 28 22 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.(","):JSR OSASC|
00000c70 49 3a 4c 44 41 23 97 28 22 58 22 29 3a 4a 53 52 |I:LDA#.("X"):JSR|
00000c80 20 4f 53 41 53 43 49 0d 09 ba 14 4c 44 59 23 35 | OSASCI....LDY#5|
00000c90 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d 09 ce 18 2e |:JMP NDLINE.....|
00000ca0 4e 4f 44 38 20 43 4d 50 23 39 3a 42 4e 45 20 4e |NOD8 CMP#9:BNE N|
00000cb0 4f 44 39 0d 09 e2 28 4c 44 41 23 97 28 22 26 22 |OD9...(LDA#.("&"|
00000cc0 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 |):JSR OSASCI:LDA|
00000cd0 20 48 43 3a 4a 53 52 20 48 45 58 0d 09 ec 28 4c | HC:JSR HEX...(L|
00000ce0 44 41 20 48 42 3a 4a 53 52 20 48 45 58 3a 4c 44 |DA HB:JSR HEX:LD|
00000cf0 41 23 97 28 22 2c 22 29 3a 4a 53 52 20 4f 53 41 |A#.(","):JSR OSA|
00000d00 53 43 49 0d 09 f6 19 4c 44 41 23 97 28 22 58 22 |SCI....LDA#.("X"|
00000d10 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 0a 00 14 |):JSR OSASCI....|
00000d20 4c 44 59 23 33 3a 4a 4d 50 20 4e 44 4c 49 4e 45 |LDY#3:JMP NDLINE|
00000d30 0d 0a 14 19 2e 4e 4f 44 39 20 43 4d 50 23 26 41 |.....NOD9 CMP#&A|
00000d40 3a 42 4e 45 20 4e 4f 44 41 0d 0a 28 28 4c 44 41 |:BNE NODA..((LDA|
00000d50 23 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 53 |#.("&"):JSR OSAS|
00000d60 43 49 3a 4c 44 41 20 48 43 3a 4a 53 52 20 48 45 |CI:LDA HC:JSR HE|
00000d70 58 0d 0a 32 28 4c 44 41 20 48 42 3a 4a 53 52 20 |X..2(LDA HB:JSR |
00000d80 48 45 58 3a 4c 44 41 23 97 28 22 2c 22 29 3a 4a |HEX:LDA#.(","):J|
00000d90 53 52 20 4f 53 41 53 43 49 0d 0a 3c 19 4c 44 41 |SR OSASCI..<.LDA|
00000da0 23 97 28 22 59 22 29 3a 4a 53 52 20 4f 53 41 53 |#.("Y"):JSR OSAS|
00000db0 43 49 0d 0a 46 14 4c 44 59 23 33 3a 4a 4d 50 20 |CI..F.LDY#3:JMP |
00000dc0 4e 44 4c 49 4e 45 0d 0a 5a 19 2e 4e 4f 44 41 20 |NDLINE..Z..NODA |
00000dd0 43 4d 50 23 26 42 3a 42 4e 45 20 4e 4f 44 42 0d |CMP#&B:BNE NODB.|
00000de0 0a 6e 19 4c 44 41 23 97 28 22 26 22 29 3a 4a 53 |.n.LDA#.("&"):JS|
00000df0 52 20 4f 53 41 53 43 49 0d 0a 82 1b 4c 44 41 20 |R OSASCI....LDA |
00000e00 48 42 3a 43 4d 50 23 26 37 46 3a 42 43 53 20 42 |HB:CMP#&7F:BCS B|
00000e10 41 43 4b 0d 0a 96 2b 43 4c 43 3a 41 44 43 20 4c |ACK...+CLC:ADC L|
00000e20 4f 3a 50 48 41 3a 4c 44 41 23 30 3a 41 44 43 20 |O:PHA:LDA#0:ADC |
00000e30 48 49 3a 43 4c 43 3a 42 43 43 20 52 45 4c 0d 0a |HI:CLC:BCC REL..|
00000e40 aa 2e 2e 42 41 43 4b 20 82 23 32 35 35 3a 41 44 |...BACK .#255:AD|
00000e50 43 23 30 3a 53 54 41 26 37 30 3a 4c 44 41 20 4c |C#0:STA&70:LDA L|
00000e60 4f 3a 53 45 43 3a 53 42 43 26 37 30 0d 0a b4 14 |O:SEC:SBC&70....|
00000e70 50 48 41 3a 4c 44 41 20 48 49 3a 53 42 43 23 30 |PHA:LDA HI:SBC#0|
00000e80 0d 0a c8 1e 2e 52 45 4c 20 4a 53 52 20 48 45 58 |.....REL JSR HEX|
00000e90 3a 50 4c 41 3a 4a 53 52 20 48 45 58 53 50 0d 0a |:PLA:JSR HEXSP..|
00000ea0 d2 14 4c 44 59 23 34 3a 4a 4d 50 20 4e 44 4c 49 |..LDY#4:JMP NDLI|
00000eb0 4e 45 0d 0a e6 19 2e 4e 4f 44 42 20 43 4d 50 23 |NE.....NODB CMP#|
00000ec0 26 43 3a 42 4e 45 20 4e 4f 44 43 0d 0a fa 2f 4c |&C:BNE NODC.../L|
00000ed0 44 41 23 97 28 22 28 22 29 3a 4a 53 52 20 4f 53 |DA#.("("):JSR OS|
00000ee0 41 53 43 49 3a 4c 44 41 23 97 28 22 26 22 29 3a |ASCI:LDA#.("&"):|
00000ef0 4a 53 52 20 4f 53 41 53 43 49 0d 0b 04 21 4c 44 |JSR OSASCI...!LD|
00000f00 41 20 48 43 3a 4a 53 52 20 48 45 58 3a 4c 44 41 |A HC:JSR HEX:LDA|
00000f10 20 48 42 3a 4a 53 52 20 48 45 58 0d 0b 0e 2a 4c | HB:JSR HEX...*L|
00000f20 44 41 23 97 28 22 29 22 29 3a 4a 53 52 20 4f 53 |DA#.(")"):JSR OS|
00000f30 41 53 43 49 3a 4c 44 59 23 33 3a 4a 4d 50 20 4e |ASCI:LDY#3:JMP N|
00000f40 44 4c 49 4e 45 0d 0b 22 19 2e 4e 4f 44 43 20 43 |DLINE.."..NODC C|
00000f50 4d 50 23 26 44 3a 42 4e 45 20 4e 4f 44 44 0d 0b |MP#&D:BNE NODD..|
00000f60 36 28 4c 44 41 23 97 28 22 26 22 29 3a 4a 53 52 |6(LDA#.("&"):JSR|
00000f70 20 4f 53 41 53 43 49 3a 4c 44 41 20 48 42 3a 4a | OSASCI:LDA HB:J|
00000f80 53 52 20 48 45 58 0d 0b 40 2f 4c 44 41 23 97 28 |SR HEX..@/LDA#.(|
00000f90 22 2c 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a |","):JSR OSASCI:|
00000fa0 4c 44 41 23 97 28 22 59 22 29 3a 4a 53 52 20 4f |LDA#.("Y"):JSR O|
00000fb0 53 41 53 43 49 0d 0b 4a 14 4c 44 59 23 35 3a 4a |SASCI..J.LDY#5:J|
00000fc0 4d 50 20 4e 44 4c 49 4e 45 0d 0b 5e 10 2e 4e 4f |MP NDLINE..^..NO|
00000fd0 44 44 20 4c 44 59 23 31 30 0d 0b 72 30 2e 4e 44 |DD LDY#10..r0.ND|
00000fe0 4c 49 4e 45 20 4c 44 41 23 97 28 22 20 22 29 3a |LINE LDA#.(" "):|
00000ff0 4a 53 52 20 4f 53 41 53 43 49 3a 44 45 59 3a 42 |JSR OSASCI:DEY:B|
00001000 50 4c 20 4e 44 4c 49 4e 45 0d 0b 86 12 4c 44 58 |PL NDLINE....LDX|
00001010 20 4e 55 4d 42 3a 4c 44 59 23 30 0d 0b 90 33 2e | NUMB:LDY#0...3.|
00001020 44 49 53 50 4c 4f 50 20 4c 44 41 20 48 41 2c 59 |DISPLOP LDA HA,Y|
00001030 3a 4a 53 52 20 43 48 4f 55 54 3a 49 4e 59 3a 44 |:JSR CHOUT:INY:D|
00001040 45 58 3a 42 4e 45 20 44 49 53 50 4c 4f 50 0d 0b |EX:BNE DISPLOP..|
00001050 a4 32 4c 44 41 23 97 28 22 20 22 29 3a 2e 50 41 |.2LDA#.(" "):.PA|
00001060 44 32 20 4a 53 52 20 4f 53 41 53 43 49 3a 49 4e |D2 JSR OSASCI:IN|
00001070 59 3a 43 50 59 23 34 3a 42 4e 45 20 50 41 44 32 |Y:CPY#4:BNE PAD2|
00001080 0d 0b b8 27 4c 44 58 23 35 3a 2e 50 41 44 33 20 |...'LDX#5:.PAD3 |
00001090 4a 53 52 20 4f 53 41 53 43 49 3a 44 45 58 3a 42 |JSR OSASCI:DEX:B|
000010a0 4e 45 20 50 41 44 33 0d 0b d6 1f 4c 44 41 20 44 |NE PAD3....LDA D|
000010b0 4c 49 4e 45 53 3a 43 4d 50 23 31 36 3a 42 4e 45 |LINES:CMP#16:BNE|
000010c0 20 4f 56 4f 4c 44 0d 0b ea 21 4c 44 41 20 4c 4f | OVOLD...!LDA LO|
000010d0 3a 53 54 41 20 4f 4c 4f 3a 4c 44 41 20 48 49 3a |:STA OLO:LDA HI:|
000010e0 53 54 41 20 4f 48 49 0d 0b f4 15 4c 44 41 20 4e |STA OHI....LDA N|
000010f0 55 4d 42 3a 53 54 41 20 4f 55 4d 42 0d 0c 08 5e |UMB:STA OUMB...^|
00001100 2e 4f 56 4f 4c 44 20 4c 44 41 20 4f 48 49 3a 43 |.OVOLD LDA OHI:C|
00001110 4d 50 20 48 49 3a 42 43 43 20 46 49 4e 4c 49 4e |MP HI:BCC FINLIN|
00001120 3a 42 4e 45 20 41 4e 4f 54 48 45 52 3a 4c 44 41 |:BNE ANOTHER:LDA|
00001130 20 4f 4c 4f 3a 43 4d 50 20 4c 4f 3a 42 43 43 20 | OLO:CMP LO:BCC |
00001140 46 49 4e 4c 49 4e 3a 2e 41 4e 4f 54 48 45 52 20 |FINLIN:.ANOTHER |
00001150 4a 4d 50 20 4c 49 4e 4c 4f 50 0d 0c 12 45 2e 46 |JMP LINLOP...E.F|
00001160 49 4e 4c 49 4e 20 4c 44 41 20 42 4c 4f 3a 53 54 |INLIN LDA BLO:ST|
00001170 41 20 4c 4f 3a 4c 44 41 20 42 48 49 3a 53 54 41 |A LO:LDA BHI:STA|
00001180 20 48 49 3a 52 54 53 3a 2e 42 4c 4f 20 45 51 55 | HI:RTS:.BLO EQU|
00001190 57 20 30 3a 2e 42 48 49 20 45 51 55 57 20 30 0d |W 0:.BHI EQUW 0.|
000011a0 0e 6a 1d 2e 43 48 4f 55 54 20 43 4d 50 23 97 28 |.j..CHOUT CMP#.(|
000011b0 22 20 22 29 3a 42 43 43 20 44 55 46 0d 0e 7e 12 |" "):BCC DUF..~.|
000011c0 43 4d 50 23 26 37 46 3a 42 43 43 20 4f 4b 0d 0e |CMP#&7F:BCC OK..|
000011d0 9c 13 2e 44 55 46 20 4c 44 41 23 97 28 22 2e 22 |...DUF LDA#.("."|
000011e0 29 0d 0e a6 16 2e 4f 4b 20 4a 53 52 20 4f 53 41 |).....OK JSR OSA|
000011f0 53 43 49 3a 52 54 53 0d 0f d2 19 2e 4f 55 54 50 |SCI:RTS.....OUTP|
00001200 55 54 20 53 54 58 26 37 30 3a 53 54 59 26 37 31 |UT STX&70:STY&71|
00001210 0d 0f dc 09 4c 44 59 23 30 0d 0f e6 27 2e 4c 4f |....LDY#0...'.LO|
00001220 4f 50 20 4c 44 41 28 26 37 30 29 2c 59 3a 43 4d |OP LDA(&70),Y:CM|
00001230 50 23 26 46 46 3a 42 45 51 20 4f 55 54 45 4e 44 |P#&FF:BEQ OUTEND|
00001240 0d 0f f0 1b 4a 53 52 20 4f 53 41 53 43 49 3a 49 |....JSR OSASCI:I|
00001250 4e 59 3a 42 4e 45 20 4c 4f 4f 50 0d 0f fa 0f 2e |NY:BNE LOOP.....|
00001260 4f 55 54 45 4e 44 20 52 54 53 0d 10 22 25 2e 48 |OUTEND RTS.."%.H|
00001270 45 58 53 50 20 4a 53 52 20 48 45 58 3a 4c 44 41 |EXSP JSR HEX:LDA|
00001280 23 26 32 30 3a 4a 4d 50 20 4f 53 57 52 43 48 0d |#&20:JMP OSWRCH.|
00001290 10 36 08 2e 48 45 58 0d 10 4a 1f 50 48 41 3a 4c |.6..HEX..J.PHA:L|
000012a0 53 52 20 41 3a 4c 53 52 20 41 3a 4c 53 52 20 41 |SR A:LSR A:LSR A|
000012b0 3a 4c 53 52 20 41 0d 10 54 17 4a 53 52 20 48 45 |:LSR A..T.JSR HE|
000012c0 58 44 49 47 3a 50 4c 41 3a 80 23 26 46 0d 10 5e |XDIG:PLA:.#&F..^|
000012d0 23 2e 48 45 58 44 49 47 20 43 4d 50 23 26 41 3a |#.HEXDIG CMP#&A:|
000012e0 42 43 43 20 48 45 58 44 49 48 3a 41 44 43 23 36 |BCC HEXDIH:ADC#6|
000012f0 0d 10 68 1e 2e 48 45 58 44 49 48 20 41 44 43 23 |..h..HEXDIH ADC#|
00001300 26 33 30 3a 4a 4d 50 20 4f 53 57 52 43 48 0d 10 |&30:JMP OSWRCH..|
00001310 d6 05 5d 0d 10 e0 23 53 54 31 3d 50 25 2b 31 3a |..]...#ST1=P%+1:|
00001320 21 53 54 31 3d 26 30 44 30 43 30 36 31 36 3a 50 |!ST1=&0D0C0616:P|
00001330 25 3d 50 25 2b 35 0d 10 ea 32 24 50 25 3d 22 20 |%=P%+5...2$P%=" |
00001340 45 4c 45 43 54 52 4f 4e 20 44 45 42 55 47 47 45 |ELECTRON DEBUGGE|
00001350 52 20 20 20 44 20 44 55 4d 50 20 4d 45 4d 4f 52 |R D DUMP MEMOR|
00001360 59 20 20 20 20 20 20 22 0d 10 f4 37 24 28 50 25 |Y "...7$(P%|
00001370 2b 34 30 29 3d 22 20 48 20 48 45 58 20 41 44 44 |+40)=" H HEX ADD|
00001380 52 2e 20 3a 20 30 30 30 30 20 20 4c 20 4c 49 53 |R. : 0000 L LIS|
00001390 54 49 4e 47 20 20 20 20 20 20 20 20 20 20 22 0d |TING ".|
000013a0 10 fe 37 24 28 50 25 2b 38 30 29 3d 22 20 46 20 |..7$(P%+80)=" F |
000013b0 46 49 4e 44 20 42 59 54 45 20 3a 20 30 30 20 20 |FIND BYTE : 00 |
000013c0 20 20 41 20 41 4c 54 45 52 20 42 59 54 45 20 20 | A ALTER BYTE |
000013d0 20 20 20 20 20 22 0d 11 08 2d 24 28 50 25 2b 31 | "...-$(P%+1|
000013e0 32 30 29 3d 22 20 20 20 20 20 20 20 20 20 20 20 |20)=" |
000013f0 20 20 20 20 20 20 20 20 20 20 53 20 53 54 52 49 | S STRI|
00001400 4e 47 22 0d 11 12 18 50 25 3d 50 25 2b a9 28 24 |NG"....P%=P%+.($|
00001410 50 25 29 3a 3f 50 25 3d 26 46 46 0d 11 1c 2b 53 |P%):?P%=&FF...+S|
00001420 54 32 3d 50 25 2b 31 3a 21 53 54 32 3d 26 30 30 |T2=P%+1:!ST2=&00|
00001430 30 30 30 31 31 37 3a 53 54 32 21 34 3d 30 3a 50 |000117:ST2!4=0:P|
00001440 25 3d 50 25 2b 39 0d 11 26 2b 21 50 25 3d 26 30 |%=P%+9..&+!P%=&0|
00001450 30 31 46 30 30 30 30 3a 50 25 3d 50 25 2b 34 3a |01F0000:P%=P%+4:|
00001460 21 50 25 3d 26 46 46 30 37 3a 50 25 3d 50 25 2b |!P%=&FF07:P%=P%+|
00001470 32 0d 11 30 2f 53 54 33 3d 50 25 3a 21 50 25 3d |2..0/ST3=P%:!P%=|
00001480 26 30 30 30 30 30 30 31 46 3a 50 25 21 34 3d 26 |&0000001F:P%!4=&|
00001490 46 46 30 30 30 30 30 30 3a 50 25 3d 50 25 2b 38 |FF000000:P%=P%+8|
000014a0 0d 11 3a 20 53 54 34 3d 50 25 3a 21 50 25 3d 26 |..: ST4=P%:!P%=&|
000014b0 46 46 32 30 32 30 32 30 3a 50 25 3d 50 25 2b 34 |FF202020:P%=P%+4|
000014c0 0d 11 44 28 53 54 35 3d 50 25 3a 21 50 25 3d 26 |..D(ST5=P%:!P%=&|
000014d0 30 30 30 31 30 31 31 37 3a 53 54 35 21 34 3d 30 |00010117:ST5!4=0|
000014e0 3a 50 25 3d 50 25 2b 38 0d 11 4e 19 21 50 25 3d |:P%=P%+8..N.!P%=|
000014f0 26 46 46 30 30 30 30 30 30 3a 50 25 3d 50 25 2b |&FF000000:P%=P%+|
00001500 34 0d 11 58 1f 53 54 36 3d 50 25 3a 24 53 54 36 |4..X.ST6=P%:$ST6|
00001510 3d 22 46 58 34 2c 30 22 3a 50 25 3d 50 25 2b 36 |="FX4,0":P%=P%+6|
00001520 0d 11 62 05 f7 0d 11 6c 26 4e 55 4d 3d 50 25 3a |..b....l&NUM=P%:|
00001530 e3 20 49 3d 30 20 b8 20 31 34 3a f3 20 4e 25 3a |. I=0 . 14:. N%:|
00001540 50 25 3f 49 3d 4e 25 3a ed 20 49 0d 11 76 0c 50 |P%?I=N%:. I..v.P|
00001550 25 3d 50 25 2b 31 35 0d 11 80 1c 50 25 3d 28 50 |%=P%+15....P%=(P|
00001560 25 20 81 32 35 36 29 2b 31 3a 50 25 3d 50 25 2a |% .256)+1:P%=P%*|
00001570 32 35 36 0d 11 8a 2b 48 41 53 48 3d 50 25 3a 54 |256...+HASH=P%:T|
00001580 59 50 45 3d 50 25 2b 32 35 36 3a 50 25 3d 50 25 |YPE=P%+256:P%=P%|
00001590 2b 35 31 32 3a 53 54 52 49 4e 47 3d 50 25 0d 11 |+512:STRING=P%..|
000015a0 94 08 ed 20 4f 50 0d 11 9e 39 e3 20 49 25 3d 30 |... OP...9. I%=0|
000015b0 20 b8 20 32 35 35 20 88 20 34 3a 48 41 53 48 21 | . 255 . 4:HASH!|
000015c0 49 25 3d 30 3a 54 59 50 45 21 49 25 3d 30 3a 53 |I%=0:TYPE!I%=0:S|
000015d0 54 52 49 4e 47 21 49 25 3d 30 3a ed 20 49 25 0d |TRING!I%=0:. I%.|
000015e0 11 a8 05 f5 0d 11 b2 18 f3 20 41 24 3a e7 20 41 |......... A$:. A|
000015f0 24 3d 22 2a 22 20 8c 20 8d 64 5a 51 0d 11 bc 26 |$="*" . .dZQ...&|
00001600 e7 20 97 28 41 24 29 3d 97 28 22 2d 22 29 20 8c |. .(A$)=.("-") .|
00001610 20 49 3d 94 28 bb 28 41 24 29 29 3a e5 20 8d 74 | I=.(.(A$)):. .t|
00001620 72 51 0d 11 c6 24 4d 3d a0 28 22 26 22 2b c0 41 |rQ...$M=.("&"+.A|
00001630 24 2c 31 29 29 3a 4d 4e 3d a0 28 22 26 22 2b c2 |$,1)):MN=.("&"+.|
00001640 41 24 2c 32 29 29 0d 11 d0 17 48 41 53 48 3f 4d |A$,2))....HASH?M|
00001650 4e 3d 49 3a 54 59 50 45 3f 4d 4e 3d 4d 0d 11 da |N=I:TYPE?MN=M...|
00001660 0c fd 20 41 24 3d 22 2a 22 0d 11 e4 31 41 24 3d |.. A$="*"...1A$=|
00001670 22 20 2d 2d 2d 20 41 44 43 20 41 4e 44 20 41 53 |" --- ADC AND AS|
00001680 4c 20 42 43 43 20 42 43 53 20 42 45 51 20 42 49 |L BCC BCS BEQ BI|
00001690 54 20 42 4d 49 20 42 4e 45 22 0d 11 ee 34 41 24 |T BMI BNE"...4A$|
000016a0 3d 41 24 2b 22 20 42 50 4c 20 42 52 4b 20 42 56 |=A$+" BPL BRK BV|
000016b0 43 20 42 56 53 20 43 4c 43 20 43 4c 44 20 43 4c |C BVS CLC CLD CL|
000016c0 49 20 43 4c 56 20 43 4d 50 20 43 50 58 22 0d 11 |I CLV CMP CPX"..|
000016d0 f8 34 41 24 3d 41 24 2b 22 20 43 50 59 20 44 45 |.4A$=A$+" CPY DE|
000016e0 43 20 44 45 58 20 44 45 59 20 45 4f 52 20 49 4e |C DEX DEY EOR IN|
000016f0 43 20 49 4e 58 20 49 4e 59 20 4a 4d 50 20 4a 53 |C INX INY JMP JS|
00001700 52 22 0d 12 02 34 41 24 3d 41 24 2b 22 20 4c 44 |R"...4A$=A$+" LD|
00001710 41 20 4c 44 58 20 4c 44 59 20 4c 53 52 20 4e 4f |A LDX LDY LSR NO|
00001720 50 20 4f 52 41 20 50 48 41 20 50 48 50 20 50 4c |P ORA PHA PHP PL|
00001730 41 20 50 4c 50 22 0d 12 0c 34 41 24 3d 41 24 2b |A PLP"...4A$=A$+|
00001740 22 20 52 4f 4c 20 52 4f 52 20 52 54 49 20 52 54 |" ROL ROR RTI RT|
00001750 53 20 53 42 43 20 53 45 43 20 53 45 44 20 53 45 |S SBC SEC SED SE|
00001760 49 20 53 54 41 20 53 54 58 22 0d 12 16 28 41 24 |I STA STX"...(A$|
00001770 3d 41 24 2b 22 20 53 54 59 20 54 41 58 20 54 41 |=A$+" STY TAX TA|
00001780 59 20 54 53 58 20 54 58 41 20 54 58 53 20 54 59 |Y TSX TXA TXS TY|
00001790 41 22 0d 12 20 0e 24 53 54 52 49 4e 47 3d 41 24 |A".. .$STRING=A$|
000017a0 0d 12 2a 05 e0 0d 12 34 22 dc 31 2c 32 2c 33 2c |..*....4".1,2,3,|
000017b0 32 2c 31 2c 31 2c 32 2c 32 2c 32 2c 33 2c 33 2c |2,1,1,2,2,2,3,3,|
000017c0 32 2c 33 2c 32 2c 31 0d 12 3e 27 dc 2d 31 2c 31 |2,3,2,1..>'.-1,1|
000017d0 36 39 2c 32 36 44 2c 33 36 35 2c 36 36 31 2c 37 |69,26D,365,661,7|
000017e0 37 31 2c 38 37 35 2c 39 37 44 2c 41 37 39 0d 12 |71,875,97D,A79..|
000017f0 48 27 dc 2d 32 2c 31 32 39 2c 32 32 44 2c 33 32 |H'.-2,129,22D,32|
00001800 35 2c 36 32 31 2c 37 33 31 2c 38 33 35 2c 39 33 |5,621,731,835,93|
00001810 44 2c 41 33 39 0d 12 52 1b dc 2d 33 2c 32 30 45 |D,A39..R..-3,20E|
00001820 2c 33 30 36 2c 34 30 41 2c 38 31 36 2c 39 31 45 |,306,40A,816,91E|
00001830 0d 12 5c 0b dc 2d 34 2c 42 39 30 0d 12 66 0b dc |..\..-4,B90..f..|
00001840 2d 35 2c 42 42 30 0d 12 70 0b dc 2d 36 2c 42 46 |-5,BB0..p..-6,BF|
00001850 30 0d 12 7a 0f dc 2d 37 2c 32 32 43 2c 33 32 34 |0..z..-7,22C,324|
00001860 0d 12 84 0b dc 2d 38 2c 42 33 30 0d 12 8e 0b dc |.....-8,B30.....|
00001870 2d 39 2c 42 44 30 0d 12 98 0c dc 2d 31 30 2c 42 |-9,BD0.....-10,B|
00001880 31 30 0d 12 a2 0c dc 2d 31 31 2c 35 30 30 0d 12 |10.....-11,500..|
00001890 ac 0c dc 2d 31 32 2c 42 35 30 0d 12 b6 0c dc 2d |...-12,B50.....-|
000018a0 31 33 2c 42 37 30 0d 12 c0 0c dc 2d 31 34 2c 35 |13,B70.....-14,5|
000018b0 31 38 0d 12 ca 0c dc 2d 31 35 2c 35 44 38 0d 12 |18.....-15,5D8..|
000018c0 d4 0c dc 2d 31 36 2c 35 35 38 0d 12 de 0c dc 2d |...-16,558.....-|
000018d0 31 37 2c 35 42 38 0d 12 e8 28 dc 2d 31 38 2c 31 |17,5B8...(.-18,1|
000018e0 43 39 2c 32 43 44 2c 33 43 35 2c 36 43 31 2c 37 |C9,2CD,3C5,6C1,7|
000018f0 44 31 2c 38 44 35 2c 39 44 44 2c 41 44 39 0d 12 |D1,8D5,9DD,AD9..|
00001900 f2 14 dc 2d 31 39 2c 31 45 30 2c 32 45 43 2c 33 |...-19,1E0,2EC,3|
00001910 45 34 0d 12 fc 14 dc 2d 32 30 2c 31 43 30 2c 32 |E4.....-20,1C0,2|
00001920 43 43 2c 33 43 34 0d 13 06 18 dc 2d 32 31 2c 32 |CC,3C4.....-21,2|
00001930 43 45 2c 33 43 36 2c 38 44 36 2c 39 44 45 0d 13 |CE,3C6,8D6,9DE..|
00001940 10 0c dc 2d 32 32 2c 35 43 41 0d 13 1a 0c dc 2d |...-22,5CA.....-|
00001950 32 33 2c 35 38 38 0d 13 24 28 dc 2d 32 34 2c 31 |23,588..$(.-24,1|
00001960 34 39 2c 32 34 44 2c 33 34 35 2c 36 34 31 2c 37 |49,24D,345,641,7|
00001970 35 31 2c 38 35 35 2c 39 35 44 2c 41 35 39 0d 13 |51,855,95D,A59..|
00001980 2e 18 dc 2d 32 35 2c 32 45 45 2c 33 45 36 2c 38 |...-25,2EE,3E6,8|
00001990 46 36 2c 39 46 45 0d 13 38 0c dc 2d 32 36 2c 35 |F6,9FE..8..-26,5|
000019a0 45 38 0d 13 42 0c dc 2d 32 37 2c 35 43 38 0d 13 |E8..B..-27,5C8..|
000019b0 4c 10 dc 2d 32 38 2c 32 34 43 2c 43 36 43 0d 13 |L..-28,24C,C6C..|
000019c0 56 0c dc 2d 32 39 2c 32 32 30 0d 13 60 28 dc 2d |V..-29,220..`(.-|
000019d0 33 30 2c 31 41 39 2c 32 41 44 2c 33 41 35 2c 36 |30,1A9,2AD,3A5,6|
000019e0 41 31 2c 37 42 31 2c 38 42 35 2c 39 42 44 2c 41 |A1,7B1,8B5,9BD,A|
000019f0 42 39 0d 13 6a 1c dc 2d 33 31 2c 31 41 32 2c 32 |B9..j..-31,1A2,2|
00001a00 41 45 2c 33 41 36 2c 41 42 45 2c 44 42 36 0d 13 |AE,3A6,ABE,DB6..|
00001a10 74 1c dc 2d 33 32 2c 31 41 30 2c 32 41 43 2c 33 |t..-32,1A0,2AC,3|
00001a20 41 34 2c 38 42 34 2c 39 42 43 0d 13 7e 1c dc 2d |A4,8B4,9BC..~..-|
00001a30 33 33 2c 32 34 45 2c 33 34 36 2c 34 34 41 2c 38 |33,24E,346,44A,8|
00001a40 35 36 2c 39 35 45 0d 13 88 0c dc 2d 33 34 2c 35 |56,95E.....-34,5|
00001a50 45 41 0d 13 92 28 dc 2d 33 35 2c 31 30 39 2c 32 |EA...(.-35,109,2|
00001a60 30 44 2c 33 30 35 2c 36 30 31 2c 37 31 31 2c 38 |0D,305,601,711,8|
00001a70 31 35 2c 39 31 44 2c 41 31 39 0d 13 9c 0c dc 2d |15,91D,A19.....-|
00001a80 33 36 2c 35 34 38 0d 13 a6 0c dc 2d 33 37 2c 35 |36,548.....-37,5|
00001a90 30 38 0d 13 b0 0c dc 2d 33 38 2c 35 36 38 0d 13 |08.....-38,568..|
00001aa0 ba 0c dc 2d 33 39 2c 35 32 38 0d 13 c4 1c dc 2d |...-39,528.....-|
00001ab0 34 30 2c 32 32 45 2c 33 32 36 2c 34 32 41 2c 38 |40,22E,326,42A,8|
00001ac0 33 36 2c 39 33 45 0d 13 ce 1c dc 2d 34 31 2c 32 |36,93E.....-41,2|
00001ad0 36 45 2c 33 36 36 2c 34 36 41 2c 38 37 36 2c 39 |6E,366,46A,876,9|
00001ae0 37 45 0d 13 d8 0c dc 2d 34 32 2c 35 34 30 0d 13 |7E.....-42,540..|
00001af0 e2 0c dc 2d 34 33 2c 35 36 30 0d 13 ec 28 dc 2d |...-43,560...(.-|
00001b00 34 34 2c 31 45 39 2c 32 45 44 2c 33 45 35 2c 36 |44,1E9,2ED,3E5,6|
00001b10 45 31 2c 37 46 31 2c 38 46 35 2c 39 46 44 2c 41 |E1,7F1,8F5,9FD,A|
00001b20 46 39 0d 13 f6 0c dc 2d 34 35 2c 35 33 38 0d 14 |F9.....-45,538..|
00001b30 00 0c dc 2d 34 36 2c 35 46 38 0d 14 0a 0c dc 2d |...-46,5F8.....-|
00001b40 34 37 2c 35 37 38 0d 14 14 24 dc 2d 34 38 2c 32 |47,578...$.-48,2|
00001b50 38 44 2c 33 38 35 2c 36 38 31 2c 37 39 31 2c 38 |8D,385,681,791,8|
00001b60 39 35 2c 39 39 44 2c 41 39 39 0d 14 1e 14 dc 2d |95,99D,A99.....-|
00001b70 34 39 2c 32 38 45 2c 33 38 36 2c 44 39 36 0d 14 |49,28E,386,D96..|
00001b80 28 14 dc 2d 35 30 2c 32 38 43 2c 33 38 34 2c 38 |(..-50,28C,384,8|
00001b90 39 34 0d 14 32 0c dc 2d 35 31 2c 35 41 41 0d 14 |94..2..-51,5AA..|
00001ba0 3c 0c dc 2d 35 32 2c 35 41 38 0d 14 46 0c dc 2d |<..-52,5A8..F..-|
00001bb0 35 33 2c 35 42 41 0d 14 50 0c dc 2d 35 34 2c 35 |53,5BA..P..-54,5|
00001bc0 38 41 0d 14 5a 0c dc 2d 35 35 2c 35 39 41 0d 14 |8A..Z..-55,59A..|
00001bd0 64 0e dc 2d 35 36 2c 35 39 38 2c 2a 0d ff |d..-56,598,*..|
00001bde 
DISPRINT.m0
DISPRINT.m1
DISPRINT.m2
DISPRINT.m4
DISPRINT.m5
.