Home » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo » Borcherds/BBCkeys/BBCKeysSrc

Borcherds/BBCkeys/BBCKeysSrc

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 » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo
Filename: Borcherds/BBCkeys/BBCKeysSrc
Read OK:
File size: 09CD bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > ch7
   20line%=10000
   30*K.1PROCinkey|M
   40DIM code 10000
   50FOR p=4 TO 7 STEP 2
   60O%=code
   70P%=0
   80[OPT p
   90EQUD 0 ;start
  100EQUD keyson ;init
  110EQUD fin
  120EQUD serv
  130EQUD title
  140EQUD help
  150EQUD tbl
  160EQUD 0
  170EQUD 0
  180EQUD 0
  190EQUD 0
  200.start
  210MOV pc,R14
  220SWI "OS_Exit"
  250.serv
  260MOV pc,R14
  270.title
  280EQUS "KeysModule"
  290EQUB0
  300ALIGN
  310.help
  320EQUS"KeysModule"+CHR$9+"0.01 ("+MID$(TIME$,5,11)+")"
  330EQUB 0
  340ALIGN
  350.tbl
  360EQUS "KeysOn"
  370EQUB 0
  380ALIGN
  390EQUD keyson
  400EQUD 0
  410EQUD keysonsyn
  420EQUD keysonhlp
  430EQUS "KeysOff"
  440EQUB 0
  450ALIGN
  460EQUD keysoff
  470EQUD 0
  480EQUD keysoffsyn
  490EQUD keysoffhlp
  500EQUD 0
  510.keysonsyn
  520EQUS "Syntax: *KeysOn"
  530EQUB 0
  540.keysoffsyn
  550EQUS "Syntax: *KeysOff"
  560EQUB 0
  570.keysoffhlp
  580EQUS "*KeysOff turns off the OS_Byte121 and OS_Byte129 key mapping."
  590EQUB13:EQUS "Syntax: *KeysOff"
  600EQUB 0
  610.keysonhlp
  620EQUS "*KeysOn turns on the OS_Byte121 and OS_Byte129 key mapping."
  630EQUB13:EQUS "Syntax: *KeysOn"
  640EQUB 0
  650ALIGN
  660.fin
  670STMFD R13!,{R7-R11,R14}
  680MOV R0,#6:ADR R1,os_byte:ADR R2,end:SWI "XOS_Claim"
  690SWI "XOS_Release"
  700LDMFD R13!,{R7-R11,pc}
  710.keysoff
  720STMFD R13!,{R0-R12,R14}
  730MOV R0,#6
  740ADR R1,os_byte
  750ADR R2,end
  760SWI "XOS_Release"
  770LDMFD R13!,{R0-R12,PC}
  780.keyson
  790STMFD R13!,{R0-R12,R14}
  800MOV R0,#6
  810ADR R1,os_byte
  820ADR R2,end
  830SWI "XOS_Claim"
  840LDMFD R13!,{R0-R12,PC}
  850.os_byte
  860TEQ R0,#129
  870BEQ os_byte129
  880TEQ R0,#121
  890MOVNES pc,R14
  900AND R2,R1,#%10000000
  910TEQ R2,#%10000000
  920MOVNES pc,R14
  930]
  940RESTORE line%
  950READ N%
  960FORI%=1 TO N%
  970READ A%,B%
  980[OPT p:TEQ R1,#A% EOR &80:MOVEQ R1,#B% EOR &80:]
  990IF I%<>N% [OPT p:MOVEQS pc,R14:]
 1000NEXT
 1010[OPT p:MOVS pc,R14
 1020.os_byte129
 1030TEQ R2,#&FF:MOVNES pc,R14
 1040AND R2,R1,#%10000000
 1050TEQ R2,#%10000000
 1060MOV R2,#&FF
 1070]
 1080RESTORE line%
 1090READ N%
 1100FORI%=1 TO N%
 1110READ A%,B%
 1120[OPT p:TEQ R1,#A% EOR &FF:MOVEQ R1,#B% EOR &FF:]
 1130IF I%<>N% [OPT p:MOVEQS pc,R14:]
 1140NEXT
 1150[OPT p:MOVS pc,R14
 1160.end
 1170]
 1180NEXT
 1190OSCLI"SAVE KeysMod "+STR$~code+" "+STR$~O%:*SETTYPE KeysMod MODULE
 1200*RMRUN KEYSMOD
 1210*RMKILL KEYSMODULE
 1220*RMRUN KEYSMOD
 1230*KEYSON
 1240END
 2000DEFPROCinkey
 2007MODE12
 2010REPEAT
 2020FORI%=1 TO 127
 2030SYS "OS_Byte",129,I% EOR &FF,&FF TO ,A%:IF A%=&FF THEN COLOUR1:PRINT;I%;" ";
 2040SYS "OS_Byte",121,I% EOR &80 TO ,A%:IF A%=&FF THEN COLOUR2:PRINT;I%;" ";
 2050NEXT
 2060PRINT
 2070UNTIL0
 2080ENDPROC
 2090DATA 1, 72,79 : REM 'Snapper' type keys
 2100DATA 2, 64,65, 1,81 : REM Arcadians A,S,Return
 2110DATA 2, 25,102, 121,103 : REM Firebird <,>,Tab
10000DATA 8, 72,79, 64,65, 1,81, 25,102, 121,103, 71,88, 80,5, 89,8 : REM Dogfight

� > ch7
line%=10000
*K.1PROCinkey|M
(� code 10000
2� p=4 � 7 � 2
<O%=code
FP%=0
P
[OPT p
ZEQUD 0 ;start
dEQUD keyson ;init
nEQUD fin
x
EQUD serv
�EQUD title
�
EQUD help
�EQUD tbl
�
EQUD 0
�
EQUD 0
�
EQUD 0
�
EQUD 0
�
.start
�MOV pc,R14
�SWI "OS_Exit"
�	.serv
MOV pc,R14

.title
EQUS "KeysModule"
"	EQUB0
,	ALIGN
6	.help
@.EQUS"KeysModule"+�9+"0.01 ("+��$,5,11)+")"
J
EQUB 0
T	ALIGN
^.tbl
hEQUS "KeysOn"
r
EQUB 0
|	ALIGN
�EQUD keyson
�
EQUD 0
�EQUD keysonsyn
�EQUD keysonhlp
�EQUS "KeysOff"
�
EQUB 0
�	ALIGN
�EQUD keysoff
�
EQUD 0
�EQUD keysoffsyn
�EQUD keysoffhlp
�
EQUD 0
�.keysonsyn
EQUS "Syntax: *KeysOn"

EQUB 0
.keysoffsyn
&EQUS "Syntax: *KeysOff"
0
EQUB 0
:.keysoffhlp
DHEQUS "*KeysOff turns off the OS_Byte121 and OS_Byte129 key mapping."
N"EQUB13:EQUS "Syntax: *KeysOff"
X
EQUB 0
b.keysonhlp
lFEQUS "*KeysOn turns on the OS_Byte121 and OS_Byte129 key mapping."
v!EQUB13:EQUS "Syntax: *KeysOn"
�
EQUB 0
�	ALIGN
�.fin
�STMFD R13!,{R7-R11,R14}
�7MOV R0,#6:ADR R1,os_byte:ADR R2,end:SWI "XOS_Claim"
�SWI "XOS_Release"
�LDMFD R13!,{R7-R11,pc}
�.keysoff
�STMFD R13!,{R0-R12,R14}
�
MOV R0,#6
�ADR R1,os_byte
�ADR R2,end
�SWI "XOS_Release"
LDMFD R13!,{R0-R12,PC}
.keyson
STMFD R13!,{R0-R12,R14}
 
MOV R0,#6
*ADR R1,os_byte
4ADR R2,end
>SWI "XOS_Claim"
HLDMFD R13!,{R0-R12,PC}
R.os_byte
\TEQ R0,#129
fBEQ os_byte129
pTEQ R0,#121
zMOVNES pc,R14
�� R2,R1,#%10000000
�TEQ R2,#%10000000
�MOVNES pc,R14
�]
�� line%
�� N%
��I%=1 � N%
�� A%,B%
�-[OPT p:TEQ R1,#A% � &80:�Q R1,#B% � &80:]
� � I%<>N% [OPT p:�QS pc,R14:]
��
�[OPT p:MOVS pc,R14
�.os_byte129
TEQ R2,#&FF:MOVNES pc,R14
� R2,R1,#%10000000
TEQ R2,#%10000000
$MOV R2,#&FF
.]
8� line%
B� N%
L�I%=1 � N%
V� A%,B%
`-[OPT p:TEQ R1,#A% � &FF:�Q R1,#B% � &FF:]
j � I%<>N% [OPT p:�QS pc,R14:]
t�
~[OPT p:MOVS pc,R14
�.end
�]
��
�<�"SAVE KeysMod "+�~code+" "+�~O%:*SETTYPE KeysMod MODULE
�*RMRUN KEYSMOD
�*RMKILL KEYSMODULE
�*RMRUN KEYSMOD
�*KEYSON
��
���inkey
��12
��
��I%=1 � 127
�?ș "OS_Byte",129,I% � &FF,&FF � ,A%:� A%=&FF � �1:�;I%;" ";
�;ș "OS_Byte",121,I% � &80 � ,A%:� A%=&FF � �2:�;I%;" ";
�
�
�0
 �
*(� 1, 72,79 : REM 'Snapper' type keys
4/� 2, 64,65, 1,81 : REM Arcadians A,S,Return
>/� 2, 25,102, 121,103 : REM Firebird <,>,Tab
'N� 8, 72,79, 64,65, 1,81, 25,102, 121,103, 71,88, 80,5, 89,8 : REM Dogfight
�
00000000  0d 00 0a 0b f4 20 3e 20  63 68 37 0d 00 14 0f 6c  |..... > ch7....l|
00000010  69 6e 65 25 3d 31 30 30  30 30 0d 00 1e 13 2a 4b  |ine%=10000....*K|
00000020  2e 31 50 52 4f 43 69 6e  6b 65 79 7c 4d 0d 00 28  |.1PROCinkey|M..(|
00000030  10 de 20 63 6f 64 65 20  31 30 30 30 30 0d 00 32  |.. code 10000..2|
00000040  11 e3 20 70 3d 34 20 b8  20 37 20 88 20 32 0d 00  |.. p=4 . 7 . 2..|
00000050  3c 0b 4f 25 3d 63 6f 64  65 0d 00 46 08 50 25 3d  |<.O%=code..F.P%=|
00000060  30 0d 00 50 0a 5b 4f 50  54 20 70 0d 00 5a 11 45  |0..P.[OPT p..Z.E|
00000070  51 55 44 20 30 20 3b 73  74 61 72 74 0d 00 64 15  |QUD 0 ;start..d.|
00000080  45 51 55 44 20 6b 65 79  73 6f 6e 20 3b 69 6e 69  |EQUD keyson ;ini|
00000090  74 0d 00 6e 0c 45 51 55  44 20 66 69 6e 0d 00 78  |t..n.EQUD fin..x|
000000a0  0d 45 51 55 44 20 73 65  72 76 0d 00 82 0e 45 51  |.EQUD serv....EQ|
000000b0  55 44 20 74 69 74 6c 65  0d 00 8c 0d 45 51 55 44  |UD title....EQUD|
000000c0  20 68 65 6c 70 0d 00 96  0c 45 51 55 44 20 74 62  | help....EQUD tb|
000000d0  6c 0d 00 a0 0a 45 51 55  44 20 30 0d 00 aa 0a 45  |l....EQUD 0....E|
000000e0  51 55 44 20 30 0d 00 b4  0a 45 51 55 44 20 30 0d  |QUD 0....EQUD 0.|
000000f0  00 be 0a 45 51 55 44 20  30 0d 00 c8 0a 2e 73 74  |...EQUD 0.....st|
00000100  61 72 74 0d 00 d2 0e 4d  4f 56 20 70 63 2c 52 31  |art....MOV pc,R1|
00000110  34 0d 00 dc 11 53 57 49  20 22 4f 53 5f 45 78 69  |4....SWI "OS_Exi|
00000120  74 22 0d 00 fa 09 2e 73  65 72 76 0d 01 04 0e 4d  |t".....serv....M|
00000130  4f 56 20 70 63 2c 52 31  34 0d 01 0e 0a 2e 74 69  |OV pc,R14.....ti|
00000140  74 6c 65 0d 01 18 15 45  51 55 53 20 22 4b 65 79  |tle....EQUS "Key|
00000150  73 4d 6f 64 75 6c 65 22  0d 01 22 09 45 51 55 42  |sModule"..".EQUB|
00000160  30 0d 01 2c 09 41 4c 49  47 4e 0d 01 36 09 2e 68  |0..,.ALIGN..6..h|
00000170  65 6c 70 0d 01 40 2e 45  51 55 53 22 4b 65 79 73  |elp..@.EQUS"Keys|
00000180  4d 6f 64 75 6c 65 22 2b  bd 39 2b 22 30 2e 30 31  |Module"+.9+"0.01|
00000190  20 28 22 2b c1 91 24 2c  35 2c 31 31 29 2b 22 29  | ("+..$,5,11)+")|
000001a0  22 0d 01 4a 0a 45 51 55  42 20 30 0d 01 54 09 41  |"..J.EQUB 0..T.A|
000001b0  4c 49 47 4e 0d 01 5e 08  2e 74 62 6c 0d 01 68 11  |LIGN..^..tbl..h.|
000001c0  45 51 55 53 20 22 4b 65  79 73 4f 6e 22 0d 01 72  |EQUS "KeysOn"..r|
000001d0  0a 45 51 55 42 20 30 0d  01 7c 09 41 4c 49 47 4e  |.EQUB 0..|.ALIGN|
000001e0  0d 01 86 0f 45 51 55 44  20 6b 65 79 73 6f 6e 0d  |....EQUD keyson.|
000001f0  01 90 0a 45 51 55 44 20  30 0d 01 9a 12 45 51 55  |...EQUD 0....EQU|
00000200  44 20 6b 65 79 73 6f 6e  73 79 6e 0d 01 a4 12 45  |D keysonsyn....E|
00000210  51 55 44 20 6b 65 79 73  6f 6e 68 6c 70 0d 01 ae  |QUD keysonhlp...|
00000220  12 45 51 55 53 20 22 4b  65 79 73 4f 66 66 22 0d  |.EQUS "KeysOff".|
00000230  01 b8 0a 45 51 55 42 20  30 0d 01 c2 09 41 4c 49  |...EQUB 0....ALI|
00000240  47 4e 0d 01 cc 10 45 51  55 44 20 6b 65 79 73 6f  |GN....EQUD keyso|
00000250  66 66 0d 01 d6 0a 45 51  55 44 20 30 0d 01 e0 13  |ff....EQUD 0....|
00000260  45 51 55 44 20 6b 65 79  73 6f 66 66 73 79 6e 0d  |EQUD keysoffsyn.|
00000270  01 ea 13 45 51 55 44 20  6b 65 79 73 6f 66 66 68  |...EQUD keysoffh|
00000280  6c 70 0d 01 f4 0a 45 51  55 44 20 30 0d 01 fe 0e  |lp....EQUD 0....|
00000290  2e 6b 65 79 73 6f 6e 73  79 6e 0d 02 08 1a 45 51  |.keysonsyn....EQ|
000002a0  55 53 20 22 53 79 6e 74  61 78 3a 20 2a 4b 65 79  |US "Syntax: *Key|
000002b0  73 4f 6e 22 0d 02 12 0a  45 51 55 42 20 30 0d 02  |sOn"....EQUB 0..|
000002c0  1c 0f 2e 6b 65 79 73 6f  66 66 73 79 6e 0d 02 26  |...keysoffsyn..&|
000002d0  1b 45 51 55 53 20 22 53  79 6e 74 61 78 3a 20 2a  |.EQUS "Syntax: *|
000002e0  4b 65 79 73 4f 66 66 22  0d 02 30 0a 45 51 55 42  |KeysOff"..0.EQUB|
000002f0  20 30 0d 02 3a 0f 2e 6b  65 79 73 6f 66 66 68 6c  | 0..:..keysoffhl|
00000300  70 0d 02 44 48 45 51 55  53 20 22 2a 4b 65 79 73  |p..DHEQUS "*Keys|
00000310  4f 66 66 20 74 75 72 6e  73 20 6f 66 66 20 74 68  |Off turns off th|
00000320  65 20 4f 53 5f 42 79 74  65 31 32 31 20 61 6e 64  |e OS_Byte121 and|
00000330  20 4f 53 5f 42 79 74 65  31 32 39 20 6b 65 79 20  | OS_Byte129 key |
00000340  6d 61 70 70 69 6e 67 2e  22 0d 02 4e 22 45 51 55  |mapping."..N"EQU|
00000350  42 31 33 3a 45 51 55 53  20 22 53 79 6e 74 61 78  |B13:EQUS "Syntax|
00000360  3a 20 2a 4b 65 79 73 4f  66 66 22 0d 02 58 0a 45  |: *KeysOff"..X.E|
00000370  51 55 42 20 30 0d 02 62  0e 2e 6b 65 79 73 6f 6e  |QUB 0..b..keyson|
00000380  68 6c 70 0d 02 6c 46 45  51 55 53 20 22 2a 4b 65  |hlp..lFEQUS "*Ke|
00000390  79 73 4f 6e 20 74 75 72  6e 73 20 6f 6e 20 74 68  |ysOn turns on th|
000003a0  65 20 4f 53 5f 42 79 74  65 31 32 31 20 61 6e 64  |e OS_Byte121 and|
000003b0  20 4f 53 5f 42 79 74 65  31 32 39 20 6b 65 79 20  | OS_Byte129 key |
000003c0  6d 61 70 70 69 6e 67 2e  22 0d 02 76 21 45 51 55  |mapping."..v!EQU|
000003d0  42 31 33 3a 45 51 55 53  20 22 53 79 6e 74 61 78  |B13:EQUS "Syntax|
000003e0  3a 20 2a 4b 65 79 73 4f  6e 22 0d 02 80 0a 45 51  |: *KeysOn"....EQ|
000003f0  55 42 20 30 0d 02 8a 09  41 4c 49 47 4e 0d 02 94  |UB 0....ALIGN...|
00000400  08 2e 66 69 6e 0d 02 9e  1b 53 54 4d 46 44 20 52  |..fin....STMFD R|
00000410  31 33 21 2c 7b 52 37 2d  52 31 31 2c 52 31 34 7d  |13!,{R7-R11,R14}|
00000420  0d 02 a8 37 4d 4f 56 20  52 30 2c 23 36 3a 41 44  |...7MOV R0,#6:AD|
00000430  52 20 52 31 2c 6f 73 5f  62 79 74 65 3a 41 44 52  |R R1,os_byte:ADR|
00000440  20 52 32 2c 65 6e 64 3a  53 57 49 20 22 58 4f 53  | R2,end:SWI "XOS|
00000450  5f 43 6c 61 69 6d 22 0d  02 b2 15 53 57 49 20 22  |_Claim"....SWI "|
00000460  58 4f 53 5f 52 65 6c 65  61 73 65 22 0d 02 bc 1a  |XOS_Release"....|
00000470  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 37 2d 52  |LDMFD R13!,{R7-R|
00000480  31 31 2c 70 63 7d 0d 02  c6 0c 2e 6b 65 79 73 6f  |11,pc}.....keyso|
00000490  66 66 0d 02 d0 1b 53 54  4d 46 44 20 52 31 33 21  |ff....STMFD R13!|
000004a0  2c 7b 52 30 2d 52 31 32  2c 52 31 34 7d 0d 02 da  |,{R0-R12,R14}...|
000004b0  0d 4d 4f 56 20 52 30 2c  23 36 0d 02 e4 12 41 44  |.MOV R0,#6....AD|
000004c0  52 20 52 31 2c 6f 73 5f  62 79 74 65 0d 02 ee 0e  |R R1,os_byte....|
000004d0  41 44 52 20 52 32 2c 65  6e 64 0d 02 f8 15 53 57  |ADR R2,end....SW|
000004e0  49 20 22 58 4f 53 5f 52  65 6c 65 61 73 65 22 0d  |I "XOS_Release".|
000004f0  03 02 1a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |...LDMFD R13!,{R|
00000500  30 2d 52 31 32 2c 50 43  7d 0d 03 0c 0b 2e 6b 65  |0-R12,PC}.....ke|
00000510  79 73 6f 6e 0d 03 16 1b  53 54 4d 46 44 20 52 31  |yson....STMFD R1|
00000520  33 21 2c 7b 52 30 2d 52  31 32 2c 52 31 34 7d 0d  |3!,{R0-R12,R14}.|
00000530  03 20 0d 4d 4f 56 20 52  30 2c 23 36 0d 03 2a 12  |. .MOV R0,#6..*.|
00000540  41 44 52 20 52 31 2c 6f  73 5f 62 79 74 65 0d 03  |ADR R1,os_byte..|
00000550  34 0e 41 44 52 20 52 32  2c 65 6e 64 0d 03 3e 13  |4.ADR R2,end..>.|
00000560  53 57 49 20 22 58 4f 53  5f 43 6c 61 69 6d 22 0d  |SWI "XOS_Claim".|
00000570  03 48 1a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |.H.LDMFD R13!,{R|
00000580  30 2d 52 31 32 2c 50 43  7d 0d 03 52 0c 2e 6f 73  |0-R12,PC}..R..os|
00000590  5f 62 79 74 65 0d 03 5c  0f 54 45 51 20 52 30 2c  |_byte..\.TEQ R0,|
000005a0  23 31 32 39 0d 03 66 12  42 45 51 20 6f 73 5f 62  |#129..f.BEQ os_b|
000005b0  79 74 65 31 32 39 0d 03  70 0f 54 45 51 20 52 30  |yte129..p.TEQ R0|
000005c0  2c 23 31 32 31 0d 03 7a  11 4d 4f 56 4e 45 53 20  |,#121..z.MOVNES |
000005d0  70 63 2c 52 31 34 0d 03  84 16 80 20 52 32 2c 52  |pc,R14..... R2,R|
000005e0  31 2c 23 25 31 30 30 30  30 30 30 30 0d 03 8e 15  |1,#%10000000....|
000005f0  54 45 51 20 52 32 2c 23  25 31 30 30 30 30 30 30  |TEQ R2,#%1000000|
00000600  30 0d 03 98 11 4d 4f 56  4e 45 53 20 70 63 2c 52  |0....MOVNES pc,R|
00000610  31 34 0d 03 a2 05 5d 0d  03 ac 0b f7 20 6c 69 6e  |14....]..... lin|
00000620  65 25 0d 03 b6 08 f3 20  4e 25 0d 03 c0 0e e3 49  |e%..... N%.....I|
00000630  25 3d 31 20 b8 20 4e 25  0d 03 ca 0b f3 20 41 25  |%=1 . N%..... A%|
00000640  2c 42 25 0d 03 d4 2d 5b  4f 50 54 20 70 3a 54 45  |,B%...-[OPT p:TE|
00000650  51 20 52 31 2c 23 41 25  20 82 20 26 38 30 3a ec  |Q R1,#A% . &80:.|
00000660  51 20 52 31 2c 23 42 25  20 82 20 26 38 30 3a 5d  |Q R1,#B% . &80:]|
00000670  0d 03 de 20 e7 20 49 25  3c 3e 4e 25 20 5b 4f 50  |... . I%<>N% [OP|
00000680  54 20 70 3a ec 51 53 20  70 63 2c 52 31 34 3a 5d  |T p:.QS pc,R14:]|
00000690  0d 03 e8 05 ed 0d 03 f2  16 5b 4f 50 54 20 70 3a  |.........[OPT p:|
000006a0  4d 4f 56 53 20 70 63 2c  52 31 34 0d 03 fc 0f 2e  |MOVS pc,R14.....|
000006b0  6f 73 5f 62 79 74 65 31  32 39 0d 04 06 1d 54 45  |os_byte129....TE|
000006c0  51 20 52 32 2c 23 26 46  46 3a 4d 4f 56 4e 45 53  |Q R2,#&FF:MOVNES|
000006d0  20 70 63 2c 52 31 34 0d  04 10 16 80 20 52 32 2c  | pc,R14..... R2,|
000006e0  52 31 2c 23 25 31 30 30  30 30 30 30 30 0d 04 1a  |R1,#%10000000...|
000006f0  15 54 45 51 20 52 32 2c  23 25 31 30 30 30 30 30  |.TEQ R2,#%100000|
00000700  30 30 0d 04 24 0f 4d 4f  56 20 52 32 2c 23 26 46  |00..$.MOV R2,#&F|
00000710  46 0d 04 2e 05 5d 0d 04  38 0b f7 20 6c 69 6e 65  |F....]..8.. line|
00000720  25 0d 04 42 08 f3 20 4e  25 0d 04 4c 0e e3 49 25  |%..B.. N%..L..I%|
00000730  3d 31 20 b8 20 4e 25 0d  04 56 0b f3 20 41 25 2c  |=1 . N%..V.. A%,|
00000740  42 25 0d 04 60 2d 5b 4f  50 54 20 70 3a 54 45 51  |B%..`-[OPT p:TEQ|
00000750  20 52 31 2c 23 41 25 20  82 20 26 46 46 3a ec 51  | R1,#A% . &FF:.Q|
00000760  20 52 31 2c 23 42 25 20  82 20 26 46 46 3a 5d 0d  | R1,#B% . &FF:].|
00000770  04 6a 20 e7 20 49 25 3c  3e 4e 25 20 5b 4f 50 54  |.j . I%<>N% [OPT|
00000780  20 70 3a ec 51 53 20 70  63 2c 52 31 34 3a 5d 0d  | p:.QS pc,R14:].|
00000790  04 74 05 ed 0d 04 7e 16  5b 4f 50 54 20 70 3a 4d  |.t....~.[OPT p:M|
000007a0  4f 56 53 20 70 63 2c 52  31 34 0d 04 88 08 2e 65  |OVS pc,R14.....e|
000007b0  6e 64 0d 04 92 05 5d 0d  04 9c 05 ed 0d 04 a6 3c  |nd....]........<|
000007c0  ff 22 53 41 56 45 20 4b  65 79 73 4d 6f 64 20 22  |."SAVE KeysMod "|
000007d0  2b c3 7e 63 6f 64 65 2b  22 20 22 2b c3 7e 4f 25  |+.~code+" "+.~O%|
000007e0  3a 2a 53 45 54 54 59 50  45 20 4b 65 79 73 4d 6f  |:*SETTYPE KeysMo|
000007f0  64 20 4d 4f 44 55 4c 45  0d 04 b0 12 2a 52 4d 52  |d MODULE....*RMR|
00000800  55 4e 20 4b 45 59 53 4d  4f 44 0d 04 ba 16 2a 52  |UN KEYSMOD....*R|
00000810  4d 4b 49 4c 4c 20 4b 45  59 53 4d 4f 44 55 4c 45  |MKILL KEYSMODULE|
00000820  0d 04 c4 12 2a 52 4d 52  55 4e 20 4b 45 59 53 4d  |....*RMRUN KEYSM|
00000830  4f 44 0d 04 ce 0b 2a 4b  45 59 53 4f 4e 0d 04 d8  |OD....*KEYSON...|
00000840  05 e0 0d 07 d0 0b dd f2  69 6e 6b 65 79 0d 07 d7  |........inkey...|
00000850  07 eb 31 32 0d 07 da 05  f5 0d 07 e4 0f e3 49 25  |..12..........I%|
00000860  3d 31 20 b8 20 31 32 37  0d 07 ee 3f c8 99 20 22  |=1 . 127...?.. "|
00000870  4f 53 5f 42 79 74 65 22  2c 31 32 39 2c 49 25 20  |OS_Byte",129,I% |
00000880  82 20 26 46 46 2c 26 46  46 20 b8 20 2c 41 25 3a  |. &FF,&FF . ,A%:|
00000890  e7 20 41 25 3d 26 46 46  20 8c 20 fb 31 3a f1 3b  |. A%=&FF . .1:.;|
000008a0  49 25 3b 22 20 22 3b 0d  07 f8 3b c8 99 20 22 4f  |I%;" ";...;.. "O|
000008b0  53 5f 42 79 74 65 22 2c  31 32 31 2c 49 25 20 82  |S_Byte",121,I% .|
000008c0  20 26 38 30 20 b8 20 2c  41 25 3a e7 20 41 25 3d  | &80 . ,A%:. A%=|
000008d0  26 46 46 20 8c 20 fb 32  3a f1 3b 49 25 3b 22 20  |&FF . .2:.;I%;" |
000008e0  22 3b 0d 08 02 05 ed 0d  08 0c 05 f1 0d 08 16 06  |";..............|
000008f0  fd 30 0d 08 20 05 e1 0d  08 2a 28 dc 20 31 2c 20  |.0.. ....*(. 1, |
00000900  37 32 2c 37 39 20 3a 20  52 45 4d 20 27 53 6e 61  |72,79 : REM 'Sna|
00000910  70 70 65 72 27 20 74 79  70 65 20 6b 65 79 73 0d  |pper' type keys.|
00000920  08 34 2f dc 20 32 2c 20  36 34 2c 36 35 2c 20 31  |.4/. 2, 64,65, 1|
00000930  2c 38 31 20 3a 20 52 45  4d 20 41 72 63 61 64 69  |,81 : REM Arcadi|
00000940  61 6e 73 20 41 2c 53 2c  52 65 74 75 72 6e 0d 08  |ans A,S,Return..|
00000950  3e 2f dc 20 32 2c 20 32  35 2c 31 30 32 2c 20 31  |>/. 2, 25,102, 1|
00000960  32 31 2c 31 30 33 20 3a  20 52 45 4d 20 46 69 72  |21,103 : REM Fir|
00000970  65 62 69 72 64 20 3c 2c  3e 2c 54 61 62 0d 27 10  |ebird <,>,Tab.'.|
00000980  4e dc 20 38 2c 20 37 32  2c 37 39 2c 20 36 34 2c  |N. 8, 72,79, 64,|
00000990  36 35 2c 20 31 2c 38 31  2c 20 32 35 2c 31 30 32  |65, 1,81, 25,102|
000009a0  2c 20 31 32 31 2c 31 30  33 2c 20 37 31 2c 38 38  |, 121,103, 71,88|
000009b0  2c 20 38 30 2c 35 2c 20  38 39 2c 38 20 3a 20 52  |, 80,5, 89,8 : R|
000009c0  45 4d 20 44 6f 67 66 69  67 68 74 0d ff           |EM Dogfight..|
000009cd