� >Splurge256
#� original by Alistair Turnbull
*� adapted for 256 colour palette by DA
(:
2� � � �$" at line ";�:�
<
F�mode("X640 Y480 G256")
G�
d�constants
n�space%spacelen%:P%=space%
xcode%=P%:P%+=codelen%
�shape%=P%:P%+=4*size%
�pos%=P%:P%+=8*nop%
�*sin%=P%:cos%=sin%+4*256:P%=cos%+4*1024
�6�P%>space%+spacelen%��255,"Space isn't big enough"
�
�assemble
�� i%=0 � 255
� a=i%*2*�/256
� t%=cycle_tab+4*i%
�
 ?t%=0
� t%?1=128+127*�(a)
� t%?2=128+127*�(a*2)
� t%?3=128+127*�(a*3)
� cycle_tab!(4*(i%+256))=!t%

�



L�T%=0�size%-1:Y%=T%*2-size%+1:shape%!(T%<<2)=�(size%*size%-Y%*Y%)+1>>1:�

"2U%=pos%:�T%=0�nop%-1:!U%=320:U%!4=128:U%+=8::�

,3�T%=0�1279:sin%!(T%<<2)=&1D000*�(2*�*T%/1024):�

6�readvduvars%

@�

J�frame%

T�0

^�

h:

r:

|��constants

�spacelen%=&40000

�codelen%=&4000

�size%=32

�
nop%=4096

��

�:

�ݤadr(R%,A%,I%)

�,�(P%�3)<>0��"Code isn't word aligned!":�

��(T%�2)=0�P%+=I%<<2:=T%

�(�N%,O%,H%,U%:H%=A%-(P%+8):N%=0:O%=15

��U%=1�I%:�H%=0�

�[OPT T%:MOV R%,O%:]

� �ȕ(H%�3)=0:H%=H%>>2:N%+=2:�
�(H%�256)=0�
0[OPT T%:ADD R%,O%,#(H%�255)<<N%:]:H%-=H%�255
9�[OPT T%:SUB R%,O%,#(256-H%�255)<<N%:]:H%+=256-H%�255
&�
0
�:O%=R%:�
:J�H%<>0��"Could not ADR to ";A%;" in ";I%;" instructions (R%=";R%;")":�
D=T%
N:
Xݤregisterj(J%,N%)
bJ%!(N%<<2)=P%-J%
l=T%
v:
���assemble
�sp=13:link=14:pc=15
��T%=0�2�2:P%=code%
�[OPT T%
�:
�.vduvars%:EQUD 148:EQUD -1
�.scraddr%:EQUD -1
�.bank%:EQUD -1
�:
�.readvduvars%
�ADR R0,vduvars%
�ADR R1,scraddr%
�SWI "OS_ReadVduVariables"
MOV PC,R14
:
.random%:EQUD �
 .lasttime%:EQUD 0
*.anim%:EQUD 0
4.pp%
>EQUD 0:EQUD 0
HEQUD 0:EQUD 0
REQUD 0:EQUD 0
\:
f.frame%
pSTMFD R13!,{R14}
z.timeloop%
�SWI "OS_ReadMonotonicTime"
�LDR R1,lasttime%
�
CMP R0,R1
�BEQ timeloop%
�STR R0,lasttime%
�MOV R11,#4
�.floop%
�LDR R0,anim%
�SUBS R0,R0,#1
�ADDLT R0,R0,#nop%
�STR R0,anim%
�
TST r0,#7
�BLEQ cycle
�OPT �adr(8,pos%,2)
�ADD R8,R8,R0,ASL#3
LDMIA R8,{R3-R4}
BL dec%
RSB R3,R3,#640
$RSB R4,R4,#480
.BL dec%
8MOV R3,#320<<16-4
BMOV R4,#240<<16-4
LLDR R0,random%
VADR R1,pp%
`
MOV R9,#3
j.ploop%
tOPT �adr(2,sin%,2)
~LDMIA R1,{R5,R6}
�ADD R5,R5,R6
�ADD R0,R0,R0,ASL#1
�ADD R6,R6,R0,ASR#10+4
�CMP R6,#1<<32-10
�MOVGT R6,#1<<32-10
�CMN R6,#1<<32-10
�MVNLT R6,#1<<32-10
�STMIA R1!,{R5,R6}
�RSB R6,R9,#3
�MOV R5,R5,ASL R6
�MOV R5,R5,LSR#32-10
�ADD R5,R2,R5,ASL#2
LDR R6,[R5],#cos%-sin%

LDR R5,[R5]
MLA R3,R5,R9,R3
MLA R4,R6,R9,R4
(SUBS R9,R9,#1
2BGT ploop%
<STR R0,random%
FMOV R3,R3,ASR#16-4
PMOV R4,R4,ASR#16-4
ZSTMIA R8,{R3-R4}
dBL inc%
nRSB R3,R3,#640
xRSB R4,R4,#480
�BL inc%
�SUBS R11,R11,#1
�BGT floop%
�LDMFD R13!,{PC}
�:
�	.inc%
�LDR R10,scraddr%
�ADD R10,R10,R3
�ADD R10,R10,R4,ASL#7
�ADD R10,R10,R4,ASL#9
�OPT �adr(12,shape%,2)
�SUB R10,R10,#(size%>>1)*640
�MOV R0,#size%
.yloop%
LDR R1,[R12],#4
SUB R9,R10,R1
".xloop%
,LDRB R2,[R9]
6ADD R2,R2,#1
@STRB R2,[R9],#1
JLDRB R2,[R9]
TADD R2,R2,#1
^STRB R2,[R9],#1
hSUBS R1,R1,#1
rBGT xloop%
|ADD R10,R10,#640
�SUBS R0,R0,#1
�BGT yloop%
�MOV PC,R14
�:
�	.dec%
�LDR R10,scraddr%
�ADD R10,R10,R3
�ADD R10,R10,R4,ASL#7
�ADD R10,R10,R4,ASL#9
�OPT �adr(12,shape%,2)
�SUB R10,R10,#(size%>>1)*640
�MOV R0,#size%
�.yloop%
LDR R1,[R12],#4
SUB R9,R10,R1
.xloop%
&LDRB R2,[R9]
0SUB R2,R2,#1
:STRB R2,[R9],#1
DLDRB R2,[R9]
NSUB R2,R2,#1
XSTRB R2,[R9],#1
bSUBS R1,R1,#1
lBGT xloop%
vADD R10,R10,#640
�SUBS R0,R0,#1
�BGT yloop%
�MOV PC,R14
�:
�
.cycle
�&        STMFD   (sp)!,{r0-r8,link}
�         LDR     r4,cycle_pos
�        ADD     r4,r4,#1
�        �     r4,r4,#255
�         STR     r4,cycle_pos
�        MVN     r0,#0
�        MOV     r1,#0
�         ADR     r2,cycle_tab
#        ADD     r2,r2,r4,LSL #2
        MOV     r3,#0
        MOV     r4,#0
        LDR     r8,[r2]

        MOV     r14,#0
        STR     r14,[r2]
.        SWI     "ColourTrans_WritePalette"
        STR     r8,[r2]
*%        LDMFD   (sp)!,{r0-r8,pc}^
4        
>.cycle_pos
H        DCD     0
R
\.cycle_tab
f]
pcycle_tab=P%
z
P%+=512*4
�3�P%>code%+codelen%��255,"Code isn't big enough"
��
��
�:
�� �mode(mode$)
�� c$,ex,ey,mode,end
�
� mode 64
�end=mode+20
�!mode=1
�mode!4=��_m(mode$,"X","")
�mode!8=��_m(mode$,"Y","")
�c$=�_m(mode$,"C","*")
�� c$="*" �
	 c$=�_m(mode$,"G","")
	' � c$="256" !end=3:end!4=255:end+=8
	�
	$mode!12=�_bpp(c$)
	. mode!16=��_m(mode$,"F","-1")
	8ex=��_m(mode$,"EX","-1")
	B#� ex<>-1 !end=4:end!4=ex:end+=8
	Ley=��_m(mode$,"EY","-1")
	V#� ey<>-1 !end=5:end!4=ey:end+=8
	`!end=-1
	j
� mode
	t�
	~
	�� �_m(s$,p$,d$)
	�	� i,j
	�
i=�s$,p$)
	�%� i<1 � d$="" � 490,"Missing "+p$
	�� i<1 � =d$
	�j=�s$+" "," ",i+1)
	�=�s$,i+1,j-i-1)
	�
	�� �_bpp(n$)
	�Ȏ n$ �
	�
 � "2":=0
	�
 � "4":=1
 � "16":=2

 � "256":=3
! � "32T","32t","32K","32k":=4
 � "16M","16m":=5
(! : � 490,"Bad parameter "+n$
2�
�

00000000  0d 00 0a 11 f4 20 3e 53  70 6c 75 72 67 65 32 35  |..... >Splurge25|
00000010  36 0d 00 14 23 f4 20 6f  72 69 67 69 6e 61 6c 20  |6...#. original |
00000020  62 79 20 41 6c 69 73 74  61 69 72 20 54 75 72 6e  |by Alistair Turn|
00000030  62 75 6c 6c 0d 00 1e 2a  f4 20 61 64 61 70 74 65  |bull...*. adapte|
00000040  64 20 66 6f 72 20 32 35  36 20 63 6f 6c 6f 75 72  |d for 256 colour|
00000050  20 70 61 6c 65 74 74 65  20 62 79 20 44 41 0d 00  | palette by DA..|
00000060  28 05 3a 0d 00 32 1b ee  20 85 20 f1 20 f6 24 22  |(.:..2.. . . .$"|
00000070  20 61 74 20 6c 69 6e 65  20 22 3b 9e 3a e0 0d 00  | at line ";.:...|
00000080  3c 04 0d 00 46 1b f2 6d  6f 64 65 28 22 58 36 34  |<...F..mode("X64|
00000090  30 20 59 34 38 30 20 47  32 35 36 22 29 0d 00 47  |0 Y480 G256")..G|
000000a0  05 87 0d 00 64 0e f2 63  6f 6e 73 74 61 6e 74 73  |....d..constants|
000000b0  0d 00 6e 1e de 73 70 61  63 65 25 73 70 61 63 65  |..n..space%space|
000000c0  6c 65 6e 25 3a 50 25 3d  73 70 61 63 65 25 0d 00  |len%:P%=space%..|
000000d0  78 19 63 6f 64 65 25 3d  50 25 3a 50 25 2b 3d 63  |x.code%=P%:P%+=c|
000000e0  6f 64 65 6c 65 6e 25 0d  00 82 19 73 68 61 70 65  |odelen%....shape|
000000f0  25 3d 50 25 3a 50 25 2b  3d 34 2a 73 69 7a 65 25  |%=P%:P%+=4*size%|
00000100  0d 00 8c 16 70 6f 73 25  3d 50 25 3a 50 25 2b 3d  |....pos%=P%:P%+=|
00000110  38 2a 6e 6f 70 25 0d 00  96 2a 73 69 6e 25 3d 50  |8*nop%...*sin%=P|
00000120  25 3a 63 6f 73 25 3d 73  69 6e 25 2b 34 2a 32 35  |%:cos%=sin%+4*25|
00000130  36 3a 50 25 3d 63 6f 73  25 2b 34 2a 31 30 32 34  |6:P%=cos%+4*1024|
00000140  0d 00 a0 36 e7 50 25 3e  73 70 61 63 65 25 2b 73  |...6.P%>space%+s|
00000150  70 61 63 65 6c 65 6e 25  8c 85 32 35 35 2c 22 53  |pacelen%..255,"S|
00000160  70 61 63 65 20 69 73 6e  27 74 20 62 69 67 20 65  |pace isn't big e|
00000170  6e 6f 75 67 68 22 0d 00  aa 0d f2 61 73 73 65 6d  |nough".....assem|
00000180  62 6c 65 0d 00 b4 10 e3  20 69 25 3d 30 20 b8 20  |ble..... i%=0 . |
00000190  32 35 35 0d 00 be 11 20  61 3d 69 25 2a 32 2a af  |255.... a=i%*2*.|
000001a0  2f 32 35 36 0d 00 c8 16  20 74 25 3d 63 79 63 6c  |/256.... t%=cycl|
000001b0  65 5f 74 61 62 2b 34 2a  69 25 0d 00 d2 0a 20 3f  |e_tab+4*i%.... ?|
000001c0  74 25 3d 30 0d 00 dc 16  20 74 25 3f 31 3d 31 32  |t%=0.... t%?1=12|
000001d0  38 2b 31 32 37 2a b5 28  61 29 0d 00 e6 18 20 74  |8+127*.(a).... t|
000001e0  25 3f 32 3d 31 32 38 2b  31 32 37 2a b5 28 61 2a  |%?2=128+127*.(a*|
000001f0  32 29 0d 00 f0 18 20 74  25 3f 33 3d 31 32 38 2b  |2).... t%?3=128+|
00000200  31 32 37 2a b5 28 61 2a  33 29 0d 00 fa 1f 20 63  |127*.(a*3).... c|
00000210  79 63 6c 65 5f 74 61 62  21 28 34 2a 28 69 25 2b  |ycle_tab!(4*(i%+|
00000220  32 35 36 29 29 3d 21 74  25 0d 01 04 05 ed 0d 01  |256))=!t%.......|
00000230  0e 04 0d 01 18 4c e3 54  25 3d 30 b8 73 69 7a 65  |.....L.T%=0.size|
00000240  25 2d 31 3a 59 25 3d 54  25 2a 32 2d 73 69 7a 65  |%-1:Y%=T%*2-size|
00000250  25 2b 31 3a 73 68 61 70  65 25 21 28 54 25 3c 3c  |%+1:shape%!(T%<<|
00000260  32 29 3d b6 28 73 69 7a  65 25 2a 73 69 7a 65 25  |2)=.(size%*size%|
00000270  2d 59 25 2a 59 25 29 2b  31 3e 3e 31 3a ed 0d 01  |-Y%*Y%)+1>>1:...|
00000280  22 32 55 25 3d 70 6f 73  25 3a e3 54 25 3d 30 b8  |"2U%=pos%:.T%=0.|
00000290  6e 6f 70 25 2d 31 3a 21  55 25 3d 33 32 30 3a 55  |nop%-1:!U%=320:U|
000002a0  25 21 34 3d 31 32 38 3a  55 25 2b 3d 38 3a 3a ed  |%!4=128:U%+=8::.|
000002b0  0d 01 2c 33 e3 54 25 3d  30 b8 31 32 37 39 3a 73  |..,3.T%=0.1279:s|
000002c0  69 6e 25 21 28 54 25 3c  3c 32 29 3d 26 31 44 30  |in%!(T%<<2)=&1D0|
000002d0  30 30 2a b5 28 32 2a af  2a 54 25 2f 31 30 32 34  |00*.(2*.*T%/1024|
000002e0  29 3a ed 0d 01 36 11 d6  72 65 61 64 76 64 75 76  |):...6..readvduv|
000002f0  61 72 73 25 0d 01 40 05  f5 0d 01 4a 0b d6 66 72  |ars%..@....J..fr|
00000300  61 6d 65 25 0d 01 54 06  fd 30 0d 01 5e 05 e0 0d  |ame%..T..0..^...|
00000310  01 68 05 3a 0d 01 72 05  3a 0d 01 7c 0f dd f2 63  |.h.:..r.:..|...c|
00000320  6f 6e 73 74 61 6e 74 73  0d 01 86 14 73 70 61 63  |onstants....spac|
00000330  65 6c 65 6e 25 3d 26 34  30 30 30 30 0d 01 90 12  |elen%=&40000....|
00000340  63 6f 64 65 6c 65 6e 25  3d 26 34 30 30 30 0d 01  |codelen%=&4000..|
00000350  9a 0c 73 69 7a 65 25 3d  33 32 0d 01 a4 0d 6e 6f  |..size%=32....no|
00000360  70 25 3d 34 30 39 36 0d  01 ae 05 e1 0d 01 b8 05  |p%=4096.........|
00000370  3a 0d 01 c2 13 dd a4 61  64 72 28 52 25 2c 41 25  |:......adr(R%,A%|
00000380  2c 49 25 29 0d 01 cc 2c  e7 28 50 25 80 33 29 3c  |,I%)...,.(P%.3)<|
00000390  3e 30 8c f1 22 43 6f 64  65 20 69 73 6e 27 74 20  |>0.."Code isn't |
000003a0  77 6f 72 64 20 61 6c 69  67 6e 65 64 21 22 3a e0  |word aligned!":.|
000003b0  0d 01 d6 1b e7 28 54 25  80 32 29 3d 30 8c 50 25  |.....(T%.2)=0.P%|
000003c0  2b 3d 49 25 3c 3c 32 3a  3d 54 25 0d 01 e0 28 ea  |+=I%<<2:=T%...(.|
000003d0  4e 25 2c 4f 25 2c 48 25  2c 55 25 3a 48 25 3d 41  |N%,O%,H%,U%:H%=A|
000003e0  25 2d 28 50 25 2b 38 29  3a 4e 25 3d 30 3a 4f 25  |%-(P%+8):N%=0:O%|
000003f0  3d 31 35 0d 01 ea 13 e3  55 25 3d 31 b8 49 25 3a  |=15.....U%=1.I%:|
00000400  e7 48 25 3d 30 8c 0d 01  f4 17 5b 4f 50 54 20 54  |.H%=0.....[OPT T|
00000410  25 3a 4d 4f 56 20 52 25  2c 4f 25 3a 5d 0d 01 fe  |%:MOV R%,O%:]...|
00000420  20 cc c8 95 28 48 25 80  33 29 3d 30 3a 48 25 3d  | ...(H%.3)=0:H%=|
00000430  48 25 3e 3e 32 3a 4e 25  2b 3d 32 3a ce 0d 02 08  |H%>>2:N%+=2:....|
00000440  10 e7 28 48 25 80 32 35  36 29 3d 30 8c 0d 02 12  |..(H%.256)=0....|
00000450  30 5b 4f 50 54 20 54 25  3a 41 44 44 20 52 25 2c  |0[OPT T%:ADD R%,|
00000460  4f 25 2c 23 28 48 25 80  32 35 35 29 3c 3c 4e 25  |O%,#(H%.255)<<N%|
00000470  3a 5d 3a 48 25 2d 3d 48  25 80 32 35 35 0d 02 1c  |:]:H%-=H%.255...|
00000480  39 cc 5b 4f 50 54 20 54  25 3a 53 55 42 20 52 25  |9.[OPT T%:SUB R%|
00000490  2c 4f 25 2c 23 28 32 35  36 2d 48 25 80 32 35 35  |,O%,#(256-H%.255|
000004a0  29 3c 3c 4e 25 3a 5d 3a  48 25 2b 3d 32 35 36 2d  |)<<N%:]:H%+=256-|
000004b0  48 25 80 32 35 35 0d 02  26 05 cd 0d 02 30 0d cd  |H%.255..&....0..|
000004c0  3a 4f 25 3d 52 25 3a ed  0d 02 3a 4a e7 48 25 3c  |:O%=R%:...:J.H%<|
000004d0  3e 30 8c f1 22 43 6f 75  6c 64 20 6e 6f 74 20 41  |>0.."Could not A|
000004e0  44 52 20 74 6f 20 22 3b  41 25 3b 22 20 69 6e 20  |DR to ";A%;" in |
000004f0  22 3b 49 25 3b 22 20 69  6e 73 74 72 75 63 74 69  |";I%;" instructi|
00000500  6f 6e 73 20 28 52 25 3d  22 3b 52 25 3b 22 29 22  |ons (R%=";R%;")"|
00000510  3a e0 0d 02 44 07 3d 54  25 0d 02 4e 05 3a 0d 02  |:...D.=T%..N.:..|
00000520  58 16 dd a4 72 65 67 69  73 74 65 72 6a 28 4a 25  |X...registerj(J%|
00000530  2c 4e 25 29 0d 02 62 14  4a 25 21 28 4e 25 3c 3c  |,N%)..b.J%!(N%<<|
00000540  32 29 3d 50 25 2d 4a 25  0d 02 6c 07 3d 54 25 0d  |2)=P%-J%..l.=T%.|
00000550  02 76 05 3a 0d 02 80 0e  dd f2 61 73 73 65 6d 62  |.v.:......assemb|
00000560  6c 65 0d 02 8a 17 73 70  3d 31 33 3a 6c 69 6e 6b  |le....sp=13:link|
00000570  3d 31 34 3a 70 63 3d 31  35 0d 02 94 16 e3 54 25  |=14:pc=15.....T%|
00000580  3d 30 b8 32 88 32 3a 50  25 3d 63 6f 64 65 25 0d  |=0.2.2:P%=code%.|
00000590  02 9e 0b 5b 4f 50 54 20  54 25 0d 02 a8 05 3a 0d  |...[OPT T%....:.|
000005a0  02 b2 1e 2e 76 64 75 76  61 72 73 25 3a 45 51 55  |....vduvars%:EQU|
000005b0  44 20 31 34 38 3a 45 51  55 44 20 2d 31 0d 02 bc  |D 148:EQUD -1...|
000005c0  15 2e 73 63 72 61 64 64  72 25 3a 45 51 55 44 20  |..scraddr%:EQUD |
000005d0  2d 31 0d 02 c6 12 2e 62  61 6e 6b 25 3a 45 51 55  |-1.....bank%:EQU|
000005e0  44 20 2d 31 0d 02 d0 05  3a 0d 02 da 11 2e 72 65  |D -1....:.....re|
000005f0  61 64 76 64 75 76 61 72  73 25 0d 02 e4 13 41 44  |advduvars%....AD|
00000600  52 20 52 30 2c 76 64 75  76 61 72 73 25 0d 02 ee  |R R0,vduvars%...|
00000610  13 41 44 52 20 52 31 2c  73 63 72 61 64 64 72 25  |.ADR R1,scraddr%|
00000620  0d 02 f8 1d 53 57 49 20  22 4f 53 5f 52 65 61 64  |....SWI "OS_Read|
00000630  56 64 75 56 61 72 69 61  62 6c 65 73 22 0d 03 02  |VduVariables"...|
00000640  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 03 0c 05 3a  |.MOV PC,R14....:|
00000650  0d 03 16 13 2e 72 61 6e  64 6f 6d 25 3a 45 51 55  |.....random%:EQU|
00000660  44 20 91 0d 03 20 15 2e  6c 61 73 74 74 69 6d 65  |D ... ..lasttime|
00000670  25 3a 45 51 55 44 20 30  0d 03 2a 11 2e 61 6e 69  |%:EQUD 0..*..ani|
00000680  6d 25 3a 45 51 55 44 20  30 0d 03 34 08 2e 70 70  |m%:EQUD 0..4..pp|
00000690  25 0d 03 3e 11 45 51 55  44 20 30 3a 45 51 55 44  |%..>.EQUD 0:EQUD|
000006a0  20 30 0d 03 48 11 45 51  55 44 20 30 3a 45 51 55  | 0..H.EQUD 0:EQU|
000006b0  44 20 30 0d 03 52 11 45  51 55 44 20 30 3a 45 51  |D 0..R.EQUD 0:EQ|
000006c0  55 44 20 30 0d 03 5c 05  3a 0d 03 66 0b 2e 66 72  |UD 0..\.:..f..fr|
000006d0  61 6d 65 25 0d 03 70 14  53 54 4d 46 44 20 52 31  |ame%..p.STMFD R1|
000006e0  33 21 2c 7b 52 31 34 7d  0d 03 7a 0e 2e 74 69 6d  |3!,{R14}..z..tim|
000006f0  65 6c 6f 6f 70 25 0d 03  84 1e 53 57 49 20 22 4f  |eloop%....SWI "O|
00000700  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
00000710  69 6d 65 22 0d 03 8e 14  4c 44 52 20 52 31 2c 6c  |ime"....LDR R1,l|
00000720  61 73 74 74 69 6d 65 25  0d 03 98 0d 43 4d 50 20  |asttime%....CMP |
00000730  52 30 2c 52 31 0d 03 a2  11 42 45 51 20 74 69 6d  |R0,R1....BEQ tim|
00000740  65 6c 6f 6f 70 25 0d 03  ac 14 53 54 52 20 52 30  |eloop%....STR R0|
00000750  2c 6c 61 73 74 74 69 6d  65 25 0d 03 b6 0e 4d 4f  |,lasttime%....MO|
00000760  56 20 52 31 31 2c 23 34  0d 03 c0 0b 2e 66 6c 6f  |V R11,#4.....flo|
00000770  6f 70 25 0d 03 ca 10 4c  44 52 20 52 30 2c 61 6e  |op%....LDR R0,an|
00000780  69 6d 25 0d 03 d4 11 53  55 42 53 20 52 30 2c 52  |im%....SUBS R0,R|
00000790  30 2c 23 31 0d 03 de 15  41 44 44 4c 54 20 52 30  |0,#1....ADDLT R0|
000007a0  2c 52 30 2c 23 6e 6f 70  25 0d 03 e8 10 53 54 52  |,R0,#nop%....STR|
000007b0  20 52 30 2c 61 6e 69 6d  25 0d 03 e9 0d 54 53 54  | R0,anim%....TST|
000007c0  20 72 30 2c 23 37 0d 03  ea 0e 42 4c 45 51 20 63  | r0,#7....BLEQ c|
000007d0  79 63 6c 65 0d 03 f2 16  4f 50 54 20 a4 61 64 72  |ycle....OPT .adr|
000007e0  28 38 2c 70 6f 73 25 2c  32 29 0d 03 fc 16 41 44  |(8,pos%,2)....AD|
000007f0  44 20 52 38 2c 52 38 2c  52 30 2c 41 53 4c 23 33  |D R8,R8,R0,ASL#3|
00000800  0d 04 06 14 4c 44 4d 49  41 20 52 38 2c 7b 52 33  |....LDMIA R8,{R3|
00000810  2d 52 34 7d 0d 04 10 0b  42 4c 20 64 65 63 25 0d  |-R4}....BL dec%.|
00000820  04 1a 12 52 53 42 20 52  33 2c 52 33 2c 23 36 34  |...RSB R3,R3,#64|
00000830  30 0d 04 24 12 52 53 42  20 52 34 2c 52 34 2c 23  |0..$.RSB R4,R4,#|
00000840  34 38 30 0d 04 2e 0b 42  4c 20 64 65 63 25 0d 04  |480....BL dec%..|
00000850  38 15 4d 4f 56 20 52 33  2c 23 33 32 30 3c 3c 31  |8.MOV R3,#320<<1|
00000860  36 2d 34 0d 04 42 15 4d  4f 56 20 52 34 2c 23 32  |6-4..B.MOV R4,#2|
00000870  34 30 3c 3c 31 36 2d 34  0d 04 4c 12 4c 44 52 20  |40<<16-4..L.LDR |
00000880  52 30 2c 72 61 6e 64 6f  6d 25 0d 04 56 0e 41 44  |R0,random%..V.AD|
00000890  52 20 52 31 2c 70 70 25  0d 04 60 0d 4d 4f 56 20  |R R1,pp%..`.MOV |
000008a0  52 39 2c 23 33 0d 04 6a  0b 2e 70 6c 6f 6f 70 25  |R9,#3..j..ploop%|
000008b0  0d 04 74 16 4f 50 54 20  a4 61 64 72 28 32 2c 73  |..t.OPT .adr(2,s|
000008c0  69 6e 25 2c 32 29 0d 04  7e 14 4c 44 4d 49 41 20  |in%,2)..~.LDMIA |
000008d0  52 31 2c 7b 52 35 2c 52  36 7d 0d 04 88 10 41 44  |R1,{R5,R6}....AD|
000008e0  44 20 52 35 2c 52 35 2c  52 36 0d 04 92 16 41 44  |D R5,R5,R6....AD|
000008f0  44 20 52 30 2c 52 30 2c  52 30 2c 41 53 4c 23 31  |D R0,R0,R0,ASL#1|
00000900  0d 04 9c 19 41 44 44 20  52 36 2c 52 36 2c 52 30  |....ADD R6,R6,R0|
00000910  2c 41 53 52 23 31 30 2b  34 0d 04 a6 14 43 4d 50  |,ASR#10+4....CMP|
00000920  20 52 36 2c 23 31 3c 3c  33 32 2d 31 30 0d 04 b0  | R6,#1<<32-10...|
00000930  16 4d 4f 56 47 54 20 52  36 2c 23 31 3c 3c 33 32  |.MOVGT R6,#1<<32|
00000940  2d 31 30 0d 04 ba 14 43  4d 4e 20 52 36 2c 23 31  |-10....CMN R6,#1|
00000950  3c 3c 33 32 2d 31 30 0d  04 c4 16 4d 56 4e 4c 54  |<<32-10....MVNLT|
00000960  20 52 36 2c 23 31 3c 3c  33 32 2d 31 30 0d 04 ce  | R6,#1<<32-10...|
00000970  15 53 54 4d 49 41 20 52  31 21 2c 7b 52 35 2c 52  |.STMIA R1!,{R5,R|
00000980  36 7d 0d 04 d8 10 52 53  42 20 52 36 2c 52 39 2c  |6}....RSB R6,R9,|
00000990  23 33 0d 04 e2 14 4d 4f  56 20 52 35 2c 52 35 2c  |#3....MOV R5,R5,|
000009a0  41 53 4c 20 52 36 0d 04  ec 17 4d 4f 56 20 52 35  |ASL R6....MOV R5|
000009b0  2c 52 35 2c 4c 53 52 23  33 32 2d 31 30 0d 04 f6  |,R5,LSR#32-10...|
000009c0  16 41 44 44 20 52 35 2c  52 32 2c 52 35 2c 41 53  |.ADD R5,R2,R5,AS|
000009d0  4c 23 32 0d 05 00 1a 4c  44 52 20 52 36 2c 5b 52  |L#2....LDR R6,[R|
000009e0  35 5d 2c 23 63 6f 73 25  2d 73 69 6e 25 0d 05 0a  |5],#cos%-sin%...|
000009f0  0f 4c 44 52 20 52 35 2c  5b 52 35 5d 0d 05 14 13  |.LDR R5,[R5]....|
00000a00  4d 4c 41 20 52 33 2c 52  35 2c 52 39 2c 52 33 0d  |MLA R3,R5,R9,R3.|
00000a10  05 1e 13 4d 4c 41 20 52  34 2c 52 36 2c 52 39 2c  |...MLA R4,R6,R9,|
00000a20  52 34 0d 05 28 11 53 55  42 53 20 52 39 2c 52 39  |R4..(.SUBS R9,R9|
00000a30  2c 23 31 0d 05 32 0e 42  47 54 20 70 6c 6f 6f 70  |,#1..2.BGT ploop|
00000a40  25 0d 05 3c 12 53 54 52  20 52 30 2c 72 61 6e 64  |%..<.STR R0,rand|
00000a50  6f 6d 25 0d 05 46 16 4d  4f 56 20 52 33 2c 52 33  |om%..F.MOV R3,R3|
00000a60  2c 41 53 52 23 31 36 2d  34 0d 05 50 16 4d 4f 56  |,ASR#16-4..P.MOV|
00000a70  20 52 34 2c 52 34 2c 41  53 52 23 31 36 2d 34 0d  | R4,R4,ASR#16-4.|
00000a80  05 5a 14 53 54 4d 49 41  20 52 38 2c 7b 52 33 2d  |.Z.STMIA R8,{R3-|
00000a90  52 34 7d 0d 05 64 0b 42  4c 20 69 6e 63 25 0d 05  |R4}..d.BL inc%..|
00000aa0  6e 12 52 53 42 20 52 33  2c 52 33 2c 23 36 34 30  |n.RSB R3,R3,#640|
00000ab0  0d 05 78 12 52 53 42 20  52 34 2c 52 34 2c 23 34  |..x.RSB R4,R4,#4|
00000ac0  38 30 0d 05 82 0b 42 4c  20 69 6e 63 25 0d 05 8c  |80....BL inc%...|
00000ad0  13 53 55 42 53 20 52 31  31 2c 52 31 31 2c 23 31  |.SUBS R11,R11,#1|
00000ae0  0d 05 96 0e 42 47 54 20  66 6c 6f 6f 70 25 0d 05  |....BGT floop%..|
00000af0  a0 13 4c 44 4d 46 44 20  52 31 33 21 2c 7b 50 43  |..LDMFD R13!,{PC|
00000b00  7d 0d 05 aa 05 3a 0d 05  b4 09 2e 69 6e 63 25 0d  |}....:.....inc%.|
00000b10  05 be 14 4c 44 52 20 52  31 30 2c 73 63 72 61 64  |...LDR R10,scrad|
00000b20  64 72 25 0d 05 c8 12 41  44 44 20 52 31 30 2c 52  |dr%....ADD R10,R|
00000b30  31 30 2c 52 33 0d 05 d2  18 41 44 44 20 52 31 30  |10,R3....ADD R10|
00000b40  2c 52 31 30 2c 52 34 2c  41 53 4c 23 37 0d 05 dc  |,R10,R4,ASL#7...|
00000b50  18 41 44 44 20 52 31 30  2c 52 31 30 2c 52 34 2c  |.ADD R10,R10,R4,|
00000b60  41 53 4c 23 39 0d 05 e6  19 4f 50 54 20 a4 61 64  |ASL#9....OPT .ad|
00000b70  72 28 31 32 2c 73 68 61  70 65 25 2c 32 29 0d 05  |r(12,shape%,2)..|
00000b80  f0 1f 53 55 42 20 52 31  30 2c 52 31 30 2c 23 28  |..SUB R10,R10,#(|
00000b90  73 69 7a 65 25 3e 3e 31  29 2a 36 34 30 0d 05 fa  |size%>>1)*640...|
00000ba0  11 4d 4f 56 20 52 30 2c  23 73 69 7a 65 25 0d 06  |.MOV R0,#size%..|
00000bb0  04 0b 2e 79 6c 6f 6f 70  25 0d 06 0e 13 4c 44 52  |...yloop%....LDR|
00000bc0  20 52 31 2c 5b 52 31 32  5d 2c 23 34 0d 06 18 11  | R1,[R12],#4....|
00000bd0  53 55 42 20 52 39 2c 52  31 30 2c 52 31 0d 06 22  |SUB R9,R10,R1.."|
00000be0  0b 2e 78 6c 6f 6f 70 25  0d 06 2c 10 4c 44 52 42  |..xloop%..,.LDRB|
00000bf0  20 52 32 2c 5b 52 39 5d  0d 06 36 10 41 44 44 20  | R2,[R9]..6.ADD |
00000c00  52 32 2c 52 32 2c 23 31  0d 06 40 13 53 54 52 42  |R2,R2,#1..@.STRB|
00000c10  20 52 32 2c 5b 52 39 5d  2c 23 31 0d 06 4a 10 4c  | R2,[R9],#1..J.L|
00000c20  44 52 42 20 52 32 2c 5b  52 39 5d 0d 06 54 10 41  |DRB R2,[R9]..T.A|
00000c30  44 44 20 52 32 2c 52 32  2c 23 31 0d 06 5e 13 53  |DD R2,R2,#1..^.S|
00000c40  54 52 42 20 52 32 2c 5b  52 39 5d 2c 23 31 0d 06  |TRB R2,[R9],#1..|
00000c50  68 11 53 55 42 53 20 52  31 2c 52 31 2c 23 31 0d  |h.SUBS R1,R1,#1.|
00000c60  06 72 0e 42 47 54 20 78  6c 6f 6f 70 25 0d 06 7c  |.r.BGT xloop%..||
00000c70  14 41 44 44 20 52 31 30  2c 52 31 30 2c 23 36 34  |.ADD R10,R10,#64|
00000c80  30 0d 06 86 11 53 55 42  53 20 52 30 2c 52 30 2c  |0....SUBS R0,R0,|
00000c90  23 31 0d 06 90 0e 42 47  54 20 79 6c 6f 6f 70 25  |#1....BGT yloop%|
00000ca0  0d 06 9a 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 06  |....MOV PC,R14..|
00000cb0  a4 05 3a 0d 06 ae 09 2e  64 65 63 25 0d 06 b8 14  |..:.....dec%....|
00000cc0  4c 44 52 20 52 31 30 2c  73 63 72 61 64 64 72 25  |LDR R10,scraddr%|
00000cd0  0d 06 c2 12 41 44 44 20  52 31 30 2c 52 31 30 2c  |....ADD R10,R10,|
00000ce0  52 33 0d 06 cc 18 41 44  44 20 52 31 30 2c 52 31  |R3....ADD R10,R1|
00000cf0  30 2c 52 34 2c 41 53 4c  23 37 0d 06 d6 18 41 44  |0,R4,ASL#7....AD|
00000d00  44 20 52 31 30 2c 52 31  30 2c 52 34 2c 41 53 4c  |D R10,R10,R4,ASL|
00000d10  23 39 0d 06 e0 19 4f 50  54 20 a4 61 64 72 28 31  |#9....OPT .adr(1|
00000d20  32 2c 73 68 61 70 65 25  2c 32 29 0d 06 ea 1f 53  |2,shape%,2)....S|
00000d30  55 42 20 52 31 30 2c 52  31 30 2c 23 28 73 69 7a  |UB R10,R10,#(siz|
00000d40  65 25 3e 3e 31 29 2a 36  34 30 0d 06 f4 11 4d 4f  |e%>>1)*640....MO|
00000d50  56 20 52 30 2c 23 73 69  7a 65 25 0d 06 fe 0b 2e  |V R0,#size%.....|
00000d60  79 6c 6f 6f 70 25 0d 07  08 13 4c 44 52 20 52 31  |yloop%....LDR R1|
00000d70  2c 5b 52 31 32 5d 2c 23  34 0d 07 12 11 53 55 42  |,[R12],#4....SUB|
00000d80  20 52 39 2c 52 31 30 2c  52 31 0d 07 1c 0b 2e 78  | R9,R10,R1.....x|
00000d90  6c 6f 6f 70 25 0d 07 26  10 4c 44 52 42 20 52 32  |loop%..&.LDRB R2|
00000da0  2c 5b 52 39 5d 0d 07 30  10 53 55 42 20 52 32 2c  |,[R9]..0.SUB R2,|
00000db0  52 32 2c 23 31 0d 07 3a  13 53 54 52 42 20 52 32  |R2,#1..:.STRB R2|
00000dc0  2c 5b 52 39 5d 2c 23 31  0d 07 44 10 4c 44 52 42  |,[R9],#1..D.LDRB|
00000dd0  20 52 32 2c 5b 52 39 5d  0d 07 4e 10 53 55 42 20  | R2,[R9]..N.SUB |
00000de0  52 32 2c 52 32 2c 23 31  0d 07 58 13 53 54 52 42  |R2,R2,#1..X.STRB|
00000df0  20 52 32 2c 5b 52 39 5d  2c 23 31 0d 07 62 11 53  | R2,[R9],#1..b.S|
00000e00  55 42 53 20 52 31 2c 52  31 2c 23 31 0d 07 6c 0e  |UBS R1,R1,#1..l.|
00000e10  42 47 54 20 78 6c 6f 6f  70 25 0d 07 76 14 41 44  |BGT xloop%..v.AD|
00000e20  44 20 52 31 30 2c 52 31  30 2c 23 36 34 30 0d 07  |D R10,R10,#640..|
00000e30  80 11 53 55 42 53 20 52  30 2c 52 30 2c 23 31 0d  |..SUBS R0,R0,#1.|
00000e40  07 8a 0e 42 47 54 20 79  6c 6f 6f 70 25 0d 07 94  |...BGT yloop%...|
00000e50  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 07 9e 05 3a  |.MOV PC,R14....:|
00000e60  0d 07 a8 0a 2e 63 79 63  6c 65 0d 07 b2 26 20 20  |.....cycle...&  |
00000e70  20 20 20 20 20 20 53 54  4d 46 44 20 20 20 28 73  |      STMFD   (s|
00000e80  70 29 21 2c 7b 72 30 2d  72 38 2c 6c 69 6e 6b 7d  |p)!,{r0-r8,link}|
00000e90  0d 07 bc 20 20 20 20 20  20 20 20 20 4c 44 52 20  |...         LDR |
00000ea0  20 20 20 20 72 34 2c 63  79 63 6c 65 5f 70 6f 73  |    r4,cycle_pos|
00000eb0  0d 07 c6 1c 20 20 20 20  20 20 20 20 41 44 44 20  |....        ADD |
00000ec0  20 20 20 20 72 34 2c 72  34 2c 23 31 0d 07 d0 1c  |    r4,r4,#1....|
00000ed0  20 20 20 20 20 20 20 20  80 20 20 20 20 20 72 34  |        .     r4|
00000ee0  2c 72 34 2c 23 32 35 35  0d 07 da 20 20 20 20 20  |,r4,#255...     |
00000ef0  20 20 20 20 53 54 52 20  20 20 20 20 72 34 2c 63  |    STR     r4,c|
00000f00  79 63 6c 65 5f 70 6f 73  0d 07 e4 19 20 20 20 20  |ycle_pos....    |
00000f10  20 20 20 20 4d 56 4e 20  20 20 20 20 72 30 2c 23  |    MVN     r0,#|
00000f20  30 0d 07 ee 19 20 20 20  20 20 20 20 20 4d 4f 56  |0....        MOV|
00000f30  20 20 20 20 20 72 31 2c  23 30 0d 07 f8 20 20 20  |     r1,#0...   |
00000f40  20 20 20 20 20 20 41 44  52 20 20 20 20 20 72 32  |      ADR     r2|
00000f50  2c 63 79 63 6c 65 5f 74  61 62 0d 08 02 23 20 20  |,cycle_tab...#  |
00000f60  20 20 20 20 20 20 41 44  44 20 20 20 20 20 72 32  |      ADD     r2|
00000f70  2c 72 32 2c 72 34 2c 4c  53 4c 20 23 32 0d 08 03  |,r2,r4,LSL #2...|
00000f80  19 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |.        MOV    |
00000f90  20 72 33 2c 23 30 0d 08  04 19 20 20 20 20 20 20  | r3,#0....      |
00000fa0  20 20 4d 4f 56 20 20 20  20 20 72 34 2c 23 30 0d  |  MOV     r4,#0.|
00000fb0  08 0c 1b 20 20 20 20 20  20 20 20 4c 44 52 20 20  |...        LDR  |
00000fc0  20 20 20 72 38 2c 5b 72  32 5d 0d 08 0d 1a 20 20  |   r8,[r2]....  |
00000fd0  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 72 31  |      MOV     r1|
00000fe0  34 2c 23 30 0d 08 0e 1c  20 20 20 20 20 20 20 20  |4,#0....        |
00000ff0  53 54 52 20 20 20 20 20  72 31 34 2c 5b 72 32 5d  |STR     r14,[r2]|
00001000  0d 08 16 2e 20 20 20 20  20 20 20 20 53 57 49 20  |....        SWI |
00001010  20 20 20 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |    "ColourTrans|
00001020  5f 57 72 69 74 65 50 61  6c 65 74 74 65 22 0d 08  |_WritePalette"..|
00001030  17 1b 20 20 20 20 20 20  20 20 53 54 52 20 20 20  |..        STR   |
00001040  20 20 72 38 2c 5b 72 32  5d 0d 08 2a 25 20 20 20  |  r8,[r2]..*%   |
00001050  20 20 20 20 20 4c 44 4d  46 44 20 20 20 28 73 70  |     LDMFD   (sp|
00001060  29 21 2c 7b 72 30 2d 72  38 2c 70 63 7d 5e 0d 08  |)!,{r0-r8,pc}^..|
00001070  34 0c 20 20 20 20 20 20  20 20 0d 08 3e 0e 2e 63  |4.        ..>..c|
00001080  79 63 6c 65 5f 70 6f 73  0d 08 48 15 20 20 20 20  |ycle_pos..H.    |
00001090  20 20 20 20 44 43 44 20  20 20 20 20 30 0d 08 52  |    DCD     0..R|
000010a0  04 0d 08 5c 0e 2e 63 79  63 6c 65 5f 74 61 62 0d  |...\..cycle_tab.|
000010b0  08 66 05 5d 0d 08 70 10  63 79 63 6c 65 5f 74 61  |.f.]..p.cycle_ta|
000010c0  62 3d 50 25 0d 08 7a 0d  50 25 2b 3d 35 31 32 2a  |b=P%..z.P%+=512*|
000010d0  34 0d 08 84 33 e7 50 25  3e 63 6f 64 65 25 2b 63  |4...3.P%>code%+c|
000010e0  6f 64 65 6c 65 6e 25 8c  85 32 35 35 2c 22 43 6f  |odelen%..255,"Co|
000010f0  64 65 20 69 73 6e 27 74  20 62 69 67 20 65 6e 6f  |de isn't big eno|
00001100  75 67 68 22 0d 08 8e 05  ed 0d 08 98 05 e1 0d 08  |ugh"............|
00001110  a2 05 3a 0d 08 ac 12 dd  20 f2 6d 6f 64 65 28 6d  |..:..... .mode(m|
00001120  6f 64 65 24 29 0d 08 b6  17 ea 20 63 24 2c 65 78  |ode$)..... c$,ex|
00001130  2c 65 79 2c 6d 6f 64 65  2c 65 6e 64 0d 08 c0 0d  |,ey,mode,end....|
00001140  de 20 6d 6f 64 65 20 36  34 0d 08 ca 0f 65 6e 64  |. mode 64....end|
00001150  3d 6d 6f 64 65 2b 32 30  0d 08 d4 0b 21 6d 6f 64  |=mode+20....!mod|
00001160  65 3d 31 0d 08 de 1d 6d  6f 64 65 21 34 3d bb a4  |e=1....mode!4=..|
00001170  5f 6d 28 6d 6f 64 65 24  2c 22 58 22 2c 22 22 29  |_m(mode$,"X","")|
00001180  0d 08 e8 1d 6d 6f 64 65  21 38 3d bb a4 5f 6d 28  |....mode!8=.._m(|
00001190  6d 6f 64 65 24 2c 22 59  22 2c 22 22 29 0d 08 f2  |mode$,"Y","")...|
000011a0  19 63 24 3d a4 5f 6d 28  6d 6f 64 65 24 2c 22 43  |.c$=._m(mode$,"C|
000011b0  22 2c 22 2a 22 29 0d 08  fc 0e e7 20 63 24 3d 22  |","*")..... c$="|
000011c0  2a 22 20 8c 0d 09 06 19  20 63 24 3d a4 5f 6d 28  |*" ..... c$=._m(|
000011d0  6d 6f 64 65 24 2c 22 47  22 2c 22 22 29 0d 09 10  |mode$,"G","")...|
000011e0  27 20 e7 20 63 24 3d 22  32 35 36 22 20 21 65 6e  |' . c$="256" !en|
000011f0  64 3d 33 3a 65 6e 64 21  34 3d 32 35 35 3a 65 6e  |d=3:end!4=255:en|
00001200  64 2b 3d 38 0d 09 1a 05  cd 0d 09 24 15 6d 6f 64  |d+=8.......$.mod|
00001210  65 21 31 32 3d a4 5f 62  70 70 28 63 24 29 0d 09  |e!12=._bpp(c$)..|
00001220  2e 20 6d 6f 64 65 21 31  36 3d bb a4 5f 6d 28 6d  |. mode!16=.._m(m|
00001230  6f 64 65 24 2c 22 46 22  2c 22 2d 31 22 29 0d 09  |ode$,"F","-1")..|
00001240  38 1c 65 78 3d bb a4 5f  6d 28 6d 6f 64 65 24 2c  |8.ex=.._m(mode$,|
00001250  22 45 58 22 2c 22 2d 31  22 29 0d 09 42 23 e7 20  |"EX","-1")..B#. |
00001260  65 78 3c 3e 2d 31 20 21  65 6e 64 3d 34 3a 65 6e  |ex<>-1 !end=4:en|
00001270  64 21 34 3d 65 78 3a 65  6e 64 2b 3d 38 0d 09 4c  |d!4=ex:end+=8..L|
00001280  1c 65 79 3d bb a4 5f 6d  28 6d 6f 64 65 24 2c 22  |.ey=.._m(mode$,"|
00001290  45 59 22 2c 22 2d 31 22  29 0d 09 56 23 e7 20 65  |EY","-1")..V#. e|
000012a0  79 3c 3e 2d 31 20 21 65  6e 64 3d 35 3a 65 6e 64  |y<>-1 !end=5:end|
000012b0  21 34 3d 65 79 3a 65 6e  64 2b 3d 38 0d 09 60 0b  |!4=ey:end+=8..`.|
000012c0  21 65 6e 64 3d 2d 31 0d  09 6a 0a eb 20 6d 6f 64  |!end=-1..j.. mod|
000012d0  65 0d 09 74 05 e1 0d 09  7e 04 0d 09 88 13 dd 20  |e..t....~...... |
000012e0  a4 5f 6d 28 73 24 2c 70  24 2c 64 24 29 0d 09 92  |._m(s$,p$,d$)...|
000012f0  09 ea 20 69 2c 6a 0d 09  9c 0d 69 3d a7 73 24 2c  |.. i,j....i=.s$,|
00001300  70 24 29 0d 09 a6 25 e7  20 69 3c 31 20 80 20 64  |p$)...%. i<1 . d|
00001310  24 3d 22 22 20 85 20 34  39 30 2c 22 4d 69 73 73  |$="" . 490,"Miss|
00001320  69 6e 67 20 22 2b 70 24  0d 09 b0 0f e7 20 69 3c  |ing "+p$..... i<|
00001330  31 20 8c 20 3d 64 24 0d  09 ba 16 6a 3d a7 73 24  |1 . =d$....j=.s$|
00001340  2b 22 20 22 2c 22 20 22  2c 69 2b 31 29 0d 09 c4  |+" "," ",i+1)...|
00001350  13 3d c1 73 24 2c 69 2b  31 2c 6a 2d 69 2d 31 29  |.=.s$,i+1,j-i-1)|
00001360  0d 09 ce 04 0d 09 d8 0f  dd 20 a4 5f 62 70 70 28  |......... ._bpp(|
00001370  6e 24 29 0d 09 e2 0b c8  8e 20 6e 24 20 ca 0d 09  |n$)...... n$ ...|
00001380  ec 0d 20 c9 20 22 32 22  3a 3d 30 0d 09 f6 0d 20  |.. . "2":=0.... |
00001390  c9 20 22 34 22 3a 3d 31  0d 0a 00 0e 20 c9 20 22  |. "4":=1.... . "|
000013a0  31 36 22 3a 3d 32 0d 0a  0a 0f 20 c9 20 22 32 35  |16":=2.... . "25|
000013b0  36 22 3a 3d 33 0d 0a 14  21 20 c9 20 22 33 32 54  |6":=3...! . "32T|
000013c0  22 2c 22 33 32 74 22 2c  22 33 32 4b 22 2c 22 33  |","32t","32K","3|
000013d0  32 6b 22 3a 3d 34 0d 0a  1e 15 20 c9 20 22 31 36  |2k":=4.... . "16|
000013e0  4d 22 2c 22 31 36 6d 22  3a 3d 35 0d 0a 28 21 20  |M","16m":=5..(! |
000013f0  7f 3a 20 85 20 34 39 30  2c 22 42 61 64 20 70 61  |.: . 490,"Bad pa|
00001400  72 61 6d 65 74 65 72 20  22 2b 6e 24 0d 0a 32 05  |rameter "+n$..2.|
00001410  cb 0d ff                                          |...|
00001413