� >RunTheRisc.No10.PadSource
%�" ASSEMBLE A RELOCATABLE MODULE"
4�" To drive a SAGA Joypad from the Printer Port"
((�" Replacing the keyboard scan SWIs"
2 �" OS_Byte 121, 122 and 129"
<�" By Mike Cook"
F
�_CINT
P�(24);~MS;" ";~ME
ZE*KEY 1 OSCLI("*SAVE RunTheRisc.No10.Pad "+STR$~MS+" "+STR$~ME) |M
d.*KEY 2 *SETTYPE RunTheRisc.No10.Pad FFA |M
n)*KEY 3 *RMLOAD RunTheRisc.No10.Pad |M
x *KEY 4 *RMKILL SAGA_Joypad|M
�*KEY 5  QUIT|M
�
�*KEY 7 *SegaSet 6 66|M
�:*KEY 10 SYS&6,129,(66 OR &80)EOR &7F,&FF TO ,A%:P.A%|M
�-*KEY 11 SYS&6,121,66 OR &80 TO ,A%:P.A%|M
�&*KEY 12 SYS&6,121,16 TO ,A%:P.A%|M
�
��
�� �_CINT
�� Code INITILISATION
�� CODE% &2000
�� A%=0 � 2 � 2
�P%=CODE%

[


OPT A%

.MS \ �ULE START LABLE

"EQUD 0      \ START CODE

,$EQUD IC-MS  \ INITILISATION �SET

6#EQUD FC-MS  \ FINILISATION CODE

@EQUD 0      \ SERVICE CODE

J#EQUD TS-MS  \ TITLE STRING �SET

T EQUD HS-MS  \ Ǔ STRING �SET

^$EQUD CT-MS  \ COMMAND TABLE �SET

h"EQUD 0      \ � � TABLE MARKER

r.HS EQUS "Saga Joypad"

|EQUB 09

�8EQUS "1.00 (19 Nov 1995) Joypad Module - �Mike Cook"

�
EQUB 0

�	ALIGN

�.TS EQUS "SAGA_Joypad"

�
EQUB 0

�	ALIGN

�.CT EQUS "SegaSet"

�
EQUB 0

�	ALIGN

� EQUD SS-MS \Set Sega command

�!EQUD &20002 \Information word

�.EQUD EM-MS \Offset to syntax error message

�%EQUD SH-MS \Offset to help string

EQUB 0
	ALIGN
A.EM EQUS "SegaSet Joypad_Key(0-11) Internal_Key_Number(0-7F)"
&
EQUB 0
0	ALIGN
:�.SH EQUS "This sets the Internal Key Number to be returned by a keyboard scan SWI for each of the 12 Joypad keys. The syntax used is:- SegaSet N K -- where N is the Joypad key number 0 to 11 and K is the internal key code 1 to &7F"
D
EQUB 0
N	ALIGN
X
b.IC \ START CODE
l.STMFD (13)!,{14} \ Remember return address
v\ CLAIM MEMORY
�MOV R0,#&6
�MOV R3,#20
�;SWI &1E \ OK so I don't check that it has 20 bytes free
�STR R2,[R12]
�MOV R0,#&6 \ByteV
�
ADR R1,BH
�MOV R2,R12
�"SWI &1F \ Claim OS_Byte Vector
�
�\ Make Printer Port Input
�
MOV R0,#2
�
MOV R2,#0
�MOV R1,#&2C
SWI &42EC1

\Default definations
 LDR R2,[R12]
*MOV R0,#73
4)STRB R0,[R2] \ return - PAD KEY 0 - A
>MOV R0,#102
H,STRB R0,[R2,#1] \  < - PAD KEY 1 - START
RMOV R0,#79
\)STRB R0,[R2,#2] \  ' - PAD KEY 2 - UP
fMOV R0,#104
p+STRB R0,[R2,#3] \  / - PAD KEY 3 - DOWN
zMOV R0,#100
�(STRB R0,[R2,#4] \  B - PAD KEY 4 - B
�MOV R0,#98
�+STRB R0,[R2,#5] \ SPACE - PAD KEY 5 - C
�MOV R0,#97
�+STRB R0,[R2,#6] \  Z - PAD KEY 6 - LEFT
�MOV R0,#66
�,STRB R0,[R2,#7] \  X - PAD KEY 7 - RIGHT
�MOV R0,#121
�0STRB R0,[R2,#8] \ left arrow - PAD KEY 8 - Z
�MOV R0,#25
�1STRB R0,[R2,#9] \ right arrow - PAD KEY 9 - Y
�MOV R0,#101
�)STRB R0,[R2,#10] \ M - PAD KEY 10 - �
MOV R0,#103
)STRB R0,[R2,#11] \ > - PAD KEY 11 - X

$MOV R0,#&10 \EventV
.
ADR R1,SJ
8MOV R2,R12
B SWI &1F \ Claim Event Vector
LMOV R0,#14
V
MOV R1,#4
`SWI &6 \Enable Vsync event
j
t*LDMFD (13) !,{15} \ BACK FROM �ST CAME
~
�.FC \ FINILISATION CODE
�.STMFD (13)!,{14} \ Remember return address
�MOV R0,#&6 \ByteV
�
ADR R1,BH
�MOV R2,R12
�SWI &20 \ Release vector
�
�MOV R0,#13
�
MOV R1,#4
�SWI &6 \Disable Vsync event
�MOV R0,#&10 \EventV
�
ADR R1,SJ
MOV R2,R12

SWI &20 \ Release vector

MOV R0,#&7
(LDR R2,[R12]
2#SWI &1E \Release memory storage
<*LDMFD (13) !,{15} \ BACK FROM �ST CAME
F
P \Intercepted OS_Byte handler
Z.BH
d&CMP R0,#121 \ Is it Keyboard Scan?
n
BEQ WW
xCMP R0,#122
�
BEQ WW
�CMP R0,#129
�BNE NVs
�
CMP R1,#0
�BEQ NVs
�CMP R2,#&FF
�BNE NVs
�� R1,R1,#&7F
�.WW
�2TST R1,#&80 \ Looking for just one type of key
�&BEQ HKS \ If not scan Joypad First
�\Looking for a specific key
�STMFD R13!,{R1,R2,R3,R4}
&LDR R12,[R12] \De refrance pointer
LDR R2,[R12,#12]

CMP R2,#0
"BEQ NKP \ No key press
,\See if it is on our list
6
MOV R3,#0
@	.SLP1
JLDRB R4,[R12,R3] \Get key
T�R R4,R4,#&80
^
CMP R1,R4
h!BEQ KEF \Out if it's the same
rMOV R2,R2,ASR#1
|ADD R3,R3,#1
�CMP R3,#12
�BEQ NKP \It's not on our ǔ
�
B SLP1
�).KEF \It's on our list is it pressed?
�MOVS R2,R2,ASR#1
�/BCC NKP \ No it's not pressed on the Joypad
�MOV R1,#&FF
�'LDMFD R13!,{R2} \ Take R1 off stack
�LDMFD R13!,{R2,R3,R4}
�&LDMFD (13) !,{15} \ Back to caller
�
�".HKS \Scan Joypad memory store
�STMFD R13!,{R1,R2,R3,R4}
&LDR R12,[R12] \De refrance pointer
LDR R1,[R12,#12]

CMP R1,#0
&BEQ NKP \ No key press
0$\Joypad is being pressed find it
:'LDMFD R13!,{R2} \ Take R1 off stack
DMOV R3,#0 \Offest pointer
N.SLP
X&MOVS R1,R1,ASR#1 \Find Bit Pressed
b
BCS KF
lADD R3,R3,#1
v	B SLP
�.KF
�LDRB R1,[R12,R3]
�
�LDMFD R13!,{R2,R3,R4}
�&LDMFD (13) !,{15} \ Back to caller
�.NKP
�LDMFD R13!,{R1,R2,R3,R4}
�CMP R0,#129
��EQ R1,R1,#&7F
�#MOVS PC,R14 \On to default scan
�
�.SS \ Set Saga buttons CODE
�.STMFD (13)!,{14} \ Remember return address
LDR R12,[R12] \ Derefrance
 \Read the two numbers passed

MOV R1,R0
 MOV R0,#10
*ADD R0,R0,#&20000000
4MOV R2,#11 \Max number size
>SWI &21 \Read variable
H
MOV R4,R2
R%ADD R1,R1,#1 \Point to next value
\MOV R2,#&7F
fSWI &21
p$STRB R2,[R12,R4] \ Save in table
z
�*LDMFD (13) !,{15} \ BACK FROM �ST CAME
�
�.SJ \Scan Joypad
�CMP R0,#4 \ Is it Vsync?
�BNE NVs \Exit if no
�.STMFD (13)!,{14} \ Remember return address
�"STMFD R13!,{R1,R2,R3,R4,R8,R9}
�%LDR R2,[R12] \De refrance pointer
�LDRB R0,[R2,#16]
�ADD R0,R0,#1
�TST R0,#&2
�MOVNE R0,#0
�STRB R0,[R2,#16]
	BEQ SKT
	\Jump Through Hoops
	
MOV R9,PC
	$�R R8,R9,#3
	.TEQP R8,#0
	8STMFD R13!,{R14}
	B
	L\Scan the Keypad
	V
MOV R4,#0
	`
MOV R0,#2
	jMOV R2,#&FE \� mask
	tMOV R1,#1 \� mask
	~2SWI &42EC1  \Clock Low it's an inverted output
	�
	�
MOV R0,#0
	�SWI &42EC1 \Read inputs
	�TST R1,#&10
	��REQ R4,R4,#&1
	�TST R1,#&1
	��REQ R4,R4,#&2
	�
	�
MOV R0,#2
	�MOV R2,#&FE \� mask
	�MOV R1,#0 \� mask
	�SWI &42EC1  \Clock High



MOV R0,#0
SWI &42EC1 \Read inputs
TST R1,#&20
(�REQ R4,R4,#&4
2TST R1,#&8
<�REQ R4,R4,#&8
F
P
Z
MOV R0,#2
dMOV R2,#&FE \� mask
nMOV R1,#1 \� mask
x2SWI &42EC1  \Clock Low it's an inverted output
�
�
MOV R0,#2
�MOV R2,#&FE \� mask
�MOV R1,#0 \� mask
�SWI &42EC1  \Clock High
�
�
MOV R0,#0
�SWI &42EC1 \Read inputs
�TST R1,#&10
��REQ R4,R4,#&10
�TST R1,#&1
��REQ R4,R4,#&20
�TST R1,#&4
�REQ R4,R4,#&40
TST R1,#&2
�REQ R4,R4,#&80
"
,
MOV R0,#2
6MOV R2,#&FE \� mask
@MOV R1,#1 \� mask
J2SWI &42EC1  \Clock Low it's an inverted output
T
^
MOV R0,#2
hMOV R2,#&FE \� mask
rMOV R1,#0 \� mask
|SWI &42EC1  \Clock High
�
�
MOV R0,#0
�SWI &42EC1 \Read inputs
�TST R1,#&20
��REQ R4,R4,#&100
�TST R1,#&8
��REQ R4,R4,#&200
�TST R1,#&2
��REQ R4,R4,#&400
�TST R1,#&4
��REQ R4,R4,#&800
�
�LDR R2,[R12]
*STR R4,[R2,#12] \Save key bit patterns

\Back through hoop
&LDMFD R13!,{R14}
0TEQP R9,#0
:
MOV R0,R0
D
N.SKT
X"LDMFD R13!,{R1,R2,R3,R4,R8,R9}
b+LDMFD R13!,{R1} \ Pull off Go on Vector
l
MOV R0,#4
v*LDMFD (13) !,{15} \ BACK FROM �ST CAME
�.NVs
�#MOVS PC,R14 \On to other EVENTS
�
�.ME \ LABLE � �ULE �
�]
��
��
�

00000000  0d 00 0a 20 f4 20 3e 52  75 6e 54 68 65 52 69 73  |... . >RunTheRis|
00000010  63 2e 4e 6f 31 30 2e 50  61 64 53 6f 75 72 63 65  |c.No10.PadSource|
00000020  0d 00 14 25 f1 22 20 41  53 53 45 4d 42 4c 45 20  |...%." ASSEMBLE |
00000030  41 20 52 45 4c 4f 43 41  54 41 42 4c 45 20 4d 4f  |A RELOCATABLE MO|
00000040  44 55 4c 45 22 0d 00 1e  34 f1 22 20 54 6f 20 64  |DULE"...4." To d|
00000050  72 69 76 65 20 61 20 53  41 47 41 20 4a 6f 79 70  |rive a SAGA Joyp|
00000060  61 64 20 66 72 6f 6d 20  74 68 65 20 50 72 69 6e  |ad from the Prin|
00000070  74 65 72 20 50 6f 72 74  22 0d 00 28 28 f1 22 20  |ter Port"..((." |
00000080  52 65 70 6c 61 63 69 6e  67 20 74 68 65 20 6b 65  |Replacing the ke|
00000090  79 62 6f 61 72 64 20 73  63 61 6e 20 53 57 49 73  |yboard scan SWIs|
000000a0  22 0d 00 32 20 f1 22 20  4f 53 5f 42 79 74 65 20  |"..2 ." OS_Byte |
000000b0  31 32 31 2c 20 31 32 32  20 61 6e 64 20 31 32 39  |121, 122 and 129|
000000c0  22 0d 00 3c 14 f1 22 20  42 79 20 4d 69 6b 65 20  |"..<.." By Mike |
000000d0  43 6f 6f 6b 22 0d 00 46  0a f2 5f 43 49 4e 54 0d  |Cook"..F.._CINT.|
000000e0  00 50 16 f1 89 28 32 34  29 3b 7e 4d 53 3b 22 20  |.P...(24);~MS;" |
000000f0  22 3b 7e 4d 45 0d 00 5a  45 2a 4b 45 59 20 31 20  |";~ME..ZE*KEY 1 |
00000100  4f 53 43 4c 49 28 22 2a  53 41 56 45 20 52 75 6e  |OSCLI("*SAVE Run|
00000110  54 68 65 52 69 73 63 2e  4e 6f 31 30 2e 50 61 64  |TheRisc.No10.Pad|
00000120  20 22 2b 53 54 52 24 7e  4d 53 2b 22 20 22 2b 53  | "+STR$~MS+" "+S|
00000130  54 52 24 7e 4d 45 29 20  7c 4d 0d 00 64 2e 2a 4b  |TR$~ME) |M..d.*K|
00000140  45 59 20 32 20 2a 53 45  54 54 59 50 45 20 52 75  |EY 2 *SETTYPE Ru|
00000150  6e 54 68 65 52 69 73 63  2e 4e 6f 31 30 2e 50 61  |nTheRisc.No10.Pa|
00000160  64 20 46 46 41 20 7c 4d  0d 00 6e 29 2a 4b 45 59  |d FFA |M..n)*KEY|
00000170  20 33 20 2a 52 4d 4c 4f  41 44 20 52 75 6e 54 68  | 3 *RMLOAD RunTh|
00000180  65 52 69 73 63 2e 4e 6f  31 30 2e 50 61 64 20 7c  |eRisc.No10.Pad ||
00000190  4d 0d 00 78 20 2a 4b 45  59 20 34 20 2a 52 4d 4b  |M..x *KEY 4 *RMK|
000001a0  49 4c 4c 20 53 41 47 41  5f 4a 6f 79 70 61 64 7c  |ILL SAGA_Joypad||
000001b0  4d 0d 00 82 12 2a 4b 45  59 20 35 20 20 51 55 49  |M....*KEY 5  QUI|
000001c0  54 7c 4d 0d 00 8c 04 0d  00 96 1a 2a 4b 45 59 20  |T|M........*KEY |
000001d0  37 20 2a 53 65 67 61 53  65 74 20 36 20 36 36 7c  |7 *SegaSet 6 66||
000001e0  4d 0d 00 a0 3a 2a 4b 45  59 20 31 30 20 53 59 53  |M...:*KEY 10 SYS|
000001f0  26 36 2c 31 32 39 2c 28  36 36 20 4f 52 20 26 38  |&6,129,(66 OR &8|
00000200  30 29 45 4f 52 20 26 37  46 2c 26 46 46 20 54 4f  |0)EOR &7F,&FF TO|
00000210  20 2c 41 25 3a 50 2e 41  25 7c 4d 0d 00 aa 2d 2a  | ,A%:P.A%|M...-*|
00000220  4b 45 59 20 31 31 20 53  59 53 26 36 2c 31 32 31  |KEY 11 SYS&6,121|
00000230  2c 36 36 20 4f 52 20 26  38 30 20 54 4f 20 2c 41  |,66 OR &80 TO ,A|
00000240  25 3a 50 2e 41 25 7c 4d  0d 00 b4 26 2a 4b 45 59  |%:P.A%|M...&*KEY|
00000250  20 31 32 20 53 59 53 26  36 2c 31 32 31 2c 31 36  | 12 SYS&6,121,16|
00000260  20 54 4f 20 2c 41 25 3a  50 2e 41 25 7c 4d 0d 00  | TO ,A%:P.A%|M..|
00000270  be 04 0d 00 c8 05 e0 0d  00 d2 0c dd 20 f2 5f 43  |............ ._C|
00000280  49 4e 54 0d 00 dc 18 f4  20 43 6f 64 65 20 49 4e  |INT..... Code IN|
00000290  49 54 49 4c 49 53 41 54  49 4f 4e 0d 00 e6 11 de  |ITILISATION.....|
000002a0  20 43 4f 44 45 25 20 26  32 30 30 30 0d 00 f0 12  | CODE% &2000....|
000002b0  e3 20 41 25 3d 30 20 b8  20 32 20 88 20 32 0d 00  |. A%=0 . 2 . 2..|
000002c0  fa 0c 50 25 3d 43 4f 44  45 25 0d 01 04 05 5b 0d  |..P%=CODE%....[.|
000002d0  01 0e 0a 4f 50 54 20 41  25 0d 01 18 1a 2e 4d 53  |...OPT A%.....MS|
000002e0  20 5c 20 83 55 4c 45 20  53 54 41 52 54 20 4c 41  | \ .ULE START LA|
000002f0  42 4c 45 0d 01 22 1c 45  51 55 44 20 30 20 20 20  |BLE..".EQUD 0   |
00000300  20 20 20 5c 20 53 54 41  52 54 20 43 4f 44 45 0d  |   \ START CODE.|
00000310  01 2c 24 45 51 55 44 20  49 43 2d 4d 53 20 20 5c  |.,$EQUD IC-MS  \|
00000320  20 49 4e 49 54 49 4c 49  53 41 54 49 4f 4e 20 87  | INITILISATION .|
00000330  53 45 54 0d 01 36 23 45  51 55 44 20 46 43 2d 4d  |SET..6#EQUD FC-M|
00000340  53 20 20 5c 20 46 49 4e  49 4c 49 53 41 54 49 4f  |S  \ FINILISATIO|
00000350  4e 20 43 4f 44 45 0d 01  40 1e 45 51 55 44 20 30  |N CODE..@.EQUD 0|
00000360  20 20 20 20 20 20 5c 20  53 45 52 56 49 43 45 20  |      \ SERVICE |
00000370  43 4f 44 45 0d 01 4a 23  45 51 55 44 20 54 53 2d  |CODE..J#EQUD TS-|
00000380  4d 53 20 20 5c 20 54 49  54 4c 45 20 53 54 52 49  |MS  \ TITLE STRI|
00000390  4e 47 20 87 53 45 54 0d  01 54 20 45 51 55 44 20  |NG .SET..T EQUD |
000003a0  48 53 2d 4d 53 20 20 5c  20 c7 93 20 53 54 52 49  |HS-MS  \ .. STRI|
000003b0  4e 47 20 87 53 45 54 0d  01 5e 24 45 51 55 44 20  |NG .SET..^$EQUD |
000003c0  43 54 2d 4d 53 20 20 5c  20 43 4f 4d 4d 41 4e 44  |CT-MS  \ COMMAND|
000003d0  20 54 41 42 4c 45 20 87  53 45 54 0d 01 68 22 45  | TABLE .SET..h"E|
000003e0  51 55 44 20 30 20 20 20  20 20 20 5c 20 e0 20 ca  |QUD 0      \ . .|
000003f0  20 54 41 42 4c 45 20 4d  41 52 4b 45 52 0d 01 72  | TABLE MARKER..r|
00000400  1a 2e 48 53 20 45 51 55  53 20 22 53 61 67 61 20  |..HS EQUS "Saga |
00000410  4a 6f 79 70 61 64 22 0d  01 7c 0b 45 51 55 42 20  |Joypad"..|.EQUB |
00000420  30 39 0d 01 86 38 45 51  55 53 20 22 31 2e 30 30  |09...8EQUS "1.00|
00000430  20 28 31 39 20 4e 6f 76  20 31 39 39 35 29 20 4a  | (19 Nov 1995) J|
00000440  6f 79 70 61 64 20 4d 6f  64 75 6c 65 20 2d 20 a9  |oypad Module - .|
00000450  4d 69 6b 65 20 43 6f 6f  6b 22 0d 01 90 0a 45 51  |Mike Cook"....EQ|
00000460  55 42 20 30 0d 01 9a 09  41 4c 49 47 4e 0d 01 a4  |UB 0....ALIGN...|
00000470  1a 2e 54 53 20 45 51 55  53 20 22 53 41 47 41 5f  |..TS EQUS "SAGA_|
00000480  4a 6f 79 70 61 64 22 0d  01 ae 0a 45 51 55 42 20  |Joypad"....EQUB |
00000490  30 0d 01 b8 09 41 4c 49  47 4e 0d 01 c2 16 2e 43  |0....ALIGN.....C|
000004a0  54 20 45 51 55 53 20 22  53 65 67 61 53 65 74 22  |T EQUS "SegaSet"|
000004b0  0d 01 cc 0a 45 51 55 42  20 30 0d 01 d6 09 41 4c  |....EQUB 0....AL|
000004c0  49 47 4e 0d 01 e0 20 45  51 55 44 20 53 53 2d 4d  |IGN... EQUD SS-M|
000004d0  53 20 5c 53 65 74 20 53  65 67 61 20 63 6f 6d 6d  |S \Set Sega comm|
000004e0  61 6e 64 0d 01 ea 21 45  51 55 44 20 26 32 30 30  |and...!EQUD &200|
000004f0  30 32 20 5c 49 6e 66 6f  72 6d 61 74 69 6f 6e 20  |02 \Information |
00000500  77 6f 72 64 0d 01 f4 2e  45 51 55 44 20 45 4d 2d  |word....EQUD EM-|
00000510  4d 53 20 5c 4f 66 66 73  65 74 20 74 6f 20 73 79  |MS \Offset to sy|
00000520  6e 74 61 78 20 65 72 72  6f 72 20 6d 65 73 73 61  |ntax error messa|
00000530  67 65 0d 01 fe 25 45 51  55 44 20 53 48 2d 4d 53  |ge...%EQUD SH-MS|
00000540  20 5c 4f 66 66 73 65 74  20 74 6f 20 68 65 6c 70  | \Offset to help|
00000550  20 73 74 72 69 6e 67 0d  02 08 0a 45 51 55 42 20  | string....EQUB |
00000560  30 0d 02 12 09 41 4c 49  47 4e 0d 02 1c 41 2e 45  |0....ALIGN...A.E|
00000570  4d 20 45 51 55 53 20 22  53 65 67 61 53 65 74 20  |M EQUS "SegaSet |
00000580  4a 6f 79 70 61 64 5f 4b  65 79 28 30 2d 31 31 29  |Joypad_Key(0-11)|
00000590  20 49 6e 74 65 72 6e 61  6c 5f 4b 65 79 5f 4e 75  | Internal_Key_Nu|
000005a0  6d 62 65 72 28 30 2d 37  46 29 22 0d 02 26 0a 45  |mber(0-7F)"..&.E|
000005b0  51 55 42 20 30 0d 02 30  09 41 4c 49 47 4e 0d 02  |QUB 0..0.ALIGN..|
000005c0  3a eb 2e 53 48 20 45 51  55 53 20 22 54 68 69 73  |:..SH EQUS "This|
000005d0  20 73 65 74 73 20 74 68  65 20 49 6e 74 65 72 6e  | sets the Intern|
000005e0  61 6c 20 4b 65 79 20 4e  75 6d 62 65 72 20 74 6f  |al Key Number to|
000005f0  20 62 65 20 72 65 74 75  72 6e 65 64 20 62 79 20  | be returned by |
00000600  61 20 6b 65 79 62 6f 61  72 64 20 73 63 61 6e 20  |a keyboard scan |
00000610  53 57 49 20 66 6f 72 20  65 61 63 68 20 6f 66 20  |SWI for each of |
00000620  74 68 65 20 31 32 20 4a  6f 79 70 61 64 20 6b 65  |the 12 Joypad ke|
00000630  79 73 2e 20 54 68 65 20  73 79 6e 74 61 78 20 75  |ys. The syntax u|
00000640  73 65 64 20 69 73 3a 2d  20 53 65 67 61 53 65 74  |sed is:- SegaSet|
00000650  20 4e 20 4b 20 2d 2d 20  77 68 65 72 65 20 4e 20  | N K -- where N |
00000660  69 73 20 74 68 65 20 4a  6f 79 70 61 64 20 6b 65  |is the Joypad ke|
00000670  79 20 6e 75 6d 62 65 72  20 30 20 74 6f 20 31 31  |y number 0 to 11|
00000680  20 61 6e 64 20 4b 20 69  73 20 74 68 65 20 69 6e  | and K is the in|
00000690  74 65 72 6e 61 6c 20 6b  65 79 20 63 6f 64 65 20  |ternal key code |
000006a0  31 20 74 6f 20 26 37 46  22 0d 02 44 0a 45 51 55  |1 to &7F"..D.EQU|
000006b0  42 20 30 0d 02 4e 09 41  4c 49 47 4e 0d 02 58 04  |B 0..N.ALIGN..X.|
000006c0  0d 02 62 14 2e 49 43 20  5c 20 53 54 41 52 54 20  |..b..IC \ START |
000006d0  43 4f 44 45 0d 02 6c 2e  53 54 4d 46 44 20 28 31  |CODE..l.STMFD (1|
000006e0  33 29 21 2c 7b 31 34 7d  20 5c 20 52 65 6d 65 6d  |3)!,{14} \ Remem|
000006f0  62 65 72 20 72 65 74 75  72 6e 20 61 64 64 72 65  |ber return addre|
00000700  73 73 0d 02 76 12 5c 20  43 4c 41 49 4d 20 4d 45  |ss..v.\ CLAIM ME|
00000710  4d 4f 52 59 0d 02 80 0e  4d 4f 56 20 52 30 2c 23  |MORY....MOV R0,#|
00000720  26 36 0d 02 8a 0e 4d 4f  56 20 52 33 2c 23 32 30  |&6....MOV R3,#20|
00000730  0d 02 94 3b 53 57 49 20  26 31 45 20 5c 20 4f 4b  |...;SWI &1E \ OK|
00000740  20 73 6f 20 49 20 64 6f  6e 27 74 20 63 68 65 63  | so I don't chec|
00000750  6b 20 74 68 61 74 20 69  74 20 68 61 73 20 32 30  |k that it has 20|
00000760  20 62 79 74 65 73 20 66  72 65 65 0d 02 9e 10 53  | bytes free....S|
00000770  54 52 20 52 32 2c 5b 52  31 32 5d 0d 02 a8 15 4d  |TR R2,[R12]....M|
00000780  4f 56 20 52 30 2c 23 26  36 20 5c 42 79 74 65 56  |OV R0,#&6 \ByteV|
00000790  0d 02 b2 0d 41 44 52 20  52 31 2c 42 48 0d 02 bc  |....ADR R1,BH...|
000007a0  0e 4d 4f 56 20 52 32 2c  52 31 32 0d 02 c6 22 53  |.MOV R2,R12..."S|
000007b0  57 49 20 26 31 46 20 5c  20 43 6c 61 69 6d 20 4f  |WI &1F \ Claim O|
000007c0  53 5f 42 79 74 65 20 56  65 63 74 6f 72 0d 02 d0  |S_Byte Vector...|
000007d0  04 0d 02 da 1d 5c 20 4d  61 6b 65 20 50 72 69 6e  |.....\ Make Prin|
000007e0  74 65 72 20 50 6f 72 74  20 49 6e 70 75 74 0d 02  |ter Port Input..|
000007f0  e4 0d 4d 4f 56 20 52 30  2c 23 32 0d 02 ee 0d 4d  |..MOV R0,#2....M|
00000800  4f 56 20 52 32 2c 23 30  0d 02 f8 0f 4d 4f 56 20  |OV R2,#0....MOV |
00000810  52 31 2c 23 26 32 43 0d  03 02 0e 53 57 49 20 26  |R1,#&2C....SWI &|
00000820  34 32 45 43 31 0d 03 0c  04 0d 03 16 18 5c 44 65  |42EC1........\De|
00000830  66 61 75 6c 74 20 64 65  66 69 6e 61 74 69 6f 6e  |fault defination|
00000840  73 0d 03 20 10 4c 44 52  20 52 32 2c 5b 52 31 32  |s.. .LDR R2,[R12|
00000850  5d 0d 03 2a 0e 4d 4f 56  20 52 30 2c 23 37 33 0d  |]..*.MOV R0,#73.|
00000860  03 34 29 53 54 52 42 20  52 30 2c 5b 52 32 5d 20  |.4)STRB R0,[R2] |
00000870  5c 20 72 65 74 75 72 6e  20 2d 20 50 41 44 20 4b  |\ return - PAD K|
00000880  45 59 20 30 20 2d 20 41  0d 03 3e 0f 4d 4f 56 20  |EY 0 - A..>.MOV |
00000890  52 30 2c 23 31 30 32 0d  03 48 2c 53 54 52 42 20  |R0,#102..H,STRB |
000008a0  52 30 2c 5b 52 32 2c 23  31 5d 20 5c 20 20 3c 20  |R0,[R2,#1] \  < |
000008b0  2d 20 50 41 44 20 4b 45  59 20 31 20 2d 20 53 54  |- PAD KEY 1 - ST|
000008c0  41 52 54 0d 03 52 0e 4d  4f 56 20 52 30 2c 23 37  |ART..R.MOV R0,#7|
000008d0  39 0d 03 5c 29 53 54 52  42 20 52 30 2c 5b 52 32  |9..\)STRB R0,[R2|
000008e0  2c 23 32 5d 20 5c 20 20  27 20 2d 20 50 41 44 20  |,#2] \  ' - PAD |
000008f0  4b 45 59 20 32 20 2d 20  55 50 0d 03 66 0f 4d 4f  |KEY 2 - UP..f.MO|
00000900  56 20 52 30 2c 23 31 30  34 0d 03 70 2b 53 54 52  |V R0,#104..p+STR|
00000910  42 20 52 30 2c 5b 52 32  2c 23 33 5d 20 5c 20 20  |B R0,[R2,#3] \  |
00000920  2f 20 2d 20 50 41 44 20  4b 45 59 20 33 20 2d 20  |/ - PAD KEY 3 - |
00000930  44 4f 57 4e 0d 03 7a 0f  4d 4f 56 20 52 30 2c 23  |DOWN..z.MOV R0,#|
00000940  31 30 30 0d 03 84 28 53  54 52 42 20 52 30 2c 5b  |100...(STRB R0,[|
00000950  52 32 2c 23 34 5d 20 5c  20 20 42 20 2d 20 50 41  |R2,#4] \  B - PA|
00000960  44 20 4b 45 59 20 34 20  2d 20 42 0d 03 8e 0e 4d  |D KEY 4 - B....M|
00000970  4f 56 20 52 30 2c 23 39  38 0d 03 98 2b 53 54 52  |OV R0,#98...+STR|
00000980  42 20 52 30 2c 5b 52 32  2c 23 35 5d 20 5c 20 53  |B R0,[R2,#5] \ S|
00000990  50 41 43 45 20 2d 20 50  41 44 20 4b 45 59 20 35  |PACE - PAD KEY 5|
000009a0  20 2d 20 43 0d 03 a2 0e  4d 4f 56 20 52 30 2c 23  | - C....MOV R0,#|
000009b0  39 37 0d 03 ac 2b 53 54  52 42 20 52 30 2c 5b 52  |97...+STRB R0,[R|
000009c0  32 2c 23 36 5d 20 5c 20  20 5a 20 2d 20 50 41 44  |2,#6] \  Z - PAD|
000009d0  20 4b 45 59 20 36 20 2d  20 4c 45 46 54 0d 03 b6  | KEY 6 - LEFT...|
000009e0  0e 4d 4f 56 20 52 30 2c  23 36 36 0d 03 c0 2c 53  |.MOV R0,#66...,S|
000009f0  54 52 42 20 52 30 2c 5b  52 32 2c 23 37 5d 20 5c  |TRB R0,[R2,#7] \|
00000a00  20 20 58 20 2d 20 50 41  44 20 4b 45 59 20 37 20  |  X - PAD KEY 7 |
00000a10  2d 20 52 49 47 48 54 0d  03 ca 0f 4d 4f 56 20 52  |- RIGHT....MOV R|
00000a20  30 2c 23 31 32 31 0d 03  d4 30 53 54 52 42 20 52  |0,#121...0STRB R|
00000a30  30 2c 5b 52 32 2c 23 38  5d 20 5c 20 6c 65 66 74  |0,[R2,#8] \ left|
00000a40  20 61 72 72 6f 77 20 2d  20 50 41 44 20 4b 45 59  | arrow - PAD KEY|
00000a50  20 38 20 2d 20 5a 0d 03  de 0e 4d 4f 56 20 52 30  | 8 - Z....MOV R0|
00000a60  2c 23 32 35 0d 03 e8 31  53 54 52 42 20 52 30 2c  |,#25...1STRB R0,|
00000a70  5b 52 32 2c 23 39 5d 20  5c 20 72 69 67 68 74 20  |[R2,#9] \ right |
00000a80  61 72 72 6f 77 20 2d 20  50 41 44 20 4b 45 59 20  |arrow - PAD KEY |
00000a90  39 20 2d 20 59 0d 03 f2  0f 4d 4f 56 20 52 30 2c  |9 - Y....MOV R0,|
00000aa0  23 31 30 31 0d 03 fc 29  53 54 52 42 20 52 30 2c  |#101...)STRB R0,|
00000ab0  5b 52 32 2c 23 31 30 5d  20 5c 20 4d 20 2d 20 50  |[R2,#10] \ M - P|
00000ac0  41 44 20 4b 45 59 20 31  30 20 2d 20 eb 0d 04 06  |AD KEY 10 - ....|
00000ad0  0f 4d 4f 56 20 52 30 2c  23 31 30 33 0d 04 10 29  |.MOV R0,#103...)|
00000ae0  53 54 52 42 20 52 30 2c  5b 52 32 2c 23 31 31 5d  |STRB R0,[R2,#11]|
00000af0  20 5c 20 3e 20 2d 20 50  41 44 20 4b 45 59 20 31  | \ > - PAD KEY 1|
00000b00  31 20 2d 20 58 0d 04 1a  04 0d 04 24 17 4d 4f 56  |1 - X......$.MOV|
00000b10  20 52 30 2c 23 26 31 30  20 5c 45 76 65 6e 74 56  | R0,#&10 \EventV|
00000b20  0d 04 2e 0d 41 44 52 20  52 31 2c 53 4a 0d 04 38  |....ADR R1,SJ..8|
00000b30  0e 4d 4f 56 20 52 32 2c  52 31 32 0d 04 42 20 53  |.MOV R2,R12..B S|
00000b40  57 49 20 26 31 46 20 5c  20 43 6c 61 69 6d 20 45  |WI &1F \ Claim E|
00000b50  76 65 6e 74 20 56 65 63  74 6f 72 0d 04 4c 0e 4d  |vent Vector..L.M|
00000b60  4f 56 20 52 30 2c 23 31  34 0d 04 56 0d 4d 4f 56  |OV R0,#14..V.MOV|
00000b70  20 52 31 2c 23 34 0d 04  60 1e 53 57 49 20 26 36  | R1,#4..`.SWI &6|
00000b80  20 5c 45 6e 61 62 6c 65  20 56 73 79 6e 63 20 65  | \Enable Vsync e|
00000b90  76 65 6e 74 0d 04 6a 04  0d 04 74 2a 4c 44 4d 46  |vent..j...t*LDMF|
00000ba0  44 20 28 31 33 29 20 21  2c 7b 31 35 7d 20 5c 20  |D (13) !,{15} \ |
00000bb0  42 41 43 4b 20 46 52 4f  4d 20 c9 53 54 20 43 41  |BACK FROM .ST CA|
00000bc0  4d 45 0d 04 7e 04 0d 04  88 1b 2e 46 43 20 5c 20  |ME..~......FC \ |
00000bd0  46 49 4e 49 4c 49 53 41  54 49 4f 4e 20 43 4f 44  |FINILISATION COD|
00000be0  45 0d 04 92 2e 53 54 4d  46 44 20 28 31 33 29 21  |E....STMFD (13)!|
00000bf0  2c 7b 31 34 7d 20 5c 20  52 65 6d 65 6d 62 65 72  |,{14} \ Remember|
00000c00  20 72 65 74 75 72 6e 20  61 64 64 72 65 73 73 0d  | return address.|
00000c10  04 9c 15 4d 4f 56 20 52  30 2c 23 26 36 20 5c 42  |...MOV R0,#&6 \B|
00000c20  79 74 65 56 0d 04 a6 0d  41 44 52 20 52 31 2c 42  |yteV....ADR R1,B|
00000c30  48 0d 04 b0 0e 4d 4f 56  20 52 32 2c 52 31 32 0d  |H....MOV R2,R12.|
00000c40  04 ba 1c 53 57 49 20 26  32 30 20 5c 20 52 65 6c  |...SWI &20 \ Rel|
00000c50  65 61 73 65 20 76 65 63  74 6f 72 0d 04 c4 04 0d  |ease vector.....|
00000c60  04 ce 0e 4d 4f 56 20 52  30 2c 23 31 33 0d 04 d8  |...MOV R0,#13...|
00000c70  0d 4d 4f 56 20 52 31 2c  23 34 0d 04 e2 1f 53 57  |.MOV R1,#4....SW|
00000c80  49 20 26 36 20 5c 44 69  73 61 62 6c 65 20 56 73  |I &6 \Disable Vs|
00000c90  79 6e 63 20 65 76 65 6e  74 0d 04 ec 17 4d 4f 56  |ync event....MOV|
00000ca0  20 52 30 2c 23 26 31 30  20 5c 45 76 65 6e 74 56  | R0,#&10 \EventV|
00000cb0  0d 04 f6 0d 41 44 52 20  52 31 2c 53 4a 0d 05 00  |....ADR R1,SJ...|
00000cc0  0e 4d 4f 56 20 52 32 2c  52 31 32 0d 05 0a 1c 53  |.MOV R2,R12....S|
00000cd0  57 49 20 26 32 30 20 5c  20 52 65 6c 65 61 73 65  |WI &20 \ Release|
00000ce0  20 76 65 63 74 6f 72 0d  05 14 04 0d 05 1e 0e 4d  | vector........M|
00000cf0  4f 56 20 52 30 2c 23 26  37 0d 05 28 10 4c 44 52  |OV R0,#&7..(.LDR|
00000d00  20 52 32 2c 5b 52 31 32  5d 0d 05 32 23 53 57 49  | R2,[R12]..2#SWI|
00000d10  20 26 31 45 20 5c 52 65  6c 65 61 73 65 20 6d 65  | &1E \Release me|
00000d20  6d 6f 72 79 20 73 74 6f  72 61 67 65 0d 05 3c 2a  |mory storage..<*|
00000d30  4c 44 4d 46 44 20 28 31  33 29 20 21 2c 7b 31 35  |LDMFD (13) !,{15|
00000d40  7d 20 5c 20 42 41 43 4b  20 46 52 4f 4d 20 c9 53  |} \ BACK FROM .S|
00000d50  54 20 43 41 4d 45 0d 05  46 04 0d 05 50 20 5c 49  |T CAME..F...P \I|
00000d60  6e 74 65 72 63 65 70 74  65 64 20 4f 53 5f 42 79  |ntercepted OS_By|
00000d70  74 65 20 68 61 6e 64 6c  65 72 0d 05 5a 07 2e 42  |te handler..Z..B|
00000d80  48 0d 05 64 26 43 4d 50  20 52 30 2c 23 31 32 31  |H..d&CMP R0,#121|
00000d90  20 5c 20 49 73 20 69 74  20 4b 65 79 62 6f 61 72  | \ Is it Keyboar|
00000da0  64 20 53 63 61 6e 3f 0d  05 6e 0a 42 45 51 20 57  |d Scan?..n.BEQ W|
00000db0  57 0d 05 78 0f 43 4d 50  20 52 30 2c 23 31 32 32  |W..x.CMP R0,#122|
00000dc0  0d 05 82 0a 42 45 51 20  57 57 0d 05 8c 0f 43 4d  |....BEQ WW....CM|
00000dd0  50 20 52 30 2c 23 31 32  39 0d 05 96 0b 42 4e 45  |P R0,#129....BNE|
00000de0  20 4e 56 73 0d 05 a0 0d  43 4d 50 20 52 31 2c 23  | NVs....CMP R1,#|
00000df0  30 0d 05 aa 0b 42 45 51  20 4e 56 73 0d 05 b4 0f  |0....BEQ NVs....|
00000e00  43 4d 50 20 52 32 2c 23  26 46 46 0d 05 be 0b 42  |CMP R2,#&FF....B|
00000e10  4e 45 20 4e 56 73 0d 05  c8 10 82 20 52 31 2c 52  |NE NVs..... R1,R|
00000e20  31 2c 23 26 37 46 0d 05  d2 07 2e 57 57 0d 05 dc  |1,#&7F.....WW...|
00000e30  32 54 53 54 20 52 31 2c  23 26 38 30 20 5c 20 4c  |2TST R1,#&80 \ L|
00000e40  6f 6f 6b 69 6e 67 20 66  6f 72 20 6a 75 73 74 20  |ooking for just |
00000e50  6f 6e 65 20 74 79 70 65  20 6f 66 20 6b 65 79 0d  |one type of key.|
00000e60  05 e6 26 42 45 51 20 48  4b 53 20 5c 20 49 66 20  |..&BEQ HKS \ If |
00000e70  6e 6f 74 20 73 63 61 6e  20 4a 6f 79 70 61 64 20  |not scan Joypad |
00000e80  46 69 72 73 74 0d 05 f0  1f 5c 4c 6f 6f 6b 69 6e  |First....\Lookin|
00000e90  67 20 66 6f 72 20 61 20  73 70 65 63 69 66 69 63  |g for a specific|
00000ea0  20 6b 65 79 0d 05 fa 1c  53 54 4d 46 44 20 52 31  | key....STMFD R1|
00000eb0  33 21 2c 7b 52 31 2c 52  32 2c 52 33 2c 52 34 7d  |3!,{R1,R2,R3,R4}|
00000ec0  0d 06 04 26 4c 44 52 20  52 31 32 2c 5b 52 31 32  |...&LDR R12,[R12|
00000ed0  5d 20 5c 44 65 20 72 65  66 72 61 6e 63 65 20 70  |] \De refrance p|
00000ee0  6f 69 6e 74 65 72 0d 06  0e 14 4c 44 52 20 52 32  |ointer....LDR R2|
00000ef0  2c 5b 52 31 32 2c 23 31  32 5d 0d 06 18 0d 43 4d  |,[R12,#12]....CM|
00000f00  50 20 52 32 2c 23 30 0d  06 22 1a 42 45 51 20 4e  |P R2,#0..".BEQ N|
00000f10  4b 50 20 5c 20 4e 6f 20  6b 65 79 20 70 72 65 73  |KP \ No key pres|
00000f20  73 0d 06 2c 1d 5c 53 65  65 20 69 66 20 69 74 20  |s..,.\See if it |
00000f30  69 73 20 6f 6e 20 6f 75  72 20 6c 69 73 74 0d 06  |is on our list..|
00000f40  36 0d 4d 4f 56 20 52 33  2c 23 30 0d 06 40 09 2e  |6.MOV R3,#0..@..|
00000f50  53 4c 50 31 0d 06 4a 1d  4c 44 52 42 20 52 34 2c  |SLP1..J.LDRB R4,|
00000f60  5b 52 31 32 2c 52 33 5d  20 5c 47 65 74 20 6b 65  |[R12,R3] \Get ke|
00000f70  79 0d 06 54 11 84 52 20  52 34 2c 52 34 2c 23 26  |y..T..R R4,R4,#&|
00000f80  38 30 0d 06 5e 0d 43 4d  50 20 52 31 2c 52 34 0d  |80..^.CMP R1,R4.|
00000f90  06 68 21 42 45 51 20 4b  45 46 20 5c 4f 75 74 20  |.h!BEQ KEF \Out |
00000fa0  69 66 20 69 74 27 73 20  74 68 65 20 73 61 6d 65  |if it's the same|
00000fb0  0d 06 72 13 4d 4f 56 20  52 32 2c 52 32 2c 41 53  |..r.MOV R2,R2,AS|
00000fc0  52 23 31 0d 06 7c 10 41  44 44 20 52 33 2c 52 33  |R#1..|.ADD R3,R3|
00000fd0  2c 23 31 0d 06 86 0e 43  4d 50 20 52 33 2c 23 31  |,#1....CMP R3,#1|
00000fe0  32 0d 06 90 1f 42 45 51  20 4e 4b 50 20 5c 49 74  |2....BEQ NKP \It|
00000ff0  27 73 20 6e 6f 74 20 6f  6e 20 6f 75 72 20 c7 94  |'s not on our ..|
00001000  0d 06 9a 0a 42 20 53 4c  50 31 0d 06 a4 29 2e 4b  |....B SLP1...).K|
00001010  45 46 20 5c 49 74 27 73  20 6f 6e 20 6f 75 72 20  |EF \It's on our |
00001020  6c 69 73 74 20 69 73 20  69 74 20 70 72 65 73 73  |list is it press|
00001030  65 64 3f 0d 06 ae 14 4d  4f 56 53 20 52 32 2c 52  |ed?....MOVS R2,R|
00001040  32 2c 41 53 52 23 31 0d  06 b8 2f 42 43 43 20 4e  |2,ASR#1.../BCC N|
00001050  4b 50 20 5c 20 4e 6f 20  69 74 27 73 20 6e 6f 74  |KP \ No it's not|
00001060  20 70 72 65 73 73 65 64  20 6f 6e 20 74 68 65 20  | pressed on the |
00001070  4a 6f 79 70 61 64 0d 06  c2 0f 4d 4f 56 20 52 31  |Joypad....MOV R1|
00001080  2c 23 26 46 46 0d 06 cc  27 4c 44 4d 46 44 20 52  |,#&FF...'LDMFD R|
00001090  31 33 21 2c 7b 52 32 7d  20 5c 20 54 61 6b 65 20  |13!,{R2} \ Take |
000010a0  52 31 20 6f 66 66 20 73  74 61 63 6b 0d 06 d6 19  |R1 off stack....|
000010b0  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 32 2c 52  |LDMFD R13!,{R2,R|
000010c0  33 2c 52 34 7d 0d 06 e0  26 4c 44 4d 46 44 20 28  |3,R4}...&LDMFD (|
000010d0  31 33 29 20 21 2c 7b 31  35 7d 20 5c 20 42 61 63  |13) !,{15} \ Bac|
000010e0  6b 20 74 6f 20 63 61 6c  6c 65 72 0d 06 ea 04 0d  |k to caller.....|
000010f0  06 f4 22 2e 48 4b 53 20  5c 53 63 61 6e 20 4a 6f  |..".HKS \Scan Jo|
00001100  79 70 61 64 20 6d 65 6d  6f 72 79 20 73 74 6f 72  |ypad memory stor|
00001110  65 0d 06 fe 1c 53 54 4d  46 44 20 52 31 33 21 2c  |e....STMFD R13!,|
00001120  7b 52 31 2c 52 32 2c 52  33 2c 52 34 7d 0d 07 08  |{R1,R2,R3,R4}...|
00001130  26 4c 44 52 20 52 31 32  2c 5b 52 31 32 5d 20 5c  |&LDR R12,[R12] \|
00001140  44 65 20 72 65 66 72 61  6e 63 65 20 70 6f 69 6e  |De refrance poin|
00001150  74 65 72 0d 07 12 14 4c  44 52 20 52 31 2c 5b 52  |ter....LDR R1,[R|
00001160  31 32 2c 23 31 32 5d 0d  07 1c 0d 43 4d 50 20 52  |12,#12]....CMP R|
00001170  31 2c 23 30 0d 07 26 1a  42 45 51 20 4e 4b 50 20  |1,#0..&.BEQ NKP |
00001180  5c 20 4e 6f 20 6b 65 79  20 70 72 65 73 73 0d 07  |\ No key press..|
00001190  30 24 5c 4a 6f 79 70 61  64 20 69 73 20 62 65 69  |0$\Joypad is bei|
000011a0  6e 67 20 70 72 65 73 73  65 64 20 66 69 6e 64 20  |ng pressed find |
000011b0  69 74 0d 07 3a 27 4c 44  4d 46 44 20 52 31 33 21  |it..:'LDMFD R13!|
000011c0  2c 7b 52 32 7d 20 5c 20  54 61 6b 65 20 52 31 20  |,{R2} \ Take R1 |
000011d0  6f 66 66 20 73 74 61 63  6b 0d 07 44 1d 4d 4f 56  |off stack..D.MOV|
000011e0  20 52 33 2c 23 30 20 5c  4f 66 66 65 73 74 20 70  | R3,#0 \Offest p|
000011f0  6f 69 6e 74 65 72 0d 07  4e 08 2e 53 4c 50 0d 07  |ointer..N..SLP..|
00001200  58 26 4d 4f 56 53 20 52  31 2c 52 31 2c 41 53 52  |X&MOVS R1,R1,ASR|
00001210  23 31 20 5c 46 69 6e 64  20 42 69 74 20 50 72 65  |#1 \Find Bit Pre|
00001220  73 73 65 64 0d 07 62 0a  42 43 53 20 4b 46 0d 07  |ssed..b.BCS KF..|
00001230  6c 10 41 44 44 20 52 33  2c 52 33 2c 23 31 0d 07  |l.ADD R3,R3,#1..|
00001240  76 09 42 20 53 4c 50 0d  07 80 07 2e 4b 46 0d 07  |v.B SLP.....KF..|
00001250  8a 14 4c 44 52 42 20 52  31 2c 5b 52 31 32 2c 52  |..LDRB R1,[R12,R|
00001260  33 5d 0d 07 94 04 0d 07  9e 19 4c 44 4d 46 44 20  |3]........LDMFD |
00001270  52 31 33 21 2c 7b 52 32  2c 52 33 2c 52 34 7d 0d  |R13!,{R2,R3,R4}.|
00001280  07 a8 26 4c 44 4d 46 44  20 28 31 33 29 20 21 2c  |..&LDMFD (13) !,|
00001290  7b 31 35 7d 20 5c 20 42  61 63 6b 20 74 6f 20 63  |{15} \ Back to c|
000012a0  61 6c 6c 65 72 0d 07 b2  08 2e 4e 4b 50 0d 07 bc  |aller.....NKP...|
000012b0  1c 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 2c  |.LDMFD R13!,{R1,|
000012c0  52 32 2c 52 33 2c 52 34  7d 0d 07 c6 0f 43 4d 50  |R2,R3,R4}....CMP|
000012d0  20 52 30 2c 23 31 32 39  0d 07 d0 12 82 45 51 20  | R0,#129.....EQ |
000012e0  52 31 2c 52 31 2c 23 26  37 46 0d 07 da 23 4d 4f  |R1,R1,#&7F...#MO|
000012f0  56 53 20 50 43 2c 52 31  34 20 5c 4f 6e 20 74 6f  |VS PC,R14 \On to|
00001300  20 64 65 66 61 75 6c 74  20 73 63 61 6e 0d 07 e4  | default scan...|
00001310  04 0d 07 ee 1f 2e 53 53  20 5c 20 53 65 74 20 53  |......SS \ Set S|
00001320  61 67 61 20 62 75 74 74  6f 6e 73 20 43 4f 44 45  |aga buttons CODE|
00001330  0d 07 f8 2e 53 54 4d 46  44 20 28 31 33 29 21 2c  |....STMFD (13)!,|
00001340  7b 31 34 7d 20 5c 20 52  65 6d 65 6d 62 65 72 20  |{14} \ Remember |
00001350  72 65 74 75 72 6e 20 61  64 64 72 65 73 73 0d 08  |return address..|
00001360  02 1e 4c 44 52 20 52 31  32 2c 5b 52 31 32 5d 20  |..LDR R12,[R12] |
00001370  5c 20 44 65 72 65 66 72  61 6e 63 65 0d 08 0c 20  |\ Derefrance... |
00001380  5c 52 65 61 64 20 74 68  65 20 74 77 6f 20 6e 75  |\Read the two nu|
00001390  6d 62 65 72 73 20 70 61  73 73 65 64 0d 08 16 0d  |mbers passed....|
000013a0  4d 4f 56 20 52 31 2c 52  30 0d 08 20 0e 4d 4f 56  |MOV R1,R0.. .MOV|
000013b0  20 52 30 2c 23 31 30 0d  08 2a 18 41 44 44 20 52  | R0,#10..*.ADD R|
000013c0  30 2c 52 30 2c 23 26 32  30 30 30 30 30 30 30 0d  |0,R0,#&20000000.|
000013d0  08 34 1f 4d 4f 56 20 52  32 2c 23 31 31 20 5c 4d  |.4.MOV R2,#11 \M|
000013e0  61 78 20 6e 75 6d 62 65  72 20 73 69 7a 65 0d 08  |ax number size..|
000013f0  3e 1a 53 57 49 20 26 32  31 20 5c 52 65 61 64 20  |>.SWI &21 \Read |
00001400  76 61 72 69 61 62 6c 65  0d 08 48 0d 4d 4f 56 20  |variable..H.MOV |
00001410  52 34 2c 52 32 0d 08 52  25 41 44 44 20 52 31 2c  |R4,R2..R%ADD R1,|
00001420  52 31 2c 23 31 20 5c 50  6f 69 6e 74 20 74 6f 20  |R1,#1 \Point to |
00001430  6e 65 78 74 20 76 61 6c  75 65 0d 08 5c 0f 4d 4f  |next value..\.MO|
00001440  56 20 52 32 2c 23 26 37  46 0d 08 66 0b 53 57 49  |V R2,#&7F..f.SWI|
00001450  20 26 32 31 0d 08 70 24  53 54 52 42 20 52 32 2c  | &21..p$STRB R2,|
00001460  5b 52 31 32 2c 52 34 5d  20 5c 20 53 61 76 65 20  |[R12,R4] \ Save |
00001470  69 6e 20 74 61 62 6c 65  0d 08 7a 04 0d 08 84 2a  |in table..z....*|
00001480  4c 44 4d 46 44 20 28 31  33 29 20 21 2c 7b 31 35  |LDMFD (13) !,{15|
00001490  7d 20 5c 20 42 41 43 4b  20 46 52 4f 4d 20 c9 53  |} \ BACK FROM .S|
000014a0  54 20 43 41 4d 45 0d 08  8e 04 0d 08 98 14 2e 53  |T CAME.........S|
000014b0  4a 20 5c 53 63 61 6e 20  4a 6f 79 70 61 64 0d 08  |J \Scan Joypad..|
000014c0  a2 1c 43 4d 50 20 52 30  2c 23 34 20 5c 20 49 73  |..CMP R0,#4 \ Is|
000014d0  20 69 74 20 56 73 79 6e  63 3f 0d 08 ac 17 42 4e  | it Vsync?....BN|
000014e0  45 20 4e 56 73 20 5c 45  78 69 74 20 69 66 20 6e  |E NVs \Exit if n|
000014f0  6f 0d 08 b6 2e 53 54 4d  46 44 20 28 31 33 29 21  |o....STMFD (13)!|
00001500  2c 7b 31 34 7d 20 5c 20  52 65 6d 65 6d 62 65 72  |,{14} \ Remember|
00001510  20 72 65 74 75 72 6e 20  61 64 64 72 65 73 73 0d  | return address.|
00001520  08 c0 22 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |.."STMFD R13!,{R|
00001530  31 2c 52 32 2c 52 33 2c  52 34 2c 52 38 2c 52 39  |1,R2,R3,R4,R8,R9|
00001540  7d 0d 08 ca 25 4c 44 52  20 52 32 2c 5b 52 31 32  |}...%LDR R2,[R12|
00001550  5d 20 5c 44 65 20 72 65  66 72 61 6e 63 65 20 70  |] \De refrance p|
00001560  6f 69 6e 74 65 72 0d 08  d4 14 4c 44 52 42 20 52  |ointer....LDRB R|
00001570  30 2c 5b 52 32 2c 23 31  36 5d 0d 08 de 10 41 44  |0,[R2,#16]....AD|
00001580  44 20 52 30 2c 52 30 2c  23 31 0d 08 e8 0e 54 53  |D R0,R0,#1....TS|
00001590  54 20 52 30 2c 23 26 32  0d 08 f2 0f 4d 4f 56 4e  |T R0,#&2....MOVN|
000015a0  45 20 52 30 2c 23 30 0d  08 fc 14 53 54 52 42 20  |E R0,#0....STRB |
000015b0  52 30 2c 5b 52 32 2c 23  31 36 5d 0d 09 06 0b 42  |R0,[R2,#16]....B|
000015c0  45 51 20 53 4b 54 0d 09  10 17 5c 4a 75 6d 70 20  |EQ SKT....\Jump |
000015d0  54 68 72 6f 75 67 68 20  48 6f 6f 70 73 0d 09 1a  |Through Hoops...|
000015e0  0d 4d 4f 56 20 52 39 2c  50 43 0d 09 24 0f 84 52  |.MOV R9,PC..$..R|
000015f0  20 52 38 2c 52 39 2c 23  33 0d 09 2e 0e 54 45 51  | R8,R9,#3....TEQ|
00001600  50 20 52 38 2c 23 30 0d  09 38 14 53 54 4d 46 44  |P R8,#0..8.STMFD|
00001610  20 52 31 33 21 2c 7b 52  31 34 7d 0d 09 42 04 0d  | R13!,{R14}..B..|
00001620  09 4c 14 5c 53 63 61 6e  20 74 68 65 20 4b 65 79  |.L.\Scan the Key|
00001630  70 61 64 0d 09 56 0d 4d  4f 56 20 52 34 2c 23 30  |pad..V.MOV R4,#0|
00001640  0d 09 60 0d 4d 4f 56 20  52 30 2c 23 32 0d 09 6a  |..`.MOV R0,#2..j|
00001650  17 4d 4f 56 20 52 32 2c  23 26 46 45 20 5c 80 20  |.MOV R2,#&FE \. |
00001660  6d 61 73 6b 0d 09 74 15  4d 4f 56 20 52 31 2c 23  |mask..t.MOV R1,#|
00001670  31 20 5c 82 20 6d 61 73  6b 0d 09 7e 32 53 57 49  |1 \. mask..~2SWI|
00001680  20 26 34 32 45 43 31 20  20 5c 43 6c 6f 63 6b 20  | &42EC1  \Clock |
00001690  4c 6f 77 20 69 74 27 73  20 61 6e 20 69 6e 76 65  |Low it's an inve|
000016a0  72 74 65 64 20 6f 75 74  70 75 74 0d 09 88 04 0d  |rted output.....|
000016b0  09 92 0d 4d 4f 56 20 52  30 2c 23 30 0d 09 9c 1b  |...MOV R0,#0....|
000016c0  53 57 49 20 26 34 32 45  43 31 20 5c 52 65 61 64  |SWI &42EC1 \Read|
000016d0  20 69 6e 70 75 74 73 0d  09 a6 0f 54 53 54 20 52  | inputs....TST R|
000016e0  31 2c 23 26 31 30 0d 09  b0 12 84 52 45 51 20 52  |1,#&10.....REQ R|
000016f0  34 2c 52 34 2c 23 26 31  0d 09 ba 0e 54 53 54 20  |4,R4,#&1....TST |
00001700  52 31 2c 23 26 31 0d 09  c4 12 84 52 45 51 20 52  |R1,#&1.....REQ R|
00001710  34 2c 52 34 2c 23 26 32  0d 09 ce 04 0d 09 d8 0d  |4,R4,#&2........|
00001720  4d 4f 56 20 52 30 2c 23  32 0d 09 e2 17 4d 4f 56  |MOV R0,#2....MOV|
00001730  20 52 32 2c 23 26 46 45  20 5c 80 20 6d 61 73 6b  | R2,#&FE \. mask|
00001740  0d 09 ec 15 4d 4f 56 20  52 31 2c 23 30 20 5c 82  |....MOV R1,#0 \.|
00001750  20 6d 61 73 6b 0d 09 f6  1b 53 57 49 20 26 34 32  | mask....SWI &42|
00001760  45 43 31 20 20 5c 43 6c  6f 63 6b 20 48 69 67 68  |EC1  \Clock High|
00001770  0d 0a 00 04 0d 0a 0a 0d  4d 4f 56 20 52 30 2c 23  |........MOV R0,#|
00001780  30 0d 0a 14 1b 53 57 49  20 26 34 32 45 43 31 20  |0....SWI &42EC1 |
00001790  5c 52 65 61 64 20 69 6e  70 75 74 73 0d 0a 1e 0f  |\Read inputs....|
000017a0  54 53 54 20 52 31 2c 23  26 32 30 0d 0a 28 12 84  |TST R1,#&20..(..|
000017b0  52 45 51 20 52 34 2c 52  34 2c 23 26 34 0d 0a 32  |REQ R4,R4,#&4..2|
000017c0  0e 54 53 54 20 52 31 2c  23 26 38 0d 0a 3c 12 84  |.TST R1,#&8..<..|
000017d0  52 45 51 20 52 34 2c 52  34 2c 23 26 38 0d 0a 46  |REQ R4,R4,#&8..F|
000017e0  04 0d 0a 50 04 0d 0a 5a  0d 4d 4f 56 20 52 30 2c  |...P...Z.MOV R0,|
000017f0  23 32 0d 0a 64 17 4d 4f  56 20 52 32 2c 23 26 46  |#2..d.MOV R2,#&F|
00001800  45 20 5c 80 20 6d 61 73  6b 0d 0a 6e 15 4d 4f 56  |E \. mask..n.MOV|
00001810  20 52 31 2c 23 31 20 5c  82 20 6d 61 73 6b 0d 0a  | R1,#1 \. mask..|
00001820  78 32 53 57 49 20 26 34  32 45 43 31 20 20 5c 43  |x2SWI &42EC1  \C|
00001830  6c 6f 63 6b 20 4c 6f 77  20 69 74 27 73 20 61 6e  |lock Low it's an|
00001840  20 69 6e 76 65 72 74 65  64 20 6f 75 74 70 75 74  | inverted output|
00001850  0d 0a 82 04 0d 0a 8c 0d  4d 4f 56 20 52 30 2c 23  |........MOV R0,#|
00001860  32 0d 0a 96 17 4d 4f 56  20 52 32 2c 23 26 46 45  |2....MOV R2,#&FE|
00001870  20 5c 80 20 6d 61 73 6b  0d 0a a0 15 4d 4f 56 20  | \. mask....MOV |
00001880  52 31 2c 23 30 20 5c 82  20 6d 61 73 6b 0d 0a aa  |R1,#0 \. mask...|
00001890  1b 53 57 49 20 26 34 32  45 43 31 20 20 5c 43 6c  |.SWI &42EC1  \Cl|
000018a0  6f 63 6b 20 48 69 67 68  0d 0a b4 04 0d 0a be 0d  |ock High........|
000018b0  4d 4f 56 20 52 30 2c 23  30 0d 0a c8 1b 53 57 49  |MOV R0,#0....SWI|
000018c0  20 26 34 32 45 43 31 20  5c 52 65 61 64 20 69 6e  | &42EC1 \Read in|
000018d0  70 75 74 73 0d 0a d2 0f  54 53 54 20 52 31 2c 23  |puts....TST R1,#|
000018e0  26 31 30 0d 0a dc 13 84  52 45 51 20 52 34 2c 52  |&10.....REQ R4,R|
000018f0  34 2c 23 26 31 30 0d 0a  e6 0e 54 53 54 20 52 31  |4,#&10....TST R1|
00001900  2c 23 26 31 0d 0a f0 13  84 52 45 51 20 52 34 2c  |,#&1.....REQ R4,|
00001910  52 34 2c 23 26 32 30 0d  0a fa 0e 54 53 54 20 52  |R4,#&20....TST R|
00001920  31 2c 23 26 34 0d 0b 04  13 84 52 45 51 20 52 34  |1,#&4.....REQ R4|
00001930  2c 52 34 2c 23 26 34 30  0d 0b 0e 0e 54 53 54 20  |,R4,#&40....TST |
00001940  52 31 2c 23 26 32 0d 0b  18 13 84 52 45 51 20 52  |R1,#&2.....REQ R|
00001950  34 2c 52 34 2c 23 26 38  30 0d 0b 22 04 0d 0b 2c  |4,R4,#&80.."...,|
00001960  0d 4d 4f 56 20 52 30 2c  23 32 0d 0b 36 17 4d 4f  |.MOV R0,#2..6.MO|
00001970  56 20 52 32 2c 23 26 46  45 20 5c 80 20 6d 61 73  |V R2,#&FE \. mas|
00001980  6b 0d 0b 40 15 4d 4f 56  20 52 31 2c 23 31 20 5c  |k..@.MOV R1,#1 \|
00001990  82 20 6d 61 73 6b 0d 0b  4a 32 53 57 49 20 26 34  |. mask..J2SWI &4|
000019a0  32 45 43 31 20 20 5c 43  6c 6f 63 6b 20 4c 6f 77  |2EC1  \Clock Low|
000019b0  20 69 74 27 73 20 61 6e  20 69 6e 76 65 72 74 65  | it's an inverte|
000019c0  64 20 6f 75 74 70 75 74  0d 0b 54 04 0d 0b 5e 0d  |d output..T...^.|
000019d0  4d 4f 56 20 52 30 2c 23  32 0d 0b 68 17 4d 4f 56  |MOV R0,#2..h.MOV|
000019e0  20 52 32 2c 23 26 46 45  20 5c 80 20 6d 61 73 6b  | R2,#&FE \. mask|
000019f0  0d 0b 72 15 4d 4f 56 20  52 31 2c 23 30 20 5c 82  |..r.MOV R1,#0 \.|
00001a00  20 6d 61 73 6b 0d 0b 7c  1b 53 57 49 20 26 34 32  | mask..|.SWI &42|
00001a10  45 43 31 20 20 5c 43 6c  6f 63 6b 20 48 69 67 68  |EC1  \Clock High|
00001a20  0d 0b 86 04 0d 0b 90 0d  4d 4f 56 20 52 30 2c 23  |........MOV R0,#|
00001a30  30 0d 0b 9a 1b 53 57 49  20 26 34 32 45 43 31 20  |0....SWI &42EC1 |
00001a40  5c 52 65 61 64 20 69 6e  70 75 74 73 0d 0b a4 0f  |\Read inputs....|
00001a50  54 53 54 20 52 31 2c 23  26 32 30 0d 0b ae 14 84  |TST R1,#&20.....|
00001a60  52 45 51 20 52 34 2c 52  34 2c 23 26 31 30 30 0d  |REQ R4,R4,#&100.|
00001a70  0b b8 0e 54 53 54 20 52  31 2c 23 26 38 0d 0b c2  |...TST R1,#&8...|
00001a80  14 84 52 45 51 20 52 34  2c 52 34 2c 23 26 32 30  |..REQ R4,R4,#&20|
00001a90  30 0d 0b cc 0e 54 53 54  20 52 31 2c 23 26 32 0d  |0....TST R1,#&2.|
00001aa0  0b d6 14 84 52 45 51 20  52 34 2c 52 34 2c 23 26  |....REQ R4,R4,#&|
00001ab0  34 30 30 0d 0b e0 0e 54  53 54 20 52 31 2c 23 26  |400....TST R1,#&|
00001ac0  34 0d 0b ea 14 84 52 45  51 20 52 34 2c 52 34 2c  |4.....REQ R4,R4,|
00001ad0  23 26 38 30 30 0d 0b f4  04 0d 0b fe 10 4c 44 52  |#&800........LDR|
00001ae0  20 52 32 2c 5b 52 31 32  5d 0d 0c 08 2a 53 54 52  | R2,[R12]...*STR|
00001af0  20 52 34 2c 5b 52 32 2c  23 31 32 5d 20 5c 53 61  | R4,[R2,#12] \Sa|
00001b00  76 65 20 6b 65 79 20 62  69 74 20 70 61 74 74 65  |ve key bit patte|
00001b10  72 6e 73 0d 0c 12 04 0d  0c 1c 16 5c 42 61 63 6b  |rns........\Back|
00001b20  20 74 68 72 6f 75 67 68  20 68 6f 6f 70 0d 0c 26  | through hoop..&|
00001b30  14 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 34  |.LDMFD R13!,{R14|
00001b40  7d 0d 0c 30 0e 54 45 51  50 20 52 39 2c 23 30 0d  |}..0.TEQP R9,#0.|
00001b50  0c 3a 0d 4d 4f 56 20 52  30 2c 52 30 0d 0c 44 04  |.:.MOV R0,R0..D.|
00001b60  0d 0c 4e 08 2e 53 4b 54  0d 0c 58 22 4c 44 4d 46  |..N..SKT..X"LDMF|
00001b70  44 20 52 31 33 21 2c 7b  52 31 2c 52 32 2c 52 33  |D R13!,{R1,R2,R3|
00001b80  2c 52 34 2c 52 38 2c 52  39 7d 0d 0c 62 2b 4c 44  |,R4,R8,R9}..b+LD|
00001b90  4d 46 44 20 52 31 33 21  2c 7b 52 31 7d 20 5c 20  |MFD R13!,{R1} \ |
00001ba0  50 75 6c 6c 20 6f 66 66  20 47 6f 20 6f 6e 20 56  |Pull off Go on V|
00001bb0  65 63 74 6f 72 0d 0c 6c  0d 4d 4f 56 20 52 30 2c  |ector..l.MOV R0,|
00001bc0  23 34 0d 0c 76 2a 4c 44  4d 46 44 20 28 31 33 29  |#4..v*LDMFD (13)|
00001bd0  20 21 2c 7b 31 35 7d 20  5c 20 42 41 43 4b 20 46  | !,{15} \ BACK F|
00001be0  52 4f 4d 20 c9 53 54 20  43 41 4d 45 0d 0c 80 08  |ROM .ST CAME....|
00001bf0  2e 4e 56 73 0d 0c 8a 23  4d 4f 56 53 20 50 43 2c  |.NVs...#MOVS PC,|
00001c00  52 31 34 20 5c 4f 6e 20  74 6f 20 6f 74 68 65 72  |R14 \On to other|
00001c10  20 45 56 45 4e 54 53 0d  0c 94 04 0d 0c 9e 18 2e  | EVENTS.........|
00001c20  4d 45 20 5c 20 4c 41 42  4c 45 20 e3 20 83 55 4c  |ME \ LABLE . .UL|
00001c30  45 20 e0 0d 0c a8 05 5d  0d 0c b2 05 ed 0d 0c bc  |E .....]........|
00001c40  05 e1 0d ff                                       |....|
00001c44