Home » Personal collection » Acorn ADFS disks » Electron » Holed_Out.ADF » HoledOut/DR2Bsrc

HoledOut/DR2Bsrc

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 ADFS disks » Electron » Holed_Out.ADF
Filename: HoledOut/DR2Bsrc
Read OK:
File size: 026F bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10 FORpass=4 TO 6 STEP 2:O%=&B88:P%=&488:[OPTpass
   20 LDA#code DIV256:STA&71:LDA#0:STA&70:LDY#code MOD256
   30 .new JSRread:STA&72:JSRread:STA&73:.change JSRread:CMP#0:BEQnew:CMP#&FF:BEQend:STY&74:LDY#0:STA(&72),Y:INC&72:BNEb:INC&73:.b LDY&74:JMPchange
   40 .read LDA(&70),Y:INY:BNEa:INC&71:.a RTS:.end LDX#&7D:LDY#4:JMP&FFF7
   50 .code EQUB&21:EQUB&2E:EQUS"O":EQUB0:EQUB&2D:EQUB&2E:EQUS"D":EQUB0:EQUB&86:EQUB&2E:EQUS"OWL":EQUB0:EQUB&8E:EQUB&2E:EQUS"DU":EQUB0:EQUB7:EQUB&3B:EQUS"DUNE ROYAL":EQUB0:EQUB&1E:EQUB&3B:EQUS"OWLET WOOD"
   60 EQUB0:EQUB&4C:EQUB&3C:EQUS"DUNE ROYAL":EQUB0:EQUB&57:EQUB&3C:EQUS"OWLET WOOD":EQUB&FF
   70 ]:NEXT:PRINT~P%

