Duplicates

There are 3 duplicate copies of this file in the archive:

• Personal collection » Acorn ADFS disks » Archimedes » Unlabelled_disk_2.ADF » C64/MOS
• Personal collection » Acorn ADFS disks » Archimedes » Unlabelled_disk_3.ADF » C64/MOS
• Personal collection » Acorn hard disk » misc » misc2 » shipw4/C64/MOS
• Personal collection » Acorn hard disk » misc » misc3 » shipwren/C64/MOS

File contents

• BASIC
• Preview
• Hex Dump

   10P%=&8000:O%=&3F00
   20[OPTpass
   30.keybyte CMP#8:BEQshiftk:TAX:LDA&DC00:ANDjoyst,X:BEQsekey:LDA&C5:CMPkeyp,X:BEQsekey:CLC:RTS:.sekey SEC:RTS
   40.shiftk LDA&28D:AND#1:BNEsekey:CLC:RTS
   50.joyst EQUB4:EQUB8:EQUB1:EQUB2:EQUB&FF:EQUB16:EQUB&FF:EQUB&FF:EQUB&FF:EQUB&FF
   60.keyp EQUB12:EQUB23:EQUB37:EQUB36:EQUB60:EQUB0:EQUB41:EQUB57:EQUB&FF:EQUB13
   70.osword RTS
   80.oswrch RTS \ Temporary
   90.ROMirq JMP&EA31
  100]:IF P%>&8100 THEN PRINT"Code Overflow to:";~P%
  110ENDPROC

P%=&8000:O%=&3F00
[OPTpass
l.keybyte CMP#8:BEQshiftk:TAX:LDA&DC00:�joyst,X:BEQsekey:LDA&C5:CMPkeyp,X:BEQsekey:CLC:RTS:.sekey SEC:RTS
((.shiftk LDA&28D:�#1:BNEsekey:CLC:RTS
2Q.joyst EQUB4:EQUB8:EQUB1:EQUB2:EQUB&FF:EQUB16:EQUB&FF:EQUB&FF:EQUB&FF:EQUB&FF
<O.keyp EQUB12:EQUB23:EQUB37:EQUB36:EQUB60:EQUB0:EQUB41:EQUB57:EQUB&FF:EQUB13
F.osword RTS
P.oswrch RTS \ Temporary
Z.ROMirq JMP&EA31
d+]:� P%>&8100 � �"Code Overflow to:";~P%
n�
�

00000000  0d 00 0a 15 50 25 3d 26  38 30 30 30 3a 4f 25 3d  |....P%=&8000:O%=|
00000010  26 33 46 30 30 0d 00 14  0c 5b 4f 50 54 70 61 73  |&3F00....[OPTpas|
00000020  73 0d 00 1e 6c 2e 6b 65  79 62 79 74 65 20 43 4d  |s...l.keybyte CM|
00000030  50 23 38 3a 42 45 51 73  68 69 66 74 6b 3a 54 41  |P#8:BEQshiftk:TA|
00000040  58 3a 4c 44 41 26 44 43  30 30 3a 80 6a 6f 79 73  |X:LDA&DC00:.joys|
00000050  74 2c 58 3a 42 45 51 73  65 6b 65 79 3a 4c 44 41  |t,X:BEQsekey:LDA|
00000060  26 43 35 3a 43 4d 50 6b  65 79 70 2c 58 3a 42 45  |&C5:CMPkeyp,X:BE|
00000070  51 73 65 6b 65 79 3a 43  4c 43 3a 52 54 53 3a 2e  |Qsekey:CLC:RTS:.|
00000080  73 65 6b 65 79 20 53 45  43 3a 52 54 53 0d 00 28  |sekey SEC:RTS..(|
00000090  28 2e 73 68 69 66 74 6b  20 4c 44 41 26 32 38 44  |(.shiftk LDA&28D|
000000a0  3a 80 23 31 3a 42 4e 45  73 65 6b 65 79 3a 43 4c  |:.#1:BNEsekey:CL|
000000b0  43 3a 52 54 53 0d 00 32  51 2e 6a 6f 79 73 74 20  |C:RTS..2Q.joyst |
000000c0  45 51 55 42 34 3a 45 51  55 42 38 3a 45 51 55 42  |EQUB4:EQUB8:EQUB|
000000d0  31 3a 45 51 55 42 32 3a  45 51 55 42 26 46 46 3a  |1:EQUB2:EQUB&FF:|
000000e0  45 51 55 42 31 36 3a 45  51 55 42 26 46 46 3a 45  |EQUB16:EQUB&FF:E|
000000f0  51 55 42 26 46 46 3a 45  51 55 42 26 46 46 3a 45  |QUB&FF:EQUB&FF:E|
00000100  51 55 42 26 46 46 0d 00  3c 4f 2e 6b 65 79 70 20  |QUB&FF..<O.keyp |
00000110  45 51 55 42 31 32 3a 45  51 55 42 32 33 3a 45 51  |EQUB12:EQUB23:EQ|
00000120  55 42 33 37 3a 45 51 55  42 33 36 3a 45 51 55 42  |UB37:EQUB36:EQUB|
00000130  36 30 3a 45 51 55 42 30  3a 45 51 55 42 34 31 3a  |60:EQUB0:EQUB41:|
00000140  45 51 55 42 35 37 3a 45  51 55 42 26 46 46 3a 45  |EQUB57:EQUB&FF:E|
00000150  51 55 42 31 33 0d 00 46  0f 2e 6f 73 77 6f 72 64  |QUB13..F..osword|
00000160  20 52 54 53 0d 00 50 1b  2e 6f 73 77 72 63 68 20  | RTS..P..oswrch |
00000170  52 54 53 20 5c 20 54 65  6d 70 6f 72 61 72 79 0d  |RTS \ Temporary.|
00000180  00 5a 14 2e 52 4f 4d 69  72 71 20 4a 4d 50 26 45  |.Z..ROMirq JMP&E|
00000190  41 33 31 0d 00 64 2b 5d  3a e7 20 50 25 3e 26 38  |A31..d+]:. P%>&8|
000001a0  31 30 30 20 8c 20 f1 22  43 6f 64 65 20 4f 76 65  |100 . ."Code Ove|
000001b0  72 66 6c 6f 77 20 74 6f  3a 22 3b 7e 50 25 0d 00  |rflow to:";~P%..|
000001c0  6e 05 e1 0d ff                                    |n....|
000001c5