Home » Personal collection » Acorn tapes » Own_Work » box04_tape17b_acorn_hf90_autostereo.wav » 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 tapes » Own_Work » box04_tape17b_acorn_hf90_autostereo.wav
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:

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
KeyChange.m0
KeyChange.m1
KeyChange.m2
KeyChange.m4
KeyChange.m5