Home » Personal collection » Acorn tapes » Own_Work » box01_tape15a_d60_acorn_joystick_progs.wav » DIS2950
DIS2950
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: | DIS2950 |
Read OK: | ✔ |
File size: | 12B6 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 OUMP: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 1050LDA LO:CLC:ADC#8:STA LO 1060LDA HI:ADC#0:STA HI:JMP L5 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 NDLNE 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
� 6:�=&7000:�=&6400 � 28,0,24,39,16 7OSBYTE=&FFF4:OSWORD=&FFF1:OSASCI=&FFE3:OSWRCH=&FFEE (OSRDCH=&FFE0:CLI=&FFF7 2"OUT=&70:PUT=&71:SP=&72:BPT=&74 <,CONBLK=&76:HI=&81:LO=&80:DISP=&82:DH=&83 FUP=&85:STK=&86:ACR=&84 POLO=&7B:OHI=&7C:OUMB=&88 ZHA=&8D:HB=&8E:HC=&8F d%DLINES=&7D:NUMB=&7E:TEMPSTACK=&7F n� OP=0 � 3 � 3 xP%=&5400 �[OPT OP �TSX:STX TEMPSTACK �'LDA#0:STA CONBLK:LDA#6:STA CONBLK+1 �LDA#�("D"):STA DISP LDX#(ST1 � 256) LDY#(ST1 � 256) JSR OUTPUT 0LDA#4:LDX#1:JSR OSBYTE N.L5 JSR DISPLAY b.L7 JSR KEYIN vCMP#�("D"):BNE NOND �.STD STA DISP:JMP L5 �.NOND CMP#�("L"):BEQ STD �CMP #�("H"):BNE NONH � .HGIN LDX#15:LDY#2:JSR SETAB �)LDA#4:LDX#�("0"):LDY#�("F"):JSR STRIN �"JSR DHEX:BCCHGIN:LDA DH:STA HI ,LDA&602:STA&600:LDA&603:STA&601:JSR DHEX !BCC HGIN:LDA DH:STA LO:JMP L5 .NONH CMP#�("F"):BNE NOF 4 .FGIN LDX#15:LDY#3:JSR SETAB >)LDA#2:LDX#�("0"):LDY#�("F"):JSR STRIN H4JSR DHEX:BCC FGIN:LDA DISP:CMP#�("L"):BNE OVSWAP R4LDA OLO:SEC:SBC OUMP: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 LDA LO:CLC:ADC#8:STA LO $LDA HI:ADC#0:STA HI:JMP L5 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 NDLNE �.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 �
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 50 3a 53 54 41 20 4c 4f 3a 4c 44 |C OUMP: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 1a 1b 4c 44 41 20 4c 4f 3a 43 4c | L5....LDA LO:CL| 00000530 43 3a 41 44 43 23 38 3a 53 54 41 20 4c 4f 0d 04 |C:ADC#8:STA LO..| 00000540 24 1e 4c 44 41 20 48 49 3a 41 44 43 23 30 3a 53 |$.LDA HI:ADC#0:S| 00000550 54 41 20 48 49 3a 4a 4d 50 20 4c 35 0d 04 4c 1b |TA HI:JMP L5..L.| 00000560 4c 44 41 20 4c 4f 3a 53 45 43 3a 53 42 43 23 38 |LDA LO:SEC:SBC#8| 00000570 3a 53 54 41 20 4c 4f 0d 04 56 1e 4c 44 41 20 48 |:STA LO..V.LDA H| 00000580 49 3a 53 42 43 23 30 3a 53 54 41 20 48 49 3a 4a |I:SBC#0:STA HI:J| 00000590 4d 50 20 4c 35 0d 04 74 1e 2e 4e 4d 4f 56 45 20 |MP L5..t..NMOVE | 000005a0 43 4d 50 23 97 28 22 41 22 29 3a 42 4e 45 20 4e |CMP#.("A"):BNE N| 000005b0 4f 4e 41 0d 04 88 10 2e 41 47 49 4e 20 4c 44 59 |ONA.....AGIN LDY| 000005c0 23 31 34 0d 04 9c 27 4c 44 41 20 41 43 52 3a 41 |#14...'LDA ACR:A| 000005d0 53 4c 20 41 3a 43 4c 43 3a 41 44 43 20 41 43 52 |SL A:CLC:ADC ACR| 000005e0 3a 43 4c 43 3a 41 44 43 23 36 0d 04 b0 11 54 41 |:CLC:ADC#6....TA| 000005f0 58 3a 4a 53 52 20 53 45 54 41 42 0d 04 c4 29 4c |X:JSR SETAB...)L| 00000600 44 41 23 32 3a 4c 44 58 23 97 28 22 30 22 29 3a |DA#2:LDX#.("0"):| 00000610 4c 44 59 23 97 28 22 46 22 29 3a 4a 53 52 20 53 |LDY#.("F"):JSR S| 00000620 54 52 49 4e 0d 04 d8 2d 4a 53 52 20 44 48 45 58 |TRIN...-JSR DHEX| 00000630 3a 42 43 43 20 41 47 49 4e 3a 4c 44 41 20 44 48 |:BCC AGIN:LDA DH| 00000640 3a 4c 44 59 23 30 3a 53 54 41 20 28 4c 4f 29 2c |:LDY#0:STA (LO),| 00000650 59 0d 04 e2 0a 4a 4d 50 20 4c 35 0d 05 0a 27 2e |Y....JMP L5...'.| 00000660 44 48 45 58 20 4c 44 41 26 36 30 30 3a 43 4d 50 |DHEX LDA&600:CMP| 00000670 20 23 97 28 22 39 22 29 2b 31 3a 42 43 53 20 41 | #.("9")+1:BCS A| 00000680 4c 31 0d 05 14 11 80 23 26 30 46 3a 42 43 43 20 |L1.....#&0F:BCC | 00000690 54 49 50 0d 05 1e 2d 2e 41 4c 31 20 43 4d 50 20 |TIP...-.AL1 CMP | 000006a0 23 97 28 22 41 22 29 3a 42 43 43 20 45 52 48 45 |#.("A"):BCC ERHE| 000006b0 58 3a 53 42 43 20 23 97 28 22 41 22 29 2d 31 30 |X:SBC #.("A")-10| 000006c0 0d 05 32 27 2e 54 49 50 20 41 53 4c 20 41 3a 41 |..2'.TIP ASL A:A| 000006d0 53 4c 20 41 3a 41 53 4c 20 41 3a 41 53 4c 20 41 |SL A:ASL A:ASL A| 000006e0 3a 53 54 41 20 44 48 0d 05 3c 21 4c 44 41 26 36 |:STA DH..<!LDA&6| 000006f0 30 31 3a 43 4d 50 20 23 97 28 22 39 22 29 2b 31 |01:CMP #.("9")+1| 00000700 3a 42 43 53 20 41 4c 32 0d 05 46 11 80 23 26 30 |:BCS AL2..F..#&0| 00000710 46 3a 42 43 43 20 42 4f 54 0d 05 50 2d 2e 41 4c |F:BCC BOT..P-.AL| 00000720 32 20 43 4d 50 20 23 97 28 22 41 22 29 3a 42 43 |2 CMP #.("A"):BC| 00000730 43 20 45 52 48 45 58 3a 53 42 43 20 23 97 28 22 |C ERHEX:SBC #.("| 00000740 41 22 29 2d 31 30 0d 05 64 19 2e 42 4f 54 20 84 |A")-10..d..BOT .| 00000750 41 20 44 48 3a 53 54 41 20 44 48 3a 53 45 43 0d |A DH:STA DH:SEC.| 00000760 05 78 0e 2e 45 52 48 45 58 20 52 54 53 0d 05 a0 |.x..ERHEX RTS...| 00000770 1d 2e 4e 4f 4e 41 20 43 4d 50 20 23 97 28 22 53 |..NONA CMP #.("S| 00000780 22 29 42 4e 45 20 4e 4f 4e 53 0d 05 b4 31 2e 53 |")BNE NONS...1.S| 00000790 47 49 4e 20 4c 44 59 23 31 34 3a 4c 44 41 20 41 |GIN LDY#14:LDA A| 000007a0 43 52 3a 43 4c 43 3a 41 44 43 23 33 30 3a 54 41 |CR:CLC:ADC#30:TA| 000007b0 58 3a 4a 53 52 20 53 45 54 41 42 0d 05 c8 2d 4c |X:JSR SETAB...-L| 000007c0 44 41 23 32 35 35 3a 4c 44 58 20 23 97 28 22 20 |DA#255:LDX #.(" | 000007d0 22 29 3a 4c 44 59 20 23 97 28 22 7e 22 29 3a 4a |"):LDY #.("~"):J| 000007e0 53 52 20 53 54 52 49 4e 0d 05 dc 0f 4c 44 58 23 |SR STRIN....LDX#| 000007f0 30 3a 4c 44 59 23 30 0d 05 f0 25 2e 4c 4f 50 20 |0:LDY#0...%.LOP | 00000800 4c 44 41 26 36 30 30 2c 58 3a 43 4d 50 23 26 30 |LDA&600,X:CMP#&0| 00000810 44 3a 42 45 51 20 46 49 4e 4c 4f 50 0d 05 fa 1e |D:BEQ FINLOP....| 00000820 53 54 41 20 28 4c 4f 29 2c 59 3a 49 4e 59 3a 49 |STA (LO),Y:INY:I| 00000830 4e 58 3a 42 4e 45 20 4c 4f 50 0d 06 04 12 2e 46 |NX:BNE LOP.....F| 00000840 49 4e 4c 4f 50 20 4a 4d 50 20 4c 35 0d 06 22 09 |INLOP JMP L5..".| 00000850 2e 4e 4f 4e 53 0d 06 2c 0a 4a 4d 50 20 4c 37 0d |.NONS..,.JMP L7.| 00000860 06 54 1b 2e 4c 43 4f 4d 20 43 4d 50 23 26 30 44 |.T..LCOM CMP#&0D| 00000870 3a 42 4e 45 20 4e 4f 4e 43 52 0d 06 68 28 4c 44 |:BNE NONCR..h(LD| 00000880 41 20 4f 4c 4f 3a 53 54 41 20 4c 4f 3a 4c 44 41 |A OLO:STA LO:LDA| 00000890 20 4f 48 49 3a 53 54 41 20 48 49 3a 4a 4d 50 20 | OHI:STA HI:JMP | 000008a0 4c 35 0d 06 7c 1b 2e 4e 4f 4e 43 52 20 43 4d 50 |L5..|..NONCR CMP| 000008b0 23 26 38 42 3a 42 4e 45 20 4e 4f 4e 53 0d 06 90 |#&8B:BNE NONS...| 000008c0 28 4c 44 41 20 4f 4c 4f 3a 49 4e 43 20 4f 55 4d |(LDA OLO:INC OUM| 000008d0 42 3a 53 45 43 3a 53 42 43 20 4f 55 4d 42 3a 53 |B:SEC:SBC OUMB:S| 000008e0 54 41 20 4c 4f 0d 06 9a 1f 4c 44 41 20 4f 48 49 |TA LO....LDA OHI| 000008f0 3a 53 42 43 23 30 3a 53 54 41 20 48 49 3a 4a 4d |:SBC#0:STA HI:JM| 00000900 50 20 4c 35 0d 06 b8 18 2e 44 49 53 20 4c 44 58 |P L5.....DIS LDX| 00000910 23 28 53 54 32 20 83 20 32 35 36 29 0d 06 c2 13 |#(ST2 . 256)....| 00000920 4c 44 59 23 28 53 54 32 20 81 20 32 35 36 29 0d |LDY#(ST2 . 256).| 00000930 06 d6 0e 4a 53 52 20 4f 55 54 50 55 54 0d 06 ea |...JSR OUTPUT...| 00000940 15 4c 44 41 23 31 36 3a 53 54 41 20 44 4c 49 4e |.LDA#16:STA DLIN| 00000950 45 53 0d 06 f4 0b 2e 4c 49 4e 4c 4f 50 0d 07 08 |ES.....LINLOP...| 00000960 23 4c 44 41 20 48 49 3a 4a 53 52 20 48 45 58 3a |#LDA HI:JSR HEX:| 00000970 4c 44 41 20 4c 4f 3a 4a 53 52 20 48 45 58 53 50 |LDA LO:JSR HEXSP| 00000980 0d 07 26 0f 4c 44 59 23 30 3a 4c 44 58 23 33 0d |..&.LDY#0:LDX#3.| 00000990 07 30 2f 2e 48 41 4c 4f 50 20 4c 44 41 28 4c 4f |.0/.HALOP LDA(LO| 000009a0 29 2c 59 3a 53 54 41 20 48 41 2c 59 3a 49 4e 59 |),Y:STA HA,Y:INY| 000009b0 3a 44 45 58 3a 42 4e 45 20 48 41 4c 4f 50 0d 07 |:DEX:BNE HALOP..| 000009c0 44 23 4c 44 58 20 48 41 3a 4c 44 41 20 54 59 50 |D#LDX HA:LDA TYP| 000009d0 45 2c 58 3a 54 41 58 3a 4c 44 41 20 4e 55 4d 2c |E,X:TAX:LDA NUM,| 000009e0 58 0d 07 58 32 53 54 41 20 4e 55 4d 42 3a 43 4c |X..X2STA NUMB:CL| 000009f0 43 3a 41 44 43 20 4c 4f 3a 53 54 41 20 4c 4f 3a |C:ADC LO:STA LO:| 00000a00 4c 44 41 23 30 3a 41 44 43 20 48 49 3a 53 54 41 |LDA#0:ADC HI:STA| 00000a10 20 48 49 0d 07 6c 33 4c 44 58 20 4e 55 4d 42 3a | HI..l3LDX NUMB:| 00000a20 4c 44 59 23 33 3a 4c 44 41 20 48 41 3a 4a 53 52 |LDY#3:LDA HA:JSR| 00000a30 20 48 45 58 53 50 3a 44 45 59 3a 44 45 58 3a 42 | HEXSP:DEY:DEX:B| 00000a40 45 51 20 50 41 44 0d 07 76 24 4c 44 41 20 48 42 |EQ PAD..v$LDA HB| 00000a50 3a 4a 53 52 20 48 45 58 53 50 3a 44 45 59 3a 44 |:JSR HEXSP:DEY:D| 00000a60 45 58 3a 42 45 51 20 50 41 44 0d 07 80 21 4c 44 |EX:BEQ PAD...!LD| 00000a70 41 20 48 43 3a 4a 53 52 20 48 45 58 53 50 3a 44 |A HC:JSR HEXSP:D| 00000a80 45 58 3a 42 45 51 20 4d 4e 45 4d 0d 07 94 10 2e |EX:BEQ MNEM.....| 00000a90 50 41 44 20 54 59 41 3a 50 48 41 0d 07 9e 2e 4c |PAD TYA:PHA....L| 00000aa0 44 58 23 28 53 54 34 20 83 20 32 35 36 29 3a 4c |DX#(ST4 . 256):L| 00000ab0 44 59 23 28 53 54 34 20 81 20 32 35 36 29 3a 4a |DY#(ST4 . 256):J| 00000ac0 53 52 20 4f 55 54 50 55 54 0d 07 a8 17 50 4c 41 |SR OUTPUT....PLA| 00000ad0 3a 54 41 59 3a 44 45 59 3a 42 4e 45 20 50 41 44 |:TAY:DEY:BNE PAD| 00000ae0 0d 07 bc 20 2e 4d 4e 45 4d 20 4c 44 41 20 23 97 |... .MNEM LDA #.| 00000af0 28 22 20 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 |(" "):JSR OSASCI| 00000b00 0d 07 d0 29 4c 44 58 20 48 41 3a 4c 44 41 20 48 |...)LDX HA:LDA H| 00000b10 41 53 48 2c 58 3a 41 53 4c 20 41 3a 41 53 4c 20 |ASH,X:ASL A:ASL | 00000b20 41 3a 53 54 41 20 4f 55 54 0d 07 e4 2a 4c 44 41 |A:STA OUT...*LDA| 00000b30 23 28 53 54 52 49 4e 47 20 81 20 32 35 36 29 3a |#(STRING . 256):| 00000b40 53 54 41 20 50 55 54 3a 4c 44 58 23 34 3a 4c 44 |STA PUT:LDX#4:LD| 00000b50 59 23 30 0d 07 f8 35 2e 4d 4e 4d 4c 4f 50 20 4c |Y#0...5.MNMLOP L| 00000b60 44 41 20 28 4f 55 54 29 2c 59 3a 4a 53 52 20 4f |DA (OUT),Y:JSR O| 00000b70 53 41 53 43 49 3a 49 4e 59 3a 44 45 58 3a 42 4e |SASCI:INY:DEX:BN| 00000b80 45 20 4d 4e 4d 4c 4f 50 0d 08 02 1a 4c 44 41 20 |E MNMLOP....LDA | 00000b90 23 97 28 22 20 22 29 3a 4a 53 52 20 4f 53 41 53 |#.(" "):JSR OSAS| 00000ba0 43 49 0d 08 16 24 4c 44 58 20 48 41 3a 4c 44 41 |CI...$LDX HA:LDA| 00000bb0 20 54 59 50 45 2c 58 3a 43 4d 50 23 31 3a 42 4e | TYPE,X:CMP#1:BN| 00000bc0 45 20 4e 4f 44 31 0d 08 2a 31 4c 44 41 20 23 97 |E NOD1..*1LDA #.| 00000bd0 28 22 23 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 |("#"):JSR OSASCI| 00000be0 3a 4c 44 41 20 23 97 28 22 26 22 29 3a 4a 53 52 |:LDA #.("&"):JSR| 00000bf0 20 4f 53 41 53 43 49 0d 08 3e 25 4c 44 41 20 48 | OSASCI..>%LDA H| 00000c00 42 3a 4a 53 52 20 48 45 58 53 50 3a 4c 44 59 23 |B:JSR HEXSP:LDY#| 00000c10 35 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d 08 52 18 |5:JMP NDLINE..R.| 00000c20 2e 4e 4f 44 31 20 43 4d 50 23 32 3a 42 4e 45 20 |.NOD1 CMP#2:BNE | 00000c30 4e 4f 44 32 0d 08 66 29 4c 44 41 20 23 97 28 22 |NOD2..f)LDA #.("| 00000c40 26 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c |&"):JSR OSASCI:L| 00000c50 44 41 20 48 43 3a 4a 53 52 20 48 45 58 0d 08 70 |DA HC:JSR HEX..p| 00000c60 24 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 53 |$LDA HB:JSR HEXS| 00000c70 50 3a 4c 44 59 23 34 3a 4a 4d 50 20 4e 44 4c 4e |P:LDY#4:JMP NDLN| 00000c80 45 0d 08 84 18 2e 4e 4f 44 32 20 43 4d 50 23 33 |E.....NOD2 CMP#3| 00000c90 3a 42 4e 45 20 4e 4f 44 33 0d 08 98 2b 4c 44 41 |:BNE NOD3...+LDA| 00000ca0 20 23 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 | #.("&"):JSR OSA| 00000cb0 53 43 49 3a 4c 44 41 20 48 42 3a 4a 53 52 20 48 |SCI:LDA HB:JSR H| 00000cc0 45 58 53 50 0d 08 a2 14 4c 44 59 23 36 3a 4a 4d |EXSP....LDY#6:JM| 00000cd0 50 20 4e 44 4c 49 4e 45 0d 08 b6 18 2e 4e 4f 44 |P NDLINE.....NOD| 00000ce0 33 20 43 4d 50 23 34 3a 42 4e 45 20 4e 4f 44 34 |3 CMP#4:BNE NOD4| 00000cf0 0d 08 ca 2b 4c 44 41 20 23 97 28 22 41 22 29 3a |...+LDA #.("A"):| 00000d00 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 59 23 39 |JSR OSASCI:LDY#9| 00000d10 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d 08 de 18 2e |:JMP NDLINE.....| 00000d20 4e 4f 44 34 3a 43 4d 50 23 35 3a 42 4e 45 20 4e |NOD4:CMP#5:BNE N| 00000d30 4f 44 35 0d 08 f2 15 4c 44 59 23 31 30 3a 4a 4d |OD5....LDY#10:JM| 00000d40 50 20 4e 44 4c 49 4e 45 0d 09 06 18 2e 4e 4f 44 |P NDLINE.....NOD| 00000d50 35 20 43 4d 50 23 36 3a 42 4e 45 20 4e 4f 44 36 |5 CMP#6:BNE NOD6| 00000d60 0d 09 1a 31 4c 44 41 20 23 97 28 22 28 22 29 3a |...1LDA #.("("):| 00000d70 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 23 |JSR OSASCI:LDA #| 00000d80 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.("&"):JSR OSASC| 00000d90 49 0d 09 24 29 4c 44 41 20 48 42 3a 4a 53 52 20 |I..$)LDA HB:JSR | 00000da0 48 45 58 3a 4c 44 41 20 23 97 28 22 2c 22 29 3a |HEX:LDA #.(","):| 00000db0 4a 53 52 20 4f 53 41 53 43 49 0d 09 2e 31 4c 44 |JSR OSASCI...1LD| 00000dc0 41 20 23 97 28 22 58 22 29 3a 4a 53 52 20 4f 53 |A #.("X"):JSR OS| 00000dd0 41 53 43 49 3a 4c 44 41 20 23 97 28 22 29 22 29 |ASCI:LDA #.(")")| 00000de0 3a 4a 53 52 20 4f 53 41 53 43 49 0d 09 38 14 4c |:JSR OSASCI..8.L| 00000df0 44 59 23 33 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d |DY#3:JMP NDLINE.| 00000e00 09 4c 18 2e 4e 4f 44 36 20 43 4d 50 23 37 3a 42 |.L..NOD6 CMP#7:B| 00000e10 4e 45 20 4e 4f 44 37 0d 09 60 2f 4c 44 41 23 97 |NE NOD7..`/LDA#.| 00000e20 28 22 28 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 |("("):JSR OSASCI| 00000e30 3a 4c 44 41 23 97 28 22 26 22 29 3a 4a 53 52 20 |:LDA#.("&"):JSR | 00000e40 4f 53 41 53 43 49 0d 09 6a 28 4c 44 41 20 48 42 |OSASCI..j(LDA HB| 00000e50 3a 4a 53 52 20 48 45 58 3a 4c 44 41 23 97 28 22 |:JSR HEX:LDA#.("| 00000e60 29 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 09 |)"):JSR OSASCI..| 00000e70 74 2f 4c 44 41 23 97 28 22 2c 22 29 3a 4a 53 52 |t/LDA#.(","):JSR| 00000e80 20 4f 53 41 53 43 49 3a 4c 44 41 23 97 28 22 59 | OSASCI:LDA#.("Y| 00000e90 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 09 7e |"):JSR OSASCI..~| 00000ea0 14 4c 44 59 23 33 3a 4a 4d 50 20 4e 44 4c 49 4e |.LDY#3:JMP NDLIN| 00000eb0 45 0d 09 92 18 2e 4e 4f 44 37 20 43 4d 50 23 38 |E.....NOD7 CMP#8| 00000ec0 3a 42 4e 45 20 4e 4f 44 38 0d 09 a6 28 4c 44 41 |:BNE NOD8...(LDA| 00000ed0 23 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 53 |#.("&"):JSR OSAS| 00000ee0 43 49 3a 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 |CI:LDA HB:JSR HE| 00000ef0 58 0d 09 b0 2f 4c 44 41 23 97 28 22 2c 22 29 3a |X.../LDA#.(","):| 00000f00 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 23 97 |JSR OSASCI:LDA#.| 00000f10 28 22 58 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 |("X"):JSR OSASCI| 00000f20 0d 09 ba 14 4c 44 59 23 35 3a 4a 4d 50 20 4e 44 |....LDY#5:JMP ND| 00000f30 4c 49 4e 45 0d 09 ce 18 2e 4e 4f 44 38 20 43 4d |LINE.....NOD8 CM| 00000f40 50 23 39 3a 42 4e 45 20 4e 4f 44 39 0d 09 e2 28 |P#9:BNE NOD9...(| 00000f50 4c 44 41 23 97 28 22 26 22 29 3a 4a 53 52 20 4f |LDA#.("&"):JSR O| 00000f60 53 41 53 43 49 3a 4c 44 41 20 48 43 3a 4a 53 52 |SASCI:LDA HC:JSR| 00000f70 20 48 45 58 0d 09 ec 28 4c 44 41 20 48 42 3a 4a | HEX...(LDA HB:J| 00000f80 53 52 20 48 45 58 3a 4c 44 41 23 97 28 22 2c 22 |SR HEX:LDA#.(","| 00000f90 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 09 f6 19 |):JSR OSASCI....| 00000fa0 4c 44 41 23 97 28 22 58 22 29 3a 4a 53 52 20 4f |LDA#.("X"):JSR O| 00000fb0 53 41 53 43 49 0d 0a 00 14 4c 44 59 23 33 3a 4a |SASCI....LDY#3:J| 00000fc0 4d 50 20 4e 44 4c 49 4e 45 0d 0a 14 19 2e 4e 4f |MP NDLINE.....NO| 00000fd0 44 39 20 43 4d 50 23 26 41 3a 42 4e 45 20 4e 4f |D9 CMP#&A:BNE NO| 00000fe0 44 41 0d 0a 28 28 4c 44 41 23 97 28 22 26 22 29 |DA..((LDA#.("&")| 00000ff0 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 41 20 |:JSR OSASCI:LDA | 00001000 48 43 3a 4a 53 52 20 48 45 58 0d 0a 32 28 4c 44 |HC:JSR HEX..2(LD| 00001010 41 20 48 42 3a 4a 53 52 20 48 45 58 3a 4c 44 41 |A HB:JSR HEX:LDA| 00001020 23 97 28 22 2c 22 29 3a 4a 53 52 20 4f 53 41 53 |#.(","):JSR OSAS| 00001030 43 49 0d 0a 3c 19 4c 44 41 23 97 28 22 59 22 29 |CI..<.LDA#.("Y")| 00001040 3a 4a 53 52 20 4f 53 41 53 43 49 0d 0a 46 14 4c |:JSR OSASCI..F.L| 00001050 44 59 23 33 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d |DY#3:JMP NDLINE.| 00001060 0a 5a 19 2e 4e 4f 44 41 20 43 4d 50 23 26 42 3a |.Z..NODA CMP#&B:| 00001070 42 4e 45 20 4e 4f 44 42 0d 0a 6e 19 4c 44 41 23 |BNE NODB..n.LDA#| 00001080 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 53 43 |.("&"):JSR OSASC| 00001090 49 0d 0a 82 1b 4c 44 41 20 48 42 3a 43 4d 50 23 |I....LDA HB:CMP#| 000010a0 26 37 46 3a 42 43 53 20 42 41 43 4b 0d 0a 96 2b |&7F:BCS BACK...+| 000010b0 43 4c 43 3a 41 44 43 20 4c 4f 3a 50 48 41 20 4c |CLC:ADC LO:PHA L| 000010c0 44 41 23 30 3a 41 44 43 20 48 49 3a 43 4c 43 3a |DA#0:ADC HI:CLC:| 000010d0 42 43 43 20 52 45 4c 0d 0a aa 2e 2e 42 41 43 4b |BCC REL.....BACK| 000010e0 20 82 23 32 35 35 3a 41 44 43 23 30 3a 53 54 41 | .#255:ADC#0:STA| 000010f0 26 37 30 3a 4c 44 41 20 4c 4f 3a 53 45 43 3a 53 |&70:LDA LO:SEC:S| 00001100 42 43 26 37 30 0d 0a b4 14 50 48 41 3a 4c 44 41 |BC&70....PHA:LDA| 00001110 20 48 49 3a 53 42 43 23 30 0d 0a c8 1e 2e 52 45 | HI:SBC#0.....RE| 00001120 4c 20 4a 53 52 20 48 45 58 3a 50 4c 41 3a 4a 53 |L JSR HEX:PLA:JS| 00001130 52 20 48 45 58 53 50 0d 0a d2 14 4c 44 59 23 34 |R HEXSP....LDY#4| 00001140 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d 0a e6 19 2e |:JMP NDLINE.....| 00001150 4e 4f 44 42 20 43 4d 50 23 26 43 3a 42 4e 45 20 |NODB CMP#&C:BNE | 00001160 4e 4f 44 43 0d 0a fa 2f 4c 44 41 23 97 28 22 28 |NODC.../LDA#.("(| 00001170 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 |"):JSR OSASCI:LD| 00001180 41 23 97 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 |A#.("&"):JSR OSA| 00001190 53 43 49 0d 0b 04 21 4c 44 41 20 48 43 3a 4a 53 |SCI...!LDA HC:JS| 000011a0 52 20 48 45 58 3a 4c 44 41 20 48 42 3a 4a 53 52 |R HEX:LDA HB:JSR| 000011b0 20 48 45 58 0d 0b 0e 2a 4c 44 41 23 97 28 22 29 | HEX...*LDA#.(")| 000011c0 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 3a 4c 44 |"):JSR OSASCI:LD| 000011d0 59 23 33 3a 4a 4d 50 20 4e 44 4c 49 4e 45 0d 0b |Y#3:JMP NDLINE..| 000011e0 22 19 2e 4e 4f 44 43 20 43 4d 50 23 26 44 3a 42 |"..NODC CMP#&D:B| 000011f0 4e 45 20 4e 4f 44 44 0d 0b 36 28 4c 44 41 23 97 |NE NODD..6(LDA#.| 00001200 28 22 26 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 |("&"):JSR OSASCI| 00001210 3a 4c 44 41 20 48 42 3a 4a 53 52 20 48 45 58 0d |:LDA HB:JSR HEX.| 00001220 0b 40 2f 4c 44 41 23 97 28 22 2c 22 29 3a 4a 53 |.@/LDA#.(","):JS| 00001230 52 20 4f 53 41 53 43 49 3a 4c 44 41 23 97 28 22 |R OSASCI:LDA#.("| 00001240 59 22 29 3a 4a 53 52 20 4f 53 41 53 43 49 0d 0b |Y"):JSR OSASCI..| 00001250 4a 14 4c 44 59 23 35 3a 4a 4d 50 20 4e 44 4c 49 |J.LDY#5:JMP NDLI| 00001260 4e 45 0d 0b 5e 10 2e 4e 4f 44 44 20 4c 44 59 23 |NE..^..NODD LDY#| 00001270 31 30 0d 0b 72 30 2e 4e 44 4c 49 4e 45 20 4c 44 |10..r0.NDLINE LD| 00001280 41 23 97 28 22 20 22 29 3a 4a 53 52 20 4f 53 41 |A#.(" "):JSR OSA| 00001290 53 43 49 3a 44 45 59 3a 42 50 4c 20 4e 44 4c 49 |SCI:DEY:BPL NDLI| 000012a0 4e 45 0d 0b 86 12 4c 44 58 20 4e 55 4d 42 3a 4c |NE....LDX NUMB:L| 000012b0 44 59 23 30 0d ff |DY#0..| 000012b6