Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » KeyChange
KeyChange
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 » Finished_programs.ADF |
| Filename: | KeyChange |
| Read OK: | ✔ |
| File size: | 0172 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » KeyChange
- Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » KeyChange
- Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/KeyChange
- Personal collection » Acorn tapes » Own_Work » box04_tape17b_acorn_hf90_autostereo.wav » KeyChange
File contents
10 ADD=1 20 FOR pass=0 TO 2 STEP 2:P%=&A00:[OPTpass 30 .init LDA&210:STAoldvec:LDA&211:STAoldvec+1:LDA#(code MOD256):SEI:STA&210:LDA#(code DIV256):STA&211:CLI:RTS 40 .code JSRrdch:BCSret:CMP#&20:BCCret:CMP#&80:BCSret:CLC:ADC#((ADD+256) MOD256):CMP#&80:BCCok1:SEC:SBC#&60:.ok1 CMP#&20:BCSok2:CLC:ADC#&60:.ok2 CLC:.ret RTS 50 .rdch JMP(oldvec):.oldvec EQUW0 60 ]:NEXT 70 CALL init
ADD=1 & � pass=0 � 2 � 2:P%=&A00:[OPTpass l .init LDA&210:STAoldvec:LDA&211:STAoldvec+1:LDA#(code �256):SEI:STA&210:LDA#(code �256):STA&211:CLI:RTS (� .code JSRrdch:BCSret:CMP#&20:BCCret:CMP#&80:BCSret:CLC:ADC#((ADD+256) �256):CMP#&80:BCCok1:SEC:SBC#&60:.ok1 CMP#&20:BCSok2:CLC:ADC#&60:.ok2 CLC:.ret RTS 2$ .rdch JMP(oldvec):.oldvec EQUW0 < ]:� F � init �
00000000 0d 00 0a 0a 20 41 44 44 3d 31 0d 00 14 26 20 e3 |.... ADD=1...& .| 00000010 20 70 61 73 73 3d 30 20 b8 20 32 20 88 20 32 3a | pass=0 . 2 . 2:| 00000020 50 25 3d 26 41 30 30 3a 5b 4f 50 54 70 61 73 73 |P%=&A00:[OPTpass| 00000030 0d 00 1e 6c 20 2e 69 6e 69 74 20 4c 44 41 26 32 |...l .init LDA&2| 00000040 31 30 3a 53 54 41 6f 6c 64 76 65 63 3a 4c 44 41 |10:STAoldvec:LDA| 00000050 26 32 31 31 3a 53 54 41 6f 6c 64 76 65 63 2b 31 |&211:STAoldvec+1| 00000060 3a 4c 44 41 23 28 63 6f 64 65 20 83 32 35 36 29 |:LDA#(code .256)| 00000070 3a 53 45 49 3a 53 54 41 26 32 31 30 3a 4c 44 41 |:SEI:STA&210:LDA| 00000080 23 28 63 6f 64 65 20 81 32 35 36 29 3a 53 54 41 |#(code .256):STA| 00000090 26 32 31 31 3a 43 4c 49 3a 52 54 53 0d 00 28 9d |&211:CLI:RTS..(.| 000000a0 20 2e 63 6f 64 65 20 4a 53 52 72 64 63 68 3a 42 | .code JSRrdch:B| 000000b0 43 53 72 65 74 3a 43 4d 50 23 26 32 30 3a 42 43 |CSret:CMP#&20:BC| 000000c0 43 72 65 74 3a 43 4d 50 23 26 38 30 3a 42 43 53 |Cret:CMP#&80:BCS| 000000d0 72 65 74 3a 43 4c 43 3a 41 44 43 23 28 28 41 44 |ret:CLC:ADC#((AD| 000000e0 44 2b 32 35 36 29 20 83 32 35 36 29 3a 43 4d 50 |D+256) .256):CMP| 000000f0 23 26 38 30 3a 42 43 43 6f 6b 31 3a 53 45 43 3a |#&80:BCCok1:SEC:| 00000100 53 42 43 23 26 36 30 3a 2e 6f 6b 31 20 43 4d 50 |SBC#&60:.ok1 CMP| 00000110 23 26 32 30 3a 42 43 53 6f 6b 32 3a 43 4c 43 3a |#&20:BCSok2:CLC:| 00000120 41 44 43 23 26 36 30 3a 2e 6f 6b 32 20 43 4c 43 |ADC#&60:.ok2 CLC| 00000130 3a 2e 72 65 74 20 52 54 53 0d 00 32 24 20 2e 72 |:.ret RTS..2$ .r| 00000140 64 63 68 20 4a 4d 50 28 6f 6c 64 76 65 63 29 3a |dch JMP(oldvec):| 00000150 2e 6f 6c 64 76 65 63 20 45 51 55 57 30 0d 00 3c |.oldvec EQUW0..<| 00000160 08 20 5d 3a ed 0d 00 46 0b 20 d6 20 69 6e 69 74 |. ]:...F. . init| 00000170 0d ff |..| 00000172
.