max_cars% = 4
max_speed% = 14
max_speed2% = 15
()� �: � � �: � 25:� �$;" at line ";�:�
2� 28
<
� 27:�
F	�init
P	�race
Z�
d:
n
��init
x�ass
��draw_track
�� from_screen:�:�
�� cd% 20*max_cars%
�%� P1X%(max_cars%),P1Y%(max_cars%)
�%� P2X%(max_cars%),P2Y%(max_cars%)
�%� P3X%(max_cars%),P3Y%(max_cars%)
�� angle_data% 36*4*7
�t=angle_data%
�� a%=0 � 35
�A%=a%*36
�"� Three points to draw the car
�/t!0 = (��(A%-90)*10) + (��(A%-90)*10) * 320
�/t!4 = (��(A%+90)*10) + (��(A%+90)*10) * 320

/t!8 = (��(A%)*30)    + (��(A%)*30)    * 320

1� Two points to sense track for computer cars

0t!12=(��(A%-45)*125) + (��(A%-45)*125) * 320

"0t!16=(��(A%+45)*125) + (��(A%+45)*125) * 320

, � Two for movement (x,y)<<16

6t!20=��(A%)*(1<<16)

@t!24=��(A%)*(1<<16)

J:

T
t=t+28

^� a%

h�

r
p%=cd%

|� c=1 � max_cars%

�"� !p%,p%!4 : � x and y co-ords

�p%!8=90      : � angle

�p%!12=0      : � speed

�1p%!16=(max_speed% * 256) + �(400):� max_speed

�p%=p%+20

�� c

��

�:

�
��do_cars

�
p%=cd%

�� 9

�� c=1 � max_cars%

�X% = !p%

Y% = p%!4

A% = p%!8

&!t = angle_data% + (A%�36)*4*7
0
:9P1X%(c) = X%+��(A%-90)*10 : P1Y%(c) = Y%+��(A%-90)*10
D9P2X%(c) = X%+��(A%+90)*10 : P2Y%(c) = Y%+��(A%+90)*10
N6P3X%(c) = X%+��(A%)*30    : P3Y%(c) = Y%+��(A%)*30
X� P1X%(c),P1Y%(c)
b� P2X%(c),P2Y%(c)
l� 85,P3X%(c),P3Y%(c)
vp%=p%+20
�� c
�
�
p%=cd%
�� c=1 � max_cars%
�X% = !p%
�
Y% = p%!4
�
A% = p%!8
�S  = (p%!12) / 256
�MS = (p%!16) / 256
�&c%=�P3X%(c)+��A%*3,P3Y%(c)+��A%*3)
�f%=�
�
� c%<>0 �
�X%=X%-��A%*S
Y%=Y%-��A%*S
S=S*0.5
� S<0 � S=0
 f%=�
