�> Tunnel
#�> Writen by Morgan Henry �1994
�> enry@dcs.qmw.ac.uk

� �$;" at line ";�:�
*K.1 MODE0|ML.|N
�15:�13

ȑ640,512
	)num=16              :�depth of tunnel

0shaddist=6          :�distance of light fade
)w=16                :�was tunnel size
.p=9                 :�perspective constant

originX=160
originY=128
frameL=160-90
frameR=160+90
frameT=128-90
frameB=128+90

�ass

k=360/512
�i%=0�(511+128)
sin!(i%*4)=(2^10)*��(i%*k)
�

�i%=0�num
!persp!(i%*4)=(2^6)*(p/(i%+3))
�

H�"LEFT mouse button to speed up,"'"RIGHT to slow down (or reverse)."
k=�(-�)
� �(2)=1 � �one � �two
 �tunnel
!�
"
#	��one
$
k=360/256
%
�i%=0�255
&#x=200*��(i%*k*2)+16*��(i%*k*10)
'/y=220*��(i%*k)+90*��(i%*k*4)+120*��(i%*k*3)
((r=(512*��(i%*k)+200*��(i%*k*2))�&1FF
)c=&B6:c2=&FF+(i%�4=0)
*.�(i%�8)=0 c3=&FF:c=&B7 � c3=&AF+((i%�4)<2)
+�i%>127 c3=0
,5track!(i%*16+0)=(2^10)*x:track!(i%*16+4)=(2^10)*y
-track!(i%*16+8)=r
.Qtrack?(i%*16+12)=c2:track?(i%*16+13)=c3:track?(i%*16+14)=c:track?(i%*16+15)=c
/	Ȓx,y
0�
1track!12=&FF
2�
3
4	��two
5
k=360/256
6
�i%=0�255
71x=100*��(i%*k*2)-30*��(i%*k*10)+30*��(i%*k*3)
8>y=100*��(i%*k)-90*��(i%*k*4)+120*��(i%*k*3)-100*��(i%*k*5)
9(r=(512*��(i%*k)+200*��(i%*k*3))�&1FF
:c=&B6:c2=&FF+(i%�4=0)
;.�(i%�8)=0 c3=&FF:c=&B7 � c3=&AF+((i%�4)<2)
<�i%>127 c3=0
=5track!(i%*16+0)=(2^10)*x:track!(i%*16+4)=(2^10)*y
>track!(i%*16+8)=r
?Qtrack?(i%*16+12)=c2:track?(i%*16+13)=c3:track?(i%*16+14)=c:track?(i%*16+15)=c
@	Ȓx,y
A�
Btrack!12=&FF
C�
D 
E
F
G 
H	��ass
I�code%64000
J�ditable 4*640
K
L
�i%=1�640
Mditable!(4*i%)=(1<<16)/i%
N�
O
P
Q
Rax=0:ay=1:bx=2:by=3
Scx=4:cy=5:dx=6:dy=7
T
col=8:t=9
Ua=10:b=11:c=12
Vf=8:g=9:t=9:n=10
W
q=11:s=12
Xxl=0:xr=1:l=2:r=3:ct=4
Yc1=5:c2=6:c3=7:c4=8
Zo=10:la=11:ra=12
[sp=13:link=14:pc=15
\
]
�i%=0�2�2
^P%=code%
_
[OPTi%
`.tunnel STMFD r13!,{r14}
a.tunnelloop
bSWI &100+12   ;cls
cADR r9,persp
dLDR r10,trackptr
eADR r11,points2
fADR r12,colours
g
hLDR r8,pos
iMOV r7,#num
j 
kADD r14,r10,r8,LSL#4
l9LDMIA r14,{r0,r1,r2,r3}   ;startx,starty,startr,stcol
mSTMIA r12!,{r3}
nADD r8,r8,#1
o.loop1 STMFD r13!,{r0-r2}
p 
q7� r8,r8,#&FF:ADD r14,r10,r8,LSL#4:LDMIA r14,{r3-r6}
rLSUB r0,r3,r0:SUB r1,r4,r1:SUB r2,r5,r2:MOV r2,r2,LSL#23:MOV r2,r2,LSR#23
sSTMIA r12!,{r6}
t 
u(LDR r14,sinptr:LDR r3,[r14,r2,LSL#2]
v(LDR r14,cosptr:LDR r4,[r14,r2,LSL#2]
w]MOV r3,r3,ASL#4:MOV r4,r4,ASL#4   ;MOV r2,#w:;MUL r3,r2,r3:;MUL r4,r2,r4 ;r3=w*sr r4=w*cr
x
y
zLDMIA r9!,{r2}
{;SUB r5,r4,r3:ADD r5,r5,r0:MUL r5,r2,r5:MOV r5,r5,ASR#16
|;ADD r6,r3,r4:ADD r6,r6,r1:MUL r6,r2,r6:MOV r6,r6,ASR#16
}STMIA r11!,{r5,r6}
~;SUB r5,r0,r4:SUB r5,r5,r3:MUL r5,r2,r5:MOV r5,r5,ASR#16
;SUB r6,r4,r3:ADD r6,r6,r1:MUL r6,r2,r6:MOV r6,r6,ASR#16
�STMIA r11!,{r5,r6}
�;SUB r5,r3,r4:ADD r5,r5,r0:MUL r5,r2,r5:MOV r5,r5,ASR#16
�;SUB r6,r1,r3:SUB r6,r6,r4:MUL r6,r2,r6:MOV r6,r6,ASR#16
�STMIA r11!,{r5,r6}
�;ADD r5,r3,r4:ADD r5,r5,r0:MUL r5,r2,r5:MOV r5,r5,ASR#16
�;SUB r6,r3,r4:ADD r6,r6,r1:MUL r6,r2,r6:MOV r6,r6,ASR#16
�STMIA r11!,{r5,r6}
� 
�LDMFD r13!,{r0-r2}
�ADD r8,r8,#1
�SUBS r7,r7,#1:BNE loop1
� 
�
.flush
�"ADR r11,points:ADR r12,colours
�MOV r10,#num
�
.drawloop
�LDR r8,[r12,r10,LSL#2]
�1CMP r10,#shaddist:LDRGE r6,shadk:�GE r8,r8,r6
�ADD r9,r11,r10,LSL#5
�
�
�LDMIA r9,{r0-r3}
�(LDR r4,[r9,#8-32]:LDR r5,[r9,#12-32]
�'LDR r6,[r9,#0-32]:LDR r7,[r9,#4-32]
�BL drawpoly
� 
�,MOV r8,r8,LSR#8:�S r14,r8,#&FF:BEQ notop
�#LDR r0,[r9,#16]:LDR r1,[r9,#20]
�#LDR r2,[r9,#24]:LDR r3,[r9,#28]
�)LDR r4,[r9,#24-32]:LDR r5,[r9,#28-32]
�)LDR r6,[r9,#16-32]:LDR r7,[r9,#20-32]
�BL drawpoly
� 
�
.notop
�MOV r8,r8,LSR#8
�LDMIA r9,{r0,r1}
�'LDR r2,[r9,#0-32]:LDR r3,[r9,#4-32]
�)LDR r4,[r9,#24-32]:LDR r5,[r9,#28-32]
�#LDR r6,[r9,#24]:LDR r7,[r9,#28]
�BL drawpoly
�
�MOV r8,r8,LSR#8
�"LDR r0,[r9,#8]:LDR r1,[r9,#12]
�#LDR r2,[r9,#16]:LDR r3,[r9,#20]
�)LDR r4,[r9,#16-32]:LDR r5,[r9,#20-32]
�(LDR r6,[r9,#8-32]:LDR r7,[r9,#12-32]
�BL drawpoly
�
�
� SUBS r10,r10,#1:BNE drawloop
� 
�LDR r0,vel
�LDR r1,pos
�ADD r1,r1,r0
�� r1,r1,#&FF
�STR r1,pos
�MOV r0,#19:SWI 6
�$MOV r0,#112:LDR r1,scrbank:SWI 6
�.LDR r1,scrbank:RSB r1,r1,#3:STR r1,scrbank
�MOV r0,#113:SWI 6
�3LDR r0,vdu:LDR r1,vdu+4:STR r0,vdu+4:STR r1,vdu
�
�SWI "OS_Mouse"
�LDR r4,oldm
�CMP r2,r4:BEQ nochange
�STR r2,oldm
�LDR r3,vel
�CMP r2,#1:SUBEQ r3,r3,#1
�CMP r2,#4:ADDEQ r3,r3,#1
�STR r3,vel
�
.nochange
�SWI "XOS_ReadEscapeState"
�BCC tunnelloop
�LDMFD r13!,{r15}
� 
�.colours �gap((num+1)*4)
�.persp �gap((num+1)*4)
�O.points EQUD100:EQUD100:EQUD-100:EQUD100:EQUD-100:EQUD-100:EQUD100:EQUD-100
�.points2 �gap(4*num*8)
� 
�.scrbank EQUD 2
�.pos EQUD 0
�.vel EQUD 0
�.oldm EQUD 0
�1.shadk EQUD %11111101111111011111110111111101
� 
�
�
� 
�.axd EQUD0
�.bxd EQUD0
�.cxd
�.dxd EQUD0
�
.ab EQUD0
�
.bc EQUD0
�.dc
�
.cd EQUD0
�
.ad EQUD0
�
.aa EQUD0
�.dd
�
.bb EQUD0
�
.cc EQUD0
�
.kl EQUD0
�.ypos EQUD0
�.ditabd EQUD ditable
� 
�9.drawpoly                ;based on a routine by Jan �
�STMFD r13!,{r8-r12,r14}
�
�� col,col,#&ff
�ADD col,col,col,LSL#8
�ADD col,col,col,LSL#16
�STR col,kl
�
�ADD ax,ax,#originX
�ADD bx,bx,#originX
�ADD cx,cx,#originX
�ADD dx,dx,#originX
�
�$MOV t,ay  ;find smallest (top) y
�CMP t,by
�MOVGT t,by
�CMP t,cy
�MOVGT t,cy
�CMP t,dy
�MOVGT t,dy
�
�
.order

CMP t,ay



BEQ ok

�rot

B order

.ok



ADD t,ay,#originY

STR t,ypos



	
CMP by,dy


MOVGT t,bx

MOVGT s,by

MOVGT bx,dx


MOVGT by,dy

MOVGT dx,t

MOVGT dy,s




CMP cy,dy

BGT diamond



$CMP cy,by               ;DUBIOUS

%MOVLT cy,by             ;SOLUTION



STR ax,axd

STR bx,bxd

STR cx,cxd



LDR q,ditabd

SUB t,bx,ax

SUB n,by,ay

STR n,aa

LDR n,[q,n,ASL#2]

 
MUL n,t,n

!STR n,ab

"SUB t,dx,ax

#SUB n,dy,ay

$LDR n,[q,n,ASL#2]

%
MUL n,t,n

&STR n,ad

'SUB t,cx,bx

(SUB n,cy,by

)STR n,bb

*LDR n,[q,n,ASL#2]

+
MUL n,t,n

,STR n,bc

-SUB t,dx,cx

.SUB n,dy,cy

/STR n,cc

0LDR n,[q,n,ASL#2]

1
MUL n,t,n

2STR n,cd

3

4
LDR o,vdu

5LDR col,kl

6ADD t,ay,#originY

7ADD t,t,t,ASL#2

8ADD o,o,t,ASL#6

9

:
MOV c1,c4

;
MOV c2,c4

<
MOV c3,c4

=

>
LDR ct,aa

?
CMP ct,#0

@
LDR t,axd

AMOV l,t,ASL#16

BMOV r,t,ASL#16

C
LDR la,ad

DADD l,l,#1<<15

E
LDR ra,ab

FADD r,r,#1<<15

GBLNE piece

H

I
LDR ct,bb

J
CMP ct,#0

K
LDR t,bxd

LMOV r,t,ASL#16

M
LDR ra,bc

NADD r,r,#1<<15

OBLNE piece

P

Q
LDR ct,cc

R
CMP ct,#0

S
LDR t,cxd

TMOV r,t,ASL#16

U
LDR ra,cd

VADD r,r,#1<<15

WBLNE piece

XLDMFD r13!,{r8-r12,r15}

Y

Z

[.diamond

\STR ax,axd

]STR bx,bxd

^STR dx,dxd

_

`LDR q,ditabd

aSUB t,bx,ax

bSUB n,by,ay

cSTR n,aa

dLDR n,[q,n,ASL#2]

e
MUL n,t,n

fSTR n,ab

g

hSUB t,dx,ax

iSUB n,dy,ay

jLDR n,[q,n,ASL#2]

k
MUL n,t,n

lSTR n,ad

m

nSUB t,cx,bx

oSUB n,cy,by

pLDR n,[q,n,ASL#2]

q
MUL n,t,n

rSTR n,bc

s

tSUB t,cx,dx

uSUB n,cy,dy

vSTR n,cc

wLDR n,[q,n,ASL#2]

x
MUL n,t,n

ySTR n,dc

z

{SUB n,dy,by

|STR n,dd

}

~
LDR o,vdu

LDR col,kl

�ADD t,ay,#originY

�ADD t,t,t,ASL#2

�ADD o,o,t,ASL#6

�

�
MOV c1,c4

�
MOV c2,c4

�
MOV c3,c4

�

�
LDR ct,aa

�
CMP ct,#0

�
LDR t,axd

�MOV l,t,ASL#16

�MOV r,t,ASL#16

�
LDR la,ad

�ADD l,l,#1<<15

�
LDR ra,ab

�ADD r,r,#1<<15

�BLNE piece

�

�
LDR ct,dd

�
CMP ct,#0

�
LDR t,bxd

�MOV r,t,ASL#16

�
LDR ra,bc

�ADD r,r,#1<<15

�BLNE piece

�

�
LDR ct,cc

�
CMP ct,#0

�
LDR t,dxd

�MOV l,t,ASL#16

�
LDR la,dc

�ADD l,l,#1<<15

�BLNE piece

�LDMFD r13!,{r8-r12,r15}

�

� 

�.piece ;STMFD r13!,{r14}

�.lo

�LDR t,ypos

�ADD t,t,#1

�STR t,ypos

�CMP t,#frameT

�BLE endspan

�CMP t,#frameB

�/MOVGT r15,r14           ;LDMFDGT r13!,{r15}

�

�CMP l,r

�MOVLT xl,l,ASR#16

�MOVLT xr,r,ASR#16

�MOVGE xl,r,ASR#16

�MOVGE xr,l,ASR#16

�

�CMP xl,#frameR

�BGT endspan

�CMP xr,#frameL

�BLT endspan

�CMP xl,#frameL

�MOVLT xl,#frameL

�CMP xr,#frameR

�MOVGT xr,#frameR

�

�ADD xl,o,xl

�ADD xr,o,xr

�

�SUBS t,xr,xl

�BEQ endspan

�CMP t,#2

�STRLSB c1,[xl]

�STRLSB c1,[xr,#-1]

�BLS endspan

�TST xl,#%01

�STRNEB c1,[xl],#1

�TST xl,#%10

�STRNEB c2,[xl],#1

�STRNEB c1,[xl],#1

�TST xr,#%01

�STRNEB c2,[xr,#-1]!

�TST xr,#%10

�STRNEB c1,[xr,#-1]!

�STRNEB c2,[xr,#-1]!

�SUBS t,xr,xl

�MOVS t,t,LSR#3

�STRCS c1,[xl],#4

�MOVS t,t,LSR#1

�STMCSIA (xl)!,{c1,c2}

�

�ADR xr,base

�SUB pc,xr,t,LSL#2

�	�vulc

�	.base

�

�.endspan

�ADD l,l,la

�ADD r,r,ra

�ADD o,o,#320

�SUBS ct,ct,#1

�
BNE lo

�/MOV r15,r14               ;LDMFD r13!,{r15}

� 

� 

�.vdu EQUD 148

�     EQUD -1

� 

�.trackptr EQUD track

�.sinptr EQUD sin

�.cosptr EQUD sin+512

� 

�.track �gap(4*4*256)

�.sin �gap(640*4)

�]�:L%=P%-code%

�#ș"OS_ReadVduVariables",vdu,vdu

�vdu!4=!vdu+320*256

��

�

�
ݤvulc

��j%=1�20

�
[OPTi%

�STMIA (xl)!,{c1,c2,c3,c4}

�]�

�=""

�

� 

�	ݤrot

�
[OPTi%

�MOV s,ax

�
MOV ax,bx

�
MOV bx,cx

MOV cx,dx

MOV dx,s
MOV s,ay

MOV ay,by

MOV by,cy

MOV cy,dy
MOV dy,s
]
=0
	

ݤgap(memory%)
memory%=4*((memory%+3)�4)
P%+=memory%

=0
�

00000000  0d 00 01 0d f4 3e 20 54  75 6e 6e 65 6c 0d 00 02  |.....> Tunnel...|
00000010  23 f4 3e 20 57 72 69 74  65 6e 20 62 79 20 4d 6f  |#.> Writen by Mo|
00000020  72 67 61 6e 20 48 65 6e  72 79 20 a9 31 39 39 34  |rgan Henry .1994|
00000030  0d 00 03 19 f4 3e 20 65  6e 72 79 40 64 63 73 2e  |.....> enry@dcs.|
00000040  71 6d 77 2e 61 63 2e 75  6b 0d 00 04 04 0d 00 05  |qmw.ac.uk.......|
00000050  1a ee 85 20 f1 f6 24 3b  22 20 61 74 20 6c 69 6e  |... ..$;" at lin|
00000060  65 20 22 3b 9e 3a e0 0d  00 06 14 2a 4b 2e 31 20  |e ";.:.....*K.1 |
00000070  4d 4f 44 45 30 7c 4d 4c  2e 7c 4e 0d 00 07 0b eb  |MODE0|ML.|N.....|
00000080  31 35 3a eb 31 33 0d 00  08 0d c8 91 36 34 30 2c  |15:.13......640,|
00000090  35 31 32 0d 00 09 29 6e  75 6d 3d 31 36 20 20 20  |512...)num=16   |
000000a0  20 20 20 20 20 20 20 20  20 20 20 3a f4 64 65 70  |           :.dep|
000000b0  74 68 20 6f 66 20 74 75  6e 6e 65 6c 0d 00 0a 30  |th of tunnel...0|
000000c0  73 68 61 64 64 69 73 74  3d 36 20 20 20 20 20 20  |shaddist=6      |
000000d0  20 20 20 20 3a f4 64 69  73 74 61 6e 63 65 20 6f  |    :.distance o|
000000e0  66 20 6c 69 67 68 74 20  66 61 64 65 0d 00 0b 29  |f light fade...)|
000000f0  77 3d 31 36 20 20 20 20  20 20 20 20 20 20 20 20  |w=16            |
00000100  20 20 20 20 3a f4 77 61  73 20 74 75 6e 6e 65 6c  |    :.was tunnel|
00000110  20 73 69 7a 65 0d 00 0c  2e 70 3d 39 20 20 20 20  | size....p=9    |
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 70  |             :.p|
00000130  65 72 73 70 65 63 74 69  76 65 20 63 6f 6e 73 74  |erspective const|
00000140  61 6e 74 0d 00 0d 0f 6f  72 69 67 69 6e 58 3d 31  |ant....originX=1|
00000150  36 30 0d 00 0e 0f 6f 72  69 67 69 6e 59 3d 31 32  |60....originY=12|
00000160  38 0d 00 0f 11 66 72 61  6d 65 4c 3d 31 36 30 2d  |8....frameL=160-|
00000170  39 30 0d 00 10 11 66 72  61 6d 65 52 3d 31 36 30  |90....frameR=160|
00000180  2b 39 30 0d 00 11 11 66  72 61 6d 65 54 3d 31 32  |+90....frameT=12|
00000190  38 2d 39 30 0d 00 12 11  66 72 61 6d 65 42 3d 31  |8-90....frameB=1|
000001a0  32 38 2b 39 30 0d 00 13  04 0d 00 14 08 f2 61 73  |28+90.........as|
000001b0  73 0d 00 15 0d 6b 3d 33  36 30 2f 35 31 32 0d 00  |s....k=360/512..|
000001c0  16 13 e3 69 25 3d 30 b8  28 35 31 31 2b 31 32 38  |...i%=0.(511+128|
000001d0  29 0d 00 17 1e 73 69 6e  21 28 69 25 2a 34 29 3d  |)....sin!(i%*4)=|
000001e0  28 32 5e 31 30 29 2a b5  b2 28 69 25 2a 6b 29 0d  |(2^10)*..(i%*k).|
000001f0  00 18 05 ed 0d 00 19 0d  e3 69 25 3d 30 b8 6e 75  |.........i%=0.nu|
00000200  6d 0d 00 1a 21 70 65 72  73 70 21 28 69 25 2a 34  |m...!persp!(i%*4|
00000210  29 3d 28 32 5e 36 29 2a  28 70 2f 28 69 25 2b 33  |)=(2^6)*(p/(i%+3|
00000220  29 29 0d 00 1b 05 ed 0d  00 1c 04 0d 00 1d 48 f1  |))............H.|
00000230  22 4c 45 46 54 20 6d 6f  75 73 65 20 62 75 74 74  |"LEFT mouse butt|
00000240  6f 6e 20 74 6f 20 73 70  65 65 64 20 75 70 2c 22  |on to speed up,"|
00000250  27 22 52 49 47 48 54 20  74 6f 20 73 6c 6f 77 20  |'"RIGHT to slow |
00000260  64 6f 77 6e 20 28 6f 72  20 72 65 76 65 72 73 65  |down (or reverse|
00000270  29 2e 22 0d 00 1e 0b 6b  3d b3 28 2d 91 29 0d 00  |)."....k=.(-.)..|
00000280  1f 1a e7 20 b3 28 32 29  3d 31 20 8c 20 f2 6f 6e  |... .(2)=1 . .on|
00000290  65 20 8b 20 f2 74 77 6f  0d 00 20 0b d6 74 75 6e  |e . .two.. ..tun|
000002a0  6e 65 6c 0d 00 21 05 e0  0d 00 22 04 0d 00 23 09  |nel..!...."...#.|
000002b0  dd f2 6f 6e 65 0d 00 24  0d 6b 3d 33 36 30 2f 32  |..one..$.k=360/2|
000002c0  35 36 0d 00 25 0d e3 69  25 3d 30 b8 32 35 35 0d  |56..%..i%=0.255.|
000002d0  00 26 23 78 3d 32 30 30  2a 9b b2 28 69 25 2a 6b  |.&#x=200*..(i%*k|
000002e0  2a 32 29 2b 31 36 2a 9b  b2 28 69 25 2a 6b 2a 31  |*2)+16*..(i%*k*1|
000002f0  30 29 0d 00 27 2f 79 3d  32 32 30 2a 9b b2 28 69  |0)..'/y=220*..(i|
00000300  25 2a 6b 29 2b 39 30 2a  9b b2 28 69 25 2a 6b 2a  |%*k)+90*..(i%*k*|
00000310  34 29 2b 31 32 30 2a b5  b2 28 69 25 2a 6b 2a 33  |4)+120*..(i%*k*3|
00000320  29 0d 00 28 28 72 3d 28  35 31 32 2a 9b b2 28 69  |)..((r=(512*..(i|
00000330  25 2a 6b 29 2b 32 30 30  2a 9b b2 28 69 25 2a 6b  |%*k)+200*..(i%*k|
00000340  2a 32 29 29 80 26 31 46  46 0d 00 29 19 63 3d 26  |*2)).&1FF..).c=&|
00000350  42 36 3a 63 32 3d 26 46  46 2b 28 69 25 83 34 3d  |B6:c2=&FF+(i%.4=|
00000360  30 29 0d 00 2a 2e e7 28  69 25 83 38 29 3d 30 20  |0)..*..(i%.8)=0 |
00000370  63 33 3d 26 46 46 3a 63  3d 26 42 37 20 8b 20 63  |c3=&FF:c=&B7 . c|
00000380  33 3d 26 41 46 2b 28 28  69 25 83 34 29 3c 32 29  |3=&AF+((i%.4)<2)|
00000390  0d 00 2b 10 e7 69 25 3e  31 32 37 20 63 33 3d 30  |..+..i%>127 c3=0|
000003a0  0d 00 2c 35 74 72 61 63  6b 21 28 69 25 2a 31 36  |..,5track!(i%*16|
000003b0  2b 30 29 3d 28 32 5e 31  30 29 2a 78 3a 74 72 61  |+0)=(2^10)*x:tra|
000003c0  63 6b 21 28 69 25 2a 31  36 2b 34 29 3d 28 32 5e  |ck!(i%*16+4)=(2^|
000003d0  31 30 29 2a 79 0d 00 2d  15 74 72 61 63 6b 21 28  |10)*y..-.track!(|
000003e0  69 25 2a 31 36 2b 38 29  3d 72 0d 00 2e 51 74 72  |i%*16+8)=r...Qtr|
000003f0  61 63 6b 3f 28 69 25 2a  31 36 2b 31 32 29 3d 63  |ack?(i%*16+12)=c|
00000400  32 3a 74 72 61 63 6b 3f  28 69 25 2a 31 36 2b 31  |2:track?(i%*16+1|
00000410  33 29 3d 63 33 3a 74 72  61 63 6b 3f 28 69 25 2a  |3)=c3:track?(i%*|
00000420  31 36 2b 31 34 29 3d 63  3a 74 72 61 63 6b 3f 28  |16+14)=c:track?(|
00000430  69 25 2a 31 36 2b 31 35  29 3d 63 0d 00 2f 09 c8  |i%*16+15)=c../..|
00000440  92 78 2c 79 0d 00 30 05  ed 0d 00 31 10 74 72 61  |.x,y..0....1.tra|
00000450  63 6b 21 31 32 3d 26 46  46 0d 00 32 05 e1 0d 00  |ck!12=&FF..2....|
00000460  33 04 0d 00 34 09 dd f2  74 77 6f 0d 00 35 0d 6b  |3...4...two..5.k|
00000470  3d 33 36 30 2f 32 35 36  0d 00 36 0d e3 69 25 3d  |=360/256..6..i%=|
00000480  30 b8 32 35 35 0d 00 37  31 78 3d 31 30 30 2a 9b  |0.255..71x=100*.|
00000490  b2 28 69 25 2a 6b 2a 32  29 2d 33 30 2a 9b b2 28  |.(i%*k*2)-30*..(|
000004a0  69 25 2a 6b 2a 31 30 29  2b 33 30 2a 9b b2 28 69  |i%*k*10)+30*..(i|
000004b0  25 2a 6b 2a 33 29 0d 00  38 3e 79 3d 31 30 30 2a  |%*k*3)..8>y=100*|
000004c0  9b b2 28 69 25 2a 6b 29  2d 39 30 2a 9b b2 28 69  |..(i%*k)-90*..(i|
000004d0  25 2a 6b 2a 34 29 2b 31  32 30 2a b5 b2 28 69 25  |%*k*4)+120*..(i%|
000004e0  2a 6b 2a 33 29 2d 31 30  30 2a b5 b2 28 69 25 2a  |*k*3)-100*..(i%*|
000004f0  6b 2a 35 29 0d 00 39 28  72 3d 28 35 31 32 2a 9b  |k*5)..9(r=(512*.|
00000500  b2 28 69 25 2a 6b 29 2b  32 30 30 2a b5 b2 28 69  |.(i%*k)+200*..(i|
00000510  25 2a 6b 2a 33 29 29 80  26 31 46 46 0d 00 3a 19  |%*k*3)).&1FF..:.|
00000520  63 3d 26 42 36 3a 63 32  3d 26 46 46 2b 28 69 25  |c=&B6:c2=&FF+(i%|
00000530  83 34 3d 30 29 0d 00 3b  2e e7 28 69 25 83 38 29  |.4=0)..;..(i%.8)|
00000540  3d 30 20 63 33 3d 26 46  46 3a 63 3d 26 42 37 20  |=0 c3=&FF:c=&B7 |
00000550  8b 20 63 33 3d 26 41 46  2b 28 28 69 25 83 34 29  |. c3=&AF+((i%.4)|
00000560  3c 32 29 0d 00 3c 10 e7  69 25 3e 31 32 37 20 63  |<2)..<..i%>127 c|
00000570  33 3d 30 0d 00 3d 35 74  72 61 63 6b 21 28 69 25  |3=0..=5track!(i%|
00000580  2a 31 36 2b 30 29 3d 28  32 5e 31 30 29 2a 78 3a  |*16+0)=(2^10)*x:|
00000590  74 72 61 63 6b 21 28 69  25 2a 31 36 2b 34 29 3d  |track!(i%*16+4)=|
000005a0  28 32 5e 31 30 29 2a 79  0d 00 3e 15 74 72 61 63  |(2^10)*y..>.trac|
000005b0  6b 21 28 69 25 2a 31 36  2b 38 29 3d 72 0d 00 3f  |k!(i%*16+8)=r..?|
000005c0  51 74 72 61 63 6b 3f 28  69 25 2a 31 36 2b 31 32  |Qtrack?(i%*16+12|
000005d0  29 3d 63 32 3a 74 72 61  63 6b 3f 28 69 25 2a 31  |)=c2:track?(i%*1|
000005e0  36 2b 31 33 29 3d 63 33  3a 74 72 61 63 6b 3f 28  |6+13)=c3:track?(|
000005f0  69 25 2a 31 36 2b 31 34  29 3d 63 3a 74 72 61 63  |i%*16+14)=c:trac|
00000600  6b 3f 28 69 25 2a 31 36  2b 31 35 29 3d 63 0d 00  |k?(i%*16+15)=c..|
00000610  40 09 c8 92 78 2c 79 0d  00 41 05 ed 0d 00 42 10  |@...x,y..A....B.|
00000620  74 72 61 63 6b 21 31 32  3d 26 46 46 0d 00 43 05  |track!12=&FF..C.|
00000630  e1 0d 00 44 05 20 0d 00  45 04 0d 00 46 04 0d 00  |...D. ..E...F...|
00000640  47 05 20 0d 00 48 09 dd  f2 61 73 73 0d 00 49 0f  |G. ..H...ass..I.|
00000650  de 63 6f 64 65 25 36 34  30 30 30 0d 00 4a 12 de  |.code%64000..J..|
00000660  64 69 74 61 62 6c 65 20  34 2a 36 34 30 0d 00 4b  |ditable 4*640..K|
00000670  04 0d 00 4c 0d e3 69 25  3d 31 b8 36 34 30 0d 00  |...L..i%=1.640..|
00000680  4d 1d 64 69 74 61 62 6c  65 21 28 34 2a 69 25 29  |M.ditable!(4*i%)|
00000690  3d 28 31 3c 3c 31 36 29  2f 69 25 0d 00 4e 05 ed  |=(1<<16)/i%..N..|
000006a0  0d 00 4f 04 0d 00 50 04  0d 00 51 04 0d 00 52 17  |..O...P...Q...R.|
000006b0  61 78 3d 30 3a 61 79 3d  31 3a 62 78 3d 32 3a 62  |ax=0:ay=1:bx=2:b|
000006c0  79 3d 33 0d 00 53 17 63  78 3d 34 3a 63 79 3d 35  |y=3..S.cx=4:cy=5|
000006d0  3a 64 78 3d 36 3a 64 79  3d 37 0d 00 54 0d 63 6f  |:dx=6:dy=7..T.co|
000006e0  6c 3d 38 3a 74 3d 39 0d  00 55 12 61 3d 31 30 3a  |l=8:t=9..U.a=10:|
000006f0  62 3d 31 31 3a 63 3d 31  32 0d 00 56 14 66 3d 38  |b=11:c=12..V.f=8|
00000700  3a 67 3d 39 3a 74 3d 39  3a 6e 3d 31 30 0d 00 57  |:g=9:t=9:n=10..W|
00000710  0d 71 3d 31 31 3a 73 3d  31 32 0d 00 58 1a 78 6c  |.q=11:s=12..X.xl|
00000720  3d 30 3a 78 72 3d 31 3a  6c 3d 32 3a 72 3d 33 3a  |=0:xr=1:l=2:r=3:|
00000730  63 74 3d 34 0d 00 59 17  63 31 3d 35 3a 63 32 3d  |ct=4..Y.c1=5:c2=|
00000740  36 3a 63 33 3d 37 3a 63  34 3d 38 0d 00 5a 14 6f  |6:c3=7:c4=8..Z.o|
00000750  3d 31 30 3a 6c 61 3d 31  31 3a 72 61 3d 31 32 0d  |=10:la=11:ra=12.|
00000760  00 5b 17 73 70 3d 31 33  3a 6c 69 6e 6b 3d 31 34  |.[.sp=13:link=14|
00000770  3a 70 63 3d 31 35 0d 00  5c 04 0d 00 5d 0d e3 69  |:pc=15..\...]..i|
00000780  25 3d 30 b8 32 88 32 0d  00 5e 0c 50 25 3d 63 6f  |%=0.2.2..^.P%=co|
00000790  64 65 25 0d 00 5f 0a 5b  4f 50 54 69 25 0d 00 60  |de%.._.[OPTi%..`|
000007a0  1c 2e 74 75 6e 6e 65 6c  20 53 54 4d 46 44 20 72  |..tunnel STMFD r|
000007b0  31 33 21 2c 7b 72 31 34  7d 0d 00 61 0f 2e 74 75  |13!,{r14}..a..tu|
000007c0  6e 6e 65 6c 6c 6f 6f 70  0d 00 62 16 53 57 49 20  |nnelloop..b.SWI |
000007d0  26 31 30 30 2b 31 32 20  20 20 3b 63 6c 73 0d 00  |&100+12   ;cls..|
000007e0  63 10 41 44 52 20 72 39  2c 70 65 72 73 70 0d 00  |c.ADR r9,persp..|
000007f0  64 14 4c 44 52 20 72 31  30 2c 74 72 61 63 6b 70  |d.LDR r10,trackp|
00000800  74 72 0d 00 65 13 41 44  52 20 72 31 31 2c 70 6f  |tr..e.ADR r11,po|
00000810  69 6e 74 73 32 0d 00 66  13 41 44 52 20 72 31 32  |ints2..f.ADR r12|
00000820  2c 63 6f 6c 6f 75 72 73  0d 00 67 04 0d 00 68 0e  |,colours..g...h.|
00000830  4c 44 52 20 72 38 2c 70  6f 73 0d 00 69 0f 4d 4f  |LDR r8,pos..i.MO|
00000840  56 20 72 37 2c 23 6e 75  6d 0d 00 6a 05 20 0d 00  |V r7,#num..j. ..|
00000850  6b 18 41 44 44 20 72 31  34 2c 72 31 30 2c 72 38  |k.ADD r14,r10,r8|
00000860  2c 4c 53 4c 23 34 0d 00  6c 39 4c 44 4d 49 41 20  |,LSL#4..l9LDMIA |
00000870  72 31 34 2c 7b 72 30 2c  72 31 2c 72 32 2c 72 33  |r14,{r0,r1,r2,r3|
00000880  7d 20 20 20 3b 73 74 61  72 74 78 2c 73 74 61 72  |}   ;startx,star|
00000890  74 79 2c 73 74 61 72 74  72 2c 73 74 63 6f 6c 0d  |ty,startr,stcol.|
000008a0  00 6d 13 53 54 4d 49 41  20 72 31 32 21 2c 7b 72  |.m.STMIA r12!,{r|
000008b0  33 7d 0d 00 6e 10 41 44  44 20 72 38 2c 72 38 2c  |3}..n.ADD r8,r8,|
000008c0  23 31 0d 00 6f 1d 2e 6c  6f 6f 70 31 20 53 54 4d  |#1..o..loop1 STM|
000008d0  46 44 20 72 31 33 21 2c  7b 72 30 2d 72 32 7d 0d  |FD r13!,{r0-r2}.|
000008e0  00 70 05 20 0d 00 71 37  80 20 72 38 2c 72 38 2c  |.p. ..q7. r8,r8,|
000008f0  23 26 46 46 3a 41 44 44  20 72 31 34 2c 72 31 30  |#&FF:ADD r14,r10|
00000900  2c 72 38 2c 4c 53 4c 23  34 3a 4c 44 4d 49 41 20  |,r8,LSL#4:LDMIA |
00000910  72 31 34 2c 7b 72 33 2d  72 36 7d 0d 00 72 4c 53  |r14,{r3-r6}..rLS|
00000920  55 42 20 72 30 2c 72 33  2c 72 30 3a 53 55 42 20  |UB r0,r3,r0:SUB |
00000930  72 31 2c 72 34 2c 72 31  3a 53 55 42 20 72 32 2c  |r1,r4,r1:SUB r2,|
00000940  72 35 2c 72 32 3a 4d 4f  56 20 72 32 2c 72 32 2c  |r5,r2:MOV r2,r2,|
00000950  4c 53 4c 23 32 33 3a 4d  4f 56 20 72 32 2c 72 32  |LSL#23:MOV r2,r2|
00000960  2c 4c 53 52 23 32 33 0d  00 73 13 53 54 4d 49 41  |,LSR#23..s.STMIA|
00000970  20 72 31 32 21 2c 7b 72  36 7d 0d 00 74 05 20 0d  | r12!,{r6}..t. .|
00000980  00 75 28 4c 44 52 20 72  31 34 2c 73 69 6e 70 74  |.u(LDR r14,sinpt|
00000990  72 3a 4c 44 52 20 72 33  2c 5b 72 31 34 2c 72 32  |r:LDR r3,[r14,r2|
000009a0  2c 4c 53 4c 23 32 5d 0d  00 76 28 4c 44 52 20 72  |,LSL#2]..v(LDR r|
000009b0  31 34 2c 63 6f 73 70 74  72 3a 4c 44 52 20 72 34  |14,cosptr:LDR r4|
000009c0  2c 5b 72 31 34 2c 72 32  2c 4c 53 4c 23 32 5d 0d  |,[r14,r2,LSL#2].|
000009d0  00 77 5d 4d 4f 56 20 72  33 2c 72 33 2c 41 53 4c  |.w]MOV r3,r3,ASL|
000009e0  23 34 3a 4d 4f 56 20 72  34 2c 72 34 2c 41 53 4c  |#4:MOV r4,r4,ASL|
000009f0  23 34 20 20 20 3b 4d 4f  56 20 72 32 2c 23 77 3a  |#4   ;MOV r2,#w:|
00000a00  3b 4d 55 4c 20 72 33 2c  72 32 2c 72 33 3a 3b 4d  |;MUL r3,r2,r3:;M|
00000a10  55 4c 20 72 34 2c 72 32  2c 72 34 20 3b 72 33 3d  |UL r4,r2,r4 ;r3=|
00000a20  77 2a 73 72 20 72 34 3d  77 2a 63 72 0d 00 78 04  |w*sr r4=w*cr..x.|
00000a30  0d 00 79 04 0d 00 7a 12  4c 44 4d 49 41 20 72 39  |..y...z.LDMIA r9|
00000a40  21 2c 7b 72 32 7d 0d 00  7b 3b 53 55 42 20 72 35  |!,{r2}..{;SUB r5|
00000a50  2c 72 34 2c 72 33 3a 41  44 44 20 72 35 2c 72 35  |,r4,r3:ADD r5,r5|
00000a60  2c 72 30 3a 4d 55 4c 20  72 35 2c 72 32 2c 72 35  |,r0:MUL r5,r2,r5|
00000a70  3a 4d 4f 56 20 72 35 2c  72 35 2c 41 53 52 23 31  |:MOV r5,r5,ASR#1|
00000a80  36 0d 00 7c 3b 41 44 44  20 72 36 2c 72 33 2c 72  |6..|;ADD r6,r3,r|
00000a90  34 3a 41 44 44 20 72 36  2c 72 36 2c 72 31 3a 4d  |4:ADD r6,r6,r1:M|
00000aa0  55 4c 20 72 36 2c 72 32  2c 72 36 3a 4d 4f 56 20  |UL r6,r2,r6:MOV |
00000ab0  72 36 2c 72 36 2c 41 53  52 23 31 36 0d 00 7d 16  |r6,r6,ASR#16..}.|
00000ac0  53 54 4d 49 41 20 72 31  31 21 2c 7b 72 35 2c 72  |STMIA r11!,{r5,r|
00000ad0  36 7d 0d 00 7e 3b 53 55  42 20 72 35 2c 72 30 2c  |6}..~;SUB r5,r0,|
00000ae0  72 34 3a 53 55 42 20 72  35 2c 72 35 2c 72 33 3a  |r4:SUB r5,r5,r3:|
00000af0  4d 55 4c 20 72 35 2c 72  32 2c 72 35 3a 4d 4f 56  |MUL r5,r2,r5:MOV|
00000b00  20 72 35 2c 72 35 2c 41  53 52 23 31 36 0d 00 7f  | r5,r5,ASR#16...|
00000b10  3b 53 55 42 20 72 36 2c  72 34 2c 72 33 3a 41 44  |;SUB r6,r4,r3:AD|
00000b20  44 20 72 36 2c 72 36 2c  72 31 3a 4d 55 4c 20 72  |D r6,r6,r1:MUL r|
00000b30  36 2c 72 32 2c 72 36 3a  4d 4f 56 20 72 36 2c 72  |6,r2,r6:MOV r6,r|
00000b40  36 2c 41 53 52 23 31 36  0d 00 80 16 53 54 4d 49  |6,ASR#16....STMI|
00000b50  41 20 72 31 31 21 2c 7b  72 35 2c 72 36 7d 0d 00  |A r11!,{r5,r6}..|
00000b60  81 3b 53 55 42 20 72 35  2c 72 33 2c 72 34 3a 41  |.;SUB r5,r3,r4:A|
00000b70  44 44 20 72 35 2c 72 35  2c 72 30 3a 4d 55 4c 20  |DD r5,r5,r0:MUL |
00000b80  72 35 2c 72 32 2c 72 35  3a 4d 4f 56 20 72 35 2c  |r5,r2,r5:MOV r5,|
00000b90  72 35 2c 41 53 52 23 31  36 0d 00 82 3b 53 55 42  |r5,ASR#16...;SUB|
00000ba0  20 72 36 2c 72 31 2c 72  33 3a 53 55 42 20 72 36  | r6,r1,r3:SUB r6|
00000bb0  2c 72 36 2c 72 34 3a 4d  55 4c 20 72 36 2c 72 32  |,r6,r4:MUL r6,r2|
00000bc0  2c 72 36 3a 4d 4f 56 20  72 36 2c 72 36 2c 41 53  |,r6:MOV r6,r6,AS|
00000bd0  52 23 31 36 0d 00 83 16  53 54 4d 49 41 20 72 31  |R#16....STMIA r1|
00000be0  31 21 2c 7b 72 35 2c 72  36 7d 0d 00 84 3b 41 44  |1!,{r5,r6}...;AD|
00000bf0  44 20 72 35 2c 72 33 2c  72 34 3a 41 44 44 20 72  |D r5,r3,r4:ADD r|
00000c00  35 2c 72 35 2c 72 30 3a  4d 55 4c 20 72 35 2c 72  |5,r5,r0:MUL r5,r|
00000c10  32 2c 72 35 3a 4d 4f 56  20 72 35 2c 72 35 2c 41  |2,r5:MOV r5,r5,A|
00000c20  53 52 23 31 36 0d 00 85  3b 53 55 42 20 72 36 2c  |SR#16...;SUB r6,|
00000c30  72 33 2c 72 34 3a 41 44  44 20 72 36 2c 72 36 2c  |r3,r4:ADD r6,r6,|
00000c40  72 31 3a 4d 55 4c 20 72  36 2c 72 32 2c 72 36 3a  |r1:MUL r6,r2,r6:|
00000c50  4d 4f 56 20 72 36 2c 72  36 2c 41 53 52 23 31 36  |MOV r6,r6,ASR#16|
00000c60  0d 00 86 16 53 54 4d 49  41 20 72 31 31 21 2c 7b  |....STMIA r11!,{|
00000c70  72 35 2c 72 36 7d 0d 00  87 05 20 0d 00 88 16 4c  |r5,r6}.... ....L|
00000c80  44 4d 46 44 20 72 31 33  21 2c 7b 72 30 2d 72 32  |DMFD r13!,{r0-r2|
00000c90  7d 0d 00 89 10 41 44 44  20 72 38 2c 72 38 2c 23  |}....ADD r8,r8,#|
00000ca0  31 0d 00 8a 1b 53 55 42  53 20 72 37 2c 72 37 2c  |1....SUBS r7,r7,|
00000cb0  23 31 3a 42 4e 45 20 6c  6f 6f 70 31 0d 00 8b 05  |#1:BNE loop1....|
00000cc0  20 0d 00 8c 0a 2e 66 6c  75 73 68 0d 00 8d 22 41  | .....flush..."A|
00000cd0  44 52 20 72 31 31 2c 70  6f 69 6e 74 73 3a 41 44  |DR r11,points:AD|
00000ce0  52 20 72 31 32 2c 63 6f  6c 6f 75 72 73 0d 00 8e  |R r12,colours...|
00000cf0  10 4d 4f 56 20 72 31 30  2c 23 6e 75 6d 0d 00 8f  |.MOV r10,#num...|
00000d00  0d 2e 64 72 61 77 6c 6f  6f 70 0d 00 90 1a 4c 44  |..drawloop....LD|
00000d10  52 20 72 38 2c 5b 72 31  32 2c 72 31 30 2c 4c 53  |R r8,[r12,r10,LS|
00000d20  4c 23 32 5d 0d 00 91 31  43 4d 50 20 72 31 30 2c  |L#2]...1CMP r10,|
00000d30  23 73 68 61 64 64 69 73  74 3a 4c 44 52 47 45 20  |#shaddist:LDRGE |
00000d40  72 36 2c 73 68 61 64 6b  3a 80 47 45 20 72 38 2c  |r6,shadk:.GE r8,|
00000d50  72 38 2c 72 36 0d 00 92  18 41 44 44 20 72 39 2c  |r8,r6....ADD r9,|
00000d60  72 31 31 2c 72 31 30 2c  4c 53 4c 23 35 0d 00 93  |r11,r10,LSL#5...|
00000d70  04 0d 00 94 04 0d 00 95  14 4c 44 4d 49 41 20 72  |.........LDMIA r|
00000d80  39 2c 7b 72 30 2d 72 33  7d 0d 00 96 28 4c 44 52  |9,{r0-r3}...(LDR|
00000d90  20 72 34 2c 5b 72 39 2c  23 38 2d 33 32 5d 3a 4c  | r4,[r9,#8-32]:L|
00000da0  44 52 20 72 35 2c 5b 72  39 2c 23 31 32 2d 33 32  |DR r5,[r9,#12-32|
00000db0  5d 0d 00 97 27 4c 44 52  20 72 36 2c 5b 72 39 2c  |]...'LDR r6,[r9,|
00000dc0  23 30 2d 33 32 5d 3a 4c  44 52 20 72 37 2c 5b 72  |#0-32]:LDR r7,[r|
00000dd0  39 2c 23 34 2d 33 32 5d  0d 00 98 0f 42 4c 20 64  |9,#4-32]....BL d|
00000de0  72 61 77 70 6f 6c 79 0d  00 99 05 20 0d 00 9a 2c  |rawpoly.... ...,|
00000df0  4d 4f 56 20 72 38 2c 72  38 2c 4c 53 52 23 38 3a  |MOV r8,r8,LSR#8:|
00000e00  80 53 20 72 31 34 2c 72  38 2c 23 26 46 46 3a 42  |.S r14,r8,#&FF:B|
00000e10  45 51 20 6e 6f 74 6f 70  0d 00 9b 23 4c 44 52 20  |EQ notop...#LDR |
00000e20  72 30 2c 5b 72 39 2c 23  31 36 5d 3a 4c 44 52 20  |r0,[r9,#16]:LDR |
00000e30  72 31 2c 5b 72 39 2c 23  32 30 5d 0d 00 9c 23 4c  |r1,[r9,#20]...#L|
00000e40  44 52 20 72 32 2c 5b 72  39 2c 23 32 34 5d 3a 4c  |DR r2,[r9,#24]:L|
00000e50  44 52 20 72 33 2c 5b 72  39 2c 23 32 38 5d 0d 00  |DR r3,[r9,#28]..|
00000e60  9d 29 4c 44 52 20 72 34  2c 5b 72 39 2c 23 32 34  |.)LDR r4,[r9,#24|
00000e70  2d 33 32 5d 3a 4c 44 52  20 72 35 2c 5b 72 39 2c  |-32]:LDR r5,[r9,|
00000e80  23 32 38 2d 33 32 5d 0d  00 9e 29 4c 44 52 20 72  |#28-32]...)LDR r|
00000e90  36 2c 5b 72 39 2c 23 31  36 2d 33 32 5d 3a 4c 44  |6,[r9,#16-32]:LD|
00000ea0  52 20 72 37 2c 5b 72 39  2c 23 32 30 2d 33 32 5d  |R r7,[r9,#20-32]|
00000eb0  0d 00 9f 0f 42 4c 20 64  72 61 77 70 6f 6c 79 0d  |....BL drawpoly.|
00000ec0  00 a0 05 20 0d 00 a1 0a  2e 6e 6f 74 6f 70 0d 00  |... .....notop..|
00000ed0  a2 13 4d 4f 56 20 72 38  2c 72 38 2c 4c 53 52 23  |..MOV r8,r8,LSR#|
00000ee0  38 0d 00 a3 14 4c 44 4d  49 41 20 72 39 2c 7b 72  |8....LDMIA r9,{r|
00000ef0  30 2c 72 31 7d 0d 00 a4  27 4c 44 52 20 72 32 2c  |0,r1}...'LDR r2,|
00000f00  5b 72 39 2c 23 30 2d 33  32 5d 3a 4c 44 52 20 72  |[r9,#0-32]:LDR r|
00000f10  33 2c 5b 72 39 2c 23 34  2d 33 32 5d 0d 00 a5 29  |3,[r9,#4-32]...)|
00000f20  4c 44 52 20 72 34 2c 5b  72 39 2c 23 32 34 2d 33  |LDR r4,[r9,#24-3|
00000f30  32 5d 3a 4c 44 52 20 72  35 2c 5b 72 39 2c 23 32  |2]:LDR r5,[r9,#2|
00000f40  38 2d 33 32 5d 0d 00 a6  23 4c 44 52 20 72 36 2c  |8-32]...#LDR r6,|
00000f50  5b 72 39 2c 23 32 34 5d  3a 4c 44 52 20 72 37 2c  |[r9,#24]:LDR r7,|
00000f60  5b 72 39 2c 23 32 38 5d  0d 00 a7 0f 42 4c 20 64  |[r9,#28]....BL d|
00000f70  72 61 77 70 6f 6c 79 0d  00 a8 04 0d 00 a9 13 4d  |rawpoly........M|
00000f80  4f 56 20 72 38 2c 72 38  2c 4c 53 52 23 38 0d 00  |OV r8,r8,LSR#8..|
00000f90  aa 22 4c 44 52 20 72 30  2c 5b 72 39 2c 23 38 5d  |."LDR r0,[r9,#8]|
00000fa0  3a 4c 44 52 20 72 31 2c  5b 72 39 2c 23 31 32 5d  |:LDR r1,[r9,#12]|
00000fb0  0d 00 ab 23 4c 44 52 20  72 32 2c 5b 72 39 2c 23  |...#LDR r2,[r9,#|
00000fc0  31 36 5d 3a 4c 44 52 20  72 33 2c 5b 72 39 2c 23  |16]:LDR r3,[r9,#|
00000fd0  32 30 5d 0d 00 ac 29 4c  44 52 20 72 34 2c 5b 72  |20]...)LDR r4,[r|
00000fe0  39 2c 23 31 36 2d 33 32  5d 3a 4c 44 52 20 72 35  |9,#16-32]:LDR r5|
00000ff0  2c 5b 72 39 2c 23 32 30  2d 33 32 5d 0d 00 ad 28  |,[r9,#20-32]...(|
00001000  4c 44 52 20 72 36 2c 5b  72 39 2c 23 38 2d 33 32  |LDR r6,[r9,#8-32|
00001010  5d 3a 4c 44 52 20 72 37  2c 5b 72 39 2c 23 31 32  |]:LDR r7,[r9,#12|
00001020  2d 33 32 5d 0d 00 ae 0f  42 4c 20 64 72 61 77 70  |-32]....BL drawp|
00001030  6f 6c 79 0d 00 af 04 0d  00 b0 04 0d 00 b1 20 53  |oly........... S|
00001040  55 42 53 20 72 31 30 2c  72 31 30 2c 23 31 3a 42  |UBS r10,r10,#1:B|
00001050  4e 45 20 64 72 61 77 6c  6f 6f 70 0d 00 b2 05 20  |NE drawloop.... |
00001060  0d 00 b3 0e 4c 44 52 20  72 30 2c 76 65 6c 0d 00  |....LDR r0,vel..|
00001070  b4 0e 4c 44 52 20 72 31  2c 70 6f 73 0d 00 b5 10  |..LDR r1,pos....|
00001080  41 44 44 20 72 31 2c 72  31 2c 72 30 0d 00 b6 10  |ADD r1,r1,r0....|
00001090  80 20 72 31 2c 72 31 2c  23 26 46 46 0d 00 b7 0e  |. r1,r1,#&FF....|
000010a0  53 54 52 20 72 31 2c 70  6f 73 0d 00 b8 14 4d 4f  |STR r1,pos....MO|
000010b0  56 20 72 30 2c 23 31 39  3a 53 57 49 20 36 0d 00  |V r0,#19:SWI 6..|
000010c0  b9 24 4d 4f 56 20 72 30  2c 23 31 31 32 3a 4c 44  |.$MOV r0,#112:LD|
000010d0  52 20 72 31 2c 73 63 72  62 61 6e 6b 3a 53 57 49  |R r1,scrbank:SWI|
000010e0  20 36 0d 00 ba 2e 4c 44  52 20 72 31 2c 73 63 72  | 6....LDR r1,scr|
000010f0  62 61 6e 6b 3a 52 53 42  20 72 31 2c 72 31 2c 23  |bank:RSB r1,r1,#|
00001100  33 3a 53 54 52 20 72 31  2c 73 63 72 62 61 6e 6b  |3:STR r1,scrbank|
00001110  0d 00 bb 15 4d 4f 56 20  72 30 2c 23 31 31 33 3a  |....MOV r0,#113:|
00001120  53 57 49 20 36 0d 00 bc  33 4c 44 52 20 72 30 2c  |SWI 6...3LDR r0,|
00001130  76 64 75 3a 4c 44 52 20  72 31 2c 76 64 75 2b 34  |vdu:LDR r1,vdu+4|
00001140  3a 53 54 52 20 72 30 2c  76 64 75 2b 34 3a 53 54  |:STR r0,vdu+4:ST|
00001150  52 20 72 31 2c 76 64 75  0d 00 bd 04 0d 00 be 12  |R r1,vdu........|
00001160  53 57 49 20 22 4f 53 5f  4d 6f 75 73 65 22 0d 00  |SWI "OS_Mouse"..|
00001170  bf 0f 4c 44 52 20 72 34  2c 6f 6c 64 6d 0d 00 c0  |..LDR r4,oldm...|
00001180  1a 43 4d 50 20 72 32 2c  72 34 3a 42 45 51 20 6e  |.CMP r2,r4:BEQ n|
00001190  6f 63 68 61 6e 67 65 0d  00 c1 0f 53 54 52 20 72  |ochange....STR r|
000011a0  32 2c 6f 6c 64 6d 0d 00  c2 0e 4c 44 52 20 72 33  |2,oldm....LDR r3|
000011b0  2c 76 65 6c 0d 00 c3 1c  43 4d 50 20 72 32 2c 23  |,vel....CMP r2,#|
000011c0  31 3a 53 55 42 45 51 20  72 33 2c 72 33 2c 23 31  |1:SUBEQ r3,r3,#1|
000011d0  0d 00 c4 1c 43 4d 50 20  72 32 2c 23 34 3a 41 44  |....CMP r2,#4:AD|
000011e0  44 45 51 20 72 33 2c 72  33 2c 23 31 0d 00 c5 0e  |DEQ r3,r3,#1....|
000011f0  53 54 52 20 72 33 2c 76  65 6c 0d 00 c6 0d 2e 6e  |STR r3,vel.....n|
00001200  6f 63 68 61 6e 67 65 0d  00 c7 1d 53 57 49 20 22  |ochange....SWI "|
00001210  58 4f 53 5f 52 65 61 64  45 73 63 61 70 65 53 74  |XOS_ReadEscapeSt|
00001220  61 74 65 22 0d 00 c8 12  42 43 43 20 74 75 6e 6e  |ate"....BCC tunn|
00001230  65 6c 6c 6f 6f 70 0d 00  c9 14 4c 44 4d 46 44 20  |elloop....LDMFD |
00001240  72 31 33 21 2c 7b 72 31  35 7d 0d 00 ca 05 20 0d  |r13!,{r15}.... .|
00001250  00 cb 1c 2e 63 6f 6c 6f  75 72 73 20 a4 67 61 70  |....colours .gap|
00001260  28 28 6e 75 6d 2b 31 29  2a 34 29 0d 00 cc 1a 2e  |((num+1)*4).....|
00001270  70 65 72 73 70 20 a4 67  61 70 28 28 6e 75 6d 2b  |persp .gap((num+|
00001280  31 29 2a 34 29 0d 00 cd  4f 2e 70 6f 69 6e 74 73  |1)*4)...O.points|
00001290  20 45 51 55 44 31 30 30  3a 45 51 55 44 31 30 30  | EQUD100:EQUD100|
000012a0  3a 45 51 55 44 2d 31 30  30 3a 45 51 55 44 31 30  |:EQUD-100:EQUD10|
000012b0  30 3a 45 51 55 44 2d 31  30 30 3a 45 51 55 44 2d  |0:EQUD-100:EQUD-|
000012c0  31 30 30 3a 45 51 55 44  31 30 30 3a 45 51 55 44  |100:EQUD100:EQUD|
000012d0  2d 31 30 30 0d 00 ce 1a  2e 70 6f 69 6e 74 73 32  |-100.....points2|
000012e0  20 a4 67 61 70 28 34 2a  6e 75 6d 2a 38 29 0d 00  | .gap(4*num*8)..|
000012f0  cf 05 20 0d 00 d0 13 2e  73 63 72 62 61 6e 6b 20  |.. .....scrbank |
00001300  45 51 55 44 20 32 0d 00  d1 0f 2e 70 6f 73 20 45  |EQUD 2.....pos E|
00001310  51 55 44 20 30 0d 00 d2  0f 2e 76 65 6c 20 45 51  |QUD 0.....vel EQ|
00001320  55 44 20 30 0d 00 d3 10  2e 6f 6c 64 6d 20 45 51  |UD 0.....oldm EQ|
00001330  55 44 20 30 0d 00 d4 31  2e 73 68 61 64 6b 20 45  |UD 0...1.shadk E|
00001340  51 55 44 20 25 31 31 31  31 31 31 30 31 31 31 31  |QUD %11111101111|
00001350  31 31 31 30 31 31 31 31  31 31 31 30 31 31 31 31  |1110111111101111|
00001360  31 31 31 30 31 0d 00 d5  05 20 0d 00 d6 04 0d 00  |11101.... ......|
00001370  d7 04 0d 00 d8 05 20 0d  00 d9 0e 2e 61 78 64 20  |...... .....axd |
00001380  45 51 55 44 30 0d 00 da  0e 2e 62 78 64 20 45 51  |EQUD0.....bxd EQ|
00001390  55 44 30 0d 00 db 08 2e  63 78 64 0d 00 dc 0e 2e  |UD0.....cxd.....|
000013a0  64 78 64 20 45 51 55 44  30 0d 00 dd 0d 2e 61 62  |dxd EQUD0.....ab|
000013b0  20 45 51 55 44 30 0d 00  de 0d 2e 62 63 20 45 51  | EQUD0.....bc EQ|
000013c0  55 44 30 0d 00 df 07 2e  64 63 0d 00 e0 0d 2e 63  |UD0.....dc.....c|
000013d0  64 20 45 51 55 44 30 0d  00 e1 0d 2e 61 64 20 45  |d EQUD0.....ad E|
000013e0  51 55 44 30 0d 00 e2 0d  2e 61 61 20 45 51 55 44  |QUD0.....aa EQUD|
000013f0  30 0d 00 e3 07 2e 64 64  0d 00 e4 0d 2e 62 62 20  |0.....dd.....bb |
00001400  45 51 55 44 30 0d 00 e5  0d 2e 63 63 20 45 51 55  |EQUD0.....cc EQU|
00001410  44 30 0d 00 e6 0d 2e 6b  6c 20 45 51 55 44 30 0d  |D0.....kl EQUD0.|
00001420  00 e7 0f 2e 79 70 6f 73  20 45 51 55 44 30 0d 00  |....ypos EQUD0..|
00001430  e8 18 2e 64 69 74 61 62  64 20 45 51 55 44 20 64  |...ditabd EQUD d|
00001440  69 74 61 62 6c 65 0d 00  e9 05 20 0d 00 ea 39 2e  |itable.... ...9.|
00001450  64 72 61 77 70 6f 6c 79  20 20 20 20 20 20 20 20  |drawpoly        |
00001460  20 20 20 20 20 20 20 20  3b 62 61 73 65 64 20 6f  |        ;based o|
00001470  6e 20 61 20 72 6f 75 74  69 6e 65 20 62 79 20 4a  |n a routine by J|
00001480  61 6e 20 ef 0d 00 eb 1b  53 54 4d 46 44 20 72 31  |an .....STMFD r1|
00001490  33 21 2c 7b 72 38 2d 72  31 32 2c 72 31 34 7d 0d  |3!,{r8-r12,r14}.|
000014a0  00 ec 04 0d 00 ed 12 80  20 63 6f 6c 2c 63 6f 6c  |........ col,col|
000014b0  2c 23 26 66 66 0d 00 ee  19 41 44 44 20 63 6f 6c  |,#&ff....ADD col|
000014c0  2c 63 6f 6c 2c 63 6f 6c  2c 4c 53 4c 23 38 0d 00  |,col,col,LSL#8..|
000014d0  ef 1a 41 44 44 20 63 6f  6c 2c 63 6f 6c 2c 63 6f  |..ADD col,col,co|
000014e0  6c 2c 4c 53 4c 23 31 36  0d 00 f0 0e 53 54 52 20  |l,LSL#16....STR |
000014f0  63 6f 6c 2c 6b 6c 0d 00  f1 04 0d 00 f2 16 41 44  |col,kl........AD|
00001500  44 20 61 78 2c 61 78 2c  23 6f 72 69 67 69 6e 58  |D ax,ax,#originX|
00001510  0d 00 f3 16 41 44 44 20  62 78 2c 62 78 2c 23 6f  |....ADD bx,bx,#o|
00001520  72 69 67 69 6e 58 0d 00  f4 16 41 44 44 20 63 78  |riginX....ADD cx|
00001530  2c 63 78 2c 23 6f 72 69  67 69 6e 58 0d 00 f5 16  |,cx,#originX....|
00001540  41 44 44 20 64 78 2c 64  78 2c 23 6f 72 69 67 69  |ADD dx,dx,#origi|
00001550  6e 58 0d 00 f6 04 0d 00  f7 24 4d 4f 56 20 74 2c  |nX.......$MOV t,|
00001560  61 79 20 20 3b 66 69 6e  64 20 73 6d 61 6c 6c 65  |ay  ;find smalle|
00001570  73 74 20 28 74 6f 70 29  20 79 0d 00 f8 0c 43 4d  |st (top) y....CM|
00001580  50 20 74 2c 62 79 0d 00  f9 0e 4d 4f 56 47 54 20  |P t,by....MOVGT |
00001590  74 2c 62 79 0d 00 fa 0c  43 4d 50 20 74 2c 63 79  |t,by....CMP t,cy|
000015a0  0d 00 fb 0e 4d 4f 56 47  54 20 74 2c 63 79 0d 00  |....MOVGT t,cy..|
000015b0  fc 0c 43 4d 50 20 74 2c  64 79 0d 00 fd 0e 4d 4f  |..CMP t,dy....MO|
000015c0  56 47 54 20 74 2c 64 79  0d 00 fe 04 0d 00 ff 0a  |VGT t,dy........|
000015d0  2e 6f 72 64 65 72 0d 01  00 0c 43 4d 50 20 74 2c  |.order....CMP t,|
000015e0  61 79 0d 01 01 0a 42 45  51 20 6f 6b 0d 01 02 08  |ay....BEQ ok....|
000015f0  a4 72 6f 74 0d 01 03 0b  42 20 6f 72 64 65 72 0d  |.rot....B order.|
00001600  01 04 07 2e 6f 6b 0d 01  05 04 0d 01 06 15 41 44  |....ok........AD|
00001610  44 20 74 2c 61 79 2c 23  6f 72 69 67 69 6e 59 0d  |D t,ay,#originY.|
00001620  01 07 0e 53 54 52 20 74  2c 79 70 6f 73 0d 01 08  |...STR t,ypos...|
00001630  04 0d 01 09 0d 43 4d 50  20 62 79 2c 64 79 0d 01  |.....CMP by,dy..|
00001640  0a 0e 4d 4f 56 47 54 20  74 2c 62 78 0d 01 0b 0e  |..MOVGT t,bx....|
00001650  4d 4f 56 47 54 20 73 2c  62 79 0d 01 0c 0f 4d 4f  |MOVGT s,by....MO|
00001660  56 47 54 20 62 78 2c 64  78 0d 01 0d 0f 4d 4f 56  |VGT bx,dx....MOV|
00001670  47 54 20 62 79 2c 64 79  0d 01 0e 0e 4d 4f 56 47  |GT by,dy....MOVG|
00001680  54 20 64 78 2c 74 0d 01  0f 0e 4d 4f 56 47 54 20  |T dx,t....MOVGT |
00001690  64 79 2c 73 0d 01 10 04  0d 01 11 0d 43 4d 50 20  |dy,s........CMP |
000016a0  63 79 2c 64 79 0d 01 12  0f 42 47 54 20 64 69 61  |cy,dy....BGT dia|
000016b0  6d 6f 6e 64 0d 01 13 04  0d 01 14 24 43 4d 50 20  |mond.......$CMP |
000016c0  63 79 2c 62 79 20 20 20  20 20 20 20 20 20 20 20  |cy,by           |
000016d0  20 20 20 20 3b 44 55 42  49 4f 55 53 0d 01 15 25  |    ;DUBIOUS...%|
000016e0  4d 4f 56 4c 54 20 63 79  2c 62 79 20 20 20 20 20  |MOVLT cy,by     |
000016f0  20 20 20 20 20 20 20 20  3b 53 4f 4c 55 54 49 4f  |        ;SOLUTIO|
00001700  4e 0d 01 16 04 0d 01 17  0e 53 54 52 20 61 78 2c  |N........STR ax,|
00001710  61 78 64 0d 01 18 0e 53  54 52 20 62 78 2c 62 78  |axd....STR bx,bx|
00001720  64 0d 01 19 0e 53 54 52  20 63 78 2c 63 78 64 0d  |d....STR cx,cxd.|
00001730  01 1a 04 0d 01 1b 10 4c  44 52 20 71 2c 64 69 74  |.......LDR q,dit|
00001740  61 62 64 0d 01 1c 0f 53  55 42 20 74 2c 62 78 2c  |abd....SUB t,bx,|
00001750  61 78 0d 01 1d 0f 53 55  42 20 6e 2c 62 79 2c 61  |ax....SUB n,by,a|
00001760  79 0d 01 1e 0c 53 54 52  20 6e 2c 61 61 0d 01 1f  |y....STR n,aa...|
00001770  15 4c 44 52 20 6e 2c 5b  71 2c 6e 2c 41 53 4c 23  |.LDR n,[q,n,ASL#|
00001780  32 5d 0d 01 20 0d 4d 55  4c 20 6e 2c 74 2c 6e 0d  |2].. .MUL n,t,n.|
00001790  01 21 0c 53 54 52 20 6e  2c 61 62 0d 01 22 0f 53  |.!.STR n,ab..".S|
000017a0  55 42 20 74 2c 64 78 2c  61 78 0d 01 23 0f 53 55  |UB t,dx,ax..#.SU|
000017b0  42 20 6e 2c 64 79 2c 61  79 0d 01 24 15 4c 44 52  |B n,dy,ay..$.LDR|
000017c0  20 6e 2c 5b 71 2c 6e 2c  41 53 4c 23 32 5d 0d 01  | n,[q,n,ASL#2]..|
000017d0  25 0d 4d 55 4c 20 6e 2c  74 2c 6e 0d 01 26 0c 53  |%.MUL n,t,n..&.S|
000017e0  54 52 20 6e 2c 61 64 0d  01 27 0f 53 55 42 20 74  |TR n,ad..'.SUB t|
000017f0  2c 63 78 2c 62 78 0d 01  28 0f 53 55 42 20 6e 2c  |,cx,bx..(.SUB n,|
00001800  63 79 2c 62 79 0d 01 29  0c 53 54 52 20 6e 2c 62  |cy,by..).STR n,b|
00001810  62 0d 01 2a 15 4c 44 52  20 6e 2c 5b 71 2c 6e 2c  |b..*.LDR n,[q,n,|
00001820  41 53 4c 23 32 5d 0d 01  2b 0d 4d 55 4c 20 6e 2c  |ASL#2]..+.MUL n,|
00001830  74 2c 6e 0d 01 2c 0c 53  54 52 20 6e 2c 62 63 0d  |t,n..,.STR n,bc.|
00001840  01 2d 0f 53 55 42 20 74  2c 64 78 2c 63 78 0d 01  |.-.SUB t,dx,cx..|
00001850  2e 0f 53 55 42 20 6e 2c  64 79 2c 63 79 0d 01 2f  |..SUB n,dy,cy../|
00001860  0c 53 54 52 20 6e 2c 63  63 0d 01 30 15 4c 44 52  |.STR n,cc..0.LDR|
00001870  20 6e 2c 5b 71 2c 6e 2c  41 53 4c 23 32 5d 0d 01  | n,[q,n,ASL#2]..|
00001880  31 0d 4d 55 4c 20 6e 2c  74 2c 6e 0d 01 32 0c 53  |1.MUL n,t,n..2.S|
00001890  54 52 20 6e 2c 63 64 0d  01 33 04 0d 01 34 0d 4c  |TR n,cd..3...4.L|
000018a0  44 52 20 6f 2c 76 64 75  0d 01 35 0e 4c 44 52 20  |DR o,vdu..5.LDR |
000018b0  63 6f 6c 2c 6b 6c 0d 01  36 15 41 44 44 20 74 2c  |col,kl..6.ADD t,|
000018c0  61 79 2c 23 6f 72 69 67  69 6e 59 0d 01 37 13 41  |ay,#originY..7.A|
000018d0  44 44 20 74 2c 74 2c 74  2c 41 53 4c 23 32 0d 01  |DD t,t,t,ASL#2..|
000018e0  38 13 41 44 44 20 6f 2c  6f 2c 74 2c 41 53 4c 23  |8.ADD o,o,t,ASL#|
000018f0  36 0d 01 39 04 0d 01 3a  0d 4d 4f 56 20 63 31 2c  |6..9...:.MOV c1,|
00001900  63 34 0d 01 3b 0d 4d 4f  56 20 63 32 2c 63 34 0d  |c4..;.MOV c2,c4.|
00001910  01 3c 0d 4d 4f 56 20 63  33 2c 63 34 0d 01 3d 04  |.<.MOV c3,c4..=.|
00001920  0d 01 3e 0d 4c 44 52 20  63 74 2c 61 61 0d 01 3f  |..>.LDR ct,aa..?|
00001930  0d 43 4d 50 20 63 74 2c  23 30 0d 01 40 0d 4c 44  |.CMP ct,#0..@.LD|
00001940  52 20 74 2c 61 78 64 0d  01 41 12 4d 4f 56 20 6c  |R t,axd..A.MOV l|
00001950  2c 74 2c 41 53 4c 23 31  36 0d 01 42 12 4d 4f 56  |,t,ASL#16..B.MOV|
00001960  20 72 2c 74 2c 41 53 4c  23 31 36 0d 01 43 0d 4c  | r,t,ASL#16..C.L|
00001970  44 52 20 6c 61 2c 61 64  0d 01 44 12 41 44 44 20  |DR la,ad..D.ADD |
00001980  6c 2c 6c 2c 23 31 3c 3c  31 35 0d 01 45 0d 4c 44  |l,l,#1<<15..E.LD|
00001990  52 20 72 61 2c 61 62 0d  01 46 12 41 44 44 20 72  |R ra,ab..F.ADD r|
000019a0  2c 72 2c 23 31 3c 3c 31  35 0d 01 47 0e 42 4c 4e  |,r,#1<<15..G.BLN|
000019b0  45 20 70 69 65 63 65 0d  01 48 04 0d 01 49 0d 4c  |E piece..H...I.L|
000019c0  44 52 20 63 74 2c 62 62  0d 01 4a 0d 43 4d 50 20  |DR ct,bb..J.CMP |
000019d0  63 74 2c 23 30 0d 01 4b  0d 4c 44 52 20 74 2c 62  |ct,#0..K.LDR t,b|
000019e0  78 64 0d 01 4c 12 4d 4f  56 20 72 2c 74 2c 41 53  |xd..L.MOV r,t,AS|
000019f0  4c 23 31 36 0d 01 4d 0d  4c 44 52 20 72 61 2c 62  |L#16..M.LDR ra,b|
00001a00  63 0d 01 4e 12 41 44 44  20 72 2c 72 2c 23 31 3c  |c..N.ADD r,r,#1<|
00001a10  3c 31 35 0d 01 4f 0e 42  4c 4e 45 20 70 69 65 63  |<15..O.BLNE piec|
00001a20  65 0d 01 50 04 0d 01 51  0d 4c 44 52 20 63 74 2c  |e..P...Q.LDR ct,|
00001a30  63 63 0d 01 52 0d 43 4d  50 20 63 74 2c 23 30 0d  |cc..R.CMP ct,#0.|
00001a40  01 53 0d 4c 44 52 20 74  2c 63 78 64 0d 01 54 12  |.S.LDR t,cxd..T.|
00001a50  4d 4f 56 20 72 2c 74 2c  41 53 4c 23 31 36 0d 01  |MOV r,t,ASL#16..|
00001a60  55 0d 4c 44 52 20 72 61  2c 63 64 0d 01 56 12 41  |U.LDR ra,cd..V.A|
00001a70  44 44 20 72 2c 72 2c 23  31 3c 3c 31 35 0d 01 57  |DD r,r,#1<<15..W|
00001a80  0e 42 4c 4e 45 20 70 69  65 63 65 0d 01 58 1b 4c  |.BLNE piece..X.L|
00001a90  44 4d 46 44 20 72 31 33  21 2c 7b 72 38 2d 72 31  |DMFD r13!,{r8-r1|
00001aa0  32 2c 72 31 35 7d 0d 01  59 04 0d 01 5a 04 0d 01  |2,r15}..Y...Z...|
00001ab0  5b 0c 2e 64 69 61 6d 6f  6e 64 0d 01 5c 0e 53 54  |[..diamond..\.ST|
00001ac0  52 20 61 78 2c 61 78 64  0d 01 5d 0e 53 54 52 20  |R ax,axd..].STR |
00001ad0  62 78 2c 62 78 64 0d 01  5e 0e 53 54 52 20 64 78  |bx,bxd..^.STR dx|
00001ae0  2c 64 78 64 0d 01 5f 04  0d 01 60 10 4c 44 52 20  |,dxd.._...`.LDR |
00001af0  71 2c 64 69 74 61 62 64  0d 01 61 0f 53 55 42 20  |q,ditabd..a.SUB |
00001b00  74 2c 62 78 2c 61 78 0d  01 62 0f 53 55 42 20 6e  |t,bx,ax..b.SUB n|
00001b10  2c 62 79 2c 61 79 0d 01  63 0c 53 54 52 20 6e 2c  |,by,ay..c.STR n,|
00001b20  61 61 0d 01 64 15 4c 44  52 20 6e 2c 5b 71 2c 6e  |aa..d.LDR n,[q,n|
00001b30  2c 41 53 4c 23 32 5d 0d  01 65 0d 4d 55 4c 20 6e  |,ASL#2]..e.MUL n|
00001b40  2c 74 2c 6e 0d 01 66 0c  53 54 52 20 6e 2c 61 62  |,t,n..f.STR n,ab|
00001b50  0d 01 67 04 0d 01 68 0f  53 55 42 20 74 2c 64 78  |..g...h.SUB t,dx|
00001b60  2c 61 78 0d 01 69 0f 53  55 42 20 6e 2c 64 79 2c  |,ax..i.SUB n,dy,|
00001b70  61 79 0d 01 6a 15 4c 44  52 20 6e 2c 5b 71 2c 6e  |ay..j.LDR n,[q,n|
00001b80  2c 41 53 4c 23 32 5d 0d  01 6b 0d 4d 55 4c 20 6e  |,ASL#2]..k.MUL n|
00001b90  2c 74 2c 6e 0d 01 6c 0c  53 54 52 20 6e 2c 61 64  |,t,n..l.STR n,ad|
00001ba0  0d 01 6d 04 0d 01 6e 0f  53 55 42 20 74 2c 63 78  |..m...n.SUB t,cx|
00001bb0  2c 62 78 0d 01 6f 0f 53  55 42 20 6e 2c 63 79 2c  |,bx..o.SUB n,cy,|
00001bc0  62 79 0d 01 70 15 4c 44  52 20 6e 2c 5b 71 2c 6e  |by..p.LDR n,[q,n|
00001bd0  2c 41 53 4c 23 32 5d 0d  01 71 0d 4d 55 4c 20 6e  |,ASL#2]..q.MUL n|
00001be0  2c 74 2c 6e 0d 01 72 0c  53 54 52 20 6e 2c 62 63  |,t,n..r.STR n,bc|
00001bf0  0d 01 73 04 0d 01 74 0f  53 55 42 20 74 2c 63 78  |..s...t.SUB t,cx|
00001c00  2c 64 78 0d 01 75 0f 53  55 42 20 6e 2c 63 79 2c  |,dx..u.SUB n,cy,|
00001c10  64 79 0d 01 76 0c 53 54  52 20 6e 2c 63 63 0d 01  |dy..v.STR n,cc..|
00001c20  77 15 4c 44 52 20 6e 2c  5b 71 2c 6e 2c 41 53 4c  |w.LDR n,[q,n,ASL|
00001c30  23 32 5d 0d 01 78 0d 4d  55 4c 20 6e 2c 74 2c 6e  |#2]..x.MUL n,t,n|
00001c40  0d 01 79 0c 53 54 52 20  6e 2c 64 63 0d 01 7a 04  |..y.STR n,dc..z.|
00001c50  0d 01 7b 0f 53 55 42 20  6e 2c 64 79 2c 62 79 0d  |..{.SUB n,dy,by.|
00001c60  01 7c 0c 53 54 52 20 6e  2c 64 64 0d 01 7d 04 0d  |.|.STR n,dd..}..|
00001c70  01 7e 0d 4c 44 52 20 6f  2c 76 64 75 0d 01 7f 0e  |.~.LDR o,vdu....|
00001c80  4c 44 52 20 63 6f 6c 2c  6b 6c 0d 01 80 15 41 44  |LDR col,kl....AD|
00001c90  44 20 74 2c 61 79 2c 23  6f 72 69 67 69 6e 59 0d  |D t,ay,#originY.|
00001ca0  01 81 13 41 44 44 20 74  2c 74 2c 74 2c 41 53 4c  |...ADD t,t,t,ASL|
00001cb0  23 32 0d 01 82 13 41 44  44 20 6f 2c 6f 2c 74 2c  |#2....ADD o,o,t,|
00001cc0  41 53 4c 23 36 0d 01 83  04 0d 01 84 0d 4d 4f 56  |ASL#6........MOV|
00001cd0  20 63 31 2c 63 34 0d 01  85 0d 4d 4f 56 20 63 32  | c1,c4....MOV c2|
00001ce0  2c 63 34 0d 01 86 0d 4d  4f 56 20 63 33 2c 63 34  |,c4....MOV c3,c4|
00001cf0  0d 01 87 04 0d 01 88 0d  4c 44 52 20 63 74 2c 61  |........LDR ct,a|
00001d00  61 0d 01 89 0d 43 4d 50  20 63 74 2c 23 30 0d 01  |a....CMP ct,#0..|
00001d10  8a 0d 4c 44 52 20 74 2c  61 78 64 0d 01 8b 12 4d  |..LDR t,axd....M|
00001d20  4f 56 20 6c 2c 74 2c 41  53 4c 23 31 36 0d 01 8c  |OV l,t,ASL#16...|
00001d30  12 4d 4f 56 20 72 2c 74  2c 41 53 4c 23 31 36 0d  |.MOV r,t,ASL#16.|
00001d40  01 8d 0d 4c 44 52 20 6c  61 2c 61 64 0d 01 8e 12  |...LDR la,ad....|
00001d50  41 44 44 20 6c 2c 6c 2c  23 31 3c 3c 31 35 0d 01  |ADD l,l,#1<<15..|
00001d60  8f 0d 4c 44 52 20 72 61  2c 61 62 0d 01 90 12 41  |..LDR ra,ab....A|
00001d70  44 44 20 72 2c 72 2c 23  31 3c 3c 31 35 0d 01 91  |DD r,r,#1<<15...|
00001d80  0e 42 4c 4e 45 20 70 69  65 63 65 0d 01 92 04 0d  |.BLNE piece.....|
00001d90  01 93 0d 4c 44 52 20 63  74 2c 64 64 0d 01 94 0d  |...LDR ct,dd....|
00001da0  43 4d 50 20 63 74 2c 23  30 0d 01 95 0d 4c 44 52  |CMP ct,#0....LDR|
00001db0  20 74 2c 62 78 64 0d 01  96 12 4d 4f 56 20 72 2c  | t,bxd....MOV r,|
00001dc0  74 2c 41 53 4c 23 31 36  0d 01 97 0d 4c 44 52 20  |t,ASL#16....LDR |
00001dd0  72 61 2c 62 63 0d 01 98  12 41 44 44 20 72 2c 72  |ra,bc....ADD r,r|
00001de0  2c 23 31 3c 3c 31 35 0d  01 99 0e 42 4c 4e 45 20  |,#1<<15....BLNE |
00001df0  70 69 65 63 65 0d 01 9a  04 0d 01 9b 0d 4c 44 52  |piece........LDR|
00001e00  20 63 74 2c 63 63 0d 01  9c 0d 43 4d 50 20 63 74  | ct,cc....CMP ct|
00001e10  2c 23 30 0d 01 9d 0d 4c  44 52 20 74 2c 64 78 64  |,#0....LDR t,dxd|
00001e20  0d 01 9e 12 4d 4f 56 20  6c 2c 74 2c 41 53 4c 23  |....MOV l,t,ASL#|
00001e30  31 36 0d 01 9f 0d 4c 44  52 20 6c 61 2c 64 63 0d  |16....LDR la,dc.|
00001e40  01 a0 12 41 44 44 20 6c  2c 6c 2c 23 31 3c 3c 31  |...ADD l,l,#1<<1|
00001e50  35 0d 01 a1 0e 42 4c 4e  45 20 70 69 65 63 65 0d  |5....BLNE piece.|
00001e60  01 a2 1b 4c 44 4d 46 44  20 72 31 33 21 2c 7b 72  |...LDMFD r13!,{r|
00001e70  38 2d 72 31 32 2c 72 31  35 7d 0d 01 a3 04 0d 01  |8-r12,r15}......|
00001e80  a4 05 20 0d 01 a5 1c 2e  70 69 65 63 65 20 3b 53  |.. .....piece ;S|
00001e90  54 4d 46 44 20 72 31 33  21 2c 7b 72 31 34 7d 0d  |TMFD r13!,{r14}.|
00001ea0  01 a6 07 2e 6c 6f 0d 01  a7 0e 4c 44 52 20 74 2c  |....lo....LDR t,|
00001eb0  79 70 6f 73 0d 01 a8 0e  41 44 44 20 74 2c 74 2c  |ypos....ADD t,t,|
00001ec0  23 31 0d 01 a9 0e 53 54  52 20 74 2c 79 70 6f 73  |#1....STR t,ypos|
00001ed0  0d 01 aa 11 43 4d 50 20  74 2c 23 66 72 61 6d 65  |....CMP t,#frame|
00001ee0  54 0d 01 ab 0f 42 4c 45  20 65 6e 64 73 70 61 6e  |T....BLE endspan|
00001ef0  0d 01 ac 11 43 4d 50 20  74 2c 23 66 72 61 6d 65  |....CMP t,#frame|
00001f00  42 0d 01 ad 2f 4d 4f 56  47 54 20 72 31 35 2c 72  |B.../MOVGT r15,r|
00001f10  31 34 20 20 20 20 20 20  20 20 20 20 20 3b 4c 44  |14           ;LD|
00001f20  4d 46 44 47 54 20 72 31  33 21 2c 7b 72 31 35 7d  |MFDGT r13!,{r15}|
00001f30  0d 01 ae 04 0d 01 af 0b  43 4d 50 20 6c 2c 72 0d  |........CMP l,r.|
00001f40  01 b0 15 4d 4f 56 4c 54  20 78 6c 2c 6c 2c 41 53  |...MOVLT xl,l,AS|
00001f50  52 23 31 36 0d 01 b1 15  4d 4f 56 4c 54 20 78 72  |R#16....MOVLT xr|
00001f60  2c 72 2c 41 53 52 23 31  36 0d 01 b2 15 4d 4f 56  |,r,ASR#16....MOV|
00001f70  47 45 20 78 6c 2c 72 2c  41 53 52 23 31 36 0d 01  |GE xl,r,ASR#16..|
00001f80  b3 15 4d 4f 56 47 45 20  78 72 2c 6c 2c 41 53 52  |..MOVGE xr,l,ASR|
00001f90  23 31 36 0d 01 b4 04 0d  01 b5 12 43 4d 50 20 78  |#16........CMP x|
00001fa0  6c 2c 23 66 72 61 6d 65  52 0d 01 b6 0f 42 47 54  |l,#frameR....BGT|
00001fb0  20 65 6e 64 73 70 61 6e  0d 01 b7 12 43 4d 50 20  | endspan....CMP |
00001fc0  78 72 2c 23 66 72 61 6d  65 4c 0d 01 b8 0f 42 4c  |xr,#frameL....BL|
00001fd0  54 20 65 6e 64 73 70 61  6e 0d 01 b9 12 43 4d 50  |T endspan....CMP|
00001fe0  20 78 6c 2c 23 66 72 61  6d 65 4c 0d 01 ba 14 4d  | xl,#frameL....M|
00001ff0  4f 56 4c 54 20 78 6c 2c  23 66 72 61 6d 65 4c 0d  |OVLT xl,#frameL.|
00002000  01 bb 12 43 4d 50 20 78  72 2c 23 66 72 61 6d 65  |...CMP xr,#frame|
00002010  52 0d 01 bc 14 4d 4f 56  47 54 20 78 72 2c 23 66  |R....MOVGT xr,#f|
00002020  72 61 6d 65 52 0d 01 bd  04 0d 01 be 0f 41 44 44  |rameR........ADD|
00002030  20 78 6c 2c 6f 2c 78 6c  0d 01 bf 0f 41 44 44 20  | xl,o,xl....ADD |
00002040  78 72 2c 6f 2c 78 72 0d  01 c0 04 0d 01 c1 10 53  |xr,o,xr........S|
00002050  55 42 53 20 74 2c 78 72  2c 78 6c 0d 01 c2 0f 42  |UBS t,xr,xl....B|
00002060  45 51 20 65 6e 64 73 70  61 6e 0d 01 c3 0c 43 4d  |EQ endspan....CM|
00002070  50 20 74 2c 23 32 0d 01  c4 12 53 54 52 4c 53 42  |P t,#2....STRLSB|
00002080  20 63 31 2c 5b 78 6c 5d  0d 01 c5 16 53 54 52 4c  | c1,[xl]....STRL|
00002090  53 42 20 63 31 2c 5b 78  72 2c 23 2d 31 5d 0d 01  |SB c1,[xr,#-1]..|
000020a0  c6 0f 42 4c 53 20 65 6e  64 73 70 61 6e 0d 01 c7  |..BLS endspan...|
000020b0  0f 54 53 54 20 78 6c 2c  23 25 30 31 0d 01 c8 15  |.TST xl,#%01....|
000020c0  53 54 52 4e 45 42 20 63  31 2c 5b 78 6c 5d 2c 23  |STRNEB c1,[xl],#|
000020d0  31 0d 01 c9 0f 54 53 54  20 78 6c 2c 23 25 31 30  |1....TST xl,#%10|
000020e0  0d 01 ca 15 53 54 52 4e  45 42 20 63 32 2c 5b 78  |....STRNEB c2,[x|
000020f0  6c 5d 2c 23 31 0d 01 cb  15 53 54 52 4e 45 42 20  |l],#1....STRNEB |
00002100  63 31 2c 5b 78 6c 5d 2c  23 31 0d 01 cc 0f 54 53  |c1,[xl],#1....TS|
00002110  54 20 78 72 2c 23 25 30  31 0d 01 cd 17 53 54 52  |T xr,#%01....STR|
00002120  4e 45 42 20 63 32 2c 5b  78 72 2c 23 2d 31 5d 21  |NEB c2,[xr,#-1]!|
00002130  0d 01 ce 0f 54 53 54 20  78 72 2c 23 25 31 30 0d  |....TST xr,#%10.|
00002140  01 cf 17 53 54 52 4e 45  42 20 63 31 2c 5b 78 72  |...STRNEB c1,[xr|
00002150  2c 23 2d 31 5d 21 0d 01  d0 17 53 54 52 4e 45 42  |,#-1]!....STRNEB|
00002160  20 63 32 2c 5b 78 72 2c  23 2d 31 5d 21 0d 01 d1  | c2,[xr,#-1]!...|
00002170  10 53 55 42 53 20 74 2c  78 72 2c 78 6c 0d 01 d2  |.SUBS t,xr,xl...|
00002180  12 4d 4f 56 53 20 74 2c  74 2c 4c 53 52 23 33 0d  |.MOVS t,t,LSR#3.|
00002190  01 d3 14 53 54 52 43 53  20 63 31 2c 5b 78 6c 5d  |...STRCS c1,[xl]|
000021a0  2c 23 34 0d 01 d4 12 4d  4f 56 53 20 74 2c 74 2c  |,#4....MOVS t,t,|
000021b0  4c 53 52 23 31 0d 01 d5  19 53 54 4d 43 53 49 41  |LSR#1....STMCSIA|
000021c0  20 28 78 6c 29 21 2c 7b  63 31 2c 63 32 7d 0d 01  | (xl)!,{c1,c2}..|
000021d0  d6 04 0d 01 d7 0f 41 44  52 20 78 72 2c 62 61 73  |......ADR xr,bas|
000021e0  65 0d 01 d8 15 53 55 42  20 70 63 2c 78 72 2c 74  |e....SUB pc,xr,t|
000021f0  2c 4c 53 4c 23 32 0d 01  d9 09 a4 76 75 6c 63 0d  |,LSL#2.....vulc.|
00002200  01 da 09 2e 62 61 73 65  0d 01 db 04 0d 01 dc 0c  |....base........|
00002210  2e 65 6e 64 73 70 61 6e  0d 01 dd 0e 41 44 44 20  |.endspan....ADD |
00002220  6c 2c 6c 2c 6c 61 0d 01  de 0e 41 44 44 20 72 2c  |l,l,la....ADD r,|
00002230  72 2c 72 61 0d 01 df 10  41 44 44 20 6f 2c 6f 2c  |r,ra....ADD o,o,|
00002240  23 33 32 30 0d 01 e0 11  53 55 42 53 20 63 74 2c  |#320....SUBS ct,|
00002250  63 74 2c 23 31 0d 01 e1  0a 42 4e 45 20 6c 6f 0d  |ct,#1....BNE lo.|
00002260  01 e2 2f 4d 4f 56 20 72  31 35 2c 72 31 34 20 20  |../MOV r15,r14  |
00002270  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 4c 44  |             ;LD|
00002280  4d 46 44 20 72 31 33 21  2c 7b 72 31 35 7d 0d 01  |MFD r13!,{r15}..|
00002290  e3 05 20 0d 01 e4 05 20  0d 01 e5 11 2e 76 64 75  |.. .... .....vdu|
000022a0  20 45 51 55 44 20 31 34  38 0d 01 e6 10 20 20 20  | EQUD 148....   |
000022b0  20 20 45 51 55 44 20 2d  31 0d 01 e7 05 20 0d 01  |  EQUD -1.... ..|
000022c0  e8 18 2e 74 72 61 63 6b  70 74 72 20 45 51 55 44  |...trackptr EQUD|
000022d0  20 74 72 61 63 6b 0d 01  e9 14 2e 73 69 6e 70 74  | track.....sinpt|
000022e0  72 20 45 51 55 44 20 73  69 6e 0d 01 ea 18 2e 63  |r EQUD sin.....c|
000022f0  6f 73 70 74 72 20 45 51  55 44 20 73 69 6e 2b 35  |osptr EQUD sin+5|
00002300  31 32 0d 01 eb 05 20 0d  01 ec 18 2e 74 72 61 63  |12.... .....trac|
00002310  6b 20 a4 67 61 70 28 34  2a 34 2a 32 35 36 29 0d  |k .gap(4*4*256).|
00002320  01 ed 14 2e 73 69 6e 20  a4 67 61 70 28 36 34 30  |....sin .gap(640|
00002330  2a 34 29 0d 01 ee 12 5d  ed 3a 4c 25 3d 50 25 2d  |*4)....].:L%=P%-|
00002340  63 6f 64 65 25 0d 01 ef  23 c8 99 22 4f 53 5f 52  |code%...#.."OS_R|
00002350  65 61 64 56 64 75 56 61  72 69 61 62 6c 65 73 22  |eadVduVariables"|
00002360  2c 76 64 75 2c 76 64 75  0d 01 f0 16 76 64 75 21  |,vdu,vdu....vdu!|
00002370  34 3d 21 76 64 75 2b 33  32 30 2a 32 35 36 0d 01  |4=!vdu+320*256..|
00002380  f1 05 e1 0d 01 f2 04 0d  01 f3 0a dd a4 76 75 6c  |.............vul|
00002390  63 0d 01 f4 0c e3 6a 25  3d 31 b8 32 30 0d 01 f5  |c.....j%=1.20...|
000023a0  0a 5b 4f 50 54 69 25 0d  01 f6 1d 53 54 4d 49 41  |.[OPTi%....STMIA|
000023b0  20 28 78 6c 29 21 2c 7b  63 31 2c 63 32 2c 63 33  | (xl)!,{c1,c2,c3|
000023c0  2c 63 34 7d 0d 01 f7 06  5d ed 0d 01 f8 07 3d 22  |,c4}....].....="|
000023d0  22 0d 01 f9 04 0d 01 fa  05 20 0d 01 fb 09 dd a4  |"........ ......|
000023e0  72 6f 74 0d 01 fc 0a 5b  4f 50 54 69 25 0d 01 fd  |rot....[OPTi%...|
000023f0  0c 4d 4f 56 20 73 2c 61  78 0d 01 fe 0d 4d 4f 56  |.MOV s,ax....MOV|
00002400  20 61 78 2c 62 78 0d 01  ff 0d 4d 4f 56 20 62 78  | ax,bx....MOV bx|
00002410  2c 63 78 0d 02 00 0d 4d  4f 56 20 63 78 2c 64 78  |,cx....MOV cx,dx|
00002420  0d 02 01 0c 4d 4f 56 20  64 78 2c 73 0d 02 02 0c  |....MOV dx,s....|
00002430  4d 4f 56 20 73 2c 61 79  0d 02 03 0d 4d 4f 56 20  |MOV s,ay....MOV |
00002440  61 79 2c 62 79 0d 02 04  0d 4d 4f 56 20 62 79 2c  |ay,by....MOV by,|
00002450  63 79 0d 02 05 0d 4d 4f  56 20 63 79 2c 64 79 0d  |cy....MOV cy,dy.|
00002460  02 06 0c 4d 4f 56 20 64  79 2c 73 0d 02 07 05 5d  |...MOV dy,s....]|
00002470  0d 02 08 06 3d 30 0d 02  09 04 0d 02 0a 12 dd a4  |....=0..........|
00002480  67 61 70 28 6d 65 6d 6f  72 79 25 29 0d 02 0b 1d  |gap(memory%)....|
00002490  6d 65 6d 6f 72 79 25 3d  34 2a 28 28 6d 65 6d 6f  |memory%=4*((memo|
000024a0  72 79 25 2b 33 29 81 34  29 0d 02 0c 0f 50 25 2b  |ry%+3).4)....P%+|
000024b0  3d 6d 65 6d 6f 72 79 25  0d 02 0d 06 3d 30 0d ff  |=memory%....=0..|
000024c0