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:

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
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"):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
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
�
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