�     >!RunImage
� by  Alistair Turnbull
� (c) AU April 1994
(:
2�12:�9:�
<�constants
F%spacelen%=&80000:�space%spacelen%
P3code%=space%:space%+=&4000:endcode%=code%+&4000
Z#pos%=space%:space%+=16*nopos%+4
d&lines%=space%:space%+=4*nolines%+4
n$slist%=space%:space%+=4*nolines%
x6sin%=space%:cos%=sin%+(64<<2):space%=cos%+(256<<2)
�2spr%=space%:space%+=nospr%*1024:endspr%=space%
�back%=space%:space%+=&A000
�5�space%>space%+spacelen%��255,"Not enough memory"
�
�assemble
�
�setuppos
�3�T%=0�319:sin%!(T%<<2)=(1<<SC%)*�(2*�*T%/256):�
�3�colours(0,0,0,0,0,0):�("FX112,2"):�("FX113,2")
�1�:�fancyprint("Please wait a moment",640,512)
��fadein(85,0,0,0,85,85)
�)�("LOAD <Tubes$dir>.Sprites "+�~spr%)
��("FX112,1"):�background
��fadeout(85,0,0,0,85,85)
�5�T%=0�&9FFF�4:back%!T%=scr%!T%:scr2%!T%=scr%!T%:�

�

�frame%

�0

"�

,:

6:

@��constants

Jnospr%=256

Tnopos%=32:nolines%=32

^
TR%=44

hAC%=16:VC%=12:SC%=12

r�

|:

���setuppos

��NP%,NL%

��T%=0�NP%-1:�X%,Y%,Z%

�6pos%!(T%*16)=(X%+128<<24)+(Y%+128<<16)+(Z%+128<<8)

��:pos%!(NP%*16)=-1

�)�check%:�check%<>-1��255,"Data error"

��T%=0�NL%-1:�F%,G%,N%

�+lines%!(T%*4)=(F%<<24)+(G%<<16)+(N%<<8)

��:lines%!(NL%*4)=-1

�)�check%:�check%<>-1��255,"Data error"

��

�:

��4,6
�60,60,-60
�-60,-60,-60
�60,-60,60
&�-60,60,60
0�-1
:-�0,1,8, 0,2,8, 0,3,8, 1,2,8, 1,3,8, 2,3,8
D�-1
N:
X��background
bELX=-1:LY=1:LZ=-2:F=1/�(LX*LX+LY*LY+LZ*LZ):LX=LX*F:LY=LY*F:LZ=LZ*F
lDMX=1:MY=1:MZ=-2:F=1/�(MX*MX+MY*MY+MZ*MZ):MX=MX*F:MY=MY*F:MZ=MZ*F
vW�("FX112,2"):!back%=148:back%!4=-1:ș"OS_ReadVduVariables",back%,back%:scr2%=!back%
�V�("FX112,1"):!back%=148:back%!4=-1:ș"OS_ReadVduVariables",back%,back%:scr%=!back%
��X%=-30�30�4:�Y%=-30�30�4
�'X=X%/32:Y=Y%/32:Z2=1-X*X-Y*Y:�Z2>0�
�Z=-�(Z2)
��light(X,Y,Z):ȒX%+32,Y%+32
�!�light(-X,-Y,Z):ȒX%+96,Y%+32
�/��light(0,0,-1):ȒX%+32,Y%+32:ȒX%+96,Y%+32
��:�,
��0,0:�BY63,63:�23,27,1,0|
��64,0:�BY63,63:�23,27,1,1|
�H�X%=0�20:�Y%=0�15:�23,27,0,�(2)-1|:�&ED,(X%<<6)-((Y%�1)<<5),Y%<<6:�,
��
�:
��light(X,Y,Z)
-LB=LX*X+LY*Y+LZ*Z:�LB<0�LB=0�LB=3*LB+�(1)
-MB=MX*X+MY*Y+MZ*Z:�MB<0�MB=0�MB=3*MB+�(1)
 �0,(LB<<2)+MB
