Home » Personal collection » Acorn ADFS disks » Electron » Autostereograms_2.ADF » keys
keys
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 » Autostereograms_2.ADF |
| Filename: | keys |
| Read OK: | ✔ |
| File size: | 0124 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 » Autostereograms_2.ADF » keys
- Personal collection » Acorn hard disk » zipped_disks » elk06 » autoster2/keys
File contents
10 FOR pass=0 TO 2 STEP 2:P%=&900:[OPTpass 20 .init LDA&210:STAoldvec:LDA&211:STAoldvec+1:SEI:LDA#(code MOD256):STA&210:LDA#(code DIV256):STA&211:CLI:RTS 30 .code JSRoldRDCH:BCSret:CMP#32:BCCret:CLC:ADC#1:CMP#&80:BNEret:LDA#32:CLC:.ret RTS 40 .oldRDCH JMP(oldvec):.oldvec EQUW0 50 ]:NEXT 60 CALL&900
& � pass=0 � 2 � 2:P%=&900:[OPTpass
l .init LDA&210:STAoldvec:LDA&211:STAoldvec+1:SEI:LDA#(code �256):STA&210:LDA#(code �256):STA&211:CLI:RTS
W .code JSRoldRDCH:BCSret:CMP#32:BCCret:CLC:ADC#1:CMP#&80:BNEret:LDA#32:CLC:.ret RTS
(' .oldRDCH JMP(oldvec):.oldvec EQUW0
2 ]:�
<
�&900
� 00000000 0d 00 0a 26 20 e3 20 70 61 73 73 3d 30 20 b8 20 |...& . pass=0 . |
00000010 32 20 88 20 32 3a 50 25 3d 26 39 30 30 3a 5b 4f |2 . 2:P%=&900:[O|
00000020 50 54 70 61 73 73 0d 00 14 6c 20 2e 69 6e 69 74 |PTpass...l .init|
00000030 20 4c 44 41 26 32 31 30 3a 53 54 41 6f 6c 64 76 | LDA&210:STAoldv|
00000040 65 63 3a 4c 44 41 26 32 31 31 3a 53 54 41 6f 6c |ec:LDA&211:STAol|
00000050 64 76 65 63 2b 31 3a 53 45 49 3a 4c 44 41 23 28 |dvec+1:SEI:LDA#(|
00000060 63 6f 64 65 20 83 32 35 36 29 3a 53 54 41 26 32 |code .256):STA&2|
00000070 31 30 3a 4c 44 41 23 28 63 6f 64 65 20 81 32 35 |10:LDA#(code .25|
00000080 36 29 3a 53 54 41 26 32 31 31 3a 43 4c 49 3a 52 |6):STA&211:CLI:R|
00000090 54 53 0d 00 1e 57 20 2e 63 6f 64 65 20 4a 53 52 |TS...W .code JSR|
000000a0 6f 6c 64 52 44 43 48 3a 42 43 53 72 65 74 3a 43 |oldRDCH:BCSret:C|
000000b0 4d 50 23 33 32 3a 42 43 43 72 65 74 3a 43 4c 43 |MP#32:BCCret:CLC|
000000c0 3a 41 44 43 23 31 3a 43 4d 50 23 26 38 30 3a 42 |:ADC#1:CMP#&80:B|
000000d0 4e 45 72 65 74 3a 4c 44 41 23 33 32 3a 43 4c 43 |NEret:LDA#32:CLC|
000000e0 3a 2e 72 65 74 20 52 54 53 0d 00 28 27 20 2e 6f |:.ret RTS..(' .o|
000000f0 6c 64 52 44 43 48 20 4a 4d 50 28 6f 6c 64 76 65 |ldRDCH JMP(oldve|
00000100 63 29 3a 2e 6f 6c 64 76 65 63 20 45 51 55 57 30 |c):.oldvec EQUW0|
00000110 0d 00 32 08 20 5d 3a ed 0d 00 3c 0a 20 d6 26 39 |..2. ]:...<. .&9|
00000120 30 30 0d ff |00..|
00000124 
.