�     >!Runimage - !Pyramid
� By  Alistair Turnbull
� For 32-bit machines
(� (c) AU March 1994
2:
<err$="Main"
F*� ��0:�$+" in "+err$+" at line "+Þ:�
P�1:�
Zpath$="<Pyramid$dir>"
d țpath$+".Library.PlotCode7"
n țpath$+".Library.PlotCode6"
x țpath$+".Library.PlotCode5"
� țpath$+".Library.PlotCode4"
� țpath$+".Library.PlotCodeS"
�țpath$+".Library.ADR"
� țpath$+".Library.Transform"
�țpath$+".Library.Display"
�!țpath$+".Library.Background"
�=�code%&10000,palette%384,sprites%&2000,back%&5000,work%16
�;sp1%=sprites%:sp2%=sp1%+4*2:sp3%=sp2%+4*4:sp4%=sp3%+4*8
�1sp5%=sp4%+4*16:sp6%=sp5%+8*32:sp7%=sp6%+16*64
�endsprites%=sp7%+32*128
�
�assemble
��makepalette
��C(1023),S(1023):M%=1023

4�A%=0�1023:A=2*�*A%/1024:C(A%)=�(A):S(A%)=�(A):�

8YF=128:YG=-YF/3:XF=128*�(8/9):XG=-XF/2:ZF=128*�(2/3)

�background

"�display

,�

6:

@:

J��makepalette

TU%=palette%

^�range(15,15,15,-1,-1,-1)

h�range(0,0,0,1,0,0)

r�range(15,0,0,0,0,1)

|�range(15,0,15,-1,0,0)

��range(0,0,15,0,1,0)

��range(0,15,15,0,0,-1)

��range(0,15,0,1,0,0)

��range(15,15,0,0,0,1)

��

�:

�$��range(C1%,C2%,C3%,D1%,D2%,D3%)

�/�T%=0�15:?U%=C1%<<4:U%?1=C2%<<4:U%?2=C3%<<4

�&U%+=3:C1%+=D1%:C2%+=D2%:C3%+=D3%:�

��

�:

���assemble

��T%=0�2�2:P%=code%
[OPT T%
:
.link:EQUD -1
&.sp:EQUD -1
0:
:.bank:EQUD 1
D.animation:EQUD 0
N:
X	.draw
bSTR R14,link
lSTR R13,sp
v; Blank all the sprites
�OPT �adr(0,sprites%,2)
�OPT �adr(1,endsprites%,2)
�
MOV R2,#0
�
MOV R3,#0
�
MOV R4,#0
�
MOV R5,#0
�.blankloop
�STMIA R0!,{R2-R5}
�
CMP R0,R1
�BLT blankloop
�; Switch screens
�LDR R1,bank
�
CMP R1,#1
�Q R1,#2
MOVNE R1,#1
STR R1,bank
 MOV R0,#112
*SWI "OS_Byte"
4MOV R0,#19
>SWI "OS_Byte"
HADR R0,vduvars
RADR R1,scraddr
\SWI "OS_ReadVduVariables"
f; Change the palette
pLDR R0,animation
zADD R0,R0,#1
�� R0,R0,#127
�STR R0,animation
�OPT �adr(1,palette%,2)
�ADD R1,R1,R0,ASL#1
�ADD R1,R1,R0
�\SWI &113:; �19
�\SWI &103:;      ,3
�\SWI &110:;        ,16
�\LDRB R0,[R1]
�\SWI "OS_WriteC":;    ,Red
�\LDRB R0,[R1,#1]
�$\SWI "OS_WriteC":;        ,Green
�\LDRB R0,[R1,#2]
)\SWI "OS_WriteC":;              ,Blue
; Draw the background
OPT �adr(13,back%,2)
$LDR R14,scraddr
.MOV R12,#256
8.bgloop
BLDMIA R13!,{R0-R9}
LSTMIA R14!,{R0-R9}
VLDMIA R13!,{R0-R9}
`STMIA R14!,{R0-R9}
jSUBS R12,R12,#1
tBGT bgloop
~; Create the 2x2 sprite
�
MOV R5,#0
�
MOV R6,#0
�OPT �adr(13,matrix%+7*32,2)
�MOV R12,#4
�.cloop1
�LDMIA R13!,{R0-R1}
�
MOV R7,#3
�CMP R0,#128
�MOVGE R7,R7,LSL#2
�CMP R1,#128
��RLT R5,R5,R7
��RGE R6,R6,R7
SUBS R12,R12,#1

BGT cloop1
OPT �adr(14,sp1%,2)
STMIA R14,{R5-R6}
(,; Plot the 2x2 sprites on the 4x4 sprite
2OPT �adr(13,matrix%+6*32,2)
<MOV R12,#4
F.cloop2
PLDMIA R13!,{R0-R1}
ZADD R0,R0,#1<<6
dMOV R2,R0,ASR#7
nADD R1,R1,#1<<6
xMOV R1,R1,ASR#7
�OPT �adr(14,sp2%,2)
�ADD R14,R14,R1,ASL#2
�OPT �adr(11,sp1%,2)
�MOV R10,#2
�ADR R9,endplot2
�#OPT �adr(1,plot8421routines%,2)
�LDR R0,[R1,R2,ASL#2]
�ADD PC,R1,R0
�
MOV R0,R0
�:
�
.endplot2
�SUBS R12,R12,#1
�BGT cloop2
,; Plot the 4x4 sprites on the 8x8 sprite
OPT �adr(13,matrix%+5*32,2)
MOV R12,#4
".cloop4
,LDMIA R13!,{R0-R1}
6ADD R0,R0,#1<<5
@MOV R2,R0,ASR#6
JADD R1,R1,#1<<5
TMOV R1,R1,ASR#6
^OPT �adr(14,sp3%,2)
hADD R14,R14,R1,ASL#2
rOPT �adr(11,sp2%,2)
|MOV R10,#4
�ADR R9,endplot4
�#OPT �adr(1,plot8421routines%,2)
�LDR R0,[R1,R2,ASL#2]
�ADD PC,R1,R0
�
MOV R0,R0
�:
�
.endplot4
�SUBS R12,R12,#1
�BGT cloop4
�.; Plot the 8x8 sprites on the 16x16 sprite
�OPT �adr(13,matrix%+4*32,2)
�MOV R12,#4
�.cloop8
LDMIA R13!,{R0-R1}
ADD R0,R0,#1<<4
MOV R2,R0,ASR#5
&ADD R1,R1,#1<<4
0MOV R1,R1,ASR#5
:OPT �adr(14,sp4%,2)
DADD R14,R14,R1,ASL#2
NOPT �adr(11,sp3%,2)
XMOV R10,#8
bADR R9,endplot8
l#OPT �adr(1,plot8421routines%,2)
vLDR R0,[R1,R2,ASL#2]
�ADD PC,R1,R0
�
MOV R0,R0
�:
�
.endplot8
�SUBS R12,R12,#1
�BGT cloop8
�0; Plot the 16x16 sprites on the 32x32 sprite
�OPT �adr(13,matrix%+3*32,2)
�MOV R12,#4
�.cloop16
�LDMIA R13!,{R0-R1}
�ADD R0,R0,#1<<3
�MOV R0,R0,ASR#4
ADD R1,R1,#1<<3
MOV R1,R1,ASR#4
� R2,R0,#15
 MOV R0,R0,LSR#4
*OPT �adr(14,sp5%,2)
4ADD R14,R14,R0,ASL#2
>ADD R14,R14,R1,ASL#3
H!OPT �adr(1,plot16routines%,2)
RLDR R0,[R1,R2,ASL#2]
\ADD PC,R1,R0
f
MOV R0,R0
p:
z.endplot16
�SUBS R12,R12,#1
�BGT cloop16
�0; Plot the 32x32 sprites on the 64x64 sprite
�OPT �adr(13,matrix%+2*32,2)
�MOV R12,#4
�.cloop32
�LDMIA R13!,{R0-R1}
�ADD R0,R0,#1<<2
�MOV R0,R0,ASR#3
�ADD R1,R1,#1<<2
�MOV R1,R1,ASR#3
�� R2,R0,#15
�MOV R0,R0,LSR#4
	OPT �adr(14,sp6%,2)
	ADD R14,R14,R0,ASL#2
	ADD R14,R14,R1,ASL#4
	$!OPT �adr(1,plot32routines%,2)
	.LDR R0,[R1,R2,ASL#2]
	8ADD PC,R1,R0
	B
MOV R0,R0
	L:
	V.endplot32
	`SUBS R12,R12,#1
	jBGT cloop32
	t2; Plot the 64x64 sprites on the 128x128 sprite
	~OPT �adr(13,matrix%+1*32,2)
	�MOV R12,#4
	�.cloop64
	�LDMIA R13!,{R0-R1}
	�ADD R0,R0,#1<<1
	�MOV R0,R0,ASR#2
	�ADD R1,R1,#1<<1
	�MOV R1,R1,ASR#2
	�� R2,R0,#15
	�MOV R0,R0,LSR#4
	�OPT �adr(14,sp7%,2)
	�ADD R14,R14,R0,ASL#2
	�ADD R14,R14,R1,ASL#5
!OPT �adr(1,plot64routines%,2)

LDR R0,[R1,R2,ASL#2]
ADD PC,R1,R0

MOV R0,R0
(:
2.endplot64
<SUBS R12,R12,#1
FBGT cloop64
P,; Plot the 128x128 sprites on the screen
ZOPT �adr(13,matrix%+0*32,2)
dMOV R12,#4
n
.cloop
xLDMIA R13!,{R0-R1}
�ADD R0,R0,#1<<0
�MOV R0,R0,ASR#1
�ADD R1,R1,#1<<0
�MOV R1,R1,ASR#1
�� R2,R0,#15
�MOV R0,R0,LSR#4
�LDR R14,scraddr
�ADD R14,R14,#8
�ADD R14,R14,R0,ASL#2
�ADD R14,R14,R1,ASL#4
�ADD R14,R14,R1,ASL#6
�"OPT �adr(1,plot128routines%,2)
�LDR R0,[R1,R2,ASL#2]
ADD PC,R1,R0

MOV R0,R0
:
".endplot128
,SUBS R12,R12,#1
6
BGT cloop
@LDR R1,bank
JMOV R0,#113
TSWI "OS_Byte"
^LDR R13,sp
hLDR R14,link
rMOV PC,R14
|:
�.vduvars:EQUD 148:EQUD -1
�.scraddr:EQUD -1
�:
�.matrix%
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�:
.storeback
STR R14,link
STR R13,sp
&ADR R0,vduvars
0ADR R1,scraddr
:SWI "OS_ReadVduVariables"
DOPT �adr(13,back%,2)
NLDR R14,scraddr
XMOV R12,#256
b.bgloop
lLDMIA R14!,{R0-R9}
vSTMIA R13!,{R0-R9}
�LDMIA R14!,{R0-R9}
�STMIA R13!,{R0-R9}
�SUBS R12,R12,#1
�BGT bgloop
�LDR R13,sp
�LDR R14,link
�MOV PC,R14
�:
�]
��plotcode128
��plotcode64
��plotcode32
��plotcode16

�plotcode8421

�

�
�

00000000  0d 00 0a 1f f4 20 20 20  20 20 3e 21 52 75 6e 69  |.....     >!Runi|
00000010  6d 61 67 65 20 2d 20 21  50 79 72 61 6d 69 64 0d  |mage - !Pyramid.|
00000020  00 14 1b f4 20 42 79 20  20 41 6c 69 73 74 61 69  |.... By  Alistai|
00000030  72 20 54 75 72 6e 62 75  6c 6c 0d 00 1e 19 f4 20  |r Turnbull..... |
00000040  46 6f 72 20 33 32 2d 62  69 74 20 6d 61 63 68 69  |For 32-bit machi|
00000050  6e 65 73 0d 00 28 17 f4  20 28 63 29 20 41 55 20  |nes..(.. (c) AU |
00000060  4d 61 72 63 68 20 31 39  39 34 0d 00 32 05 3a 0d  |March 1994..2.:.|
00000070  00 3c 0f 65 72 72 24 3d  22 4d 61 69 6e 22 0d 00  |.<.err$="Main"..|
00000080  46 2a ee 20 85 eb 30 3a  f1 f6 24 2b 22 20 69 6e  |F*. ..0:..$+" in|
00000090  20 22 2b 65 72 72 24 2b  22 20 61 74 20 6c 69 6e  | "+err$+" at lin|
000000a0  65 20 22 2b c3 9e 3a e0  0d 00 50 08 eb 31 3a 87  |e "+..:...P..1:.|
000000b0  0d 00 5a 19 70 61 74 68  24 3d 22 3c 50 79 72 61  |..Z.path$="<Pyra|
000000c0  6d 69 64 24 64 69 72 3e  22 0d 00 64 20 c8 9b 70  |mid$dir>"..d ..p|
000000d0  61 74 68 24 2b 22 2e 4c  69 62 72 61 72 79 2e 50  |ath$+".Library.P|
000000e0  6c 6f 74 43 6f 64 65 37  22 0d 00 6e 20 c8 9b 70  |lotCode7"..n ..p|
000000f0  61 74 68 24 2b 22 2e 4c  69 62 72 61 72 79 2e 50  |ath$+".Library.P|
00000100  6c 6f 74 43 6f 64 65 36  22 0d 00 78 20 c8 9b 70  |lotCode6"..x ..p|
00000110  61 74 68 24 2b 22 2e 4c  69 62 72 61 72 79 2e 50  |ath$+".Library.P|
00000120  6c 6f 74 43 6f 64 65 35  22 0d 00 82 20 c8 9b 70  |lotCode5"... ..p|
00000130  61 74 68 24 2b 22 2e 4c  69 62 72 61 72 79 2e 50  |ath$+".Library.P|
00000140  6c 6f 74 43 6f 64 65 34  22 0d 00 8c 20 c8 9b 70  |lotCode4"... ..p|
00000150  61 74 68 24 2b 22 2e 4c  69 62 72 61 72 79 2e 50  |ath$+".Library.P|
00000160  6c 6f 74 43 6f 64 65 53  22 0d 00 96 1a c8 9b 70  |lotCodeS"......p|
00000170  61 74 68 24 2b 22 2e 4c  69 62 72 61 72 79 2e 41  |ath$+".Library.A|
00000180  44 52 22 0d 00 a0 20 c8  9b 70 61 74 68 24 2b 22  |DR"... ..path$+"|
00000190  2e 4c 69 62 72 61 72 79  2e 54 72 61 6e 73 66 6f  |.Library.Transfo|
000001a0  72 6d 22 0d 00 aa 1e c8  9b 70 61 74 68 24 2b 22  |rm"......path$+"|
000001b0  2e 4c 69 62 72 61 72 79  2e 44 69 73 70 6c 61 79  |.Library.Display|
000001c0  22 0d 00 b4 21 c8 9b 70  61 74 68 24 2b 22 2e 4c  |"...!..path$+".L|
000001d0  69 62 72 61 72 79 2e 42  61 63 6b 67 72 6f 75 6e  |ibrary.Backgroun|
000001e0  64 22 0d 00 be 3d de 63  6f 64 65 25 26 31 30 30  |d"...=.code%&100|
000001f0  30 30 2c 70 61 6c 65 74  74 65 25 33 38 34 2c 73  |00,palette%384,s|
00000200  70 72 69 74 65 73 25 26  32 30 30 30 2c 62 61 63  |prites%&2000,bac|
00000210  6b 25 26 35 30 30 30 2c  77 6f 72 6b 25 31 36 0d  |k%&5000,work%16.|
00000220  00 c8 3b 73 70 31 25 3d  73 70 72 69 74 65 73 25  |..;sp1%=sprites%|
00000230  3a 73 70 32 25 3d 73 70  31 25 2b 34 2a 32 3a 73  |:sp2%=sp1%+4*2:s|
00000240  70 33 25 3d 73 70 32 25  2b 34 2a 34 3a 73 70 34  |p3%=sp2%+4*4:sp4|
00000250  25 3d 73 70 33 25 2b 34  2a 38 0d 00 d2 31 73 70  |%=sp3%+4*8...1sp|
00000260  35 25 3d 73 70 34 25 2b  34 2a 31 36 3a 73 70 36  |5%=sp4%+4*16:sp6|
00000270  25 3d 73 70 35 25 2b 38  2a 33 32 3a 73 70 37 25  |%=sp5%+8*32:sp7%|
00000280  3d 73 70 36 25 2b 31 36  2a 36 34 0d 00 dc 1b 65  |=sp6%+16*64....e|
00000290  6e 64 73 70 72 69 74 65  73 25 3d 73 70 37 25 2b  |ndsprites%=sp7%+|
000002a0  33 32 2a 31 32 38 0d 00  e6 0d f2 61 73 73 65 6d  |32*128.....assem|
000002b0  62 6c 65 0d 00 f0 10 f2  6d 61 6b 65 70 61 6c 65  |ble.....makepale|
000002c0  74 74 65 0d 00 fa 1c de  43 28 31 30 32 33 29 2c  |tte.....C(1023),|
000002d0  53 28 31 30 32 33 29 3a  4d 25 3d 31 30 32 33 0d  |S(1023):M%=1023.|
000002e0  01 04 34 e3 41 25 3d 30  b8 31 30 32 33 3a 41 3d  |..4.A%=0.1023:A=|
000002f0  32 2a af 2a 41 25 2f 31  30 32 34 3a 43 28 41 25  |2*.*A%/1024:C(A%|
00000300  29 3d 9b 28 41 29 3a 53  28 41 25 29 3d b5 28 41  |)=.(A):S(A%)=.(A|
00000310  29 3a ed 0d 01 0e 38 59  46 3d 31 32 38 3a 59 47  |):....8YF=128:YG|
00000320  3d 2d 59 46 2f 33 3a 58  46 3d 31 32 38 2a b6 28  |=-YF/3:XF=128*.(|
00000330  38 2f 39 29 3a 58 47 3d  2d 58 46 2f 32 3a 5a 46  |8/9):XG=-XF/2:ZF|
00000340  3d 31 32 38 2a b6 28 32  2f 33 29 0d 01 18 0f f2  |=128*.(2/3).....|
00000350  62 61 63 6b 67 72 6f 75  6e 64 0d 01 22 0c f2 64  |background.."..d|
00000360  69 73 70 6c 61 79 0d 01  2c 05 e0 0d 01 36 05 3a  |isplay..,....6.:|
00000370  0d 01 40 05 3a 0d 01 4a  11 dd f2 6d 61 6b 65 70  |..@.:..J...makep|
00000380  61 6c 65 74 74 65 0d 01  54 0f 55 25 3d 70 61 6c  |alette..T.U%=pal|
00000390  65 74 74 65 25 0d 01 5e  1d f2 72 61 6e 67 65 28  |ette%..^..range(|
000003a0  31 35 2c 31 35 2c 31 35  2c 2d 31 2c 2d 31 2c 2d  |15,15,15,-1,-1,-|
000003b0  31 29 0d 01 68 17 f2 72  61 6e 67 65 28 30 2c 30  |1)..h..range(0,0|
000003c0  2c 30 2c 31 2c 30 2c 30  29 0d 01 72 18 f2 72 61  |,0,1,0,0)..r..ra|
000003d0  6e 67 65 28 31 35 2c 30  2c 30 2c 30 2c 30 2c 31  |nge(15,0,0,0,0,1|
000003e0  29 0d 01 7c 1a f2 72 61  6e 67 65 28 31 35 2c 30  |)..|..range(15,0|
000003f0  2c 31 35 2c 2d 31 2c 30  2c 30 29 0d 01 86 18 f2  |,15,-1,0,0).....|
00000400  72 61 6e 67 65 28 30 2c  30 2c 31 35 2c 30 2c 31  |range(0,0,15,0,1|
00000410  2c 30 29 0d 01 90 1a f2  72 61 6e 67 65 28 30 2c  |,0).....range(0,|
00000420  31 35 2c 31 35 2c 30 2c  30 2c 2d 31 29 0d 01 9a  |15,15,0,0,-1)...|
00000430  18 f2 72 61 6e 67 65 28  30 2c 31 35 2c 30 2c 31  |..range(0,15,0,1|
00000440  2c 30 2c 30 29 0d 01 a4  19 f2 72 61 6e 67 65 28  |,0,0).....range(|
00000450  31 35 2c 31 35 2c 30 2c  30 2c 30 2c 31 29 0d 01  |15,15,0,0,0,1)..|
00000460  ae 05 e1 0d 01 b8 05 3a  0d 01 c2 24 dd f2 72 61  |.......:...$..ra|
00000470  6e 67 65 28 43 31 25 2c  43 32 25 2c 43 33 25 2c  |nge(C1%,C2%,C3%,|
00000480  44 31 25 2c 44 32 25 2c  44 33 25 29 0d 01 cc 2f  |D1%,D2%,D3%).../|
00000490  e3 54 25 3d 30 b8 31 35  3a 3f 55 25 3d 43 31 25  |.T%=0.15:?U%=C1%|
000004a0  3c 3c 34 3a 55 25 3f 31  3d 43 32 25 3c 3c 34 3a  |<<4:U%?1=C2%<<4:|
000004b0  55 25 3f 32 3d 43 33 25  3c 3c 34 0d 01 d6 26 55  |U%?2=C3%<<4...&U|
000004c0  25 2b 3d 33 3a 43 31 25  2b 3d 44 31 25 3a 43 32  |%+=3:C1%+=D1%:C2|
000004d0  25 2b 3d 44 32 25 3a 43  33 25 2b 3d 44 33 25 3a  |%+=D2%:C3%+=D3%:|
000004e0  ed 0d 01 e0 05 e1 0d 01  ea 05 3a 0d 01 f4 0e dd  |..........:.....|
000004f0  f2 61 73 73 65 6d 62 6c  65 0d 01 fe 16 e3 54 25  |.assemble.....T%|
00000500  3d 30 b8 32 88 32 3a 50  25 3d 63 6f 64 65 25 0d  |=0.2.2:P%=code%.|
00000510  02 08 0b 5b 4f 50 54 20  54 25 0d 02 12 05 3a 0d  |...[OPT T%....:.|
00000520  02 1c 11 2e 6c 69 6e 6b  3a 45 51 55 44 20 2d 31  |....link:EQUD -1|
00000530  0d 02 26 0f 2e 73 70 3a  45 51 55 44 20 2d 31 0d  |..&..sp:EQUD -1.|
00000540  02 30 05 3a 0d 02 3a 10  2e 62 61 6e 6b 3a 45 51  |.0.:..:..bank:EQ|
00000550  55 44 20 31 0d 02 44 15  2e 61 6e 69 6d 61 74 69  |UD 1..D..animati|
00000560  6f 6e 3a 45 51 55 44 20  30 0d 02 4e 05 3a 0d 02  |on:EQUD 0..N.:..|
00000570  58 09 2e 64 72 61 77 0d  02 62 10 53 54 52 20 52  |X..draw..b.STR R|
00000580  31 34 2c 6c 69 6e 6b 0d  02 6c 0e 53 54 52 20 52  |14,link..l.STR R|
00000590  31 33 2c 73 70 0d 02 76  1b 3b 20 42 6c 61 6e 6b  |13,sp..v.; Blank|
000005a0  20 61 6c 6c 20 74 68 65  20 73 70 72 69 74 65 73  | all the sprites|
000005b0  0d 02 80 1a 4f 50 54 20  a4 61 64 72 28 30 2c 73  |....OPT .adr(0,s|
000005c0  70 72 69 74 65 73 25 2c  32 29 0d 02 8a 1d 4f 50  |prites%,2)....OP|
000005d0  54 20 a4 61 64 72 28 31  2c 65 6e 64 73 70 72 69  |T .adr(1,endspri|
000005e0  74 65 73 25 2c 32 29 0d  02 94 0d 4d 4f 56 20 52  |tes%,2)....MOV R|
000005f0  32 2c 23 30 0d 02 9e 0d  4d 4f 56 20 52 33 2c 23  |2,#0....MOV R3,#|
00000600  30 0d 02 a8 0d 4d 4f 56  20 52 34 2c 23 30 0d 02  |0....MOV R4,#0..|
00000610  b2 0d 4d 4f 56 20 52 35  2c 23 30 0d 02 bc 0e 2e  |..MOV R5,#0.....|
00000620  62 6c 61 6e 6b 6c 6f 6f  70 0d 02 c6 15 53 54 4d  |blankloop....STM|
00000630  49 41 20 52 30 21 2c 7b  52 32 2d 52 35 7d 0d 02  |IA R0!,{R2-R5}..|
00000640  d0 0d 43 4d 50 20 52 30  2c 52 31 0d 02 da 11 42  |..CMP R0,R1....B|
00000650  4c 54 20 62 6c 61 6e 6b  6c 6f 6f 70 0d 02 e4 14  |LT blankloop....|
00000660  3b 20 53 77 69 74 63 68  20 73 63 72 65 65 6e 73  |; Switch screens|
00000670  0d 02 ee 0f 4c 44 52 20  52 31 2c 62 61 6e 6b 0d  |....LDR R1,bank.|
00000680  02 f8 0d 43 4d 50 20 52  31 2c 23 31 0d 03 02 0c  |...CMP R1,#1....|
00000690  ec 51 20 52 31 2c 23 32  0d 03 0c 0f 4d 4f 56 4e  |.Q R1,#2....MOVN|
000006a0  45 20 52 31 2c 23 31 0d  03 16 0f 53 54 52 20 52  |E R1,#1....STR R|
000006b0  31 2c 62 61 6e 6b 0d 03  20 0f 4d 4f 56 20 52 30  |1,bank.. .MOV R0|
000006c0  2c 23 31 31 32 0d 03 2a  11 53 57 49 20 22 4f 53  |,#112..*.SWI "OS|
000006d0  5f 42 79 74 65 22 0d 03  34 0e 4d 4f 56 20 52 30  |_Byte"..4.MOV R0|
000006e0  2c 23 31 39 0d 03 3e 11  53 57 49 20 22 4f 53 5f  |,#19..>.SWI "OS_|
000006f0  42 79 74 65 22 0d 03 48  12 41 44 52 20 52 30 2c  |Byte"..H.ADR R0,|
00000700  76 64 75 76 61 72 73 0d  03 52 12 41 44 52 20 52  |vduvars..R.ADR R|
00000710  31 2c 73 63 72 61 64 64  72 0d 03 5c 1d 53 57 49  |1,scraddr..\.SWI|
00000720  20 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  | "OS_ReadVduVari|
00000730  61 62 6c 65 73 22 0d 03  66 18 3b 20 43 68 61 6e  |ables"..f.; Chan|
00000740  67 65 20 74 68 65 20 70  61 6c 65 74 74 65 0d 03  |ge the palette..|
00000750  70 14 4c 44 52 20 52 30  2c 61 6e 69 6d 61 74 69  |p.LDR R0,animati|
00000760  6f 6e 0d 03 7a 10 41 44  44 20 52 30 2c 52 30 2c  |on..z.ADD R0,R0,|
00000770  23 31 0d 03 84 10 80 20  52 30 2c 52 30 2c 23 31  |#1..... R0,R0,#1|
00000780  32 37 0d 03 8e 14 53 54  52 20 52 30 2c 61 6e 69  |27....STR R0,ani|
00000790  6d 61 74 69 6f 6e 0d 03  98 1a 4f 50 54 20 a4 61  |mation....OPT .a|
000007a0  64 72 28 31 2c 70 61 6c  65 74 74 65 25 2c 32 29  |dr(1,palette%,2)|
000007b0  0d 03 a2 16 41 44 44 20  52 31 2c 52 31 2c 52 30  |....ADD R1,R1,R0|
000007c0  2c 41 53 4c 23 31 0d 03  ac 10 41 44 44 20 52 31  |,ASL#1....ADD R1|
000007d0  2c 52 31 2c 52 30 0d 03  b6 13 5c 53 57 49 20 26  |,R1,R0....\SWI &|
000007e0  31 31 33 3a 3b 20 ef 31  39 0d 03 c0 17 5c 53 57  |113:; .19....\SW|
000007f0  49 20 26 31 30 33 3a 3b  20 20 20 20 20 20 2c 33  |I &103:;      ,3|
00000800  0d 03 ca 1a 5c 53 57 49  20 26 31 31 30 3a 3b 20  |....\SWI &110:; |
00000810  20 20 20 20 20 20 20 2c  31 36 0d 03 d4 11 5c 4c  |       ,16....\L|
00000820  44 52 42 20 52 30 2c 5b  52 31 5d 0d 03 de 1e 5c  |DRB R0,[R1]....\|
00000830  53 57 49 20 22 4f 53 5f  57 72 69 74 65 43 22 3a  |SWI "OS_WriteC":|
00000840  3b 20 20 20 20 2c 52 65  64 0d 03 e8 14 5c 4c 44  |;    ,Red....\LD|
00000850  52 42 20 52 30 2c 5b 52  31 2c 23 31 5d 0d 03 f2  |RB R0,[R1,#1]...|
00000860  24 5c 53 57 49 20 22 4f  53 5f 57 72 69 74 65 43  |$\SWI "OS_WriteC|
00000870  22 3a 3b 20 20 20 20 20  20 20 20 2c 47 72 65 65  |":;        ,Gree|
00000880  6e 0d 03 fc 14 5c 4c 44  52 42 20 52 30 2c 5b 52  |n....\LDRB R0,[R|
00000890  31 2c 23 32 5d 0d 04 06  29 5c 53 57 49 20 22 4f  |1,#2]...)\SWI "O|
000008a0  53 5f 57 72 69 74 65 43  22 3a 3b 20 20 20 20 20  |S_WriteC":;     |
000008b0  20 20 20 20 20 20 20 20  20 2c 42 6c 75 65 0d 04  |         ,Blue..|
000008c0  10 19 3b 20 44 72 61 77  20 74 68 65 20 62 61 63  |..; Draw the bac|
000008d0  6b 67 72 6f 75 6e 64 0d  04 1a 18 4f 50 54 20 a4  |kground....OPT .|
000008e0  61 64 72 28 31 33 2c 62  61 63 6b 25 2c 32 29 0d  |adr(13,back%,2).|
000008f0  04 24 13 4c 44 52 20 52  31 34 2c 73 63 72 61 64  |.$.LDR R14,scrad|
00000900  64 72 0d 04 2e 10 4d 4f  56 20 52 31 32 2c 23 32  |dr....MOV R12,#2|
00000910  35 36 0d 04 38 0b 2e 62  67 6c 6f 6f 70 0d 04 42  |56..8..bgloop..B|
00000920  16 4c 44 4d 49 41 20 52  31 33 21 2c 7b 52 30 2d  |.LDMIA R13!,{R0-|
00000930  52 39 7d 0d 04 4c 16 53  54 4d 49 41 20 52 31 34  |R9}..L.STMIA R14|
00000940  21 2c 7b 52 30 2d 52 39  7d 0d 04 56 16 4c 44 4d  |!,{R0-R9}..V.LDM|
00000950  49 41 20 52 31 33 21 2c  7b 52 30 2d 52 39 7d 0d  |IA R13!,{R0-R9}.|
00000960  04 60 16 53 54 4d 49 41  20 52 31 34 21 2c 7b 52  |.`.STMIA R14!,{R|
00000970  30 2d 52 39 7d 0d 04 6a  13 53 55 42 53 20 52 31  |0-R9}..j.SUBS R1|
00000980  32 2c 52 31 32 2c 23 31  0d 04 74 0e 42 47 54 20  |2,R12,#1..t.BGT |
00000990  62 67 6c 6f 6f 70 0d 04  7e 1b 3b 20 43 72 65 61  |bgloop..~.; Crea|
000009a0  74 65 20 74 68 65 20 32  78 32 20 73 70 72 69 74  |te the 2x2 sprit|
000009b0  65 0d 04 88 0d 4d 4f 56  20 52 35 2c 23 30 0d 04  |e....MOV R5,#0..|
000009c0  92 0d 4d 4f 56 20 52 36  2c 23 30 0d 04 9c 1f 4f  |..MOV R6,#0....O|
000009d0  50 54 20 a4 61 64 72 28  31 33 2c 6d 61 74 72 69  |PT .adr(13,matri|
000009e0  78 25 2b 37 2a 33 32 2c  32 29 0d 04 a6 0e 4d 4f  |x%+7*32,2)....MO|
000009f0  56 20 52 31 32 2c 23 34  0d 04 b0 0b 2e 63 6c 6f  |V R12,#4.....clo|
00000a00  6f 70 31 0d 04 ba 16 4c  44 4d 49 41 20 52 31 33  |op1....LDMIA R13|
00000a10  21 2c 7b 52 30 2d 52 31  7d 0d 04 c4 0d 4d 4f 56  |!,{R0-R1}....MOV|
00000a20  20 52 37 2c 23 33 0d 04  ce 0f 43 4d 50 20 52 30  | R7,#3....CMP R0|
00000a30  2c 23 31 32 38 0d 04 d8  15 4d 4f 56 47 45 20 52  |,#128....MOVGE R|
00000a40  37 2c 52 37 2c 4c 53 4c  23 32 0d 04 e2 0f 43 4d  |7,R7,LSL#2....CM|
00000a50  50 20 52 31 2c 23 31 32  38 0d 04 ec 11 84 52 4c  |P R1,#128.....RL|
00000a60  54 20 52 35 2c 52 35 2c  52 37 0d 04 f6 11 84 52  |T R5,R5,R7.....R|
00000a70  47 45 20 52 36 2c 52 36  2c 52 37 0d 05 00 13 53  |GE R6,R6,R7....S|
00000a80  55 42 53 20 52 31 32 2c  52 31 32 2c 23 31 0d 05  |UBS R12,R12,#1..|
00000a90  0a 0e 42 47 54 20 63 6c  6f 6f 70 31 0d 05 14 17  |..BGT cloop1....|
00000aa0  4f 50 54 20 a4 61 64 72  28 31 34 2c 73 70 31 25  |OPT .adr(14,sp1%|
00000ab0  2c 32 29 0d 05 1e 15 53  54 4d 49 41 20 52 31 34  |,2)....STMIA R14|
00000ac0  2c 7b 52 35 2d 52 36 7d  0d 05 28 2c 3b 20 50 6c  |,{R5-R6}..(,; Pl|
00000ad0  6f 74 20 74 68 65 20 32  78 32 20 73 70 72 69 74  |ot the 2x2 sprit|
00000ae0  65 73 20 6f 6e 20 74 68  65 20 34 78 34 20 73 70  |es on the 4x4 sp|
00000af0  72 69 74 65 0d 05 32 1f  4f 50 54 20 a4 61 64 72  |rite..2.OPT .adr|
00000b00  28 31 33 2c 6d 61 74 72  69 78 25 2b 36 2a 33 32  |(13,matrix%+6*32|
00000b10  2c 32 29 0d 05 3c 0e 4d  4f 56 20 52 31 32 2c 23  |,2)..<.MOV R12,#|
00000b20  34 0d 05 46 0b 2e 63 6c  6f 6f 70 32 0d 05 50 16  |4..F..cloop2..P.|
00000b30  4c 44 4d 49 41 20 52 31  33 21 2c 7b 52 30 2d 52  |LDMIA R13!,{R0-R|
00000b40  31 7d 0d 05 5a 13 41 44  44 20 52 30 2c 52 30 2c  |1}..Z.ADD R0,R0,|
00000b50  23 31 3c 3c 36 0d 05 64  13 4d 4f 56 20 52 32 2c  |#1<<6..d.MOV R2,|
00000b60  52 30 2c 41 53 52 23 37  0d 05 6e 13 41 44 44 20  |R0,ASR#7..n.ADD |
00000b70  52 31 2c 52 31 2c 23 31  3c 3c 36 0d 05 78 13 4d  |R1,R1,#1<<6..x.M|
00000b80  4f 56 20 52 31 2c 52 31  2c 41 53 52 23 37 0d 05  |OV R1,R1,ASR#7..|
00000b90  82 17 4f 50 54 20 a4 61  64 72 28 31 34 2c 73 70  |..OPT .adr(14,sp|
00000ba0  32 25 2c 32 29 0d 05 8c  18 41 44 44 20 52 31 34  |2%,2)....ADD R14|
00000bb0  2c 52 31 34 2c 52 31 2c  41 53 4c 23 32 0d 05 96  |,R14,R1,ASL#2...|
00000bc0  17 4f 50 54 20 a4 61 64  72 28 31 31 2c 73 70 31  |.OPT .adr(11,sp1|
00000bd0  25 2c 32 29 0d 05 a0 0e  4d 4f 56 20 52 31 30 2c  |%,2)....MOV R10,|
00000be0  23 32 0d 05 aa 13 41 44  52 20 52 39 2c 65 6e 64  |#2....ADR R9,end|
00000bf0  70 6c 6f 74 32 0d 05 b4  23 4f 50 54 20 a4 61 64  |plot2...#OPT .ad|
00000c00  72 28 31 2c 70 6c 6f 74  38 34 32 31 72 6f 75 74  |r(1,plot8421rout|
00000c10  69 6e 65 73 25 2c 32 29  0d 05 be 18 4c 44 52 20  |ines%,2)....LDR |
00000c20  52 30 2c 5b 52 31 2c 52  32 2c 41 53 4c 23 32 5d  |R0,[R1,R2,ASL#2]|
00000c30  0d 05 c8 10 41 44 44 20  50 43 2c 52 31 2c 52 30  |....ADD PC,R1,R0|
00000c40  0d 05 d2 0d 4d 4f 56 20  52 30 2c 52 30 0d 05 dc  |....MOV R0,R0...|
00000c50  05 3a 0d 05 e6 0d 2e 65  6e 64 70 6c 6f 74 32 0d  |.:.....endplot2.|
00000c60  05 f0 13 53 55 42 53 20  52 31 32 2c 52 31 32 2c  |...SUBS R12,R12,|
00000c70  23 31 0d 05 fa 0e 42 47  54 20 63 6c 6f 6f 70 32  |#1....BGT cloop2|
00000c80  0d 06 04 2c 3b 20 50 6c  6f 74 20 74 68 65 20 34  |...,; Plot the 4|
00000c90  78 34 20 73 70 72 69 74  65 73 20 6f 6e 20 74 68  |x4 sprites on th|
00000ca0  65 20 38 78 38 20 73 70  72 69 74 65 0d 06 0e 1f  |e 8x8 sprite....|
00000cb0  4f 50 54 20 a4 61 64 72  28 31 33 2c 6d 61 74 72  |OPT .adr(13,matr|
00000cc0  69 78 25 2b 35 2a 33 32  2c 32 29 0d 06 18 0e 4d  |ix%+5*32,2)....M|
00000cd0  4f 56 20 52 31 32 2c 23  34 0d 06 22 0b 2e 63 6c  |OV R12,#4.."..cl|
00000ce0  6f 6f 70 34 0d 06 2c 16  4c 44 4d 49 41 20 52 31  |oop4..,.LDMIA R1|
00000cf0  33 21 2c 7b 52 30 2d 52  31 7d 0d 06 36 13 41 44  |3!,{R0-R1}..6.AD|
00000d00  44 20 52 30 2c 52 30 2c  23 31 3c 3c 35 0d 06 40  |D R0,R0,#1<<5..@|
00000d10  13 4d 4f 56 20 52 32 2c  52 30 2c 41 53 52 23 36  |.MOV R2,R0,ASR#6|
00000d20  0d 06 4a 13 41 44 44 20  52 31 2c 52 31 2c 23 31  |..J.ADD R1,R1,#1|
00000d30  3c 3c 35 0d 06 54 13 4d  4f 56 20 52 31 2c 52 31  |<<5..T.MOV R1,R1|
00000d40  2c 41 53 52 23 36 0d 06  5e 17 4f 50 54 20 a4 61  |,ASR#6..^.OPT .a|
00000d50  64 72 28 31 34 2c 73 70  33 25 2c 32 29 0d 06 68  |dr(14,sp3%,2)..h|
00000d60  18 41 44 44 20 52 31 34  2c 52 31 34 2c 52 31 2c  |.ADD R14,R14,R1,|
00000d70  41 53 4c 23 32 0d 06 72  17 4f 50 54 20 a4 61 64  |ASL#2..r.OPT .ad|
00000d80  72 28 31 31 2c 73 70 32  25 2c 32 29 0d 06 7c 0e  |r(11,sp2%,2)..|.|
00000d90  4d 4f 56 20 52 31 30 2c  23 34 0d 06 86 13 41 44  |MOV R10,#4....AD|
00000da0  52 20 52 39 2c 65 6e 64  70 6c 6f 74 34 0d 06 90  |R R9,endplot4...|
00000db0  23 4f 50 54 20 a4 61 64  72 28 31 2c 70 6c 6f 74  |#OPT .adr(1,plot|
00000dc0  38 34 32 31 72 6f 75 74  69 6e 65 73 25 2c 32 29  |8421routines%,2)|
00000dd0  0d 06 9a 18 4c 44 52 20  52 30 2c 5b 52 31 2c 52  |....LDR R0,[R1,R|
00000de0  32 2c 41 53 4c 23 32 5d  0d 06 a4 10 41 44 44 20  |2,ASL#2]....ADD |
00000df0  50 43 2c 52 31 2c 52 30  0d 06 ae 0d 4d 4f 56 20  |PC,R1,R0....MOV |
00000e00  52 30 2c 52 30 0d 06 b8  05 3a 0d 06 c2 0d 2e 65  |R0,R0....:.....e|
00000e10  6e 64 70 6c 6f 74 34 0d  06 cc 13 53 55 42 53 20  |ndplot4....SUBS |
00000e20  52 31 32 2c 52 31 32 2c  23 31 0d 06 d6 0e 42 47  |R12,R12,#1....BG|
00000e30  54 20 63 6c 6f 6f 70 34  0d 06 e0 2e 3b 20 50 6c  |T cloop4....; Pl|
00000e40  6f 74 20 74 68 65 20 38  78 38 20 73 70 72 69 74  |ot the 8x8 sprit|
00000e50  65 73 20 6f 6e 20 74 68  65 20 31 36 78 31 36 20  |es on the 16x16 |
00000e60  73 70 72 69 74 65 0d 06  ea 1f 4f 50 54 20 a4 61  |sprite....OPT .a|
00000e70  64 72 28 31 33 2c 6d 61  74 72 69 78 25 2b 34 2a  |dr(13,matrix%+4*|
00000e80  33 32 2c 32 29 0d 06 f4  0e 4d 4f 56 20 52 31 32  |32,2)....MOV R12|
00000e90  2c 23 34 0d 06 fe 0b 2e  63 6c 6f 6f 70 38 0d 07  |,#4.....cloop8..|
00000ea0  08 16 4c 44 4d 49 41 20  52 31 33 21 2c 7b 52 30  |..LDMIA R13!,{R0|
00000eb0  2d 52 31 7d 0d 07 12 13  41 44 44 20 52 30 2c 52  |-R1}....ADD R0,R|
00000ec0  30 2c 23 31 3c 3c 34 0d  07 1c 13 4d 4f 56 20 52  |0,#1<<4....MOV R|
00000ed0  32 2c 52 30 2c 41 53 52  23 35 0d 07 26 13 41 44  |2,R0,ASR#5..&.AD|
00000ee0  44 20 52 31 2c 52 31 2c  23 31 3c 3c 34 0d 07 30  |D R1,R1,#1<<4..0|
00000ef0  13 4d 4f 56 20 52 31 2c  52 31 2c 41 53 52 23 35  |.MOV R1,R1,ASR#5|
00000f00  0d 07 3a 17 4f 50 54 20  a4 61 64 72 28 31 34 2c  |..:.OPT .adr(14,|
00000f10  73 70 34 25 2c 32 29 0d  07 44 18 41 44 44 20 52  |sp4%,2)..D.ADD R|
00000f20  31 34 2c 52 31 34 2c 52  31 2c 41 53 4c 23 32 0d  |14,R14,R1,ASL#2.|
00000f30  07 4e 17 4f 50 54 20 a4  61 64 72 28 31 31 2c 73  |.N.OPT .adr(11,s|
00000f40  70 33 25 2c 32 29 0d 07  58 0e 4d 4f 56 20 52 31  |p3%,2)..X.MOV R1|
00000f50  30 2c 23 38 0d 07 62 13  41 44 52 20 52 39 2c 65  |0,#8..b.ADR R9,e|
00000f60  6e 64 70 6c 6f 74 38 0d  07 6c 23 4f 50 54 20 a4  |ndplot8..l#OPT .|
00000f70  61 64 72 28 31 2c 70 6c  6f 74 38 34 32 31 72 6f  |adr(1,plot8421ro|
00000f80  75 74 69 6e 65 73 25 2c  32 29 0d 07 76 18 4c 44  |utines%,2)..v.LD|
00000f90  52 20 52 30 2c 5b 52 31  2c 52 32 2c 41 53 4c 23  |R R0,[R1,R2,ASL#|
00000fa0  32 5d 0d 07 80 10 41 44  44 20 50 43 2c 52 31 2c  |2]....ADD PC,R1,|
00000fb0  52 30 0d 07 8a 0d 4d 4f  56 20 52 30 2c 52 30 0d  |R0....MOV R0,R0.|
00000fc0  07 94 05 3a 0d 07 9e 0d  2e 65 6e 64 70 6c 6f 74  |...:.....endplot|
00000fd0  38 0d 07 a8 13 53 55 42  53 20 52 31 32 2c 52 31  |8....SUBS R12,R1|
00000fe0  32 2c 23 31 0d 07 b2 0e  42 47 54 20 63 6c 6f 6f  |2,#1....BGT cloo|
00000ff0  70 38 0d 07 bc 30 3b 20  50 6c 6f 74 20 74 68 65  |p8...0; Plot the|
00001000  20 31 36 78 31 36 20 73  70 72 69 74 65 73 20 6f  | 16x16 sprites o|
00001010  6e 20 74 68 65 20 33 32  78 33 32 20 73 70 72 69  |n the 32x32 spri|
00001020  74 65 0d 07 c6 1f 4f 50  54 20 a4 61 64 72 28 31  |te....OPT .adr(1|
00001030  33 2c 6d 61 74 72 69 78  25 2b 33 2a 33 32 2c 32  |3,matrix%+3*32,2|
00001040  29 0d 07 d0 0e 4d 4f 56  20 52 31 32 2c 23 34 0d  |)....MOV R12,#4.|
00001050  07 da 0c 2e 63 6c 6f 6f  70 31 36 0d 07 e4 16 4c  |....cloop16....L|
00001060  44 4d 49 41 20 52 31 33  21 2c 7b 52 30 2d 52 31  |DMIA R13!,{R0-R1|
00001070  7d 0d 07 ee 13 41 44 44  20 52 30 2c 52 30 2c 23  |}....ADD R0,R0,#|
00001080  31 3c 3c 33 0d 07 f8 13  4d 4f 56 20 52 30 2c 52  |1<<3....MOV R0,R|
00001090  30 2c 41 53 52 23 34 0d  08 02 13 41 44 44 20 52  |0,ASR#4....ADD R|
000010a0  31 2c 52 31 2c 23 31 3c  3c 33 0d 08 0c 13 4d 4f  |1,R1,#1<<3....MO|
000010b0  56 20 52 31 2c 52 31 2c  41 53 52 23 34 0d 08 16  |V R1,R1,ASR#4...|
000010c0  0f 80 20 52 32 2c 52 30  2c 23 31 35 0d 08 20 13  |.. R2,R0,#15.. .|
000010d0  4d 4f 56 20 52 30 2c 52  30 2c 4c 53 52 23 34 0d  |MOV R0,R0,LSR#4.|
000010e0  08 2a 17 4f 50 54 20 a4  61 64 72 28 31 34 2c 73  |.*.OPT .adr(14,s|
000010f0  70 35 25 2c 32 29 0d 08  34 18 41 44 44 20 52 31  |p5%,2)..4.ADD R1|
00001100  34 2c 52 31 34 2c 52 30  2c 41 53 4c 23 32 0d 08  |4,R14,R0,ASL#2..|
00001110  3e 18 41 44 44 20 52 31  34 2c 52 31 34 2c 52 31  |>.ADD R14,R14,R1|
00001120  2c 41 53 4c 23 33 0d 08  48 21 4f 50 54 20 a4 61  |,ASL#3..H!OPT .a|
00001130  64 72 28 31 2c 70 6c 6f  74 31 36 72 6f 75 74 69  |dr(1,plot16routi|
00001140  6e 65 73 25 2c 32 29 0d  08 52 18 4c 44 52 20 52  |nes%,2)..R.LDR R|
00001150  30 2c 5b 52 31 2c 52 32  2c 41 53 4c 23 32 5d 0d  |0,[R1,R2,ASL#2].|
00001160  08 5c 10 41 44 44 20 50  43 2c 52 31 2c 52 30 0d  |.\.ADD PC,R1,R0.|
00001170  08 66 0d 4d 4f 56 20 52  30 2c 52 30 0d 08 70 05  |.f.MOV R0,R0..p.|
00001180  3a 0d 08 7a 0e 2e 65 6e  64 70 6c 6f 74 31 36 0d  |:..z..endplot16.|
00001190  08 84 13 53 55 42 53 20  52 31 32 2c 52 31 32 2c  |...SUBS R12,R12,|
000011a0  23 31 0d 08 8e 0f 42 47  54 20 63 6c 6f 6f 70 31  |#1....BGT cloop1|
000011b0  36 0d 08 98 30 3b 20 50  6c 6f 74 20 74 68 65 20  |6...0; Plot the |
000011c0  33 32 78 33 32 20 73 70  72 69 74 65 73 20 6f 6e  |32x32 sprites on|
000011d0  20 74 68 65 20 36 34 78  36 34 20 73 70 72 69 74  | the 64x64 sprit|
000011e0  65 0d 08 a2 1f 4f 50 54  20 a4 61 64 72 28 31 33  |e....OPT .adr(13|
000011f0  2c 6d 61 74 72 69 78 25  2b 32 2a 33 32 2c 32 29  |,matrix%+2*32,2)|
00001200  0d 08 ac 0e 4d 4f 56 20  52 31 32 2c 23 34 0d 08  |....MOV R12,#4..|
00001210  b6 0c 2e 63 6c 6f 6f 70  33 32 0d 08 c0 16 4c 44  |...cloop32....LD|
00001220  4d 49 41 20 52 31 33 21  2c 7b 52 30 2d 52 31 7d  |MIA R13!,{R0-R1}|
00001230  0d 08 ca 13 41 44 44 20  52 30 2c 52 30 2c 23 31  |....ADD R0,R0,#1|
00001240  3c 3c 32 0d 08 d4 13 4d  4f 56 20 52 30 2c 52 30  |<<2....MOV R0,R0|
00001250  2c 41 53 52 23 33 0d 08  de 13 41 44 44 20 52 31  |,ASR#3....ADD R1|
00001260  2c 52 31 2c 23 31 3c 3c  32 0d 08 e8 13 4d 4f 56  |,R1,#1<<2....MOV|
00001270  20 52 31 2c 52 31 2c 41  53 52 23 33 0d 08 f2 0f  | R1,R1,ASR#3....|
00001280  80 20 52 32 2c 52 30 2c  23 31 35 0d 08 fc 13 4d  |. R2,R0,#15....M|
00001290  4f 56 20 52 30 2c 52 30  2c 4c 53 52 23 34 0d 09  |OV R0,R0,LSR#4..|
000012a0  06 17 4f 50 54 20 a4 61  64 72 28 31 34 2c 73 70  |..OPT .adr(14,sp|
000012b0  36 25 2c 32 29 0d 09 10  18 41 44 44 20 52 31 34  |6%,2)....ADD R14|
000012c0  2c 52 31 34 2c 52 30 2c  41 53 4c 23 32 0d 09 1a  |,R14,R0,ASL#2...|
000012d0  18 41 44 44 20 52 31 34  2c 52 31 34 2c 52 31 2c  |.ADD R14,R14,R1,|
000012e0  41 53 4c 23 34 0d 09 24  21 4f 50 54 20 a4 61 64  |ASL#4..$!OPT .ad|
000012f0  72 28 31 2c 70 6c 6f 74  33 32 72 6f 75 74 69 6e  |r(1,plot32routin|
00001300  65 73 25 2c 32 29 0d 09  2e 18 4c 44 52 20 52 30  |es%,2)....LDR R0|
00001310  2c 5b 52 31 2c 52 32 2c  41 53 4c 23 32 5d 0d 09  |,[R1,R2,ASL#2]..|
00001320  38 10 41 44 44 20 50 43  2c 52 31 2c 52 30 0d 09  |8.ADD PC,R1,R0..|
00001330  42 0d 4d 4f 56 20 52 30  2c 52 30 0d 09 4c 05 3a  |B.MOV R0,R0..L.:|
00001340  0d 09 56 0e 2e 65 6e 64  70 6c 6f 74 33 32 0d 09  |..V..endplot32..|
00001350  60 13 53 55 42 53 20 52  31 32 2c 52 31 32 2c 23  |`.SUBS R12,R12,#|
00001360  31 0d 09 6a 0f 42 47 54  20 63 6c 6f 6f 70 33 32  |1..j.BGT cloop32|
00001370  0d 09 74 32 3b 20 50 6c  6f 74 20 74 68 65 20 36  |..t2; Plot the 6|
00001380  34 78 36 34 20 73 70 72  69 74 65 73 20 6f 6e 20  |4x64 sprites on |
00001390  74 68 65 20 31 32 38 78  31 32 38 20 73 70 72 69  |the 128x128 spri|
000013a0  74 65 0d 09 7e 1f 4f 50  54 20 a4 61 64 72 28 31  |te..~.OPT .adr(1|
000013b0  33 2c 6d 61 74 72 69 78  25 2b 31 2a 33 32 2c 32  |3,matrix%+1*32,2|
000013c0  29 0d 09 88 0e 4d 4f 56  20 52 31 32 2c 23 34 0d  |)....MOV R12,#4.|
000013d0  09 92 0c 2e 63 6c 6f 6f  70 36 34 0d 09 9c 16 4c  |....cloop64....L|
000013e0  44 4d 49 41 20 52 31 33  21 2c 7b 52 30 2d 52 31  |DMIA R13!,{R0-R1|
000013f0  7d 0d 09 a6 13 41 44 44  20 52 30 2c 52 30 2c 23  |}....ADD R0,R0,#|
00001400  31 3c 3c 31 0d 09 b0 13  4d 4f 56 20 52 30 2c 52  |1<<1....MOV R0,R|
00001410  30 2c 41 53 52 23 32 0d  09 ba 13 41 44 44 20 52  |0,ASR#2....ADD R|
00001420  31 2c 52 31 2c 23 31 3c  3c 31 0d 09 c4 13 4d 4f  |1,R1,#1<<1....MO|
00001430  56 20 52 31 2c 52 31 2c  41 53 52 23 32 0d 09 ce  |V R1,R1,ASR#2...|
00001440  0f 80 20 52 32 2c 52 30  2c 23 31 35 0d 09 d8 13  |.. R2,R0,#15....|
00001450  4d 4f 56 20 52 30 2c 52  30 2c 4c 53 52 23 34 0d  |MOV R0,R0,LSR#4.|
00001460  09 e2 17 4f 50 54 20 a4  61 64 72 28 31 34 2c 73  |...OPT .adr(14,s|
00001470  70 37 25 2c 32 29 0d 09  ec 18 41 44 44 20 52 31  |p7%,2)....ADD R1|
00001480  34 2c 52 31 34 2c 52 30  2c 41 53 4c 23 32 0d 09  |4,R14,R0,ASL#2..|
00001490  f6 18 41 44 44 20 52 31  34 2c 52 31 34 2c 52 31  |..ADD R14,R14,R1|
000014a0  2c 41 53 4c 23 35 0d 0a  00 21 4f 50 54 20 a4 61  |,ASL#5...!OPT .a|
000014b0  64 72 28 31 2c 70 6c 6f  74 36 34 72 6f 75 74 69  |dr(1,plot64routi|
000014c0  6e 65 73 25 2c 32 29 0d  0a 0a 18 4c 44 52 20 52  |nes%,2)....LDR R|
000014d0  30 2c 5b 52 31 2c 52 32  2c 41 53 4c 23 32 5d 0d  |0,[R1,R2,ASL#2].|
000014e0  0a 14 10 41 44 44 20 50  43 2c 52 31 2c 52 30 0d  |...ADD PC,R1,R0.|
000014f0  0a 1e 0d 4d 4f 56 20 52  30 2c 52 30 0d 0a 28 05  |...MOV R0,R0..(.|
00001500  3a 0d 0a 32 0e 2e 65 6e  64 70 6c 6f 74 36 34 0d  |:..2..endplot64.|
00001510  0a 3c 13 53 55 42 53 20  52 31 32 2c 52 31 32 2c  |.<.SUBS R12,R12,|
00001520  23 31 0d 0a 46 0f 42 47  54 20 63 6c 6f 6f 70 36  |#1..F.BGT cloop6|
00001530  34 0d 0a 50 2c 3b 20 50  6c 6f 74 20 74 68 65 20  |4..P,; Plot the |
00001540  31 32 38 78 31 32 38 20  73 70 72 69 74 65 73 20  |128x128 sprites |
00001550  6f 6e 20 74 68 65 20 73  63 72 65 65 6e 0d 0a 5a  |on the screen..Z|
00001560  1f 4f 50 54 20 a4 61 64  72 28 31 33 2c 6d 61 74  |.OPT .adr(13,mat|
00001570  72 69 78 25 2b 30 2a 33  32 2c 32 29 0d 0a 64 0e  |rix%+0*32,2)..d.|
00001580  4d 4f 56 20 52 31 32 2c  23 34 0d 0a 6e 0a 2e 63  |MOV R12,#4..n..c|
00001590  6c 6f 6f 70 0d 0a 78 16  4c 44 4d 49 41 20 52 31  |loop..x.LDMIA R1|
000015a0  33 21 2c 7b 52 30 2d 52  31 7d 0d 0a 82 13 41 44  |3!,{R0-R1}....AD|
000015b0  44 20 52 30 2c 52 30 2c  23 31 3c 3c 30 0d 0a 8c  |D R0,R0,#1<<0...|
000015c0  13 4d 4f 56 20 52 30 2c  52 30 2c 41 53 52 23 31  |.MOV R0,R0,ASR#1|
000015d0  0d 0a 96 13 41 44 44 20  52 31 2c 52 31 2c 23 31  |....ADD R1,R1,#1|
000015e0  3c 3c 30 0d 0a a0 13 4d  4f 56 20 52 31 2c 52 31  |<<0....MOV R1,R1|
000015f0  2c 41 53 52 23 31 0d 0a  aa 0f 80 20 52 32 2c 52  |,ASR#1..... R2,R|
00001600  30 2c 23 31 35 0d 0a b4  13 4d 4f 56 20 52 30 2c  |0,#15....MOV R0,|
00001610  52 30 2c 4c 53 52 23 34  0d 0a be 13 4c 44 52 20  |R0,LSR#4....LDR |
00001620  52 31 34 2c 73 63 72 61  64 64 72 0d 0a c8 12 41  |R14,scraddr....A|
00001630  44 44 20 52 31 34 2c 52  31 34 2c 23 38 0d 0a d2  |DD R14,R14,#8...|
00001640  18 41 44 44 20 52 31 34  2c 52 31 34 2c 52 30 2c  |.ADD R14,R14,R0,|
00001650  41 53 4c 23 32 0d 0a dc  18 41 44 44 20 52 31 34  |ASL#2....ADD R14|
00001660  2c 52 31 34 2c 52 31 2c  41 53 4c 23 34 0d 0a e6  |,R14,R1,ASL#4...|
00001670  18 41 44 44 20 52 31 34  2c 52 31 34 2c 52 31 2c  |.ADD R14,R14,R1,|
00001680  41 53 4c 23 36 0d 0a f0  22 4f 50 54 20 a4 61 64  |ASL#6..."OPT .ad|
00001690  72 28 31 2c 70 6c 6f 74  31 32 38 72 6f 75 74 69  |r(1,plot128routi|
000016a0  6e 65 73 25 2c 32 29 0d  0a fa 18 4c 44 52 20 52  |nes%,2)....LDR R|
000016b0  30 2c 5b 52 31 2c 52 32  2c 41 53 4c 23 32 5d 0d  |0,[R1,R2,ASL#2].|
000016c0  0b 04 10 41 44 44 20 50  43 2c 52 31 2c 52 30 0d  |...ADD PC,R1,R0.|
000016d0  0b 0e 0d 4d 4f 56 20 52  30 2c 52 30 0d 0b 18 05  |...MOV R0,R0....|
000016e0  3a 0d 0b 22 0f 2e 65 6e  64 70 6c 6f 74 31 32 38  |:.."..endplot128|
000016f0  0d 0b 2c 13 53 55 42 53  20 52 31 32 2c 52 31 32  |..,.SUBS R12,R12|
00001700  2c 23 31 0d 0b 36 0d 42  47 54 20 63 6c 6f 6f 70  |,#1..6.BGT cloop|
00001710  0d 0b 40 0f 4c 44 52 20  52 31 2c 62 61 6e 6b 0d  |..@.LDR R1,bank.|
00001720  0b 4a 0f 4d 4f 56 20 52  30 2c 23 31 31 33 0d 0b  |.J.MOV R0,#113..|
00001730  54 11 53 57 49 20 22 4f  53 5f 42 79 74 65 22 0d  |T.SWI "OS_Byte".|
00001740  0b 5e 0e 4c 44 52 20 52  31 33 2c 73 70 0d 0b 68  |.^.LDR R13,sp..h|
00001750  10 4c 44 52 20 52 31 34  2c 6c 69 6e 6b 0d 0b 72  |.LDR R14,link..r|
00001760  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 0b 7c 05 3a  |.MOV PC,R14..|.:|
00001770  0d 0b 86 1d 2e 76 64 75  76 61 72 73 3a 45 51 55  |.....vduvars:EQU|
00001780  44 20 31 34 38 3a 45 51  55 44 20 2d 31 0d 0b 90  |D 148:EQUD -1...|
00001790  14 2e 73 63 72 61 64 64  72 3a 45 51 55 44 20 2d  |..scraddr:EQUD -|
000017a0  31 0d 0b 9a 05 3a 0d 0b  a4 0c 2e 6d 61 74 72 69  |1....:.....matri|
000017b0  78 25 0d 0b ae 3b 45 51  55 44 20 30 3a 45 51 55  |x%...;EQUD 0:EQU|
000017c0  44 20 30 3a 45 51 55 44  20 30 3a 45 51 55 44 20  |D 0:EQUD 0:EQUD |
000017d0  30 3a 45 51 55 44 20 30  3a 45 51 55 44 20 30 3a  |0:EQUD 0:EQUD 0:|
000017e0  45 51 55 44 20 30 3a 45  51 55 44 20 30 0d 0b b8  |EQUD 0:EQUD 0...|
000017f0  3b 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |;EQUD 0:EQUD 0:E|
00001800  51 55 44 20 30 3a 45 51  55 44 20 30 3a 45 51 55  |QUD 0:EQUD 0:EQU|
00001810  44 20 30 3a 45 51 55 44  20 30 3a 45 51 55 44 20  |D 0:EQUD 0:EQUD |
00001820  30 3a 45 51 55 44 20 30  0d 0b c2 3b 45 51 55 44  |0:EQUD 0...;EQUD|
00001830  20 30 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 0:EQUD 0:EQUD 0|
00001840  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |:EQUD 0:EQUD 0:E|
00001850  51 55 44 20 30 3a 45 51  55 44 20 30 3a 45 51 55  |QUD 0:EQUD 0:EQU|
00001860  44 20 30 0d 0b cc 3b 45  51 55 44 20 30 3a 45 51  |D 0...;EQUD 0:EQ|
00001870  55 44 20 30 3a 45 51 55  44 20 30 3a 45 51 55 44  |UD 0:EQUD 0:EQUD|
00001880  20 30 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 0:EQUD 0:EQUD 0|
00001890  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 0d 0b  |:EQUD 0:EQUD 0..|
000018a0  d6 3b 45 51 55 44 20 30  3a 45 51 55 44 20 30 3a  |.;EQUD 0:EQUD 0:|
000018b0  45 51 55 44 20 30 3a 45  51 55 44 20 30 3a 45 51  |EQUD 0:EQUD 0:EQ|
000018c0  55 44 20 30 3a 45 51 55  44 20 30 3a 45 51 55 44  |UD 0:EQUD 0:EQUD|
000018d0  20 30 3a 45 51 55 44 20  30 0d 0b e0 3b 45 51 55  | 0:EQUD 0...;EQU|
000018e0  44 20 30 3a 45 51 55 44  20 30 3a 45 51 55 44 20  |D 0:EQUD 0:EQUD |
000018f0  30 3a 45 51 55 44 20 30  3a 45 51 55 44 20 30 3a  |0:EQUD 0:EQUD 0:|
00001900  45 51 55 44 20 30 3a 45  51 55 44 20 30 3a 45 51  |EQUD 0:EQUD 0:EQ|
00001910  55 44 20 30 0d 0b ea 3b  45 51 55 44 20 30 3a 45  |UD 0...;EQUD 0:E|
00001920  51 55 44 20 30 3a 45 51  55 44 20 30 3a 45 51 55  |QUD 0:EQUD 0:EQU|
00001930  44 20 30 3a 45 51 55 44  20 30 3a 45 51 55 44 20  |D 0:EQUD 0:EQUD |
00001940  30 3a 45 51 55 44 20 30  3a 45 51 55 44 20 30 0d  |0:EQUD 0:EQUD 0.|
00001950  0b f4 3b 45 51 55 44 20  30 3a 45 51 55 44 20 30  |..;EQUD 0:EQUD 0|
00001960  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |:EQUD 0:EQUD 0:E|
00001970  51 55 44 20 30 3a 45 51  55 44 20 30 3a 45 51 55  |QUD 0:EQUD 0:EQU|
00001980  44 20 30 3a 45 51 55 44  20 30 0d 0b fe 05 3a 0d  |D 0:EQUD 0....:.|
00001990  0c 08 0e 2e 73 74 6f 72  65 62 61 63 6b 0d 0c 12  |....storeback...|
000019a0  10 53 54 52 20 52 31 34  2c 6c 69 6e 6b 0d 0c 1c  |.STR R14,link...|
000019b0  0e 53 54 52 20 52 31 33  2c 73 70 0d 0c 26 12 41  |.STR R13,sp..&.A|
000019c0  44 52 20 52 30 2c 76 64  75 76 61 72 73 0d 0c 30  |DR R0,vduvars..0|
000019d0  12 41 44 52 20 52 31 2c  73 63 72 61 64 64 72 0d  |.ADR R1,scraddr.|
000019e0  0c 3a 1d 53 57 49 20 22  4f 53 5f 52 65 61 64 56  |.:.SWI "OS_ReadV|
000019f0  64 75 56 61 72 69 61 62  6c 65 73 22 0d 0c 44 18  |duVariables"..D.|
00001a00  4f 50 54 20 a4 61 64 72  28 31 33 2c 62 61 63 6b  |OPT .adr(13,back|
00001a10  25 2c 32 29 0d 0c 4e 13  4c 44 52 20 52 31 34 2c  |%,2)..N.LDR R14,|
00001a20  73 63 72 61 64 64 72 0d  0c 58 10 4d 4f 56 20 52  |scraddr..X.MOV R|
00001a30  31 32 2c 23 32 35 36 0d  0c 62 0b 2e 62 67 6c 6f  |12,#256..b..bglo|
00001a40  6f 70 0d 0c 6c 16 4c 44  4d 49 41 20 52 31 34 21  |op..l.LDMIA R14!|
00001a50  2c 7b 52 30 2d 52 39 7d  0d 0c 76 16 53 54 4d 49  |,{R0-R9}..v.STMI|
00001a60  41 20 52 31 33 21 2c 7b  52 30 2d 52 39 7d 0d 0c  |A R13!,{R0-R9}..|
00001a70  80 16 4c 44 4d 49 41 20  52 31 34 21 2c 7b 52 30  |..LDMIA R14!,{R0|
00001a80  2d 52 39 7d 0d 0c 8a 16  53 54 4d 49 41 20 52 31  |-R9}....STMIA R1|
00001a90  33 21 2c 7b 52 30 2d 52  39 7d 0d 0c 94 13 53 55  |3!,{R0-R9}....SU|
00001aa0  42 53 20 52 31 32 2c 52  31 32 2c 23 31 0d 0c 9e  |BS R12,R12,#1...|
00001ab0  0e 42 47 54 20 62 67 6c  6f 6f 70 0d 0c a8 0e 4c  |.BGT bgloop....L|
00001ac0  44 52 20 52 31 33 2c 73  70 0d 0c b2 10 4c 44 52  |DR R13,sp....LDR|
00001ad0  20 52 31 34 2c 6c 69 6e  6b 0d 0c bc 0e 4d 4f 56  | R14,link....MOV|
00001ae0  20 50 43 2c 52 31 34 0d  0c c6 05 3a 0d 0c d0 05  | PC,R14....:....|
00001af0  5d 0d 0c da 10 f2 70 6c  6f 74 63 6f 64 65 31 32  |].....plotcode12|
00001b00  38 0d 0c e4 0f f2 70 6c  6f 74 63 6f 64 65 36 34  |8.....plotcode64|
00001b10  0d 0c ee 0f f2 70 6c 6f  74 63 6f 64 65 33 32 0d  |.....plotcode32.|
00001b20  0c f8 0f f2 70 6c 6f 74  63 6f 64 65 31 36 0d 0d  |....plotcode16..|
00001b30  02 11 f2 70 6c 6f 74 63  6f 64 65 38 34 32 31 0d  |...plotcode8421.|
00001b40  0d 0c 05 ed 0d 0d 16 05  e1 0d ff                 |...........|
00001b4b