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
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 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
DIS1820.m0
DIS1820.m1
DIS1820.m2
DIS1820.m4
DIS1820.m5