� �:� �:�
2� "Click select to draw another plasma field."
#� "Click adjust to run tunnel."
(9� "Move mouse left and right to change the palette."'
2�
<$� "Grid size (1,2,3,4,5)";power%
F"� power%<1 � power%>5 power%=4
P� 15
Z� 13
d�
n
xsize%=2^power%
�
�xs%=(64/size%)-1
�ys%=(64/size%)-1
�
�� screen% 8
�� table%  256
�� prog%   8192
�� yblock% xs%*4
�� sblock% xs%*4
�� seed%   16
�� back%   81920
�� sprite% 128*128
�� quarter% 8192

� off% 256*256*4

� plot% 8192

� temp% 256

"

,!seed%=�

6
seed%!4=�

@

J
�table

T

^!screen%=148

hscreen%!4=-1

r,ș "OS_ReadVduVariables",screen%,screen%

|screen%=!screen%+32

�

��quarter

��plasma

�	�plot

�

�!� "Calculating look up table"

�� y%=-128 � -1

�� x%=1 � 128

�ang=270

�� �x%>0 ang=��(y%/x%)+360

�c=��ang

�s=��ang

�ang=(ang-270)*64/90

a%=ang*10
&� a% � 10>=5 ang%=ang+1 � ang%=ang
ang%=ang% � 63
&
0r%=0
:7� �x%>0 r%=(c*(2^13)/x%) � � �y%>0 r%=(s*(2^13)/y%)
Dr%=r% � 63
N/off%!((x%+127+(y%+128)*256)*4)=(ang%*64)+r%
X�
b� �0,1)�y%
l�
v�
�
�� quarter%
�� prog%
�� plot%
��
�
�
�
���table
�� r%=0 � 15
�� table%?(r%)
��
�� r%=16 � 31
table%?(r%)=table%?(31-r%)
�
� r%=32 � 43
 � table%?(r%)
