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