� >SlowCoach
:
(� code% 1000
2 � I%=4 � 6 � 2:P%=0:O%=code%
<[OPT I%
FEQUD 0 ; start
P
EQUD init
ZEQUD final
dEQUD 0 ; serve
nEQUD titlestring
xEQUD helpstring
�
EQUD 0
�
EQUD 0
�
EQUD 0
�
EQUD 0
�
EQUD 0
�:
�.titlestring
�EQUS "SlowCoach"
�
EQUB 0
�:
�.helpstring
�EQUS "SlowCoach"
�
EQUB 9

EQUS "0.01 ("

EQUS ��$,5,11)

EQUS ")"

"
EQUB 0

,:

6	ALIGN

@:

J	.init

TSTMFD R13!,{R1-R2,R14}

^

hMOV r0,#14

rMOV r1,#11

|SWI "XOS_Byte"

�BVS exit

�

�MOV r0,#&10

�ADR r1,event

�MOV r2,r12

�SWI "XOS_Claim"

�

�	.exit

�LDMFD R13!,{R1-R2,PC}

�

�

�

�
.final
STMFD R13!,{R0-R2,R14}

BL default_speed
&
0ADR r0, callback
:MOV r1, r12
DSWI "XOS_RemoveCallBack"
N
XMOV r0,#13
bMOV r2,#11
lSWI "XOS_Byte"
v
�MOV r0,#&10
�ADR r1,event
�MOV r2,r12
�SWI "XOS_Release"
�
�LDMFD R13!,{R0-R2,PC}
�
�
�
�
.event
�TEQ r0,#11
�MOVNES PC,R14
�TEQ r2,#96
MOVNES PC,R14
STMFD R13!,{R0-R1,R14}
STR r1, dir
 ADR r0, callback
*MOV r1, r12
4SWI "XOS_AddCallBack"
>LDMFD R13!,{R0-R1,PC}^
H
R
\
.callback
fSTMFD R13!,{R0-R4,R14}
pLDR   r0, dir
zCMP   r0, #1 ; press
�
�Q r2, #2
�BLEQ  set_speed
�BLNE  default_speed
�LDMFD R13!,{R0-R4,PC}^
�
�
�.default_speed
�STMFD R13!,{R14}
�MOV  r0, #161
�MOV  r1, #194
�SWI  "XOS_Byte"
�
B _set
�.set_speed
�STMFD R13!,{R14}
�	._set
�STRB r2,block+1
�STRB r2,block+2
MOV  r0, #21
ADR  r1, block
SWI  "XOS_Word"
LDMFD R13!,{PC}^
.
8.old EQUD 6
B.dir EQUD 0
L
V
.block
`
EQUB 2
jEQUB 0 ; X
tEQUB 0 ; Y
~	ALIGN
�
�:
�]�
�0ș "OS_File",10,"%.SlowCoach",&FFA,,code%,O%
��
�

00000000  0d 00 0a 10 f4 20 3e 53  6c 6f 77 43 6f 61 63 68  |..... >SlowCoach|
00000010  0d 00 1e 05 3a 0d 00 28  10 de 20 63 6f 64 65 25  |....:..(.. code%|
00000020  20 31 30 30 30 0d 00 32  20 e3 20 49 25 3d 34 20  | 1000..2 . I%=4 |
00000030  b8 20 36 20 88 20 32 3a  50 25 3d 30 3a 4f 25 3d  |. 6 . 2:P%=0:O%=|
00000040  63 6f 64 65 25 0d 00 3c  0b 5b 4f 50 54 20 49 25  |code%..<.[OPT I%|
00000050  0d 00 46 12 45 51 55 44  20 30 20 3b 20 73 74 61  |..F.EQUD 0 ; sta|
00000060  72 74 0d 00 50 0d 45 51  55 44 20 69 6e 69 74 0d  |rt..P.EQUD init.|
00000070  00 5a 0e 45 51 55 44 20  66 69 6e 61 6c 0d 00 64  |.Z.EQUD final..d|
00000080  12 45 51 55 44 20 30 20  3b 20 73 65 72 76 65 0d  |.EQUD 0 ; serve.|
00000090  00 6e 14 45 51 55 44 20  74 69 74 6c 65 73 74 72  |.n.EQUD titlestr|
000000a0  69 6e 67 0d 00 78 13 45  51 55 44 20 68 65 6c 70  |ing..x.EQUD help|
000000b0  73 74 72 69 6e 67 0d 00  82 0a 45 51 55 44 20 30  |string....EQUD 0|
000000c0  0d 00 8c 0a 45 51 55 44  20 30 0d 00 96 0a 45 51  |....EQUD 0....EQ|
000000d0  55 44 20 30 0d 00 a0 0a  45 51 55 44 20 30 0d 00  |UD 0....EQUD 0..|
000000e0  aa 0a 45 51 55 44 20 30  0d 00 b4 05 3a 0d 00 be  |..EQUD 0....:...|
000000f0  10 2e 74 69 74 6c 65 73  74 72 69 6e 67 0d 00 c8  |..titlestring...|
00000100  14 45 51 55 53 20 22 53  6c 6f 77 43 6f 61 63 68  |.EQUS "SlowCoach|
00000110  22 0d 00 d2 0a 45 51 55  42 20 30 0d 00 dc 05 3a  |"....EQUB 0....:|
00000120  0d 00 e6 0f 2e 68 65 6c  70 73 74 72 69 6e 67 0d  |.....helpstring.|
00000130  00 f0 14 45 51 55 53 20  22 53 6c 6f 77 43 6f 61  |...EQUS "SlowCoa|
00000140  63 68 22 0d 00 fa 0a 45  51 55 42 20 39 0d 01 04  |ch"....EQUB 9...|
00000150  11 45 51 55 53 20 22 30  2e 30 31 20 28 22 0d 01  |.EQUS "0.01 ("..|
00000160  0e 12 45 51 55 53 20 c1  91 24 2c 35 2c 31 31 29  |..EQUS ..$,5,11)|
00000170  0d 01 18 0c 45 51 55 53  20 22 29 22 0d 01 22 0a  |....EQUS ")"..".|
00000180  45 51 55 42 20 30 0d 01  2c 05 3a 0d 01 36 09 41  |EQUB 0..,.:..6.A|
00000190  4c 49 47 4e 0d 01 40 05  3a 0d 01 4a 09 2e 69 6e  |LIGN..@.:..J..in|
000001a0  69 74 0d 01 54 1a 53 54  4d 46 44 20 52 31 33 21  |it..T.STMFD R13!|
000001b0  2c 7b 52 31 2d 52 32 2c  52 31 34 7d 0d 01 5e 04  |,{R1-R2,R14}..^.|
000001c0  0d 01 68 0e 4d 4f 56 20  72 30 2c 23 31 34 0d 01  |..h.MOV r0,#14..|
000001d0  72 0e 4d 4f 56 20 72 31  2c 23 31 31 0d 01 7c 12  |r.MOV r1,#11..|.|
000001e0  53 57 49 20 22 58 4f 53  5f 42 79 74 65 22 0d 01  |SWI "XOS_Byte"..|
000001f0  86 0c 42 56 53 20 65 78  69 74 0d 01 90 04 0d 01  |..BVS exit......|
00000200  9a 0f 4d 4f 56 20 72 30  2c 23 26 31 30 0d 01 a4  |..MOV r0,#&10...|
00000210  10 41 44 52 20 72 31 2c  65 76 65 6e 74 0d 01 ae  |.ADR r1,event...|
00000220  0e 4d 4f 56 20 72 32 2c  72 31 32 0d 01 b8 13 53  |.MOV r2,r12....S|
00000230  57 49 20 22 58 4f 53 5f  43 6c 61 69 6d 22 0d 01  |WI "XOS_Claim"..|
00000240  c2 04 0d 01 cc 09 2e 65  78 69 74 0d 01 d6 19 4c  |.......exit....L|
00000250  44 4d 46 44 20 52 31 33  21 2c 7b 52 31 2d 52 32  |DMFD R13!,{R1-R2|
00000260  2c 50 43 7d 0d 01 e0 04  0d 01 ea 04 0d 01 f4 04  |,PC}............|
00000270  0d 01 fe 0a 2e 66 69 6e  61 6c 0d 02 08 1a 53 54  |.....final....ST|
00000280  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 32 2c  |MFD R13!,{R0-R2,|
00000290  52 31 34 7d 0d 02 12 04  0d 02 1c 14 42 4c 20 64  |R14}........BL d|
000002a0  65 66 61 75 6c 74 5f 73  70 65 65 64 0d 02 26 04  |efault_speed..&.|
000002b0  0d 02 30 14 41 44 52 20  72 30 2c 20 63 61 6c 6c  |..0.ADR r0, call|
000002c0  62 61 63 6b 0d 02 3a 0f  4d 4f 56 20 72 31 2c 20  |back..:.MOV r1, |
000002d0  72 31 32 0d 02 44 1c 53  57 49 20 22 58 4f 53 5f  |r12..D.SWI "XOS_|
000002e0  52 65 6d 6f 76 65 43 61  6c 6c 42 61 63 6b 22 0d  |RemoveCallBack".|
000002f0  02 4e 04 0d 02 58 0e 4d  4f 56 20 72 30 2c 23 31  |.N...X.MOV r0,#1|
00000300  33 0d 02 62 0e 4d 4f 56  20 72 32 2c 23 31 31 0d  |3..b.MOV r2,#11.|
00000310  02 6c 12 53 57 49 20 22  58 4f 53 5f 42 79 74 65  |.l.SWI "XOS_Byte|
00000320  22 0d 02 76 04 0d 02 80  0f 4d 4f 56 20 72 30 2c  |"..v.....MOV r0,|
00000330  23 26 31 30 0d 02 8a 10  41 44 52 20 72 31 2c 65  |#&10....ADR r1,e|
00000340  76 65 6e 74 0d 02 94 0e  4d 4f 56 20 72 32 2c 72  |vent....MOV r2,r|
00000350  31 32 0d 02 9e 15 53 57  49 20 22 58 4f 53 5f 52  |12....SWI "XOS_R|
00000360  65 6c 65 61 73 65 22 0d  02 a8 04 0d 02 b2 19 4c  |elease"........L|
00000370  44 4d 46 44 20 52 31 33  21 2c 7b 52 30 2d 52 32  |DMFD R13!,{R0-R2|
00000380  2c 50 43 7d 0d 02 bc 04  0d 02 c6 04 0d 02 d0 04  |,PC}............|
00000390  0d 02 da 0a 2e 65 76 65  6e 74 0d 02 e4 0e 54 45  |.....event....TE|
000003a0  51 20 72 30 2c 23 31 31  0d 02 ee 11 4d 4f 56 4e  |Q r0,#11....MOVN|
000003b0  45 53 20 50 43 2c 52 31  34 0d 02 f8 0e 54 45 51  |ES PC,R14....TEQ|
000003c0  20 72 32 2c 23 39 36 0d  03 02 11 4d 4f 56 4e 45  | r2,#96....MOVNE|
000003d0  53 20 50 43 2c 52 31 34  0d 03 0c 1a 53 54 4d 46  |S PC,R14....STMF|
000003e0  44 20 52 31 33 21 2c 7b  52 30 2d 52 31 2c 52 31  |D R13!,{R0-R1,R1|
000003f0  34 7d 0d 03 16 0f 53 54  52 20 72 31 2c 20 64 69  |4}....STR r1, di|
00000400  72 0d 03 20 14 41 44 52  20 72 30 2c 20 63 61 6c  |r.. .ADR r0, cal|
00000410  6c 62 61 63 6b 0d 03 2a  0f 4d 4f 56 20 72 31 2c  |lback..*.MOV r1,|
00000420  20 72 31 32 0d 03 34 19  53 57 49 20 22 58 4f 53  | r12..4.SWI "XOS|
00000430  5f 41 64 64 43 61 6c 6c  42 61 63 6b 22 0d 03 3e  |_AddCallBack"..>|
00000440  1a 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |.LDMFD R13!,{R0-|
00000450  52 31 2c 50 43 7d 5e 0d  03 48 04 0d 03 52 04 0d  |R1,PC}^..H...R..|
00000460  03 5c 0d 2e 63 61 6c 6c  62 61 63 6b 0d 03 66 1a  |.\..callback..f.|
00000470  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
00000480  34 2c 52 31 34 7d 0d 03  70 11 4c 44 52 20 20 20  |4,R14}..p.LDR   |
00000490  72 30 2c 20 64 69 72 0d  03 7a 18 43 4d 50 20 20  |r0, dir..z.CMP  |
000004a0  20 72 30 2c 20 23 31 20  3b 20 70 72 65 73 73 0d  | r0, #1 ; press.|
000004b0  03 84 0d ec 51 20 72 32  2c 20 23 32 0d 03 8e 13  |....Q r2, #2....|
000004c0  42 4c 45 51 20 20 73 65  74 5f 73 70 65 65 64 0d  |BLEQ  set_speed.|
000004d0  03 98 17 42 4c 4e 45 20  20 64 65 66 61 75 6c 74  |...BLNE  default|
000004e0  5f 73 70 65 65 64 0d 03  a2 1a 4c 44 4d 46 44 20  |_speed....LDMFD |
000004f0  52 31 33 21 2c 7b 52 30  2d 52 34 2c 50 43 7d 5e  |R13!,{R0-R4,PC}^|
00000500  0d 03 ac 04 0d 03 b6 04  0d 03 c0 12 2e 64 65 66  |.............def|
00000510  61 75 6c 74 5f 73 70 65  65 64 0d 03 c1 14 53 54  |ault_speed....ST|
00000520  4d 46 44 20 52 31 33 21  2c 7b 52 31 34 7d 0d 03  |MFD R13!,{R14}..|
00000530  ca 11 4d 4f 56 20 20 72  30 2c 20 23 31 36 31 0d  |..MOV  r0, #161.|
00000540  03 d4 11 4d 4f 56 20 20  72 31 2c 20 23 31 39 34  |...MOV  r1, #194|
00000550  0d 03 de 13 53 57 49 20  20 22 58 4f 53 5f 42 79  |....SWI  "XOS_By|
00000560  74 65 22 0d 03 df 0a 42  20 5f 73 65 74 0d 03 e8  |te"....B _set...|
00000570  0e 2e 73 65 74 5f 73 70  65 65 64 0d 03 e9 14 53  |..set_speed....S|
00000580  54 4d 46 44 20 52 31 33  21 2c 7b 52 31 34 7d 0d  |TMFD R13!,{R14}.|
00000590  03 ea 09 2e 5f 73 65 74  0d 03 f2 13 53 54 52 42  |...._set....STRB|
000005a0  20 72 32 2c 62 6c 6f 63  6b 2b 31 0d 03 fc 13 53  | r2,block+1....S|
000005b0  54 52 42 20 72 32 2c 62  6c 6f 63 6b 2b 32 0d 04  |TRB r2,block+2..|
000005c0  06 10 4d 4f 56 20 20 72  30 2c 20 23 32 31 0d 04  |..MOV  r0, #21..|
000005d0  10 12 41 44 52 20 20 72  31 2c 20 62 6c 6f 63 6b  |..ADR  r1, block|
000005e0  0d 04 1a 13 53 57 49 20  20 22 58 4f 53 5f 57 6f  |....SWI  "XOS_Wo|
000005f0  72 64 22 0d 04 1b 14 4c  44 4d 46 44 20 52 31 33  |rd"....LDMFD R13|
00000600  21 2c 7b 50 43 7d 5e 0d  04 2e 04 0d 04 38 0f 2e  |!,{PC}^......8..|
00000610  6f 6c 64 20 45 51 55 44  20 36 0d 04 42 0f 2e 64  |old EQUD 6..B..d|
00000620  69 72 20 45 51 55 44 20  30 0d 04 4c 04 0d 04 56  |ir EQUD 0..L...V|
00000630  0a 2e 62 6c 6f 63 6b 0d  04 60 0a 45 51 55 42 20  |..block..`.EQUB |
00000640  32 0d 04 6a 0e 45 51 55  42 20 30 20 3b 20 58 0d  |2..j.EQUB 0 ; X.|
00000650  04 74 0e 45 51 55 42 20  30 20 3b 20 59 0d 04 7e  |.t.EQUB 0 ; Y..~|
00000660  09 41 4c 49 47 4e 0d 04  88 04 0d 04 92 05 3a 0d  |.ALIGN........:.|
00000670  04 9c 06 5d ed 0d 04 a6  30 c8 99 20 22 4f 53 5f  |...]....0.. "OS_|
00000680  46 69 6c 65 22 2c 31 30  2c 22 25 2e 53 6c 6f 77  |File",10,"%.Slow|
00000690  43 6f 61 63 68 22 2c 26  46 46 41 2c 2c 63 6f 64  |Coach",&FFA,,cod|
000006a0  65 25 2c 4f 25 0d 04 b0  05 e0 0d ff              |e%,O%.......|
000006ac