*�
4:
> ��colours(A%,B%,C%,D%,E%,F%)
H
�T%,U%
RF�T%=0�3:�U%=0�3:�T%+(U%<<2),T%*A%+U%*D%,T%*B%+U%*E%,T%*C%+U%*F%:�,
\�
f:
p��fadein(A%,B%,C%,D%,E%,F%)
z#NT%=�:�:H%=�-NT%:�H%>128�H%=128
�C�colours(A%*H%>>7,B%*H%>>7,C%*H%>>7,D%*H%>>7,E%*H%>>7,F%*H%>>7)
��H%>=128
��
�:
� ��fadeout(A%,B%,C%,D%,E%,F%)
�#NT%=�:�:H%=128-�+NT%:�H%<0�H%=0
�C�colours(A%*H%>>7,B%*H%>>7,C%*H%>>7,D%*H%>>7,E%*H%>>7,F%*H%>>7)
�
�H%<=0
��
�:
���fancyprint(T$,X%,Y%)
�Y%+=15:X%-=�(T$)<<4:�5
�#�0,(3<<0)+(1<<2):�X%-4,Y%+4:�T$
#�0,(1<<0)+(3<<2):�X%+4,Y%+4:�T$
#�0,(1<<0)+(0<<2):�X%-4,Y%-4:�T$
#�0,(0<<0)+(1<<2):�X%+4,Y%-4:�T$
$!�0,(2<<0)+(2<<2):�X%,Y%+4:�T$
.!�0,(2<<0)+(0<<2):�X%-4,Y%:�T$
8!�0,(0<<0)+(2<<2):�X%-4,Y%:�T$
B!�0,(0<<0)+(2<<2):�X%,Y%-4:�T$
L�0,(1<<1)+(1<<2):�X%,Y%:�T$
V�4:�
`�
j:
tݤadr(R%,A%,I%)
~,�(P%�3)<>0��"Code isn't word aligned!":�
�(�N%,O%,H%,U%:H%=A%-(P%+8):N%=0:O%=15
��U%=1�I%:�H%=0�
�[OPT T%:MOV R%,O%:]
� �ȕ(H%�3)=0:H%=H%>>2:N%+=2:�
��(H%�256)=0�
�0[OPT T%:ADD R%,O%,#(H%�255)<<N%:]:H%-=H%�255
�9�[OPT T%:SUB R%,O%,#(256-H%�255)<<N%:]:H%+=256-H%�255
��
�
�:O%=R%:�
�J�H%<>0��"Could not ADR to ";A%;" in ";I%;" instructions (R%=";R%;")":�
�=T%
�:
��assemble

�T%=0�2�2:P%=code%
[OPT T%

.link%
(#EQUD -1:EQUD -1:EQUD -1:EQUD -1
2.sp%:EQUD -1
<:
F.vduvars%:EQUD 148:EQUD -1
P.scraddr%:EQUD -1
Z.bank%:EQUD -1
d:
n.frame%
xSTR R13,sp%
�STR R14,link%+0
�LDR R1,bank%
�� R1,R1,#1
�ADD R1,R1,#1
�STR R1,bank%
�MOV R0,#112
�SWI "OS_Byte"
�ADR R0,vduvars%
�ADR R1,scraddr%
�SWI "OS_ReadVduVariables"
�; Draw the frame
�BL drawback%
�BL animation%
BL rotate%
BL transform%
BL sort%
"BL plotshape%
,; Display the new screen
6MOV R0,#19
@SWI "OS_Byte"
JLDR R1,bank%
TMOV R0,#113
^SWI "OS_Byte"
hLDR R14,link%+0
rLDR R13,sp%
|MOV PC,R14
�:
�.tempstoreft%
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�:
�.findtube%
�ADR R13,tempstoreft%
�STMIA R13,{R0-R3,R14}
�OPT �adr(13,spr%,2)
�
CMP R2,#0
�RSBLT R0,R0,#0
�RSBLT R1,R1,#0
�RSBLT R2,R2,#0

CMP R1,#0
ADDGE R13,R13,#6<<10
RSBLT R1,R1,#0
&
CMP R0,#0
0ADDLT R13,R13,#3<<10
:RSBLT R0,R0,#0
D
CMP R1,R0
NCMPGT R1,R2
XBGT ybigft%
b
CMP R2,R0
lBGT zbigft%
v.xbigft%
�ADD R13,R13,#1<<10
�.endbigft%
�CMP R1,R0,ASR#1
�SUBGE R1,R1,R0,ASR#1
�ADDGE R13,R13,#96<<10
�CMP R1,R0,ASR#2
�ADDGE R13,R13,#48<<10
�CMP R2,R0,ASR#1
�SUBGE R2,R2,R0,ASR#1
�ADDGE R13,R13,#24<<10
�CMP R2,R0,ASR#2
�ADDGE R13,R13,#12<<10
�.endfindtube%
ADR R3,tempstoreft%
LDMIA R3,{R0-R3,R14}
MOV PC,R14
 :
*.ybigft%
4ADD R13,R13,#2<<10
>
MOV R3,R0
H
MOV R0,R1
R
MOV R1,R2
\
MOV R2,R3
fB endbigft%
p:
z.zbigft%
�
MOV R3,R2
�
MOV R2,R1
�
MOV R1,R0
�
MOV R0,R3
�B endbigft%
�:
�.tempstoreds%
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�:
�.drawsprite%
	; Corrupts R2
	ADR R2,tempstoreds%
	&STMIA R2,{R0-R1,R3-R9,R11,R13-R14}
	$(SUB R0,R0,#15.5*(1<<AC%):; TL corner
	.SUB R1,R1,#15.5*(1<<AC%)
	8MOV R0,R0,LSR#AC%
	BMOV R1,R1,LSR#AC%
	LCMP R0,#288
	VCMPLE R1,#224
	`/BGT enddrawsprite%:; (Partially) off screen
	jBIC R13,R13,#1
	tLDR R14,scraddr%
	~ADD R14,R14,R1,ASL#5
	�ADD R14,R14,R1,ASL#7
	�� R2,R0,#7:; Word alignment
	�MOV R0,R0,LSR#3
	�)ADD R14,R14,R0,ASL#2:; Screen address
	�MOV R11,#32
	�ADR R1,routineds%
	�LDR R0,[R1,R2,ASL#2]
	�ADD PC,R1,R0
	�
MOV R0,R0
	�:
	�.enddrawsprite%
	�ADR R2,tempstoreds%
&LDMIA R2,{R0-R1,R3-R9,R11,R13-R14}

MOV PC,R14
:
.routineds%
(]:�U%=0�7:[OPT T%
2"EQUD enddrawsprite%-routineds%
<]:�:[OPT T%
F:
P-]:routineds%!(0<<2)=P%-routineds%:[OPT T%
Z.yloop%
dLDMIA R14,{R0-R3}
nLDMIA R13!,{R5-R8}
xBIC R0,R0,R6:�R R0,R0,R5
�BIC R1,R1,R8:�R R1,R1,R7
�LDMIA R13!,{R5-R8}
�BIC R2,R2,R6:�R R2,R2,R5
�BIC R3,R3,R8:�R R3,R3,R7
�STMIA R14,{R0-R3}
�ADD R14,R14,#160
�SUBS R11,R11,#1
�BGT yloop%
�B enddrawsprite%
�:
�6]:�U%=1�7:routineds%!(U%<<2)=P%-routineds%:[OPT T%
�.yloop%
�LDMIA R14,{R0-R4}
LDMIA R13!,{R5-R8}
aBIC R0,R0,R6,LSL#U%<<2:�R R0,R0,R5,LSL#U%<<2:BIC R1,R1,R6,LSR#8-U%<<2:�R R1,R1,R5,LSR#8-U%<<2
aBIC R1,R1,R8,LSL#U%<<2:�R R1,R1,R7,LSL#U%<<2:BIC R2,R2,R8,LSR#8-U%<<2:�R R2,R2,R7,LSR#8-U%<<2
"LDMIA R13!,{R5-R8}
,aBIC R2,R2,R6,LSL#U%<<2:�R R2,R2,R5,LSL#U%<<2:BIC R3,R3,R6,LSR#8-U%<<2:�R R3,R3,R5,LSR#8-U%<<2
6aBIC R3,R3,R8,LSL#U%<<2:�R R3,R3,R7,LSL#U%<<2:BIC R4,R4,R8,LSR#8-U%<<2:�R R4,R4,R7,LSR#8-U%<<2
@STMIA R14,{R0-R4}
JADD R14,R14,#160
TSUBS R11,R11,#1
^BGT yloop%
hB enddrawsprite%
r]:�:[OPT T%
|:
�.tempstoredt%
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
�:
�.drawtube%
�; Corrupts R13
�.; Expects R0-R1 to be the direction vector
�-; Expects R3-R4(,R5) to be start position
�*; Expects R6 to be the number of steps
�ADR R13,tempstoredt%
�STMIA R13,{R0-R12,R14}

CMP R2,#0
.ADDGT R3,R3,R0:; Must start at the far end
ADDGT R4,R4,R1
&ADDGT R5,R5,R2
0;RSBGT R0,R0,#0:; Must have vector facing towards viewer
:RSBGT R1,R1,#0
DRSBGT R2,R2,#0
NBL findtube%
X; Divide 1<<8 by 3
bMOV R7,#1<<8
l
MOV R8,#0
v]:�U%=7�1�-1:[OPT T%
�CMP R6,R7,ASR#U%
�SUBLE R7,R7,R6,ASL#U%
�ADDLE R8,R8,#1<<U%
�]:�:[OPT T%
�
CMP R6,R7
�ADDLE R8,R8,#1
�MOV R5,R1,ASR#8
�
MOV R1,R4
�MOV R4,R0,ASR#8
�
MOV R0,R3
�"MUL R4,R8,R4:; Vector per step
�MUL R5,R8,R5
�2ADD R0,R0,R4,ASR#1:; Half way along first step

ADD R1,R1,R5,ASR#1

.steploop%

BL drawsprite%

 ADD R0,R0,R4

*ADD R1,R1,R5

4SUBS R6,R6,#1

>BGT steploop%

HADR R13,tempstoredt%

RLDMIA R13,{R0-R12,R14}

\MOV PC,R14

f:

p.tempstoretrans%

z#EQUD -1:EQUD -1:EQUD -1:EQUD -1

�#EQUD -1:EQUD -1:EQUD -1:EQUD -1

�#EQUD -1:EQUD -1:EQUD -1:EQUD -1

�:

�
.view%

�(EQUD 1<<VC%:EQUD 0:EQUD 0:; X-vector

�(EQUD 0:EQUD 1<<VC%:EQUD 0:; Y-vector

�(EQUD 0:EQUD 0:EQUD 1<<VC%:; Z-vector

�:

�.transform%

�; Corrupts R0

�ADR R0,tempstoretrans%

�STMIA R0,{R1-R9,R14}

�OPT �adr(14,pos%,2)

.posloop%
LDR R9,[R14]
#CMN R9,#1:; Pos list terminator
$BEQ endtransform%
.1BIC R0,R9,#1:; Clear the "already drawn" flag
8ADR R7,view%
B; X*X-vector
LMOV R8,R9,LSR#24
VMOV R9,R9,LSL#8
`LDMIA R7!,{R4-R6}
jMUL R1,R8,R4
tSUB R1,R1,R4,ASL#7
~MUL R2,R8,R5
�SUB R2,R2,R5,ASL#7
�MUL R3,R8,R6
�SUB R3,R3,R6,ASL#7
�; Y*Y-vector
�MOV R8,R9,LSR#24
�MOV R9,R9,LSL#8
�LDMIA R7!,{R4-R6}
�MLA R1,R8,R4,R1
�SUB R1,R1,R4,ASL#7
�MLA R2,R8,R5,R2
�SUB R2,R2,R5,ASL#7
�MLA R3,R8,R6,R3
SUB R3,R3,R6,ASL#7

; Z*Z-vector
MOV R8,R9,LSR#24
MOV R9,R9,LSL#8
(LDMIA R7!,{R4-R6}
2MLA R1,R8,R4,R1
<SUB R1,R1,R4,ASL#7
FMLA R2,R8,R5,R2
PSUB R2,R2,R5,ASL#7
ZMLA R3,R8,R6,R3
dSUB R3,R3,R6,ASL#7
nMOV R1,R1,ASL#AC%-VC%
xMOV R2,R2,ASL#AC%-VC%
�MOV R3,R3,ASL#AC%-VC%
�ADD R1,R1,#160<<AC%
�ADD R2,R2,#128<<AC%
�STMIA R14!,{R0,R1-R3}
�B posloop%
�:
�.endtransform%
�ADR R0,tempstoretrans%
�LDMIA R0,{R1-R9,R14}
�MOV PC,R14
�:
�.tempstoresort%
�#EQUD -1:EQUD -1:EQUD -1:EQUD -1
#EQUD -1:EQUD -1:EQUD -1:EQUD -1
:

.sort%
"; Corrupts R0
,ADR R0,tempstoresort%
6STMIA R0,{R0-R1,R11-R14}
@6; Compile a list of lines, with distances attached
J*OPT �adr(14,pos%+12,2):; Z-coordinates
TOPT �adr(13,lines%,2)
^OPT �adr(12,slist%,2)
hMOV R11,#0
r.lineloop%
|LDR R0,[R13],#4
�
CMN R0,#1
�BEQ endsort1%
�� R1,R0,#255<<16
�� R0,R0,#255<<24
�LDR R0,[R14,R0,LSR#24-4]
�LDR R1,[R14,R1,LSR#16-4]
�ADD R0,R0,R1
�MOV R0,R0,ASR#1
�BIC R0,R0,#255
��R R0,R0,R11
�STR R0,[R12],#4
�ADD R11,R11,#1
�B lineloop%
:
.endsort1%
STR R0,[R12],#-4
&; Sort them
0OPT �adr(14,slist%,2)
:; R12 is last one
DCMP R12,R14
N"BLE endsort2%:; 0 or 1 of them
X
.outloop%
bLDMIA R14,{R0-R1}
lMOV R13,R14
v.inloop%
�
CMP R0,R1
�STRGT R0,[R13],#4
�MOVGT R0,R1
�STRLE R1,[R13],#4
�LDR R1,[R13,#4]
�CMP R13,R12
�BLT inloop%
�STR R0,[R13]
�SUB R12,R12,#4
�CMP R12,R14
�BGT outloop%
�.endsort2%
�ADR R0,tempstoresort%
LDMIA R0,{R0-R1,R11-R14}
MOV PC,R14
:
 .tempstoreps%
*#EQUD -1:EQUD -1:EQUD -1:EQUD -1
4#EQUD -1:EQUD -1:EQUD -1:EQUD -1
>#EQUD -1:EQUD -1:EQUD -1:EQUD -1
H#EQUD -1:EQUD -1:EQUD -1:EQUD -1
R:
\.plotshape%
f; R0 corrupted
pADR R0,tempstoreps%
zSTMIA R0,{R1-R14}
�OPT �adr(10,pos%,2)
�OPT �adr(11,lines%,2)
�OPT �adr(12,slist%,2)
�.plotloop%
�LDR R0,[R12],#4
�
CMN R0,#1
�BEQ endplotshape%
�� R0,R0,#255
�LDR R0,[R11,R0,ASL#2]
�� R6,R0,#255<<8
�MOV R6,R6,LSR#8
�� R3,R0,#255<<24
�� R4,R0,#255<<16
ADD R3,R10,R3,LSR#24-4
ADD R4,R10,R4,LSR#16-4
*OPT �adr(13,spr%+(192<<10),2):; Sphere
$LDR R0,[R3]
.
TST R0,#1
8BNE alreadyplotted1%
B�R R0,R0,#1
LSTR R0,[R3]
VLDMIB R3,{R0-R1}
`BL drawsprite%
j.alreadyplotted1%
tLDR R0,[R4]
~
TST R0,#1
�BNE alreadyplotted2%
��R R0,R0,#1
�STR R0,[R4]
�LDMIB R4,{R0-R1}
�BL drawsprite%
�.alreadyplotted2%
�LDMIB R3,{R0-R2}
�LDMIB R4,{R3-R5}
�SUB R0,R0,R3
�SUB R1,R1,R4
�SUB R2,R2,R5
�BL drawtube%
B plotloop%

:
.endplotshape%
ADR R0,tempstoreps%
(LDMIA R0,{R1-R14}
2MOV PC,R14
<:
F.tempstorerot%
P#EQUD -1:EQUD -1:EQUD -1:EQUD -1
Z#EQUD -1:EQUD -1:EQUD -1:EQUD -1
d#EQUD -1:EQUD -1:EQUD -1:EQUD -1
n#EQUD -1:EQUD -1:EQUD -1:EQUD -1
x:
�.rotate%
�; Corrupts R0
�ADR R0,tempstorerot%
�STMIA R0,{R1-R14}
�; The rotations
�OPT �adr(14,sin%,2)
�8MOV R0,#1<<VC%:MOV R1,#0:MOV R2,#0:; Identity matrix
�&MOV R3,#0:MOV R4,#1<<VC%:MOV R5,#0
�&MOV R6,#0:MOV R7,#0:MOV R8,#1<<VC%
�; X-axis rotation
�LDR R12,angles%+0
�� R12,R12,#255
�ADD R12,R14,R12,ASL#2
LDR R13,[R12,#cos%-sin%]
LDR R12,[R12]
]:�U%=0�8�3:[OPT T%
"MOV R9,(U%+2)
,MUL (U%+2),R13,R9
6 MLA (U%+2),R12,(U%+1),(U%+2)
@MUL (U%+1),R13,(U%+1)
JMUL R9,R12,R9
TSUB (U%+1),(U%+1),R9
^MOV (U%+1),(U%+1),ASR#SC%
hMOV (U%+2),(U%+2),ASR#SC%
r]:�:[OPT T%
|; Y-axis rotation
�LDR R12,angles%+4
�� R12,R12,#255
�ADD R12,R14,R12,ASL#2
�LDR R13,[R12,#cos%-sin%]
�LDR R12,[R12]
�]:�U%=0�8�3:[OPT T%
�
MOV R9,U%
�MUL U%,R13,R9
�MLA U%,R12,(U%+2),U%
�MUL (U%+2),R13,(U%+2)
�MUL R9,R12,R9
�SUB (U%+2),(U%+2),R9
�MOV (U%+2),(U%+2),ASR#SC%
MOV U%,U%,ASR#SC%
]:�:[OPT T%
; Z-axis rotation
&LDR R12,angles%+8
0� R12,R12,#255
:ADD R12,R14,R12,ASL#2
DLDR R13,[R12,#cos%-sin%]
NLDR R12,[R12]
X]:�U%=0�8�3:[OPT T%
bMOV R9,(U%+1)
lMUL (U%+1),R13,R9
vMLA (U%+1),R12,U%,(U%+1)
�MUL U%,R13,U%
�MUL R9,R12,R9
�SUB U%,U%,R9
�MOV U%,U%,ASR#SC%
�MOV (U%+1),(U%+1),ASR#SC%
�]:�:[OPT T%
�OPT �adr(12,view%,2)
�STMIA R12,{R0-R8}
�ADR R0,tempstorerot%
�LDMIA R0,{R1-R14}
�MOV PC,R14
�:
�.tempstoreanim%
#EQUD -1:EQUD -1:EQUD -1:EQUD -1
#EQUD -1:EQUD -1:EQUD -1:EQUD -1
#EQUD -1:EQUD -1:EQUD -1:EQUD -1
 #EQUD -1:EQUD -1:EQUD -1:EQUD -1
*:
4.random%:EQUD 1
>.colno%:EQUD 15
H:
R.angles%
\EQUD 0:EQUD 0:EQUD 0
fEQUD 1:EQUD 2:EQUD 3
p
.colours%
zEQUD 0:EQUD 85:EQUD 85
�EQUD 85:EQUD 0:EQUD 0
�EQUD 0:EQUD 0:EQUD 0
�EQUD 0:EQUD 0:EQUD 0
�:
�.animation%
�; Corrupts R0
�ADR R0,tempstoreanim%
�STMIA R0,{R1-R14}
�LDR R14,random%
�; Increment angles
�ADR R13,angles%
�LDMIA R13,{R0-R5}
�ADD R14,R14,R14,ASL#8
TST R14,#&FF000000
BNE dontchangespeed%
ADD R14,R14,R14,ASL#8
$MOV R3,R14,ASR#31-1
.ADD R14,R14,R14,ASL#8
8MOV R4,R14,ASR#31-1
BADD R14,R14,R14,ASL#8
LMOV R5,R14,ASR#31-1
V.dontchangespeed%
`ADD R0,R0,R3
jADD R1,R1,R4
tADD R2,R2,R5
~STMIA R13,{R0-R5}
�; Increment colours
�ADR R13,colours%
�LDMIA R13,{R0-R11}
�ADD R14,R14,R14,ASL#7
�TST R14,#&FE000000
�BNE dontchangecolour1
�TST R14,#1<<24
��Q R0,#0
�MOVNE R0,#85
�TST R14,#1<<23
��Q R1,#0
�MOVNE R1,#85
TST R14,#1<<22

�Q R2,#0
MOVNE R2,#85
.dontchangecolour1
(ADD R14,R14,R14,ASL#7
2TST R14,#&FE000000
<BNE dontchangecolour2
FTST R14,#1<<24
P�Q R3,#0
ZMOVNE R3,#85
dTST R14,#1<<23
n�Q R4,#0
xMOVNE R4,#85
�TST R14,#1<<22
��Q R5,#0
�MOVNE R5,#85
�.dontchangecolour2
�]:�U%=6�11:[OPT T%
�CMP U%,(U%-6)
�ADDLT U%,U%,#1
�SUBGT U%,U%,#1
�]:�:[OPT T%
�STMIA R13,{R0-R11}
�; Redefine colours
�LDR R12,colno%
�ADD R12,R12,#5
� R12,R12,#15
STR R12,colno%

.colloop%
"SWI &113:; �19,
,MOV R0,R12
6SWI "OS_WriteC":; colour,
@!SWI &110:;                16,
J� R1,R12,#3
TMOV R2,R12,LSR#2
^MUL R0,R1,R6
hMLA R0,R2,R9,R0
rCMP R0,#255
|MOVGT R0,#255
�&SWI "OS_WriteC":;             Red,
�MUL R0,R1,R7
�MLA R0,R2,R10,R0
�CMP R0,#255
�MOVGT R0,#255
�-SWI "OS_WriteC":;                  Green,
�MUL R0,R1,R8
�MLA R0,R2,R11,R0
�CMP R0,#255
�MOVGT R0,#255
�2SWI "OS_WriteC":;                         Blue
�ADD R14,R14,#1
�STR R14,random%
ADR R0,tempstoreanim%
LDMIA R0,{R1-R14}
MOV PC,R14
&:
0.tempstoredb%
:#EQUD -1:EQUD -1:EQUD -1:EQUD -1
D#EQUD -1:EQUD -1:EQUD -1:EQUD -1
N#EQUD -1:EQUD -1:EQUD -1:EQUD -1
X#EQUD -1:EQUD -1:EQUD -1:EQUD -1
b:
l.drawback%
v; Corrupts R0
�ADR R0,tempstoredb%
�STMIA R0,{R1-R14}
�LDR R14,scraddr%
�ADD R14,R14,#32>>1
� OPT �adr(13,back%+(32>>1),3)
�MOV R12,#256
�.yloop%
�]:�U%=0�255�8*8:[OPT T%
�LDMIA R13!,{R0-R7}
�STMIA R14!,{R0-R7}
�]:�:[OPT T%
�ADD R13,R13,#320-256>>1
�ADD R14,R14,#320-256>>1
SUBS R12,R12,#1
BGT yloop%
ADR R0,tempstoredb%
 LDMIA R0,{R1-R14}
*MOV PC,R14
4:
>0]:�P%>endcode%��255,"Not enough code memory"
H�
R�
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 0d 00 14 1b  f4 20 62 79 20 20 41 6c  |mage..... by  Al|
00000020  69 73 74 61 69 72 20 54  75 72 6e 62 75 6c 6c 0d  |istair Turnbull.|
00000030  00 1e 17 f4 20 28 63 29  20 41 55 20 41 70 72 69  |.... (c) AU Apri|
00000040  6c 20 31 39 39 34 0d 00  28 05 3a 0d 00 32 0c eb  |l 1994..(.:..2..|
00000050  31 32 3a eb 39 3a 87 0d  00 3c 0e f2 63 6f 6e 73  |12:.9:...<..cons|
00000060  74 61 6e 74 73 0d 00 46  25 73 70 61 63 65 6c 65  |tants..F%spacele|
00000070  6e 25 3d 26 38 30 30 30  30 3a de 73 70 61 63 65  |n%=&80000:.space|
00000080  25 73 70 61 63 65 6c 65  6e 25 0d 00 50 33 63 6f  |%spacelen%..P3co|
00000090  64 65 25 3d 73 70 61 63  65 25 3a 73 70 61 63 65  |de%=space%:space|
000000a0  25 2b 3d 26 34 30 30 30  3a 65 6e 64 63 6f 64 65  |%+=&4000:endcode|
000000b0  25 3d 63 6f 64 65 25 2b  26 34 30 30 30 0d 00 5a  |%=code%+&4000..Z|
000000c0  23 70 6f 73 25 3d 73 70  61 63 65 25 3a 73 70 61  |#pos%=space%:spa|
000000d0  63 65 25 2b 3d 31 36 2a  6e 6f 70 6f 73 25 2b 34  |ce%+=16*nopos%+4|
000000e0  0d 00 64 26 6c 69 6e 65  73 25 3d 73 70 61 63 65  |..d&lines%=space|
000000f0  25 3a 73 70 61 63 65 25  2b 3d 34 2a 6e 6f 6c 69  |%:space%+=4*noli|
00000100  6e 65 73 25 2b 34 0d 00  6e 24 73 6c 69 73 74 25  |nes%+4..n$slist%|
00000110  3d 73 70 61 63 65 25 3a  73 70 61 63 65 25 2b 3d  |=space%:space%+=|
00000120  34 2a 6e 6f 6c 69 6e 65  73 25 0d 00 78 36 73 69  |4*nolines%..x6si|
00000130  6e 25 3d 73 70 61 63 65  25 3a 63 6f 73 25 3d 73  |n%=space%:cos%=s|
00000140  69 6e 25 2b 28 36 34 3c  3c 32 29 3a 73 70 61 63  |in%+(64<<2):spac|
00000150  65 25 3d 63 6f 73 25 2b  28 32 35 36 3c 3c 32 29  |e%=cos%+(256<<2)|
00000160  0d 00 82 32 73 70 72 25  3d 73 70 61 63 65 25 3a  |...2spr%=space%:|
00000170  73 70 61 63 65 25 2b 3d  6e 6f 73 70 72 25 2a 31  |space%+=nospr%*1|
00000180  30 32 34 3a 65 6e 64 73  70 72 25 3d 73 70 61 63  |024:endspr%=spac|
00000190  65 25 0d 00 8c 1e 62 61  63 6b 25 3d 73 70 61 63  |e%....back%=spac|
000001a0  65 25 3a 73 70 61 63 65  25 2b 3d 26 41 30 30 30  |e%:space%+=&A000|
000001b0  0d 00 96 35 e7 73 70 61  63 65 25 3e 73 70 61 63  |...5.space%>spac|
000001c0  65 25 2b 73 70 61 63 65  6c 65 6e 25 8c 85 32 35  |e%+spacelen%..25|
000001d0  35 2c 22 4e 6f 74 20 65  6e 6f 75 67 68 20 6d 65  |5,"Not enough me|
000001e0  6d 6f 72 79 22 0d 00 a0  0d f2 61 73 73 65 6d 62  |mory".....assemb|
000001f0  6c 65 0d 00 aa 0d f2 73  65 74 75 70 70 6f 73 0d  |le.....setuppos.|
00000200  00 b4 33 e3 54 25 3d 30  b8 33 31 39 3a 73 69 6e  |..3.T%=0.319:sin|
00000210  25 21 28 54 25 3c 3c 32  29 3d 28 31 3c 3c 53 43  |%!(T%<<2)=(1<<SC|
00000220  25 29 2a b5 28 32 2a af  2a 54 25 2f 32 35 36 29  |%)*.(2*.*T%/256)|
00000230  3a ed 0d 00 be 33 f2 63  6f 6c 6f 75 72 73 28 30  |:....3.colours(0|
00000240  2c 30 2c 30 2c 30 2c 30  2c 30 29 3a ff 28 22 46  |,0,0,0,0,0):.("F|
00000250  58 31 31 32 2c 32 22 29  3a ff 28 22 46 58 31 31  |X112,2"):.("FX11|
00000260  33 2c 32 22 29 0d 00 c8  31 db 3a f2 66 61 6e 63  |3,2")...1.:.fanc|
00000270  79 70 72 69 6e 74 28 22  50 6c 65 61 73 65 20 77  |yprint("Please w|
00000280  61 69 74 20 61 20 6d 6f  6d 65 6e 74 22 2c 36 34  |ait a moment",64|
00000290  30 2c 35 31 32 29 0d 00  d2 1b f2 66 61 64 65 69  |0,512).....fadei|
000002a0  6e 28 38 35 2c 30 2c 30  2c 30 2c 38 35 2c 38 35  |n(85,0,0,0,85,85|
000002b0  29 0d 00 dc 29 ff 28 22  4c 4f 41 44 20 3c 54 75  |)...).("LOAD <Tu|
000002c0  62 65 73 24 64 69 72 3e  2e 53 70 72 69 74 65 73  |bes$dir>.Sprites|
000002d0  20 22 2b c3 7e 73 70 72  25 29 0d 00 e6 1c ff 28  | "+.~spr%).....(|
000002e0  22 46 58 31 31 32 2c 31  22 29 3a f2 62 61 63 6b  |"FX112,1"):.back|
000002f0  67 72 6f 75 6e 64 0d 00  f0 1c f2 66 61 64 65 6f  |ground.....fadeo|
00000300  75 74 28 38 35 2c 30 2c  30 2c 30 2c 38 35 2c 38  |ut(85,0,0,0,85,8|
00000310  35 29 0d 00 fa 35 e3 54  25 3d 30 b8 26 39 46 46  |5)...5.T%=0.&9FF|
00000320  46 88 34 3a 62 61 63 6b  25 21 54 25 3d 73 63 72  |F.4:back%!T%=scr|
00000330  25 21 54 25 3a 73 63 72  32 25 21 54 25 3d 73 63  |%!T%:scr2%!T%=sc|
00000340  72 25 21 54 25 3a ed 0d  01 04 05 f5 0d 01 0e 0b  |r%!T%:..........|
00000350  d6 66 72 61 6d 65 25 0d  01 18 06 fd 30 0d 01 22  |.frame%.....0.."|
00000360  05 e0 0d 01 2c 05 3a 0d  01 36 05 3a 0d 01 40 0f  |....,.:..6.:..@.|
00000370  dd f2 63 6f 6e 73 74 61  6e 74 73 0d 01 4a 0e 6e  |..constants..J.n|
00000380  6f 73 70 72 25 3d 32 35  36 0d 01 54 19 6e 6f 70  |ospr%=256..T.nop|
00000390  6f 73 25 3d 33 32 3a 6e  6f 6c 69 6e 65 73 25 3d  |os%=32:nolines%=|
000003a0  33 32 0d 01 5e 0a 54 52  25 3d 34 34 0d 01 68 18  |32..^.TR%=44..h.|
000003b0  41 43 25 3d 31 36 3a 56  43 25 3d 31 32 3a 53 43  |AC%=16:VC%=12:SC|
000003c0  25 3d 31 32 0d 01 72 05  e1 0d 01 7c 05 3a 0d 01  |%=12..r....|.:..|
000003d0  86 0e dd f2 73 65 74 75  70 70 6f 73 0d 01 90 0c  |....setuppos....|
000003e0  f3 4e 50 25 2c 4e 4c 25  0d 01 9a 19 e3 54 25 3d  |.NP%,NL%.....T%=|
000003f0  30 b8 4e 50 25 2d 31 3a  f3 58 25 2c 59 25 2c 5a  |0.NP%-1:.X%,Y%,Z|
00000400  25 0d 01 a4 36 70 6f 73  25 21 28 54 25 2a 31 36  |%...6pos%!(T%*16|
00000410  29 3d 28 58 25 2b 31 32  38 3c 3c 32 34 29 2b 28  |)=(X%+128<<24)+(|
00000420  59 25 2b 31 32 38 3c 3c  31 36 29 2b 28 5a 25 2b  |Y%+128<<16)+(Z%+|
00000430  31 32 38 3c 3c 38 29 0d  01 ae 16 ed 3a 70 6f 73  |128<<8).....:pos|
00000440  25 21 28 4e 50 25 2a 31  36 29 3d 2d 31 0d 01 b8  |%!(NP%*16)=-1...|
00000450  29 f3 63 68 65 63 6b 25  3a e7 63 68 65 63 6b 25  |).check%:.check%|
00000460  3c 3e 2d 31 8c 85 32 35  35 2c 22 44 61 74 61 20  |<>-1..255,"Data |
00000470  65 72 72 6f 72 22 0d 01  c2 19 e3 54 25 3d 30 b8  |error".....T%=0.|
00000480  4e 4c 25 2d 31 3a f3 46  25 2c 47 25 2c 4e 25 0d  |NL%-1:.F%,G%,N%.|
00000490  01 cc 2b 6c 69 6e 65 73  25 21 28 54 25 2a 34 29  |..+lines%!(T%*4)|
000004a0  3d 28 46 25 3c 3c 32 34  29 2b 28 47 25 3c 3c 31  |=(F%<<24)+(G%<<1|
000004b0  36 29 2b 28 4e 25 3c 3c  38 29 0d 01 d6 17 ed 3a  |6)+(N%<<8).....:|
000004c0  6c 69 6e 65 73 25 21 28  4e 4c 25 2a 34 29 3d 2d  |lines%!(NL%*4)=-|
000004d0  31 0d 01 e0 29 f3 63 68  65 63 6b 25 3a e7 63 68  |1...).check%:.ch|
000004e0  65 63 6b 25 3c 3e 2d 31  8c 85 32 35 35 2c 22 44  |eck%<>-1..255,"D|
000004f0  61 74 61 20 65 72 72 6f  72 22 0d 01 ea 05 e1 0d  |ata error"......|
00000500  01 f4 05 3a 0d 01 fe 08  dc 34 2c 36 0d 02 08 0e  |...:.....4,6....|
00000510  dc 36 30 2c 36 30 2c 2d  36 30 0d 02 12 10 dc 2d  |.60,60,-60.....-|
00000520  36 30 2c 2d 36 30 2c 2d  36 30 0d 02 1c 0e dc 36  |60,-60,-60.....6|
00000530  30 2c 2d 36 30 2c 36 30  0d 02 26 0e dc 2d 36 30  |0,-60,60..&..-60|
00000540  2c 36 30 2c 36 30 0d 02  30 07 dc 2d 31 0d 02 3a  |,60,60..0..-1..:|
00000550  2d dc 30 2c 31 2c 38 2c  20 30 2c 32 2c 38 2c 20  |-.0,1,8, 0,2,8, |
00000560  30 2c 33 2c 38 2c 20 31  2c 32 2c 38 2c 20 31 2c  |0,3,8, 1,2,8, 1,|
00000570  33 2c 38 2c 20 32 2c 33  2c 38 0d 02 44 07 dc 2d  |3,8, 2,3,8..D..-|
00000580  31 0d 02 4e 05 3a 0d 02  58 10 dd f2 62 61 63 6b  |1..N.:..X...back|
00000590  67 72 6f 75 6e 64 0d 02  62 45 4c 58 3d 2d 31 3a  |ground..bELX=-1:|
000005a0  4c 59 3d 31 3a 4c 5a 3d  2d 32 3a 46 3d 31 2f b6  |LY=1:LZ=-2:F=1/.|
000005b0  28 4c 58 2a 4c 58 2b 4c  59 2a 4c 59 2b 4c 5a 2a  |(LX*LX+LY*LY+LZ*|
000005c0  4c 5a 29 3a 4c 58 3d 4c  58 2a 46 3a 4c 59 3d 4c  |LZ):LX=LX*F:LY=L|
000005d0  59 2a 46 3a 4c 5a 3d 4c  5a 2a 46 0d 02 6c 44 4d  |Y*F:LZ=LZ*F..lDM|
000005e0  58 3d 31 3a 4d 59 3d 31  3a 4d 5a 3d 2d 32 3a 46  |X=1:MY=1:MZ=-2:F|
000005f0  3d 31 2f b6 28 4d 58 2a  4d 58 2b 4d 59 2a 4d 59  |=1/.(MX*MX+MY*MY|
00000600  2b 4d 5a 2a 4d 5a 29 3a  4d 58 3d 4d 58 2a 46 3a  |+MZ*MZ):MX=MX*F:|
00000610  4d 59 3d 4d 59 2a 46 3a  4d 5a 3d 4d 5a 2a 46 0d  |MY=MY*F:MZ=MZ*F.|
00000620  02 76 57 ff 28 22 46 58  31 31 32 2c 32 22 29 3a  |.vW.("FX112,2"):|
00000630  21 62 61 63 6b 25 3d 31  34 38 3a 62 61 63 6b 25  |!back%=148:back%|
00000640  21 34 3d 2d 31 3a c8 99  22 4f 53 5f 52 65 61 64  |!4=-1:.."OS_Read|
00000650  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 62 61  |VduVariables",ba|
00000660  63 6b 25 2c 62 61 63 6b  25 3a 73 63 72 32 25 3d  |ck%,back%:scr2%=|
00000670  21 62 61 63 6b 25 0d 02  80 56 ff 28 22 46 58 31  |!back%...V.("FX1|
00000680  31 32 2c 31 22 29 3a 21  62 61 63 6b 25 3d 31 34  |12,1"):!back%=14|
00000690  38 3a 62 61 63 6b 25 21  34 3d 2d 31 3a c8 99 22  |8:back%!4=-1:.."|
000006a0  4f 53 5f 52 65 61 64 56  64 75 56 61 72 69 61 62  |OS_ReadVduVariab|
000006b0  6c 65 73 22 2c 62 61 63  6b 25 2c 62 61 63 6b 25  |les",back%,back%|
000006c0  3a 73 63 72 25 3d 21 62  61 63 6b 25 0d 02 8a 1d  |:scr%=!back%....|
000006d0  e3 58 25 3d 2d 33 30 b8  33 30 88 34 3a e3 59 25  |.X%=-30.30.4:.Y%|
000006e0  3d 2d 33 30 b8 33 30 88  34 0d 02 94 27 58 3d 58  |=-30.30.4...'X=X|
000006f0  25 2f 33 32 3a 59 3d 59  25 2f 33 32 3a 5a 32 3d  |%/32:Y=Y%/32:Z2=|
00000700  31 2d 58 2a 58 2d 59 2a  59 3a e7 5a 32 3e 30 8c  |1-X*X-Y*Y:.Z2>0.|
00000710  0d 02 9e 0c 5a 3d 2d b6  28 5a 32 29 0d 02 a8 1f  |....Z=-.(Z2)....|
00000720  f2 6c 69 67 68 74 28 58  2c 59 2c 5a 29 3a c8 92  |.light(X,Y,Z):..|
00000730  58 25 2b 33 32 2c 59 25  2b 33 32 0d 02 b2 21 f2  |X%+32,Y%+32...!.|
00000740  6c 69 67 68 74 28 2d 58  2c 2d 59 2c 5a 29 3a c8  |light(-X,-Y,Z):.|
00000750  92 58 25 2b 39 36 2c 59  25 2b 33 32 0d 02 bc 2f  |.X%+96,Y%+32.../|
00000760  cc f2 6c 69 67 68 74 28  30 2c 30 2c 2d 31 29 3a  |..light(0,0,-1):|
00000770  c8 92 58 25 2b 33 32 2c  59 25 2b 33 32 3a c8 92  |..X%+32,Y%+32:..|
00000780  58 25 2b 39 36 2c 59 25  2b 33 32 0d 02 c6 08 cd  |X%+96,Y%+32.....|
00000790  3a ed 2c 0d 02 d0 1d ec  30 2c 30 3a ec 42 59 36  |:.,.....0,0:.BY6|
000007a0  33 2c 36 33 3a ef 32 33  2c 32 37 2c 31 2c 30 7c  |3,63:.23,27,1,0||
000007b0  0d 02 da 1e ec 36 34 2c  30 3a ec 42 59 36 33 2c  |.....64,0:.BY63,|
000007c0  36 33 3a ef 32 33 2c 32  37 2c 31 2c 31 7c 0d 02  |63:.23,27,1,1|..|
000007d0  e4 48 e3 58 25 3d 30 b8  32 30 3a e3 59 25 3d 30  |.H.X%=0.20:.Y%=0|
000007e0  b8 31 35 3a ef 32 33 2c  32 37 2c 30 2c b3 28 32  |.15:.23,27,0,.(2|
000007f0  29 2d 31 7c 3a f0 26 45  44 2c 28 58 25 3c 3c 36  |)-1|:.&ED,(X%<<6|
00000800  29 2d 28 28 59 25 80 31  29 3c 3c 35 29 2c 59 25  |)-((Y%.1)<<5),Y%|
00000810  3c 3c 36 3a ed 2c 0d 02  ee 05 e1 0d 02 f8 05 3a  |<<6:.,.........:|
00000820  0d 03 02 12 dd f2 6c 69  67 68 74 28 58 2c 59 2c  |......light(X,Y,|
00000830  5a 29 0d 03 0c 2d 4c 42  3d 4c 58 2a 58 2b 4c 59  |Z)...-LB=LX*X+LY|
00000840  2a 59 2b 4c 5a 2a 5a 3a  e7 4c 42 3c 30 8c 4c 42  |*Y+LZ*Z:.LB<0.LB|
00000850  3d 30 8b 4c 42 3d 33 2a  4c 42 2b b3 28 31 29 0d  |=0.LB=3*LB+.(1).|
00000860  03 16 2d 4d 42 3d 4d 58  2a 58 2b 4d 59 2a 59 2b  |..-MB=MX*X+MY*Y+|
00000870  4d 5a 2a 5a 3a e7 4d 42  3c 30 8c 4d 42 3d 30 8b  |MZ*Z:.MB<0.MB=0.|
00000880  4d 42 3d 33 2a 4d 42 2b  b3 28 31 29 0d 03 20 11  |MB=3*MB+.(1).. .|
00000890  e6 30 2c 28 4c 42 3c 3c  32 29 2b 4d 42 0d 03 2a  |.0,(LB<<2)+MB..*|
000008a0  05 e1 0d 03 34 05 3a 0d  03 3e 20 dd f2 63 6f 6c  |....4.:..> ..col|
000008b0  6f 75 72 73 28 41 25 2c  42 25 2c 43 25 2c 44 25  |ours(A%,B%,C%,D%|
000008c0  2c 45 25 2c 46 25 29 0d  03 48 0a ea 54 25 2c 55  |,E%,F%)..H..T%,U|
000008d0  25 0d 03 52 46 e3 54 25  3d 30 b8 33 3a e3 55 25  |%..RF.T%=0.3:.U%|
000008e0  3d 30 b8 33 3a fb 54 25  2b 28 55 25 3c 3c 32 29  |=0.3:.T%+(U%<<2)|
000008f0  2c 54 25 2a 41 25 2b 55  25 2a 44 25 2c 54 25 2a  |,T%*A%+U%*D%,T%*|
00000900  42 25 2b 55 25 2a 45 25  2c 54 25 2a 43 25 2b 55  |B%+U%*E%,T%*C%+U|
00000910  25 2a 46 25 3a ed 2c 0d  03 5c 05 e1 0d 03 66 05  |%*F%:.,..\....f.|
00000920  3a 0d 03 70 1f dd f2 66  61 64 65 69 6e 28 41 25  |:..p...fadein(A%|
00000930  2c 42 25 2c 43 25 2c 44  25 2c 45 25 2c 46 25 29  |,B%,C%,D%,E%,F%)|
00000940  0d 03 7a 23 4e 54 25 3d  91 3a f5 3a 48 25 3d 91  |..z#NT%=.:.:H%=.|
00000950  2d 4e 54 25 3a e7 48 25  3e 31 32 38 8c 48 25 3d  |-NT%:.H%>128.H%=|
00000960  31 32 38 0d 03 84 43 f2  63 6f 6c 6f 75 72 73 28  |128...C.colours(|
00000970  41 25 2a 48 25 3e 3e 37  2c 42 25 2a 48 25 3e 3e  |A%*H%>>7,B%*H%>>|
00000980  37 2c 43 25 2a 48 25 3e  3e 37 2c 44 25 2a 48 25  |7,C%*H%>>7,D%*H%|
00000990  3e 3e 37 2c 45 25 2a 48  25 3e 3e 37 2c 46 25 2a  |>>7,E%*H%>>7,F%*|
000009a0  48 25 3e 3e 37 29 0d 03  8e 0c fd 48 25 3e 3d 31  |H%>>7).....H%>=1|
000009b0  32 38 0d 03 98 05 e1 0d  03 a2 05 3a 0d 03 ac 20  |28.........:... |
000009c0  dd f2 66 61 64 65 6f 75  74 28 41 25 2c 42 25 2c  |..fadeout(A%,B%,|
000009d0  43 25 2c 44 25 2c 45 25  2c 46 25 29 0d 03 b6 23  |C%,D%,E%,F%)...#|
000009e0  4e 54 25 3d 91 3a f5 3a  48 25 3d 31 32 38 2d 91  |NT%=.:.:H%=128-.|
000009f0  2b 4e 54 25 3a e7 48 25  3c 30 8c 48 25 3d 30 0d  |+NT%:.H%<0.H%=0.|
00000a00  03 c0 43 f2 63 6f 6c 6f  75 72 73 28 41 25 2a 48  |..C.colours(A%*H|
00000a10  25 3e 3e 37 2c 42 25 2a  48 25 3e 3e 37 2c 43 25  |%>>7,B%*H%>>7,C%|
00000a20  2a 48 25 3e 3e 37 2c 44  25 2a 48 25 3e 3e 37 2c  |*H%>>7,D%*H%>>7,|
00000a30  45 25 2a 48 25 3e 3e 37  2c 46 25 2a 48 25 3e 3e  |E%*H%>>7,F%*H%>>|
00000a40  37 29 0d 03 ca 0a fd 48  25 3c 3d 30 0d 03 d4 05  |7).....H%<=0....|
00000a50  e1 0d 03 de 05 3a 0d 03  e8 1a dd f2 66 61 6e 63  |.....:......fanc|
00000a60  79 70 72 69 6e 74 28 54  24 2c 58 25 2c 59 25 29  |yprint(T$,X%,Y%)|
00000a70  0d 03 f2 1a 59 25 2b 3d  31 35 3a 58 25 2d 3d a9  |....Y%+=15:X%-=.|
00000a80  28 54 24 29 3c 3c 34 3a  ef 35 0d 03 fc 23 e6 30  |(T$)<<4:.5...#.0|
00000a90  2c 28 33 3c 3c 30 29 2b  28 31 3c 3c 32 29 3a ec  |,(3<<0)+(1<<2):.|
00000aa0  58 25 2d 34 2c 59 25 2b  34 3a f1 54 24 0d 04 06  |X%-4,Y%+4:.T$...|
00000ab0  23 e6 30 2c 28 31 3c 3c  30 29 2b 28 33 3c 3c 32  |#.0,(1<<0)+(3<<2|
00000ac0  29 3a ec 58 25 2b 34 2c  59 25 2b 34 3a f1 54 24  |):.X%+4,Y%+4:.T$|
00000ad0  0d 04 10 23 e6 30 2c 28  31 3c 3c 30 29 2b 28 30  |...#.0,(1<<0)+(0|
00000ae0  3c 3c 32 29 3a ec 58 25  2d 34 2c 59 25 2d 34 3a  |<<2):.X%-4,Y%-4:|
00000af0  f1 54 24 0d 04 1a 23 e6  30 2c 28 30 3c 3c 30 29  |.T$...#.0,(0<<0)|
00000b00  2b 28 31 3c 3c 32 29 3a  ec 58 25 2b 34 2c 59 25  |+(1<<2):.X%+4,Y%|
00000b10  2d 34 3a f1 54 24 0d 04  24 21 e6 30 2c 28 32 3c  |-4:.T$..$!.0,(2<|
00000b20  3c 30 29 2b 28 32 3c 3c  32 29 3a ec 58 25 2c 59  |<0)+(2<<2):.X%,Y|
00000b30  25 2b 34 3a f1 54 24 0d  04 2e 21 e6 30 2c 28 32  |%+4:.T$...!.0,(2|
00000b40  3c 3c 30 29 2b 28 30 3c  3c 32 29 3a ec 58 25 2d  |<<0)+(0<<2):.X%-|
00000b50  34 2c 59 25 3a f1 54 24  0d 04 38 21 e6 30 2c 28  |4,Y%:.T$..8!.0,(|
00000b60  30 3c 3c 30 29 2b 28 32  3c 3c 32 29 3a ec 58 25  |0<<0)+(2<<2):.X%|
00000b70  2d 34 2c 59 25 3a f1 54  24 0d 04 42 21 e6 30 2c  |-4,Y%:.T$..B!.0,|
00000b80  28 30 3c 3c 30 29 2b 28  32 3c 3c 32 29 3a ec 58  |(0<<0)+(2<<2):.X|
00000b90  25 2c 59 25 2d 34 3a f1  54 24 0d 04 4c 1f e6 30  |%,Y%-4:.T$..L..0|
00000ba0  2c 28 31 3c 3c 31 29 2b  28 31 3c 3c 32 29 3a ec  |,(1<<1)+(1<<2):.|
00000bb0  58 25 2c 59 25 3a f1 54  24 0d 04 56 08 ef 34 3a  |X%,Y%:.T$..V..4:|
00000bc0  87 0d 04 60 05 e1 0d 04  6a 05 3a 0d 04 74 13 dd  |...`....j.:..t..|
00000bd0  a4 61 64 72 28 52 25 2c  41 25 2c 49 25 29 0d 04  |.adr(R%,A%,I%)..|
00000be0  7e 2c e7 28 50 25 80 33  29 3c 3e 30 8c f1 22 43  |~,.(P%.3)<>0.."C|
00000bf0  6f 64 65 20 69 73 6e 27  74 20 77 6f 72 64 20 61  |ode isn't word a|
00000c00  6c 69 67 6e 65 64 21 22  3a e0 0d 04 88 28 ea 4e  |ligned!":....(.N|
00000c10  25 2c 4f 25 2c 48 25 2c  55 25 3a 48 25 3d 41 25  |%,O%,H%,U%:H%=A%|
00000c20  2d 28 50 25 2b 38 29 3a  4e 25 3d 30 3a 4f 25 3d  |-(P%+8):N%=0:O%=|
00000c30  31 35 0d 04 92 13 e3 55  25 3d 31 b8 49 25 3a e7  |15.....U%=1.I%:.|
00000c40  48 25 3d 30 8c 0d 04 9c  17 5b 4f 50 54 20 54 25  |H%=0.....[OPT T%|
00000c50  3a 4d 4f 56 20 52 25 2c  4f 25 3a 5d 0d 04 a6 20  |:MOV R%,O%:]... |
00000c60  cc c8 95 28 48 25 80 33  29 3d 30 3a 48 25 3d 48  |...(H%.3)=0:H%=H|
00000c70  25 3e 3e 32 3a 4e 25 2b  3d 32 3a ce 0d 04 b0 10  |%>>2:N%+=2:.....|
00000c80  e7 28 48 25 80 32 35 36  29 3d 30 8c 0d 04 ba 30  |.(H%.256)=0....0|
00000c90  5b 4f 50 54 20 54 25 3a  41 44 44 20 52 25 2c 4f  |[OPT T%:ADD R%,O|
00000ca0  25 2c 23 28 48 25 80 32  35 35 29 3c 3c 4e 25 3a  |%,#(H%.255)<<N%:|
00000cb0  5d 3a 48 25 2d 3d 48 25  80 32 35 35 0d 04 c4 39  |]:H%-=H%.255...9|
00000cc0  cc 5b 4f 50 54 20 54 25  3a 53 55 42 20 52 25 2c  |.[OPT T%:SUB R%,|
00000cd0  4f 25 2c 23 28 32 35 36  2d 48 25 80 32 35 35 29  |O%,#(256-H%.255)|
00000ce0  3c 3c 4e 25 3a 5d 3a 48  25 2b 3d 32 35 36 2d 48  |<<N%:]:H%+=256-H|
00000cf0  25 80 32 35 35 0d 04 ce  05 cd 0d 04 d8 0d cd 3a  |%.255..........:|
00000d00  4f 25 3d 52 25 3a ed 0d  04 e2 4a e7 48 25 3c 3e  |O%=R%:....J.H%<>|
00000d10  30 8c f1 22 43 6f 75 6c  64 20 6e 6f 74 20 41 44  |0.."Could not AD|
00000d20  52 20 74 6f 20 22 3b 41  25 3b 22 20 69 6e 20 22  |R to ";A%;" in "|
00000d30  3b 49 25 3b 22 20 69 6e  73 74 72 75 63 74 69 6f  |;I%;" instructio|
00000d40  6e 73 20 28 52 25 3d 22  3b 52 25 3b 22 29 22 3a  |ns (R%=";R%;")":|
00000d50  e0 0d 04 ec 07 3d 54 25  0d 04 f6 05 3a 0d 05 00  |.....=T%....:...|
00000d60  0e dd f2 61 73 73 65 6d  62 6c 65 0d 05 0a 16 e3  |...assemble.....|
00000d70  54 25 3d 30 b8 32 88 32  3a 50 25 3d 63 6f 64 65  |T%=0.2.2:P%=code|
00000d80  25 0d 05 14 0b 5b 4f 50  54 20 54 25 0d 05 1e 0a  |%....[OPT T%....|
00000d90  2e 6c 69 6e 6b 25 0d 05  28 23 45 51 55 44 20 2d  |.link%..(#EQUD -|
00000da0  31 3a 45 51 55 44 20 2d  31 3a 45 51 55 44 20 2d  |1:EQUD -1:EQUD -|
00000db0  31 3a 45 51 55 44 20 2d  31 0d 05 32 10 2e 73 70  |1:EQUD -1..2..sp|
00000dc0  25 3a 45 51 55 44 20 2d  31 0d 05 3c 05 3a 0d 05  |%:EQUD -1..<.:..|
00000dd0  46 1e 2e 76 64 75 76 61  72 73 25 3a 45 51 55 44  |F..vduvars%:EQUD|
00000de0  20 31 34 38 3a 45 51 55  44 20 2d 31 0d 05 50 15  | 148:EQUD -1..P.|
00000df0  2e 73 63 72 61 64 64 72  25 3a 45 51 55 44 20 2d  |.scraddr%:EQUD -|
00000e00  31 0d 05 5a 12 2e 62 61  6e 6b 25 3a 45 51 55 44  |1..Z..bank%:EQUD|
00000e10  20 2d 31 0d 05 64 05 3a  0d 05 6e 0b 2e 66 72 61  | -1..d.:..n..fra|
00000e20  6d 65 25 0d 05 78 0f 53  54 52 20 52 31 33 2c 73  |me%..x.STR R13,s|
00000e30  70 25 0d 05 82 13 53 54  52 20 52 31 34 2c 6c 69  |p%....STR R14,li|
00000e40  6e 6b 25 2b 30 0d 05 8c  10 4c 44 52 20 52 31 2c  |nk%+0....LDR R1,|
00000e50  62 61 6e 6b 25 0d 05 96  0e 80 20 52 31 2c 52 31  |bank%..... R1,R1|
00000e60  2c 23 31 0d 05 a0 10 41  44 44 20 52 31 2c 52 31  |,#1....ADD R1,R1|
00000e70  2c 23 31 0d 05 aa 10 53  54 52 20 52 31 2c 62 61  |,#1....STR R1,ba|
00000e80  6e 6b 25 0d 05 b4 0f 4d  4f 56 20 52 30 2c 23 31  |nk%....MOV R0,#1|
00000e90  31 32 0d 05 be 11 53 57  49 20 22 4f 53 5f 42 79  |12....SWI "OS_By|
00000ea0  74 65 22 0d 05 c8 13 41  44 52 20 52 30 2c 76 64  |te"....ADR R0,vd|
00000eb0  75 76 61 72 73 25 0d 05  d2 13 41 44 52 20 52 31  |uvars%....ADR R1|
00000ec0  2c 73 63 72 61 64 64 72  25 0d 05 dc 1d 53 57 49  |,scraddr%....SWI|
00000ed0  20 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  | "OS_ReadVduVari|
00000ee0  61 62 6c 65 73 22 0d 05  e6 14 3b 20 44 72 61 77  |ables"....; Draw|
00000ef0  20 74 68 65 20 66 72 61  6d 65 0d 05 f0 10 42 4c  | the frame....BL|
00000f00  20 64 72 61 77 62 61 63  6b 25 0d 05 fa 11 42 4c  | drawback%....BL|
00000f10  20 61 6e 69 6d 61 74 69  6f 6e 25 0d 06 04 0e 42  | animation%....B|
00000f20  4c 20 72 6f 74 61 74 65  25 0d 06 0e 11 42 4c 20  |L rotate%....BL |
00000f30  74 72 61 6e 73 66 6f 72  6d 25 0d 06 18 0c 42 4c  |transform%....BL|
00000f40  20 73 6f 72 74 25 0d 06  22 11 42 4c 20 70 6c 6f  | sort%..".BL plo|
00000f50  74 73 68 61 70 65 25 0d  06 2c 1c 3b 20 44 69 73  |tshape%..,.; Dis|
00000f60  70 6c 61 79 20 74 68 65  20 6e 65 77 20 73 63 72  |play the new scr|
00000f70  65 65 6e 0d 06 36 0e 4d  4f 56 20 52 30 2c 23 31  |een..6.MOV R0,#1|
00000f80  39 0d 06 40 11 53 57 49  20 22 4f 53 5f 42 79 74  |9..@.SWI "OS_Byt|
00000f90  65 22 0d 06 4a 10 4c 44  52 20 52 31 2c 62 61 6e  |e"..J.LDR R1,ban|
00000fa0  6b 25 0d 06 54 0f 4d 4f  56 20 52 30 2c 23 31 31  |k%..T.MOV R0,#11|
00000fb0  33 0d 06 5e 11 53 57 49  20 22 4f 53 5f 42 79 74  |3..^.SWI "OS_Byt|
00000fc0  65 22 0d 06 68 13 4c 44  52 20 52 31 34 2c 6c 69  |e"..h.LDR R14,li|
00000fd0  6e 6b 25 2b 30 0d 06 72  0f 4c 44 52 20 52 31 33  |nk%+0..r.LDR R13|
00000fe0  2c 73 70 25 0d 06 7c 0e  4d 4f 56 20 50 43 2c 52  |,sp%..|.MOV PC,R|
00000ff0  31 34 0d 06 86 05 3a 0d  06 90 11 2e 74 65 6d 70  |14....:.....temp|
00001000  73 74 6f 72 65 66 74 25  0d 06 9a 23 45 51 55 44  |storeft%...#EQUD|
00001010  20 2d 31 3a 45 51 55 44  20 2d 31 3a 45 51 55 44  | -1:EQUD -1:EQUD|
00001020  20 2d 31 3a 45 51 55 44  20 2d 31 0d 06 a4 23 45  | -1:EQUD -1...#E|
00001030  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 3a 45  |QUD -1:EQUD -1:E|
00001040  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 0d 06  |QUD -1:EQUD -1..|
00001050  ae 05 3a 0d 06 b8 0e 2e  66 69 6e 64 74 75 62 65  |..:.....findtube|
00001060  25 0d 06 c2 18 41 44 52  20 52 31 33 2c 74 65 6d  |%....ADR R13,tem|
00001070  70 73 74 6f 72 65 66 74  25 0d 06 cc 19 53 54 4d  |pstoreft%....STM|
00001080  49 41 20 52 31 33 2c 7b  52 30 2d 52 33 2c 52 31  |IA R13,{R0-R3,R1|
00001090  34 7d 0d 06 d6 17 4f 50  54 20 a4 61 64 72 28 31  |4}....OPT .adr(1|
000010a0  33 2c 73 70 72 25 2c 32  29 0d 06 e0 0d 43 4d 50  |3,spr%,2)....CMP|
000010b0  20 52 32 2c 23 30 0d 06  ea 12 52 53 42 4c 54 20  | R2,#0....RSBLT |
000010c0  52 30 2c 52 30 2c 23 30  0d 06 f4 12 52 53 42 4c  |R0,R0,#0....RSBL|
000010d0  54 20 52 31 2c 52 31 2c  23 30 0d 06 fe 12 52 53  |T R1,R1,#0....RS|
000010e0  42 4c 54 20 52 32 2c 52  32 2c 23 30 0d 07 08 0d  |BLT R2,R2,#0....|
000010f0  43 4d 50 20 52 31 2c 23  30 0d 07 12 18 41 44 44  |CMP R1,#0....ADD|
00001100  47 45 20 52 31 33 2c 52  31 33 2c 23 36 3c 3c 31  |GE R13,R13,#6<<1|
00001110  30 0d 07 1c 12 52 53 42  4c 54 20 52 31 2c 52 31  |0....RSBLT R1,R1|
00001120  2c 23 30 0d 07 26 0d 43  4d 50 20 52 30 2c 23 30  |,#0..&.CMP R0,#0|
00001130  0d 07 30 18 41 44 44 4c  54 20 52 31 33 2c 52 31  |..0.ADDLT R13,R1|
00001140  33 2c 23 33 3c 3c 31 30  0d 07 3a 12 52 53 42 4c  |3,#3<<10..:.RSBL|
00001150  54 20 52 30 2c 52 30 2c  23 30 0d 07 44 0d 43 4d  |T R0,R0,#0..D.CM|
00001160  50 20 52 31 2c 52 30 0d  07 4e 0f 43 4d 50 47 54  |P R1,R0..N.CMPGT|
00001170  20 52 31 2c 52 32 0d 07  58 0f 42 47 54 20 79 62  | R1,R2..X.BGT yb|
00001180  69 67 66 74 25 0d 07 62  0d 43 4d 50 20 52 32 2c  |igft%..b.CMP R2,|
00001190  52 30 0d 07 6c 0f 42 47  54 20 7a 62 69 67 66 74  |R0..l.BGT zbigft|
000011a0  25 0d 07 76 0c 2e 78 62  69 67 66 74 25 0d 07 80  |%..v..xbigft%...|
000011b0  16 41 44 44 20 52 31 33  2c 52 31 33 2c 23 31 3c  |.ADD R13,R13,#1<|
000011c0  3c 31 30 0d 07 8a 0e 2e  65 6e 64 62 69 67 66 74  |<10.....endbigft|
000011d0  25 0d 07 94 13 43 4d 50  20 52 31 2c 52 30 2c 41  |%....CMP R1,R0,A|
000011e0  53 52 23 31 0d 07 9e 18  53 55 42 47 45 20 52 31  |SR#1....SUBGE R1|
000011f0  2c 52 31 2c 52 30 2c 41  53 52 23 31 0d 07 a8 19  |,R1,R0,ASR#1....|
00001200  41 44 44 47 45 20 52 31  33 2c 52 31 33 2c 23 39  |ADDGE R13,R13,#9|
00001210  36 3c 3c 31 30 0d 07 b2  13 43 4d 50 20 52 31 2c  |6<<10....CMP R1,|
00001220  52 30 2c 41 53 52 23 32  0d 07 bc 19 41 44 44 47  |R0,ASR#2....ADDG|
00001230  45 20 52 31 33 2c 52 31  33 2c 23 34 38 3c 3c 31  |E R13,R13,#48<<1|
00001240  30 0d 07 c6 13 43 4d 50  20 52 32 2c 52 30 2c 41  |0....CMP R2,R0,A|
00001250  53 52 23 31 0d 07 d0 18  53 55 42 47 45 20 52 32  |SR#1....SUBGE R2|
00001260  2c 52 32 2c 52 30 2c 41  53 52 23 31 0d 07 da 19  |,R2,R0,ASR#1....|
00001270  41 44 44 47 45 20 52 31  33 2c 52 31 33 2c 23 32  |ADDGE R13,R13,#2|
00001280  34 3c 3c 31 30 0d 07 e4  13 43 4d 50 20 52 32 2c  |4<<10....CMP R2,|
00001290  52 30 2c 41 53 52 23 32  0d 07 ee 19 41 44 44 47  |R0,ASR#2....ADDG|
000012a0  45 20 52 31 33 2c 52 31  33 2c 23 31 32 3c 3c 31  |E R13,R13,#12<<1|
000012b0  30 0d 07 f8 11 2e 65 6e  64 66 69 6e 64 74 75 62  |0.....endfindtub|
000012c0  65 25 0d 08 02 17 41 44  52 20 52 33 2c 74 65 6d  |e%....ADR R3,tem|
000012d0  70 73 74 6f 72 65 66 74  25 0d 08 0c 18 4c 44 4d  |pstoreft%....LDM|
000012e0  49 41 20 52 33 2c 7b 52  30 2d 52 33 2c 52 31 34  |IA R3,{R0-R3,R14|
000012f0  7d 0d 08 16 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |}....MOV PC,R14.|
00001300  08 20 05 3a 0d 08 2a 0c  2e 79 62 69 67 66 74 25  |. .:..*..ybigft%|
00001310  0d 08 34 16 41 44 44 20  52 31 33 2c 52 31 33 2c  |..4.ADD R13,R13,|
00001320  23 32 3c 3c 31 30 0d 08  3e 0d 4d 4f 56 20 52 33  |#2<<10..>.MOV R3|
00001330  2c 52 30 0d 08 48 0d 4d  4f 56 20 52 30 2c 52 31  |,R0..H.MOV R0,R1|
00001340  0d 08 52 0d 4d 4f 56 20  52 31 2c 52 32 0d 08 5c  |..R.MOV R1,R2..\|
00001350  0d 4d 4f 56 20 52 32 2c  52 33 0d 08 66 0f 42 20  |.MOV R2,R3..f.B |
00001360  65 6e 64 62 69 67 66 74  25 0d 08 70 05 3a 0d 08  |endbigft%..p.:..|
00001370  7a 0c 2e 7a 62 69 67 66  74 25 0d 08 84 0d 4d 4f  |z..zbigft%....MO|
00001380  56 20 52 33 2c 52 32 0d  08 8e 0d 4d 4f 56 20 52  |V R3,R2....MOV R|
00001390  32 2c 52 31 0d 08 98 0d  4d 4f 56 20 52 31 2c 52  |2,R1....MOV R1,R|
000013a0  30 0d 08 a2 0d 4d 4f 56  20 52 30 2c 52 33 0d 08  |0....MOV R0,R3..|
000013b0  ac 0f 42 20 65 6e 64 62  69 67 66 74 25 0d 08 b6  |..B endbigft%...|
000013c0  05 3a 0d 08 c0 11 2e 74  65 6d 70 73 74 6f 72 65  |.:.....tempstore|
000013d0  64 73 25 0d 08 ca 23 45  51 55 44 20 2d 31 3a 45  |ds%...#EQUD -1:E|
000013e0  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 3a 45  |QUD -1:EQUD -1:E|
000013f0  51 55 44 20 2d 31 0d 08  d4 23 45 51 55 44 20 2d  |QUD -1...#EQUD -|
00001400  31 3a 45 51 55 44 20 2d  31 3a 45 51 55 44 20 2d  |1:EQUD -1:EQUD -|
00001410  31 3a 45 51 55 44 20 2d  31 0d 08 de 23 45 51 55  |1:EQUD -1...#EQU|
00001420  44 20 2d 31 3a 45 51 55  44 20 2d 31 3a 45 51 55  |D -1:EQUD -1:EQU|
00001430  44 20 2d 31 3a 45 51 55  44 20 2d 31 0d 08 e8 23  |D -1:EQUD -1...#|
00001440  45 51 55 44 20 2d 31 3a  45 51 55 44 20 2d 31 3a  |EQUD -1:EQUD -1:|
00001450  45 51 55 44 20 2d 31 3a  45 51 55 44 20 2d 31 0d  |EQUD -1:EQUD -1.|
00001460  08 f2 05 3a 0d 08 fc 10  2e 64 72 61 77 73 70 72  |...:.....drawspr|
00001470  69 74 65 25 0d 09 06 11  3b 20 43 6f 72 72 75 70  |ite%....; Corrup|
00001480  74 73 20 52 32 0d 09 10  17 41 44 52 20 52 32 2c  |ts R2....ADR R2,|
00001490  74 65 6d 70 73 74 6f 72  65 64 73 25 0d 09 1a 26  |tempstoreds%...&|
000014a0  53 54 4d 49 41 20 52 32  2c 7b 52 30 2d 52 31 2c  |STMIA R2,{R0-R1,|
000014b0  52 33 2d 52 39 2c 52 31  31 2c 52 31 33 2d 52 31  |R3-R9,R11,R13-R1|
000014c0  34 7d 0d 09 24 28 53 55  42 20 52 30 2c 52 30 2c  |4}..$(SUB R0,R0,|
000014d0  23 31 35 2e 35 2a 28 31  3c 3c 41 43 25 29 3a 3b  |#15.5*(1<<AC%):;|
000014e0  20 54 4c 20 63 6f 72 6e  65 72 0d 09 2e 1c 53 55  | TL corner....SU|
000014f0  42 20 52 31 2c 52 31 2c  23 31 35 2e 35 2a 28 31  |B R1,R1,#15.5*(1|
00001500  3c 3c 41 43 25 29 0d 09  38 15 4d 4f 56 20 52 30  |<<AC%)..8.MOV R0|
00001510  2c 52 30 2c 4c 53 52 23  41 43 25 0d 09 42 15 4d  |,R0,LSR#AC%..B.M|
00001520  4f 56 20 52 31 2c 52 31  2c 4c 53 52 23 41 43 25  |OV R1,R1,LSR#AC%|
00001530  0d 09 4c 0f 43 4d 50 20  52 30 2c 23 32 38 38 0d  |..L.CMP R0,#288.|
00001540  09 56 11 43 4d 50 4c 45  20 52 31 2c 23 32 32 34  |.V.CMPLE R1,#224|
00001550  0d 09 60 2f 42 47 54 20  65 6e 64 64 72 61 77 73  |..`/BGT enddraws|
00001560  70 72 69 74 65 25 3a 3b  20 28 50 61 72 74 69 61  |prite%:; (Partia|
00001570  6c 6c 79 29 20 6f 66 66  20 73 63 72 65 65 6e 0d  |lly) off screen.|
00001580  09 6a 12 42 49 43 20 52  31 33 2c 52 31 33 2c 23  |.j.BIC R13,R13,#|
00001590  31 0d 09 74 14 4c 44 52  20 52 31 34 2c 73 63 72  |1..t.LDR R14,scr|
000015a0  61 64 64 72 25 0d 09 7e  18 41 44 44 20 52 31 34  |addr%..~.ADD R14|
000015b0  2c 52 31 34 2c 52 31 2c  41 53 4c 23 35 0d 09 88  |,R14,R1,ASL#5...|
000015c0  18 41 44 44 20 52 31 34  2c 52 31 34 2c 52 31 2c  |.ADD R14,R14,R1,|
000015d0  41 53 4c 23 37 0d 09 92  1f 80 20 52 32 2c 52 30  |ASL#7..... R2,R0|
000015e0  2c 23 37 3a 3b 20 57 6f  72 64 20 61 6c 69 67 6e  |,#7:; Word align|
000015f0  6d 65 6e 74 0d 09 9c 13  4d 4f 56 20 52 30 2c 52  |ment....MOV R0,R|
00001600  30 2c 4c 53 52 23 33 0d  09 a6 29 41 44 44 20 52  |0,LSR#3...)ADD R|
00001610  31 34 2c 52 31 34 2c 52  30 2c 41 53 4c 23 32 3a  |14,R14,R0,ASL#2:|
00001620  3b 20 53 63 72 65 65 6e  20 61 64 64 72 65 73 73  |; Screen address|
00001630  0d 09 b0 0f 4d 4f 56 20  52 31 31 2c 23 33 32 0d  |....MOV R11,#32.|
00001640  09 ba 15 41 44 52 20 52  31 2c 72 6f 75 74 69 6e  |...ADR R1,routin|
00001650  65 64 73 25 0d 09 c4 18  4c 44 52 20 52 30 2c 5b  |eds%....LDR R0,[|
00001660  52 31 2c 52 32 2c 41 53  4c 23 32 5d 0d 09 ce 10  |R1,R2,ASL#2]....|
00001670  41 44 44 20 50 43 2c 52  31 2c 52 30 0d 09 d8 0d  |ADD PC,R1,R0....|
00001680  4d 4f 56 20 52 30 2c 52  30 0d 09 e2 05 3a 0d 09  |MOV R0,R0....:..|
00001690  ec 13 2e 65 6e 64 64 72  61 77 73 70 72 69 74 65  |...enddrawsprite|
000016a0  25 0d 09 f6 17 41 44 52  20 52 32 2c 74 65 6d 70  |%....ADR R2,temp|
000016b0  73 74 6f 72 65 64 73 25  0d 0a 00 26 4c 44 4d 49  |storeds%...&LDMI|
000016c0  41 20 52 32 2c 7b 52 30  2d 52 31 2c 52 33 2d 52  |A R2,{R0-R1,R3-R|
000016d0  39 2c 52 31 31 2c 52 31  33 2d 52 31 34 7d 0d 0a  |9,R11,R13-R14}..|
000016e0  0a 0e 4d 4f 56 20 50 43  2c 52 31 34 0d 0a 14 05  |..MOV PC,R14....|
000016f0  3a 0d 0a 1e 0f 2e 72 6f  75 74 69 6e 65 64 73 25  |:.....routineds%|
00001700  0d 0a 28 15 5d 3a e3 55  25 3d 30 b8 37 3a 5b 4f  |..(.]:.U%=0.7:[O|
00001710  50 54 20 54 25 0d 0a 32  22 45 51 55 44 20 65 6e  |PT T%..2"EQUD en|
00001720  64 64 72 61 77 73 70 72  69 74 65 25 2d 72 6f 75  |ddrawsprite%-rou|
00001730  74 69 6e 65 64 73 25 0d  0a 3c 0f 5d 3a ed 3a 5b  |tineds%..<.]:.:[|
00001740  4f 50 54 20 54 25 0d 0a  46 05 3a 0d 0a 50 2d 5d  |OPT T%..F.:..P-]|
00001750  3a 72 6f 75 74 69 6e 65  64 73 25 21 28 30 3c 3c  |:routineds%!(0<<|
00001760  32 29 3d 50 25 2d 72 6f  75 74 69 6e 65 64 73 25  |2)=P%-routineds%|
00001770  3a 5b 4f 50 54 20 54 25  0d 0a 5a 0b 2e 79 6c 6f  |:[OPT T%..Z..ylo|
00001780  6f 70 25 0d 0a 64 15 4c  44 4d 49 41 20 52 31 34  |op%..d.LDMIA R14|
00001790  2c 7b 52 30 2d 52 33 7d  0d 0a 6e 16 4c 44 4d 49  |,{R0-R3}..n.LDMI|
000017a0  41 20 52 31 33 21 2c 7b  52 35 2d 52 38 7d 0d 0a  |A R13!,{R5-R8}..|
000017b0  78 1c 42 49 43 20 52 30  2c 52 30 2c 52 36 3a 84  |x.BIC R0,R0,R6:.|
000017c0  52 20 52 30 2c 52 30 2c  52 35 0d 0a 82 1c 42 49  |R R0,R0,R5....BI|
000017d0  43 20 52 31 2c 52 31 2c  52 38 3a 84 52 20 52 31  |C R1,R1,R8:.R R1|
000017e0  2c 52 31 2c 52 37 0d 0a  8c 16 4c 44 4d 49 41 20  |,R1,R7....LDMIA |
000017f0  52 31 33 21 2c 7b 52 35  2d 52 38 7d 0d 0a 96 1c  |R13!,{R5-R8}....|
00001800  42 49 43 20 52 32 2c 52  32 2c 52 36 3a 84 52 20  |BIC R2,R2,R6:.R |
00001810  52 32 2c 52 32 2c 52 35  0d 0a a0 1c 42 49 43 20  |R2,R2,R5....BIC |
00001820  52 33 2c 52 33 2c 52 38  3a 84 52 20 52 33 2c 52  |R3,R3,R8:.R R3,R|
00001830  33 2c 52 37 0d 0a aa 15  53 54 4d 49 41 20 52 31  |3,R7....STMIA R1|
00001840  34 2c 7b 52 30 2d 52 33  7d 0d 0a b4 14 41 44 44  |4,{R0-R3}....ADD|
00001850  20 52 31 34 2c 52 31 34  2c 23 31 36 30 0d 0a be  | R14,R14,#160...|
00001860  13 53 55 42 53 20 52 31  31 2c 52 31 31 2c 23 31  |.SUBS R11,R11,#1|
00001870  0d 0a c8 0e 42 47 54 20  79 6c 6f 6f 70 25 0d 0a  |....BGT yloop%..|
00001880  d2 14 42 20 65 6e 64 64  72 61 77 73 70 72 69 74  |..B enddrawsprit|
00001890  65 25 0d 0a dc 05 3a 0d  0a e6 36 5d 3a e3 55 25  |e%....:...6]:.U%|
000018a0  3d 31 b8 37 3a 72 6f 75  74 69 6e 65 64 73 25 21  |=1.7:routineds%!|
000018b0  28 55 25 3c 3c 32 29 3d  50 25 2d 72 6f 75 74 69  |(U%<<2)=P%-routi|
000018c0  6e 65 64 73 25 3a 5b 4f  50 54 20 54 25 0d 0a f0  |neds%:[OPT T%...|
000018d0  0b 2e 79 6c 6f 6f 70 25  0d 0a fa 15 4c 44 4d 49  |..yloop%....LDMI|
000018e0  41 20 52 31 34 2c 7b 52  30 2d 52 34 7d 0d 0b 04  |A R14,{R0-R4}...|
000018f0  16 4c 44 4d 49 41 20 52  31 33 21 2c 7b 52 35 2d  |.LDMIA R13!,{R5-|
00001900  52 38 7d 0d 0b 0e 61 42  49 43 20 52 30 2c 52 30  |R8}...aBIC R0,R0|
00001910  2c 52 36 2c 4c 53 4c 23  55 25 3c 3c 32 3a 84 52  |,R6,LSL#U%<<2:.R|
00001920  20 52 30 2c 52 30 2c 52  35 2c 4c 53 4c 23 55 25  | R0,R0,R5,LSL#U%|
00001930  3c 3c 32 3a 42 49 43 20  52 31 2c 52 31 2c 52 36  |<<2:BIC R1,R1,R6|
00001940  2c 4c 53 52 23 38 2d 55  25 3c 3c 32 3a 84 52 20  |,LSR#8-U%<<2:.R |
00001950  52 31 2c 52 31 2c 52 35  2c 4c 53 52 23 38 2d 55  |R1,R1,R5,LSR#8-U|
00001960  25 3c 3c 32 0d 0b 18 61  42 49 43 20 52 31 2c 52  |%<<2...aBIC R1,R|
00001970  31 2c 52 38 2c 4c 53 4c  23 55 25 3c 3c 32 3a 84  |1,R8,LSL#U%<<2:.|
00001980  52 20 52 31 2c 52 31 2c  52 37 2c 4c 53 4c 23 55  |R R1,R1,R7,LSL#U|
00001990  25 3c 3c 32 3a 42 49 43  20 52 32 2c 52 32 2c 52  |%<<2:BIC R2,R2,R|
000019a0  38 2c 4c 53 52 23 38 2d  55 25 3c 3c 32 3a 84 52  |8,LSR#8-U%<<2:.R|
000019b0  20 52 32 2c 52 32 2c 52  37 2c 4c 53 52 23 38 2d  | R2,R2,R7,LSR#8-|
000019c0  55 25 3c 3c 32 0d 0b 22  16 4c 44 4d 49 41 20 52  |U%<<2..".LDMIA R|
000019d0  31 33 21 2c 7b 52 35 2d  52 38 7d 0d 0b 2c 61 42  |13!,{R5-R8}..,aB|
000019e0  49 43 20 52 32 2c 52 32  2c 52 36 2c 4c 53 4c 23  |IC R2,R2,R6,LSL#|
000019f0  55 25 3c 3c 32 3a 84 52  20 52 32 2c 52 32 2c 52  |U%<<2:.R R2,R2,R|
00001a00  35 2c 4c 53 4c 23 55 25  3c 3c 32 3a 42 49 43 20  |5,LSL#U%<<2:BIC |
00001a10  52 33 2c 52 33 2c 52 36  2c 4c 53 52 23 38 2d 55  |R3,R3,R6,LSR#8-U|
00001a20  25 3c 3c 32 3a 84 52 20  52 33 2c 52 33 2c 52 35  |%<<2:.R R3,R3,R5|
00001a30  2c 4c 53 52 23 38 2d 55  25 3c 3c 32 0d 0b 36 61  |,LSR#8-U%<<2..6a|
00001a40  42 49 43 20 52 33 2c 52  33 2c 52 38 2c 4c 53 4c  |BIC R3,R3,R8,LSL|
00001a50  23 55 25 3c 3c 32 3a 84  52 20 52 33 2c 52 33 2c  |#U%<<2:.R R3,R3,|
00001a60  52 37 2c 4c 53 4c 23 55  25 3c 3c 32 3a 42 49 43  |R7,LSL#U%<<2:BIC|
00001a70  20 52 34 2c 52 34 2c 52  38 2c 4c 53 52 23 38 2d  | R4,R4,R8,LSR#8-|
00001a80  55 25 3c 3c 32 3a 84 52  20 52 34 2c 52 34 2c 52  |U%<<2:.R R4,R4,R|
00001a90  37 2c 4c 53 52 23 38 2d  55 25 3c 3c 32 0d 0b 40  |7,LSR#8-U%<<2..@|
00001aa0  15 53 54 4d 49 41 20 52  31 34 2c 7b 52 30 2d 52  |.STMIA R14,{R0-R|
00001ab0  34 7d 0d 0b 4a 14 41 44  44 20 52 31 34 2c 52 31  |4}..J.ADD R14,R1|
00001ac0  34 2c 23 31 36 30 0d 0b  54 13 53 55 42 53 20 52  |4,#160..T.SUBS R|
00001ad0  31 31 2c 52 31 31 2c 23  31 0d 0b 5e 0e 42 47 54  |11,R11,#1..^.BGT|
00001ae0  20 79 6c 6f 6f 70 25 0d  0b 68 14 42 20 65 6e 64  | yloop%..h.B end|
00001af0  64 72 61 77 73 70 72 69  74 65 25 0d 0b 72 0f 5d  |drawsprite%..r.]|
00001b00  3a ed 3a 5b 4f 50 54 20  54 25 0d 0b 7c 05 3a 0d  |:.:[OPT T%..|.:.|
00001b10  0b 86 11 2e 74 65 6d 70  73 74 6f 72 65 64 74 25  |....tempstoredt%|
00001b20  0d 0b 90 23 45 51 55 44  20 2d 31 3a 45 51 55 44  |...#EQUD -1:EQUD|
00001b30  20 2d 31 3a 45 51 55 44  20 2d 31 3a 45 51 55 44  | -1:EQUD -1:EQUD|
00001b40  20 2d 31 0d 0b 9a 23 45  51 55 44 20 2d 31 3a 45  | -1...#EQUD -1:E|
00001b50  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 3a 45  |QUD -1:EQUD -1:E|
00001b60  51 55 44 20 2d 31 0d 0b  a4 23 45 51 55 44 20 2d  |QUD -1...#EQUD -|
00001b70  31 3a 45 51 55 44 20 2d  31 3a 45 51 55 44 20 2d  |1:EQUD -1:EQUD -|
00001b80  31 3a 45 51 55 44 20 2d  31 0d 0b ae 23 45 51 55  |1:EQUD -1...#EQU|
00001b90  44 20 2d 31 3a 45 51 55  44 20 2d 31 3a 45 51 55  |D -1:EQUD -1:EQU|
00001ba0  44 20 2d 31 3a 45 51 55  44 20 2d 31 0d 0b b8 05  |D -1:EQUD -1....|
00001bb0  3a 0d 0b c2 0e 2e 64 72  61 77 74 75 62 65 25 0d  |:.....drawtube%.|
00001bc0  0b cc 12 3b 20 43 6f 72  72 75 70 74 73 20 52 31  |...; Corrupts R1|
00001bd0  33 0d 0b d6 2e 3b 20 45  78 70 65 63 74 73 20 52  |3....; Expects R|
00001be0  30 2d 52 31 20 74 6f 20  62 65 20 74 68 65 20 64  |0-R1 to be the d|
00001bf0  69 72 65 63 74 69 6f 6e  20 76 65 63 74 6f 72 0d  |irection vector.|
00001c00  0b e0 2d 3b 20 45 78 70  65 63 74 73 20 52 33 2d  |..-; Expects R3-|
00001c10  52 34 28 2c 52 35 29 20  74 6f 20 62 65 20 73 74  |R4(,R5) to be st|
00001c20  61 72 74 20 70 6f 73 69  74 69 6f 6e 0d 0b ea 2a  |art position...*|
00001c30  3b 20 45 78 70 65 63 74  73 20 52 36 20 74 6f 20  |; Expects R6 to |
00001c40  62 65 20 74 68 65 20 6e  75 6d 62 65 72 20 6f 66  |be the number of|
00001c50  20 73 74 65 70 73 0d 0b  f4 18 41 44 52 20 52 31  | steps....ADR R1|
00001c60  33 2c 74 65 6d 70 73 74  6f 72 65 64 74 25 0d 0b  |3,tempstoredt%..|
00001c70  fe 1a 53 54 4d 49 41 20  52 31 33 2c 7b 52 30 2d  |..STMIA R13,{R0-|
00001c80  52 31 32 2c 52 31 34 7d  0d 0c 08 0d 43 4d 50 20  |R12,R14}....CMP |
00001c90  52 32 2c 23 30 0d 0c 12  2e 41 44 44 47 54 20 52  |R2,#0....ADDGT R|
00001ca0  33 2c 52 33 2c 52 30 3a  3b 20 4d 75 73 74 20 73  |3,R3,R0:; Must s|
00001cb0  74 61 72 74 20 61 74 20  74 68 65 20 66 61 72 20  |tart at the far |
00001cc0  65 6e 64 0d 0c 1c 12 41  44 44 47 54 20 52 34 2c  |end....ADDGT R4,|
00001cd0  52 34 2c 52 31 0d 0c 26  12 41 44 44 47 54 20 52  |R4,R1..&.ADDGT R|
00001ce0  35 2c 52 35 2c 52 32 0d  0c 30 3b 52 53 42 47 54  |5,R5,R2..0;RSBGT|
00001cf0  20 52 30 2c 52 30 2c 23  30 3a 3b 20 4d 75 73 74  | R0,R0,#0:; Must|
00001d00  20 68 61 76 65 20 76 65  63 74 6f 72 20 66 61 63  | have vector fac|
00001d10  69 6e 67 20 74 6f 77 61  72 64 73 20 76 69 65 77  |ing towards view|
00001d20  65 72 0d 0c 3a 12 52 53  42 47 54 20 52 31 2c 52  |er..:.RSBGT R1,R|
00001d30  31 2c 23 30 0d 0c 44 12  52 53 42 47 54 20 52 32  |1,#0..D.RSBGT R2|
00001d40  2c 52 32 2c 23 30 0d 0c  4e 10 42 4c 20 66 69 6e  |,R2,#0..N.BL fin|
00001d50  64 74 75 62 65 25 0d 0c  58 16 3b 20 44 69 76 69  |dtube%..X.; Divi|
00001d60  64 65 20 31 3c 3c 38 20  62 79 20 33 0d 0c 62 10  |de 1<<8 by 3..b.|
00001d70  4d 4f 56 20 52 37 2c 23  31 3c 3c 38 0d 0c 6c 0d  |MOV R7,#1<<8..l.|
00001d80  4d 4f 56 20 52 38 2c 23  30 0d 0c 76 18 5d 3a e3  |MOV R8,#0..v.]:.|
00001d90  55 25 3d 37 b8 31 88 2d  31 3a 5b 4f 50 54 20 54  |U%=7.1.-1:[OPT T|
00001da0  25 0d 0c 80 14 43 4d 50  20 52 36 2c 52 37 2c 41  |%....CMP R6,R7,A|
00001db0  53 52 23 55 25 0d 0c 8a  19 53 55 42 4c 45 20 52  |SR#U%....SUBLE R|
00001dc0  37 2c 52 37 2c 52 36 2c  41 53 4c 23 55 25 0d 0c  |7,R7,R6,ASL#U%..|
00001dd0  94 16 41 44 44 4c 45 20  52 38 2c 52 38 2c 23 31  |..ADDLE R8,R8,#1|
00001de0  3c 3c 55 25 0d 0c 9e 0f  5d 3a ed 3a 5b 4f 50 54  |<<U%....]:.:[OPT|
00001df0  20 54 25 0d 0c a8 0d 43  4d 50 20 52 36 2c 52 37  | T%....CMP R6,R7|
00001e00  0d 0c b2 12 41 44 44 4c  45 20 52 38 2c 52 38 2c  |....ADDLE R8,R8,|
00001e10  23 31 0d 0c bc 13 4d 4f  56 20 52 35 2c 52 31 2c  |#1....MOV R5,R1,|
00001e20  41 53 52 23 38 0d 0c c6  0d 4d 4f 56 20 52 31 2c  |ASR#8....MOV R1,|
00001e30  52 34 0d 0c d0 13 4d 4f  56 20 52 34 2c 52 30 2c  |R4....MOV R4,R0,|
00001e40  41 53 52 23 38 0d 0c da  0d 4d 4f 56 20 52 30 2c  |ASR#8....MOV R0,|
00001e50  52 33 0d 0c e4 22 4d 55  4c 20 52 34 2c 52 38 2c  |R3..."MUL R4,R8,|
00001e60  52 34 3a 3b 20 56 65 63  74 6f 72 20 70 65 72 20  |R4:; Vector per |
00001e70  73 74 65 70 0d 0c ee 10  4d 55 4c 20 52 35 2c 52  |step....MUL R5,R|
00001e80  38 2c 52 35 0d 0c f8 32  41 44 44 20 52 30 2c 52  |8,R5...2ADD R0,R|
00001e90  30 2c 52 34 2c 41 53 52  23 31 3a 3b 20 48 61 6c  |0,R4,ASR#1:; Hal|
00001ea0  66 20 77 61 79 20 61 6c  6f 6e 67 20 66 69 72 73  |f way along firs|
00001eb0  74 20 73 74 65 70 0d 0d  02 16 41 44 44 20 52 31  |t step....ADD R1|
00001ec0  2c 52 31 2c 52 35 2c 41  53 52 23 31 0d 0d 0c 0e  |,R1,R5,ASR#1....|
00001ed0  2e 73 74 65 70 6c 6f 6f  70 25 0d 0d 16 12 42 4c  |.steploop%....BL|
00001ee0  20 64 72 61 77 73 70 72  69 74 65 25 0d 0d 20 10  | drawsprite%.. .|
00001ef0  41 44 44 20 52 30 2c 52  30 2c 52 34 0d 0d 2a 10  |ADD R0,R0,R4..*.|
00001f00  41 44 44 20 52 31 2c 52  31 2c 52 35 0d 0d 34 11  |ADD R1,R1,R5..4.|
00001f10  53 55 42 53 20 52 36 2c  52 36 2c 23 31 0d 0d 3e  |SUBS R6,R6,#1..>|
00001f20  11 42 47 54 20 73 74 65  70 6c 6f 6f 70 25 0d 0d  |.BGT steploop%..|
00001f30  48 18 41 44 52 20 52 31  33 2c 74 65 6d 70 73 74  |H.ADR R13,tempst|
00001f40  6f 72 65 64 74 25 0d 0d  52 1a 4c 44 4d 49 41 20  |oredt%..R.LDMIA |
00001f50  52 31 33 2c 7b 52 30 2d  52 31 32 2c 52 31 34 7d  |R13,{R0-R12,R14}|
00001f60  0d 0d 5c 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 0d  |..\.MOV PC,R14..|
00001f70  66 05 3a 0d 0d 70 14 2e  74 65 6d 70 73 74 6f 72  |f.:..p..tempstor|
00001f80  65 74 72 61 6e 73 25 0d  0d 7a 23 45 51 55 44 20  |etrans%..z#EQUD |
00001f90  2d 31 3a 45 51 55 44 20  2d 31 3a 45 51 55 44 20  |-1:EQUD -1:EQUD |
00001fa0  2d 31 3a 45 51 55 44 20  2d 31 0d 0d 84 23 45 51  |-1:EQUD -1...#EQ|
00001fb0  55 44 20 2d 31 3a 45 51  55 44 20 2d 31 3a 45 51  |UD -1:EQUD -1:EQ|
00001fc0  55 44 20 2d 31 3a 45 51  55 44 20 2d 31 0d 0d 8e  |UD -1:EQUD -1...|
00001fd0  23 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |#EQUD -1:EQUD -1|
00001fe0  3a 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |:EQUD -1:EQUD -1|
00001ff0  0d 0d 98 05 3a 0d 0d a2  0a 2e 76 69 65 77 25 0d  |....:.....view%.|
00002000  0d ac 28 45 51 55 44 20  31 3c 3c 56 43 25 3a 45  |..(EQUD 1<<VC%:E|
00002010  51 55 44 20 30 3a 45 51  55 44 20 30 3a 3b 20 58  |QUD 0:EQUD 0:; X|
00002020  2d 76 65 63 74 6f 72 0d  0d b6 28 45 51 55 44 20  |-vector...(EQUD |
00002030  30 3a 45 51 55 44 20 31  3c 3c 56 43 25 3a 45 51  |0:EQUD 1<<VC%:EQ|
00002040  55 44 20 30 3a 3b 20 59  2d 76 65 63 74 6f 72 0d  |UD 0:; Y-vector.|
00002050  0d c0 28 45 51 55 44 20  30 3a 45 51 55 44 20 30  |..(EQUD 0:EQUD 0|
00002060  3a 45 51 55 44 20 31 3c  3c 56 43 25 3a 3b 20 5a  |:EQUD 1<<VC%:; Z|
00002070  2d 76 65 63 74 6f 72 0d  0d ca 05 3a 0d 0d d4 0f  |-vector....:....|
00002080  2e 74 72 61 6e 73 66 6f  72 6d 25 0d 0d de 11 3b  |.transform%....;|
00002090  20 43 6f 72 72 75 70 74  73 20 52 30 0d 0d e8 1a  | Corrupts R0....|
000020a0  41 44 52 20 52 30 2c 74  65 6d 70 73 74 6f 72 65  |ADR R0,tempstore|
000020b0  74 72 61 6e 73 25 0d 0d  f2 18 53 54 4d 49 41 20  |trans%....STMIA |
000020c0  52 30 2c 7b 52 31 2d 52  39 2c 52 31 34 7d 0d 0d  |R0,{R1-R9,R14}..|
000020d0  fc 17 4f 50 54 20 a4 61  64 72 28 31 34 2c 70 6f  |..OPT .adr(14,po|
000020e0  73 25 2c 32 29 0d 0e 06  0d 2e 70 6f 73 6c 6f 6f  |s%,2).....posloo|
000020f0  70 25 0d 0e 10 10 4c 44  52 20 52 39 2c 5b 52 31  |p%....LDR R9,[R1|
00002100  34 5d 0d 0e 1a 23 43 4d  4e 20 52 39 2c 23 31 3a  |4]...#CMN R9,#1:|
00002110  3b 20 50 6f 73 20 6c 69  73 74 20 74 65 72 6d 69  |; Pos list termi|
00002120  6e 61 74 6f 72 0d 0e 24  15 42 45 51 20 65 6e 64  |nator..$.BEQ end|
00002130  74 72 61 6e 73 66 6f 72  6d 25 0d 0e 2e 31 42 49  |transform%...1BI|
00002140  43 20 52 30 2c 52 39 2c  23 31 3a 3b 20 43 6c 65  |C R0,R9,#1:; Cle|
00002150  61 72 20 74 68 65 20 22  61 6c 72 65 61 64 79 20  |ar the "already |
00002160  64 72 61 77 6e 22 20 66  6c 61 67 0d 0e 38 10 41  |drawn" flag..8.A|
00002170  44 52 20 52 37 2c 76 69  65 77 25 0d 0e 42 10 3b  |DR R7,view%..B.;|
00002180  20 58 2a 58 2d 76 65 63  74 6f 72 0d 0e 4c 14 4d  | X*X-vector..L.M|
00002190  4f 56 20 52 38 2c 52 39  2c 4c 53 52 23 32 34 0d  |OV R8,R9,LSR#24.|
000021a0  0e 56 13 4d 4f 56 20 52  39 2c 52 39 2c 4c 53 4c  |.V.MOV R9,R9,LSL|
000021b0  23 38 0d 0e 60 15 4c 44  4d 49 41 20 52 37 21 2c  |#8..`.LDMIA R7!,|
000021c0  7b 52 34 2d 52 36 7d 0d  0e 6a 10 4d 55 4c 20 52  |{R4-R6}..j.MUL R|
000021d0  31 2c 52 38 2c 52 34 0d  0e 74 16 53 55 42 20 52  |1,R8,R4..t.SUB R|
000021e0  31 2c 52 31 2c 52 34 2c  41 53 4c 23 37 0d 0e 7e  |1,R1,R4,ASL#7..~|
000021f0  10 4d 55 4c 20 52 32 2c  52 38 2c 52 35 0d 0e 88  |.MUL R2,R8,R5...|
00002200  16 53 55 42 20 52 32 2c  52 32 2c 52 35 2c 41 53  |.SUB R2,R2,R5,AS|
00002210  4c 23 37 0d 0e 92 10 4d  55 4c 20 52 33 2c 52 38  |L#7....MUL R3,R8|
00002220  2c 52 36 0d 0e 9c 16 53  55 42 20 52 33 2c 52 33  |,R6....SUB R3,R3|
00002230  2c 52 36 2c 41 53 4c 23  37 0d 0e a6 10 3b 20 59  |,R6,ASL#7....; Y|
00002240  2a 59 2d 76 65 63 74 6f  72 0d 0e b0 14 4d 4f 56  |*Y-vector....MOV|
00002250  20 52 38 2c 52 39 2c 4c  53 52 23 32 34 0d 0e ba  | R8,R9,LSR#24...|
00002260  13 4d 4f 56 20 52 39 2c  52 39 2c 4c 53 4c 23 38  |.MOV R9,R9,LSL#8|
00002270  0d 0e c4 15 4c 44 4d 49  41 20 52 37 21 2c 7b 52  |....LDMIA R7!,{R|
00002280  34 2d 52 36 7d 0d 0e ce  13 4d 4c 41 20 52 31 2c  |4-R6}....MLA R1,|
00002290  52 38 2c 52 34 2c 52 31  0d 0e d8 16 53 55 42 20  |R8,R4,R1....SUB |
000022a0  52 31 2c 52 31 2c 52 34  2c 41 53 4c 23 37 0d 0e  |R1,R1,R4,ASL#7..|
000022b0  e2 13 4d 4c 41 20 52 32  2c 52 38 2c 52 35 2c 52  |..MLA R2,R8,R5,R|
000022c0  32 0d 0e ec 16 53 55 42  20 52 32 2c 52 32 2c 52  |2....SUB R2,R2,R|
000022d0  35 2c 41 53 4c 23 37 0d  0e f6 13 4d 4c 41 20 52  |5,ASL#7....MLA R|
000022e0  33 2c 52 38 2c 52 36 2c  52 33 0d 0f 00 16 53 55  |3,R8,R6,R3....SU|
000022f0  42 20 52 33 2c 52 33 2c  52 36 2c 41 53 4c 23 37  |B R3,R3,R6,ASL#7|
00002300  0d 0f 0a 10 3b 20 5a 2a  5a 2d 76 65 63 74 6f 72  |....; Z*Z-vector|
00002310  0d 0f 14 14 4d 4f 56 20  52 38 2c 52 39 2c 4c 53  |....MOV R8,R9,LS|
00002320  52 23 32 34 0d 0f 1e 13  4d 4f 56 20 52 39 2c 52  |R#24....MOV R9,R|
00002330  39 2c 4c 53 4c 23 38 0d  0f 28 15 4c 44 4d 49 41  |9,LSL#8..(.LDMIA|
00002340  20 52 37 21 2c 7b 52 34  2d 52 36 7d 0d 0f 32 13  | R7!,{R4-R6}..2.|
00002350  4d 4c 41 20 52 31 2c 52  38 2c 52 34 2c 52 31 0d  |MLA R1,R8,R4,R1.|
00002360  0f 3c 16 53 55 42 20 52  31 2c 52 31 2c 52 34 2c  |.<.SUB R1,R1,R4,|
00002370  41 53 4c 23 37 0d 0f 46  13 4d 4c 41 20 52 32 2c  |ASL#7..F.MLA R2,|
00002380  52 38 2c 52 35 2c 52 32  0d 0f 50 16 53 55 42 20  |R8,R5,R2..P.SUB |
00002390  52 32 2c 52 32 2c 52 35  2c 41 53 4c 23 37 0d 0f  |R2,R2,R5,ASL#7..|
000023a0  5a 13 4d 4c 41 20 52 33  2c 52 38 2c 52 36 2c 52  |Z.MLA R3,R8,R6,R|
000023b0  33 0d 0f 64 16 53 55 42  20 52 33 2c 52 33 2c 52  |3..d.SUB R3,R3,R|
000023c0  36 2c 41 53 4c 23 37 0d  0f 6e 19 4d 4f 56 20 52  |6,ASL#7..n.MOV R|
000023d0  31 2c 52 31 2c 41 53 4c  23 41 43 25 2d 56 43 25  |1,R1,ASL#AC%-VC%|
000023e0  0d 0f 78 19 4d 4f 56 20  52 32 2c 52 32 2c 41 53  |..x.MOV R2,R2,AS|
000023f0  4c 23 41 43 25 2d 56 43  25 0d 0f 82 19 4d 4f 56  |L#AC%-VC%....MOV|
00002400  20 52 33 2c 52 33 2c 41  53 4c 23 41 43 25 2d 56  | R3,R3,ASL#AC%-V|
00002410  43 25 0d 0f 8c 17 41 44  44 20 52 31 2c 52 31 2c  |C%....ADD R1,R1,|
00002420  23 31 36 30 3c 3c 41 43  25 0d 0f 96 17 41 44 44  |#160<<AC%....ADD|
00002430  20 52 32 2c 52 32 2c 23  31 32 38 3c 3c 41 43 25  | R2,R2,#128<<AC%|
00002440  0d 0f a0 19 53 54 4d 49  41 20 52 31 34 21 2c 7b  |....STMIA R14!,{|
00002450  52 30 2c 52 31 2d 52 33  7d 0d 0f aa 0e 42 20 70  |R0,R1-R3}....B p|
00002460  6f 73 6c 6f 6f 70 25 0d  0f b4 05 3a 0d 0f be 12  |osloop%....:....|
00002470  2e 65 6e 64 74 72 61 6e  73 66 6f 72 6d 25 0d 0f  |.endtransform%..|
00002480  c8 1a 41 44 52 20 52 30  2c 74 65 6d 70 73 74 6f  |..ADR R0,tempsto|
00002490  72 65 74 72 61 6e 73 25  0d 0f d2 18 4c 44 4d 49  |retrans%....LDMI|
000024a0  41 20 52 30 2c 7b 52 31  2d 52 39 2c 52 31 34 7d  |A R0,{R1-R9,R14}|
000024b0  0d 0f dc 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 0f  |....MOV PC,R14..|
000024c0  e6 05 3a 0d 0f f0 13 2e  74 65 6d 70 73 74 6f 72  |..:.....tempstor|
000024d0  65 73 6f 72 74 25 0d 0f  fa 23 45 51 55 44 20 2d  |esort%...#EQUD -|
000024e0  31 3a 45 51 55 44 20 2d  31 3a 45 51 55 44 20 2d  |1:EQUD -1:EQUD -|
000024f0  31 3a 45 51 55 44 20 2d  31 0d 10 04 23 45 51 55  |1:EQUD -1...#EQU|
00002500  44 20 2d 31 3a 45 51 55  44 20 2d 31 3a 45 51 55  |D -1:EQUD -1:EQU|
00002510  44 20 2d 31 3a 45 51 55  44 20 2d 31 0d 10 0e 05  |D -1:EQUD -1....|
00002520  3a 0d 10 18 0a 2e 73 6f  72 74 25 0d 10 22 11 3b  |:.....sort%..".;|
00002530  20 43 6f 72 72 75 70 74  73 20 52 30 0d 10 2c 19  | Corrupts R0..,.|
00002540  41 44 52 20 52 30 2c 74  65 6d 70 73 74 6f 72 65  |ADR R0,tempstore|
00002550  73 6f 72 74 25 0d 10 36  1c 53 54 4d 49 41 20 52  |sort%..6.STMIA R|
00002560  30 2c 7b 52 30 2d 52 31  2c 52 31 31 2d 52 31 34  |0,{R0-R1,R11-R14|
00002570  7d 0d 10 40 36 3b 20 43  6f 6d 70 69 6c 65 20 61  |}..@6; Compile a|
00002580  20 6c 69 73 74 20 6f 66  20 6c 69 6e 65 73 2c 20  | list of lines, |
00002590  77 69 74 68 20 64 69 73  74 61 6e 63 65 73 20 61  |with distances a|
000025a0  74 74 61 63 68 65 64 0d  10 4a 2a 4f 50 54 20 a4  |ttached..J*OPT .|
000025b0  61 64 72 28 31 34 2c 70  6f 73 25 2b 31 32 2c 32  |adr(14,pos%+12,2|
000025c0  29 3a 3b 20 5a 2d 63 6f  6f 72 64 69 6e 61 74 65  |):; Z-coordinate|
000025d0  73 0d 10 54 19 4f 50 54  20 a4 61 64 72 28 31 33  |s..T.OPT .adr(13|
000025e0  2c 6c 69 6e 65 73 25 2c  32 29 0d 10 5e 19 4f 50  |,lines%,2)..^.OP|
000025f0  54 20 a4 61 64 72 28 31  32 2c 73 6c 69 73 74 25  |T .adr(12,slist%|
00002600  2c 32 29 0d 10 68 0e 4d  4f 56 20 52 31 31 2c 23  |,2)..h.MOV R11,#|
00002610  30 0d 10 72 0e 2e 6c 69  6e 65 6c 6f 6f 70 25 0d  |0..r..lineloop%.|
00002620  10 7c 13 4c 44 52 20 52  30 2c 5b 52 31 33 5d 2c  |.|.LDR R0,[R13],|
00002630  23 34 0d 10 86 0d 43 4d  4e 20 52 30 2c 23 31 0d  |#4....CMN R0,#1.|
00002640  10 90 11 42 45 51 20 65  6e 64 73 6f 72 74 31 25  |...BEQ endsort1%|
00002650  0d 10 9a 14 80 20 52 31  2c 52 30 2c 23 32 35 35  |..... R1,R0,#255|
00002660  3c 3c 31 36 0d 10 a4 14  80 20 52 30 2c 52 30 2c  |<<16..... R0,R0,|
00002670  23 32 35 35 3c 3c 32 34  0d 10 ae 1c 4c 44 52 20  |#255<<24....LDR |
00002680  52 30 2c 5b 52 31 34 2c  52 30 2c 4c 53 52 23 32  |R0,[R14,R0,LSR#2|
00002690  34 2d 34 5d 0d 10 b8 1c  4c 44 52 20 52 31 2c 5b  |4-4]....LDR R1,[|
000026a0  52 31 34 2c 52 31 2c 4c  53 52 23 31 36 2d 34 5d  |R14,R1,LSR#16-4]|
000026b0  0d 10 c2 10 41 44 44 20  52 30 2c 52 30 2c 52 31  |....ADD R0,R0,R1|
000026c0  0d 10 cc 13 4d 4f 56 20  52 30 2c 52 30 2c 41 53  |....MOV R0,R0,AS|
000026d0  52 23 31 0d 10 d6 12 42  49 43 20 52 30 2c 52 30  |R#1....BIC R0,R0|
000026e0  2c 23 32 35 35 0d 10 e0  10 84 52 20 52 30 2c 52  |,#255.....R R0,R|
000026f0  30 2c 52 31 31 0d 10 ea  13 53 54 52 20 52 30 2c  |0,R11....STR R0,|
00002700  5b 52 31 32 5d 2c 23 34  0d 10 f4 12 41 44 44 20  |[R12],#4....ADD |
00002710  52 31 31 2c 52 31 31 2c  23 31 0d 10 fe 0f 42 20  |R11,R11,#1....B |
00002720  6c 69 6e 65 6c 6f 6f 70  25 0d 11 08 05 3a 0d 11  |lineloop%....:..|
00002730  12 0e 2e 65 6e 64 73 6f  72 74 31 25 0d 11 1c 14  |...endsort1%....|
00002740  53 54 52 20 52 30 2c 5b  52 31 32 5d 2c 23 2d 34  |STR R0,[R12],#-4|
00002750  0d 11 26 0f 3b 20 53 6f  72 74 20 74 68 65 6d 0d  |..&.; Sort them.|
00002760  11 30 19 4f 50 54 20 a4  61 64 72 28 31 34 2c 73  |.0.OPT .adr(14,s|
00002770  6c 69 73 74 25 2c 32 29  0d 11 3a 15 3b 20 52 31  |list%,2)..:.; R1|
00002780  32 20 69 73 20 6c 61 73  74 20 6f 6e 65 0d 11 44  |2 is last one..D|
00002790  0f 43 4d 50 20 52 31 32  2c 52 31 34 0d 11 4e 22  |.CMP R12,R14..N"|
000027a0  42 4c 45 20 65 6e 64 73  6f 72 74 32 25 3a 3b 20  |BLE endsort2%:; |
000027b0  30 20 6f 72 20 31 20 6f  66 20 74 68 65 6d 0d 11  |0 or 1 of them..|
000027c0  58 0d 2e 6f 75 74 6c 6f  6f 70 25 0d 11 62 15 4c  |X..outloop%..b.L|
000027d0  44 4d 49 41 20 52 31 34  2c 7b 52 30 2d 52 31 7d  |DMIA R14,{R0-R1}|
000027e0  0d 11 6c 0f 4d 4f 56 20  52 31 33 2c 52 31 34 0d  |..l.MOV R13,R14.|
000027f0  11 76 0c 2e 69 6e 6c 6f  6f 70 25 0d 11 80 0d 43  |.v..inloop%....C|
00002800  4d 50 20 52 30 2c 52 31  0d 11 8a 15 53 54 52 47  |MP R0,R1....STRG|
00002810  54 20 52 30 2c 5b 52 31  33 5d 2c 23 34 0d 11 94  |T R0,[R13],#4...|
00002820  0f 4d 4f 56 47 54 20 52  30 2c 52 31 0d 11 9e 15  |.MOVGT R0,R1....|
00002830  53 54 52 4c 45 20 52 31  2c 5b 52 31 33 5d 2c 23  |STRLE R1,[R13],#|
00002840  34 0d 11 a8 13 4c 44 52  20 52 31 2c 5b 52 31 33  |4....LDR R1,[R13|
00002850  2c 23 34 5d 0d 11 b2 0f  43 4d 50 20 52 31 33 2c  |,#4]....CMP R13,|
00002860  52 31 32 0d 11 bc 0f 42  4c 54 20 69 6e 6c 6f 6f  |R12....BLT inloo|
00002870  70 25 0d 11 c6 10 53 54  52 20 52 30 2c 5b 52 31  |p%....STR R0,[R1|
00002880  33 5d 0d 11 d0 12 53 55  42 20 52 31 32 2c 52 31  |3]....SUB R12,R1|
00002890  32 2c 23 34 0d 11 da 0f  43 4d 50 20 52 31 32 2c  |2,#4....CMP R12,|
000028a0  52 31 34 0d 11 e4 10 42  47 54 20 6f 75 74 6c 6f  |R14....BGT outlo|
000028b0  6f 70 25 0d 11 ee 0e 2e  65 6e 64 73 6f 72 74 32  |op%.....endsort2|
000028c0  25 0d 11 f8 19 41 44 52  20 52 30 2c 74 65 6d 70  |%....ADR R0,temp|
000028d0  73 74 6f 72 65 73 6f 72  74 25 0d 12 02 1c 4c 44  |storesort%....LD|
000028e0  4d 49 41 20 52 30 2c 7b  52 30 2d 52 31 2c 52 31  |MIA R0,{R0-R1,R1|
000028f0  31 2d 52 31 34 7d 0d 12  0c 0e 4d 4f 56 20 50 43  |1-R14}....MOV PC|
00002900  2c 52 31 34 0d 12 16 05  3a 0d 12 20 11 2e 74 65  |,R14....:.. ..te|
00002910  6d 70 73 74 6f 72 65 70  73 25 0d 12 2a 23 45 51  |mpstoreps%..*#EQ|
00002920  55 44 20 2d 31 3a 45 51  55 44 20 2d 31 3a 45 51  |UD -1:EQUD -1:EQ|
00002930  55 44 20 2d 31 3a 45 51  55 44 20 2d 31 0d 12 34  |UD -1:EQUD -1..4|
00002940  23 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |#EQUD -1:EQUD -1|
00002950  3a 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |:EQUD -1:EQUD -1|
00002960  0d 12 3e 23 45 51 55 44  20 2d 31 3a 45 51 55 44  |..>#EQUD -1:EQUD|
00002970  20 2d 31 3a 45 51 55 44  20 2d 31 3a 45 51 55 44  | -1:EQUD -1:EQUD|
00002980  20 2d 31 0d 12 48 23 45  51 55 44 20 2d 31 3a 45  | -1..H#EQUD -1:E|
00002990  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 3a 45  |QUD -1:EQUD -1:E|
000029a0  51 55 44 20 2d 31 0d 12  52 05 3a 0d 12 5c 0f 2e  |QUD -1..R.:..\..|
000029b0  70 6c 6f 74 73 68 61 70  65 25 0d 12 66 12 3b 20  |plotshape%..f.; |
000029c0  52 30 20 63 6f 72 72 75  70 74 65 64 0d 12 70 17  |R0 corrupted..p.|
000029d0  41 44 52 20 52 30 2c 74  65 6d 70 73 74 6f 72 65  |ADR R0,tempstore|
000029e0  70 73 25 0d 12 7a 15 53  54 4d 49 41 20 52 30 2c  |ps%..z.STMIA R0,|
000029f0  7b 52 31 2d 52 31 34 7d  0d 12 84 17 4f 50 54 20  |{R1-R14}....OPT |
00002a00  a4 61 64 72 28 31 30 2c  70 6f 73 25 2c 32 29 0d  |.adr(10,pos%,2).|
00002a10  12 8e 19 4f 50 54 20 a4  61 64 72 28 31 31 2c 6c  |...OPT .adr(11,l|
00002a20  69 6e 65 73 25 2c 32 29  0d 12 98 19 4f 50 54 20  |ines%,2)....OPT |
00002a30  a4 61 64 72 28 31 32 2c  73 6c 69 73 74 25 2c 32  |.adr(12,slist%,2|
00002a40  29 0d 12 a2 0e 2e 70 6c  6f 74 6c 6f 6f 70 25 0d  |).....plotloop%.|
00002a50  12 ac 13 4c 44 52 20 52  30 2c 5b 52 31 32 5d 2c  |...LDR R0,[R12],|
00002a60  23 34 0d 12 b6 0d 43 4d  4e 20 52 30 2c 23 31 0d  |#4....CMN R0,#1.|
00002a70  12 c0 15 42 45 51 20 65  6e 64 70 6c 6f 74 73 68  |...BEQ endplotsh|
00002a80  61 70 65 25 0d 12 ca 10  80 20 52 30 2c 52 30 2c  |ape%..... R0,R0,|
00002a90  23 32 35 35 0d 12 d4 19  4c 44 52 20 52 30 2c 5b  |#255....LDR R0,[|
00002aa0  52 31 31 2c 52 30 2c 41  53 4c 23 32 5d 0d 12 de  |R11,R0,ASL#2]...|
00002ab0  13 80 20 52 36 2c 52 30  2c 23 32 35 35 3c 3c 38  |.. R6,R0,#255<<8|
00002ac0  0d 12 e8 13 4d 4f 56 20  52 36 2c 52 36 2c 4c 53  |....MOV R6,R6,LS|
00002ad0  52 23 38 0d 12 f2 14 80  20 52 33 2c 52 30 2c 23  |R#8..... R3,R0,#|
00002ae0  32 35 35 3c 3c 32 34 0d  12 fc 14 80 20 52 34 2c  |255<<24..... R4,|
00002af0  52 30 2c 23 32 35 35 3c  3c 31 36 0d 13 06 1a 41  |R0,#255<<16....A|
00002b00  44 44 20 52 33 2c 52 31  30 2c 52 33 2c 4c 53 52  |DD R3,R10,R3,LSR|
00002b10  23 32 34 2d 34 0d 13 10  1a 41 44 44 20 52 34 2c  |#24-4....ADD R4,|
00002b20  52 31 30 2c 52 34 2c 4c  53 52 23 31 36 2d 34 0d  |R10,R4,LSR#16-4.|
00002b30  13 1a 2a 4f 50 54 20 a4  61 64 72 28 31 33 2c 73  |..*OPT .adr(13,s|
00002b40  70 72 25 2b 28 31 39 32  3c 3c 31 30 29 2c 32 29  |pr%+(192<<10),2)|
00002b50  3a 3b 20 53 70 68 65 72  65 0d 13 24 0f 4c 44 52  |:; Sphere..$.LDR|
00002b60  20 52 30 2c 5b 52 33 5d  0d 13 2e 0d 54 53 54 20  | R0,[R3]....TST |
00002b70  52 30 2c 23 31 0d 13 38  18 42 4e 45 20 61 6c 72  |R0,#1..8.BNE alr|
00002b80  65 61 64 79 70 6c 6f 74  74 65 64 31 25 0d 13 42  |eadyplotted1%..B|
00002b90  0f 84 52 20 52 30 2c 52  30 2c 23 31 0d 13 4c 0f  |..R R0,R0,#1..L.|
00002ba0  53 54 52 20 52 30 2c 5b  52 33 5d 0d 13 56 14 4c  |STR R0,[R3]..V.L|
00002bb0  44 4d 49 42 20 52 33 2c  7b 52 30 2d 52 31 7d 0d  |DMIB R3,{R0-R1}.|
00002bc0  13 60 12 42 4c 20 64 72  61 77 73 70 72 69 74 65  |.`.BL drawsprite|
00002bd0  25 0d 13 6a 15 2e 61 6c  72 65 61 64 79 70 6c 6f  |%..j..alreadyplo|
00002be0  74 74 65 64 31 25 0d 13  74 0f 4c 44 52 20 52 30  |tted1%..t.LDR R0|
00002bf0  2c 5b 52 34 5d 0d 13 7e  0d 54 53 54 20 52 30 2c  |,[R4]..~.TST R0,|
00002c00  23 31 0d 13 88 18 42 4e  45 20 61 6c 72 65 61 64  |#1....BNE alread|
00002c10  79 70 6c 6f 74 74 65 64  32 25 0d 13 92 0f 84 52  |yplotted2%.....R|
00002c20  20 52 30 2c 52 30 2c 23  31 0d 13 9c 0f 53 54 52  | R0,R0,#1....STR|
00002c30  20 52 30 2c 5b 52 34 5d  0d 13 a6 14 4c 44 4d 49  | R0,[R4]....LDMI|
00002c40  42 20 52 34 2c 7b 52 30  2d 52 31 7d 0d 13 b0 12  |B R4,{R0-R1}....|
00002c50  42 4c 20 64 72 61 77 73  70 72 69 74 65 25 0d 13  |BL drawsprite%..|
00002c60  ba 15 2e 61 6c 72 65 61  64 79 70 6c 6f 74 74 65  |...alreadyplotte|
00002c70  64 32 25 0d 13 c4 14 4c  44 4d 49 42 20 52 33 2c  |d2%....LDMIB R3,|
00002c80  7b 52 30 2d 52 32 7d 0d  13 ce 14 4c 44 4d 49 42  |{R0-R2}....LDMIB|
00002c90  20 52 34 2c 7b 52 33 2d  52 35 7d 0d 13 d8 10 53  | R4,{R3-R5}....S|
00002ca0  55 42 20 52 30 2c 52 30  2c 52 33 0d 13 e2 10 53  |UB R0,R0,R3....S|
00002cb0  55 42 20 52 31 2c 52 31  2c 52 34 0d 13 ec 10 53  |UB R1,R1,R4....S|
00002cc0  55 42 20 52 32 2c 52 32  2c 52 35 0d 13 f6 10 42  |UB R2,R2,R5....B|
00002cd0  4c 20 64 72 61 77 74 75  62 65 25 0d 14 00 0f 42  |L drawtube%....B|
00002ce0  20 70 6c 6f 74 6c 6f 6f  70 25 0d 14 0a 05 3a 0d  | plotloop%....:.|
00002cf0  14 14 12 2e 65 6e 64 70  6c 6f 74 73 68 61 70 65  |....endplotshape|
00002d00  25 0d 14 1e 17 41 44 52  20 52 30 2c 74 65 6d 70  |%....ADR R0,temp|
00002d10  73 74 6f 72 65 70 73 25  0d 14 28 15 4c 44 4d 49  |storeps%..(.LDMI|
00002d20  41 20 52 30 2c 7b 52 31  2d 52 31 34 7d 0d 14 32  |A R0,{R1-R14}..2|
00002d30  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 14 3c 05 3a  |.MOV PC,R14..<.:|
00002d40  0d 14 46 12 2e 74 65 6d  70 73 74 6f 72 65 72 6f  |..F..tempstorero|
00002d50  74 25 0d 14 50 23 45 51  55 44 20 2d 31 3a 45 51  |t%..P#EQUD -1:EQ|
00002d60  55 44 20 2d 31 3a 45 51  55 44 20 2d 31 3a 45 51  |UD -1:EQUD -1:EQ|
00002d70  55 44 20 2d 31 0d 14 5a  23 45 51 55 44 20 2d 31  |UD -1..Z#EQUD -1|
00002d80  3a 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |:EQUD -1:EQUD -1|
00002d90  3a 45 51 55 44 20 2d 31  0d 14 64 23 45 51 55 44  |:EQUD -1..d#EQUD|
00002da0  20 2d 31 3a 45 51 55 44  20 2d 31 3a 45 51 55 44  | -1:EQUD -1:EQUD|
00002db0  20 2d 31 3a 45 51 55 44  20 2d 31 0d 14 6e 23 45  | -1:EQUD -1..n#E|
00002dc0  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 3a 45  |QUD -1:EQUD -1:E|
00002dd0  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 0d 14  |QUD -1:EQUD -1..|
00002de0  78 05 3a 0d 14 82 0c 2e  72 6f 74 61 74 65 25 0d  |x.:.....rotate%.|
00002df0  14 8c 11 3b 20 43 6f 72  72 75 70 74 73 20 52 30  |...; Corrupts R0|
00002e00  0d 14 96 18 41 44 52 20  52 30 2c 74 65 6d 70 73  |....ADR R0,temps|
00002e10  74 6f 72 65 72 6f 74 25  0d 14 a0 15 53 54 4d 49  |torerot%....STMI|
00002e20  41 20 52 30 2c 7b 52 31  2d 52 31 34 7d 0d 14 aa  |A R0,{R1-R14}...|
00002e30  13 3b 20 54 68 65 20 72  6f 74 61 74 69 6f 6e 73  |.; The rotations|
00002e40  0d 14 b4 17 4f 50 54 20  a4 61 64 72 28 31 34 2c  |....OPT .adr(14,|
00002e50  73 69 6e 25 2c 32 29 0d  14 be 38 4d 4f 56 20 52  |sin%,2)...8MOV R|
00002e60  30 2c 23 31 3c 3c 56 43  25 3a 4d 4f 56 20 52 31  |0,#1<<VC%:MOV R1|
00002e70  2c 23 30 3a 4d 4f 56 20  52 32 2c 23 30 3a 3b 20  |,#0:MOV R2,#0:; |
00002e80  49 64 65 6e 74 69 74 79  20 6d 61 74 72 69 78 0d  |Identity matrix.|
00002e90  14 c8 26 4d 4f 56 20 52  33 2c 23 30 3a 4d 4f 56  |..&MOV R3,#0:MOV|
00002ea0  20 52 34 2c 23 31 3c 3c  56 43 25 3a 4d 4f 56 20  | R4,#1<<VC%:MOV |
00002eb0  52 35 2c 23 30 0d 14 d2  26 4d 4f 56 20 52 36 2c  |R5,#0...&MOV R6,|
00002ec0  23 30 3a 4d 4f 56 20 52  37 2c 23 30 3a 4d 4f 56  |#0:MOV R7,#0:MOV|
00002ed0  20 52 38 2c 23 31 3c 3c  56 43 25 0d 14 dc 15 3b  | R8,#1<<VC%....;|
00002ee0  20 58 2d 61 78 69 73 20  72 6f 74 61 74 69 6f 6e  | X-axis rotation|
00002ef0  0d 14 e6 15 4c 44 52 20  52 31 32 2c 61 6e 67 6c  |....LDR R12,angl|
00002f00  65 73 25 2b 30 0d 14 f0  12 80 20 52 31 32 2c 52  |es%+0..... R12,R|
00002f10  31 32 2c 23 32 35 35 0d  14 fa 19 41 44 44 20 52  |12,#255....ADD R|
00002f20  31 32 2c 52 31 34 2c 52  31 32 2c 41 53 4c 23 32  |12,R14,R12,ASL#2|
00002f30  0d 15 04 1c 4c 44 52 20  52 31 33 2c 5b 52 31 32  |....LDR R13,[R12|
00002f40  2c 23 63 6f 73 25 2d 73  69 6e 25 5d 0d 15 0e 11  |,#cos%-sin%]....|
00002f50  4c 44 52 20 52 31 32 2c  5b 52 31 32 5d 0d 15 18  |LDR R12,[R12]...|
00002f60  17 5d 3a e3 55 25 3d 30  b8 38 88 33 3a 5b 4f 50  |.]:.U%=0.8.3:[OP|
00002f70  54 20 54 25 0d 15 22 11  4d 4f 56 20 52 39 2c 28  |T T%..".MOV R9,(|
00002f80  55 25 2b 32 29 0d 15 2c  15 4d 55 4c 20 28 55 25  |U%+2)..,.MUL (U%|
00002f90  2b 32 29 2c 52 31 33 2c  52 39 0d 15 36 20 4d 4c  |+2),R13,R9..6 ML|
00002fa0  41 20 28 55 25 2b 32 29  2c 52 31 32 2c 28 55 25  |A (U%+2),R12,(U%|
00002fb0  2b 31 29 2c 28 55 25 2b  32 29 0d 15 40 19 4d 55  |+1),(U%+2)..@.MU|
00002fc0  4c 20 28 55 25 2b 31 29  2c 52 31 33 2c 28 55 25  |L (U%+1),R13,(U%|
00002fd0  2b 31 29 0d 15 4a 11 4d  55 4c 20 52 39 2c 52 31  |+1)..J.MUL R9,R1|
00002fe0  32 2c 52 39 0d 15 54 18  53 55 42 20 28 55 25 2b  |2,R9..T.SUB (U%+|
00002ff0  31 29 2c 28 55 25 2b 31  29 2c 52 39 0d 15 5e 1d  |1),(U%+1),R9..^.|
00003000  4d 4f 56 20 28 55 25 2b  31 29 2c 28 55 25 2b 31  |MOV (U%+1),(U%+1|
00003010  29 2c 41 53 52 23 53 43  25 0d 15 68 1d 4d 4f 56  |),ASR#SC%..h.MOV|
00003020  20 28 55 25 2b 32 29 2c  28 55 25 2b 32 29 2c 41  | (U%+2),(U%+2),A|
00003030  53 52 23 53 43 25 0d 15  72 0f 5d 3a ed 3a 5b 4f  |SR#SC%..r.]:.:[O|
00003040  50 54 20 54 25 0d 15 7c  15 3b 20 59 2d 61 78 69  |PT T%..|.; Y-axi|
00003050  73 20 72 6f 74 61 74 69  6f 6e 0d 15 86 15 4c 44  |s rotation....LD|
00003060  52 20 52 31 32 2c 61 6e  67 6c 65 73 25 2b 34 0d  |R R12,angles%+4.|
00003070  15 90 12 80 20 52 31 32  2c 52 31 32 2c 23 32 35  |.... R12,R12,#25|
00003080  35 0d 15 9a 19 41 44 44  20 52 31 32 2c 52 31 34  |5....ADD R12,R14|
00003090  2c 52 31 32 2c 41 53 4c  23 32 0d 15 a4 1c 4c 44  |,R12,ASL#2....LD|
000030a0  52 20 52 31 33 2c 5b 52  31 32 2c 23 63 6f 73 25  |R R13,[R12,#cos%|
000030b0  2d 73 69 6e 25 5d 0d 15  ae 11 4c 44 52 20 52 31  |-sin%]....LDR R1|
000030c0  32 2c 5b 52 31 32 5d 0d  15 b8 17 5d 3a e3 55 25  |2,[R12]....]:.U%|
000030d0  3d 30 b8 38 88 33 3a 5b  4f 50 54 20 54 25 0d 15  |=0.8.3:[OPT T%..|
000030e0  c2 0d 4d 4f 56 20 52 39  2c 55 25 0d 15 cc 11 4d  |..MOV R9,U%....M|
000030f0  55 4c 20 55 25 2c 52 31  33 2c 52 39 0d 15 d6 18  |UL U%,R13,R9....|
00003100  4d 4c 41 20 55 25 2c 52  31 32 2c 28 55 25 2b 32  |MLA U%,R12,(U%+2|
00003110  29 2c 55 25 0d 15 e0 19  4d 55 4c 20 28 55 25 2b  |),U%....MUL (U%+|
00003120  32 29 2c 52 31 33 2c 28  55 25 2b 32 29 0d 15 ea  |2),R13,(U%+2)...|
00003130  11 4d 55 4c 20 52 39 2c  52 31 32 2c 52 39 0d 15  |.MUL R9,R12,R9..|
00003140  f4 18 53 55 42 20 28 55  25 2b 32 29 2c 28 55 25  |..SUB (U%+2),(U%|
00003150  2b 32 29 2c 52 39 0d 15  fe 1d 4d 4f 56 20 28 55  |+2),R9....MOV (U|
00003160  25 2b 32 29 2c 28 55 25  2b 32 29 2c 41 53 52 23  |%+2),(U%+2),ASR#|
00003170  53 43 25 0d 16 08 15 4d  4f 56 20 55 25 2c 55 25  |SC%....MOV U%,U%|
00003180  2c 41 53 52 23 53 43 25  0d 16 12 0f 5d 3a ed 3a  |,ASR#SC%....]:.:|
00003190  5b 4f 50 54 20 54 25 0d  16 1c 15 3b 20 5a 2d 61  |[OPT T%....; Z-a|
000031a0  78 69 73 20 72 6f 74 61  74 69 6f 6e 0d 16 26 15  |xis rotation..&.|
000031b0  4c 44 52 20 52 31 32 2c  61 6e 67 6c 65 73 25 2b  |LDR R12,angles%+|
000031c0  38 0d 16 30 12 80 20 52  31 32 2c 52 31 32 2c 23  |8..0.. R12,R12,#|
000031d0  32 35 35 0d 16 3a 19 41  44 44 20 52 31 32 2c 52  |255..:.ADD R12,R|
000031e0  31 34 2c 52 31 32 2c 41  53 4c 23 32 0d 16 44 1c  |14,R12,ASL#2..D.|
000031f0  4c 44 52 20 52 31 33 2c  5b 52 31 32 2c 23 63 6f  |LDR R13,[R12,#co|
00003200  73 25 2d 73 69 6e 25 5d  0d 16 4e 11 4c 44 52 20  |s%-sin%]..N.LDR |
00003210  52 31 32 2c 5b 52 31 32  5d 0d 16 58 17 5d 3a e3  |R12,[R12]..X.]:.|
00003220  55 25 3d 30 b8 38 88 33  3a 5b 4f 50 54 20 54 25  |U%=0.8.3:[OPT T%|
00003230  0d 16 62 11 4d 4f 56 20  52 39 2c 28 55 25 2b 31  |..b.MOV R9,(U%+1|
00003240  29 0d 16 6c 15 4d 55 4c  20 28 55 25 2b 31 29 2c  |)..l.MUL (U%+1),|
00003250  52 31 33 2c 52 39 0d 16  76 1c 4d 4c 41 20 28 55  |R13,R9..v.MLA (U|
00003260  25 2b 31 29 2c 52 31 32  2c 55 25 2c 28 55 25 2b  |%+1),R12,U%,(U%+|
00003270  31 29 0d 16 80 11 4d 55  4c 20 55 25 2c 52 31 33  |1)....MUL U%,R13|
00003280  2c 55 25 0d 16 8a 11 4d  55 4c 20 52 39 2c 52 31  |,U%....MUL R9,R1|
00003290  32 2c 52 39 0d 16 94 10  53 55 42 20 55 25 2c 55  |2,R9....SUB U%,U|
000032a0  25 2c 52 39 0d 16 9e 15  4d 4f 56 20 55 25 2c 55  |%,R9....MOV U%,U|
000032b0  25 2c 41 53 52 23 53 43  25 0d 16 a8 1d 4d 4f 56  |%,ASR#SC%....MOV|
000032c0  20 28 55 25 2b 31 29 2c  28 55 25 2b 31 29 2c 41  | (U%+1),(U%+1),A|
000032d0  53 52 23 53 43 25 0d 16  b2 0f 5d 3a ed 3a 5b 4f  |SR#SC%....]:.:[O|
000032e0  50 54 20 54 25 0d 16 bc  18 4f 50 54 20 a4 61 64  |PT T%....OPT .ad|
000032f0  72 28 31 32 2c 76 69 65  77 25 2c 32 29 0d 16 c6  |r(12,view%,2)...|
00003300  15 53 54 4d 49 41 20 52  31 32 2c 7b 52 30 2d 52  |.STMIA R12,{R0-R|
00003310  38 7d 0d 16 d0 18 41 44  52 20 52 30 2c 74 65 6d  |8}....ADR R0,tem|
00003320  70 73 74 6f 72 65 72 6f  74 25 0d 16 da 15 4c 44  |pstorerot%....LD|
00003330  4d 49 41 20 52 30 2c 7b  52 31 2d 52 31 34 7d 0d  |MIA R0,{R1-R14}.|
00003340  16 e4 0e 4d 4f 56 20 50  43 2c 52 31 34 0d 16 ee  |...MOV PC,R14...|
00003350  05 3a 0d 16 f8 13 2e 74  65 6d 70 73 74 6f 72 65  |.:.....tempstore|
00003360  61 6e 69 6d 25 0d 17 02  23 45 51 55 44 20 2d 31  |anim%...#EQUD -1|
00003370  3a 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |:EQUD -1:EQUD -1|
00003380  3a 45 51 55 44 20 2d 31  0d 17 0c 23 45 51 55 44  |:EQUD -1...#EQUD|
00003390  20 2d 31 3a 45 51 55 44  20 2d 31 3a 45 51 55 44  | -1:EQUD -1:EQUD|
000033a0  20 2d 31 3a 45 51 55 44  20 2d 31 0d 17 16 23 45  | -1:EQUD -1...#E|
000033b0  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 3a 45  |QUD -1:EQUD -1:E|
000033c0  51 55 44 20 2d 31 3a 45  51 55 44 20 2d 31 0d 17  |QUD -1:EQUD -1..|
000033d0  20 23 45 51 55 44 20 2d  31 3a 45 51 55 44 20 2d  | #EQUD -1:EQUD -|
000033e0  31 3a 45 51 55 44 20 2d  31 3a 45 51 55 44 20 2d  |1:EQUD -1:EQUD -|
000033f0  31 0d 17 2a 05 3a 0d 17  34 13 2e 72 61 6e 64 6f  |1..*.:..4..rando|
00003400  6d 25 3a 45 51 55 44 20  31 0d 17 3e 13 2e 63 6f  |m%:EQUD 1..>..co|
00003410  6c 6e 6f 25 3a 45 51 55  44 20 31 35 0d 17 48 05  |lno%:EQUD 15..H.|
00003420  3a 0d 17 52 0c 2e 61 6e  67 6c 65 73 25 0d 17 5c  |:..R..angles%..\|
00003430  18 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |.EQUD 0:EQUD 0:E|
00003440  51 55 44 20 30 0d 17 66  18 45 51 55 44 20 31 3a  |QUD 0..f.EQUD 1:|
00003450  45 51 55 44 20 32 3a 45  51 55 44 20 33 0d 17 70  |EQUD 2:EQUD 3..p|
00003460  0d 2e 63 6f 6c 6f 75 72  73 25 0d 17 7a 1a 45 51  |..colours%..z.EQ|
00003470  55 44 20 30 3a 45 51 55  44 20 38 35 3a 45 51 55  |UD 0:EQUD 85:EQU|
00003480  44 20 38 35 0d 17 84 19  45 51 55 44 20 38 35 3a  |D 85....EQUD 85:|
00003490  45 51 55 44 20 30 3a 45  51 55 44 20 30 0d 17 8e  |EQUD 0:EQUD 0...|
000034a0  18 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |.EQUD 0:EQUD 0:E|
000034b0  51 55 44 20 30 0d 17 98  18 45 51 55 44 20 30 3a  |QUD 0....EQUD 0:|
000034c0  45 51 55 44 20 30 3a 45  51 55 44 20 30 0d 17 a2  |EQUD 0:EQUD 0...|
000034d0  05 3a 0d 17 ac 0f 2e 61  6e 69 6d 61 74 69 6f 6e  |.:.....animation|
000034e0  25 0d 17 b6 11 3b 20 43  6f 72 72 75 70 74 73 20  |%....; Corrupts |
000034f0  52 30 0d 17 c0 19 41 44  52 20 52 30 2c 74 65 6d  |R0....ADR R0,tem|
00003500  70 73 74 6f 72 65 61 6e  69 6d 25 0d 17 ca 15 53  |pstoreanim%....S|
00003510  54 4d 49 41 20 52 30 2c  7b 52 31 2d 52 31 34 7d  |TMIA R0,{R1-R14}|
00003520  0d 17 d4 13 4c 44 52 20  52 31 34 2c 72 61 6e 64  |....LDR R14,rand|
00003530  6f 6d 25 0d 17 de 16 3b  20 49 6e 63 72 65 6d 65  |om%....; Increme|
00003540  6e 74 20 61 6e 67 6c 65  73 0d 17 e8 13 41 44 52  |nt angles....ADR|
00003550  20 52 31 33 2c 61 6e 67  6c 65 73 25 0d 17 f2 15  | R13,angles%....|
00003560  4c 44 4d 49 41 20 52 31  33 2c 7b 52 30 2d 52 35  |LDMIA R13,{R0-R5|
00003570  7d 0d 17 fc 19 41 44 44  20 52 31 34 2c 52 31 34  |}....ADD R14,R14|
00003580  2c 52 31 34 2c 41 53 4c  23 38 0d 18 06 16 54 53  |,R14,ASL#8....TS|
00003590  54 20 52 31 34 2c 23 26  46 46 30 30 30 30 30 30  |T R14,#&FF000000|
000035a0  0d 18 10 18 42 4e 45 20  64 6f 6e 74 63 68 61 6e  |....BNE dontchan|
000035b0  67 65 73 70 65 65 64 25  0d 18 1a 19 41 44 44 20  |gespeed%....ADD |
000035c0  52 31 34 2c 52 31 34 2c  52 31 34 2c 41 53 4c 23  |R14,R14,R14,ASL#|
000035d0  38 0d 18 24 17 4d 4f 56  20 52 33 2c 52 31 34 2c  |8..$.MOV R3,R14,|
000035e0  41 53 52 23 33 31 2d 31  0d 18 2e 19 41 44 44 20  |ASR#31-1....ADD |
000035f0  52 31 34 2c 52 31 34 2c  52 31 34 2c 41 53 4c 23  |R14,R14,R14,ASL#|
00003600  38 0d 18 38 17 4d 4f 56  20 52 34 2c 52 31 34 2c  |8..8.MOV R4,R14,|
00003610  41 53 52 23 33 31 2d 31  0d 18 42 19 41 44 44 20  |ASR#31-1..B.ADD |
00003620  52 31 34 2c 52 31 34 2c  52 31 34 2c 41 53 4c 23  |R14,R14,R14,ASL#|
00003630  38 0d 18 4c 17 4d 4f 56  20 52 35 2c 52 31 34 2c  |8..L.MOV R5,R14,|
00003640  41 53 52 23 33 31 2d 31  0d 18 56 15 2e 64 6f 6e  |ASR#31-1..V..don|
00003650  74 63 68 61 6e 67 65 73  70 65 65 64 25 0d 18 60  |tchangespeed%..`|
00003660  10 41 44 44 20 52 30 2c  52 30 2c 52 33 0d 18 6a  |.ADD R0,R0,R3..j|
00003670  10 41 44 44 20 52 31 2c  52 31 2c 52 34 0d 18 74  |.ADD R1,R1,R4..t|
00003680  10 41 44 44 20 52 32 2c  52 32 2c 52 35 0d 18 7e  |.ADD R2,R2,R5..~|
00003690  15 53 54 4d 49 41 20 52  31 33 2c 7b 52 30 2d 52  |.STMIA R13,{R0-R|
000036a0  35 7d 0d 18 88 17 3b 20  49 6e 63 72 65 6d 65 6e  |5}....; Incremen|
000036b0  74 20 63 6f 6c 6f 75 72  73 0d 18 92 14 41 44 52  |t colours....ADR|
000036c0  20 52 31 33 2c 63 6f 6c  6f 75 72 73 25 0d 18 9c  | R13,colours%...|
000036d0  16 4c 44 4d 49 41 20 52  31 33 2c 7b 52 30 2d 52  |.LDMIA R13,{R0-R|
000036e0  31 31 7d 0d 18 a6 19 41  44 44 20 52 31 34 2c 52  |11}....ADD R14,R|
000036f0  31 34 2c 52 31 34 2c 41  53 4c 23 37 0d 18 b0 16  |14,R14,ASL#7....|
00003700  54 53 54 20 52 31 34 2c  23 26 46 45 30 30 30 30  |TST R14,#&FE0000|
00003710  30 30 0d 18 ba 19 42 4e  45 20 64 6f 6e 74 63 68  |00....BNE dontch|
00003720  61 6e 67 65 63 6f 6c 6f  75 72 31 0d 18 c4 12 54  |angecolour1....T|
00003730  53 54 20 52 31 34 2c 23  31 3c 3c 32 34 0d 18 ce  |ST R14,#1<<24...|
00003740  0c ec 51 20 52 30 2c 23  30 0d 18 d8 10 4d 4f 56  |..Q R0,#0....MOV|
00003750  4e 45 20 52 30 2c 23 38  35 0d 18 e2 12 54 53 54  |NE R0,#85....TST|
00003760  20 52 31 34 2c 23 31 3c  3c 32 33 0d 18 ec 0c ec  | R14,#1<<23.....|
00003770  51 20 52 31 2c 23 30 0d  18 f6 10 4d 4f 56 4e 45  |Q R1,#0....MOVNE|
00003780  20 52 31 2c 23 38 35 0d  19 00 12 54 53 54 20 52  | R1,#85....TST R|
00003790  31 34 2c 23 31 3c 3c 32  32 0d 19 0a 0c ec 51 20  |14,#1<<22.....Q |
000037a0  52 32 2c 23 30 0d 19 14  10 4d 4f 56 4e 45 20 52  |R2,#0....MOVNE R|
000037b0  32 2c 23 38 35 0d 19 1e  16 2e 64 6f 6e 74 63 68  |2,#85.....dontch|
000037c0  61 6e 67 65 63 6f 6c 6f  75 72 31 0d 19 28 19 41  |angecolour1..(.A|
000037d0  44 44 20 52 31 34 2c 52  31 34 2c 52 31 34 2c 41  |DD R14,R14,R14,A|
000037e0  53 4c 23 37 0d 19 32 16  54 53 54 20 52 31 34 2c  |SL#7..2.TST R14,|
000037f0  23 26 46 45 30 30 30 30  30 30 0d 19 3c 19 42 4e  |#&FE000000..<.BN|
00003800  45 20 64 6f 6e 74 63 68  61 6e 67 65 63 6f 6c 6f  |E dontchangecolo|
00003810  75 72 32 0d 19 46 12 54  53 54 20 52 31 34 2c 23  |ur2..F.TST R14,#|
00003820  31 3c 3c 32 34 0d 19 50  0c ec 51 20 52 33 2c 23  |1<<24..P..Q R3,#|
00003830  30 0d 19 5a 10 4d 4f 56  4e 45 20 52 33 2c 23 38  |0..Z.MOVNE R3,#8|
00003840  35 0d 19 64 12 54 53 54  20 52 31 34 2c 23 31 3c  |5..d.TST R14,#1<|
00003850  3c 32 33 0d 19 6e 0c ec  51 20 52 34 2c 23 30 0d  |<23..n..Q R4,#0.|
00003860  19 78 10 4d 4f 56 4e 45  20 52 34 2c 23 38 35 0d  |.x.MOVNE R4,#85.|
00003870  19 82 12 54 53 54 20 52  31 34 2c 23 31 3c 3c 32  |...TST R14,#1<<2|
00003880  32 0d 19 8c 0c ec 51 20  52 35 2c 23 30 0d 19 96  |2.....Q R5,#0...|
00003890  10 4d 4f 56 4e 45 20 52  35 2c 23 38 35 0d 19 a0  |.MOVNE R5,#85...|
000038a0  16 2e 64 6f 6e 74 63 68  61 6e 67 65 63 6f 6c 6f  |..dontchangecolo|
000038b0  75 72 32 0d 19 aa 16 5d  3a e3 55 25 3d 36 b8 31  |ur2....]:.U%=6.1|
000038c0  31 3a 5b 4f 50 54 20 54  25 0d 19 b4 11 43 4d 50  |1:[OPT T%....CMP|
000038d0  20 55 25 2c 28 55 25 2d  36 29 0d 19 be 12 41 44  | U%,(U%-6)....AD|
000038e0  44 4c 54 20 55 25 2c 55  25 2c 23 31 0d 19 c8 12  |DLT U%,U%,#1....|
000038f0  53 55 42 47 54 20 55 25  2c 55 25 2c 23 31 0d 19  |SUBGT U%,U%,#1..|
00003900  d2 0f 5d 3a ed 3a 5b 4f  50 54 20 54 25 0d 19 dc  |..]:.:[OPT T%...|
00003910  16 53 54 4d 49 41 20 52  31 33 2c 7b 52 30 2d 52  |.STMIA R13,{R0-R|
00003920  31 31 7d 0d 19 e6 16 3b  20 52 65 64 65 66 69 6e  |11}....; Redefin|
00003930  65 20 63 6f 6c 6f 75 72  73 0d 19 f0 12 4c 44 52  |e colours....LDR|
00003940  20 52 31 32 2c 63 6f 6c  6e 6f 25 0d 19 fa 12 41  | R12,colno%....A|
00003950  44 44 20 52 31 32 2c 52  31 32 2c 23 35 0d 1a 04  |DD R12,R12,#5...|
00003960  11 80 20 52 31 32 2c 52  31 32 2c 23 31 35 0d 1a  |.. R12,R12,#15..|
00003970  0e 12 53 54 52 20 52 31  32 2c 63 6f 6c 6e 6f 25  |..STR R12,colno%|
00003980  0d 1a 18 0d 2e 63 6f 6c  6c 6f 6f 70 25 0d 1a 22  |.....colloop%.."|
00003990  13 53 57 49 20 26 31 31  33 3a 3b 20 ef 31 39 2c  |.SWI &113:; .19,|
000039a0  0d 1a 2c 0e 4d 4f 56 20  52 30 2c 52 31 32 0d 1a  |..,.MOV R0,R12..|
000039b0  36 1d 53 57 49 20 22 4f  53 5f 57 72 69 74 65 43  |6.SWI "OS_WriteC|
000039c0  22 3a 3b 20 63 6f 6c 6f  75 72 2c 0d 1a 40 21 53  |":; colour,..@!S|
000039d0  57 49 20 26 31 31 30 3a  3b 20 20 20 20 20 20 20  |WI &110:;       |
000039e0  20 20 20 20 20 20 20 20  20 31 36 2c 0d 1a 4a 0f  |         16,..J.|
000039f0  80 20 52 31 2c 52 31 32  2c 23 33 0d 1a 54 14 4d  |. R1,R12,#3..T.M|
00003a00  4f 56 20 52 32 2c 52 31  32 2c 4c 53 52 23 32 0d  |OV R2,R12,LSR#2.|
00003a10  1a 5e 10 4d 55 4c 20 52  30 2c 52 31 2c 52 36 0d  |.^.MUL R0,R1,R6.|
00003a20  1a 68 13 4d 4c 41 20 52  30 2c 52 32 2c 52 39 2c  |.h.MLA R0,R2,R9,|
00003a30  52 30 0d 1a 72 0f 43 4d  50 20 52 30 2c 23 32 35  |R0..r.CMP R0,#25|
00003a40  35 0d 1a 7c 11 4d 4f 56  47 54 20 52 30 2c 23 32  |5..|.MOVGT R0,#2|
00003a50  35 35 0d 1a 86 26 53 57  49 20 22 4f 53 5f 57 72  |55...&SWI "OS_Wr|
00003a60  69 74 65 43 22 3a 3b 20  20 20 20 20 20 20 20 20  |iteC":;         |
00003a70  20 20 20 20 52 65 64 2c  0d 1a 90 10 4d 55 4c 20  |    Red,....MUL |
00003a80  52 30 2c 52 31 2c 52 37  0d 1a 9a 14 4d 4c 41 20  |R0,R1,R7....MLA |
00003a90  52 30 2c 52 32 2c 52 31  30 2c 52 30 0d 1a a4 0f  |R0,R2,R10,R0....|
00003aa0  43 4d 50 20 52 30 2c 23  32 35 35 0d 1a ae 11 4d  |CMP R0,#255....M|
00003ab0  4f 56 47 54 20 52 30 2c  23 32 35 35 0d 1a b8 2d  |OVGT R0,#255...-|
00003ac0  53 57 49 20 22 4f 53 5f  57 72 69 74 65 43 22 3a  |SWI "OS_WriteC":|
00003ad0  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00003ae0  20 20 20 47 72 65 65 6e  2c 0d 1a c2 10 4d 55 4c  |   Green,....MUL|
00003af0  20 52 30 2c 52 31 2c 52  38 0d 1a cc 14 4d 4c 41  | R0,R1,R8....MLA|
00003b00  20 52 30 2c 52 32 2c 52  31 31 2c 52 30 0d 1a d6  | R0,R2,R11,R0...|
00003b10  0f 43 4d 50 20 52 30 2c  23 32 35 35 0d 1a e0 11  |.CMP R0,#255....|
00003b20  4d 4f 56 47 54 20 52 30  2c 23 32 35 35 0d 1a ea  |MOVGT R0,#255...|
00003b30  32 53 57 49 20 22 4f 53  5f 57 72 69 74 65 43 22  |2SWI "OS_WriteC"|
00003b40  3a 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:;              |
00003b50  20 20 20 20 20 20 20 20  20 20 20 42 6c 75 65 0d  |           Blue.|
00003b60  1a f4 12 41 44 44 20 52  31 34 2c 52 31 34 2c 23  |...ADD R14,R14,#|
00003b70  31 0d 1a fe 13 53 54 52  20 52 31 34 2c 72 61 6e  |1....STR R14,ran|
00003b80  64 6f 6d 25 0d 1b 08 19  41 44 52 20 52 30 2c 74  |dom%....ADR R0,t|
00003b90  65 6d 70 73 74 6f 72 65  61 6e 69 6d 25 0d 1b 12  |empstoreanim%...|
00003ba0  15 4c 44 4d 49 41 20 52  30 2c 7b 52 31 2d 52 31  |.LDMIA R0,{R1-R1|
00003bb0  34 7d 0d 1b 1c 0e 4d 4f  56 20 50 43 2c 52 31 34  |4}....MOV PC,R14|
00003bc0  0d 1b 26 05 3a 0d 1b 30  11 2e 74 65 6d 70 73 74  |..&.:..0..tempst|
00003bd0  6f 72 65 64 62 25 0d 1b  3a 23 45 51 55 44 20 2d  |oredb%..:#EQUD -|
00003be0  31 3a 45 51 55 44 20 2d  31 3a 45 51 55 44 20 2d  |1:EQUD -1:EQUD -|
00003bf0  31 3a 45 51 55 44 20 2d  31 0d 1b 44 23 45 51 55  |1:EQUD -1..D#EQU|
00003c00  44 20 2d 31 3a 45 51 55  44 20 2d 31 3a 45 51 55  |D -1:EQUD -1:EQU|
00003c10  44 20 2d 31 3a 45 51 55  44 20 2d 31 0d 1b 4e 23  |D -1:EQUD -1..N#|
00003c20  45 51 55 44 20 2d 31 3a  45 51 55 44 20 2d 31 3a  |EQUD -1:EQUD -1:|
00003c30  45 51 55 44 20 2d 31 3a  45 51 55 44 20 2d 31 0d  |EQUD -1:EQUD -1.|
00003c40  1b 58 23 45 51 55 44 20  2d 31 3a 45 51 55 44 20  |.X#EQUD -1:EQUD |
00003c50  2d 31 3a 45 51 55 44 20  2d 31 3a 45 51 55 44 20  |-1:EQUD -1:EQUD |
00003c60  2d 31 0d 1b 62 05 3a 0d  1b 6c 0e 2e 64 72 61 77  |-1..b.:..l..draw|
00003c70  62 61 63 6b 25 0d 1b 76  11 3b 20 43 6f 72 72 75  |back%..v.; Corru|
00003c80  70 74 73 20 52 30 0d 1b  80 17 41 44 52 20 52 30  |pts R0....ADR R0|
00003c90  2c 74 65 6d 70 73 74 6f  72 65 64 62 25 0d 1b 8a  |,tempstoredb%...|
00003ca0  15 53 54 4d 49 41 20 52  30 2c 7b 52 31 2d 52 31  |.STMIA R0,{R1-R1|
00003cb0  34 7d 0d 1b 94 14 4c 44  52 20 52 31 34 2c 73 63  |4}....LDR R14,sc|
00003cc0  72 61 64 64 72 25 0d 1b  9e 16 41 44 44 20 52 31  |raddr%....ADD R1|
00003cd0  34 2c 52 31 34 2c 23 33  32 3e 3e 31 0d 1b a8 20  |4,R14,#32>>1... |
00003ce0  4f 50 54 20 a4 61 64 72  28 31 33 2c 62 61 63 6b  |OPT .adr(13,back|
00003cf0  25 2b 28 33 32 3e 3e 31  29 2c 33 29 0d 1b b2 10  |%+(32>>1),3)....|
00003d00  4d 4f 56 20 52 31 32 2c  23 32 35 36 0d 1b bc 0b  |MOV R12,#256....|
00003d10  2e 79 6c 6f 6f 70 25 0d  1b c6 1b 5d 3a e3 55 25  |.yloop%....]:.U%|
00003d20  3d 30 b8 32 35 35 88 38  2a 38 3a 5b 4f 50 54 20  |=0.255.8*8:[OPT |
00003d30  54 25 0d 1b d0 16 4c 44  4d 49 41 20 52 31 33 21  |T%....LDMIA R13!|
00003d40  2c 7b 52 30 2d 52 37 7d  0d 1b da 16 53 54 4d 49  |,{R0-R7}....STMI|
00003d50  41 20 52 31 34 21 2c 7b  52 30 2d 52 37 7d 0d 1b  |A R14!,{R0-R7}..|
00003d60  e4 0f 5d 3a ed 3a 5b 4f  50 54 20 54 25 0d 1b ee  |..]:.:[OPT T%...|
00003d70  1b 41 44 44 20 52 31 33  2c 52 31 33 2c 23 33 32  |.ADD R13,R13,#32|
00003d80  30 2d 32 35 36 3e 3e 31  0d 1b f8 1b 41 44 44 20  |0-256>>1....ADD |
00003d90  52 31 34 2c 52 31 34 2c  23 33 32 30 2d 32 35 36  |R14,R14,#320-256|
00003da0  3e 3e 31 0d 1c 02 13 53  55 42 53 20 52 31 32 2c  |>>1....SUBS R12,|
00003db0  52 31 32 2c 23 31 0d 1c  0c 0e 42 47 54 20 79 6c  |R12,#1....BGT yl|
00003dc0  6f 6f 70 25 0d 1c 16 17  41 44 52 20 52 30 2c 74  |oop%....ADR R0,t|
00003dd0  65 6d 70 73 74 6f 72 65  64 62 25 0d 1c 20 15 4c  |empstoredb%.. .L|
00003de0  44 4d 49 41 20 52 30 2c  7b 52 31 2d 52 31 34 7d  |DMIA R0,{R1-R14}|
00003df0  0d 1c 2a 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 1c  |..*.MOV PC,R14..|
00003e00  34 05 3a 0d 1c 3e 30 5d  3a e7 50 25 3e 65 6e 64  |4.:..>0]:.P%>end|
00003e10  63 6f 64 65 25 8c 85 32  35 35 2c 22 4e 6f 74 20  |code%..255,"Not |
00003e20  65 6e 6f 75 67 68 20 63  6f 64 65 20 6d 65 6d 6f  |enough code memo|
00003e30  72 79 22 0d 1c 48 05 ed  0d 1c 52 05 e1 0d ff     |ry"..H....R....|
00003e3f