- �pass=4 � 6 � 2:O%=&B88:P%=&488:[OPTpass
4 LDA#code �256:STA&71:LDA#0:STA&70:LDY#code �256
� .new JSRread:STA&72:JSRread:STA&73:.change JSRread:CMP#0:BEQnew:CMP#&FF:BEQend:STY&74:LDY#0:STA(&72),Y:INC&72:BNEb:INC&73:.b LDY&74:JMPchange
(H .read LDA(&70),Y:INY:BNEa:INC&71:.a RTS:.end LDX#&7D:LDY#4:JMP&FFF7
2� .code EQUB&21:EQUB&2E:EQUS"O":EQUB0:EQUB&2D:EQUB&2E:EQUS"D":EQUB0:EQUB&86:EQUB&2E:EQUS"OWL":EQUB0:EQUB&8E:EQUB&2E:EQUS"DU":EQUB0:EQUB7:EQUB&3B:EQUS"DUNE ROYAL":EQUB0:EQUB&1E:EQUB&3B:EQUS"OWLET WOOD"
<Z EQUB0:EQUB&4C:EQUB&3C:EQUS"DUNE ROYAL":EQUB0:EQUB&57:EQUB&3C:EQUS"OWLET WOOD":EQUB&FF
F
 ]:�:�~P%
�
00000000  0d 00 0a 2d 20 e3 70 61  73 73 3d 34 20 b8 20 36  |...- .pass=4 . 6|
00000010  20 88 20 32 3a 4f 25 3d  26 42 38 38 3a 50 25 3d  | . 2:O%=&B88:P%=|
00000020  26 34 38 38 3a 5b 4f 50  54 70 61 73 73 0d 00 14  |&488:[OPTpass...|
00000030  34 20 4c 44 41 23 63 6f  64 65 20 81 32 35 36 3a  |4 LDA#code .256:|
00000040  53 54 41 26 37 31 3a 4c  44 41 23 30 3a 53 54 41  |STA&71:LDA#0:STA|
00000050  26 37 30 3a 4c 44 59 23  63 6f 64 65 20 83 32 35  |&70:LDY#code .25|
00000060  36 0d 00 1e 92 20 2e 6e  65 77 20 4a 53 52 72 65  |6.... .new JSRre|
00000070  61 64 3a 53 54 41 26 37  32 3a 4a 53 52 72 65 61  |ad:STA&72:JSRrea|
00000080  64 3a 53 54 41 26 37 33  3a 2e 63 68 61 6e 67 65  |d:STA&73:.change|
00000090  20 4a 53 52 72 65 61 64  3a 43 4d 50 23 30 3a 42  | JSRread:CMP#0:B|
000000a0  45 51 6e 65 77 3a 43 4d  50 23 26 46 46 3a 42 45  |EQnew:CMP#&FF:BE|
000000b0  51 65 6e 64 3a 53 54 59  26 37 34 3a 4c 44 59 23  |Qend:STY&74:LDY#|
000000c0  30 3a 53 54 41 28 26 37  32 29 2c 59 3a 49 4e 43  |0:STA(&72),Y:INC|
000000d0  26 37 32 3a 42 4e 45 62  3a 49 4e 43 26 37 33 3a  |&72:BNEb:INC&73:|
000000e0  2e 62 20 4c 44 59 26 37  34 3a 4a 4d 50 63 68 61  |.b LDY&74:JMPcha|
000000f0  6e 67 65 0d 00 28 48 20  2e 72 65 61 64 20 4c 44  |nge..(H .read LD|
00000100  41 28 26 37 30 29 2c 59  3a 49 4e 59 3a 42 4e 45  |A(&70),Y:INY:BNE|
00000110  61 3a 49 4e 43 26 37 31  3a 2e 61 20 52 54 53 3a  |a:INC&71:.a RTS:|
00000120  2e 65 6e 64 20 4c 44 58  23 26 37 44 3a 4c 44 59  |.end LDX#&7D:LDY|
00000130  23 34 3a 4a 4d 50 26 46  46 46 37 0d 00 32 cb 20  |#4:JMP&FFF7..2. |
00000140  2e 63 6f 64 65 20 45 51  55 42 26 32 31 3a 45 51  |.code EQUB&21:EQ|
00000150  55 42 26 32 45 3a 45 51  55 53 22 4f 22 3a 45 51  |UB&2E:EQUS"O":EQ|
00000160  55 42 30 3a 45 51 55 42  26 32 44 3a 45 51 55 42  |UB0:EQUB&2D:EQUB|
00000170  26 32 45 3a 45 51 55 53  22 44 22 3a 45 51 55 42  |&2E:EQUS"D":EQUB|
00000180  30 3a 45 51 55 42 26 38  36 3a 45 51 55 42 26 32  |0:EQUB&86:EQUB&2|
00000190  45 3a 45 51 55 53 22 4f  57 4c 22 3a 45 51 55 42  |E:EQUS"OWL":EQUB|
000001a0  30 3a 45 51 55 42 26 38  45 3a 45 51 55 42 26 32  |0:EQUB&8E:EQUB&2|
000001b0  45 3a 45 51 55 53 22 44  55 22 3a 45 51 55 42 30  |E:EQUS"DU":EQUB0|
000001c0  3a 45 51 55 42 37 3a 45  51 55 42 26 33 42 3a 45  |:EQUB7:EQUB&3B:E|
000001d0  51 55 53 22 44 55 4e 45  20 52 4f 59 41 4c 22 3a  |QUS"DUNE ROYAL":|
000001e0  45 51 55 42 30 3a 45 51  55 42 26 31 45 3a 45 51  |EQUB0:EQUB&1E:EQ|
000001f0  55 42 26 33 42 3a 45 51  55 53 22 4f 57 4c 45 54  |UB&3B:EQUS"OWLET|
00000200  20 57 4f 4f 44 22 0d 00  3c 5a 20 45 51 55 42 30  | WOOD"..<Z EQUB0|
00000210  3a 45 51 55 42 26 34 43  3a 45 51 55 42 26 33 43  |:EQUB&4C:EQUB&3C|
00000220  3a 45 51 55 53 22 44 55  4e 45 20 52 4f 59 41 4c  |:EQUS"DUNE ROYAL|
00000230  22 3a 45 51 55 42 30 3a  45 51 55 42 26 35 37 3a  |":EQUB0:EQUB&57:|
00000240  45 51 55 42 26 33 43 3a  45 51 55 53 22 4f 57 4c  |EQUB&3C:EQUS"OWL|
00000250  45 54 20 57 4f 4f 44 22  3a 45 51 55 42 26 46 46  |ET WOOD":EQUB&FF|
00000260  0d 00 46 0d 20 5d 3a ed  3a f1 7e 50 25 0d ff     |..F. ]:.:.~P%..|
0000026f
HoledOut/DR2Bsrc.m0
HoledOut/DR2Bsrc.m1
HoledOut/DR2Bsrc.m2
HoledOut/DR2Bsrc.m4
HoledOut/DR2Bsrc.m5