Home » Personal collection » Acorn tapes » Own_Work » box01_tape15a_d60_acorn_joystick_progs.wav » DIS1820
DIS1820
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: | DIS1820 |
Read OK: | ✔ |
File size: | 0982 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=670: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
� 6:�=&7000:�=&6400 � 28,0,24,39,16 7OSBYTE=&FFF4:OSWORD=&FFF1:OSASCI=&FFE3:OSWRCH=&FFEE (OSRDCH=&FFE0:CLI=&FFF7 2"OUT=670: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 �
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 36 37 30 3a 50 55 54 3d 26 37 31 3a 53 |UT=670: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 ff |..| 00000982