*�
4� r%=44 � 55
>table%?(r%)=table%?(87-r%)
H�
R� rep%=56 � 237 � 20
\� r%=rep% � rep%+9
f� table%?(r%)
p�
z� r%=rep%+10 � rep%+19
�%table%?r%=table%?((2*rep%+19)-r%)
��
��
�9� 0,1,2,3,44,45,46,47,208,209,210,211,252,253,254,255
�)� 4,5,6,7,56,57,58,59,212,213,214,215
�*� 12,13,14,144,145,146,156,157,158,159
�$� 4,5,6,24,25,26,148,149,150,151
�*� 40,41,42,192,193,194,232,233,234,235
�$� 4,5,6,24,25,26,148,149,150,151
�(� 8,9,10,132,133,134,152,153,154,155
�(� 8,9,10,128,129,130,136,137,138,139
�'� 36,37,38,80,81,82,116,117,118,119
�'� 32,33,34,72,73,74,224,225,226,227
*� 12,13,14,144,145,146,156,157,158,159
 � 4,5,6,48,49,50,84,85,86,87
�
$
.ݤmapword(reg)
8[OPT pass%
B ADD R14,reg,R8
L � R14,R14,#255
V LDRB R14,[R0,R14]
`
j ADD R12,reg,R8,LSL#8
t � R12,R12,#255<<8
~ LDRB R12,[R0,R12,LSR#8]
� ADD R14,R14,R12,LSL#8
�
� ADD R12,reg,R8,LSL#16
� � R12,R12,#255<<16
� LDRB R12,[R0,R12,LSR#16]
� ADD R14,R14,R12,LSL#16
� 
� ADD R12,reg,R8,LSL#24
� LDRB R12,[R0,R12,LSR#24]
� ADD reg,R14,R12,LSL#24
�]
�=""


��plasma
screen=0

loop=1
(r=2
2y=3
<s=4
Fp=5
Pq=6
Za=7
db=8
nc=9
xd=10
�x=11
�
pos=12
�
�� pass%=0 � 2 � 2
�P%=prog%
�[OPT pass%
�
�.tableat  EQUD table%
�.screenat EQUD screen%
�.yblock   EQUD yblock%
�.sblock   EQUD sblock%
�.seedat   EQUD seed%
�.backat   EQUD back%
.spriteat EQUD sprite%

 STMFD R13!,{R14}
"
,.progstart
6
@ MOV loop,#0
J.mainxloop
T
 MOV r,#0
^ LDR y,yblock
h LDR s,sblock
r.randomloop
| 
� STMFD R13!,{R3-R5}      ;
� LDR R5,seedat           ;
� LDMIA R5,{R3,R4}        ;
� MOVS R4,R4,LSR #1       ;
� MOVS R0,R3,RRX          ;
�# ADC R4,R4,R4            ; R0=�
� � R0,R0,R3,LSL #12    ;
� � R0,R0,R0,LSR #20    ;
� STMIA R5,{R0,R4}        ;
� LDMFD R13!,{R3-R5}      ;
�
� � R0,R0,#127
� ADD R0,R0,#64
 STR R0,[y,r,LSL#2]
 
 ADD r,r,#1
& CMP r,#xs%
0BLE randomloop
:
D
 MOV r,#0
N.gradientloop1
X ADD p,r,#1
b CMP p,#xs%+1
l �Q p,#0
v SUB q,r,#1
�
 CMP q,#0
� MOVLT q,#xs%
� 
� LDR p,[y,p,LSL#2]
� LDR q,[y,q,LSL#2]
� SUB p,p,q
� MOV p,p,ASR#1
� STR p,[s,r,LSL#2]
� 
� ADD r,r,#1
� CMP r,#xs%
�BLE gradientloop1
�
 LDR screen,screenat

 MOV r,#0
.plotacross
  ADD p,r,#1
* CMP p,#xs%+1
4 �Q p,#0
> 
H LDR a,[y,r,LSL#2]
R LDR b,[y,p,LSL#2]
\ SUB c,b,a
f SUB d,a,b
p ADD c,c,c,LSL#1
z LDR b,[s,r,LSL#2]
� SUB c,c,b,LSL#1
� LDR b,[s,p,LSL#2]
� SUB c,c,b
� MOV c,c,LSL#power%
� 
� MOV d,d,LSL#1
� ADD d,d,b
� LDR b,[s,r,LSL#2]
� ADD d,d,b
� 
� MOV a,a,LSL#power%*3
� MOV b,b,LSL#power%*2
� 
	
 MOV x,#0
	.xloop1
	
	$ MLA p,b,x,a
	. MUL q,c,x
	8 MLA p,q,x,p
	B MUL q,x,d
	L MUL q,x,q
	V MLA p,q,x,p
	` MOV p,p,ASR#power%*3
	j
	t ADD pos,loop,loop,LSL#2
	~ ADD pos,x,pos,LSL#6
	� ADD pos,pos,r,LSL#power%
	�
	� STRB p,[screen,pos]
	� 
	� ADD x,x,#1
	� CMP x,#size%-1
	�BLE xloop1
	�
	� ADD r,r,#1
	� CMP r,#xs%
	�BLE plotacross
	�
 ADD loop,loop,#size%

 CMP loop,#ys%*size%
BLE mainxloop

(
2 MOV loop,#0
<.mainyloop
F
 MOV r,#0
P
.getpoint
Z MOV pos,#size%*320
d MLA pos,r,pos,loop
n LDRB p,[screen,pos]
x STR p,[y,r,LSL#2]
� ADD r,r,#1
� CMP r,#ys%
�BLE getpoint
�
�
 MOV r,#0
�.gradientloop2
� ADD p,r,#1
� CMP p,#ys%+1
� �Q p,#0
� SUB q,r,#1
�
 CMP q,#0
� MOVLT q,#ys%
� 
 LDR p,[y,p,LSL#2]
 LDR q,[y,q,LSL#2]
 SUB p,p,q
" MOV p,p,ASR#1
, STR p,[s,r,LSL#2]
6 ADD r,r,#1
@ CMP r,#ys%
JBLE gradientloop2
T
^
 MOV r,#0
h.plotup
r ADD p,r,#1
| CMP p,#ys%+1
� �Q p,#0
� 
� LDR a,[y,r,LSL#2]
� LDR b,[y,p,LSL#2]
� SUB c,b,a
� SUB d,a,b
� ADD c,c,c,LSL#1
� LDR b,[s,r,LSL#2]
� SUB c,c,b,LSL#1
� LDR b,[s,p,LSL#2]
� SUB c,c,b
� MOV c,c,LSL#power%
� 
 MOV d,d,LSL#1
 ADD d,d,b
 LDR b,[s,r,LSL#2]
& ADD d,d,b
0 
: MOV a,a,LSL#power%*3
D MOV b,b,LSL#power%*2
N 
X
 MOV x,#1
b.xloop2
l
v MLA p,b,x,a
� MUL q,c,x
� MLA p,q,x,p
� MUL q,x,d
� MUL q,x,q
� MLA p,q,x,p
� MOV p,p,ASR#power%*3
�
� ADD pos,x,r,LSL#power%
� ADD pos,pos,pos,LSL#2
� ADD pos,loop,pos,LSL#6
�
� STRB p,[screen,pos]
� 

 ADD x,x,#1

 CMP x,#size%-1

BLE xloop2

 

* ADD r,r,#1

4 CMP r,#ys%

>BLE plotup

H

R ADD loop,loop,#1

\ CMP loop,#(xs%+1)*size%

fBLT mainyloop

p

z LDR R1,screenat

� ADD R2,R1,#81920

� LDR R11,backat

� 

�.screen2back

� LDMIA R1!,{R3-R10}

� STMIA R11!,{R3-R10}

� CMP R1,R2

�BLT screen2back

�

�

� LDR R0,tableat

� MOV R8,#0 

�.cyclepalette
 LDR R1,screenat
 ADD R2,R1,#320*64
 LDR R11,backat
$.cycleloop
. LDMIA R11!,{R3-R6}
8 �mapword(3)
B �mapword(4)
L �mapword(5)
V �mapword(6)
` STMIA R1!,{R3-R6}
j LDMIA R11!,{R3-R6}
t �mapword(3)
~ �mapword(4)
� �mapword(5)
� �mapword(6)
� STMIA R1!,{R3-R6}
� LDMIA R11!,{R3-R6}
� �mapword(3)
� �mapword(4)
� �mapword(5)
� �mapword(6)
� STMIA R1!,{R3-R6}
� LDMIA R11!,{R3-R6}
� �mapword(3)
� �mapword(4)
 �mapword(5)

 �mapword(6)
 STMIA R1!,{R3-R6}
 ADD R1,R1,#256
( ADD R11,R11,#256
2 CMP R1,R2
<BLT cycleloop
F
P  
Z STMFD R13!,{R0-R3}
d MOV R0,#19
n SWI "OS_Byte"
x SWI "OS_Mouse"
� MOV R8,R0,LSR#2
� MOV R14,R2
� LDMFD R13!,{R0-R3}
�
� CMP R14,#4
�BEQ progstart
�
� CMP R14,#1
�BEQ endprog
�
�B cyclepalette
�
�.endprog

 LDR R0,screenat
 LDR R1,spriteat
" MOV R2,#64
,.screen2sprite
6 LDMIA R0!,{R3-R12}
@ STMIA R1!,{R3-R12}
J LDMIA R0!,{R3-R8}
T STMIA R1!,{R3-R8}
^ ADD R0,R0,#256
h SUBS R2,R2,#1
rBNE screen2sprite
|
� LDMFD R13!,{PC}
�]
��
��
�
�
��quarter
�	off=0
�x=2
�y=3
�
pos1=4
�
pos2=5
�
data=6
�
� pass%=0 � 2 � 2
P%=quarter%
[OPT pass%
&.offat   EQUD off%
0
: LDR off,offat
D 
N
 MOV y,#0
X.yloop1
b
 MOV x,#0
l.xloop1
v ADD pos1,x,y,LSL#8
� RSB pos2,y,#255
� ADD pos2,pos2,x,LSL#8
� LDR data,[off,pos2,LSL#2]
� STR data,[off,pos1,LSL#2]
� ADD x,x,#1
� CMP x,#127
�BLE xloop1
� ADD y,y,#1
� CMP y,#127
�BLE yloop1
�
�
 MOV y,#0
�.yloop2

 MOV x,#0
.xloop2
 ADD pos1,y,#128
  ADD pos1,x,pos1,LSL#8
* RSB pos2,x,#255
4 RSB data,y,#127
> ADD pos2,pos2,data,LSL#8
H LDR data,[off,pos2,LSL#2]
R STR data,[off,pos1,LSL#2]
\ ADD x,x,#1
f CMP x,#127
pBLE xloop2
z ADD y,y,#1
� CMP y,#127
�BLE yloop2
�
�
 MOV y,#0
�.yloop3
�
 MOV x,#0
�.xloop3
� ADD pos1,y,#128
� ADD pos1,x,pos1,LSL#8
� ADD pos1,pos1,#128
� RSB pos2,x,#127
� ADD pos2,y,pos2,LSL#8
� ADD pos2,pos2,#128
 LDR data,[off,pos2,LSL#2]
 STR data,[off,pos1,LSL#2]
 ADD x,x,#1
$ CMP x,#127
.BLE xloop3
8 ADD y,y,#1
B CMP y,#127
LBLE yloop3
V
` MOV PC,R14
j]
t�
~�
�
�
��plot
�screen=0
�y=1
�a=2
�	off=3
�sprite=4
�
�� pass%=0 � 2 � 2
�P%=plot%
�[OPT pass%
�
.adrat    EQUD screen%

.screenat EQUD screen%
.spriteat EQUD sprite%
.offat    EQUD off%
(.tempat   EQUD temp%
2.bankat   EQUD 1
<
F
P STMFD R13!,{R14}
Z
d
.progloop
n
x LDR R1,bankat
� LDR R0,adrat
� SUB R4,R1,#1
� MOV R2,#81920
� MLA R3,R4,R2,R0
� STR R3,screenat
� � R1,R1,#3
� STR R1,bankat
� 
� MOV R0,#113
� LDR R1,bankat
� SWI "OS_Byte"
� 
� MOV R0,#19
 SWI "OS_Byte"

 LDR screen,screenat
" LDR off,offat
, LDR sprite,spriteat
6 
@ MOV y,#256
J
.yloop
T]
^
h � r%=1 � 8
r[OPT pass%
| �mapwords(5)
� �mapwords(6)
� �mapwords(7)
� �mapwords(8)
� �mapwords(9)
� �mapwords(10)
� �mapwords(11)
� �mapwords(12)
� STMIA (screen)!,{R5-R12}
�]
��
�
�[OPT pass%
� ADD screen,screen,#64
 SUBS y,y,#1

BNE yloop

& LDR R0,spriteat
0 LDR R1,tempat
: LDMIA R0!,{R3-R12}
D STMIA R1!,{R3-R12}
N LDMIA R0!,{R3-R8}
X STMIA R1!,{R3-R8}
b 
l MOV R2,#63
v.twistloop
� LDMIA R0,{R3-R12}
� SUB R0,R0,#64
� STMIA R0!,{R3-R12}
� ADD R0,R0,#64
� LDMIA R0,{R3-R8}
� SUB R0,R0,#64
� STMIA R0!,{R3-R8}
� ADD R0,R0,#64
� SUBS R2,R2,#1
�BNE twistloop
� LDR R0,spriteat
� LDR R1,tempat
� ADD R0,R0,#63*64
 LDMIA R1!,{R3-R12}
 STMIA R0!,{R3-R12}
 LDMIA R1!,{R3-R8}
  STMIA R0!,{R3-R8}
*
4 LDR R0,spriteat
> MOV R1,#64
H
.intoloop
R LDMIA R0,{R3-R12}
\ MOV R14,R3
f MOV R3,R4
p MOV R4,R5
z MOV R5,R6
� MOV R6,R7
� MOV R7,R8
� MOV R8,R9
� MOV R9,R10
� MOV R10,R11
� MOV R11,R12
� STMIA R0!,{R3-R11}
� LDMIA R0,{R3-R9}
� MOV R3,R4
� MOV R4,R5
� MOV R5,R6
� MOV R6,R7
� MOV R7,R8
 MOV R8,R9
 MOV R9,R14 
 STMIA R0!,{R3-R9}
$ SUBS R1,R1,#1
.BNE intoloop
8
B 
L SWI "OS_ReadEscapeState"
VBCC progloop
` 
j LDMFD R13!,{PC}
t]
~�
��
�
�ݤmapwords(reg)
�[OPT pass%
� LDMIA (off)!,{a,R14}
� LDRB reg,[sprite,a]
� LDRB a,[sprite,R14]
� ADD reg,reg,a,LSL#8
� LDMIA (off)!,{a,R14}
� LDRB a,[sprite,a]
� ADD reg,reg,a,LSL#16
� LDRB a,[sprite,R14]
 ADD reg,reg,a,LSL#24

]
=""
�

00000000  0d 00 0a 0e ee 85 20 f6  3a f1 20 9e 3a e0 0d 00  |...... .:. .:...|
00000010  14 32 f1 20 22 43 6c 69  63 6b 20 73 65 6c 65 63  |.2. "Click selec|
00000020  74 20 74 6f 20 64 72 61  77 20 61 6e 6f 74 68 65  |t to draw anothe|
00000030  72 20 70 6c 61 73 6d 61  20 66 69 65 6c 64 2e 22  |r plasma field."|
00000040  0d 00 1e 23 f1 20 22 43  6c 69 63 6b 20 61 64 6a  |...#. "Click adj|
00000050  75 73 74 20 74 6f 20 72  75 6e 20 74 75 6e 6e 65  |ust to run tunne|
00000060  6c 2e 22 0d 00 28 39 f1  20 22 4d 6f 76 65 20 6d  |l."..(9. "Move m|
00000070  6f 75 73 65 20 6c 65 66  74 20 61 6e 64 20 72 69  |ouse left and ri|
00000080  67 68 74 20 74 6f 20 63  68 61 6e 67 65 20 74 68  |ght to change th|
00000090  65 20 70 61 6c 65 74 74  65 2e 22 27 0d 00 32 05  |e palette."'..2.|
000000a0  f5 0d 00 3c 24 e8 20 22  47 72 69 64 20 73 69 7a  |...<$. "Grid siz|
000000b0  65 20 28 31 2c 32 2c 33  2c 34 2c 35 29 22 3b 70  |e (1,2,3,4,5)";p|
000000c0  6f 77 65 72 25 0d 00 46  22 e7 20 70 6f 77 65 72  |ower%..F". power|
000000d0  25 3c 31 20 84 20 70 6f  77 65 72 25 3e 35 20 70  |%<1 . power%>5 p|
000000e0  6f 77 65 72 25 3d 34 0d  00 50 08 eb 20 31 35 0d  |ower%=4..P.. 15.|
000000f0  00 5a 08 eb 20 31 33 0d  00 64 05 87 0d 00 6e 04  |.Z.. 13..d....n.|
00000100  0d 00 78 12 73 69 7a 65  25 3d 32 5e 70 6f 77 65  |..x.size%=2^powe|
00000110  72 25 0d 00 82 04 0d 00  8c 14 78 73 25 3d 28 36  |r%........xs%=(6|
00000120  34 2f 73 69 7a 65 25 29  2d 31 0d 00 96 14 79 73  |4/size%)-1....ys|
00000130  25 3d 28 36 34 2f 73 69  7a 65 25 29 2d 31 0d 00  |%=(64/size%)-1..|
00000140  a0 04 0d 00 aa 0f de 20  73 63 72 65 65 6e 25 20  |....... screen% |
00000150  38 0d 00 b4 11 de 20 74  61 62 6c 65 25 20 20 32  |8..... table%  2|
00000160  35 36 0d 00 be 12 de 20  70 72 6f 67 25 20 20 20  |56..... prog%   |
00000170  38 31 39 32 0d 00 c8 13  de 20 79 62 6c 6f 63 6b  |8192..... yblock|
00000180  25 20 78 73 25 2a 34 0d  00 d2 13 de 20 73 62 6c  |% xs%*4..... sbl|
00000190  6f 63 6b 25 20 78 73 25  2a 34 0d 00 dc 10 de 20  |ock% xs%*4..... |
000001a0  73 65 65 64 25 20 20 20  31 36 0d 00 e6 13 de 20  |seed%   16..... |
000001b0  62 61 63 6b 25 20 20 20  38 31 39 32 30 0d 00 f0  |back%   81920...|
000001c0  15 de 20 73 70 72 69 74  65 25 20 31 32 38 2a 31  |.. sprite% 128*1|
000001d0  32 38 0d 00 fa 13 de 20  71 75 61 72 74 65 72 25  |28..... quarter%|
000001e0  20 38 31 39 32 0d 01 04  14 de 20 6f 66 66 25 20  | 8192..... off% |
000001f0  32 35 36 2a 32 35 36 2a  34 0d 01 0e 10 de 20 70  |256*256*4..... p|
00000200  6c 6f 74 25 20 38 31 39  32 0d 01 18 0f de 20 74  |lot% 8192..... t|
00000210  65 6d 70 25 20 32 35 36  0d 01 22 04 0d 01 2c 0c  |emp% 256.."...,.|
00000220  21 73 65 65 64 25 3d b3  0d 01 36 0d 73 65 65 64  |!seed%=...6.seed|
00000230  25 21 34 3d b3 0d 01 40  04 0d 01 4a 0a f2 74 61  |%!4=...@...J..ta|
00000240  62 6c 65 0d 01 54 04 0d  01 5e 10 21 73 63 72 65  |ble..T...^.!scre|
00000250  65 6e 25 3d 31 34 38 0d  01 68 10 73 63 72 65 65  |en%=148..h.scree|
00000260  6e 25 21 34 3d 2d 31 0d  01 72 2c c8 99 20 22 4f  |n%!4=-1..r,.. "O|
00000270  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
00000280  65 73 22 2c 73 63 72 65  65 6e 25 2c 73 63 72 65  |es",screen%,scre|
00000290  65 6e 25 0d 01 7c 17 73  63 72 65 65 6e 25 3d 21  |en%..|.screen%=!|
000002a0  73 63 72 65 65 6e 25 2b  33 32 0d 01 86 04 0d 01  |screen%+32......|
000002b0  87 0c f2 71 75 61 72 74  65 72 0d 01 90 0b f2 70  |...quarter.....p|
000002c0  6c 61 73 6d 61 0d 01 a4  09 f2 70 6c 6f 74 0d 01  |lasma.....plot..|
000002d0  ae 04 0d 01 b8 21 f1 20  22 43 61 6c 63 75 6c 61  |.....!. "Calcula|
000002e0  74 69 6e 67 20 6c 6f 6f  6b 20 75 70 20 74 61 62  |ting look up tab|
000002f0  6c 65 22 0d 01 c2 12 e3  20 79 25 3d 2d 31 32 38  |le"..... y%=-128|
00000300  20 b8 20 2d 31 0d 01 cc  10 e3 20 78 25 3d 31 20  | . -1..... x%=1 |
00000310  b8 20 31 32 38 0d 01 d6  0b 61 6e 67 3d 32 37 30  |. 128....ang=270|
00000320  0d 01 e0 1d e7 20 94 78  25 3e 30 20 61 6e 67 3d  |..... .x%>0 ang=|
00000330  9d 99 28 79 25 2f 78 25  29 2b 33 36 30 0d 01 ea  |..(y%/x%)+360...|
00000340  0b 63 3d 9b b2 61 6e 67  0d 01 f4 0b 73 3d b5 b2  |.c=..ang....s=..|
00000350  61 6e 67 0d 01 fe 17 61  6e 67 3d 28 61 6e 67 2d  |ang....ang=(ang-|
00000360  32 37 30 29 2a 36 34 2f  39 30 0d 02 08 0d 61 25  |270)*64/90....a%|
00000370  3d 61 6e 67 2a 31 30 0d  02 12 26 e7 20 61 25 20  |=ang*10...&. a% |
00000380  83 20 31 30 3e 3d 35 20  61 6e 67 25 3d 61 6e 67  |. 10>=5 ang%=ang|
00000390  2b 31 20 8b 20 61 6e 67  25 3d 61 6e 67 0d 02 1c  |+1 . ang%=ang...|
000003a0  12 61 6e 67 25 3d 61 6e  67 25 20 80 20 36 33 0d  |.ang%=ang% . 63.|
000003b0  02 26 04 0d 02 30 08 72  25 3d 30 0d 02 3a 37 e7  |.&...0.r%=0..:7.|
000003c0  20 94 78 25 3e 30 20 72  25 3d 28 63 2a 28 32 5e  | .x%>0 r%=(c*(2^|
000003d0  31 33 29 2f 78 25 29 20  8b 20 e7 20 94 79 25 3e  |13)/x%) . . .y%>|
000003e0  30 20 72 25 3d 28 73 2a  28 32 5e 31 33 29 2f 79  |0 r%=(s*(2^13)/y|
000003f0  25 29 0d 02 44 0e 72 25  3d 72 25 20 80 20 36 33  |%)..D.r%=r% . 63|
00000400  0d 02 4e 2f 6f 66 66 25  21 28 28 78 25 2b 31 32  |..N/off%!((x%+12|
00000410  37 2b 28 79 25 2b 31 32  38 29 2a 32 35 36 29 2a  |7+(y%+128)*256)*|
00000420  34 29 3d 28 61 6e 67 25  2a 36 34 29 2b 72 25 0d  |4)=(ang%*64)+r%.|
00000430  02 58 05 ed 0d 02 62 0e  f1 20 8a 30 2c 31 29 94  |.X....b.. .0,1).|
00000440  79 25 0d 02 6c 05 ed 0d  02 76 05 db 0d 02 80 04  |y%..l....v......|
00000450  0d 02 8a 0e d6 20 71 75  61 72 74 65 72 25 0d 02  |..... quarter%..|
00000460  94 0b d6 20 70 72 6f 67  25 0d 02 9e 0b d6 20 70  |... prog%..... p|
00000470  6c 6f 74 25 0d 02 a8 05  e0 0d 02 b2 04 0d 02 bc  |lot%............|
00000480  04 0d 02 c6 04 0d 02 d0  0b dd f2 74 61 62 6c 65  |...........table|
00000490  0d 02 da 0f e3 20 72 25  3d 30 20 b8 20 31 35 0d  |..... r%=0 . 15.|
000004a0  02 e4 11 f3 20 74 61 62  6c 65 25 3f 28 72 25 29  |.... table%?(r%)|
000004b0  0d 02 ee 05 ed 0d 02 f8  10 e3 20 72 25 3d 31 36  |.......... r%=16|
000004c0  20 b8 20 33 31 0d 03 02  1e 74 61 62 6c 65 25 3f  | . 31....table%?|
000004d0  28 72 25 29 3d 74 61 62  6c 65 25 3f 28 33 31 2d  |(r%)=table%?(31-|
000004e0  72 25 29 0d 03 0c 05 ed  0d 03 16 10 e3 20 72 25  |r%).......... r%|
000004f0  3d 33 32 20 b8 20 34 33  0d 03 20 11 f3 20 74 61  |=32 . 43.. .. ta|
00000500  62 6c 65 25 3f 28 72 25  29 0d 03 2a 05 ed 0d 03  |ble%?(r%)..*....|
00000510  34 10 e3 20 72 25 3d 34  34 20 b8 20 35 35 0d 03  |4.. r%=44 . 55..|
00000520  3e 1e 74 61 62 6c 65 25  3f 28 72 25 29 3d 74 61  |>.table%?(r%)=ta|
00000530  62 6c 65 25 3f 28 38 37  2d 72 25 29 0d 03 48 05  |ble%?(87-r%)..H.|
00000540  ed 0d 03 52 18 e3 20 72  65 70 25 3d 35 36 20 b8  |...R.. rep%=56 .|
00000550  20 32 33 37 20 88 20 32  30 0d 03 5c 16 e3 20 72  | 237 . 20..\.. r|
00000560  25 3d 72 65 70 25 20 b8  20 72 65 70 25 2b 39 0d  |%=rep% . rep%+9.|
00000570  03 66 11 f3 20 74 61 62  6c 65 25 3f 28 72 25 29  |.f.. table%?(r%)|
00000580  0d 03 70 05 ed 0d 03 7a  1a e3 20 72 25 3d 72 65  |..p....z.. r%=re|
00000590  70 25 2b 31 30 20 b8 20  72 65 70 25 2b 31 39 0d  |p%+10 . rep%+19.|
000005a0  03 84 25 74 61 62 6c 65  25 3f 72 25 3d 74 61 62  |..%table%?r%=tab|
000005b0  6c 65 25 3f 28 28 32 2a  72 65 70 25 2b 31 39 29  |le%?((2*rep%+19)|
000005c0  2d 72 25 29 0d 03 8e 05  ed 0d 03 98 05 ed 0d 03  |-r%)............|
000005d0  a2 39 dc 20 30 2c 31 2c  32 2c 33 2c 34 34 2c 34  |.9. 0,1,2,3,44,4|
000005e0  35 2c 34 36 2c 34 37 2c  32 30 38 2c 32 30 39 2c  |5,46,47,208,209,|
000005f0  32 31 30 2c 32 31 31 2c  32 35 32 2c 32 35 33 2c  |210,211,252,253,|
00000600  32 35 34 2c 32 35 35 0d  03 ac 29 dc 20 34 2c 35  |254,255...). 4,5|
00000610  2c 36 2c 37 2c 35 36 2c  35 37 2c 35 38 2c 35 39  |,6,7,56,57,58,59|
00000620  2c 32 31 32 2c 32 31 33  2c 32 31 34 2c 32 31 35  |,212,213,214,215|
00000630  0d 03 b6 2a dc 20 31 32  2c 31 33 2c 31 34 2c 31  |...*. 12,13,14,1|
00000640  34 34 2c 31 34 35 2c 31  34 36 2c 31 35 36 2c 31  |44,145,146,156,1|
00000650  35 37 2c 31 35 38 2c 31  35 39 0d 03 c0 24 dc 20  |57,158,159...$. |
00000660  34 2c 35 2c 36 2c 32 34  2c 32 35 2c 32 36 2c 31  |4,5,6,24,25,26,1|
00000670  34 38 2c 31 34 39 2c 31  35 30 2c 31 35 31 0d 03  |48,149,150,151..|
00000680  ca 2a dc 20 34 30 2c 34  31 2c 34 32 2c 31 39 32  |.*. 40,41,42,192|
00000690  2c 31 39 33 2c 31 39 34  2c 32 33 32 2c 32 33 33  |,193,194,232,233|
000006a0  2c 32 33 34 2c 32 33 35  0d 03 d4 24 dc 20 34 2c  |,234,235...$. 4,|
000006b0  35 2c 36 2c 32 34 2c 32  35 2c 32 36 2c 31 34 38  |5,6,24,25,26,148|
000006c0  2c 31 34 39 2c 31 35 30  2c 31 35 31 0d 03 de 28  |,149,150,151...(|
000006d0  dc 20 38 2c 39 2c 31 30  2c 31 33 32 2c 31 33 33  |. 8,9,10,132,133|
000006e0  2c 31 33 34 2c 31 35 32  2c 31 35 33 2c 31 35 34  |,134,152,153,154|
000006f0  2c 31 35 35 0d 03 e8 28  dc 20 38 2c 39 2c 31 30  |,155...(. 8,9,10|
00000700  2c 31 32 38 2c 31 32 39  2c 31 33 30 2c 31 33 36  |,128,129,130,136|
00000710  2c 31 33 37 2c 31 33 38  2c 31 33 39 0d 03 f2 27  |,137,138,139...'|
00000720  dc 20 33 36 2c 33 37 2c  33 38 2c 38 30 2c 38 31  |. 36,37,38,80,81|
00000730  2c 38 32 2c 31 31 36 2c  31 31 37 2c 31 31 38 2c  |,82,116,117,118,|
00000740  31 31 39 0d 03 fc 27 dc  20 33 32 2c 33 33 2c 33  |119...'. 32,33,3|
00000750  34 2c 37 32 2c 37 33 2c  37 34 2c 32 32 34 2c 32  |4,72,73,74,224,2|
00000760  32 35 2c 32 32 36 2c 32  32 37 0d 04 06 2a dc 20  |25,226,227...*. |
00000770  31 32 2c 31 33 2c 31 34  2c 31 34 34 2c 31 34 35  |12,13,14,144,145|
00000780  2c 31 34 36 2c 31 35 36  2c 31 35 37 2c 31 35 38  |,146,156,157,158|
00000790  2c 31 35 39 0d 04 10 20  dc 20 34 2c 35 2c 36 2c  |,159... . 4,5,6,|
000007a0  34 38 2c 34 39 2c 35 30  2c 38 34 2c 38 35 2c 38  |48,49,50,84,85,8|
000007b0  36 2c 38 37 0d 04 1a 05  e1 0d 04 24 04 0d 04 2e  |6,87.......$....|
000007c0  12 dd a4 6d 61 70 77 6f  72 64 28 72 65 67 29 0d  |...mapword(reg).|
000007d0  04 38 0e 5b 4f 50 54 20  70 61 73 73 25 0d 04 42  |.8.[OPT pass%..B|
000007e0  13 20 41 44 44 20 52 31  34 2c 72 65 67 2c 52 38  |. ADD R14,reg,R8|
000007f0  0d 04 4c 13 20 80 20 52  31 34 2c 52 31 34 2c 23  |..L. . R14,R14,#|
00000800  32 35 35 0d 04 56 16 20  4c 44 52 42 20 52 31 34  |255..V. LDRB R14|
00000810  2c 5b 52 30 2c 52 31 34  5d 0d 04 60 04 0d 04 6a  |,[R0,R14]..`...j|
00000820  19 20 41 44 44 20 52 31  32 2c 72 65 67 2c 52 38  |. ADD R12,reg,R8|
00000830  2c 4c 53 4c 23 38 0d 04  74 16 20 80 20 52 31 32  |,LSL#8..t. . R12|
00000840  2c 52 31 32 2c 23 32 35  35 3c 3c 38 0d 04 7e 1c  |,R12,#255<<8..~.|
00000850  20 4c 44 52 42 20 52 31  32 2c 5b 52 30 2c 52 31  | LDRB R12,[R0,R1|
00000860  32 2c 4c 53 52 23 38 5d  0d 04 88 1a 20 41 44 44  |2,LSR#8].... ADD|
00000870  20 52 31 34 2c 52 31 34  2c 52 31 32 2c 4c 53 4c  | R14,R14,R12,LSL|
00000880  23 38 0d 04 92 04 0d 04  9c 1a 20 41 44 44 20 52  |#8........ ADD R|
00000890  31 32 2c 72 65 67 2c 52  38 2c 4c 53 4c 23 31 36  |12,reg,R8,LSL#16|
000008a0  0d 04 a6 17 20 80 20 52  31 32 2c 52 31 32 2c 23  |.... . R12,R12,#|
000008b0  32 35 35 3c 3c 31 36 0d  04 b0 1d 20 4c 44 52 42  |255<<16.... LDRB|
000008c0  20 52 31 32 2c 5b 52 30  2c 52 31 32 2c 4c 53 52  | R12,[R0,R12,LSR|
000008d0  23 31 36 5d 0d 04 ba 1b  20 41 44 44 20 52 31 34  |#16].... ADD R14|
000008e0  2c 52 31 34 2c 52 31 32  2c 4c 53 4c 23 31 36 0d  |,R14,R12,LSL#16.|
000008f0  04 c4 05 20 0d 04 ce 1a  20 41 44 44 20 52 31 32  |... .... ADD R12|
00000900  2c 72 65 67 2c 52 38 2c  4c 53 4c 23 32 34 0d 04  |,reg,R8,LSL#24..|
00000910  d8 1d 20 4c 44 52 42 20  52 31 32 2c 5b 52 30 2c  |.. LDRB R12,[R0,|
00000920  52 31 32 2c 4c 53 52 23  32 34 5d 0d 04 e2 1b 20  |R12,LSR#24].... |
00000930  41 44 44 20 72 65 67 2c  52 31 34 2c 52 31 32 2c  |ADD reg,R14,R12,|
00000940  4c 53 4c 23 32 34 0d 04  ec 05 5d 0d 04 f6 07 3d  |LSL#24....]....=|
00000950  22 22 0d 05 00 04 0d 05  0a 0c dd f2 70 6c 61 73  |""..........plas|
00000960  6d 61 0d 05 14 0c 73 63  72 65 65 6e 3d 30 0d 05  |ma....screen=0..|
00000970  1e 0a 6c 6f 6f 70 3d 31  0d 05 28 07 72 3d 32 0d  |..loop=1..(.r=2.|
00000980  05 32 07 79 3d 33 0d 05  3c 07 73 3d 34 0d 05 46  |.2.y=3..<.s=4..F|
00000990  07 70 3d 35 0d 05 50 07  71 3d 36 0d 05 5a 07 61  |.p=5..P.q=6..Z.a|
000009a0  3d 37 0d 05 64 07 62 3d  38 0d 05 6e 07 63 3d 39  |=7..d.b=8..n.c=9|
000009b0  0d 05 78 08 64 3d 31 30  0d 05 82 08 78 3d 31 31  |..x.d=10....x=11|
000009c0  0d 05 8c 0a 70 6f 73 3d  31 32 0d 05 96 04 0d 05  |....pos=12......|
000009d0  a0 15 e3 20 70 61 73 73  25 3d 30 20 b8 20 32 20  |... pass%=0 . 2 |
000009e0  88 20 32 0d 05 aa 0c 50  25 3d 70 72 6f 67 25 0d  |. 2....P%=prog%.|
000009f0  05 b4 0e 5b 4f 50 54 20  70 61 73 73 25 0d 05 be  |...[OPT pass%...|
00000a00  04 0d 05 c8 19 2e 74 61  62 6c 65 61 74 20 20 45  |......tableat  E|
00000a10  51 55 44 20 74 61 62 6c  65 25 0d 05 d2 1a 2e 73  |QUD table%.....s|
00000a20  63 72 65 65 6e 61 74 20  45 51 55 44 20 73 63 72  |creenat EQUD scr|
00000a30  65 65 6e 25 0d 05 dc 1a  2e 79 62 6c 6f 63 6b 20  |een%.....yblock |
00000a40  20 20 45 51 55 44 20 79  62 6c 6f 63 6b 25 0d 05  |  EQUD yblock%..|
00000a50  e6 1a 2e 73 62 6c 6f 63  6b 20 20 20 45 51 55 44  |...sblock   EQUD|
00000a60  20 73 62 6c 6f 63 6b 25  0d 05 f0 18 2e 73 65 65  | sblock%.....see|
00000a70  64 61 74 20 20 20 45 51  55 44 20 73 65 65 64 25  |dat   EQUD seed%|
00000a80  0d 05 fa 18 2e 62 61 63  6b 61 74 20 20 20 45 51  |.....backat   EQ|
00000a90  55 44 20 62 61 63 6b 25  0d 06 04 1a 2e 73 70 72  |UD back%.....spr|
00000aa0  69 74 65 61 74 20 45 51  55 44 20 73 70 72 69 74  |iteat EQUD sprit|
00000ab0  65 25 0d 06 0e 04 0d 06  18 15 20 53 54 4d 46 44  |e%........ STMFD|
00000ac0  20 52 31 33 21 2c 7b 52  31 34 7d 0d 06 22 04 0d  | R13!,{R14}.."..|
00000ad0  06 2c 0e 2e 70 72 6f 67  73 74 61 72 74 0d 06 36  |.,..progstart..6|
00000ae0  04 0d 06 40 10 20 4d 4f  56 20 6c 6f 6f 70 2c 23  |...@. MOV loop,#|
00000af0  30 0d 06 4a 0e 2e 6d 61  69 6e 78 6c 6f 6f 70 0d  |0..J..mainxloop.|
00000b00  06 54 0d 20 4d 4f 56 20  72 2c 23 30 0d 06 5e 11  |.T. MOV r,#0..^.|
00000b10  20 4c 44 52 20 79 2c 79  62 6c 6f 63 6b 0d 06 68  | LDR y,yblock..h|
00000b20  11 20 4c 44 52 20 73 2c  73 62 6c 6f 63 6b 0d 06  |. LDR s,sblock..|
00000b30  72 0f 2e 72 61 6e 64 6f  6d 6c 6f 6f 70 0d 06 7c  |r..randomloop..||
00000b40  05 20 0d 06 86 1e 20 53  54 4d 46 44 20 52 31 33  |. .... STMFD R13|
00000b50  21 2c 7b 52 33 2d 52 35  7d 20 20 20 20 20 20 3b  |!,{R3-R5}      ;|
00000b60  0d 06 90 1e 20 4c 44 52  20 52 35 2c 73 65 65 64  |.... LDR R5,seed|
00000b70  61 74 20 20 20 20 20 20  20 20 20 20 20 3b 0d 06  |at           ;..|
00000b80  9a 1e 20 4c 44 4d 49 41  20 52 35 2c 7b 52 33 2c  |.. LDMIA R5,{R3,|
00000b90  52 34 7d 20 20 20 20 20  20 20 20 3b 0d 06 a4 1e  |R4}        ;....|
00000ba0  20 4d 4f 56 53 20 52 34  2c 52 34 2c 4c 53 52 20  | MOVS R4,R4,LSR |
00000bb0  23 31 20 20 20 20 20 20  20 3b 0d 06 ae 1e 20 4d  |#1       ;.... M|
00000bc0  4f 56 53 20 52 30 2c 52  33 2c 52 52 58 20 20 20  |OVS R0,R3,RRX   |
00000bd0  20 20 20 20 20 20 20 3b  0d 06 b8 23 20 41 44 43  |       ;...# ADC|
00000be0  20 52 34 2c 52 34 2c 52  34 20 20 20 20 20 20 20  | R4,R4,R4       |
00000bf0  20 20 20 20 20 3b 20 52  30 3d b3 0d 06 c2 1c 20  |     ; R0=..... |
00000c00  82 20 52 30 2c 52 30 2c  52 33 2c 4c 53 4c 20 23  |. R0,R0,R3,LSL #|
00000c10  31 32 20 20 20 20 3b 0d  06 cc 1c 20 82 20 52 30  |12    ;.... . R0|
00000c20  2c 52 30 2c 52 30 2c 4c  53 52 20 23 32 30 20 20  |,R0,R0,LSR #20  |
00000c30  20 20 3b 0d 06 d6 1e 20  53 54 4d 49 41 20 52 35  |  ;.... STMIA R5|
00000c40  2c 7b 52 30 2c 52 34 7d  20 20 20 20 20 20 20 20  |,{R0,R4}        |
00000c50  3b 0d 06 e0 1e 20 4c 44  4d 46 44 20 52 31 33 21  |;.... LDMFD R13!|
00000c60  2c 7b 52 33 2d 52 35 7d  20 20 20 20 20 20 3b 0d  |,{R3-R5}      ;.|
00000c70  06 ea 04 0d 06 f4 11 20  80 20 52 30 2c 52 30 2c  |....... . R0,R0,|
00000c80  23 31 32 37 0d 06 fe 12  20 41 44 44 20 52 30 2c  |#127.... ADD R0,|
00000c90  52 30 2c 23 36 34 0d 07  08 17 20 53 54 52 20 52  |R0,#64.... STR R|
00000ca0  30 2c 5b 79 2c 72 2c 4c  53 4c 23 32 5d 0d 07 12  |0,[y,r,LSL#2]...|
00000cb0  05 20 0d 07 1c 0f 20 41  44 44 20 72 2c 72 2c 23  |. .... ADD r,r,#|
00000cc0  31 0d 07 26 0f 20 43 4d  50 20 72 2c 23 78 73 25  |1..&. CMP r,#xs%|
00000cd0  0d 07 30 12 42 4c 45 20  72 61 6e 64 6f 6d 6c 6f  |..0.BLE randomlo|
00000ce0  6f 70 0d 07 3a 04 0d 07  44 0d 20 4d 4f 56 20 72  |op..:...D. MOV r|
00000cf0  2c 23 30 0d 07 4e 12 2e  67 72 61 64 69 65 6e 74  |,#0..N..gradient|
00000d00  6c 6f 6f 70 31 0d 07 58  0f 20 41 44 44 20 70 2c  |loop1..X. ADD p,|
00000d10  72 2c 23 31 0d 07 62 11  20 43 4d 50 20 70 2c 23  |r,#1..b. CMP p,#|
00000d20  78 73 25 2b 31 0d 07 6c  0c 20 ec 51 20 70 2c 23  |xs%+1..l. .Q p,#|
00000d30  30 0d 07 76 0f 20 53 55  42 20 71 2c 72 2c 23 31  |0..v. SUB q,r,#1|
00000d40  0d 07 80 0d 20 43 4d 50  20 71 2c 23 30 0d 07 8a  |.... CMP q,#0...|
00000d50  11 20 4d 4f 56 4c 54 20  71 2c 23 78 73 25 0d 07  |. MOVLT q,#xs%..|
00000d60  94 05 20 0d 07 9e 16 20  4c 44 52 20 70 2c 5b 79  |.. .... LDR p,[y|
00000d70  2c 70 2c 4c 53 4c 23 32  5d 0d 07 a8 16 20 4c 44  |,p,LSL#2].... LD|
00000d80  52 20 71 2c 5b 79 2c 71  2c 4c 53 4c 23 32 5d 0d  |R q,[y,q,LSL#2].|
00000d90  07 b2 0e 20 53 55 42 20  70 2c 70 2c 71 0d 07 bc  |... SUB p,p,q...|
00000da0  12 20 4d 4f 56 20 70 2c  70 2c 41 53 52 23 31 0d  |. MOV p,p,ASR#1.|
00000db0  07 c6 16 20 53 54 52 20  70 2c 5b 73 2c 72 2c 4c  |... STR p,[s,r,L|
00000dc0  53 4c 23 32 5d 0d 07 d0  05 20 0d 07 da 0f 20 41  |SL#2].... .... A|
00000dd0  44 44 20 72 2c 72 2c 23  31 0d 07 e4 0f 20 43 4d  |DD r,r,#1.... CM|
00000de0  50 20 72 2c 23 78 73 25  0d 07 ee 15 42 4c 45 20  |P r,#xs%....BLE |
00000df0  67 72 61 64 69 65 6e 74  6c 6f 6f 70 31 0d 07 f8  |gradientloop1...|
00000e00  04 0d 08 02 18 20 4c 44  52 20 73 63 72 65 65 6e  |..... LDR screen|
00000e10  2c 73 63 72 65 65 6e 61  74 0d 08 0c 0d 20 4d 4f  |,screenat.... MO|
00000e20  56 20 72 2c 23 30 0d 08  16 0f 2e 70 6c 6f 74 61  |V r,#0.....plota|
00000e30  63 72 6f 73 73 0d 08 20  0f 20 41 44 44 20 70 2c  |cross.. . ADD p,|
00000e40  72 2c 23 31 0d 08 2a 11  20 43 4d 50 20 70 2c 23  |r,#1..*. CMP p,#|
00000e50  78 73 25 2b 31 0d 08 34  0c 20 ec 51 20 70 2c 23  |xs%+1..4. .Q p,#|
00000e60  30 0d 08 3e 05 20 0d 08  48 16 20 4c 44 52 20 61  |0..>. ..H. LDR a|
00000e70  2c 5b 79 2c 72 2c 4c 53  4c 23 32 5d 0d 08 52 16  |,[y,r,LSL#2]..R.|
00000e80  20 4c 44 52 20 62 2c 5b  79 2c 70 2c 4c 53 4c 23  | LDR b,[y,p,LSL#|
00000e90  32 5d 0d 08 5c 0e 20 53  55 42 20 63 2c 62 2c 61  |2]..\. SUB c,b,a|
00000ea0  0d 08 66 0e 20 53 55 42  20 64 2c 61 2c 62 0d 08  |..f. SUB d,a,b..|
00000eb0  70 14 20 41 44 44 20 63  2c 63 2c 63 2c 4c 53 4c  |p. ADD c,c,c,LSL|
00000ec0  23 31 0d 08 7a 16 20 4c  44 52 20 62 2c 5b 73 2c  |#1..z. LDR b,[s,|
00000ed0  72 2c 4c 53 4c 23 32 5d  0d 08 84 14 20 53 55 42  |r,LSL#2].... SUB|
00000ee0  20 63 2c 63 2c 62 2c 4c  53 4c 23 31 0d 08 8e 16  | c,c,b,LSL#1....|
00000ef0  20 4c 44 52 20 62 2c 5b  73 2c 70 2c 4c 53 4c 23  | LDR b,[s,p,LSL#|
00000f00  32 5d 0d 08 98 0e 20 53  55 42 20 63 2c 63 2c 62  |2].... SUB c,c,b|
00000f10  0d 08 a2 17 20 4d 4f 56  20 63 2c 63 2c 4c 53 4c  |.... MOV c,c,LSL|
00000f20  23 70 6f 77 65 72 25 0d  08 ac 05 20 0d 08 b6 12  |#power%.... ....|
00000f30  20 4d 4f 56 20 64 2c 64  2c 4c 53 4c 23 31 0d 08  | MOV d,d,LSL#1..|
00000f40  c0 0e 20 41 44 44 20 64  2c 64 2c 62 0d 08 ca 16  |.. ADD d,d,b....|
00000f50  20 4c 44 52 20 62 2c 5b  73 2c 72 2c 4c 53 4c 23  | LDR b,[s,r,LSL#|
00000f60  32 5d 0d 08 d4 0e 20 41  44 44 20 64 2c 64 2c 62  |2].... ADD d,d,b|
00000f70  0d 08 de 05 20 0d 08 e8  19 20 4d 4f 56 20 61 2c  |.... .... MOV a,|
00000f80  61 2c 4c 53 4c 23 70 6f  77 65 72 25 2a 33 0d 08  |a,LSL#power%*3..|
00000f90  f2 19 20 4d 4f 56 20 62  2c 62 2c 4c 53 4c 23 70  |.. MOV b,b,LSL#p|
00000fa0  6f 77 65 72 25 2a 32 0d  08 fc 05 20 0d 09 06 0d  |ower%*2.... ....|
00000fb0  20 4d 4f 56 20 78 2c 23  30 0d 09 10 0b 2e 78 6c  | MOV x,#0.....xl|
00000fc0  6f 6f 70 31 0d 09 1a 04  0d 09 24 10 20 4d 4c 41  |oop1......$. MLA|
00000fd0  20 70 2c 62 2c 78 2c 61  0d 09 2e 0e 20 4d 55 4c  | p,b,x,a.... MUL|
00000fe0  20 71 2c 63 2c 78 0d 09  38 10 20 4d 4c 41 20 70  | q,c,x..8. MLA p|
00000ff0  2c 71 2c 78 2c 70 0d 09  42 0e 20 4d 55 4c 20 71  |,q,x,p..B. MUL q|
00001000  2c 78 2c 64 0d 09 4c 0e  20 4d 55 4c 20 71 2c 78  |,x,d..L. MUL q,x|
00001010  2c 71 0d 09 56 10 20 4d  4c 41 20 70 2c 71 2c 78  |,q..V. MLA p,q,x|
00001020  2c 70 0d 09 60 19 20 4d  4f 56 20 70 2c 70 2c 41  |,p..`. MOV p,p,A|
00001030  53 52 23 70 6f 77 65 72  25 2a 33 0d 09 6a 04 0d  |SR#power%*3..j..|
00001040  09 74 1c 20 41 44 44 20  70 6f 73 2c 6c 6f 6f 70  |.t. ADD pos,loop|
00001050  2c 6c 6f 6f 70 2c 4c 53  4c 23 32 0d 09 7e 18 20  |,loop,LSL#2..~. |
00001060  41 44 44 20 70 6f 73 2c  78 2c 70 6f 73 2c 4c 53  |ADD pos,x,pos,LS|
00001070  4c 23 36 0d 09 88 1d 20  41 44 44 20 70 6f 73 2c  |L#6.... ADD pos,|
00001080  70 6f 73 2c 72 2c 4c 53  4c 23 70 6f 77 65 72 25  |pos,r,LSL#power%|
00001090  0d 09 92 04 0d 09 9c 18  20 53 54 52 42 20 70 2c  |........ STRB p,|
000010a0  5b 73 63 72 65 65 6e 2c  70 6f 73 5d 0d 09 a6 05  |[screen,pos]....|
000010b0  20 0d 09 b0 0f 20 41 44  44 20 78 2c 78 2c 23 31  | .... ADD x,x,#1|
000010c0  0d 09 ba 13 20 43 4d 50  20 78 2c 23 73 69 7a 65  |.... CMP x,#size|
000010d0  25 2d 31 0d 09 c4 0e 42  4c 45 20 78 6c 6f 6f 70  |%-1....BLE xloop|
000010e0  31 0d 09 ce 04 0d 09 d8  0f 20 41 44 44 20 72 2c  |1........ ADD r,|
000010f0  72 2c 23 31 0d 09 e2 0f  20 43 4d 50 20 72 2c 23  |r,#1.... CMP r,#|
00001100  78 73 25 0d 09 ec 12 42  4c 45 20 70 6c 6f 74 61  |xs%....BLE plota|
00001110  63 72 6f 73 73 0d 09 f6  04 0d 0a 00 19 20 41 44  |cross........ AD|
00001120  44 20 6c 6f 6f 70 2c 6c  6f 6f 70 2c 23 73 69 7a  |D loop,loop,#siz|
00001130  65 25 0d 0a 0a 18 20 43  4d 50 20 6c 6f 6f 70 2c  |e%.... CMP loop,|
00001140  23 79 73 25 2a 73 69 7a  65 25 0d 0a 14 11 42 4c  |#ys%*size%....BL|
00001150  45 20 6d 61 69 6e 78 6c  6f 6f 70 0d 0a 1e 04 0d  |E mainxloop.....|
00001160  0a 28 04 0d 0a 32 10 20  4d 4f 56 20 6c 6f 6f 70  |.(...2. MOV loop|
00001170  2c 23 30 0d 0a 3c 0e 2e  6d 61 69 6e 79 6c 6f 6f  |,#0..<..mainyloo|
00001180  70 0d 0a 46 0d 20 4d 4f  56 20 72 2c 23 30 0d 0a  |p..F. MOV r,#0..|
00001190  50 0d 2e 67 65 74 70 6f  69 6e 74 0d 0a 5a 17 20  |P..getpoint..Z. |
000011a0  4d 4f 56 20 70 6f 73 2c  23 73 69 7a 65 25 2a 33  |MOV pos,#size%*3|
000011b0  32 30 0d 0a 64 17 20 4d  4c 41 20 70 6f 73 2c 72  |20..d. MLA pos,r|
000011c0  2c 70 6f 73 2c 6c 6f 6f  70 0d 0a 6e 18 20 4c 44  |,pos,loop..n. LD|
000011d0  52 42 20 70 2c 5b 73 63  72 65 65 6e 2c 70 6f 73  |RB p,[screen,pos|
000011e0  5d 0d 0a 78 16 20 53 54  52 20 70 2c 5b 79 2c 72  |]..x. STR p,[y,r|
000011f0  2c 4c 53 4c 23 32 5d 0d  0a 82 0f 20 41 44 44 20  |,LSL#2].... ADD |
00001200  72 2c 72 2c 23 31 0d 0a  8c 0f 20 43 4d 50 20 72  |r,r,#1.... CMP r|
00001210  2c 23 79 73 25 0d 0a 96  10 42 4c 45 20 67 65 74  |,#ys%....BLE get|
00001220  70 6f 69 6e 74 0d 0a a0  04 0d 0a aa 0d 20 4d 4f  |point........ MO|
00001230  56 20 72 2c 23 30 0d 0a  b4 12 2e 67 72 61 64 69  |V r,#0.....gradi|
00001240  65 6e 74 6c 6f 6f 70 32  0d 0a be 0f 20 41 44 44  |entloop2.... ADD|
00001250  20 70 2c 72 2c 23 31 0d  0a c8 11 20 43 4d 50 20  | p,r,#1.... CMP |
00001260  70 2c 23 79 73 25 2b 31  0d 0a d2 0c 20 ec 51 20  |p,#ys%+1.... .Q |
00001270  70 2c 23 30 0d 0a dc 0f  20 53 55 42 20 71 2c 72  |p,#0.... SUB q,r|
00001280  2c 23 31 0d 0a e6 0d 20  43 4d 50 20 71 2c 23 30  |,#1.... CMP q,#0|
00001290  0d 0a f0 11 20 4d 4f 56  4c 54 20 71 2c 23 79 73  |.... MOVLT q,#ys|
000012a0  25 0d 0a fa 05 20 0d 0b  04 16 20 4c 44 52 20 70  |%.... .... LDR p|
000012b0  2c 5b 79 2c 70 2c 4c 53  4c 23 32 5d 0d 0b 0e 16  |,[y,p,LSL#2]....|
000012c0  20 4c 44 52 20 71 2c 5b  79 2c 71 2c 4c 53 4c 23  | LDR q,[y,q,LSL#|
000012d0  32 5d 0d 0b 18 0e 20 53  55 42 20 70 2c 70 2c 71  |2].... SUB p,p,q|
000012e0  0d 0b 22 12 20 4d 4f 56  20 70 2c 70 2c 41 53 52  |..". MOV p,p,ASR|
000012f0  23 31 0d 0b 2c 16 20 53  54 52 20 70 2c 5b 73 2c  |#1..,. STR p,[s,|
00001300  72 2c 4c 53 4c 23 32 5d  0d 0b 36 0f 20 41 44 44  |r,LSL#2]..6. ADD|
00001310  20 72 2c 72 2c 23 31 0d  0b 40 0f 20 43 4d 50 20  | r,r,#1..@. CMP |
00001320  72 2c 23 79 73 25 0d 0b  4a 15 42 4c 45 20 67 72  |r,#ys%..J.BLE gr|
00001330  61 64 69 65 6e 74 6c 6f  6f 70 32 0d 0b 54 04 0d  |adientloop2..T..|
00001340  0b 5e 0d 20 4d 4f 56 20  72 2c 23 30 0d 0b 68 0b  |.^. MOV r,#0..h.|
00001350  2e 70 6c 6f 74 75 70 0d  0b 72 0f 20 41 44 44 20  |.plotup..r. ADD |
00001360  70 2c 72 2c 23 31 0d 0b  7c 11 20 43 4d 50 20 70  |p,r,#1..|. CMP p|
00001370  2c 23 79 73 25 2b 31 0d  0b 86 0c 20 ec 51 20 70  |,#ys%+1.... .Q p|
00001380  2c 23 30 0d 0b 90 05 20  0d 0b 9a 16 20 4c 44 52  |,#0.... .... LDR|
00001390  20 61 2c 5b 79 2c 72 2c  4c 53 4c 23 32 5d 0d 0b  | a,[y,r,LSL#2]..|
000013a0  a4 16 20 4c 44 52 20 62  2c 5b 79 2c 70 2c 4c 53  |.. LDR b,[y,p,LS|
000013b0  4c 23 32 5d 0d 0b ae 0e  20 53 55 42 20 63 2c 62  |L#2].... SUB c,b|
000013c0  2c 61 0d 0b b8 0e 20 53  55 42 20 64 2c 61 2c 62  |,a.... SUB d,a,b|
000013d0  0d 0b c2 14 20 41 44 44  20 63 2c 63 2c 63 2c 4c  |.... ADD c,c,c,L|
000013e0  53 4c 23 31 0d 0b cc 16  20 4c 44 52 20 62 2c 5b  |SL#1.... LDR b,[|
000013f0  73 2c 72 2c 4c 53 4c 23  32 5d 0d 0b d6 14 20 53  |s,r,LSL#2].... S|
00001400  55 42 20 63 2c 63 2c 62  2c 4c 53 4c 23 31 0d 0b  |UB c,c,b,LSL#1..|
00001410  e0 16 20 4c 44 52 20 62  2c 5b 73 2c 70 2c 4c 53  |.. LDR b,[s,p,LS|
00001420  4c 23 32 5d 0d 0b ea 0e  20 53 55 42 20 63 2c 63  |L#2].... SUB c,c|
00001430  2c 62 0d 0b f4 17 20 4d  4f 56 20 63 2c 63 2c 4c  |,b.... MOV c,c,L|
00001440  53 4c 23 70 6f 77 65 72  25 0d 0b fe 05 20 0d 0c  |SL#power%.... ..|
00001450  08 12 20 4d 4f 56 20 64  2c 64 2c 4c 53 4c 23 31  |.. MOV d,d,LSL#1|
00001460  0d 0c 12 0e 20 41 44 44  20 64 2c 64 2c 62 0d 0c  |.... ADD d,d,b..|
00001470  1c 16 20 4c 44 52 20 62  2c 5b 73 2c 72 2c 4c 53  |.. LDR b,[s,r,LS|
00001480  4c 23 32 5d 0d 0c 26 0e  20 41 44 44 20 64 2c 64  |L#2]..&. ADD d,d|
00001490  2c 62 0d 0c 30 05 20 0d  0c 3a 19 20 4d 4f 56 20  |,b..0. ..:. MOV |
000014a0  61 2c 61 2c 4c 53 4c 23  70 6f 77 65 72 25 2a 33  |a,a,LSL#power%*3|
000014b0  0d 0c 44 19 20 4d 4f 56  20 62 2c 62 2c 4c 53 4c  |..D. MOV b,b,LSL|
000014c0  23 70 6f 77 65 72 25 2a  32 0d 0c 4e 05 20 0d 0c  |#power%*2..N. ..|
000014d0  58 0d 20 4d 4f 56 20 78  2c 23 31 0d 0c 62 0b 2e  |X. MOV x,#1..b..|
000014e0  78 6c 6f 6f 70 32 0d 0c  6c 04 0d 0c 76 10 20 4d  |xloop2..l...v. M|
000014f0  4c 41 20 70 2c 62 2c 78  2c 61 0d 0c 80 0e 20 4d  |LA p,b,x,a.... M|
00001500  55 4c 20 71 2c 63 2c 78  0d 0c 8a 10 20 4d 4c 41  |UL q,c,x.... MLA|
00001510  20 70 2c 71 2c 78 2c 70  0d 0c 94 0e 20 4d 55 4c  | p,q,x,p.... MUL|
00001520  20 71 2c 78 2c 64 0d 0c  9e 0e 20 4d 55 4c 20 71  | q,x,d.... MUL q|
00001530  2c 78 2c 71 0d 0c a8 10  20 4d 4c 41 20 70 2c 71  |,x,q.... MLA p,q|
00001540  2c 78 2c 70 0d 0c b2 19  20 4d 4f 56 20 70 2c 70  |,x,p.... MOV p,p|
00001550  2c 41 53 52 23 70 6f 77  65 72 25 2a 33 0d 0c bc  |,ASR#power%*3...|
00001560  04 0d 0c c6 1b 20 41 44  44 20 70 6f 73 2c 78 2c  |..... ADD pos,x,|
00001570  72 2c 4c 53 4c 23 70 6f  77 65 72 25 0d 0c d0 1a  |r,LSL#power%....|
00001580  20 41 44 44 20 70 6f 73  2c 70 6f 73 2c 70 6f 73  | ADD pos,pos,pos|
00001590  2c 4c 53 4c 23 32 0d 0c  da 1b 20 41 44 44 20 70  |,LSL#2.... ADD p|
000015a0  6f 73 2c 6c 6f 6f 70 2c  70 6f 73 2c 4c 53 4c 23  |os,loop,pos,LSL#|
000015b0  36 0d 0c e4 04 0d 0c ee  18 20 53 54 52 42 20 70  |6........ STRB p|
000015c0  2c 5b 73 63 72 65 65 6e  2c 70 6f 73 5d 0d 0c f8  |,[screen,pos]...|
000015d0  05 20 0d 0d 02 0f 20 41  44 44 20 78 2c 78 2c 23  |. .... ADD x,x,#|
000015e0  31 0d 0d 0c 13 20 43 4d  50 20 78 2c 23 73 69 7a  |1.... CMP x,#siz|
000015f0  65 25 2d 31 0d 0d 16 0e  42 4c 45 20 78 6c 6f 6f  |e%-1....BLE xloo|
00001600  70 32 0d 0d 20 04 0d 0d  2a 0f 20 41 44 44 20 72  |p2.. ...*. ADD r|
00001610  2c 72 2c 23 31 0d 0d 34  0f 20 43 4d 50 20 72 2c  |,r,#1..4. CMP r,|
00001620  23 79 73 25 0d 0d 3e 0e  42 4c 45 20 70 6c 6f 74  |#ys%..>.BLE plot|
00001630  75 70 0d 0d 48 04 0d 0d  52 15 20 41 44 44 20 6c  |up..H...R. ADD l|
00001640  6f 6f 70 2c 6c 6f 6f 70  2c 23 31 0d 0d 5c 1c 20  |oop,loop,#1..\. |
00001650  43 4d 50 20 6c 6f 6f 70  2c 23 28 78 73 25 2b 31  |CMP loop,#(xs%+1|
00001660  29 2a 73 69 7a 65 25 0d  0d 66 11 42 4c 54 20 6d  |)*size%..f.BLT m|
00001670  61 69 6e 79 6c 6f 6f 70  0d 0d 70 04 0d 0d 7a 14  |ainyloop..p...z.|
00001680  20 4c 44 52 20 52 31 2c  73 63 72 65 65 6e 61 74  | LDR R1,screenat|
00001690  0d 0d 84 15 20 41 44 44  20 52 32 2c 52 31 2c 23  |.... ADD R2,R1,#|
000016a0  38 31 39 32 30 0d 0d 8e  13 20 4c 44 52 20 52 31  |81920.... LDR R1|
000016b0  31 2c 62 61 63 6b 61 74  0d 0d 98 05 20 0d 0d a2  |1,backat.... ...|
000016c0  10 2e 73 63 72 65 65 6e  32 62 61 63 6b 0d 0d ac  |..screen2back...|
000016d0  17 20 4c 44 4d 49 41 20  52 31 21 2c 7b 52 33 2d  |. LDMIA R1!,{R3-|
000016e0  52 31 30 7d 0d 0d b6 18  20 53 54 4d 49 41 20 52  |R10}.... STMIA R|
000016f0  31 31 21 2c 7b 52 33 2d  52 31 30 7d 0d 0d c0 0e  |11!,{R3-R10}....|
00001700  20 43 4d 50 20 52 31 2c  52 32 0d 0d ca 13 42 4c  | CMP R1,R2....BL|
00001710  54 20 73 63 72 65 65 6e  32 62 61 63 6b 0d 0d d4  |T screen2back...|
00001720  04 0d 0d de 04 0d 0d e8  13 20 4c 44 52 20 52 30  |......... LDR R0|
00001730  2c 74 61 62 6c 65 61 74  0d 0d f2 0f 20 4d 4f 56  |,tableat.... MOV|
00001740  20 52 38 2c 23 30 20 0d  0d fc 11 2e 63 79 63 6c  | R8,#0 .....cycl|
00001750  65 70 61 6c 65 74 74 65  0d 0e 06 14 20 4c 44 52  |epalette.... LDR|
00001760  20 52 31 2c 73 63 72 65  65 6e 61 74 0d 0e 10 16  | R1,screenat....|
00001770  20 41 44 44 20 52 32 2c  52 31 2c 23 33 32 30 2a  | ADD R2,R1,#320*|
00001780  36 34 0d 0e 1a 13 20 4c  44 52 20 52 31 31 2c 62  |64.... LDR R11,b|
00001790  61 63 6b 61 74 0d 0e 24  0e 2e 63 79 63 6c 65 6c  |ackat..$..cyclel|
000017a0  6f 6f 70 0d 0e 2e 17 20  4c 44 4d 49 41 20 52 31  |oop.... LDMIA R1|
000017b0  31 21 2c 7b 52 33 2d 52  36 7d 0d 0e 38 10 20 a4  |1!,{R3-R6}..8. .|
000017c0  6d 61 70 77 6f 72 64 28  33 29 0d 0e 42 10 20 a4  |mapword(3)..B. .|
000017d0  6d 61 70 77 6f 72 64 28  34 29 0d 0e 4c 10 20 a4  |mapword(4)..L. .|
000017e0  6d 61 70 77 6f 72 64 28  35 29 0d 0e 56 10 20 a4  |mapword(5)..V. .|
000017f0  6d 61 70 77 6f 72 64 28  36 29 0d 0e 60 16 20 53  |mapword(6)..`. S|
00001800  54 4d 49 41 20 52 31 21  2c 7b 52 33 2d 52 36 7d  |TMIA R1!,{R3-R6}|
00001810  0d 0e 6a 17 20 4c 44 4d  49 41 20 52 31 31 21 2c  |..j. LDMIA R11!,|
00001820  7b 52 33 2d 52 36 7d 0d  0e 74 10 20 a4 6d 61 70  |{R3-R6}..t. .map|
00001830  77 6f 72 64 28 33 29 0d  0e 7e 10 20 a4 6d 61 70  |word(3)..~. .map|
00001840  77 6f 72 64 28 34 29 0d  0e 88 10 20 a4 6d 61 70  |word(4).... .map|
00001850  77 6f 72 64 28 35 29 0d  0e 92 10 20 a4 6d 61 70  |word(5).... .map|
00001860  77 6f 72 64 28 36 29 0d  0e 9c 16 20 53 54 4d 49  |word(6).... STMI|
00001870  41 20 52 31 21 2c 7b 52  33 2d 52 36 7d 0d 0e a6  |A R1!,{R3-R6}...|
00001880  17 20 4c 44 4d 49 41 20  52 31 31 21 2c 7b 52 33  |. LDMIA R11!,{R3|
00001890  2d 52 36 7d 0d 0e b0 10  20 a4 6d 61 70 77 6f 72  |-R6}.... .mapwor|
000018a0  64 28 33 29 0d 0e ba 10  20 a4 6d 61 70 77 6f 72  |d(3).... .mapwor|
000018b0  64 28 34 29 0d 0e c4 10  20 a4 6d 61 70 77 6f 72  |d(4).... .mapwor|
000018c0  64 28 35 29 0d 0e ce 10  20 a4 6d 61 70 77 6f 72  |d(5).... .mapwor|
000018d0  64 28 36 29 0d 0e d8 16  20 53 54 4d 49 41 20 52  |d(6).... STMIA R|
000018e0  31 21 2c 7b 52 33 2d 52  36 7d 0d 0e e2 17 20 4c  |1!,{R3-R6}.... L|
000018f0  44 4d 49 41 20 52 31 31  21 2c 7b 52 33 2d 52 36  |DMIA R11!,{R3-R6|
00001900  7d 0d 0e ec 10 20 a4 6d  61 70 77 6f 72 64 28 33  |}.... .mapword(3|
00001910  29 0d 0e f6 10 20 a4 6d  61 70 77 6f 72 64 28 34  |).... .mapword(4|
00001920  29 0d 0f 00 10 20 a4 6d  61 70 77 6f 72 64 28 35  |).... .mapword(5|
00001930  29 0d 0f 0a 10 20 a4 6d  61 70 77 6f 72 64 28 36  |).... .mapword(6|
00001940  29 0d 0f 14 16 20 53 54  4d 49 41 20 52 31 21 2c  |).... STMIA R1!,|
00001950  7b 52 33 2d 52 36 7d 0d  0f 1e 13 20 41 44 44 20  |{R3-R6}.... ADD |
00001960  52 31 2c 52 31 2c 23 32  35 36 0d 0f 28 15 20 41  |R1,R1,#256..(. A|
00001970  44 44 20 52 31 31 2c 52  31 31 2c 23 32 35 36 0d  |DD R11,R11,#256.|
00001980  0f 32 0e 20 43 4d 50 20  52 31 2c 52 32 0d 0f 3c  |.2. CMP R1,R2..<|
00001990  11 42 4c 54 20 63 79 63  6c 65 6c 6f 6f 70 0d 0f  |.BLT cycleloop..|
000019a0  46 04 0d 0f 50 06 20 20  0d 0f 5a 17 20 53 54 4d  |F...P.  ..Z. STM|
000019b0  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 33 7d 0d  |FD R13!,{R0-R3}.|
000019c0  0f 64 0f 20 4d 4f 56 20  52 30 2c 23 31 39 0d 0f  |.d. MOV R0,#19..|
000019d0  6e 12 20 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |n. SWI "OS_Byte"|
000019e0  0d 0f 78 13 20 53 57 49  20 22 4f 53 5f 4d 6f 75  |..x. SWI "OS_Mou|
000019f0  73 65 22 0d 0f 82 14 20  4d 4f 56 20 52 38 2c 52  |se".... MOV R8,R|
00001a00  30 2c 4c 53 52 23 32 0d  0f 8c 0f 20 4d 4f 56 20  |0,LSR#2.... MOV |
00001a10  52 31 34 2c 52 32 0d 0f  96 17 20 4c 44 4d 46 44  |R14,R2.... LDMFD|
00001a20  20 52 31 33 21 2c 7b 52  30 2d 52 33 7d 0d 0f a0  | R13!,{R0-R3}...|
00001a30  04 0d 0f aa 0f 20 43 4d  50 20 52 31 34 2c 23 34  |..... CMP R14,#4|
00001a40  0d 0f b4 11 42 45 51 20  70 72 6f 67 73 74 61 72  |....BEQ progstar|
00001a50  74 0d 0f be 04 0d 0f c8  0f 20 43 4d 50 20 52 31  |t........ CMP R1|
00001a60  34 2c 23 31 0d 0f d2 0f  42 45 51 20 65 6e 64 70  |4,#1....BEQ endp|
00001a70  72 6f 67 0d 0f dc 04 0d  0f e6 12 42 20 63 79 63  |rog........B cyc|
00001a80  6c 65 70 61 6c 65 74 74  65 0d 0f f0 04 0d 0f fa  |lepalette.......|
00001a90  0c 2e 65 6e 64 70 72 6f  67 0d 10 04 04 0d 10 0e  |..endprog.......|
00001aa0  14 20 4c 44 52 20 52 30  2c 73 63 72 65 65 6e 61  |. LDR R0,screena|
00001ab0  74 0d 10 18 14 20 4c 44  52 20 52 31 2c 73 70 72  |t.... LDR R1,spr|
00001ac0  69 74 65 61 74 0d 10 22  0f 20 4d 4f 56 20 52 32  |iteat..". MOV R2|
00001ad0  2c 23 36 34 0d 10 2c 12  2e 73 63 72 65 65 6e 32  |,#64..,..screen2|
00001ae0  73 70 72 69 74 65 0d 10  36 17 20 4c 44 4d 49 41  |sprite..6. LDMIA|
00001af0  20 52 30 21 2c 7b 52 33  2d 52 31 32 7d 0d 10 40  | R0!,{R3-R12}..@|
00001b00  17 20 53 54 4d 49 41 20  52 31 21 2c 7b 52 33 2d  |. STMIA R1!,{R3-|
00001b10  52 31 32 7d 0d 10 4a 16  20 4c 44 4d 49 41 20 52  |R12}..J. LDMIA R|
00001b20  30 21 2c 7b 52 33 2d 52  38 7d 0d 10 54 16 20 53  |0!,{R3-R8}..T. S|
00001b30  54 4d 49 41 20 52 31 21  2c 7b 52 33 2d 52 38 7d  |TMIA R1!,{R3-R8}|
00001b40  0d 10 5e 13 20 41 44 44  20 52 30 2c 52 30 2c 23  |..^. ADD R0,R0,#|
00001b50  32 35 36 0d 10 68 12 20  53 55 42 53 20 52 32 2c  |256..h. SUBS R2,|
00001b60  52 32 2c 23 31 0d 10 72  15 42 4e 45 20 73 63 72  |R2,#1..r.BNE scr|
00001b70  65 65 6e 32 73 70 72 69  74 65 0d 10 7c 04 0d 10  |een2sprite..|...|
00001b80  86 14 20 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |.. LDMFD R13!,{P|
00001b90  43 7d 0d 10 90 05 5d 0d  10 9a 05 ed 0d 10 a4 05  |C}....].........|
00001ba0  e1 0d 10 ae 04 0d 10 b8  0d dd f2 71 75 61 72 74  |...........quart|
00001bb0  65 72 0d 10 c2 09 6f 66  66 3d 30 0d 10 cc 07 78  |er....off=0....x|
00001bc0  3d 32 0d 10 d6 07 79 3d  33 0d 10 e0 0a 70 6f 73  |=2....y=3....pos|
00001bd0  31 3d 34 0d 10 ea 0a 70  6f 73 32 3d 35 0d 10 f4  |1=4....pos2=5...|
00001be0  0a 64 61 74 61 3d 36 0d  10 fe 04 0d 11 08 15 e3  |.data=6.........|
00001bf0  20 70 61 73 73 25 3d 30  20 b8 20 32 20 88 20 32  | pass%=0 . 2 . 2|
00001c00  0d 11 12 0f 50 25 3d 71  75 61 72 74 65 72 25 0d  |....P%=quarter%.|
00001c10  11 1c 0e 5b 4f 50 54 20  70 61 73 73 25 0d 11 26  |...[OPT pass%..&|
00001c20  16 2e 6f 66 66 61 74 20  20 20 45 51 55 44 20 6f  |..offat   EQUD o|
00001c30  66 66 25 0d 11 30 04 0d  11 3a 12 20 4c 44 52 20  |ff%..0...:. LDR |
00001c40  6f 66 66 2c 6f 66 66 61  74 0d 11 44 05 20 0d 11  |off,offat..D. ..|
00001c50  4e 0d 20 4d 4f 56 20 79  2c 23 30 0d 11 58 0b 2e  |N. MOV y,#0..X..|
00001c60  79 6c 6f 6f 70 31 0d 11  62 0d 20 4d 4f 56 20 78  |yloop1..b. MOV x|
00001c70  2c 23 30 0d 11 6c 0b 2e  78 6c 6f 6f 70 31 0d 11  |,#0..l..xloop1..|
00001c80  76 17 20 41 44 44 20 70  6f 73 31 2c 78 2c 79 2c  |v. ADD pos1,x,y,|
00001c90  4c 53 4c 23 38 0d 11 80  14 20 52 53 42 20 70 6f  |LSL#8.... RSB po|
00001ca0  73 32 2c 79 2c 23 32 35  35 0d 11 8a 1a 20 41 44  |s2,y,#255.... AD|
00001cb0  44 20 70 6f 73 32 2c 70  6f 73 32 2c 78 2c 4c 53  |D pos2,pos2,x,LS|
00001cc0  4c 23 38 0d 11 94 1e 20  4c 44 52 20 64 61 74 61  |L#8.... LDR data|
00001cd0  2c 5b 6f 66 66 2c 70 6f  73 32 2c 4c 53 4c 23 32  |,[off,pos2,LSL#2|
00001ce0  5d 0d 11 9e 1e 20 53 54  52 20 64 61 74 61 2c 5b  |].... STR data,[|
00001cf0  6f 66 66 2c 70 6f 73 31  2c 4c 53 4c 23 32 5d 0d  |off,pos1,LSL#2].|
00001d00  11 a8 0f 20 41 44 44 20  78 2c 78 2c 23 31 0d 11  |... ADD x,x,#1..|
00001d10  b2 0f 20 43 4d 50 20 78  2c 23 31 32 37 0d 11 bc  |.. CMP x,#127...|
00001d20  0e 42 4c 45 20 78 6c 6f  6f 70 31 0d 11 c6 0f 20  |.BLE xloop1.... |
00001d30  41 44 44 20 79 2c 79 2c  23 31 0d 11 d0 0f 20 43  |ADD y,y,#1.... C|
00001d40  4d 50 20 79 2c 23 31 32  37 0d 11 da 0e 42 4c 45  |MP y,#127....BLE|
00001d50  20 79 6c 6f 6f 70 31 0d  11 e4 04 0d 11 ee 0d 20  | yloop1........ |
00001d60  4d 4f 56 20 79 2c 23 30  0d 11 f8 0b 2e 79 6c 6f  |MOV y,#0.....ylo|
00001d70  6f 70 32 0d 12 02 0d 20  4d 4f 56 20 78 2c 23 30  |op2.... MOV x,#0|
00001d80  0d 12 0c 0b 2e 78 6c 6f  6f 70 32 0d 12 16 14 20  |.....xloop2.... |
00001d90  41 44 44 20 70 6f 73 31  2c 79 2c 23 31 32 38 0d  |ADD pos1,y,#128.|
00001da0  12 20 1a 20 41 44 44 20  70 6f 73 31 2c 78 2c 70  |. . ADD pos1,x,p|
00001db0  6f 73 31 2c 4c 53 4c 23  38 0d 12 2a 14 20 52 53  |os1,LSL#8..*. RS|
00001dc0  42 20 70 6f 73 32 2c 78  2c 23 32 35 35 0d 12 34  |B pos2,x,#255..4|
00001dd0  14 20 52 53 42 20 64 61  74 61 2c 79 2c 23 31 32  |. RSB data,y,#12|
00001de0  37 0d 12 3e 1d 20 41 44  44 20 70 6f 73 32 2c 70  |7..>. ADD pos2,p|
00001df0  6f 73 32 2c 64 61 74 61  2c 4c 53 4c 23 38 0d 12  |os2,data,LSL#8..|
00001e00  48 1e 20 4c 44 52 20 64  61 74 61 2c 5b 6f 66 66  |H. LDR data,[off|
00001e10  2c 70 6f 73 32 2c 4c 53  4c 23 32 5d 0d 12 52 1e  |,pos2,LSL#2]..R.|
00001e20  20 53 54 52 20 64 61 74  61 2c 5b 6f 66 66 2c 70  | STR data,[off,p|
00001e30  6f 73 31 2c 4c 53 4c 23  32 5d 0d 12 5c 0f 20 41  |os1,LSL#2]..\. A|
00001e40  44 44 20 78 2c 78 2c 23  31 0d 12 66 0f 20 43 4d  |DD x,x,#1..f. CM|
00001e50  50 20 78 2c 23 31 32 37  0d 12 70 0e 42 4c 45 20  |P x,#127..p.BLE |
00001e60  78 6c 6f 6f 70 32 0d 12  7a 0f 20 41 44 44 20 79  |xloop2..z. ADD y|
00001e70  2c 79 2c 23 31 0d 12 84  0f 20 43 4d 50 20 79 2c  |,y,#1.... CMP y,|
00001e80  23 31 32 37 0d 12 8e 0e  42 4c 45 20 79 6c 6f 6f  |#127....BLE yloo|
00001e90  70 32 0d 12 98 04 0d 12  a2 0d 20 4d 4f 56 20 79  |p2........ MOV y|
00001ea0  2c 23 30 0d 12 ac 0b 2e  79 6c 6f 6f 70 33 0d 12  |,#0.....yloop3..|
00001eb0  b6 0d 20 4d 4f 56 20 78  2c 23 30 0d 12 c0 0b 2e  |.. MOV x,#0.....|
00001ec0  78 6c 6f 6f 70 33 0d 12  ca 14 20 41 44 44 20 70  |xloop3.... ADD p|
00001ed0  6f 73 31 2c 79 2c 23 31  32 38 0d 12 d4 1a 20 41  |os1,y,#128.... A|
00001ee0  44 44 20 70 6f 73 31 2c  78 2c 70 6f 73 31 2c 4c  |DD pos1,x,pos1,L|
00001ef0  53 4c 23 38 0d 12 de 17  20 41 44 44 20 70 6f 73  |SL#8.... ADD pos|
00001f00  31 2c 70 6f 73 31 2c 23  31 32 38 0d 12 e8 14 20  |1,pos1,#128.... |
00001f10  52 53 42 20 70 6f 73 32  2c 78 2c 23 31 32 37 0d  |RSB pos2,x,#127.|
00001f20  12 f2 1a 20 41 44 44 20  70 6f 73 32 2c 79 2c 70  |... ADD pos2,y,p|
00001f30  6f 73 32 2c 4c 53 4c 23  38 0d 12 fc 17 20 41 44  |os2,LSL#8.... AD|
00001f40  44 20 70 6f 73 32 2c 70  6f 73 32 2c 23 31 32 38  |D pos2,pos2,#128|
00001f50  0d 13 06 1e 20 4c 44 52  20 64 61 74 61 2c 5b 6f  |.... LDR data,[o|
00001f60  66 66 2c 70 6f 73 32 2c  4c 53 4c 23 32 5d 0d 13  |ff,pos2,LSL#2]..|
00001f70  10 1e 20 53 54 52 20 64  61 74 61 2c 5b 6f 66 66  |.. STR data,[off|
00001f80  2c 70 6f 73 31 2c 4c 53  4c 23 32 5d 0d 13 1a 0f  |,pos1,LSL#2]....|
00001f90  20 41 44 44 20 78 2c 78  2c 23 31 0d 13 24 0f 20  | ADD x,x,#1..$. |
00001fa0  43 4d 50 20 78 2c 23 31  32 37 0d 13 2e 0e 42 4c  |CMP x,#127....BL|
00001fb0  45 20 78 6c 6f 6f 70 33  0d 13 38 0f 20 41 44 44  |E xloop3..8. ADD|
00001fc0  20 79 2c 79 2c 23 31 0d  13 42 0f 20 43 4d 50 20  | y,y,#1..B. CMP |
00001fd0  79 2c 23 31 32 37 0d 13  4c 0e 42 4c 45 20 79 6c  |y,#127..L.BLE yl|
00001fe0  6f 6f 70 33 0d 13 56 04  0d 13 60 0f 20 4d 4f 56  |oop3..V...`. MOV|
00001ff0  20 50 43 2c 52 31 34 0d  13 6a 05 5d 0d 13 74 05  | PC,R14..j.]..t.|
00002000  ed 0d 13 7e 05 e1 0d 13  88 04 0d 13 92 0a dd f2  |...~............|
00002010  70 6c 6f 74 0d 13 9c 0c  73 63 72 65 65 6e 3d 30  |plot....screen=0|
00002020  0d 13 a6 07 79 3d 31 0d  13 b0 07 61 3d 32 0d 13  |....y=1....a=2..|
00002030  ba 09 6f 66 66 3d 33 0d  13 c4 0c 73 70 72 69 74  |..off=3....sprit|
00002040  65 3d 34 0d 13 ce 04 0d  13 d8 15 e3 20 70 61 73  |e=4......... pas|
00002050  73 25 3d 30 20 b8 20 32  20 88 20 32 0d 13 e2 0c  |s%=0 . 2 . 2....|
00002060  50 25 3d 70 6c 6f 74 25  0d 13 ec 0e 5b 4f 50 54  |P%=plot%....[OPT|
00002070  20 70 61 73 73 25 0d 13  f6 04 0d 14 00 1a 2e 61  | pass%.........a|
00002080  64 72 61 74 20 20 20 20  45 51 55 44 20 73 63 72  |drat    EQUD scr|
00002090  65 65 6e 25 0d 14 0a 1a  2e 73 63 72 65 65 6e 61  |een%.....screena|
000020a0  74 20 45 51 55 44 20 73  63 72 65 65 6e 25 0d 14  |t EQUD screen%..|
000020b0  14 1a 2e 73 70 72 69 74  65 61 74 20 45 51 55 44  |...spriteat EQUD|
000020c0  20 73 70 72 69 74 65 25  0d 14 1e 17 2e 6f 66 66  | sprite%.....off|
000020d0  61 74 20 20 20 20 45 51  55 44 20 6f 66 66 25 0d  |at    EQUD off%.|
000020e0  14 28 18 2e 74 65 6d 70  61 74 20 20 20 45 51 55  |.(..tempat   EQU|
000020f0  44 20 74 65 6d 70 25 0d  14 32 14 2e 62 61 6e 6b  |D temp%..2..bank|
00002100  61 74 20 20 20 45 51 55  44 20 31 0d 14 3c 04 0d  |at   EQUD 1..<..|
00002110  14 46 04 0d 14 50 15 20  53 54 4d 46 44 20 52 31  |.F...P. STMFD R1|
00002120  33 21 2c 7b 52 31 34 7d  0d 14 5a 04 0d 14 64 0d  |3!,{R14}..Z...d.|
00002130  2e 70 72 6f 67 6c 6f 6f  70 0d 14 6e 04 0d 14 78  |.progloop..n...x|
00002140  12 20 4c 44 52 20 52 31  2c 62 61 6e 6b 61 74 0d  |. LDR R1,bankat.|
00002150  14 82 11 20 4c 44 52 20  52 30 2c 61 64 72 61 74  |... LDR R0,adrat|
00002160  0d 14 8c 11 20 53 55 42  20 52 34 2c 52 31 2c 23  |.... SUB R4,R1,#|
00002170  31 0d 14 96 12 20 4d 4f  56 20 52 32 2c 23 38 31  |1.... MOV R2,#81|
00002180  39 32 30 0d 14 a0 14 20  4d 4c 41 20 52 33 2c 52  |920.... MLA R3,R|
00002190  34 2c 52 32 2c 52 30 0d  14 aa 14 20 53 54 52 20  |4,R2,R0.... STR |
000021a0  52 33 2c 73 63 72 65 65  6e 61 74 0d 14 b4 0f 20  |R3,screenat.... |
000021b0  82 20 52 31 2c 52 31 2c  23 33 0d 14 be 12 20 53  |. R1,R1,#3.... S|
000021c0  54 52 20 52 31 2c 62 61  6e 6b 61 74 0d 14 c8 05  |TR R1,bankat....|
000021d0  20 0d 14 d2 10 20 4d 4f  56 20 52 30 2c 23 31 31  | .... MOV R0,#11|
000021e0  33 0d 14 dc 12 20 4c 44  52 20 52 31 2c 62 61 6e  |3.... LDR R1,ban|
000021f0  6b 61 74 0d 14 e6 12 20  53 57 49 20 22 4f 53 5f  |kat.... SWI "OS_|
00002200  42 79 74 65 22 0d 14 f0  05 20 0d 14 fa 0f 20 4d  |Byte".... .... M|
00002210  4f 56 20 52 30 2c 23 31  39 0d 15 04 12 20 53 57  |OV R0,#19.... SW|
00002220  49 20 22 4f 53 5f 42 79  74 65 22 0d 15 0e 04 0d  |I "OS_Byte".....|
00002230  15 18 18 20 4c 44 52 20  73 63 72 65 65 6e 2c 73  |... LDR screen,s|
00002240  63 72 65 65 6e 61 74 0d  15 22 12 20 4c 44 52 20  |creenat..". LDR |
00002250  6f 66 66 2c 6f 66 66 61  74 0d 15 2c 18 20 4c 44  |off,offat..,. LD|
00002260  52 20 73 70 72 69 74 65  2c 73 70 72 69 74 65 61  |R sprite,spritea|
00002270  74 0d 15 36 05 20 0d 15  40 0f 20 4d 4f 56 20 79  |t..6. ..@. MOV y|
00002280  2c 23 32 35 36 0d 15 4a  0a 2e 79 6c 6f 6f 70 0d  |,#256..J..yloop.|
00002290  15 54 05 5d 0d 15 5e 04  0d 15 68 0f 20 e3 20 72  |.T.]..^...h. . r|
000022a0  25 3d 31 20 b8 20 38 0d  15 72 0e 5b 4f 50 54 20  |%=1 . 8..r.[OPT |
000022b0  70 61 73 73 25 0d 15 7c  11 20 a4 6d 61 70 77 6f  |pass%..|. .mapwo|
000022c0  72 64 73 28 35 29 0d 15  86 11 20 a4 6d 61 70 77  |rds(5).... .mapw|
000022d0  6f 72 64 73 28 36 29 0d  15 90 11 20 a4 6d 61 70  |ords(6).... .map|
000022e0  77 6f 72 64 73 28 37 29  0d 15 9a 11 20 a4 6d 61  |words(7).... .ma|
000022f0  70 77 6f 72 64 73 28 38  29 0d 15 a4 11 20 a4 6d  |pwords(8).... .m|
00002300  61 70 77 6f 72 64 73 28  39 29 0d 15 ae 12 20 a4  |apwords(9).... .|
00002310  6d 61 70 77 6f 72 64 73  28 31 30 29 0d 15 b8 12  |mapwords(10)....|
00002320  20 a4 6d 61 70 77 6f 72  64 73 28 31 31 29 0d 15  | .mapwords(11)..|
00002330  c2 12 20 a4 6d 61 70 77  6f 72 64 73 28 31 32 29  |.. .mapwords(12)|
00002340  0d 15 cc 1d 20 53 54 4d  49 41 20 28 73 63 72 65  |.... STMIA (scre|
00002350  65 6e 29 21 2c 7b 52 35  2d 52 31 32 7d 0d 15 d6  |en)!,{R5-R12}...|
00002360  05 5d 0d 15 e0 05 ed 0d  15 ea 04 0d 15 f4 0e 5b  |.].............[|
00002370  4f 50 54 20 70 61 73 73  25 0d 15 fe 1a 20 41 44  |OPT pass%.... AD|
00002380  44 20 73 63 72 65 65 6e  2c 73 63 72 65 65 6e 2c  |D screen,screen,|
00002390  23 36 34 0d 16 08 10 20  53 55 42 53 20 79 2c 79  |#64.... SUBS y,y|
000023a0  2c 23 31 0d 16 12 0d 42  4e 45 20 79 6c 6f 6f 70  |,#1....BNE yloop|
000023b0  0d 16 1c 04 0d 16 26 14  20 4c 44 52 20 52 30 2c  |......&. LDR R0,|
000023c0  73 70 72 69 74 65 61 74  0d 16 30 12 20 4c 44 52  |spriteat..0. LDR|
000023d0  20 52 31 2c 74 65 6d 70  61 74 0d 16 3a 17 20 4c  | R1,tempat..:. L|
000023e0  44 4d 49 41 20 52 30 21  2c 7b 52 33 2d 52 31 32  |DMIA R0!,{R3-R12|
000023f0  7d 0d 16 44 17 20 53 54  4d 49 41 20 52 31 21 2c  |}..D. STMIA R1!,|
00002400  7b 52 33 2d 52 31 32 7d  0d 16 4e 16 20 4c 44 4d  |{R3-R12}..N. LDM|
00002410  49 41 20 52 30 21 2c 7b  52 33 2d 52 38 7d 0d 16  |IA R0!,{R3-R8}..|
00002420  58 16 20 53 54 4d 49 41  20 52 31 21 2c 7b 52 33  |X. STMIA R1!,{R3|
00002430  2d 52 38 7d 0d 16 62 05  20 0d 16 6c 0f 20 4d 4f  |-R8}..b. ..l. MO|
00002440  56 20 52 32 2c 23 36 33  0d 16 76 0e 2e 74 77 69  |V R2,#63..v..twi|
00002450  73 74 6c 6f 6f 70 0d 16  80 16 20 4c 44 4d 49 41  |stloop.... LDMIA|
00002460  20 52 30 2c 7b 52 33 2d  52 31 32 7d 0d 16 8a 12  | R0,{R3-R12}....|
00002470  20 53 55 42 20 52 30 2c  52 30 2c 23 36 34 0d 16  | SUB R0,R0,#64..|
00002480  94 17 20 53 54 4d 49 41  20 52 30 21 2c 7b 52 33  |.. STMIA R0!,{R3|
00002490  2d 52 31 32 7d 0d 16 9e  12 20 41 44 44 20 52 30  |-R12}.... ADD R0|
000024a0  2c 52 30 2c 23 36 34 0d  16 a8 15 20 4c 44 4d 49  |,R0,#64.... LDMI|
000024b0  41 20 52 30 2c 7b 52 33  2d 52 38 7d 0d 16 b2 12  |A R0,{R3-R8}....|
000024c0  20 53 55 42 20 52 30 2c  52 30 2c 23 36 34 0d 16  | SUB R0,R0,#64..|
000024d0  bc 16 20 53 54 4d 49 41  20 52 30 21 2c 7b 52 33  |.. STMIA R0!,{R3|
000024e0  2d 52 38 7d 0d 16 c6 12  20 41 44 44 20 52 30 2c  |-R8}.... ADD R0,|
000024f0  52 30 2c 23 36 34 0d 16  d0 12 20 53 55 42 53 20  |R0,#64.... SUBS |
00002500  52 32 2c 52 32 2c 23 31  0d 16 da 11 42 4e 45 20  |R2,R2,#1....BNE |
00002510  74 77 69 73 74 6c 6f 6f  70 0d 16 e4 14 20 4c 44  |twistloop.... LD|
00002520  52 20 52 30 2c 73 70 72  69 74 65 61 74 0d 16 ee  |R R0,spriteat...|
00002530  12 20 4c 44 52 20 52 31  2c 74 65 6d 70 61 74 0d  |. LDR R1,tempat.|
00002540  16 f8 15 20 41 44 44 20  52 30 2c 52 30 2c 23 36  |... ADD R0,R0,#6|
00002550  33 2a 36 34 0d 17 02 17  20 4c 44 4d 49 41 20 52  |3*64.... LDMIA R|
00002560  31 21 2c 7b 52 33 2d 52  31 32 7d 0d 17 0c 17 20  |1!,{R3-R12}.... |
00002570  53 54 4d 49 41 20 52 30  21 2c 7b 52 33 2d 52 31  |STMIA R0!,{R3-R1|
00002580  32 7d 0d 17 16 16 20 4c  44 4d 49 41 20 52 31 21  |2}.... LDMIA R1!|
00002590  2c 7b 52 33 2d 52 38 7d  0d 17 20 16 20 53 54 4d  |,{R3-R8}.. . STM|
000025a0  49 41 20 52 30 21 2c 7b  52 33 2d 52 38 7d 0d 17  |IA R0!,{R3-R8}..|
000025b0  2a 04 0d 17 34 14 20 4c  44 52 20 52 30 2c 73 70  |*...4. LDR R0,sp|
000025c0  72 69 74 65 61 74 0d 17  3e 0f 20 4d 4f 56 20 52  |riteat..>. MOV R|
000025d0  31 2c 23 36 34 0d 17 48  0d 2e 69 6e 74 6f 6c 6f  |1,#64..H..intolo|
000025e0  6f 70 0d 17 52 16 20 4c  44 4d 49 41 20 52 30 2c  |op..R. LDMIA R0,|
000025f0  7b 52 33 2d 52 31 32 7d  0d 17 5c 0f 20 4d 4f 56  |{R3-R12}..\. MOV|
00002600  20 52 31 34 2c 52 33 0d  17 66 0e 20 4d 4f 56 20  | R14,R3..f. MOV |
00002610  52 33 2c 52 34 0d 17 70  0e 20 4d 4f 56 20 52 34  |R3,R4..p. MOV R4|
00002620  2c 52 35 0d 17 7a 0e 20  4d 4f 56 20 52 35 2c 52  |,R5..z. MOV R5,R|
00002630  36 0d 17 84 0e 20 4d 4f  56 20 52 36 2c 52 37 0d  |6.... MOV R6,R7.|
00002640  17 8e 0e 20 4d 4f 56 20  52 37 2c 52 38 0d 17 98  |... MOV R7,R8...|
00002650  0e 20 4d 4f 56 20 52 38  2c 52 39 0d 17 a2 0f 20  |. MOV R8,R9.... |
00002660  4d 4f 56 20 52 39 2c 52  31 30 0d 17 ac 10 20 4d  |MOV R9,R10.... M|
00002670  4f 56 20 52 31 30 2c 52  31 31 0d 17 b6 10 20 4d  |OV R10,R11.... M|
00002680  4f 56 20 52 31 31 2c 52  31 32 0d 17 c0 17 20 53  |OV R11,R12.... S|
00002690  54 4d 49 41 20 52 30 21  2c 7b 52 33 2d 52 31 31  |TMIA R0!,{R3-R11|
000026a0  7d 0d 17 ca 15 20 4c 44  4d 49 41 20 52 30 2c 7b  |}.... LDMIA R0,{|
000026b0  52 33 2d 52 39 7d 0d 17  d4 0e 20 4d 4f 56 20 52  |R3-R9}.... MOV R|
000026c0  33 2c 52 34 0d 17 de 0e  20 4d 4f 56 20 52 34 2c  |3,R4.... MOV R4,|
000026d0  52 35 0d 17 e8 0e 20 4d  4f 56 20 52 35 2c 52 36  |R5.... MOV R5,R6|
000026e0  0d 17 f2 0e 20 4d 4f 56  20 52 36 2c 52 37 0d 17  |.... MOV R6,R7..|
000026f0  fc 0e 20 4d 4f 56 20 52  37 2c 52 38 0d 18 06 0e  |.. MOV R7,R8....|
00002700  20 4d 4f 56 20 52 38 2c  52 39 0d 18 10 10 20 4d  | MOV R8,R9.... M|
00002710  4f 56 20 52 39 2c 52 31  34 20 0d 18 1a 16 20 53  |OV R9,R14 .... S|
00002720  54 4d 49 41 20 52 30 21  2c 7b 52 33 2d 52 39 7d  |TMIA R0!,{R3-R9}|
00002730  0d 18 24 12 20 53 55 42  53 20 52 31 2c 52 31 2c  |..$. SUBS R1,R1,|
00002740  23 31 0d 18 2e 10 42 4e  45 20 69 6e 74 6f 6c 6f  |#1....BNE intolo|
00002750  6f 70 0d 18 38 04 0d 18  42 05 20 0d 18 4c 1d 20  |op..8...B. ..L. |
00002760  53 57 49 20 22 4f 53 5f  52 65 61 64 45 73 63 61  |SWI "OS_ReadEsca|
00002770  70 65 53 74 61 74 65 22  0d 18 56 10 42 43 43 20  |peState"..V.BCC |
00002780  70 72 6f 67 6c 6f 6f 70  0d 18 60 05 20 0d 18 6a  |progloop..`. ..j|
00002790  14 20 4c 44 4d 46 44 20  52 31 33 21 2c 7b 50 43  |. LDMFD R13!,{PC|
000027a0  7d 0d 18 74 05 5d 0d 18  7e 05 ed 0d 18 88 05 e1  |}..t.]..~.......|
000027b0  0d 18 92 04 0d 18 9c 13  dd a4 6d 61 70 77 6f 72  |..........mapwor|
000027c0  64 73 28 72 65 67 29 0d  18 a6 0e 5b 4f 50 54 20  |ds(reg)....[OPT |
000027d0  70 61 73 73 25 0d 18 b0  19 20 4c 44 4d 49 41 20  |pass%.... LDMIA |
000027e0  28 6f 66 66 29 21 2c 7b  61 2c 52 31 34 7d 0d 18  |(off)!,{a,R14}..|
000027f0  ba 18 20 4c 44 52 42 20  72 65 67 2c 5b 73 70 72  |.. LDRB reg,[spr|
00002800  69 74 65 2c 61 5d 0d 18  c4 18 20 4c 44 52 42 20  |ite,a].... LDRB |
00002810  61 2c 5b 73 70 72 69 74  65 2c 52 31 34 5d 0d 18  |a,[sprite,R14]..|
00002820  ce 18 20 41 44 44 20 72  65 67 2c 72 65 67 2c 61  |.. ADD reg,reg,a|
00002830  2c 4c 53 4c 23 38 0d 18  d8 19 20 4c 44 4d 49 41  |,LSL#8.... LDMIA|
00002840  20 28 6f 66 66 29 21 2c  7b 61 2c 52 31 34 7d 0d  | (off)!,{a,R14}.|
00002850  18 e2 16 20 4c 44 52 42  20 61 2c 5b 73 70 72 69  |... LDRB a,[spri|
00002860  74 65 2c 61 5d 0d 18 ec  19 20 41 44 44 20 72 65  |te,a].... ADD re|
00002870  67 2c 72 65 67 2c 61 2c  4c 53 4c 23 31 36 0d 18  |g,reg,a,LSL#16..|
00002880  f6 18 20 4c 44 52 42 20  61 2c 5b 73 70 72 69 74  |.. LDRB a,[sprit|
00002890  65 2c 52 31 34 5d 0d 19  00 19 20 41 44 44 20 72  |e,R14].... ADD r|
000028a0  65 67 2c 72 65 67 2c 61  2c 4c 53 4c 23 32 34 0d  |eg,reg,a,LSL#24.|
000028b0  19 0a 05 5d 0d 19 14 07  3d 22 22 0d ff           |...]....=""..|
000028bd