�9:�
$�T%=0�15:�T%,T%<<4,T%<<4,T%<<4:�
�constants
(�space%spacelen%:P%=space%
2code%=P%:P%+=codelen%
<spr%=P%:P%+=nospr%*32*32
Fpos%=P%:P%+=32*nopos%
P
�assemble
Z
�setupspr
d
�setuppos
nST%=�:�:T%=�-ST%
xC1%=192+64*�(T%/50)
�C2%=192+64*�(T%/56)
�C3%=192+64*�(T%/59)
�0�U%=0�15:�U%,U%*C1%>>4,U%*C2%>>4,U%*C3%>>4:�
��frame%
��0
��
�:
�:
���constants
�VC%=12:AC%=16
�#spacelen%=&40000:codelen%=&4000
�NSP%=5:nospr%=24
�
nopos%=50

�

:

��setupspr

"P%=spr%:!P%=148:P%!4=-1

,*ș"OS_ReadVduVariables",P%,P%:scr%=!P%

6LX=-1/3:LY=2/3:LZ=-2/3

@�T%=0�nospr%-1:�

J%S=64*(1-(T%+.5)/(1<<NSP%)):S2=S*S

T�X%=-62�62�4:�Y%=-62�62�4

^R2%=X%*X%+Y%*Y%:�S2>=R2%�

h0Z=-�(S2-R2%):B=(LX*X%+LY*Y%+LZ*Z)/S:�B<0�B=0

iBș"ColourTrans_SetGCOL",�(16+B*240)*(1+2^8+2^16):ȒX%+64,Y%+64

|�:�,

�S%=scr%+(256-32)*160

��Y%=0�31:�X%=0�31�8

�P%!4=S%!(X%>>3-2):!P%=0

��U%=0�7:W%=&F<<U%*4

��(W%�P%!4)<>0�!P%=!P%�W%

��:P%+=8:�:S%+=160:�

��

��

�:

���setuppos

� �T%=0�nopos%-1:U%=pos%+32*T%

�!U%=�(256)-1<<AC%

�U%!4=�(256)-1<<AC%
U%!8=�(256)-1<<AC%
U%!12=�(8<<AC%)-(4<<AC%)
U%!16=�(8<<AC%)-(4<<AC%)
&U%!20=�(8<<AC%)-(4<<AC%)
0�
:�
D:
Nݤadr(R%,A%,I%)
X,�(P%�3)<>0��"Code isn't word aligned!":�
b�(T%�2)=0�P%+=I%<<2:=T%
l(�N%,O%,H%,U%:H%=A%-(P%+8):N%=0:O%=15
v�U%=1�I%:�H%=0�
�[OPT T%:MOV R%,O%:]
� �ȕ(H%�3)=0:H%=H%>>2:N%+=2:�
��(H%�256)=0�
�0[OPT T%:ADD R%,O%,#(H%�255)<<N%:]:H%-=H%�255
�9�[OPT T%:SUB R%,O%,#(256-H%�255)<<N%:]:H%+=256-H%�255
��
�
�:O%=R%:�
�J�H%<>0��"Could not ADR to ";A%;" in ";I%;" instructions (R%=";R%;")":�
�=T%
�:
�ݤregisterj(J%,N%)
�J%!(N%<<2)=P%-J%
�=T%
:
��assemble
�T%=0�2�2:P%=code%
 [OPT T%
*:
4
.test%
>#EQUD -1:EQUD -1:EQUD -1:EQUD -1
H#EQUD -1:EQUD -1:EQUD -1:EQUD -1
R#EQUD -1:EQUD -1:EQUD -1:EQUD -1
\#EQUD -1:EQUD -1:EQUD -1:EQUD -1
f:
p.vduvars%:EQUD 148:EQUD -1
z.scraddr%:EQUD -1
�.bank%:EQUD 1
�:
�.frame%
�STMFD R13!,{R14}
�LDR R1,bank%
�
CMP R1,#1
��Q R1,#2
�MOVNE R1,#1
�STR R1,bank%
�MOV R0,#112
�SWI "OS_Byte"
�ADR R0,vduvars%
�ADR R1,scraddr%
SWI "OS_ReadVduVariables"
MOV R0,#19
SWI "OS_Byte"
$SWI &10C
.
BL think%
8BL draw%
BMOV R0,#113
LLDR R1,bank%
VSWI "OS_Byte"
`LDMFD R13!,{PC}
j:
t.think%
~STMFD R13!,{R14}
�OPT �adr(12,pos%,2)
�MOV R11,#nopos%
�
.posloop%
�LDMIA R12,{R0-R2,R3-R5}
�ADDS R0,R0,R3
�RSBLT R3,R3,#0
�ADDLT R0,R0,R3
�CMP R0,#256<<AC%
�RSBGE R3,R3,#0
�ADDGE R0,R0,R3
�ADDS R1,R1,R4
�RSBLT R4,R4,#0
ADDLT R1,R1,R4

CMP R1,#256<<AC%
RSBGE R4,R4,#0
ADDGE R1,R1,R4
(ADDS R2,R2,R5
2RSBLT R5,R5,#0
<ADDLT R2,R2,R5
FCMP R2,#256<<AC%
PRSBGE R5,R5,#0
ZADDGE R2,R2,R5
dSTMIA R12,{R0-R2,R3-R5}
nADD R12,R12,#32
xSUBS R11,R11,#1
�BGT posloop%
�LDMFD R13!,{PC}
�:
�
.draw%
�STMFD R13!,{R14}
�OPT �adr(12,pos%,2)
�MOV R11,#nopos%
�
.posloop%
�STMFD R13!,{R11-R12}
�LDMIA R12,{R0-R2}
�MOV R0,R0,ASR#AC%
�MOV R1,R1,ASR#AC%
�MOV R2,R2,ASR#AC%
SUB R0,R0,#128
SUB R1,R1,#128
ADD R2,R2,#160
"
MOV R3,#0
,MOV R4,#1<<16
6]:�U%=10�1�-1:[OPT T%
@CMP R2,R4,ASR#U%
JSUBLE R4,R4,R2,ASL#U%
TADDLE R3,R3,#1<<U%
^]:�:[OPT T%
h
CMP R2,R4
rADDLE R3,R3,#1
|MUL R0,R3,R0
�MUL R1,R3,R1
�MOV R0,R0,ASR#16-7
�MOV R1,R1,ASR#16-7
�ADD R0,R0,#160-16
�RSB R1,R1,#127-16
�OPT �adr(11,spr%,2)
�MOV R3,R3,ASR#16-7-NSP%
�RSBS R3,R3,#(1<<NSP%)-1
�MOVLT R3,#0
�CMP R3,#nospr%-1
�MOVGT R3,#nospr%-1
�ADD R11,R11,R3,ASL#5+5
�LDR R12,scraddr%
ADD R12,R12,R1,ASL#5
ADD R12,R12,R1,ASL#7
MOV R1,R0,ASR#3
&SUB R0,R0,R1,ASL#3
0ADD R12,R12,R1,ASL#2
:STR R0,test%
DSTR R3,test%+4
NSTR R11,test%+8
XSTR R12,test%+12
bADR R1,plotj%
lLDR R0,[R1,R0,ASL#2]
vADR R14,plotreturn%
�ADD PC,R1,R0
�:
�.plotreturn%
�LDMFD R13!,{R11-R12}
�ADD R12,R12,#32
�SUBS R11,R11,#1
�BGT posloop%
�LDMFD R13!,{PC}
�:
�.plotdummy%
�MOV PC,R14
�:
�.plotj%
]:�U%=0�7:[OPT T%
EQUD plotdummy%-plotj%
]:�:[OPT T%
 :
*OPT �registerj(plotj%,0)
4MOV R10,#32
>.yloop%
HLDMIA R12,{R0-R3}
RLDMIA R11!,{R5-R8}
\BIC R0,R0,R5
f�R R0,R0,R6
pBIC R1,R1,R7
z�R R1,R1,R8
�LDMIA R11!,{R5-R8}
�BIC R2,R2,R5
��R R2,R2,R6
�BIC R3,R3,R7
��R R3,R3,R8
�STMIA R12,{R0-R3}
�ADD R12,R12,#160
�SUBS R10,R10,#1
�BGT yloop%
�MOV PC,R14
�:
�]:�U%=1�7:V%=U%*4:[OPT T%
�OPT �registerj(plotj%,U%)
	MOV R10,#32
	.yloop%
	LDMIA R12,{R0-R4}
	$LDMIA R11!,{R5-R8}
	..BIC R0,R0,R5,LSL#V%:BIC R1,R1,R5,LSR#32-V%
	8,�R R0,R0,R6,LSL#V%:�R R1,R1,R6,LSR#32-V%
	B.BIC R1,R1,R7,LSL#V%:BIC R2,R2,R7,LSR#32-V%
	L,�R R1,R1,R8,LSL#V%:�R R2,R2,R8,LSR#32-V%
	VLDMIA R11!,{R5-R8}
	`.BIC R2,R2,R5,LSL#V%:BIC R3,R3,R5,LSR#32-V%
	j,�R R2,R2,R6,LSL#V%:�R R3,R3,R6,LSR#32-V%
	t.BIC R3,R3,R7,LSL#V%:BIC R4,R4,R7,LSR#32-V%
	~,�R R3,R3,R8,LSL#V%:�R R4,R4,R8,LSR#32-V%
	�STMIA R12,{R0-R4}
	�ADD R12,R12,#160
	�SUBS R10,R10,#1
	�BGT yloop%
	�MOV PC,R14
	�]:�:[OPT T%
	�:
	�5]:�P%>code%+codelen%��255,"Code isn't big enough"
	��
	��
�

00000000  0d 00 0a 08 eb 39 3a 87  0d 00 14 24 e3 54 25 3d  |.....9:....$.T%=|
00000010  30 b8 31 35 3a fb 54 25  2c 54 25 3c 3c 34 2c 54  |0.15:.T%,T%<<4,T|
00000020  25 3c 3c 34 2c 54 25 3c  3c 34 3a ed 0d 00 1e 0e  |%<<4,T%<<4:.....|
00000030  f2 63 6f 6e 73 74 61 6e  74 73 0d 00 28 1e de 73  |.constants..(..s|
00000040  70 61 63 65 25 73 70 61  63 65 6c 65 6e 25 3a 50  |pace%spacelen%:P|
00000050  25 3d 73 70 61 63 65 25  0d 00 32 19 63 6f 64 65  |%=space%..2.code|
00000060  25 3d 50 25 3a 50 25 2b  3d 63 6f 64 65 6c 65 6e  |%=P%:P%+=codelen|
00000070  25 0d 00 3c 1c 73 70 72  25 3d 50 25 3a 50 25 2b  |%..<.spr%=P%:P%+|
00000080  3d 6e 6f 73 70 72 25 2a  33 32 2a 33 32 0d 00 46  |=nospr%*32*32..F|
00000090  19 70 6f 73 25 3d 50 25  3a 50 25 2b 3d 33 32 2a  |.pos%=P%:P%+=32*|
000000a0  6e 6f 70 6f 73 25 0d 00  50 0d f2 61 73 73 65 6d  |nopos%..P..assem|
000000b0  62 6c 65 0d 00 5a 0d f2  73 65 74 75 70 73 70 72  |ble..Z..setupspr|
000000c0  0d 00 64 0d f2 73 65 74  75 70 70 6f 73 0d 00 6e  |..d..setuppos..n|
000000d0  14 53 54 25 3d 91 3a f5  3a 54 25 3d 91 2d 53 54  |.ST%=.:.:T%=.-ST|
000000e0  25 0d 00 78 17 43 31 25  3d 31 39 32 2b 36 34 2a  |%..x.C1%=192+64*|
000000f0  b5 28 54 25 2f 35 30 29  0d 00 82 17 43 32 25 3d  |.(T%/50)....C2%=|
00000100  31 39 32 2b 36 34 2a b5  28 54 25 2f 35 36 29 0d  |192+64*.(T%/56).|
00000110  00 8c 17 43 33 25 3d 31  39 32 2b 36 34 2a b5 28  |...C3%=192+64*.(|
00000120  54 25 2f 35 39 29 0d 00  96 30 e3 55 25 3d 30 b8  |T%/59)...0.U%=0.|
00000130  31 35 3a fb 55 25 2c 55  25 2a 43 31 25 3e 3e 34  |15:.U%,U%*C1%>>4|
00000140  2c 55 25 2a 43 32 25 3e  3e 34 2c 55 25 2a 43 33  |,U%*C2%>>4,U%*C3|
00000150  25 3e 3e 34 3a ed 0d 00  a0 0b d6 66 72 61 6d 65  |%>>4:......frame|
00000160  25 0d 00 aa 06 fd 30 0d  00 b4 05 e0 0d 00 be 05  |%.....0.........|
00000170  3a 0d 00 c8 05 3a 0d 00  d2 0f dd f2 63 6f 6e 73  |:....:......cons|
00000180  74 61 6e 74 73 0d 00 dc  11 56 43 25 3d 31 32 3a  |tants....VC%=12:|
00000190  41 43 25 3d 31 36 0d 00  e6 23 73 70 61 63 65 6c  |AC%=16...#spacel|
000001a0  65 6e 25 3d 26 34 30 30  30 30 3a 63 6f 64 65 6c  |en%=&40000:codel|
000001b0  65 6e 25 3d 26 34 30 30  30 0d 00 f0 14 4e 53 50  |en%=&4000....NSP|
000001c0  25 3d 35 3a 6e 6f 73 70  72 25 3d 32 34 0d 00 fa  |%=5:nospr%=24...|
000001d0  0d 6e 6f 70 6f 73 25 3d  35 30 0d 01 04 05 e1 0d  |.nopos%=50......|
000001e0  01 0e 05 3a 0d 01 18 0e  dd f2 73 65 74 75 70 73  |...:......setups|
000001f0  70 72 0d 01 22 1b 50 25  3d 73 70 72 25 3a 21 50  |pr..".P%=spr%:!P|
00000200  25 3d 31 34 38 3a 50 25  21 34 3d 2d 31 0d 01 2c  |%=148:P%!4=-1..,|
00000210  2a c8 99 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |*.."OS_ReadVduVa|
00000220  72 69 61 62 6c 65 73 22  2c 50 25 2c 50 25 3a 73  |riables",P%,P%:s|
00000230  63 72 25 3d 21 50 25 0d  01 36 1a 4c 58 3d 2d 31  |cr%=!P%..6.LX=-1|
00000240  2f 33 3a 4c 59 3d 32 2f  33 3a 4c 5a 3d 2d 32 2f  |/3:LY=2/3:LZ=-2/|
00000250  33 0d 01 40 14 e3 54 25  3d 30 b8 6e 6f 73 70 72  |3..@..T%=0.nospr|
00000260  25 2d 31 3a db 0d 01 4a  25 53 3d 36 34 2a 28 31  |%-1:...J%S=64*(1|
00000270  2d 28 54 25 2b 2e 35 29  2f 28 31 3c 3c 4e 53 50  |-(T%+.5)/(1<<NSP|
00000280  25 29 29 3a 53 32 3d 53  2a 53 0d 01 54 1d e3 58  |%)):S2=S*S..T..X|
00000290  25 3d 2d 36 32 b8 36 32  88 34 3a e3 59 25 3d 2d  |%=-62.62.4:.Y%=-|
000002a0  36 32 b8 36 32 88 34 0d  01 5e 1d 52 32 25 3d 58  |62.62.4..^.R2%=X|
000002b0  25 2a 58 25 2b 59 25 2a  59 25 3a e7 53 32 3e 3d  |%*X%+Y%*Y%:.S2>=|
000002c0  52 32 25 8c 0d 01 68 30  5a 3d 2d b6 28 53 32 2d  |R2%...h0Z=-.(S2-|
000002d0  52 32 25 29 3a 42 3d 28  4c 58 2a 58 25 2b 4c 59  |R2%):B=(LX*X%+LY|
000002e0  2a 59 25 2b 4c 5a 2a 5a  29 2f 53 3a e7 42 3c 30  |*Y%+LZ*Z)/S:.B<0|
000002f0  8c 42 3d 30 0d 01 69 42  c8 99 22 43 6f 6c 6f 75  |.B=0..iB.."Colou|
00000300  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 2c  |rTrans_SetGCOL",|
00000310  a8 28 31 36 2b 42 2a 32  34 30 29 2a 28 31 2b 32  |.(16+B*240)*(1+2|
00000320  5e 38 2b 32 5e 31 36 29  3a c8 92 58 25 2b 36 34  |^8+2^16):..X%+64|
00000330  2c 59 25 2b 36 34 0d 01  7c 08 cd 3a ed 2c 0d 01  |,Y%+64..|..:.,..|
00000340  86 18 53 25 3d 73 63 72  25 2b 28 32 35 36 2d 33  |..S%=scr%+(256-3|
00000350  32 29 2a 31 36 30 0d 01  90 17 e3 59 25 3d 30 b8  |2)*160.....Y%=0.|
00000360  33 31 3a e3 58 25 3d 30  b8 33 31 88 38 0d 01 9a  |31:.X%=0.31.8...|
00000370  1b 50 25 21 34 3d 53 25  21 28 58 25 3e 3e 33 2d  |.P%!4=S%!(X%>>3-|
00000380  32 29 3a 21 50 25 3d 30  0d 01 a4 17 e3 55 25 3d  |2):!P%=0.....U%=|
00000390  30 b8 37 3a 57 25 3d 26  46 3c 3c 55 25 2a 34 0d  |0.7:W%=&F<<U%*4.|
000003a0  01 ae 1c e7 28 57 25 80  50 25 21 34 29 3c 3e 30  |....(W%.P%!4)<>0|
000003b0  8c 21 50 25 3d 21 50 25  84 57 25 0d 01 b8 17 ed  |.!P%=!P%.W%.....|
000003c0  3a 50 25 2b 3d 38 3a ed  3a 53 25 2b 3d 31 36 30  |:P%+=8:.:S%+=160|
000003d0  3a ed 0d 01 c2 05 ed 0d  01 cc 05 e1 0d 01 d6 05  |:...............|
000003e0  3a 0d 01 e0 0e dd f2 73  65 74 75 70 70 6f 73 0d  |:......setuppos.|
000003f0  01 ea 20 e3 54 25 3d 30  b8 6e 6f 70 6f 73 25 2d  |.. .T%=0.nopos%-|
00000400  31 3a 55 25 3d 70 6f 73  25 2b 33 32 2a 54 25 0d  |1:U%=pos%+32*T%.|
00000410  01 f4 15 21 55 25 3d b3  28 32 35 36 29 2d 31 3c  |...!U%=.(256)-1<|
00000420  3c 41 43 25 0d 01 fe 16  55 25 21 34 3d b3 28 32  |<AC%....U%!4=.(2|
00000430  35 36 29 2d 31 3c 3c 41  43 25 0d 02 08 16 55 25  |56)-1<<AC%....U%|
00000440  21 38 3d b3 28 32 35 36  29 2d 31 3c 3c 41 43 25  |!8=.(256)-1<<AC%|
00000450  0d 02 12 1c 55 25 21 31  32 3d b3 28 38 3c 3c 41  |....U%!12=.(8<<A|
00000460  43 25 29 2d 28 34 3c 3c  41 43 25 29 0d 02 1c 1c  |C%)-(4<<AC%)....|
00000470  55 25 21 31 36 3d b3 28  38 3c 3c 41 43 25 29 2d  |U%!16=.(8<<AC%)-|
00000480  28 34 3c 3c 41 43 25 29  0d 02 26 1c 55 25 21 32  |(4<<AC%)..&.U%!2|
00000490  30 3d b3 28 38 3c 3c 41  43 25 29 2d 28 34 3c 3c  |0=.(8<<AC%)-(4<<|
000004a0  41 43 25 29 0d 02 30 05  ed 0d 02 3a 05 e1 0d 02  |AC%)..0....:....|
000004b0  44 05 3a 0d 02 4e 13 dd  a4 61 64 72 28 52 25 2c  |D.:..N...adr(R%,|
000004c0  41 25 2c 49 25 29 0d 02  58 2c e7 28 50 25 80 33  |A%,I%)..X,.(P%.3|
000004d0  29 3c 3e 30 8c f1 22 43  6f 64 65 20 69 73 6e 27  |)<>0.."Code isn'|
000004e0  74 20 77 6f 72 64 20 61  6c 69 67 6e 65 64 21 22  |t word aligned!"|
000004f0  3a e0 0d 02 62 1b e7 28  54 25 80 32 29 3d 30 8c  |:...b..(T%.2)=0.|
00000500  50 25 2b 3d 49 25 3c 3c  32 3a 3d 54 25 0d 02 6c  |P%+=I%<<2:=T%..l|
00000510  28 ea 4e 25 2c 4f 25 2c  48 25 2c 55 25 3a 48 25  |(.N%,O%,H%,U%:H%|
00000520  3d 41 25 2d 28 50 25 2b  38 29 3a 4e 25 3d 30 3a  |=A%-(P%+8):N%=0:|
00000530  4f 25 3d 31 35 0d 02 76  13 e3 55 25 3d 31 b8 49  |O%=15..v..U%=1.I|
00000540  25 3a e7 48 25 3d 30 8c  0d 02 80 17 5b 4f 50 54  |%:.H%=0.....[OPT|
00000550  20 54 25 3a 4d 4f 56 20  52 25 2c 4f 25 3a 5d 0d  | T%:MOV R%,O%:].|
00000560  02 8a 20 cc c8 95 28 48  25 80 33 29 3d 30 3a 48  |.. ...(H%.3)=0:H|
00000570  25 3d 48 25 3e 3e 32 3a  4e 25 2b 3d 32 3a ce 0d  |%=H%>>2:N%+=2:..|
00000580  02 94 10 e7 28 48 25 80  32 35 36 29 3d 30 8c 0d  |....(H%.256)=0..|
00000590  02 9e 30 5b 4f 50 54 20  54 25 3a 41 44 44 20 52  |..0[OPT T%:ADD R|
000005a0  25 2c 4f 25 2c 23 28 48  25 80 32 35 35 29 3c 3c  |%,O%,#(H%.255)<<|
000005b0  4e 25 3a 5d 3a 48 25 2d  3d 48 25 80 32 35 35 0d  |N%:]:H%-=H%.255.|
000005c0  02 a8 39 cc 5b 4f 50 54  20 54 25 3a 53 55 42 20  |..9.[OPT T%:SUB |
000005d0  52 25 2c 4f 25 2c 23 28  32 35 36 2d 48 25 80 32  |R%,O%,#(256-H%.2|
000005e0  35 35 29 3c 3c 4e 25 3a  5d 3a 48 25 2b 3d 32 35  |55)<<N%:]:H%+=25|
000005f0  36 2d 48 25 80 32 35 35  0d 02 b2 05 cd 0d 02 bc  |6-H%.255........|
00000600  0d cd 3a 4f 25 3d 52 25  3a ed 0d 02 c6 4a e7 48  |..:O%=R%:....J.H|
00000610  25 3c 3e 30 8c f1 22 43  6f 75 6c 64 20 6e 6f 74  |%<>0.."Could not|
00000620  20 41 44 52 20 74 6f 20  22 3b 41 25 3b 22 20 69  | ADR to ";A%;" i|
00000630  6e 20 22 3b 49 25 3b 22  20 69 6e 73 74 72 75 63  |n ";I%;" instruc|
00000640  74 69 6f 6e 73 20 28 52  25 3d 22 3b 52 25 3b 22  |tions (R%=";R%;"|
00000650  29 22 3a e0 0d 02 d0 07  3d 54 25 0d 02 da 05 3a  |)":.....=T%....:|
00000660  0d 02 e4 16 dd a4 72 65  67 69 73 74 65 72 6a 28  |......registerj(|
00000670  4a 25 2c 4e 25 29 0d 02  ee 14 4a 25 21 28 4e 25  |J%,N%)....J%!(N%|
00000680  3c 3c 32 29 3d 50 25 2d  4a 25 0d 02 f8 07 3d 54  |<<2)=P%-J%....=T|
00000690  25 0d 03 02 05 3a 0d 03  0c 0e dd f2 61 73 73 65  |%....:......asse|
000006a0  6d 62 6c 65 0d 03 16 16  e3 54 25 3d 30 b8 32 88  |mble.....T%=0.2.|
000006b0  32 3a 50 25 3d 63 6f 64  65 25 0d 03 20 0b 5b 4f  |2:P%=code%.. .[O|
000006c0  50 54 20 54 25 0d 03 2a  05 3a 0d 03 34 0a 2e 74  |PT T%..*.:..4..t|
000006d0  65 73 74 25 0d 03 3e 23  45 51 55 44 20 2d 31 3a  |est%..>#EQUD -1:|
000006e0  45 51 55 44 20 2d 31 3a  45 51 55 44 20 2d 31 3a  |EQUD -1:EQUD -1:|
000006f0  45 51 55 44 20 2d 31 0d  03 48 23 45 51 55 44 20  |EQUD -1..H#EQUD |
00000700  2d 31 3a 45 51 55 44 20  2d 31 3a 45 51 55 44 20  |-1:EQUD -1:EQUD |
00000710  2d 31 3a 45 51 55 44 20  2d 31 0d 03 52 23 45 51  |-1:EQUD -1..R#EQ|
00000720  55 44 20 2d 31 3a 45 51  55 44 20 2d 31 3a 45 51  |UD -1:EQUD -1:EQ|
00000730  55 44 20 2d 31 3a 45 51  55 44 20 2d 31 0d 03 5c  |UD -1:EQUD -1..\|
00000740  23 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |#EQUD -1:EQUD -1|
00000750  3a 45 51 55 44 20 2d 31  3a 45 51 55 44 20 2d 31  |:EQUD -1:EQUD -1|
00000760  0d 03 66 05 3a 0d 03 70  1e 2e 76 64 75 76 61 72  |..f.:..p..vduvar|
00000770  73 25 3a 45 51 55 44 20  31 34 38 3a 45 51 55 44  |s%:EQUD 148:EQUD|
00000780  20 2d 31 0d 03 7a 15 2e  73 63 72 61 64 64 72 25  | -1..z..scraddr%|
00000790  3a 45 51 55 44 20 2d 31  0d 03 84 11 2e 62 61 6e  |:EQUD -1.....ban|
000007a0  6b 25 3a 45 51 55 44 20  31 0d 03 8e 05 3a 0d 03  |k%:EQUD 1....:..|
000007b0  98 0b 2e 66 72 61 6d 65  25 0d 03 a2 14 53 54 4d  |...frame%....STM|
000007c0  46 44 20 52 31 33 21 2c  7b 52 31 34 7d 0d 03 ac  |FD R13!,{R14}...|
000007d0  10 4c 44 52 20 52 31 2c  62 61 6e 6b 25 0d 03 b6  |.LDR R1,bank%...|
000007e0  0d 43 4d 50 20 52 31 2c  23 31 0d 03 c0 0c ec 51  |.CMP R1,#1.....Q|
000007f0  20 52 31 2c 23 32 0d 03  ca 0f 4d 4f 56 4e 45 20  | R1,#2....MOVNE |
00000800  52 31 2c 23 31 0d 03 d4  10 53 54 52 20 52 31 2c  |R1,#1....STR R1,|
00000810  62 61 6e 6b 25 0d 03 de  0f 4d 4f 56 20 52 30 2c  |bank%....MOV R0,|
00000820  23 31 31 32 0d 03 e8 11  53 57 49 20 22 4f 53 5f  |#112....SWI "OS_|
00000830  42 79 74 65 22 0d 03 f2  13 41 44 52 20 52 30 2c  |Byte"....ADR R0,|
00000840  76 64 75 76 61 72 73 25  0d 03 fc 13 41 44 52 20  |vduvars%....ADR |
00000850  52 31 2c 73 63 72 61 64  64 72 25 0d 04 06 1d 53  |R1,scraddr%....S|
00000860  57 49 20 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |WI "OS_ReadVduVa|
00000870  72 69 61 62 6c 65 73 22  0d 04 10 0e 4d 4f 56 20  |riables"....MOV |
00000880  52 30 2c 23 31 39 0d 04  1a 11 53 57 49 20 22 4f  |R0,#19....SWI "O|
00000890  53 5f 42 79 74 65 22 0d  04 24 0c 53 57 49 20 26  |S_Byte"..$.SWI &|
000008a0  31 30 43 0d 04 2e 0d 42  4c 20 74 68 69 6e 6b 25  |10C....BL think%|
000008b0  0d 04 38 0c 42 4c 20 64  72 61 77 25 0d 04 42 0f  |..8.BL draw%..B.|
000008c0  4d 4f 56 20 52 30 2c 23  31 31 33 0d 04 4c 10 4c  |MOV R0,#113..L.L|
000008d0  44 52 20 52 31 2c 62 61  6e 6b 25 0d 04 56 11 53  |DR R1,bank%..V.S|
000008e0  57 49 20 22 4f 53 5f 42  79 74 65 22 0d 04 60 13  |WI "OS_Byte"..`.|
000008f0  4c 44 4d 46 44 20 52 31  33 21 2c 7b 50 43 7d 0d  |LDMFD R13!,{PC}.|
00000900  04 6a 05 3a 0d 04 74 0b  2e 74 68 69 6e 6b 25 0d  |.j.:..t..think%.|
00000910  04 7e 14 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |.~.STMFD R13!,{R|
00000920  31 34 7d 0d 04 88 17 4f  50 54 20 a4 61 64 72 28  |14}....OPT .adr(|
00000930  31 32 2c 70 6f 73 25 2c  32 29 0d 04 92 13 4d 4f  |12,pos%,2)....MO|
00000940  56 20 52 31 31 2c 23 6e  6f 70 6f 73 25 0d 04 9c  |V R11,#nopos%...|
00000950  0d 2e 70 6f 73 6c 6f 6f  70 25 0d 04 a6 1b 4c 44  |..posloop%....LD|
00000960  4d 49 41 20 52 31 32 2c  7b 52 30 2d 52 32 2c 52  |MIA R12,{R0-R2,R|
00000970  33 2d 52 35 7d 0d 04 b0  11 41 44 44 53 20 52 30  |3-R5}....ADDS R0|
00000980  2c 52 30 2c 52 33 0d 04  ba 12 52 53 42 4c 54 20  |,R0,R3....RSBLT |
00000990  52 33 2c 52 33 2c 23 30  0d 04 c4 12 41 44 44 4c  |R3,R3,#0....ADDL|
000009a0  54 20 52 30 2c 52 30 2c  52 33 0d 04 ce 14 43 4d  |T R0,R0,R3....CM|
000009b0  50 20 52 30 2c 23 32 35  36 3c 3c 41 43 25 0d 04  |P R0,#256<<AC%..|
000009c0  d8 12 52 53 42 47 45 20  52 33 2c 52 33 2c 23 30  |..RSBGE R3,R3,#0|
000009d0  0d 04 e2 12 41 44 44 47  45 20 52 30 2c 52 30 2c  |....ADDGE R0,R0,|
000009e0  52 33 0d 04 ec 11 41 44  44 53 20 52 31 2c 52 31  |R3....ADDS R1,R1|
000009f0  2c 52 34 0d 04 f6 12 52  53 42 4c 54 20 52 34 2c  |,R4....RSBLT R4,|
00000a00  52 34 2c 23 30 0d 05 00  12 41 44 44 4c 54 20 52  |R4,#0....ADDLT R|
00000a10  31 2c 52 31 2c 52 34 0d  05 0a 14 43 4d 50 20 52  |1,R1,R4....CMP R|
00000a20  31 2c 23 32 35 36 3c 3c  41 43 25 0d 05 14 12 52  |1,#256<<AC%....R|
00000a30  53 42 47 45 20 52 34 2c  52 34 2c 23 30 0d 05 1e  |SBGE R4,R4,#0...|
00000a40  12 41 44 44 47 45 20 52  31 2c 52 31 2c 52 34 0d  |.ADDGE R1,R1,R4.|
00000a50  05 28 11 41 44 44 53 20  52 32 2c 52 32 2c 52 35  |.(.ADDS R2,R2,R5|
00000a60  0d 05 32 12 52 53 42 4c  54 20 52 35 2c 52 35 2c  |..2.RSBLT R5,R5,|
00000a70  23 30 0d 05 3c 12 41 44  44 4c 54 20 52 32 2c 52  |#0..<.ADDLT R2,R|
00000a80  32 2c 52 35 0d 05 46 14  43 4d 50 20 52 32 2c 23  |2,R5..F.CMP R2,#|
00000a90  32 35 36 3c 3c 41 43 25  0d 05 50 12 52 53 42 47  |256<<AC%..P.RSBG|
00000aa0  45 20 52 35 2c 52 35 2c  23 30 0d 05 5a 12 41 44  |E R5,R5,#0..Z.AD|
00000ab0  44 47 45 20 52 32 2c 52  32 2c 52 35 0d 05 64 1b  |DGE R2,R2,R5..d.|
00000ac0  53 54 4d 49 41 20 52 31  32 2c 7b 52 30 2d 52 32  |STMIA R12,{R0-R2|
00000ad0  2c 52 33 2d 52 35 7d 0d  05 6e 13 41 44 44 20 52  |,R3-R5}..n.ADD R|
00000ae0  31 32 2c 52 31 32 2c 23  33 32 0d 05 78 13 53 55  |12,R12,#32..x.SU|
00000af0  42 53 20 52 31 31 2c 52  31 31 2c 23 31 0d 05 82  |BS R11,R11,#1...|
00000b00  10 42 47 54 20 70 6f 73  6c 6f 6f 70 25 0d 05 8c  |.BGT posloop%...|
00000b10  13 4c 44 4d 46 44 20 52  31 33 21 2c 7b 50 43 7d  |.LDMFD R13!,{PC}|
00000b20  0d 05 96 05 3a 0d 05 a0  0a 2e 64 72 61 77 25 0d  |....:.....draw%.|
00000b30  05 aa 14 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |...STMFD R13!,{R|
00000b40  31 34 7d 0d 05 b4 17 4f  50 54 20 a4 61 64 72 28  |14}....OPT .adr(|
00000b50  31 32 2c 70 6f 73 25 2c  32 29 0d 05 be 13 4d 4f  |12,pos%,2)....MO|
00000b60  56 20 52 31 31 2c 23 6e  6f 70 6f 73 25 0d 05 c8  |V R11,#nopos%...|
00000b70  0d 2e 70 6f 73 6c 6f 6f  70 25 0d 05 d2 18 53 54  |..posloop%....ST|
00000b80  4d 46 44 20 52 31 33 21  2c 7b 52 31 31 2d 52 31  |MFD R13!,{R11-R1|
00000b90  32 7d 0d 05 dc 15 4c 44  4d 49 41 20 52 31 32 2c  |2}....LDMIA R12,|
00000ba0  7b 52 30 2d 52 32 7d 0d  05 e6 15 4d 4f 56 20 52  |{R0-R2}....MOV R|
00000bb0  30 2c 52 30 2c 41 53 52  23 41 43 25 0d 05 f0 15  |0,R0,ASR#AC%....|
00000bc0  4d 4f 56 20 52 31 2c 52  31 2c 41 53 52 23 41 43  |MOV R1,R1,ASR#AC|
00000bd0  25 0d 05 fa 15 4d 4f 56  20 52 32 2c 52 32 2c 41  |%....MOV R2,R2,A|
00000be0  53 52 23 41 43 25 0d 06  04 12 53 55 42 20 52 30  |SR#AC%....SUB R0|
00000bf0  2c 52 30 2c 23 31 32 38  0d 06 0e 12 53 55 42 20  |,R0,#128....SUB |
00000c00  52 31 2c 52 31 2c 23 31  32 38 0d 06 18 12 41 44  |R1,R1,#128....AD|
00000c10  44 20 52 32 2c 52 32 2c  23 31 36 30 0d 06 22 0d  |D R2,R2,#160..".|
00000c20  4d 4f 56 20 52 33 2c 23  30 0d 06 2c 11 4d 4f 56  |MOV R3,#0..,.MOV|
00000c30  20 52 34 2c 23 31 3c 3c  31 36 0d 06 36 19 5d 3a  | R4,#1<<16..6.]:|
00000c40  e3 55 25 3d 31 30 b8 31  88 2d 31 3a 5b 4f 50 54  |.U%=10.1.-1:[OPT|
00000c50  20 54 25 0d 06 40 14 43  4d 50 20 52 32 2c 52 34  | T%..@.CMP R2,R4|
00000c60  2c 41 53 52 23 55 25 0d  06 4a 19 53 55 42 4c 45  |,ASR#U%..J.SUBLE|
00000c70  20 52 34 2c 52 34 2c 52  32 2c 41 53 4c 23 55 25  | R4,R4,R2,ASL#U%|
00000c80  0d 06 54 16 41 44 44 4c  45 20 52 33 2c 52 33 2c  |..T.ADDLE R3,R3,|
00000c90  23 31 3c 3c 55 25 0d 06  5e 0f 5d 3a ed 3a 5b 4f  |#1<<U%..^.]:.:[O|
00000ca0  50 54 20 54 25 0d 06 68  0d 43 4d 50 20 52 32 2c  |PT T%..h.CMP R2,|
00000cb0  52 34 0d 06 72 12 41 44  44 4c 45 20 52 33 2c 52  |R4..r.ADDLE R3,R|
00000cc0  33 2c 23 31 0d 06 7c 10  4d 55 4c 20 52 30 2c 52  |3,#1..|.MUL R0,R|
00000cd0  33 2c 52 30 0d 06 86 10  4d 55 4c 20 52 31 2c 52  |3,R0....MUL R1,R|
00000ce0  33 2c 52 31 0d 06 90 16  4d 4f 56 20 52 30 2c 52  |3,R1....MOV R0,R|
00000cf0  30 2c 41 53 52 23 31 36  2d 37 0d 06 9a 16 4d 4f  |0,ASR#16-7....MO|
00000d00  56 20 52 31 2c 52 31 2c  41 53 52 23 31 36 2d 37  |V R1,R1,ASR#16-7|
00000d10  0d 06 a4 15 41 44 44 20  52 30 2c 52 30 2c 23 31  |....ADD R0,R0,#1|
00000d20  36 30 2d 31 36 0d 06 ae  15 52 53 42 20 52 31 2c  |60-16....RSB R1,|
00000d30  52 31 2c 23 31 32 37 2d  31 36 0d 06 b8 17 4f 50  |R1,#127-16....OP|
00000d40  54 20 a4 61 64 72 28 31  31 2c 73 70 72 25 2c 32  |T .adr(11,spr%,2|
00000d50  29 0d 06 c2 1b 4d 4f 56  20 52 33 2c 52 33 2c 41  |)....MOV R3,R3,A|
00000d60  53 52 23 31 36 2d 37 2d  4e 53 50 25 0d 06 cc 1b  |SR#16-7-NSP%....|
00000d70  52 53 42 53 20 52 33 2c  52 33 2c 23 28 31 3c 3c  |RSBS R3,R3,#(1<<|
00000d80  4e 53 50 25 29 2d 31 0d  06 d6 0f 4d 4f 56 4c 54  |NSP%)-1....MOVLT|
00000d90  20 52 33 2c 23 30 0d 06  e0 14 43 4d 50 20 52 33  | R3,#0....CMP R3|
00000da0  2c 23 6e 6f 73 70 72 25  2d 31 0d 06 ea 16 4d 4f  |,#nospr%-1....MO|
00000db0  56 47 54 20 52 33 2c 23  6e 6f 73 70 72 25 2d 31  |VGT R3,#nospr%-1|
00000dc0  0d 06 f4 1a 41 44 44 20  52 31 31 2c 52 31 31 2c  |....ADD R11,R11,|
00000dd0  52 33 2c 41 53 4c 23 35  2b 35 0d 06 fe 14 4c 44  |R3,ASL#5+5....LD|
00000de0  52 20 52 31 32 2c 73 63  72 61 64 64 72 25 0d 07  |R R12,scraddr%..|
00000df0  08 18 41 44 44 20 52 31  32 2c 52 31 32 2c 52 31  |..ADD R12,R12,R1|
00000e00  2c 41 53 4c 23 35 0d 07  12 18 41 44 44 20 52 31  |,ASL#5....ADD R1|
00000e10  32 2c 52 31 32 2c 52 31  2c 41 53 4c 23 37 0d 07  |2,R12,R1,ASL#7..|
00000e20  1c 13 4d 4f 56 20 52 31  2c 52 30 2c 41 53 52 23  |..MOV R1,R0,ASR#|
00000e30  33 0d 07 26 16 53 55 42  20 52 30 2c 52 30 2c 52  |3..&.SUB R0,R0,R|
00000e40  31 2c 41 53 4c 23 33 0d  07 30 18 41 44 44 20 52  |1,ASL#3..0.ADD R|
00000e50  31 32 2c 52 31 32 2c 52  31 2c 41 53 4c 23 32 0d  |12,R12,R1,ASL#2.|
00000e60  07 3a 10 53 54 52 20 52  30 2c 74 65 73 74 25 0d  |.:.STR R0,test%.|
00000e70  07 44 12 53 54 52 20 52  33 2c 74 65 73 74 25 2b  |.D.STR R3,test%+|
00000e80  34 0d 07 4e 13 53 54 52  20 52 31 31 2c 74 65 73  |4..N.STR R11,tes|
00000e90  74 25 2b 38 0d 07 58 14  53 54 52 20 52 31 32 2c  |t%+8..X.STR R12,|
00000ea0  74 65 73 74 25 2b 31 32  0d 07 62 11 41 44 52 20  |test%+12..b.ADR |
00000eb0  52 31 2c 70 6c 6f 74 6a  25 0d 07 6c 18 4c 44 52  |R1,plotj%..l.LDR|
00000ec0  20 52 30 2c 5b 52 31 2c  52 30 2c 41 53 4c 23 32  | R0,[R1,R0,ASL#2|
00000ed0  5d 0d 07 76 17 41 44 52  20 52 31 34 2c 70 6c 6f  |]..v.ADR R14,plo|
00000ee0  74 72 65 74 75 72 6e 25  0d 07 80 10 41 44 44 20  |treturn%....ADD |
00000ef0  50 43 2c 52 31 2c 52 30  0d 07 8a 05 3a 0d 07 94  |PC,R1,R0....:...|
00000f00  10 2e 70 6c 6f 74 72 65  74 75 72 6e 25 0d 07 9e  |..plotreturn%...|
00000f10  18 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 31 31  |.LDMFD R13!,{R11|
00000f20  2d 52 31 32 7d 0d 07 a8  13 41 44 44 20 52 31 32  |-R12}....ADD R12|
00000f30  2c 52 31 32 2c 23 33 32  0d 07 b2 13 53 55 42 53  |,R12,#32....SUBS|
00000f40  20 52 31 31 2c 52 31 31  2c 23 31 0d 07 bc 10 42  | R11,R11,#1....B|
00000f50  47 54 20 70 6f 73 6c 6f  6f 70 25 0d 07 c6 13 4c  |GT posloop%....L|
00000f60  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 0d 07  |DMFD R13!,{PC}..|
00000f70  d0 05 3a 0d 07 da 0f 2e  70 6c 6f 74 64 75 6d 6d  |..:.....plotdumm|
00000f80  79 25 0d 07 e4 0e 4d 4f  56 20 50 43 2c 52 31 34  |y%....MOV PC,R14|
00000f90  0d 07 ee 05 3a 0d 07 f8  0b 2e 70 6c 6f 74 6a 25  |....:.....plotj%|
00000fa0  0d 08 02 15 5d 3a e3 55  25 3d 30 b8 37 3a 5b 4f  |....]:.U%=0.7:[O|
00000fb0  50 54 20 54 25 0d 08 0c  1a 45 51 55 44 20 70 6c  |PT T%....EQUD pl|
00000fc0  6f 74 64 75 6d 6d 79 25  2d 70 6c 6f 74 6a 25 0d  |otdummy%-plotj%.|
00000fd0  08 16 0f 5d 3a ed 3a 5b  4f 50 54 20 54 25 0d 08  |...]:.:[OPT T%..|
00000fe0  20 05 3a 0d 08 2a 1c 4f  50 54 20 a4 72 65 67 69  | .:..*.OPT .regi|
00000ff0  73 74 65 72 6a 28 70 6c  6f 74 6a 25 2c 30 29 0d  |sterj(plotj%,0).|
00001000  08 34 0f 4d 4f 56 20 52  31 30 2c 23 33 32 0d 08  |.4.MOV R10,#32..|
00001010  3e 0b 2e 79 6c 6f 6f 70  25 0d 08 48 15 4c 44 4d  |>..yloop%..H.LDM|
00001020  49 41 20 52 31 32 2c 7b  52 30 2d 52 33 7d 0d 08  |IA R12,{R0-R3}..|
00001030  52 16 4c 44 4d 49 41 20  52 31 31 21 2c 7b 52 35  |R.LDMIA R11!,{R5|
00001040  2d 52 38 7d 0d 08 5c 10  42 49 43 20 52 30 2c 52  |-R8}..\.BIC R0,R|
00001050  30 2c 52 35 0d 08 66 0f  84 52 20 52 30 2c 52 30  |0,R5..f..R R0,R0|
00001060  2c 52 36 0d 08 70 10 42  49 43 20 52 31 2c 52 31  |,R6..p.BIC R1,R1|
00001070  2c 52 37 0d 08 7a 0f 84  52 20 52 31 2c 52 31 2c  |,R7..z..R R1,R1,|
00001080  52 38 0d 08 84 16 4c 44  4d 49 41 20 52 31 31 21  |R8....LDMIA R11!|
00001090  2c 7b 52 35 2d 52 38 7d  0d 08 8e 10 42 49 43 20  |,{R5-R8}....BIC |
000010a0  52 32 2c 52 32 2c 52 35  0d 08 98 0f 84 52 20 52  |R2,R2,R5.....R R|
000010b0  32 2c 52 32 2c 52 36 0d  08 a2 10 42 49 43 20 52  |2,R2,R6....BIC R|
000010c0  33 2c 52 33 2c 52 37 0d  08 ac 0f 84 52 20 52 33  |3,R3,R7.....R R3|
000010d0  2c 52 33 2c 52 38 0d 08  b6 15 53 54 4d 49 41 20  |,R3,R8....STMIA |
000010e0  52 31 32 2c 7b 52 30 2d  52 33 7d 0d 08 c0 14 41  |R12,{R0-R3}....A|
000010f0  44 44 20 52 31 32 2c 52  31 32 2c 23 31 36 30 0d  |DD R12,R12,#160.|
00001100  08 ca 13 53 55 42 53 20  52 31 30 2c 52 31 30 2c  |...SUBS R10,R10,|
00001110  23 31 0d 08 d4 0e 42 47  54 20 79 6c 6f 6f 70 25  |#1....BGT yloop%|
00001120  0d 08 de 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 08  |....MOV PC,R14..|
00001130  e8 05 3a 0d 08 f2 1d 5d  3a e3 55 25 3d 31 b8 37  |..:....]:.U%=1.7|
00001140  3a 56 25 3d 55 25 2a 34  3a 5b 4f 50 54 20 54 25  |:V%=U%*4:[OPT T%|
00001150  0d 08 fc 1d 4f 50 54 20  a4 72 65 67 69 73 74 65  |....OPT .registe|
00001160  72 6a 28 70 6c 6f 74 6a  25 2c 55 25 29 0d 09 06  |rj(plotj%,U%)...|
00001170  0f 4d 4f 56 20 52 31 30  2c 23 33 32 0d 09 10 0b  |.MOV R10,#32....|
00001180  2e 79 6c 6f 6f 70 25 0d  09 1a 15 4c 44 4d 49 41  |.yloop%....LDMIA|
00001190  20 52 31 32 2c 7b 52 30  2d 52 34 7d 0d 09 24 16  | R12,{R0-R4}..$.|
000011a0  4c 44 4d 49 41 20 52 31  31 21 2c 7b 52 35 2d 52  |LDMIA R11!,{R5-R|
000011b0  38 7d 0d 09 2e 2e 42 49  43 20 52 30 2c 52 30 2c  |8}....BIC R0,R0,|
000011c0  52 35 2c 4c 53 4c 23 56  25 3a 42 49 43 20 52 31  |R5,LSL#V%:BIC R1|
000011d0  2c 52 31 2c 52 35 2c 4c  53 52 23 33 32 2d 56 25  |,R1,R5,LSR#32-V%|
000011e0  0d 09 38 2c 84 52 20 52  30 2c 52 30 2c 52 36 2c  |..8,.R R0,R0,R6,|
000011f0  4c 53 4c 23 56 25 3a 84  52 20 52 31 2c 52 31 2c  |LSL#V%:.R R1,R1,|
00001200  52 36 2c 4c 53 52 23 33  32 2d 56 25 0d 09 42 2e  |R6,LSR#32-V%..B.|
00001210  42 49 43 20 52 31 2c 52  31 2c 52 37 2c 4c 53 4c  |BIC R1,R1,R7,LSL|
00001220  23 56 25 3a 42 49 43 20  52 32 2c 52 32 2c 52 37  |#V%:BIC R2,R2,R7|
00001230  2c 4c 53 52 23 33 32 2d  56 25 0d 09 4c 2c 84 52  |,LSR#32-V%..L,.R|
00001240  20 52 31 2c 52 31 2c 52  38 2c 4c 53 4c 23 56 25  | R1,R1,R8,LSL#V%|
00001250  3a 84 52 20 52 32 2c 52  32 2c 52 38 2c 4c 53 52  |:.R R2,R2,R8,LSR|
00001260  23 33 32 2d 56 25 0d 09  56 16 4c 44 4d 49 41 20  |#32-V%..V.LDMIA |
00001270  52 31 31 21 2c 7b 52 35  2d 52 38 7d 0d 09 60 2e  |R11!,{R5-R8}..`.|
00001280  42 49 43 20 52 32 2c 52  32 2c 52 35 2c 4c 53 4c  |BIC R2,R2,R5,LSL|
00001290  23 56 25 3a 42 49 43 20  52 33 2c 52 33 2c 52 35  |#V%:BIC R3,R3,R5|
000012a0  2c 4c 53 52 23 33 32 2d  56 25 0d 09 6a 2c 84 52  |,LSR#32-V%..j,.R|
000012b0  20 52 32 2c 52 32 2c 52  36 2c 4c 53 4c 23 56 25  | R2,R2,R6,LSL#V%|
000012c0  3a 84 52 20 52 33 2c 52  33 2c 52 36 2c 4c 53 52  |:.R R3,R3,R6,LSR|
000012d0  23 33 32 2d 56 25 0d 09  74 2e 42 49 43 20 52 33  |#32-V%..t.BIC R3|
000012e0  2c 52 33 2c 52 37 2c 4c  53 4c 23 56 25 3a 42 49  |,R3,R7,LSL#V%:BI|
000012f0  43 20 52 34 2c 52 34 2c  52 37 2c 4c 53 52 23 33  |C R4,R4,R7,LSR#3|
00001300  32 2d 56 25 0d 09 7e 2c  84 52 20 52 33 2c 52 33  |2-V%..~,.R R3,R3|
00001310  2c 52 38 2c 4c 53 4c 23  56 25 3a 84 52 20 52 34  |,R8,LSL#V%:.R R4|
00001320  2c 52 34 2c 52 38 2c 4c  53 52 23 33 32 2d 56 25  |,R4,R8,LSR#32-V%|
00001330  0d 09 88 15 53 54 4d 49  41 20 52 31 32 2c 7b 52  |....STMIA R12,{R|
00001340  30 2d 52 34 7d 0d 09 92  14 41 44 44 20 52 31 32  |0-R4}....ADD R12|
00001350  2c 52 31 32 2c 23 31 36  30 0d 09 9c 13 53 55 42  |,R12,#160....SUB|
00001360  53 20 52 31 30 2c 52 31  30 2c 23 31 0d 09 a6 0e  |S R10,R10,#1....|
00001370  42 47 54 20 79 6c 6f 6f  70 25 0d 09 b0 0e 4d 4f  |BGT yloop%....MO|
00001380  56 20 50 43 2c 52 31 34  0d 09 ba 0f 5d 3a ed 3a  |V PC,R14....]:.:|
00001390  5b 4f 50 54 20 54 25 0d  09 c4 05 3a 0d 09 ce 35  |[OPT T%....:...5|
000013a0  5d 3a e7 50 25 3e 63 6f  64 65 25 2b 63 6f 64 65  |]:.P%>code%+code|
000013b0  6c 65 6e 25 8c 85 32 35  35 2c 22 43 6f 64 65 20  |len%..255,"Code |
000013c0  69 73 6e 27 74 20 62 69  67 20 65 6e 6f 75 67 68  |isn't big enough|
000013d0  22 0d 09 d8 05 ed 0d 09  e2 05 e1 0d ff           |"............|
000013dd