�>JoyStickEm
� Agora - listing 1
"� Archimedes Joystick Emulator
(� by Richard Averill
2� for Archimedes only
<� (c) BAU June 1989
F�
P(� Acorn Joystick SWI added July 1995
Z2� Values returned in Digital mode also altered
d'� Module name changed to "Joystick"
n� by Michael Borcherds
x:
�� code% 3000
�XWriteI%=&20100
�� opt%=4 � 6 � 2
�P%=0
�O%=code%
�
[OPT opt%
�
EQUD 0
�EQUD ptrinit
�
EQUD 0
�EQUD ptrservice
�EQUD strtitle
�EQUD strhelp
�EQUD tblcommands

8EQUD &43F40 ; Official Acorn SWI chunk for Joystick_

EQUD swicode

EQUD switable

"
EQUD 0

,:

6
.strtitle

@�str("Joystick")

J:

T.strhelp

^Y�str("Joystick"+�(9)+"2.00 ("+��$,5,11)+") by Richard Averill and Michael Borcherds")

h:

r.ptrinit

|STMFD R13!,{R0,R14}

�
MOV R0,#2

�STR R0,[R12]

�LDMFD R13!,{R0,PC}^

�:

�.ptrservice

�LDR R12,[R12]

�CMP R12,#0

�
�Q PC,R14

�
CMP R1,#7

�MOVNE PC,R14

�CMP R2,#16

�CMPNE R2,#17

��Q R1,#0
CMP R2,#188
�Q R1,#0
�Q R3,#1
&CMP R2,#189
0�Q R1,#0
:�Q R3,#4
DCMP R2,#190
N�Q R1,#0
X
�Q R3,#12
bCMP R2,#128
lMOVNE PC,R14
v
CMP R3,#0
�MOVMI PC,R14
�
CMP R3,#5
�MOVPL PC,R14
�STMFD R13!,{R5-R9,14}
�STMFD R13!,{R0-R3}
�MOV R0,#21
�
MOV R1,#9
�SWI "XOS_Byte"
�SWI "XOS_Mouse"
�
MOV R9,R2
�
MOV R8,R1
�
MOV R7,R0
�LDMFD R13!,{R0-R3}

BL dojump
MOV R4,R3,LSR #8

MOV R1,#0
 LDMFD R13!,{R5-R9,PC}^
*:
4.dojump
>ADR R5,tbljump
HADD PC,R5,R3,LSL #2
R:
\.tbljump
fB fires
pB xstick
zB ystick
�B xstick
�B ystick
�:
�
.fires
�� R3,R9,#%100
�� R5,R9,#1
�MOV R3,R3,LSR #2
�MOV R5,R5,LSL #1
��R R3,R3,R5
�MOV PC,R14
�:
�.xstick
�MOV R5,#1280
SUB R5,R5,R7
MOV R6,#51
MUL R3,R5,R6
$B checkdigital
.:
8.ystick
BMOV R5,#64
LMUL R3,R5,R8
VB checkdigital
`:
j.checkdigital
tCMP R12,#1
~MOVNE PC,R14
�CMP R3,#&6000 ; was &8000
�MOVLT R3,#&4000 ; was 0
�MOVLT PC,R14
�CMP R3,#&A000 ; was &8000
� MOVGT R3,#&C000 ; was &10000
�MOVGT PC,R14
�MOV R3,#&8000
�;SUBGT R3,R3,#15
�MOV PC,R14
�:
�.setdigital
�
MOV R0,#1
STR R0,[R12]

MOVS PC,R14
:
.setanalogue
(
MOV R0,#2
2STR R0,[R12]
<MOVS PC,R14
F:
P.nojoystick
Z
MOV R0,#0
dSTR R0,[R12]
nMOVS PC,R14
x:
�.joystickinfo
�STMFD R13!,{R0,R14}
�SWI "XOS_WriteS"
�WEQUS "Joystick Emulation module. Written by Richard Averill and Michael Borcherds."
�EQUW &0D0A
�(�str("Current joystick emulation: ")
�LDR R12,[R12]
�CMP R12,#0
�ADREQ R0,infonone
�CMP R12,#1
�ADREQ R0,infodigital
�CMP R12,#2
�ADREQ R0,infoanalogue
SWI "XOS_Write0"
SWI "XOS_NewLine"
LDMFD R13!,{R0,PC}^
":
,
.infonone
6$�str("none (emulation is off).")
@.infodigital
J�str("BBC digital.")
T.infoanalogue
^(�str("BBC proportional (analogue).")
h:
r.joystickspeed
|STMFD R13!,{R14}
�BL ptrsetspeed
�LDMFD R13!,{PC}
�:
�.ptrsetspeed
�STMFD R13!,{R14}
�
CMP R1,#0
��Q R1,#2
�BEQ ptroswordspeed
�LDRB R0,[R0]
�CMP R0,#�"0"
�MOVLE R0,#2
�CMP R0,#�"9"
�MOVGT R0,#2
SUB R1,R0,#�"0"
.ptroswordspeed
STMFD R13!,{R0,R1,R2,R14}
&
MOV R0,#2
0ADD R0,R0,R1,LSL #8
:ADD R0,R0,R1,LSL #16
D9STMFD R13!,{R0} ; pass parameter block through stack.
NMOV R1,R13
XMOV R0,#&15
bSWI "XOS_Word"
lLDMFD R13!,{R0}
vLDMFD R13!,{R0,R1,R2,PC}
�:
�.tblcommands
��str("JoystickDigital")
�EQUD setdigital
�
EQUD 0
�EQUD syndigital
�EQUD hlpdigital
��str("JoystickAnalogue")
�EQUD setanalogue
�
EQUD 0
�EQUD synanalogue
�EQUD hlpanalogue
��str("JoystickOff")
EQUD nojoystick

EQUD 0
EQUD synnojoystick
 EQUD hlpnojoystick
*�str("JoystickInfo")
4EQUD joystickinfo
>
EQUD 0
HEQUD synjoystickinfo
REQUD hlpjoystickinfo
\�str("JoystickSpeed")
fEQUD joystickspeed
pEQUD &10000
zEQUD synjoystickspeed
�EQUD hlpjoystickspeed
�
EQUD 0
�:
�.hlpdigital
�DEQUS "*JoystickDigital enables emulation of a digital joystick."
�EQUW &0D0A
�.syndigital
�$�str("Syntax: *JoystickDigital")
�.hlpanalogue
�GEQUS "*JoystickAnalogue enables emulation of an analogue joystick."
�EQUW &0D0A
�.synanalogue
�%�str("Syntax: *JoystickAnalogue")
	.hlpnojoystick
	CEQUS "*JoystickOff disables joystick emulation by this module."
	EQUW &0D0A
	$.synnojoystick
	. �str("Syntax: *JoystickOff")
	8.hlpjoystickinfo
	BEEQUS "*JoystickInfo gives details of current joystick emulation."
	LEQUW &0D0A
	V.synjoystickinfo
	`!�str("Syntax: *JoystickInfo")
	j.hlpjoystickspeed
	t{EQUS "*JoystickSpeed sets the multiplication factor of the joystick positions (the default value is 1 - range 1 to 9)."
	~EQUW &0D0A
	�.synjoystickspeed
	�,�str("Syntax: *JoystickSpeed [<speed>]")
	�
	�.swicode
	�'CMP R11,#(EndJumpTable-JumpTable)/4
	�ADDCC PC,PC,R11,LSL#2
	�B UnknownSWI
	�.JumpTable
	�B joystick_read
	�.EndJumpTable
	�.UnknownSWI
	�ADR R0,errmess
	��RS PC,R14,#1<<28
.errmess


EQUD &1E6
%EQUS "Unknown <module> operation"

EQUB 0
(	ALIGN
2
.switable
<EQUS "Joystick":EQUB 0
FEQUS "Read" : EQUB 0
P
EQUB 0
Z	ALIGN
d
n.joystick_read
xSTMFD R13!,{R1-R3,R14}
�
TST R0,#1
�BNE joystick2
�MOV R0,#128
�
MOV R1,#2
�SWI "XOS_Byte"
�SUB R3,R2,#128
�� R3,R3,#&FF
� CMP R3,#&80 : ADDEQ R3,R3,#1
�
MOV R1,#1
�SWI "XOS_Byte"
�RSB R2,R2,#128
�� R2,R2,#&FF
�ADD R3,R3,R2,LSL#8
�
MOV R1,#0
SWI "XOS_Byte"
� R1,R1,#%1
ADD R0,R3,R1,LSL#16
"LDMFD R13!,{R1-R3,PC}^
,
6.joystick2
@MOV R0,#128
J
MOV R1,#4
TSWI "XOS_Byte"
^SUB R3,R2,#128
h� R3,R3,#&FF
i CMP R3,#&80 : ADDEQ R3,R3,#1
�
MOV R1,#3
�SWI "XOS_Byte"
�RSB R2,R2,#128
�� R2,R2,#&FF
�ADD R3,R3,R2,LSL#8
�
MOV R1,#0
�SWI "XOS_Byte"
�MOV R1,R1,LSR#1
�� R1,R1,#%1
�ADD R0,R3,R1,LSL#16
�LDMFD R13!,{R1-R3,PC}^
�
0]
:
� opt%
D0ș "OS_File",&0A,"JSEmulator",&FFA,,code%,O%
N$� "Module saved as 'JSEmulator'"
X�
b:
l� �str(str$)
v[OPT opt% � &E
�EQUS str$+�(0)
�	ALIGN
�]
�	=opt%
�

00000000  0d 00 0a 10 f4 3e 4a 6f  79 53 74 69 63 6b 45 6d  |.....>JoyStickEm|
00000010  0d 00 14 17 f4 20 41 67  6f 72 61 20 2d 20 6c 69  |..... Agora - li|
00000020  73 74 69 6e 67 20 31 0d  00 1e 22 f4 20 41 72 63  |sting 1...". Arc|
00000030  68 69 6d 65 64 65 73 20  4a 6f 79 73 74 69 63 6b  |himedes Joystick|
00000040  20 45 6d 75 6c 61 74 6f  72 0d 00 28 18 f4 20 62  | Emulator..(.. b|
00000050  79 20 52 69 63 68 61 72  64 20 41 76 65 72 69 6c  |y Richard Averil|
00000060  6c 0d 00 32 19 f4 20 66  6f 72 20 41 72 63 68 69  |l..2.. for Archi|
00000070  6d 65 64 65 73 20 6f 6e  6c 79 0d 00 3c 17 f4 20  |medes only..<.. |
00000080  28 63 29 20 42 41 55 20  4a 75 6e 65 20 31 39 38  |(c) BAU June 198|
00000090  39 0d 00 46 05 f4 0d 00  50 28 f4 20 41 63 6f 72  |9..F....P(. Acor|
000000a0  6e 20 4a 6f 79 73 74 69  63 6b 20 53 57 49 20 61  |n Joystick SWI a|
000000b0  64 64 65 64 20 4a 75 6c  79 20 31 39 39 35 0d 00  |dded July 1995..|
000000c0  5a 32 f4 20 56 61 6c 75  65 73 20 72 65 74 75 72  |Z2. Values retur|
000000d0  6e 65 64 20 69 6e 20 44  69 67 69 74 61 6c 20 6d  |ned in Digital m|
000000e0  6f 64 65 20 61 6c 73 6f  20 61 6c 74 65 72 65 64  |ode also altered|
000000f0  0d 00 64 27 f4 20 4d 6f  64 75 6c 65 20 6e 61 6d  |..d'. Module nam|
00000100  65 20 63 68 61 6e 67 65  64 20 74 6f 20 22 4a 6f  |e changed to "Jo|
00000110  79 73 74 69 63 6b 22 0d  00 6e 1a f4 20 62 79 20  |ystick"..n.. by |
00000120  4d 69 63 68 61 65 6c 20  42 6f 72 63 68 65 72 64  |Michael Borcherd|
00000130  73 0d 00 78 05 3a 0d 00  82 10 de 20 63 6f 64 65  |s..x.:..... code|
00000140  25 20 33 30 30 30 0d 00  8c 13 58 57 72 69 74 65  |% 3000....XWrite|
00000150  49 25 3d 26 32 30 31 30  30 0d 00 96 14 e3 20 6f  |I%=&20100..... o|
00000160  70 74 25 3d 34 20 b8 20  36 20 88 20 32 0d 00 a0  |pt%=4 . 6 . 2...|
00000170  08 50 25 3d 30 0d 00 aa  0c 4f 25 3d 63 6f 64 65  |.P%=0....O%=code|
00000180  25 0d 00 b4 0d 5b 4f 50  54 20 6f 70 74 25 0d 00  |%....[OPT opt%..|
00000190  be 0a 45 51 55 44 20 30  0d 00 c8 10 45 51 55 44  |..EQUD 0....EQUD|
000001a0  20 70 74 72 69 6e 69 74  0d 00 d2 0a 45 51 55 44  | ptrinit....EQUD|
000001b0  20 30 0d 00 dc 13 45 51  55 44 20 70 74 72 73 65  | 0....EQUD ptrse|
000001c0  72 76 69 63 65 0d 00 e6  11 45 51 55 44 20 73 74  |rvice....EQUD st|
000001d0  72 74 69 74 6c 65 0d 00  f0 10 45 51 55 44 20 73  |rtitle....EQUD s|
000001e0  74 72 68 65 6c 70 0d 00  fa 14 45 51 55 44 20 74  |trhelp....EQUD t|
000001f0  62 6c 63 6f 6d 6d 61 6e  64 73 0d 01 04 38 45 51  |blcommands...8EQ|
00000200  55 44 20 26 34 33 46 34  30 20 3b 20 4f 66 66 69  |UD &43F40 ; Offi|
00000210  63 69 61 6c 20 41 63 6f  72 6e 20 53 57 49 20 63  |cial Acorn SWI c|
00000220  68 75 6e 6b 20 66 6f 72  20 4a 6f 79 73 74 69 63  |hunk for Joystic|
00000230  6b 5f 0d 01 0e 10 45 51  55 44 20 73 77 69 63 6f  |k_....EQUD swico|
00000240  64 65 0d 01 18 11 45 51  55 44 20 73 77 69 74 61  |de....EQUD swita|
00000250  62 6c 65 0d 01 22 0a 45  51 55 44 20 30 0d 01 2c  |ble..".EQUD 0..,|
00000260  05 3a 0d 01 36 0d 2e 73  74 72 74 69 74 6c 65 0d  |.:..6..strtitle.|
00000270  01 40 14 a4 73 74 72 28  22 4a 6f 79 73 74 69 63  |.@..str("Joystic|
00000280  6b 22 29 0d 01 4a 05 3a  0d 01 54 0c 2e 73 74 72  |k")..J.:..T..str|
00000290  68 65 6c 70 0d 01 5e 59  a4 73 74 72 28 22 4a 6f  |help..^Y.str("Jo|
000002a0  79 73 74 69 63 6b 22 2b  bd 28 39 29 2b 22 32 2e  |ystick"+.(9)+"2.|
000002b0  30 30 20 28 22 2b c1 91  24 2c 35 2c 31 31 29 2b  |00 ("+..$,5,11)+|
000002c0  22 29 20 62 79 20 52 69  63 68 61 72 64 20 41 76  |") by Richard Av|
000002d0  65 72 69 6c 6c 20 61 6e  64 20 4d 69 63 68 61 65  |erill and Michae|
000002e0  6c 20 42 6f 72 63 68 65  72 64 73 22 29 0d 01 68  |l Borcherds")..h|
000002f0  05 3a 0d 01 72 0c 2e 70  74 72 69 6e 69 74 0d 01  |.:..r..ptrinit..|
00000300  7c 17 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  ||.STMFD R13!,{R0|
00000310  2c 52 31 34 7d 0d 01 86  0d 4d 4f 56 20 52 30 2c  |,R14}....MOV R0,|
00000320  23 32 0d 01 90 10 53 54  52 20 52 30 2c 5b 52 31  |#2....STR R0,[R1|
00000330  32 5d 0d 01 9a 17 4c 44  4d 46 44 20 52 31 33 21  |2]....LDMFD R13!|
00000340  2c 7b 52 30 2c 50 43 7d  5e 0d 01 a4 05 3a 0d 01  |,{R0,PC}^....:..|
00000350  ae 0f 2e 70 74 72 73 65  72 76 69 63 65 0d 01 b8  |...ptrservice...|
00000360  11 4c 44 52 20 52 31 32  2c 5b 52 31 32 5d 0d 01  |.LDR R12,[R12]..|
00000370  c2 0e 43 4d 50 20 52 31  32 2c 23 30 0d 01 cc 0d  |..CMP R12,#0....|
00000380  ec 51 20 50 43 2c 52 31  34 0d 01 d6 0d 43 4d 50  |.Q PC,R14....CMP|
00000390  20 52 31 2c 23 37 0d 01  e0 10 4d 4f 56 4e 45 20  | R1,#7....MOVNE |
000003a0  50 43 2c 52 31 34 0d 01  ea 0e 43 4d 50 20 52 32  |PC,R14....CMP R2|
000003b0  2c 23 31 36 0d 01 f4 10  43 4d 50 4e 45 20 52 32  |,#16....CMPNE R2|
000003c0  2c 23 31 37 0d 01 fe 0c  ec 51 20 52 31 2c 23 30  |,#17.....Q R1,#0|
000003d0  0d 02 08 0f 43 4d 50 20  52 32 2c 23 31 38 38 0d  |....CMP R2,#188.|
000003e0  02 12 0c ec 51 20 52 31  2c 23 30 0d 02 1c 0c ec  |....Q R1,#0.....|
000003f0  51 20 52 33 2c 23 31 0d  02 26 0f 43 4d 50 20 52  |Q R3,#1..&.CMP R|
00000400  32 2c 23 31 38 39 0d 02  30 0c ec 51 20 52 31 2c  |2,#189..0..Q R1,|
00000410  23 30 0d 02 3a 0c ec 51  20 52 33 2c 23 34 0d 02  |#0..:..Q R3,#4..|
00000420  44 0f 43 4d 50 20 52 32  2c 23 31 39 30 0d 02 4e  |D.CMP R2,#190..N|
00000430  0c ec 51 20 52 31 2c 23  30 0d 02 58 0d ec 51 20  |..Q R1,#0..X..Q |
00000440  52 33 2c 23 31 32 0d 02  62 0f 43 4d 50 20 52 32  |R3,#12..b.CMP R2|
00000450  2c 23 31 32 38 0d 02 6c  10 4d 4f 56 4e 45 20 50  |,#128..l.MOVNE P|
00000460  43 2c 52 31 34 0d 02 76  0d 43 4d 50 20 52 33 2c  |C,R14..v.CMP R3,|
00000470  23 30 0d 02 80 10 4d 4f  56 4d 49 20 50 43 2c 52  |#0....MOVMI PC,R|
00000480  31 34 0d 02 8a 0d 43 4d  50 20 52 33 2c 23 35 0d  |14....CMP R3,#5.|
00000490  02 94 10 4d 4f 56 50 4c  20 50 43 2c 52 31 34 0d  |...MOVPL PC,R14.|
000004a0  02 9e 19 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |...STMFD R13!,{R|
000004b0  35 2d 52 39 2c 31 34 7d  0d 02 a8 16 53 54 4d 46  |5-R9,14}....STMF|
000004c0  44 20 52 31 33 21 2c 7b  52 30 2d 52 33 7d 0d 02  |D R13!,{R0-R3}..|
000004d0  b2 0e 4d 4f 56 20 52 30  2c 23 32 31 0d 02 bc 0d  |..MOV R0,#21....|
000004e0  4d 4f 56 20 52 31 2c 23  39 0d 02 c6 12 53 57 49  |MOV R1,#9....SWI|
000004f0  20 22 58 4f 53 5f 42 79  74 65 22 0d 02 d0 13 53  | "XOS_Byte"....S|
00000500  57 49 20 22 58 4f 53 5f  4d 6f 75 73 65 22 0d 02  |WI "XOS_Mouse"..|
00000510  da 0d 4d 4f 56 20 52 39  2c 52 32 0d 02 e4 0d 4d  |..MOV R9,R2....M|
00000520  4f 56 20 52 38 2c 52 31  0d 02 ee 0d 4d 4f 56 20  |OV R8,R1....MOV |
00000530  52 37 2c 52 30 0d 02 f8  16 4c 44 4d 46 44 20 52  |R7,R0....LDMFD R|
00000540  31 33 21 2c 7b 52 30 2d  52 33 7d 0d 03 02 0d 42  |13!,{R0-R3}....B|
00000550  4c 20 64 6f 6a 75 6d 70  0d 03 0c 14 4d 4f 56 20  |L dojump....MOV |
00000560  52 34 2c 52 33 2c 4c 53  52 20 23 38 0d 03 16 0d  |R4,R3,LSR #8....|
00000570  4d 4f 56 20 52 31 2c 23  30 0d 03 20 1a 4c 44 4d  |MOV R1,#0.. .LDM|
00000580  46 44 20 52 31 33 21 2c  7b 52 35 2d 52 39 2c 50  |FD R13!,{R5-R9,P|
00000590  43 7d 5e 0d 03 2a 05 3a  0d 03 34 0b 2e 64 6f 6a  |C}^..*.:..4..doj|
000005a0  75 6d 70 0d 03 3e 12 41  44 52 20 52 35 2c 74 62  |ump..>.ADR R5,tb|
000005b0  6c 6a 75 6d 70 0d 03 48  17 41 44 44 20 50 43 2c  |ljump..H.ADD PC,|
000005c0  52 35 2c 52 33 2c 4c 53  4c 20 23 32 0d 03 52 05  |R5,R3,LSL #2..R.|
000005d0  3a 0d 03 5c 0c 2e 74 62  6c 6a 75 6d 70 0d 03 66  |:..\..tbljump..f|
000005e0  0b 42 20 66 69 72 65 73  0d 03 70 0c 42 20 78 73  |.B fires..p.B xs|
000005f0  74 69 63 6b 0d 03 7a 0c  42 20 79 73 74 69 63 6b  |tick..z.B ystick|
00000600  0d 03 84 0c 42 20 78 73  74 69 63 6b 0d 03 8e 0c  |....B xstick....|
00000610  42 20 79 73 74 69 63 6b  0d 03 98 05 3a 0d 03 a2  |B ystick....:...|
00000620  0a 2e 66 69 72 65 73 0d  03 ac 11 80 20 52 33 2c  |..fires..... R3,|
00000630  52 39 2c 23 25 31 30 30  0d 03 b6 0e 80 20 52 35  |R9,#%100..... R5|
00000640  2c 52 39 2c 23 31 0d 03  c0 14 4d 4f 56 20 52 33  |,R9,#1....MOV R3|
00000650  2c 52 33 2c 4c 53 52 20  23 32 0d 03 ca 14 4d 4f  |,R3,LSR #2....MO|
00000660  56 20 52 35 2c 52 35 2c  4c 53 4c 20 23 31 0d 03  |V R5,R5,LSL #1..|
00000670  d4 0f 84 52 20 52 33 2c  52 33 2c 52 35 0d 03 de  |...R R3,R3,R5...|
00000680  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 03 e8 05 3a  |.MOV PC,R14....:|
00000690  0d 03 f2 0b 2e 78 73 74  69 63 6b 0d 03 fc 10 4d  |.....xstick....M|
000006a0  4f 56 20 52 35 2c 23 31  32 38 30 0d 04 06 10 53  |OV R5,#1280....S|
000006b0  55 42 20 52 35 2c 52 35  2c 52 37 0d 04 10 0e 4d  |UB R5,R5,R7....M|
000006c0  4f 56 20 52 36 2c 23 35  31 0d 04 1a 10 4d 55 4c  |OV R6,#51....MUL|
000006d0  20 52 33 2c 52 35 2c 52  36 0d 04 24 12 42 20 63  | R3,R5,R6..$.B c|
000006e0  68 65 63 6b 64 69 67 69  74 61 6c 0d 04 2e 05 3a  |heckdigital....:|
000006f0  0d 04 38 0b 2e 79 73 74  69 63 6b 0d 04 42 0e 4d  |..8..ystick..B.M|
00000700  4f 56 20 52 35 2c 23 36  34 0d 04 4c 10 4d 55 4c  |OV R5,#64..L.MUL|
00000710  20 52 33 2c 52 35 2c 52  38 0d 04 56 12 42 20 63  | R3,R5,R8..V.B c|
00000720  68 65 63 6b 64 69 67 69  74 61 6c 0d 04 60 05 3a  |heckdigital..`.:|
00000730  0d 04 6a 11 2e 63 68 65  63 6b 64 69 67 69 74 61  |..j..checkdigita|
00000740  6c 0d 04 74 0e 43 4d 50  20 52 31 32 2c 23 31 0d  |l..t.CMP R12,#1.|
00000750  04 7e 10 4d 4f 56 4e 45  20 50 43 2c 52 31 34 0d  |.~.MOVNE PC,R14.|
00000760  04 88 1d 43 4d 50 20 52  33 2c 23 26 36 30 30 30  |...CMP R3,#&6000|
00000770  20 3b 20 77 61 73 20 26  38 30 30 30 0d 04 92 1b  | ; was &8000....|
00000780  4d 4f 56 4c 54 20 52 33  2c 23 26 34 30 30 30 20  |MOVLT R3,#&4000 |
00000790  3b 20 77 61 73 20 30 0d  04 9c 10 4d 4f 56 4c 54  |; was 0....MOVLT|
000007a0  20 50 43 2c 52 31 34 0d  04 a6 1d 43 4d 50 20 52  | PC,R14....CMP R|
000007b0  33 2c 23 26 41 30 30 30  20 3b 20 77 61 73 20 26  |3,#&A000 ; was &|
000007c0  38 30 30 30 0d 04 b0 20  4d 4f 56 47 54 20 52 33  |8000... MOVGT R3|
000007d0  2c 23 26 43 30 30 30 20  3b 20 77 61 73 20 26 31  |,#&C000 ; was &1|
000007e0  30 30 30 30 0d 04 ba 10  4d 4f 56 47 54 20 50 43  |0000....MOVGT PC|
000007f0  2c 52 31 34 0d 04 c4 11  4d 4f 56 20 52 33 2c 23  |,R14....MOV R3,#|
00000800  26 38 30 30 30 0d 04 ce  14 3b 53 55 42 47 54 20  |&8000....;SUBGT |
00000810  52 33 2c 52 33 2c 23 31  35 0d 04 d8 0e 4d 4f 56  |R3,R3,#15....MOV|
00000820  20 50 43 2c 52 31 34 0d  04 e2 05 3a 0d 04 ec 0f  | PC,R14....:....|
00000830  2e 73 65 74 64 69 67 69  74 61 6c 0d 04 f6 0d 4d  |.setdigital....M|
00000840  4f 56 20 52 30 2c 23 31  0d 05 00 10 53 54 52 20  |OV R0,#1....STR |
00000850  52 30 2c 5b 52 31 32 5d  0d 05 0a 0f 4d 4f 56 53  |R0,[R12]....MOVS|
00000860  20 50 43 2c 52 31 34 0d  05 14 05 3a 0d 05 1e 10  | PC,R14....:....|
00000870  2e 73 65 74 61 6e 61 6c  6f 67 75 65 0d 05 28 0d  |.setanalogue..(.|
00000880  4d 4f 56 20 52 30 2c 23  32 0d 05 32 10 53 54 52  |MOV R0,#2..2.STR|
00000890  20 52 30 2c 5b 52 31 32  5d 0d 05 3c 0f 4d 4f 56  | R0,[R12]..<.MOV|
000008a0  53 20 50 43 2c 52 31 34  0d 05 46 05 3a 0d 05 50  |S PC,R14..F.:..P|
000008b0  0f 2e 6e 6f 6a 6f 79 73  74 69 63 6b 0d 05 5a 0d  |..nojoystick..Z.|
000008c0  4d 4f 56 20 52 30 2c 23  30 0d 05 64 10 53 54 52  |MOV R0,#0..d.STR|
000008d0  20 52 30 2c 5b 52 31 32  5d 0d 05 6e 0f 4d 4f 56  | R0,[R12]..n.MOV|
000008e0  53 20 50 43 2c 52 31 34  0d 05 78 05 3a 0d 05 82  |S PC,R14..x.:...|
000008f0  11 2e 6a 6f 79 73 74 69  63 6b 69 6e 66 6f 0d 05  |..joystickinfo..|
00000900  8c 17 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  |..STMFD R13!,{R0|
00000910  2c 52 31 34 7d 0d 05 96  14 53 57 49 20 22 58 4f  |,R14}....SWI "XO|
00000920  53 5f 57 72 69 74 65 53  22 0d 05 a0 57 45 51 55  |S_WriteS"...WEQU|
00000930  53 20 22 4a 6f 79 73 74  69 63 6b 20 45 6d 75 6c  |S "Joystick Emul|
00000940  61 74 69 6f 6e 20 6d 6f  64 75 6c 65 2e 20 57 72  |ation module. Wr|
00000950  69 74 74 65 6e 20 62 79  20 52 69 63 68 61 72 64  |itten by Richard|
00000960  20 41 76 65 72 69 6c 6c  20 61 6e 64 20 4d 69 63  | Averill and Mic|
00000970  68 61 65 6c 20 42 6f 72  63 68 65 72 64 73 2e 22  |hael Borcherds."|
00000980  0d 05 aa 0e 45 51 55 57  20 26 30 44 30 41 0d 05  |....EQUW &0D0A..|
00000990  b4 28 a4 73 74 72 28 22  43 75 72 72 65 6e 74 20  |.(.str("Current |
000009a0  6a 6f 79 73 74 69 63 6b  20 65 6d 75 6c 61 74 69  |joystick emulati|
000009b0  6f 6e 3a 20 22 29 0d 05  be 11 4c 44 52 20 52 31  |on: ")....LDR R1|
000009c0  32 2c 5b 52 31 32 5d 0d  05 c8 0e 43 4d 50 20 52  |2,[R12]....CMP R|
000009d0  31 32 2c 23 30 0d 05 d2  15 41 44 52 45 51 20 52  |12,#0....ADREQ R|
000009e0  30 2c 69 6e 66 6f 6e 6f  6e 65 0d 05 dc 0e 43 4d  |0,infonone....CM|
000009f0  50 20 52 31 32 2c 23 31  0d 05 e6 18 41 44 52 45  |P R12,#1....ADRE|
00000a00  51 20 52 30 2c 69 6e 66  6f 64 69 67 69 74 61 6c  |Q R0,infodigital|
00000a10  0d 05 f0 0e 43 4d 50 20  52 31 32 2c 23 32 0d 05  |....CMP R12,#2..|
00000a20  fa 19 41 44 52 45 51 20  52 30 2c 69 6e 66 6f 61  |..ADREQ R0,infoa|
00000a30  6e 61 6c 6f 67 75 65 0d  06 04 14 53 57 49 20 22  |nalogue....SWI "|
00000a40  58 4f 53 5f 57 72 69 74  65 30 22 0d 06 0e 15 53  |XOS_Write0"....S|
00000a50  57 49 20 22 58 4f 53 5f  4e 65 77 4c 69 6e 65 22  |WI "XOS_NewLine"|
00000a60  0d 06 18 17 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |....LDMFD R13!,{|
00000a70  52 30 2c 50 43 7d 5e 0d  06 22 05 3a 0d 06 2c 0d  |R0,PC}^..".:..,.|
00000a80  2e 69 6e 66 6f 6e 6f 6e  65 0d 06 36 24 a4 73 74  |.infonone..6$.st|
00000a90  72 28 22 6e 6f 6e 65 20  28 65 6d 75 6c 61 74 69  |r("none (emulati|
00000aa0  6f 6e 20 69 73 20 6f 66  66 29 2e 22 29 0d 06 40  |on is off).")..@|
00000ab0  10 2e 69 6e 66 6f 64 69  67 69 74 61 6c 0d 06 4a  |..infodigital..J|
00000ac0  18 a4 73 74 72 28 22 42  42 43 20 64 69 67 69 74  |..str("BBC digit|
00000ad0  61 6c 2e 22 29 0d 06 54  11 2e 69 6e 66 6f 61 6e  |al.")..T..infoan|
00000ae0  61 6c 6f 67 75 65 0d 06  5e 28 a4 73 74 72 28 22  |alogue..^(.str("|
00000af0  42 42 43 20 70 72 6f 70  6f 72 74 69 6f 6e 61 6c  |BBC proportional|
00000b00  20 28 61 6e 61 6c 6f 67  75 65 29 2e 22 29 0d 06  | (analogue).")..|
00000b10  68 05 3a 0d 06 72 12 2e  6a 6f 79 73 74 69 63 6b  |h.:..r..joystick|
00000b20  73 70 65 65 64 0d 06 7c  14 53 54 4d 46 44 20 52  |speed..|.STMFD R|
00000b30  31 33 21 2c 7b 52 31 34  7d 0d 06 86 12 42 4c 20  |13!,{R14}....BL |
00000b40  70 74 72 73 65 74 73 70  65 65 64 0d 06 90 13 4c  |ptrsetspeed....L|
00000b50  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 0d 06  |DMFD R13!,{PC}..|
00000b60  9a 05 3a 0d 06 a4 10 2e  70 74 72 73 65 74 73 70  |..:.....ptrsetsp|
00000b70  65 65 64 0d 06 ae 14 53  54 4d 46 44 20 52 31 33  |eed....STMFD R13|
00000b80  21 2c 7b 52 31 34 7d 0d  06 b8 0d 43 4d 50 20 52  |!,{R14}....CMP R|
00000b90  31 2c 23 30 0d 06 c2 0c  ec 51 20 52 31 2c 23 32  |1,#0.....Q R1,#2|
00000ba0  0d 06 cc 16 42 45 51 20  70 74 72 6f 73 77 6f 72  |....BEQ ptroswor|
00000bb0  64 73 70 65 65 64 0d 06  d6 10 4c 44 52 42 20 52  |dspeed....LDRB R|
00000bc0  30 2c 5b 52 30 5d 0d 06  e0 10 43 4d 50 20 52 30  |0,[R0]....CMP R0|
00000bd0  2c 23 97 22 30 22 0d 06  ea 0f 4d 4f 56 4c 45 20  |,#."0"....MOVLE |
00000be0  52 30 2c 23 32 0d 06 f4  10 43 4d 50 20 52 30 2c  |R0,#2....CMP R0,|
00000bf0  23 97 22 39 22 0d 06 fe  0f 4d 4f 56 47 54 20 52  |#."9"....MOVGT R|
00000c00  30 2c 23 32 0d 07 08 13  53 55 42 20 52 31 2c 52  |0,#2....SUB R1,R|
00000c10  30 2c 23 97 22 30 22 0d  07 12 13 2e 70 74 72 6f  |0,#."0".....ptro|
00000c20  73 77 6f 72 64 73 70 65  65 64 0d 07 1c 1d 53 54  |swordspeed....ST|
00000c30  4d 46 44 20 52 31 33 21  2c 7b 52 30 2c 52 31 2c  |MFD R13!,{R0,R1,|
00000c40  52 32 2c 52 31 34 7d 0d  07 26 0d 4d 4f 56 20 52  |R2,R14}..&.MOV R|
00000c50  30 2c 23 32 0d 07 30 17  41 44 44 20 52 30 2c 52  |0,#2..0.ADD R0,R|
00000c60  30 2c 52 31 2c 4c 53 4c  20 23 38 0d 07 3a 18 41  |0,R1,LSL #8..:.A|
00000c70  44 44 20 52 30 2c 52 30  2c 52 31 2c 4c 53 4c 20  |DD R0,R0,R1,LSL |
00000c80  23 31 36 0d 07 44 39 53  54 4d 46 44 20 52 31 33  |#16..D9STMFD R13|
00000c90  21 2c 7b 52 30 7d 20 3b  20 70 61 73 73 20 70 61  |!,{R0} ; pass pa|
00000ca0  72 61 6d 65 74 65 72 20  62 6c 6f 63 6b 20 74 68  |rameter block th|
00000cb0  72 6f 75 67 68 20 73 74  61 63 6b 2e 0d 07 4e 0e  |rough stack...N.|
00000cc0  4d 4f 56 20 52 31 2c 52  31 33 0d 07 58 0f 4d 4f  |MOV R1,R13..X.MO|
00000cd0  56 20 52 30 2c 23 26 31  35 0d 07 62 12 53 57 49  |V R0,#&15..b.SWI|
00000ce0  20 22 58 4f 53 5f 57 6f  72 64 22 0d 07 6c 13 4c  | "XOS_Word"..l.L|
00000cf0  44 4d 46 44 20 52 31 33  21 2c 7b 52 30 7d 0d 07  |DMFD R13!,{R0}..|
00000d00  76 1c 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 30  |v.LDMFD R13!,{R0|
00000d10  2c 52 31 2c 52 32 2c 50  43 7d 0d 07 80 05 3a 0d  |,R1,R2,PC}....:.|
00000d20  07 8a 10 2e 74 62 6c 63  6f 6d 6d 61 6e 64 73 0d  |....tblcommands.|
00000d30  07 94 1b a4 73 74 72 28  22 4a 6f 79 73 74 69 63  |....str("Joystic|
00000d40  6b 44 69 67 69 74 61 6c  22 29 0d 07 9e 13 45 51  |kDigital")....EQ|
00000d50  55 44 20 73 65 74 64 69  67 69 74 61 6c 0d 07 a8  |UD setdigital...|
00000d60  0a 45 51 55 44 20 30 0d  07 b2 13 45 51 55 44 20  |.EQUD 0....EQUD |
00000d70  73 79 6e 64 69 67 69 74  61 6c 0d 07 bc 13 45 51  |syndigital....EQ|
00000d80  55 44 20 68 6c 70 64 69  67 69 74 61 6c 0d 07 c6  |UD hlpdigital...|
00000d90  1c a4 73 74 72 28 22 4a  6f 79 73 74 69 63 6b 41  |..str("JoystickA|
00000da0  6e 61 6c 6f 67 75 65 22  29 0d 07 d0 14 45 51 55  |nalogue")....EQU|
00000db0  44 20 73 65 74 61 6e 61  6c 6f 67 75 65 0d 07 da  |D setanalogue...|
00000dc0  0a 45 51 55 44 20 30 0d  07 e4 14 45 51 55 44 20  |.EQUD 0....EQUD |
00000dd0  73 79 6e 61 6e 61 6c 6f  67 75 65 0d 07 ee 14 45  |synanalogue....E|
00000de0  51 55 44 20 68 6c 70 61  6e 61 6c 6f 67 75 65 0d  |QUD hlpanalogue.|
00000df0  07 f8 17 a4 73 74 72 28  22 4a 6f 79 73 74 69 63  |....str("Joystic|
00000e00  6b 4f 66 66 22 29 0d 08  02 13 45 51 55 44 20 6e  |kOff")....EQUD n|
00000e10  6f 6a 6f 79 73 74 69 63  6b 0d 08 0c 0a 45 51 55  |ojoystick....EQU|
00000e20  44 20 30 0d 08 16 16 45  51 55 44 20 73 79 6e 6e  |D 0....EQUD synn|
00000e30  6f 6a 6f 79 73 74 69 63  6b 0d 08 20 16 45 51 55  |ojoystick.. .EQU|
00000e40  44 20 68 6c 70 6e 6f 6a  6f 79 73 74 69 63 6b 0d  |D hlpnojoystick.|
00000e50  08 2a 18 a4 73 74 72 28  22 4a 6f 79 73 74 69 63  |.*..str("Joystic|
00000e60  6b 49 6e 66 6f 22 29 0d  08 34 15 45 51 55 44 20  |kInfo")..4.EQUD |
00000e70  6a 6f 79 73 74 69 63 6b  69 6e 66 6f 0d 08 3e 0a  |joystickinfo..>.|
00000e80  45 51 55 44 20 30 0d 08  48 18 45 51 55 44 20 73  |EQUD 0..H.EQUD s|
00000e90  79 6e 6a 6f 79 73 74 69  63 6b 69 6e 66 6f 0d 08  |ynjoystickinfo..|
00000ea0  52 18 45 51 55 44 20 68  6c 70 6a 6f 79 73 74 69  |R.EQUD hlpjoysti|
00000eb0  63 6b 69 6e 66 6f 0d 08  5c 19 a4 73 74 72 28 22  |ckinfo..\..str("|
00000ec0  4a 6f 79 73 74 69 63 6b  53 70 65 65 64 22 29 0d  |JoystickSpeed").|
00000ed0  08 66 16 45 51 55 44 20  6a 6f 79 73 74 69 63 6b  |.f.EQUD joystick|
00000ee0  73 70 65 65 64 0d 08 70  0f 45 51 55 44 20 26 31  |speed..p.EQUD &1|
00000ef0  30 30 30 30 0d 08 7a 19  45 51 55 44 20 73 79 6e  |0000..z.EQUD syn|
00000f00  6a 6f 79 73 74 69 63 6b  73 70 65 65 64 0d 08 84  |joystickspeed...|
00000f10  19 45 51 55 44 20 68 6c  70 6a 6f 79 73 74 69 63  |.EQUD hlpjoystic|
00000f20  6b 73 70 65 65 64 0d 08  8e 0a 45 51 55 44 20 30  |kspeed....EQUD 0|
00000f30  0d 08 98 05 3a 0d 08 a2  0f 2e 68 6c 70 64 69 67  |....:.....hlpdig|
00000f40  69 74 61 6c 0d 08 ac 44  45 51 55 53 20 22 2a 4a  |ital...DEQUS "*J|
00000f50  6f 79 73 74 69 63 6b 44  69 67 69 74 61 6c 20 65  |oystickDigital e|
00000f60  6e 61 62 6c 65 73 20 65  6d 75 6c 61 74 69 6f 6e  |nables emulation|
00000f70  20 6f 66 20 61 20 64 69  67 69 74 61 6c 20 6a 6f  | of a digital jo|
00000f80  79 73 74 69 63 6b 2e 22  0d 08 b6 0e 45 51 55 57  |ystick."....EQUW|
00000f90  20 26 30 44 30 41 0d 08  c0 0f 2e 73 79 6e 64 69  | &0D0A.....syndi|
00000fa0  67 69 74 61 6c 0d 08 ca  24 a4 73 74 72 28 22 53  |gital...$.str("S|
00000fb0  79 6e 74 61 78 3a 20 2a  4a 6f 79 73 74 69 63 6b  |yntax: *Joystick|
00000fc0  44 69 67 69 74 61 6c 22  29 0d 08 d4 10 2e 68 6c  |Digital").....hl|
00000fd0  70 61 6e 61 6c 6f 67 75  65 0d 08 de 47 45 51 55  |panalogue...GEQU|
00000fe0  53 20 22 2a 4a 6f 79 73  74 69 63 6b 41 6e 61 6c  |S "*JoystickAnal|
00000ff0  6f 67 75 65 20 65 6e 61  62 6c 65 73 20 65 6d 75  |ogue enables emu|
00001000  6c 61 74 69 6f 6e 20 6f  66 20 61 6e 20 61 6e 61  |lation of an ana|
00001010  6c 6f 67 75 65 20 6a 6f  79 73 74 69 63 6b 2e 22  |logue joystick."|
00001020  0d 08 e8 0e 45 51 55 57  20 26 30 44 30 41 0d 08  |....EQUW &0D0A..|
00001030  f2 10 2e 73 79 6e 61 6e  61 6c 6f 67 75 65 0d 08  |...synanalogue..|
00001040  fc 25 a4 73 74 72 28 22  53 79 6e 74 61 78 3a 20  |.%.str("Syntax: |
00001050  2a 4a 6f 79 73 74 69 63  6b 41 6e 61 6c 6f 67 75  |*JoystickAnalogu|
00001060  65 22 29 0d 09 06 12 2e  68 6c 70 6e 6f 6a 6f 79  |e").....hlpnojoy|
00001070  73 74 69 63 6b 0d 09 10  43 45 51 55 53 20 22 2a  |stick...CEQUS "*|
00001080  4a 6f 79 73 74 69 63 6b  4f 66 66 20 64 69 73 61  |JoystickOff disa|
00001090  62 6c 65 73 20 6a 6f 79  73 74 69 63 6b 20 65 6d  |bles joystick em|
000010a0  75 6c 61 74 69 6f 6e 20  62 79 20 74 68 69 73 20  |ulation by this |
000010b0  6d 6f 64 75 6c 65 2e 22  0d 09 1a 0e 45 51 55 57  |module."....EQUW|
000010c0  20 26 30 44 30 41 0d 09  24 12 2e 73 79 6e 6e 6f  | &0D0A..$..synno|
000010d0  6a 6f 79 73 74 69 63 6b  0d 09 2e 20 a4 73 74 72  |joystick... .str|
000010e0  28 22 53 79 6e 74 61 78  3a 20 2a 4a 6f 79 73 74  |("Syntax: *Joyst|
000010f0  69 63 6b 4f 66 66 22 29  0d 09 38 14 2e 68 6c 70  |ickOff")..8..hlp|
00001100  6a 6f 79 73 74 69 63 6b  69 6e 66 6f 0d 09 42 45  |joystickinfo..BE|
00001110  45 51 55 53 20 22 2a 4a  6f 79 73 74 69 63 6b 49  |EQUS "*JoystickI|
00001120  6e 66 6f 20 67 69 76 65  73 20 64 65 74 61 69 6c  |nfo gives detail|
00001130  73 20 6f 66 20 63 75 72  72 65 6e 74 20 6a 6f 79  |s of current joy|
00001140  73 74 69 63 6b 20 65 6d  75 6c 61 74 69 6f 6e 2e  |stick emulation.|
00001150  22 0d 09 4c 0e 45 51 55  57 20 26 30 44 30 41 0d  |"..L.EQUW &0D0A.|
00001160  09 56 14 2e 73 79 6e 6a  6f 79 73 74 69 63 6b 69  |.V..synjoysticki|
00001170  6e 66 6f 0d 09 60 21 a4  73 74 72 28 22 53 79 6e  |nfo..`!.str("Syn|
00001180  74 61 78 3a 20 2a 4a 6f  79 73 74 69 63 6b 49 6e  |tax: *JoystickIn|
00001190  66 6f 22 29 0d 09 6a 15  2e 68 6c 70 6a 6f 79 73  |fo")..j..hlpjoys|
000011a0  74 69 63 6b 73 70 65 65  64 0d 09 74 7b 45 51 55  |tickspeed..t{EQU|
000011b0  53 20 22 2a 4a 6f 79 73  74 69 63 6b 53 70 65 65  |S "*JoystickSpee|
000011c0  64 20 73 65 74 73 20 74  68 65 20 6d 75 6c 74 69  |d sets the multi|
000011d0  70 6c 69 63 61 74 69 6f  6e 20 66 61 63 74 6f 72  |plication factor|
000011e0  20 6f 66 20 74 68 65 20  6a 6f 79 73 74 69 63 6b  | of the joystick|
000011f0  20 70 6f 73 69 74 69 6f  6e 73 20 28 74 68 65 20  | positions (the |
00001200  64 65 66 61 75 6c 74 20  76 61 6c 75 65 20 69 73  |default value is|
00001210  20 31 20 2d 20 72 61 6e  67 65 20 31 20 74 6f 20  | 1 - range 1 to |
00001220  39 29 2e 22 0d 09 7e 0e  45 51 55 57 20 26 30 44  |9)."..~.EQUW &0D|
00001230  30 41 0d 09 88 15 2e 73  79 6e 6a 6f 79 73 74 69  |0A.....synjoysti|
00001240  63 6b 73 70 65 65 64 0d  09 92 2c a4 73 74 72 28  |ckspeed...,.str(|
00001250  22 53 79 6e 74 61 78 3a  20 2a 4a 6f 79 73 74 69  |"Syntax: *Joysti|
00001260  63 6b 53 70 65 65 64 20  5b 3c 73 70 65 65 64 3e  |ckSpeed [<speed>|
00001270  5d 22 29 0d 09 93 04 0d  09 9c 0c 2e 73 77 69 63  |]").........swic|
00001280  6f 64 65 0d 09 a6 27 43  4d 50 20 52 31 31 2c 23  |ode...'CMP R11,#|
00001290  28 45 6e 64 4a 75 6d 70  54 61 62 6c 65 2d 4a 75  |(EndJumpTable-Ju|
000012a0  6d 70 54 61 62 6c 65 29  2f 34 0d 09 b0 19 41 44  |mpTable)/4....AD|
000012b0  44 43 43 20 50 43 2c 50  43 2c 52 31 31 2c 4c 53  |DCC PC,PC,R11,LS|
000012c0  4c 23 32 0d 09 ba 10 42  20 55 6e 6b 6e 6f 77 6e  |L#2....B Unknown|
000012d0  53 57 49 0d 09 c4 0e 2e  4a 75 6d 70 54 61 62 6c  |SWI.....JumpTabl|
000012e0  65 0d 09 ce 13 42 20 6a  6f 79 73 74 69 63 6b 5f  |e....B joystick_|
000012f0  72 65 61 64 0d 09 d8 11  2e 45 6e 64 4a 75 6d 70  |read.....EndJump|
00001300  54 61 62 6c 65 0d 09 e2  0f 2e 55 6e 6b 6e 6f 77  |Table.....Unknow|
00001310  6e 53 57 49 0d 09 ec 12  41 44 52 20 52 30 2c 65  |nSWI....ADR R0,e|
00001320  72 72 6d 65 73 73 0d 09  f6 15 84 52 53 20 50 43  |rrmess.....RS PC|
00001330  2c 52 31 34 2c 23 31 3c  3c 32 38 0d 0a 00 0c 2e  |,R14,#1<<28.....|
00001340  65 72 72 6d 65 73 73 0d  0a 0a 0d 45 51 55 44 20  |errmess....EQUD |
00001350  26 31 45 36 0d 0a 14 25  45 51 55 53 20 22 55 6e  |&1E6...%EQUS "Un|
00001360  6b 6e 6f 77 6e 20 3c 6d  6f 64 75 6c 65 3e 20 6f  |known <module> o|
00001370  70 65 72 61 74 69 6f 6e  22 0d 0a 1e 0a 45 51 55  |peration"....EQU|
00001380  42 20 30 0d 0a 28 09 41  4c 49 47 4e 0d 0a 32 0d  |B 0..(.ALIGN..2.|
00001390  2e 73 77 69 74 61 62 6c  65 0d 0a 3c 1a 45 51 55  |.switable..<.EQU|
000013a0  53 20 22 4a 6f 79 73 74  69 63 6b 22 3a 45 51 55  |S "Joystick":EQU|
000013b0  42 20 30 0d 0a 46 18 45  51 55 53 20 22 52 65 61  |B 0..F.EQUS "Rea|
000013c0  64 22 20 3a 20 45 51 55  42 20 30 0d 0a 50 0a 45  |d" : EQUB 0..P.E|
000013d0  51 55 42 20 30 0d 0a 5a  09 41 4c 49 47 4e 0d 0a  |QUB 0..Z.ALIGN..|
000013e0  64 04 0d 0a 6e 12 2e 6a  6f 79 73 74 69 63 6b 5f  |d...n..joystick_|
000013f0  72 65 61 64 0d 0a 78 1a  53 54 4d 46 44 20 52 31  |read..x.STMFD R1|
00001400  33 21 2c 7b 52 31 2d 52  33 2c 52 31 34 7d 0d 0a  |3!,{R1-R3,R14}..|
00001410  82 0d 54 53 54 20 52 30  2c 23 31 0d 0a 8c 11 42  |..TST R0,#1....B|
00001420  4e 45 20 6a 6f 79 73 74  69 63 6b 32 0d 0a 96 0f  |NE joystick2....|
00001430  4d 4f 56 20 52 30 2c 23  31 32 38 0d 0a a0 0d 4d  |MOV R0,#128....M|
00001440  4f 56 20 52 31 2c 23 32  0d 0a aa 12 53 57 49 20  |OV R1,#2....SWI |
00001450  22 58 4f 53 5f 42 79 74  65 22 0d 0a b4 12 53 55  |"XOS_Byte"....SU|
00001460  42 20 52 33 2c 52 32 2c  23 31 32 38 0d 0a be 10  |B R3,R2,#128....|
00001470  80 20 52 33 2c 52 33 2c  23 26 46 46 0d 0a c9 20  |. R3,R3,#&FF... |
00001480  43 4d 50 20 52 33 2c 23  26 38 30 20 3a 20 41 44  |CMP R3,#&80 : AD|
00001490  44 45 51 20 52 33 2c 52  33 2c 23 31 0d 0a c8 0d  |DEQ R3,R3,#1....|
000014a0  4d 4f 56 20 52 31 2c 23  31 0d 0a d2 12 53 57 49  |MOV R1,#1....SWI|
000014b0  20 22 58 4f 53 5f 42 79  74 65 22 0d 0a dc 12 52  | "XOS_Byte"....R|
000014c0  53 42 20 52 32 2c 52 32  2c 23 31 32 38 0d 0a e6  |SB R2,R2,#128...|
000014d0  10 80 20 52 32 2c 52 32  2c 23 26 46 46 0d 0a f0  |.. R2,R2,#&FF...|
000014e0  16 41 44 44 20 52 33 2c  52 33 2c 52 32 2c 4c 53  |.ADD R3,R3,R2,LS|
000014f0  4c 23 38 0d 0a fa 0d 4d  4f 56 20 52 31 2c 23 30  |L#8....MOV R1,#0|
00001500  0d 0b 04 12 53 57 49 20  22 58 4f 53 5f 42 79 74  |....SWI "XOS_Byt|
00001510  65 22 0d 0b 0e 0f 80 20  52 31 2c 52 31 2c 23 25  |e"..... R1,R1,#%|
00001520  31 0d 0b 18 17 41 44 44  20 52 30 2c 52 33 2c 52  |1....ADD R0,R3,R|
00001530  31 2c 4c 53 4c 23 31 36  0d 0b 22 1a 4c 44 4d 46  |1,LSL#16..".LDMF|
00001540  44 20 52 31 33 21 2c 7b  52 31 2d 52 33 2c 50 43  |D R13!,{R1-R3,PC|
00001550  7d 5e 0d 0b 2c 04 0d 0b  36 0e 2e 6a 6f 79 73 74  |}^..,...6..joyst|
00001560  69 63 6b 32 0d 0b 40 0f  4d 4f 56 20 52 30 2c 23  |ick2..@.MOV R0,#|
00001570  31 32 38 0d 0b 4a 0d 4d  4f 56 20 52 31 2c 23 34  |128..J.MOV R1,#4|
00001580  0d 0b 54 12 53 57 49 20  22 58 4f 53 5f 42 79 74  |..T.SWI "XOS_Byt|
00001590  65 22 0d 0b 5e 12 53 55  42 20 52 33 2c 52 32 2c  |e"..^.SUB R3,R2,|
000015a0  23 31 32 38 0d 0b 68 10  80 20 52 33 2c 52 33 2c  |#128..h.. R3,R3,|
000015b0  23 26 46 46 0d 0b 69 20  43 4d 50 20 52 33 2c 23  |#&FF..i CMP R3,#|
000015c0  26 38 30 20 3a 20 41 44  44 45 51 20 52 33 2c 52  |&80 : ADDEQ R3,R|
000015d0  33 2c 23 31 0d 0b 86 0d  4d 4f 56 20 52 31 2c 23  |3,#1....MOV R1,#|
000015e0  33 0d 0b 90 12 53 57 49  20 22 58 4f 53 5f 42 79  |3....SWI "XOS_By|
000015f0  74 65 22 0d 0b 9a 12 52  53 42 20 52 32 2c 52 32  |te"....RSB R2,R2|
00001600  2c 23 31 32 38 0d 0b a4  10 80 20 52 32 2c 52 32  |,#128..... R2,R2|
00001610  2c 23 26 46 46 0d 0b ae  16 41 44 44 20 52 33 2c  |,#&FF....ADD R3,|
00001620  52 33 2c 52 32 2c 4c 53  4c 23 38 0d 0b b8 0d 4d  |R3,R2,LSL#8....M|
00001630  4f 56 20 52 31 2c 23 30  0d 0b c2 12 53 57 49 20  |OV R1,#0....SWI |
00001640  22 58 4f 53 5f 42 79 74  65 22 0d 0b cc 13 4d 4f  |"XOS_Byte"....MO|
00001650  56 20 52 31 2c 52 31 2c  4c 53 52 23 31 0d 0b d6  |V R1,R1,LSR#1...|
00001660  0f 80 20 52 31 2c 52 31  2c 23 25 31 0d 0b e0 17  |.. R1,R1,#%1....|
00001670  41 44 44 20 52 30 2c 52  33 2c 52 31 2c 4c 53 4c  |ADD R0,R3,R1,LSL|
00001680  23 31 36 0d 0b ea 1a 4c  44 4d 46 44 20 52 31 33  |#16....LDMFD R13|
00001690  21 2c 7b 52 31 2d 52 33  2c 50 43 7d 5e 0d 0b f4  |!,{R1-R3,PC}^...|
000016a0  04 0d 0c 30 05 5d 0d 0c  3a 0a ed 20 6f 70 74 25  |...0.]..:.. opt%|
000016b0  0d 0c 44 30 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |..D0.. "OS_File"|
000016c0  2c 26 30 41 2c 22 4a 53  45 6d 75 6c 61 74 6f 72  |,&0A,"JSEmulator|
000016d0  22 2c 26 46 46 41 2c 2c  63 6f 64 65 25 2c 4f 25  |",&FFA,,code%,O%|
000016e0  0d 0c 4e 24 f1 20 22 4d  6f 64 75 6c 65 20 73 61  |..N$. "Module sa|
000016f0  76 65 64 20 61 73 20 27  4a 53 45 6d 75 6c 61 74  |ved as 'JSEmulat|
00001700  6f 72 27 22 0d 0c 58 05  e0 0d 0c 62 05 3a 0d 0c  |or'"..X....b.:..|
00001710  6c 10 dd 20 a4 73 74 72  28 73 74 72 24 29 0d 0c  |l.. .str(str$)..|
00001720  76 12 5b 4f 50 54 20 6f  70 74 25 20 80 20 26 45  |v.[OPT opt% . &E|
00001730  0d 0c 80 12 45 51 55 53  20 73 74 72 24 2b bd 28  |....EQUS str$+.(|
00001740  30 29 0d 0c 8a 09 41 4c  49 47 4e 0d 0c 94 05 5d  |0)....ALIGN....]|
00001750  0d 0c 9e 09 3d 6f 70 74  25 0d ff                 |....=opt%..|
0000175b