Home » Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF » 3D/3D1
3D/3D1
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 » Cheat_finder.ADF |
| Filename: | 3D/3D1 |
| Read OK: | ✔ |
| File size: | 01A7 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF » 3D/3D1
- Personal collection » Acorn hard disk » zipped_disks » elk07 » cheatfind/3D/3D1
File contents
10 INPUT"Source filename",S$ 20 INPUT"Destination filename",D$ 30 FORpass=0 TO 2 STEP 2:[OPTpass 40 LDX#0:LDA#1:STAnewcol 50 LDA#0:STAflag 60 .colourloop 70 LDA#0:STAline 80 LDA#&2D:STAhread+1:LDA#&C7:STAhread 90 LDA#&30:STAlread+1:LDA#&01:STAlread 100 LDA#&2F:STAread+1:LDA#&F8:STAmread 110 .lineloop 120 LDA#0:STAsubline 130 .subloop 140 LDA#0:STAaddr 150 .pixloop 160 LDY#8:LDAmread,Y 170 AND#&AA:CMPcolours,X 180 BNEnextpix
�"Source filename",S$
�"Destination filename",D$
�pass=0 � 2 � 2:[OPTpass
( LDX#0:LDA#1:STAnewcol
2 LDA#0:STAflag
< .colourloop
F LDA#0:STAline
P( LDA#&2D:STAhread+1:LDA#&C7:STAhread
Z( LDA#&30:STAlread+1:LDA#&01:STAlread
d' LDA#&2F:STAread+1:LDA#&F8:STAmread
n .lineloop
x LDA#0:STAsubline
�
.subloop
� LDA#0:STAaddr
�
.pixloop
� LDY#8:LDAmread,Y
� �#&AA:CMPcolours,X
� BNEnextpix
� 00000000 0d 00 0a 1a 20 e8 22 53 6f 75 72 63 65 20 66 69 |.... ."Source fi| 00000010 6c 65 6e 61 6d 65 22 2c 53 24 0d 00 14 1f 20 e8 |lename",S$.... .| 00000020 22 44 65 73 74 69 6e 61 74 69 6f 6e 20 66 69 6c |"Destination fil| 00000030 65 6e 61 6d 65 22 2c 44 24 0d 00 1e 1d 20 e3 70 |ename",D$.... .p| 00000040 61 73 73 3d 30 20 b8 20 32 20 88 20 32 3a 5b 4f |ass=0 . 2 . 2:[O| 00000050 50 54 70 61 73 73 0d 00 28 1a 20 4c 44 58 23 30 |PTpass..(. LDX#0| 00000060 3a 4c 44 41 23 31 3a 53 54 41 6e 65 77 63 6f 6c |:LDA#1:STAnewcol| 00000070 0d 00 32 12 20 4c 44 41 23 30 3a 53 54 41 66 6c |..2. LDA#0:STAfl| 00000080 61 67 0d 00 3c 10 20 2e 63 6f 6c 6f 75 72 6c 6f |ag..<. .colourlo| 00000090 6f 70 0d 00 46 12 20 4c 44 41 23 30 3a 53 54 41 |op..F. LDA#0:STA| 000000a0 6c 69 6e 65 0d 00 50 28 20 4c 44 41 23 26 32 44 |line..P( LDA#&2D| 000000b0 3a 53 54 41 68 72 65 61 64 2b 31 3a 4c 44 41 23 |:STAhread+1:LDA#| 000000c0 26 43 37 3a 53 54 41 68 72 65 61 64 0d 00 5a 28 |&C7:STAhread..Z(| 000000d0 20 4c 44 41 23 26 33 30 3a 53 54 41 6c 72 65 61 | LDA#&30:STAlrea| 000000e0 64 2b 31 3a 4c 44 41 23 26 30 31 3a 53 54 41 6c |d+1:LDA#&01:STAl| 000000f0 72 65 61 64 0d 00 64 27 20 4c 44 41 23 26 32 46 |read..d' LDA#&2F| 00000100 3a 53 54 41 72 65 61 64 2b 31 3a 4c 44 41 23 26 |:STAread+1:LDA#&| 00000110 46 38 3a 53 54 41 6d 72 65 61 64 0d 00 6e 0e 20 |F8:STAmread..n. | 00000120 2e 6c 69 6e 65 6c 6f 6f 70 0d 00 78 15 20 4c 44 |.lineloop..x. LD| 00000130 41 23 30 3a 53 54 41 73 75 62 6c 69 6e 65 0d 00 |A#0:STAsubline..| 00000140 82 0d 20 2e 73 75 62 6c 6f 6f 70 0d 00 8c 12 20 |.. .subloop.... | 00000150 4c 44 41 23 30 3a 53 54 41 61 64 64 72 0d 00 96 |LDA#0:STAaddr...| 00000160 0d 20 2e 70 69 78 6c 6f 6f 70 0d 00 a0 15 20 4c |. .pixloop.... L| 00000170 44 59 23 38 3a 4c 44 41 6d 72 65 61 64 2c 59 0d |DY#8:LDAmread,Y.| 00000180 00 aa 17 20 80 23 26 41 41 3a 43 4d 50 63 6f 6c |... .#&AA:CMPcol| 00000190 6f 75 72 73 2c 58 0d 00 b4 0f 20 42 4e 45 6e 65 |ours,X.... BNEne| 000001a0 78 74 70 69 78 0d ff |xtpix..| 000001a7
.