Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav » DIS1220
DIS1220
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 » drawer_tl_tape04b_c15_acorn_lemmings.wav |
| Filename: | DIS1220 |
| Read OK: | ✔ |
| File size: | 0625 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn tapes » Own_Work » box01_tape15a_d60_acorn_joystick_progs.wav » DIS1220
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav » DIS1220
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"):BN 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
� 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
P OLO=&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"):BN 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
V LDA 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
� 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 17 43 4d 50 20 23 97 28 |Q STD....CMP #.(|
00000280 22 48 22 29 3a 42 4e 20 4e 4f 4e 48 0d 02 c6 20 |"H"):BN NONH... |
00000290 2e 48 47 49 4e 20 4c 44 58 23 31 35 3a 4c 44 59 |.HGIN LDX#15:LDY|
000002a0 23 32 3a 4a 53 52 20 53 45 54 41 42 0d 02 da 29 |#2:JSR SETAB...)|
000002b0 4c 44 41 23 34 3a 4c 44 58 23 97 28 22 30 22 29 |LDA#4:LDX#.("0")|
000002c0 3a 4c 44 59 23 97 28 22 46 22 29 3a 4a 53 52 20 |:LDY#.("F"):JSR |
000002d0 53 54 52 49 4e 0d 02 ee 22 4a 53 52 20 44 48 45 |STRIN..."JSR DHE|
000002e0 58 3a 42 43 43 48 47 49 4e 3a 4c 44 41 20 44 48 |X:BCCHGIN:LDA DH|
000002f0 3a 53 54 41 20 48 49 0d 03 02 2c 4c 44 41 26 36 |:STA HI...,LDA&6|
00000300 30 32 3a 53 54 41 26 36 30 30 3a 4c 44 41 26 36 |02:STA&600:LDA&6|
00000310 30 33 3a 53 54 41 26 36 30 31 3a 4a 53 52 20 44 |03:STA&601:JSR D|
00000320 48 45 58 0d 03 16 21 42 43 43 20 48 47 49 4e 3a |HEX...!BCC HGIN:|
00000330 4c 44 41 20 44 48 3a 53 54 41 20 4c 4f 3a 4a 4d |LDA DH:STA LO:JM|
00000340 50 20 4c 35 0d 03 20 1c 2e 4e 4f 4e 48 20 43 4d |P L5.. ..NONH CM|
00000350 50 23 97 28 22 46 22 29 3a 42 4e 45 20 4e 4f 46 |P#.("F"):BNE NOF|
00000360 0d 03 34 20 2e 46 47 49 4e 20 4c 44 58 23 31 35 |..4 .FGIN LDX#15|
00000370 3a 4c 44 59 23 33 3a 4a 53 52 20 53 45 54 41 42 |:LDY#3:JSR SETAB|
00000380 0d 03 3e 29 4c 44 41 23 32 3a 4c 44 58 23 97 28 |..>)LDA#2:LDX#.(|
00000390 22 30 22 29 3a 4c 44 59 23 97 28 22 46 22 29 3a |"0"):LDY#.("F"):|
000003a0 4a 53 52 20 53 54 52 49 4e 0d 03 48 34 4a 53 52 |JSR STRIN..H4JSR|
000003b0 20 44 48 45 58 3a 42 43 43 20 46 47 49 4e 3a 4c | DHEX:BCC FGIN:L|
000003c0 44 41 20 44 49 53 50 3a 43 4d 50 23 97 28 22 4c |DA DISP:CMP#.("L|
000003d0 22 29 3a 42 4e 45 20 4f 56 53 57 41 50 0d 03 52 |"):BNE OVSWAP..R|
000003e0 34 4c 44 41 20 4f 4c 4f 3a 53 45 43 3a 53 42 43 |4LDA OLO:SEC:SBC|
000003f0 20 4f 55 4d 50 3a 53 54 41 20 4c 4f 3a 4c 44 41 | OUMP:STA LO:LDA|
00000400 20 4f 48 49 3a 53 42 43 23 30 3a 53 54 41 20 48 | OHI:SBC#0:STA H|
00000410 49 0d 03 5c 0b 2e 4f 56 53 57 41 50 0d 03 66 48 |I..\..OVSWAP..fH|
00000420 4c 44 59 23 30 3a 4c 44 41 20 44 48 3a 2e 46 4c |LDY#0:LDA DH:.FL|
00000430 4f 4f 50 20 49 4e 43 20 4c 4f 3a 42 4e 45 20 4f |OOP INC LO:BNE O|
00000440 56 48 49 3a 49 4e 43 20 48 49 3a 2e 4f 56 48 49 |VHI:INC HI:.OVHI|
00000450 20 43 4d 50 28 4c 4f 29 2c 59 3a 42 4e 45 20 46 | CMP(LO),Y:BNE F|
00000460 4c 4f 4f 50 0d 03 70 0a 4a 4d 50 20 4c 35 0d 03 |LOOP..p.JMP L5..|
00000470 8e 2e 2e 4e 4f 46 20 4c 44 58 20 44 49 53 50 3a |...NOF LDX DISP:|
00000480 43 50 58 23 97 28 22 4c 22 29 3a 42 4e 45 20 4e |CPX#.("L"):BNE N|
00000490 4f 4e 46 3a 4a 4d 50 20 4c 43 4f 4d 0d 03 b6 1b |ONF:JMP LCOM....|
000004a0 2e 4e 4f 4e 46 20 43 4d 50 23 26 38 38 3a 42 4e |.NONF CMP#&88:BN|
000004b0 45 20 4e 4c 45 46 54 0d 03 ca 2c 4c 44 41 20 4c |E NLEFT...,LDA L|
000004c0 4f 3a 42 4e 45 20 44 45 31 3a 44 45 43 20 48 49 |O:BNE DE1:DEC HI|
000004d0 3a 2e 44 45 31 20 44 45 43 20 4c 4f 3a 4a 4d 50 |:.DE1 DEC LO:JMP|
000004e0 20 4c 35 0d 03 de 1a 2e 4e 4c 45 46 54 20 43 4d | L5.....NLEFT CM|
000004f0 50 23 26 38 39 3a 42 4e 45 20 4e 52 54 0d 03 f2 |P#&89:BNE NRT...|
00000500 25 49 4e 43 20 4c 4f 3a 42 4e 45 20 44 45 32 3a |%INC LO:BNE DE2:|
00000510 49 4e 43 20 48 49 3a 2e 44 45 32 20 4a 4d 50 20 |INC HI:.DE2 JMP |
00000520 4c 35 0d 04 1a 1b 4c 44 41 20 4c 4f 3a 43 4c 43 |L5....LDA LO:CLC|
00000530 3a 41 44 43 23 38 3a 53 54 41 20 4c 4f 0d 04 24 |:ADC#8:STA LO..$|
00000540 1e 4c 44 41 20 48 49 3a 41 44 43 23 30 3a 53 54 |.LDA HI:ADC#0:ST|
00000550 41 20 48 49 3a 4a 4d 50 20 4c 35 0d 04 4c 1b 4c |A HI:JMP L5..L.L|
00000560 44 41 20 4c 4f 3a 53 45 43 3a 53 42 43 23 38 3a |DA LO:SEC:SBC#8:|
00000570 53 54 41 20 4c 4f 0d 04 56 1e 4c 44 41 20 48 49 |STA LO..V.LDA HI|
00000580 3a 53 42 43 23 30 3a 53 54 41 20 48 49 3a 4a 4d |:SBC#0:STA HI:JM|
00000590 50 20 4c 35 0d 04 74 1e 2e 4e 4d 4f 56 45 20 43 |P L5..t..NMOVE C|
000005a0 4d 50 23 97 28 22 41 22 29 3a 42 4e 45 20 4e 4f |MP#.("A"):BNE NO|
000005b0 4e 41 0d 04 88 10 2e 41 47 49 4e 20 4c 44 59 23 |NA.....AGIN LDY#|
000005c0 31 34 0d 04 9c 27 4c 44 41 20 41 43 52 3a 41 53 |14...'LDA ACR:AS|
000005d0 4c 20 41 3a 43 4c 43 3a 41 44 43 20 41 43 52 3a |L A:CLC:ADC ACR:|
000005e0 43 4c 43 3a 41 44 43 23 36 0d 04 b0 11 54 41 58 |CLC:ADC#6....TAX|
000005f0 3a 4a 53 52 20 53 45 54 41 42 0d 04 c4 29 4c 44 |:JSR SETAB...)LD|
00000600 41 23 32 3a 4c 44 58 23 97 28 22 30 22 29 3a 4c |A#2:LDX#.("0"):L|
00000610 44 59 23 97 28 22 46 22 29 3a 4a 53 52 20 53 54 |DY#.("F"):JSR ST|
00000620 52 49 4e 0d ff |RIN..|
00000625 
DIS1220.m0
DIS1220.m1
DIS1220.m2
DIS1220.m4
DIS1220.m5
.