*�
4
>� c=max_cars% �
H� �(-98) � A%=A%-8
R� �(-67) � A%=A%+8
\%� �(-80) � f% � S=S+0.8 � S=S*0.9
f� �(-105)� S=S-0.4
p
z/� S>max_speed2% � (� �(-99))� S=max_speed2%
��
�
�� S<MS � f% � S=S+0.8
�*C% = �X%+��(A%-45)*80,Y%+��(A%-45)*80)
�� C%<>0 � A%=A%+8
�*C% = �X%+��(A%+45)*80,Y%+��(A%+45)*80)
�� C%<>0 � A%=A%-8
��
�
�X%=X%+��A%*S
�Y%=Y%+��A%*S
�
!p%=X%
�p%!4=Y%
p%!8=A%
p%!12=S * 256
p%=p%+20
$� c
.
8�
B:
L
��race
VS1%=1:S2%=2
`�
j+Ȗ:ș 6,112,S1%:ș 6,113,S2%:Ȕ S1%,S2%
t� to_screen
~�do_cars
�� �
��
�:
�	��ass
�� code% 1024,L% -1
�� pass=0 � 2 � 2
�P%=code%
�
[OPT pass
�.from_screen
�ADR R0,scr
�ADR R1,base
�SWI &31
LDR R12,base

LDR R11,size
ADD R11,R11,R12
LDR R10,t_a
(	.loop
2LDMIA R12!,{R0-R9}
<STMIA R10!,{R0-R9}
FCMP R12,R11
PBLT loop
ZMOV PC,R14
d
n.to_screen
xADR R0,scr
�ADR R1,base
�SWI &31
�LDR R12,base
�LDR R11,size
�ADD R11,R11,R12
�LDR R10,t_a
�	.loop
�LDMIA R10!,{R0-R9}
�STMIA R12!,{R0-R9}
�CMP R12,R11
�BLT loop
�MOV PC,R14
�
.scr EQUD 148
     EQUD -1

".base EQUD 0
,.size EQUD (640*480)/2
6.t_a  EQUD track%
@]
J4� pass=0 � ș &31,scr,base:� track% (!size) + 12
T
� pass
^�
h:
r
� 900,180
|
� 900,120
�
� 850,180
�
� 850,120
�
� 800,180
�
� 800,120
�
� 750,180
�
� 750,120
�
� 600,180
�
� 600,120
�:
���draw_track
�
� R,X,Y,A
�A=90
�� 10,0,255,0
� 9,0,128,255
� 10
ȓȐ 0,0,1279,959
&� 0
0
R = 60
:X = 640
DY = 150
NȏȐ X,Y,R
X�
b� �(-80) �
l� �(-98) � A=A-3
v� �(-67) � A=A+3
�
X=X+��A*6
�
Y=Y+��A*6
�T=�
���T+2<�
�
�ȏȐ X,Y,R
��
�� �(-99)
�� from_screen
��
�

00000000  0d 00 0a 11 6d 61 78 5f  63 61 72 73 25 20 3d 20  |....max_cars% = |
00000010  34 0d 00 14 13 6d 61 78  5f 73 70 65 65 64 25 20  |4....max_speed% |
00000020  3d 20 31 34 0d 00 1e 14  6d 61 78 5f 73 70 65 65  |= 14....max_spee|
00000030  64 32 25 20 3d 20 31 35  0d 00 28 29 ee 20 85 3a  |d2% = 15..(). .:|
00000040  20 ee 20 85 20 87 3a 20  eb 20 32 35 3a f1 20 f6  | . . .: . 25:. .|
00000050  24 3b 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 3a  |$;" at line ";.:|
00000060  e0 0d 00 32 08 eb 20 32  38 0d 00 3c 0a eb 20 32  |...2.. 28..<.. 2|
00000070  37 3a 87 0d 00 46 09 f2  69 6e 69 74 0d 00 50 09  |7:...F..init..P.|
00000080  f2 72 61 63 65 0d 00 5a  05 e0 0d 00 64 05 3a 0d  |.race..Z....d.:.|
00000090  00 6e 0a dd f2 69 6e 69  74 0d 00 78 08 f2 61 73  |.n...init..x..as|
000000a0  73 0d 00 82 0f f2 64 72  61 77 5f 74 72 61 63 6b  |s.....draw_track|
000000b0  0d 00 8c 15 d6 20 66 72  6f 6d 5f 73 63 72 65 65  |..... from_scree|
000000c0  6e 3a db 3a 87 0d 00 96  16 de 20 63 64 25 20 32  |n:.:...... cd% 2|
000000d0  30 2a 6d 61 78 5f 63 61  72 73 25 0d 00 a0 25 de  |0*max_cars%...%.|
000000e0  20 50 31 58 25 28 6d 61  78 5f 63 61 72 73 25 29  | P1X%(max_cars%)|
000000f0  2c 50 31 59 25 28 6d 61  78 5f 63 61 72 73 25 29  |,P1Y%(max_cars%)|
00000100  0d 00 aa 25 de 20 50 32  58 25 28 6d 61 78 5f 63  |...%. P2X%(max_c|
00000110  61 72 73 25 29 2c 50 32  59 25 28 6d 61 78 5f 63  |ars%),P2Y%(max_c|
00000120  61 72 73 25 29 0d 00 b4  25 de 20 50 33 58 25 28  |ars%)...%. P3X%(|
00000130  6d 61 78 5f 63 61 72 73  25 29 2c 50 33 59 25 28  |max_cars%),P3Y%(|
00000140  6d 61 78 5f 63 61 72 73  25 29 0d 00 be 18 de 20  |max_cars%)..... |
00000150  61 6e 67 6c 65 5f 64 61  74 61 25 20 33 36 2a 34  |angle_data% 36*4|
00000160  2a 37 0d 00 c8 11 74 3d  61 6e 67 6c 65 5f 64 61  |*7....t=angle_da|
00000170  74 61 25 0d 00 d2 0f e3  20 61 25 3d 30 20 b8 20  |ta%..... a%=0 . |
00000180  33 35 0d 00 dc 0c 41 25  3d 61 25 2a 33 36 0d 00  |35....A%=a%*36..|
00000190  e6 22 f4 20 54 68 72 65  65 20 70 6f 69 6e 74 73  |.". Three points|
000001a0  20 74 6f 20 64 72 61 77  20 74 68 65 20 63 61 72  | to draw the car|
000001b0  0d 00 f0 2f 74 21 30 20  3d 20 28 b5 b2 28 41 25  |.../t!0 = (..(A%|
000001c0  2d 39 30 29 2a 31 30 29  20 2b 20 28 9b b2 28 41  |-90)*10) + (..(A|
000001d0  25 2d 39 30 29 2a 31 30  29 20 2a 20 33 32 30 0d  |%-90)*10) * 320.|
000001e0  00 fa 2f 74 21 34 20 3d  20 28 b5 b2 28 41 25 2b  |../t!4 = (..(A%+|
000001f0  39 30 29 2a 31 30 29 20  2b 20 28 9b b2 28 41 25  |90)*10) + (..(A%|
00000200  2b 39 30 29 2a 31 30 29  20 2a 20 33 32 30 0d 01  |+90)*10) * 320..|
00000210  04 2f 74 21 38 20 3d 20  28 b5 b2 28 41 25 29 2a  |./t!8 = (..(A%)*|
00000220  33 30 29 20 20 20 20 2b  20 28 9b b2 28 41 25 29  |30)    + (..(A%)|
00000230  2a 33 30 29 20 20 20 20  2a 20 33 32 30 0d 01 0e  |*30)    * 320...|
00000240  31 f4 20 54 77 6f 20 70  6f 69 6e 74 73 20 74 6f  |1. Two points to|
00000250  20 73 65 6e 73 65 20 74  72 61 63 6b 20 66 6f 72  | sense track for|
00000260  20 63 6f 6d 70 75 74 65  72 20 63 61 72 73 0d 01  | computer cars..|
00000270  18 30 74 21 31 32 3d 28  b5 b2 28 41 25 2d 34 35  |.0t!12=(..(A%-45|
00000280  29 2a 31 32 35 29 20 2b  20 28 9b b2 28 41 25 2d  |)*125) + (..(A%-|
00000290  34 35 29 2a 31 32 35 29  20 2a 20 33 32 30 0d 01  |45)*125) * 320..|
000002a0  22 30 74 21 31 36 3d 28  b5 b2 28 41 25 2b 34 35  |"0t!16=(..(A%+45|
000002b0  29 2a 31 32 35 29 20 2b  20 28 9b b2 28 41 25 2b  |)*125) + (..(A%+|
000002c0  34 35 29 2a 31 32 35 29  20 2a 20 33 32 30 0d 01  |45)*125) * 320..|
000002d0  2c 20 f4 20 54 77 6f 20  66 6f 72 20 6d 6f 76 65  |, . Two for move|
000002e0  6d 65 6e 74 20 28 78 2c  79 29 3c 3c 31 36 0d 01  |ment (x,y)<<16..|
000002f0  36 17 74 21 32 30 3d b5  b2 28 41 25 29 2a 28 31  |6.t!20=..(A%)*(1|
00000300  3c 3c 31 36 29 0d 01 40  17 74 21 32 34 3d 9b b2  |<<16)..@.t!24=..|
00000310  28 41 25 29 2a 28 31 3c  3c 31 36 29 0d 01 4a 05  |(A%)*(1<<16)..J.|
00000320  3a 0d 01 54 0a 74 3d 74  2b 32 38 0d 01 5e 08 ed  |:..T.t=t+28..^..|
00000330  20 61 25 0d 01 68 05 f7  0d 01 72 0a 70 25 3d 63  | a%..h....r.p%=c|
00000340  64 25 0d 01 7c 15 e3 20  63 3d 31 20 b8 20 6d 61  |d%..|.. c=1 . ma|
00000350  78 5f 63 61 72 73 25 0d  01 86 22 f3 20 21 70 25  |x_cars%...". !p%|
00000360  2c 70 25 21 34 20 3a 20  f4 20 78 20 61 6e 64 20  |,p%!4 : . x and |
00000370  79 20 63 6f 2d 6f 72 64  73 0d 01 90 1a 70 25 21  |y co-ords....p%!|
00000380  38 3d 39 30 20 20 20 20  20 20 3a 20 f4 20 61 6e  |8=90      : . an|
00000390  67 6c 65 0d 01 9a 1a 70  25 21 31 32 3d 30 20 20  |gle....p%!12=0  |
000003a0  20 20 20 20 3a 20 f4 20  73 70 65 65 64 0d 01 a4  |    : . speed...|
000003b0  31 70 25 21 31 36 3d 28  6d 61 78 5f 73 70 65 65  |1p%!16=(max_spee|
000003c0  64 25 20 2a 20 32 35 36  29 20 2b 20 b3 28 34 30  |d% * 256) + .(40|
000003d0  30 29 3a f4 20 6d 61 78  5f 73 70 65 65 64 0d 01  |0):. max_speed..|
000003e0  ae 0c 70 25 3d 70 25 2b  32 30 0d 01 b8 07 ed 20  |..p%=p%+20..... |
000003f0  63 0d 01 c2 05 e1 0d 01  cc 05 3a 0d 01 d6 0d dd  |c.........:.....|
00000400  f2 64 6f 5f 63 61 72 73  0d 01 e0 0a 70 25 3d 63  |.do_cars....p%=c|
00000410  64 25 0d 01 ea 07 e6 20  39 0d 01 f4 15 e3 20 63  |d%..... 9..... c|
00000420  3d 31 20 b8 20 6d 61 78  5f 63 61 72 73 25 0d 01  |=1 . max_cars%..|
00000430  fe 0c 58 25 20 3d 20 21  70 25 0d 02 08 0d 59 25  |..X% = !p%....Y%|
00000440  20 3d 20 70 25 21 34 0d  02 12 0d 41 25 20 3d 20  | = p%!4....A% = |
00000450  70 25 21 38 0d 02 1c 04  0d 02 26 21 74 20 3d 20  |p%!8......&!t = |
00000460  61 6e 67 6c 65 5f 64 61  74 61 25 20 2b 20 28 41  |angle_data% + (A|
00000470  25 81 33 36 29 2a 34 2a  37 0d 02 30 04 0d 02 3a  |%.36)*4*7..0...:|
00000480  39 50 31 58 25 28 63 29  20 3d 20 58 25 2b b5 b2  |9P1X%(c) = X%+..|
00000490  28 41 25 2d 39 30 29 2a  31 30 20 3a 20 50 31 59  |(A%-90)*10 : P1Y|
000004a0  25 28 63 29 20 3d 20 59  25 2b 9b b2 28 41 25 2d  |%(c) = Y%+..(A%-|
000004b0  39 30 29 2a 31 30 0d 02  44 39 50 32 58 25 28 63  |90)*10..D9P2X%(c|
000004c0  29 20 3d 20 58 25 2b b5  b2 28 41 25 2b 39 30 29  |) = X%+..(A%+90)|
000004d0  2a 31 30 20 3a 20 50 32  59 25 28 63 29 20 3d 20  |*10 : P2Y%(c) = |
000004e0  59 25 2b 9b b2 28 41 25  2b 39 30 29 2a 31 30 0d  |Y%+..(A%+90)*10.|
000004f0  02 4e 36 50 33 58 25 28  63 29 20 3d 20 58 25 2b  |.N6P3X%(c) = X%+|
00000500  b5 b2 28 41 25 29 2a 33  30 20 20 20 20 3a 20 50  |..(A%)*30    : P|
00000510  33 59 25 28 63 29 20 3d  20 59 25 2b 9b b2 28 41  |3Y%(c) = Y%+..(A|
00000520  25 29 2a 33 30 0d 02 58  15 ec 20 50 31 58 25 28  |%)*30..X.. P1X%(|
00000530  63 29 2c 50 31 59 25 28  63 29 0d 02 62 15 ec 20  |c),P1Y%(c)..b.. |
00000540  50 32 58 25 28 63 29 2c  50 32 59 25 28 63 29 0d  |P2X%(c),P2Y%(c).|
00000550  02 6c 18 f0 20 38 35 2c  50 33 58 25 28 63 29 2c  |.l.. 85,P3X%(c),|
00000560  50 33 59 25 28 63 29 0d  02 76 0c 70 25 3d 70 25  |P3Y%(c)..v.p%=p%|
00000570  2b 32 30 0d 02 80 07 ed  20 63 0d 02 8a 04 0d 02  |+20..... c......|
00000580  94 0a 70 25 3d 63 64 25  0d 02 9e 15 e3 20 63 3d  |..p%=cd%..... c=|
00000590  31 20 b8 20 6d 61 78 5f  63 61 72 73 25 0d 02 a8  |1 . max_cars%...|
000005a0  0c 58 25 20 3d 20 21 70  25 0d 02 b2 0d 59 25 20  |.X% = !p%....Y% |
000005b0  3d 20 70 25 21 34 0d 02  bc 0d 41 25 20 3d 20 70  |= p%!4....A% = p|
000005c0  25 21 38 0d 02 c6 16 53  20 20 3d 20 28 70 25 21  |%!8....S  = (p%!|
000005d0  31 32 29 20 2f 20 32 35  36 0d 02 d0 16 4d 53 20  |12) / 256....MS |
000005e0  3d 20 28 70 25 21 31 36  29 20 2f 20 32 35 36 0d  |= (p%!16) / 256.|
000005f0  02 da 26 63 25 3d b0 50  33 58 25 28 63 29 2b b5  |..&c%=.P3X%(c)+.|
00000600  b2 41 25 2a 33 2c 50 33  59 25 28 63 29 2b 9b b2  |.A%*3,P3Y%(c)+..|
00000610  41 25 2a 33 29 0d 02 e4  08 66 25 3d b9 0d 02 ee  |A%*3)....f%=....|
00000620  0d e7 20 63 25 3c 3e 30  20 8c 0d 02 f8 10 58 25  |.. c%<>0 .....X%|
00000630  3d 58 25 2d b5 b2 41 25  2a 53 0d 03 02 10 59 25  |=X%-..A%*S....Y%|
00000640  3d 59 25 2d 9b b2 41 25  2a 53 0d 03 0c 0b 53 3d  |=Y%-..A%*S....S=|
00000650  53 2a 30 2e 35 0d 03 16  0f e7 20 53 3c 30 20 8c  |S*0.5..... S<0 .|
00000660  20 53 3d 30 0d 03 20 08  66 25 3d a3 0d 03 2a 05  | S=0.. .f%=...*.|
00000670  cd 0d 03 34 04 0d 03 3e  13 e7 20 63 3d 6d 61 78  |...4...>.. c=max|
00000680  5f 63 61 72 73 25 20 8c  0d 03 48 16 e7 20 a6 28  |_cars% ...H.. .(|
00000690  2d 39 38 29 20 8c 20 41  25 3d 41 25 2d 38 0d 03  |-98) . A%=A%-8..|
000006a0  52 16 e7 20 a6 28 2d 36  37 29 20 8c 20 41 25 3d  |R.. .(-67) . A%=|
000006b0  41 25 2b 38 0d 03 5c 25  e7 20 a6 28 2d 38 30 29  |A%+8..\%. .(-80)|
000006c0  20 80 20 66 25 20 8c 20  53 3d 53 2b 30 2e 38 20  | . f% . S=S+0.8 |
000006d0  8b 20 53 3d 53 2a 30 2e  39 0d 03 66 16 e7 20 a6  |. S=S*0.9..f.. .|
000006e0  28 2d 31 30 35 29 8c 20  53 3d 53 2d 30 2e 34 0d  |(-105). S=S-0.4.|
000006f0  03 70 04 0d 03 7a 2f e7  20 53 3e 6d 61 78 5f 73  |.p...z/. S>max_s|
00000700  70 65 65 64 32 25 20 80  20 28 ac 20 a6 28 2d 39  |peed2% . (. .(-9|
00000710  39 29 29 8c 20 53 3d 6d  61 78 5f 73 70 65 65 64  |9)). S=max_speed|
00000720  32 25 0d 03 84 05 cc 0d  03 8e 04 0d 03 98 19 e7  |2%..............|
00000730  20 53 3c 4d 53 20 80 20  66 25 20 8c 20 53 3d 53  | S<MS . f% . S=S|
00000740  2b 30 2e 38 0d 03 a2 2a  43 25 20 3d 20 b0 58 25  |+0.8...*C% = .X%|
00000750  2b b5 b2 28 41 25 2d 34  35 29 2a 38 30 2c 59 25  |+..(A%-45)*80,Y%|
00000760  2b 9b b2 28 41 25 2d 34  35 29 2a 38 30 29 0d 03  |+..(A%-45)*80)..|
00000770  ac 15 e7 20 43 25 3c 3e  30 20 8c 20 41 25 3d 41  |... C%<>0 . A%=A|
00000780  25 2b 38 0d 03 b6 2a 43  25 20 3d 20 b0 58 25 2b  |%+8...*C% = .X%+|
00000790  b5 b2 28 41 25 2b 34 35  29 2a 38 30 2c 59 25 2b  |..(A%+45)*80,Y%+|
000007a0  9b b2 28 41 25 2b 34 35  29 2a 38 30 29 0d 03 c0  |..(A%+45)*80)...|
000007b0  15 e7 20 43 25 3c 3e 30  20 8c 20 41 25 3d 41 25  |.. C%<>0 . A%=A%|
000007c0  2d 38 0d 03 ca 05 cd 0d  03 d4 04 0d 03 de 10 58  |-8.............X|
000007d0  25 3d 58 25 2b b5 b2 41  25 2a 53 0d 03 e8 10 59  |%=X%+..A%*S....Y|
000007e0  25 3d 59 25 2b 9b b2 41  25 2a 53 0d 03 f2 0a 21  |%=Y%+..A%*S....!|
000007f0  70 25 3d 58 25 0d 03 fc  0b 70 25 21 34 3d 59 25  |p%=X%....p%!4=Y%|
00000800  0d 04 06 0b 70 25 21 38  3d 41 25 0d 04 10 11 70  |....p%!8=A%....p|
00000810  25 21 31 32 3d 53 20 2a  20 32 35 36 0d 04 1a 0c  |%!12=S * 256....|
00000820  70 25 3d 70 25 2b 32 30  0d 04 24 07 ed 20 63 0d  |p%=p%+20..$.. c.|
00000830  04 2e 04 0d 04 38 05 e1  0d 04 42 05 3a 0d 04 4c  |.....8....B.:..L|
00000840  0a dd f2 72 61 63 65 0d  04 56 0f 53 31 25 3d 31  |...race..V.S1%=1|
00000850  3a 53 32 25 3d 32 0d 04  60 05 f5 0d 04 6a 2b c8  |:S2%=2..`....j+.|
00000860  96 3a c8 99 20 36 2c 31  31 32 2c 53 31 25 3a c8  |.:.. 6,112,S1%:.|
00000870  99 20 36 2c 31 31 33 2c  53 32 25 3a c8 94 20 53  |. 6,113,S2%:.. S|
00000880  31 25 2c 53 32 25 0d 04  74 0f d6 20 74 6f 5f 73  |1%,S2%..t.. to_s|
00000890  63 72 65 65 6e 0d 04 7e  0c f2 64 6f 5f 63 61 72  |creen..~..do_car|
000008a0  73 0d 04 88 07 fd 20 a3  0d 04 92 05 e1 0d 04 9c  |s..... .........|
000008b0  05 3a 0d 04 a6 09 dd f2  61 73 73 0d 04 b0 16 de  |.:......ass.....|
000008c0  20 63 6f 64 65 25 20 31  30 32 34 2c 4c 25 20 2d  | code% 1024,L% -|
000008d0  31 0d 04 ba 14 e3 20 70  61 73 73 3d 30 20 b8 20  |1..... pass=0 . |
000008e0  32 20 88 20 32 0d 04 c4  0c 50 25 3d 63 6f 64 65  |2 . 2....P%=code|
000008f0  25 0d 04 ce 0d 5b 4f 50  54 20 70 61 73 73 0d 04  |%....[OPT pass..|
00000900  d8 10 2e 66 72 6f 6d 5f  73 63 72 65 65 6e 0d 04  |...from_screen..|
00000910  e2 0e 41 44 52 20 52 30  2c 73 63 72 0d 04 ec 0f  |..ADR R0,scr....|
00000920  41 44 52 20 52 31 2c 62  61 73 65 0d 04 f6 0b 53  |ADR R1,base....S|
00000930  57 49 20 26 33 31 0d 05  00 10 4c 44 52 20 52 31  |WI &31....LDR R1|
00000940  32 2c 62 61 73 65 0d 05  0a 10 4c 44 52 20 52 31  |2,base....LDR R1|
00000950  31 2c 73 69 7a 65 0d 05  14 13 41 44 44 20 52 31  |1,size....ADD R1|
00000960  31 2c 52 31 31 2c 52 31  32 0d 05 1e 0f 4c 44 52  |1,R11,R12....LDR|
00000970  20 52 31 30 2c 74 5f 61  0d 05 28 09 2e 6c 6f 6f  | R10,t_a..(..loo|
00000980  70 0d 05 32 16 4c 44 4d  49 41 20 52 31 32 21 2c  |p..2.LDMIA R12!,|
00000990  7b 52 30 2d 52 39 7d 0d  05 3c 16 53 54 4d 49 41  |{R0-R9}..<.STMIA|
000009a0  20 52 31 30 21 2c 7b 52  30 2d 52 39 7d 0d 05 46  | R10!,{R0-R9}..F|
000009b0  0f 43 4d 50 20 52 31 32  2c 52 31 31 0d 05 50 0c  |.CMP R12,R11..P.|
000009c0  42 4c 54 20 6c 6f 6f 70  0d 05 5a 0e 4d 4f 56 20  |BLT loop..Z.MOV |
000009d0  50 43 2c 52 31 34 0d 05  64 04 0d 05 6e 0e 2e 74  |PC,R14..d...n..t|
000009e0  6f 5f 73 63 72 65 65 6e  0d 05 78 0e 41 44 52 20  |o_screen..x.ADR |
000009f0  52 30 2c 73 63 72 0d 05  82 0f 41 44 52 20 52 31  |R0,scr....ADR R1|
00000a00  2c 62 61 73 65 0d 05 8c  0b 53 57 49 20 26 33 31  |,base....SWI &31|
00000a10  0d 05 96 10 4c 44 52 20  52 31 32 2c 62 61 73 65  |....LDR R12,base|
00000a20  0d 05 a0 10 4c 44 52 20  52 31 31 2c 73 69 7a 65  |....LDR R11,size|
00000a30  0d 05 aa 13 41 44 44 20  52 31 31 2c 52 31 31 2c  |....ADD R11,R11,|
00000a40  52 31 32 0d 05 b4 0f 4c  44 52 20 52 31 30 2c 74  |R12....LDR R10,t|
00000a50  5f 61 0d 05 be 09 2e 6c  6f 6f 70 0d 05 c8 16 4c  |_a.....loop....L|
00000a60  44 4d 49 41 20 52 31 30  21 2c 7b 52 30 2d 52 39  |DMIA R10!,{R0-R9|
00000a70  7d 0d 05 d2 16 53 54 4d  49 41 20 52 31 32 21 2c  |}....STMIA R12!,|
00000a80  7b 52 30 2d 52 39 7d 0d  05 dc 0f 43 4d 50 20 52  |{R0-R9}....CMP R|
00000a90  31 32 2c 52 31 31 0d 05  e6 0c 42 4c 54 20 6c 6f  |12,R11....BLT lo|
00000aa0  6f 70 0d 05 f0 0e 4d 4f  56 20 50 43 2c 52 31 34  |op....MOV PC,R14|
00000ab0  0d 05 fa 04 0d 06 04 11  2e 73 63 72 20 45 51 55  |.........scr EQU|
00000ac0  44 20 31 34 38 0d 06 0e  10 20 20 20 20 20 45 51  |D 148....     EQ|
00000ad0  55 44 20 2d 31 0d 06 18  04 0d 06 22 10 2e 62 61  |UD -1......"..ba|
00000ae0  73 65 20 45 51 55 44 20  30 0d 06 2c 1a 2e 73 69  |se EQUD 0..,..si|
00000af0  7a 65 20 45 51 55 44 20  28 36 34 30 2a 34 38 30  |ze EQUD (640*480|
00000b00  29 2f 32 0d 06 36 15 2e  74 5f 61 20 20 45 51 55  |)/2..6..t_a  EQU|
00000b10  44 20 74 72 61 63 6b 25  0d 06 40 05 5d 0d 06 4a  |D track%..@.]..J|
00000b20  34 e7 20 70 61 73 73 3d  30 20 8c 20 c8 99 20 26  |4. pass=0 . .. &|
00000b30  33 31 2c 73 63 72 2c 62  61 73 65 3a de 20 74 72  |31,scr,base:. tr|
00000b40  61 63 6b 25 20 28 21 73  69 7a 65 29 20 2b 20 31  |ack% (!size) + 1|
00000b50  32 0d 06 54 0a ed 20 70  61 73 73 0d 06 5e 05 e1  |2..T.. pass..^..|
00000b60  0d 06 68 05 3a 0d 06 72  0d dc 20 39 30 30 2c 31  |..h.:..r.. 900,1|
00000b70  38 30 0d 06 7c 0d dc 20  39 30 30 2c 31 32 30 0d  |80..|.. 900,120.|
00000b80  06 86 0d dc 20 38 35 30  2c 31 38 30 0d 06 90 0d  |.... 850,180....|
00000b90  dc 20 38 35 30 2c 31 32  30 0d 06 9a 0d dc 20 38  |. 850,120..... 8|
00000ba0  30 30 2c 31 38 30 0d 06  a4 0d dc 20 38 30 30 2c  |00,180..... 800,|
00000bb0  31 32 30 0d 06 ae 0d dc  20 37 35 30 2c 31 38 30  |120..... 750,180|
00000bc0  0d 06 b8 0d dc 20 37 35  30 2c 31 32 30 0d 06 c2  |..... 750,120...|
00000bd0  0d dc 20 36 30 30 2c 31  38 30 0d 06 cc 0d dc 20  |.. 600,180..... |
00000be0  36 30 30 2c 31 32 30 0d  06 d6 05 3a 0d 06 e0 10  |600,120....:....|
00000bf0  dd f2 64 72 61 77 5f 74  72 61 63 6b 0d 06 ea 0d  |..draw_track....|
00000c00  ea 20 52 2c 58 2c 59 2c  41 0d 06 f4 08 41 3d 39  |. R,X,Y,A....A=9|
00000c10  30 0d 06 fe 10 fb 20 31  30 2c 30 2c 32 35 35 2c  |0..... 10,0,255,|
00000c20  30 0d 07 08 11 fb 20 39  2c 30 2c 31 32 38 2c 32  |0..... 9,0,128,2|
00000c30  35 35 0d 07 12 08 e6 20  31 30 0d 07 1c 15 c8 93  |55..... 10......|
00000c40  c8 90 20 30 2c 30 2c 31  32 37 39 2c 39 35 39 0d  |.. 0,0,1279,959.|
00000c50  07 26 07 e6 20 30 0d 07  30 0a 52 20 3d 20 36 30  |.&.. 0..0.R = 60|
00000c60  0d 07 3a 0b 58 20 3d 20  36 34 30 0d 07 44 0b 59  |..:.X = 640..D.Y|
00000c70  20 3d 20 31 35 30 0d 07  4e 0e c8 8f c8 90 20 58  | = 150..N..... X|
00000c80  2c 59 2c 52 0d 07 58 05  f5 0d 07 62 0e e7 20 a6  |,Y,R..X....b.. .|
00000c90  28 2d 38 30 29 20 8c 0d  07 6c 14 e7 20 a6 28 2d  |(-80) ...l.. .(-|
00000ca0  39 38 29 20 8c 20 41 3d  41 2d 33 0d 07 76 14 e7  |98) . A=A-3..v..|
00000cb0  20 a6 28 2d 36 37 29 20  8c 20 41 3d 41 2b 33 0d  | .(-67) . A=A+3.|
00000cc0  07 80 0d 58 3d 58 2b b5  b2 41 2a 36 0d 07 8a 0d  |...X=X+..A*6....|
00000cd0  59 3d 59 2b 9b b2 41 2a  36 0d 07 94 07 54 3d 91  |Y=Y+..A*6....T=.|
00000ce0  0d 07 9e 0b f5 fd 54 2b  32 3c 91 0d 07 a8 04 0d  |......T+2<......|
00000cf0  07 b2 0e c8 8f c8 90 20  58 2c 59 2c 52 0d 07 bc  |....... X,Y,R...|
00000d00  05 cd 0d 07 c6 0c fd 20  a6 28 2d 39 39 29 0d 07  |....... .(-99)..|
00000d10  d0 11 d6 20 66 72 6f 6d  5f 73 63 72 65 65 6e 0d  |... from_screen.|
00000d20  07 da 05 e1 0d ff                                 |......|
00000d26