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
xP%=&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
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 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
DISASS.m0
DISASS.m1
DISASS.m2
DISASS.m4
DISASS.m5