�15:�12:�

PIC%=0
*FX 4,1
(ȗ�
2� code 1024*8+81920
<� � �3:�:�" at line ";�:�
F	�scrn
P�
Z�
d� 15,240,240,240
n� 15
x� "   Size? "
��'"     1) Full Screen"
�� "     2) Half Screen"
�� "     3) Quarter Screen"
�� "     4) Eigth Screen"
� � "     5) Sixteenth Screen"
�
�� G=�:� (G-48)>0 � (G-48)<6
�
�
G=G-48
�� G=1 sz%=81920:sf%=1
�� G=2 sz%=81920/2:sf%=2
�� G=3 sz%=81920/4:sf%=4
�� G=4 sz%=81920/8:sf%=8

� G=5 sz%=81920/16:sf%=16



*FX 15,1

"

,,�'"   Press RETURN for random settings."

6@� "Multiplication Value? (100+, suggest around 100-120) "ult

@� "Bic Value? (1-16) "bic%

J/� ult=0 � bic%=0 � ult=�(10)+102:bic%=�(16)

T<�''"    Press right mouse button to draw a new pattern,"

^9�  "  or middle mouse button to return to this menu."

h

r� '"  Keys: "

|>� '"  � and � ... Decrease/Increase Multiplication Factor"

�.�  "  � and � ... Decrease/Increase 'Bic'"

�F�  "  SHIFT ..... Save screen on currently selected filing system"

�,�  "                 as PIC0, PIC1 etc."

�!� '" Press SPACE to begin..."

�

�� � �=32

��

�

��

�ș 6,112,2

�ș 6,113,2

��

�ș 6,112,1
ș 6,113,1
�
�ass
&
0
Ȏ �(6) �
:� 1:a%=50:b%=50:c%=128
D� 2:a%=50:b%=128:c%=50
N� 3:a%=128:b%=50:c%=50
X� 4:a%=128:b%=128:c%=50
b� 5:a%=128:c%=128:b%=50
l� 6:b%=128:c%=128:a%=50
v�
�
�
� N%=1�15
�
�F1%=a%*(��(24*N%)+1)
�F2%=b%*(��(24*N%+120)+1)
�F3%=c%*(��(24*N%+240)+1)
�� N%,F1%,F2%,F3%
��
�
�
� granite
�� smudge
�bic%=!bicvalue
�
� !bob=255 �
J%=0
K%=0
 C%=0
*
C1%=�(15)
4
C2%=�(15)
>
C3%=�(12)
H� I%=0 � 15
R0� I%,I%*K% � C1%,I%*(J% � C2%),I%*(C3%+�(4))
\
J%+=C%
f	K%+=1
p	C%+=1
z�
�
��
��
�
�ȕ !bob=13
�� "SCREENSAVE PIT"+� PIC%
�PIC%+=1
�� smudge
��
�
�� !bob=2 � !bob=4
�� !bob=4
��

	��ass
link=14
$	sp=13
.
screen=12
8
B� pass=0 � 2 � 2
LP%=code
V
[OPT pass
`.bicvalue  EQUD bic%
j.ultvalue  EQUD ult
t.tempsp    EQUD 0
~
�!.granite   STMFD (sp)!,{link}
�LDR screen,scrn
�MOV R2,screen
�!           MOV  R1,#256/sf%-2
�.yloop     MOV  R0,#0
�
.xloop
�SUB R9,R0,#160
�SUB R10,R1,#128
�MOV R5,R10,ASR#�(6)
�MOV R6,R9,ASR#�(6)
�
�]
R%=�(4)

� R%=1 �

[OPT pass
MUL R3,R10,R5
(]
2�
<� R%=2 �
F
[OPT pass
PMUL R3,R10,R6
Z]
d�
n� R%=3 �
x
[OPT pass
�MUL R3,R10,R9
�]
��
�� R%=4 �
�
[OPT pass
�MUL R3,R9,R10
�]
��
�R%=�(4)
�� R%=1 �
�
[OPT pass
�MUL R4,R9,R5
�]
�
� R%=2 �

[OPT pass
"MUL R4,R9,R6
,]
6�
@� R%=3 �
J
[OPT pass
TMUL R4,R9,R9
^]
h�
r� R%=4 �
|
[OPT pass
�MUL R4,R9,R10
�]
��
�
�
[OPT pass
�ADD  R3,R3,R4
�STRB R3,[R2],#1
�
�           ADD   R0,R0,#1
�           CMP   R0,#320
�           BLT   xloop
�
�           SUBS  R1,R1,#1
           BGT   yloop

LDMFD (sp)!,{PC}
&
0!.smudge    STMFD (sp)!,{link}
:LDR R14,bicvalue
DSTR R13,tempsp
NLDR R13,ultvalue
X
b
.mainloop
lMOV R0,#129
vMVN R1,#57
�MOV R2,#255
�SWI "OS_Byte"
�CMP R2,#255
�ADDEQ R14,R14,#1
�
�MVN R1,#41
�MOV R2,#255
�SWI "OS_Byte"
�CMP R2,#255
�SUBEQ R14,R14,#1
�CMP R14,#0
�MOVLE R14,#1
�
MVN R1,#25
MOV R2,#255
SWI "OS_Byte"
 CMP R2,#255
*SUBEQ R13,13,#1
4
>MVN R1,#121
HMOV R2,#255
RSWI "OS_Byte"
\CMP R2,#255
fADDEQ R13,R13,#1
pCMP R13,#0
zMOVLE R13,#1
�
�           LDR screen,scrn
�LDR R1,otherscrn
�MOV R0,screen
�ADD R11,R0,#320
�
�LDRB R2,[R0,#0]
�LDRB R3,[R0,#1]!
�LDRB R4,[R0,#1]
�LDRB R6,[R0,#320]
�
�ADD R9,R3,R2
�ADD R9,R9,R6
	
MOV R7,#3
	MUL R9,R7,R9
	MOV R9,R9,LSR#3
	$STRB R9,[R1],#1
	.
	8.topline
	BLDRB R6,[R0,#320]
	LLDRB R4,[R0,#1]!
	VADD R9,R3,R2
	`ADD R9,R9,R4
	jADD R9,R9,R6
	t
	~MOV R9,R9,LSR#2
	�BIC R9,R9,R14
	�STRB R9,[R1],#1
	�
MOV R2,R3
	�
MOV R3,R4
	�
	�CMP R0,R11
	�BLT topline
	�
	�ADD R11,R0,#sz%
	�SUB R11,R11,#1
	�SUB R11,R11,#320*3
	�

.smudgelp

LDRB R5,[R0,#-320]
LDRB R6,[R0,#320]
LDRB R4,[R0,#1]!
(ADD R9,R3,R2
2ADD R9,R9,R4
<ADD R9,R9,R5
FADD R9,R9,R6
P
ZMUL R9,R13,R9
dMOV R9,R9,LSR#9
nBIC R10,R9,R14
x
�
MOV R2,R3
�
MOV R3,R4
�LDRB R5,[R0,#-320]
�LDRB R6,[R0,#320]
�LDRB R4,[R0,#1]!
�ADD R9,R3,R2
�ADD R9,R9,R4
�ADD R9,R9,R5
�ADD R9,R9,R6
�
�MUL R9,R13,R9
�MOV R9,R9,LSR#9
�BIC R9,R9,R14
ADD R10,R10,R9,LSL#8

MOV R2,R3

MOV R3,R4
"
,LDRB R5,[R0,#-320]
6LDRB R6,[R0,#320]
@LDRB R4,[R0,#1]!
JADD R9,R3,R2
TADD R9,R9,R4
^ADD R9,R9,R5
hADD R9,R9,R6
r
|MUL R9,R13,R9
�MOV R9,R9,LSR#9
�BIC R9,R9,R14
�ADD R10,R10,R9,LSL#16
�
MOV R2,R3
�
MOV R3,R4
�
�LDRB R5,[R0,#-320]
�LDRB R6,[R0,#320]
�LDRB R4,[R0,#1]!
�ADD R9,R3,R2
�ADD R9,R9,R4
�ADD R9,R9,R5
�ADD R9,R9,R6

MUL R9,R13,R9
MOV R9,R9,LSR#9
&BIC R9,R9,R14
0ADD R10,R10,R9,LSL#24
:STR R10,[R1],#4
D
N
MOV R2,R3
X
MOV R3,R4
b
lCMP R0,R11
vBLT smudgelp
�MOV R0,#113
�
MOV R1,#2
�SWI "OS_Byte"
�
�MOV R0,#129
�
MVN R1,#0
�MOV R2,#255
�SWI "OS_Byte"
�CMP R2,#255
�
�Q R0,#13
�STREQ R0,bob
�BEQ fini
�

MVN R1,#112

MOV R2,#255

SWI "OS_Byte"

 CMP R2,#255

*�Q R0,#4

4STREQ R0,bob

>BEQ fini

H

RLDR R0,otherscrn

\MOV R1,screen

fADD R11,R0,#320

p

zLDRB R2,[R0,#0]

�LDRB R3,[R0,#1]!

�LDRB R4,[R0,#1]

�LDRB R6,[R0,#320]

�

�ADD R9,R3,R2

�ADD R9,R9,R6

�
MOV R7,#3

�MUL R9,R7,R9

�MOV R9,R9,LSR#3

�STRB R9,[R1],#1

�

�
.topline2

�LDRB R6,[R0,#320]
LDRB R4,[R0,#1]!
ADD R9,R3,R2
ADD R9,R9,R4
$ADD R9,R9,R6
.
8MOV R9,R9,LSR#2
BBIC R9,R9,R14
LSTRB R9,[R1],#1
V
MOV R2,R3
`
MOV R3,R4
j
tCMP R0,R11
~BLT topline2
�
�ADD R11,R0,#sz%
�SUB R11,R11,#1
�SUB R11,R11,#320*3
�
�.smudgelp2
�LDRB R5,[R0,#-320]
�LDRB R6,[R0,#320]
�LDRB R4,[R0,#1]!
�ADD R9,R3,R2
�ADD R9,R9,R4
�ADD R9,R9,R5
ADD R9,R9,R6


MUL R9,R13,R9
MOV R9,R9,LSR#9
(BIC R10,R9,R14
2
<
MOV R2,R3
F
MOV R3,R4
PLDRB R5,[R0,#-320]
ZLDRB R6,[R0,#320]
dLDRB R4,[R0,#1]!
nADD R9,R3,R2
xADD R9,R9,R4
�ADD R9,R9,R5
�ADD R9,R9,R6
�
�MUL R9,R13,R9
�MOV R9,R9,LSR#9
�BIC R9,R9,R14
�ADD R10,R10,R9,LSL#8
�
MOV R2,R3
�
MOV R3,R4
�
�LDRB R5,[R0,#-320]
�LDRB R6,[R0,#320]
�LDRB R4,[R0,#1]!
ADD R9,R3,R2
ADD R9,R9,R4
ADD R9,R9,R5
"ADD R9,R9,R6
,
6MUL R9,R13,R9
@MOV R9,R9,LSR#9
JBIC R9,R9,R14
TADD R10,R10,R9,LSL#16
^
MOV R2,R3
h
MOV R3,R4
r
|LDRB R5,[R0,#-320]
�LDRB R6,[R0,#320]
�LDRB R4,[R0,#1]!
�ADD R9,R3,R2
�ADD R9,R9,R4
�ADD R9,R9,R5
�ADD R9,R9,R6
�
�MUL R9,R13,R9
�MOV R9,R9,LSR#9
�BIC R9,R9,R14
�ADD R10,R10,R9,LSL#24
�STR R10,[R1],#4
�

MOV R2,R3

MOV R3,R4

&CMP R0,R11
0BLT smudgelp2
:
DMOV R0,#113
N
MOV R1,#1
XSWI "OS_Byte"
b
l	.mous
v
�MOV R0,#129
�
MVN R1,#0
�MOV R2,#255
�SWI "OS_Byte"
�CMP R2,#255
�
�Q R0,#13
�STREQ R0,bob
�BEQ fini
�
�MOV R0,#129
�MVN R1,#112
�MOV R2,#255
�SWI "OS_Byte"
CMP R2,#255
�Q R0,#4
STREQ R0,bob
 BEQ fini
*
4SWI "OS_Mouse"
>
CMP R2,#0
HSTRGT R2,bob
RBGT fini
\
fB mainloop
p
z.fini     LDR R13,tempsp
�STR R13,ultvalue
�STR R14,bicvalue
� LDMFD (sp)!,{PC}
�.bob EQUD 0
�
�.coldata   EQUD code+4096
�.scrn      EQUD screen%
�.oldcol%   EQUD 0
�!.otherscrn EQUD screen%+81920
�&.otherscrn2 EQUD screen%+81920+320
�(.otherscrn3 EQUD screen%+81920+320+1
�.counter   EQUD 10
�
.rnd       LDR R7,seed
           LDR R8,c1
           LDR R9,c2
$           MLA R7,R8,R7,R9
.           MLA R10,R8,R7,R9
8           STR R10,seed
B!           � R7,R7,R10,ROR#16
L
V           MOV R8,#256
`           SUB R8,R8,#1
j           � R7,R7,R8
t
~           MOV PC,R14
�
�.c1   EQUD 1664525
�.c2   EQUD 907633393
�.seed EQUD �
�.rnd% EQUD 0
�]
��
��
��
�
�
��scrn
�� block% 15,b2% 15
block%!0=148

block%!4=7
block%!8=6
block%!12=-1
('ș "OS_ReadVduVariables",block%,b2%
2size%=b2%!4
<block%!0=148
Fblock%!4=7
Pblock%!8=6
Zblock%!12=-1
d'ș "OS_ReadVduVariables",block%,b2%
nscreen%=b2%!0
xsize%=b2%!4
��
�

00000000  0d 00 0a 0d eb 31 35 3a  eb 31 32 3a 87 0d 00 14  |.....15:.12:....|
00000010  0a 50 49 43 25 3d 30 0d  00 1e 0b 2a 46 58 20 34  |.PIC%=0....*FX 4|
00000020  2c 31 0d 00 28 07 c8 97  ee 0d 00 32 17 de 20 63  |,1..(......2.. c|
00000030  6f 64 65 20 31 30 32 34  2a 38 2b 38 31 39 32 30  |ode 1024*8+81920|
00000040  0d 00 3c 1d ee 20 85 20  eb 33 3a f6 3a f1 22 20  |..<.. . .3:.:." |
00000050  61 74 20 6c 69 6e 65 20  22 3b 9e 3a e0 0d 00 46  |at line ";.:...F|
00000060  09 f2 73 63 72 6e 0d 00  50 05 f5 0d 00 5a 05 db  |..scrn..P....Z..|
00000070  0d 00 64 14 fb 20 31 35  2c 32 34 30 2c 32 34 30  |..d.. 15,240,240|
00000080  2c 32 34 30 0d 00 6e 08  fb 20 31 35 0d 00 78 11  |,240..n.. 15..x.|
00000090  f1 20 22 20 20 20 53 69  7a 65 3f 20 22 0d 00 82  |. "   Size? "...|
000000a0  1b f1 27 22 20 20 20 20  20 31 29 20 46 75 6c 6c  |..'"     1) Full|
000000b0  20 53 63 72 65 65 6e 22  0d 00 8c 1b f1 20 22 20  | Screen"..... " |
000000c0  20 20 20 20 32 29 20 48  61 6c 66 20 53 63 72 65  |    2) Half Scre|
000000d0  65 6e 22 0d 00 96 1e f1  20 22 20 20 20 20 20 33  |en"..... "     3|
000000e0  29 20 51 75 61 72 74 65  72 20 53 63 72 65 65 6e  |) Quarter Screen|
000000f0  22 0d 00 a0 1c f1 20 22  20 20 20 20 20 34 29 20  |"..... "     4) |
00000100  45 69 67 74 68 20 53 63  72 65 65 6e 22 0d 00 aa  |Eigth Screen"...|
00000110  20 f1 20 22 20 20 20 20  20 35 29 20 53 69 78 74  | . "     5) Sixt|
00000120  65 65 6e 74 68 20 53 63  72 65 65 6e 22 0d 00 b4  |eenth Screen"...|
00000130  04 0d 00 be 1f f5 20 47  3d a5 3a fd 20 28 47 2d  |...... G=.:. (G-|
00000140  34 38 29 3e 30 20 80 20  28 47 2d 34 38 29 3c 36  |48)>0 . (G-48)<6|
00000150  0d 00 c8 04 0d 00 d2 0a  47 3d 47 2d 34 38 0d 00  |........G=G-48..|
00000160  dc 19 e7 20 47 3d 31 20  73 7a 25 3d 38 31 39 32  |... G=1 sz%=8192|
00000170  30 3a 73 66 25 3d 31 0d  00 e6 1b e7 20 47 3d 32  |0:sf%=1..... G=2|
00000180  20 73 7a 25 3d 38 31 39  32 30 2f 32 3a 73 66 25  | sz%=81920/2:sf%|
00000190  3d 32 0d 00 f0 1b e7 20  47 3d 33 20 73 7a 25 3d  |=2..... G=3 sz%=|
000001a0  38 31 39 32 30 2f 34 3a  73 66 25 3d 34 0d 00 fa  |81920/4:sf%=4...|
000001b0  1b e7 20 47 3d 34 20 73  7a 25 3d 38 31 39 32 30  |.. G=4 sz%=81920|
000001c0  2f 38 3a 73 66 25 3d 38  0d 01 04 1d e7 20 47 3d  |/8:sf%=8..... G=|
000001d0  35 20 73 7a 25 3d 38 31  39 32 30 2f 31 36 3a 73  |5 sz%=81920/16:s|
000001e0  66 25 3d 31 36 0d 01 0e  04 0d 01 18 0c 2a 46 58  |f%=16........*FX|
000001f0  20 31 35 2c 31 0d 01 22  04 0d 01 2c 2c f1 27 22  | 15,1.."...,,.'"|
00000200  20 20 20 50 72 65 73 73  20 52 45 54 55 52 4e 20  |   Press RETURN |
00000210  66 6f 72 20 72 61 6e 64  6f 6d 20 73 65 74 74 69  |for random setti|
00000220  6e 67 73 2e 22 0d 01 36  40 e8 20 22 4d 75 6c 74  |ngs."..6@. "Mult|
00000230  69 70 6c 69 63 61 74 69  6f 6e 20 56 61 6c 75 65  |iplication Value|
00000240  3f 20 28 31 30 30 2b 2c  20 73 75 67 67 65 73 74  |? (100+, suggest|
00000250  20 61 72 6f 75 6e 64 20  31 30 30 2d 31 32 30 29  | around 100-120)|
00000260  20 22 75 6c 74 0d 01 40  1e e8 20 22 42 69 63 20  | "ult..@.. "Bic |
00000270  56 61 6c 75 65 3f 20 28  31 2d 31 36 29 20 22 62  |Value? (1-16) "b|
00000280  69 63 25 0d 01 4a 2f e7  20 75 6c 74 3d 30 20 80  |ic%..J/. ult=0 .|
00000290  20 62 69 63 25 3d 30 20  8c 20 75 6c 74 3d b3 28  | bic%=0 . ult=.(|
000002a0  31 30 29 2b 31 30 32 3a  62 69 63 25 3d b3 28 31  |10)+102:bic%=.(1|
000002b0  36 29 0d 01 54 3c f1 27  27 22 20 20 20 20 50 72  |6)..T<.''"    Pr|
000002c0  65 73 73 20 72 69 67 68  74 20 6d 6f 75 73 65 20  |ess right mouse |
000002d0  62 75 74 74 6f 6e 20 74  6f 20 64 72 61 77 20 61  |button to draw a|
000002e0  20 6e 65 77 20 70 61 74  74 65 72 6e 2c 22 0d 01  | new pattern,"..|
000002f0  5e 39 f1 20 20 22 20 20  6f 72 20 6d 69 64 64 6c  |^9.  "  or middl|
00000300  65 20 6d 6f 75 73 65 20  62 75 74 74 6f 6e 20 74  |e mouse button t|
00000310  6f 20 72 65 74 75 72 6e  20 74 6f 20 74 68 69 73  |o return to this|
00000320  20 6d 65 6e 75 2e 22 0d  01 68 04 0d 01 72 11 f1  | menu."..h...r..|
00000330  20 27 22 20 20 4b 65 79  73 3a 20 22 0d 01 7c 3e  | '"  Keys: "..|>|
00000340  f1 20 27 22 20 20 88 20  61 6e 64 20 89 20 2e 2e  |. '"  . and . ..|
00000350  2e 20 44 65 63 72 65 61  73 65 2f 49 6e 63 72 65  |. Decrease/Incre|
00000360  61 73 65 20 4d 75 6c 74  69 70 6c 69 63 61 74 69  |ase Multiplicati|
00000370  6f 6e 20 46 61 63 74 6f  72 22 0d 01 86 2e f1 20  |on Factor"..... |
00000380  20 22 20 20 8a 20 61 6e  64 20 8b 20 2e 2e 2e 20  | "  . and . ... |
00000390  44 65 63 72 65 61 73 65  2f 49 6e 63 72 65 61 73  |Decrease/Increas|
000003a0  65 20 27 42 69 63 27 22  0d 01 90 46 f1 20 20 22  |e 'Bic'"...F.  "|
000003b0  20 20 53 48 49 46 54 20  2e 2e 2e 2e 2e 20 53 61  |  SHIFT ..... Sa|
000003c0  76 65 20 73 63 72 65 65  6e 20 6f 6e 20 63 75 72  |ve screen on cur|
000003d0  72 65 6e 74 6c 79 20 73  65 6c 65 63 74 65 64 20  |rently selected |
000003e0  66 69 6c 69 6e 67 20 73  79 73 74 65 6d 22 0d 01  |filing system"..|
000003f0  9a 2c f1 20 20 22 20 20  20 20 20 20 20 20 20 20  |.,.  "          |
00000400  20 20 20 20 20 20 20 61  73 20 50 49 43 30 2c 20  |       as PIC0, |
00000410  50 49 43 31 20 65 74 63  2e 22 0d 01 a4 21 f1 20  |PIC1 etc."...!. |
00000420  27 22 20 50 72 65 73 73  20 53 50 41 43 45 20 74  |'" Press SPACE t|
00000430  6f 20 62 65 67 69 6e 2e  2e 2e 22 0d 01 ae 04 0d  |o begin...".....|
00000440  01 b8 0c f5 20 fd 20 a5  3d 33 32 0d 01 c2 05 db  |.... . .=32.....|
00000450  0d 01 cc 04 0d 01 d6 05  f5 0d 01 e0 0e c8 99 20  |............... |
00000460  36 2c 31 31 32 2c 32 0d  01 ea 0e c8 99 20 36 2c  |6,112,2...... 6,|
00000470  31 31 33 2c 32 0d 01 f4  05 db 0d 01 fe 0e c8 99  |113,2...........|
00000480  20 36 2c 31 31 32 2c 31  0d 02 08 0e c8 99 20 36  | 6,112,1...... 6|
00000490  2c 31 31 33 2c 31 0d 02  12 05 db 0d 02 1c 08 f2  |,113,1..........|
000004a0  61 73 73 0d 02 26 04 0d  02 30 0d c8 8e 20 b3 28  |ass..&...0... .(|
000004b0  36 29 20 ca 0d 02 3a 1a  c9 20 31 3a 61 25 3d 35  |6) ...:.. 1:a%=5|
000004c0  30 3a 62 25 3d 35 30 3a  63 25 3d 31 32 38 0d 02  |0:b%=50:c%=128..|
000004d0  44 1a c9 20 32 3a 61 25  3d 35 30 3a 62 25 3d 31  |D.. 2:a%=50:b%=1|
000004e0  32 38 3a 63 25 3d 35 30  0d 02 4e 1a c9 20 33 3a  |28:c%=50..N.. 3:|
000004f0  61 25 3d 31 32 38 3a 62  25 3d 35 30 3a 63 25 3d  |a%=128:b%=50:c%=|
00000500  35 30 0d 02 58 1b c9 20  34 3a 61 25 3d 31 32 38  |50..X.. 4:a%=128|
00000510  3a 62 25 3d 31 32 38 3a  63 25 3d 35 30 0d 02 62  |:b%=128:c%=50..b|
00000520  1b c9 20 35 3a 61 25 3d  31 32 38 3a 63 25 3d 31  |.. 5:a%=128:c%=1|
00000530  32 38 3a 62 25 3d 35 30  0d 02 6c 1b c9 20 36 3a  |28:b%=50..l.. 6:|
00000540  62 25 3d 31 32 38 3a 63  25 3d 31 32 38 3a 61 25  |b%=128:c%=128:a%|
00000550  3d 35 30 0d 02 76 05 cb  0d 02 80 04 0d 02 8a 0d  |=50..v..........|
00000560  e3 20 4e 25 3d 31 b8 31  35 0d 02 94 04 0d 02 9e  |. N%=1.15.......|
00000570  18 46 31 25 3d 61 25 2a  28 b5 b2 28 32 34 2a 4e  |.F1%=a%*(..(24*N|
00000580  25 29 2b 31 29 0d 02 a8  1c 46 32 25 3d 62 25 2a  |%)+1)....F2%=b%*|
00000590  28 b5 b2 28 32 34 2a 4e  25 2b 31 32 30 29 2b 31  |(..(24*N%+120)+1|
000005a0  29 0d 02 b2 1c 46 33 25  3d 63 25 2a 28 b5 b2 28  |)....F3%=c%*(..(|
000005b0  32 34 2a 4e 25 2b 32 34  30 29 2b 31 29 0d 02 bc  |24*N%+240)+1)...|
000005c0  14 fb 20 4e 25 2c 46 31  25 2c 46 32 25 2c 46 33  |.. N%,F1%,F2%,F3|
000005d0  25 0d 02 c6 05 ed 0d 02  d0 04 0d 02 da 0d d6 20  |%.............. |
000005e0  67 72 61 6e 69 74 65 0d  02 e4 0c d6 20 73 6d 75  |granite..... smu|
000005f0  64 67 65 0d 02 ee 12 62  69 63 25 3d 21 62 69 63  |dge....bic%=!bic|
00000600  76 61 6c 75 65 0d 02 f8  04 0d 03 02 10 e7 20 21  |value......... !|
00000610  62 6f 62 3d 32 35 35 20  8c 0d 03 0c 08 4a 25 3d  |bob=255 .....J%=|
00000620  30 0d 03 16 08 4b 25 3d  30 0d 03 20 08 43 25 3d  |0....K%=0.. .C%=|
00000630  30 0d 03 2a 0d 43 31 25  3d b3 28 31 35 29 0d 03  |0..*.C1%=.(15)..|
00000640  34 0d 43 32 25 3d b3 28  31 35 29 0d 03 3e 0d 43  |4.C2%=.(15)..>.C|
00000650  33 25 3d b3 28 31 32 29  0d 03 48 0f e3 20 49 25  |3%=.(12)..H.. I%|
00000660  3d 30 20 b8 20 31 35 0d  03 52 30 fb 20 49 25 2c  |=0 . 15..R0. I%,|
00000670  49 25 2a 4b 25 20 81 20  43 31 25 2c 49 25 2a 28  |I%*K% . C1%,I%*(|
00000680  4a 25 20 81 20 43 32 25  29 2c 49 25 2a 28 43 33  |J% . C2%),I%*(C3|
00000690  25 2b b3 28 34 29 29 0d  03 5c 0a 4a 25 2b 3d 43  |%+.(4))..\.J%+=C|
000006a0  25 0d 03 66 09 4b 25 2b  3d 31 0d 03 70 09 43 25  |%..f.K%+=1..p.C%|
000006b0  2b 3d 31 0d 03 7a 05 ed  0d 03 84 04 0d 03 8e 05  |+=1..z..........|
000006c0  cd 0d 03 98 05 cd 0d 03  a2 04 0d 03 ac 0e c8 95  |................|
000006d0  20 21 62 6f 62 3d 31 33  0d 03 b6 1d ff 20 22 53  | !bob=13..... "S|
000006e0  43 52 45 45 4e 53 41 56  45 20 50 49 54 22 2b c3  |CREENSAVE PIT"+.|
000006f0  20 50 49 43 25 0d 03 c0  0b 50 49 43 25 2b 3d 31  | PIC%....PIC%+=1|
00000700  0d 03 ca 0c d6 20 73 6d  75 64 67 65 0d 03 d4 05  |..... smudge....|
00000710  ce 0d 03 de 04 0d 03 e8  15 fd 20 21 62 6f 62 3d  |.......... !bob=|
00000720  32 20 84 20 21 62 6f 62  3d 34 0d 03 f2 0c fd 20  |2 . !bob=4..... |
00000730  21 62 6f 62 3d 34 0d 03  fc 05 e0 0d 04 06 04 0d  |!bob=4..........|
00000740  04 10 09 dd f2 61 73 73  0d 04 1a 0b 6c 69 6e 6b  |.....ass....link|
00000750  3d 31 34 0d 04 24 09 73  70 3d 31 33 0d 04 2e 0d  |=14..$.sp=13....|
00000760  73 63 72 65 65 6e 3d 31  32 0d 04 38 04 0d 04 42  |screen=12..8...B|
00000770  14 e3 20 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |.. pass=0 . 2 . |
00000780  32 0d 04 4c 0b 50 25 3d  63 6f 64 65 0d 04 56 0d  |2..L.P%=code..V.|
00000790  5b 4f 50 54 20 70 61 73  73 0d 04 60 18 2e 62 69  |[OPT pass..`..bi|
000007a0  63 76 61 6c 75 65 20 20  45 51 55 44 20 62 69 63  |cvalue  EQUD bic|
000007b0  25 0d 04 6a 17 2e 75 6c  74 76 61 6c 75 65 20 20  |%..j..ultvalue  |
000007c0  45 51 55 44 20 75 6c 74  0d 04 74 15 2e 74 65 6d  |EQUD ult..t..tem|
000007d0  70 73 70 20 20 20 20 45  51 55 44 20 30 0d 04 7e  |psp    EQUD 0..~|
000007e0  04 0d 04 88 21 2e 67 72  61 6e 69 74 65 20 20 20  |....!.granite   |
000007f0  53 54 4d 46 44 20 28 73  70 29 21 2c 7b 6c 69 6e  |STMFD (sp)!,{lin|
00000800  6b 7d 0d 04 92 13 4c 44  52 20 73 63 72 65 65 6e  |k}....LDR screen|
00000810  2c 73 63 72 6e 0d 04 9c  11 4d 4f 56 20 52 32 2c  |,scrn....MOV R2,|
00000820  73 63 72 65 65 6e 0d 04  a6 21 20 20 20 20 20 20  |screen...!      |
00000830  20 20 20 20 20 4d 4f 56  20 20 52 31 2c 23 32 35  |     MOV  R1,#25|
00000840  36 2f 73 66 25 2d 32 0d  04 b0 19 2e 79 6c 6f 6f  |6/sf%-2.....yloo|
00000850  70 20 20 20 20 20 4d 4f  56 20 20 52 30 2c 23 30  |p     MOV  R0,#0|
00000860  0d 04 ba 0a 2e 78 6c 6f  6f 70 0d 04 c4 12 53 55  |.....xloop....SU|
00000870  42 20 52 39 2c 52 30 2c  23 31 36 30 0d 04 ce 13  |B R9,R0,#160....|
00000880  53 55 42 20 52 31 30 2c  52 31 2c 23 31 32 38 0d  |SUB R10,R1,#128.|
00000890  04 d8 17 4d 4f 56 20 52  35 2c 52 31 30 2c 41 53  |...MOV R5,R10,AS|
000008a0  52 23 b3 28 36 29 0d 04  e2 16 4d 4f 56 20 52 36  |R#.(6)....MOV R6|
000008b0  2c 52 39 2c 41 53 52 23  b3 28 36 29 0d 04 ec 04  |,R9,ASR#.(6)....|
000008c0  0d 04 f6 05 5d 0d 05 00  0b 52 25 3d b3 28 34 29  |....]....R%=.(4)|
000008d0  0d 05 0a 0c e7 20 52 25  3d 31 20 8c 0d 05 14 0d  |..... R%=1 .....|
000008e0  5b 4f 50 54 20 70 61 73  73 0d 05 1e 11 4d 55 4c  |[OPT pass....MUL|
000008f0  20 52 33 2c 52 31 30 2c  52 35 0d 05 28 05 5d 0d  | R3,R10,R5..(.].|
00000900  05 32 05 cd 0d 05 3c 0c  e7 20 52 25 3d 32 20 8c  |.2....<.. R%=2 .|
00000910  0d 05 46 0d 5b 4f 50 54  20 70 61 73 73 0d 05 50  |..F.[OPT pass..P|
00000920  11 4d 55 4c 20 52 33 2c  52 31 30 2c 52 36 0d 05  |.MUL R3,R10,R6..|
00000930  5a 05 5d 0d 05 64 05 cd  0d 05 6e 0c e7 20 52 25  |Z.]..d....n.. R%|
00000940  3d 33 20 8c 0d 05 78 0d  5b 4f 50 54 20 70 61 73  |=3 ...x.[OPT pas|
00000950  73 0d 05 82 11 4d 55 4c  20 52 33 2c 52 31 30 2c  |s....MUL R3,R10,|
00000960  52 39 0d 05 8c 05 5d 0d  05 96 05 cd 0d 05 a0 0c  |R9....].........|
00000970  e7 20 52 25 3d 34 20 8c  0d 05 aa 0d 5b 4f 50 54  |. R%=4 .....[OPT|
00000980  20 70 61 73 73 0d 05 b4  11 4d 55 4c 20 52 33 2c  | pass....MUL R3,|
00000990  52 39 2c 52 31 30 0d 05  be 05 5d 0d 05 c8 05 cd  |R9,R10....].....|
000009a0  0d 05 d2 0b 52 25 3d b3  28 34 29 0d 05 dc 0c e7  |....R%=.(4).....|
000009b0  20 52 25 3d 31 20 8c 0d  05 e6 0d 5b 4f 50 54 20  | R%=1 .....[OPT |
000009c0  70 61 73 73 0d 05 f0 10  4d 55 4c 20 52 34 2c 52  |pass....MUL R4,R|
000009d0  39 2c 52 35 0d 05 fa 05  5d 0d 06 04 05 cd 0d 06  |9,R5....].......|
000009e0  0e 0c e7 20 52 25 3d 32  20 8c 0d 06 18 0d 5b 4f  |... R%=2 .....[O|
000009f0  50 54 20 70 61 73 73 0d  06 22 10 4d 55 4c 20 52  |PT pass..".MUL R|
00000a00  34 2c 52 39 2c 52 36 0d  06 2c 05 5d 0d 06 36 05  |4,R9,R6..,.]..6.|
00000a10  cd 0d 06 40 0c e7 20 52  25 3d 33 20 8c 0d 06 4a  |...@.. R%=3 ...J|
00000a20  0d 5b 4f 50 54 20 70 61  73 73 0d 06 54 10 4d 55  |.[OPT pass..T.MU|
00000a30  4c 20 52 34 2c 52 39 2c  52 39 0d 06 5e 05 5d 0d  |L R4,R9,R9..^.].|
00000a40  06 68 05 cd 0d 06 72 0c  e7 20 52 25 3d 34 20 8c  |.h....r.. R%=4 .|
00000a50  0d 06 7c 0d 5b 4f 50 54  20 70 61 73 73 0d 06 86  |..|.[OPT pass...|
00000a60  11 4d 55 4c 20 52 34 2c  52 39 2c 52 31 30 0d 06  |.MUL R4,R9,R10..|
00000a70  90 05 5d 0d 06 9a 05 cd  0d 06 a4 04 0d 06 ae 0d  |..].............|
00000a80  5b 4f 50 54 20 70 61 73  73 0d 06 b8 11 41 44 44  |[OPT pass....ADD|
00000a90  20 20 52 33 2c 52 33 2c  52 34 0d 06 c2 13 53 54  |  R3,R3,R4....ST|
00000aa0  52 42 20 52 33 2c 5b 52  32 5d 2c 23 31 0d 06 cc  |RB R3,[R2],#1...|
00000ab0  04 0d 06 d6 1d 20 20 20  20 20 20 20 20 20 20 20  |.....           |
00000ac0  41 44 44 20 20 20 52 30  2c 52 30 2c 23 31 0d 06  |ADD   R0,R0,#1..|
00000ad0  e0 1c 20 20 20 20 20 20  20 20 20 20 20 43 4d 50  |..           CMP|
00000ae0  20 20 20 52 30 2c 23 33  32 30 0d 06 ea 1a 20 20  |   R0,#320....  |
00000af0  20 20 20 20 20 20 20 20  20 42 4c 54 20 20 20 78  |         BLT   x|
00000b00  6c 6f 6f 70 0d 06 f4 04  0d 06 fe 1d 20 20 20 20  |loop........    |
00000b10  20 20 20 20 20 20 20 53  55 42 53 20 20 52 31 2c  |       SUBS  R1,|
00000b20  52 31 2c 23 31 0d 07 08  1a 20 20 20 20 20 20 20  |R1,#1....       |
00000b30  20 20 20 20 42 47 54 20  20 20 79 6c 6f 6f 70 0d  |    BGT   yloop.|
00000b40  07 12 04 0d 07 1c 14 4c  44 4d 46 44 20 28 73 70  |.......LDMFD (sp|
00000b50  29 21 2c 7b 50 43 7d 0d  07 26 04 0d 07 30 21 2e  |)!,{PC}..&...0!.|
00000b60  73 6d 75 64 67 65 20 20  20 20 53 54 4d 46 44 20  |smudge    STMFD |
00000b70  28 73 70 29 21 2c 7b 6c  69 6e 6b 7d 0d 07 3a 14  |(sp)!,{link}..:.|
00000b80  4c 44 52 20 52 31 34 2c  62 69 63 76 61 6c 75 65  |LDR R14,bicvalue|
00000b90  0d 07 44 12 53 54 52 20  52 31 33 2c 74 65 6d 70  |..D.STR R13,temp|
00000ba0  73 70 0d 07 4e 14 4c 44  52 20 52 31 33 2c 75 6c  |sp..N.LDR R13,ul|
00000bb0  74 76 61 6c 75 65 0d 07  58 04 0d 07 62 0d 2e 6d  |tvalue..X...b..m|
00000bc0  61 69 6e 6c 6f 6f 70 0d  07 6c 0f 4d 4f 56 20 52  |ainloop..l.MOV R|
00000bd0  30 2c 23 31 32 39 0d 07  76 0e 4d 56 4e 20 52 31  |0,#129..v.MVN R1|
00000be0  2c 23 35 37 0d 07 80 0f  4d 4f 56 20 52 32 2c 23  |,#57....MOV R2,#|
00000bf0  32 35 35 0d 07 8a 11 53  57 49 20 22 4f 53 5f 42  |255....SWI "OS_B|
00000c00  79 74 65 22 0d 07 94 0f  43 4d 50 20 52 32 2c 23  |yte"....CMP R2,#|
00000c10  32 35 35 0d 07 9e 14 41  44 44 45 51 20 52 31 34  |255....ADDEQ R14|
00000c20  2c 52 31 34 2c 23 31 0d  07 a8 04 0d 07 b2 0e 4d  |,R14,#1........M|
00000c30  56 4e 20 52 31 2c 23 34  31 0d 07 bc 0f 4d 4f 56  |VN R1,#41....MOV|
00000c40  20 52 32 2c 23 32 35 35  0d 07 c6 11 53 57 49 20  | R2,#255....SWI |
00000c50  22 4f 53 5f 42 79 74 65  22 0d 07 d0 0f 43 4d 50  |"OS_Byte"....CMP|
00000c60  20 52 32 2c 23 32 35 35  0d 07 da 14 53 55 42 45  | R2,#255....SUBE|
00000c70  51 20 52 31 34 2c 52 31  34 2c 23 31 0d 07 e4 0e  |Q R14,R14,#1....|
00000c80  43 4d 50 20 52 31 34 2c  23 30 0d 07 ee 10 4d 4f  |CMP R14,#0....MO|
00000c90  56 4c 45 20 52 31 34 2c  23 31 0d 07 f8 04 0d 08  |VLE R14,#1......|
00000ca0  02 0e 4d 56 4e 20 52 31  2c 23 32 35 0d 08 0c 0f  |..MVN R1,#25....|
00000cb0  4d 4f 56 20 52 32 2c 23  32 35 35 0d 08 16 11 53  |MOV R2,#255....S|
00000cc0  57 49 20 22 4f 53 5f 42  79 74 65 22 0d 08 20 0f  |WI "OS_Byte".. .|
00000cd0  43 4d 50 20 52 32 2c 23  32 35 35 0d 08 2a 13 53  |CMP R2,#255..*.S|
00000ce0  55 42 45 51 20 52 31 33  2c 31 33 2c 23 31 0d 08  |UBEQ R13,13,#1..|
00000cf0  34 04 0d 08 3e 0f 4d 56  4e 20 52 31 2c 23 31 32  |4...>.MVN R1,#12|
00000d00  31 0d 08 48 0f 4d 4f 56  20 52 32 2c 23 32 35 35  |1..H.MOV R2,#255|
00000d10  0d 08 52 11 53 57 49 20  22 4f 53 5f 42 79 74 65  |..R.SWI "OS_Byte|
00000d20  22 0d 08 5c 0f 43 4d 50  20 52 32 2c 23 32 35 35  |"..\.CMP R2,#255|
00000d30  0d 08 66 14 41 44 44 45  51 20 52 31 33 2c 52 31  |..f.ADDEQ R13,R1|
00000d40  33 2c 23 31 0d 08 70 0e  43 4d 50 20 52 31 33 2c  |3,#1..p.CMP R13,|
00000d50  23 30 0d 08 7a 10 4d 4f  56 4c 45 20 52 31 33 2c  |#0..z.MOVLE R13,|
00000d60  23 31 0d 08 84 04 0d 08  8e 1e 20 20 20 20 20 20  |#1........      |
00000d70  20 20 20 20 20 4c 44 52  20 73 63 72 65 65 6e 2c  |     LDR screen,|
00000d80  73 63 72 6e 0d 08 98 14  4c 44 52 20 52 31 2c 6f  |scrn....LDR R1,o|
00000d90  74 68 65 72 73 63 72 6e  0d 08 a2 11 4d 4f 56 20  |therscrn....MOV |
00000da0  52 30 2c 73 63 72 65 65  6e 0d 08 ac 13 41 44 44  |R0,screen....ADD|
00000db0  20 52 31 31 2c 52 30 2c  23 33 32 30 0d 08 b6 04  | R11,R0,#320....|
00000dc0  0d 08 c0 13 4c 44 52 42  20 52 32 2c 5b 52 30 2c  |....LDRB R2,[R0,|
00000dd0  23 30 5d 0d 08 ca 14 4c  44 52 42 20 52 33 2c 5b  |#0]....LDRB R3,[|
00000de0  52 30 2c 23 31 5d 21 0d  08 d4 13 4c 44 52 42 20  |R0,#1]!....LDRB |
00000df0  52 34 2c 5b 52 30 2c 23  31 5d 0d 08 de 15 4c 44  |R4,[R0,#1]....LD|
00000e00  52 42 20 52 36 2c 5b 52  30 2c 23 33 32 30 5d 0d  |RB R6,[R0,#320].|
00000e10  08 e8 04 0d 08 f2 10 41  44 44 20 52 39 2c 52 33  |.......ADD R9,R3|
00000e20  2c 52 32 0d 08 fc 10 41  44 44 20 52 39 2c 52 39  |,R2....ADD R9,R9|
00000e30  2c 52 36 0d 09 06 0d 4d  4f 56 20 52 37 2c 23 33  |,R6....MOV R7,#3|
00000e40  0d 09 10 10 4d 55 4c 20  52 39 2c 52 37 2c 52 39  |....MUL R9,R7,R9|
00000e50  0d 09 1a 13 4d 4f 56 20  52 39 2c 52 39 2c 4c 53  |....MOV R9,R9,LS|
00000e60  52 23 33 0d 09 24 13 53  54 52 42 20 52 39 2c 5b  |R#3..$.STRB R9,[|
00000e70  52 31 5d 2c 23 31 0d 09  2e 04 0d 09 38 0c 2e 74  |R1],#1......8..t|
00000e80  6f 70 6c 69 6e 65 0d 09  42 15 4c 44 52 42 20 52  |opline..B.LDRB R|
00000e90  36 2c 5b 52 30 2c 23 33  32 30 5d 0d 09 4c 14 4c  |6,[R0,#320]..L.L|
00000ea0  44 52 42 20 52 34 2c 5b  52 30 2c 23 31 5d 21 0d  |DRB R4,[R0,#1]!.|
00000eb0  09 56 10 41 44 44 20 52  39 2c 52 33 2c 52 32 0d  |.V.ADD R9,R3,R2.|
00000ec0  09 60 10 41 44 44 20 52  39 2c 52 39 2c 52 34 0d  |.`.ADD R9,R9,R4.|
00000ed0  09 6a 10 41 44 44 20 52  39 2c 52 39 2c 52 36 0d  |.j.ADD R9,R9,R6.|
00000ee0  09 74 04 0d 09 7e 13 4d  4f 56 20 52 39 2c 52 39  |.t...~.MOV R9,R9|
00000ef0  2c 4c 53 52 23 32 0d 09  88 11 42 49 43 20 52 39  |,LSR#2....BIC R9|
00000f00  2c 52 39 2c 52 31 34 0d  09 92 13 53 54 52 42 20  |,R9,R14....STRB |
00000f10  52 39 2c 5b 52 31 5d 2c  23 31 0d 09 9c 0d 4d 4f  |R9,[R1],#1....MO|
00000f20  56 20 52 32 2c 52 33 0d  09 a6 0d 4d 4f 56 20 52  |V R2,R3....MOV R|
00000f30  33 2c 52 34 0d 09 b0 04  0d 09 ba 0e 43 4d 50 20  |3,R4........CMP |
00000f40  52 30 2c 52 31 31 0d 09  c4 0f 42 4c 54 20 74 6f  |R0,R11....BLT to|
00000f50  70 6c 69 6e 65 0d 09 ce  04 0d 09 d8 13 41 44 44  |pline........ADD|
00000f60  20 52 31 31 2c 52 30 2c  23 73 7a 25 0d 09 e2 12  | R11,R0,#sz%....|
00000f70  53 55 42 20 52 31 31 2c  52 31 31 2c 23 31 0d 09  |SUB R11,R11,#1..|
00000f80  ec 16 53 55 42 20 52 31  31 2c 52 31 31 2c 23 33  |..SUB R11,R11,#3|
00000f90  32 30 2a 33 0d 09 f6 04  0d 0a 00 0d 2e 73 6d 75  |20*3.........smu|
00000fa0  64 67 65 6c 70 0d 0a 0a  16 4c 44 52 42 20 52 35  |dgelp....LDRB R5|
00000fb0  2c 5b 52 30 2c 23 2d 33  32 30 5d 0d 0a 14 15 4c  |,[R0,#-320]....L|
00000fc0  44 52 42 20 52 36 2c 5b  52 30 2c 23 33 32 30 5d  |DRB R6,[R0,#320]|
00000fd0  0d 0a 1e 14 4c 44 52 42  20 52 34 2c 5b 52 30 2c  |....LDRB R4,[R0,|
00000fe0  23 31 5d 21 0d 0a 28 10  41 44 44 20 52 39 2c 52  |#1]!..(.ADD R9,R|
00000ff0  33 2c 52 32 0d 0a 32 10  41 44 44 20 52 39 2c 52  |3,R2..2.ADD R9,R|
00001000  39 2c 52 34 0d 0a 3c 10  41 44 44 20 52 39 2c 52  |9,R4..<.ADD R9,R|
00001010  39 2c 52 35 0d 0a 46 10  41 44 44 20 52 39 2c 52  |9,R5..F.ADD R9,R|
00001020  39 2c 52 36 0d 0a 50 04  0d 0a 5a 11 4d 55 4c 20  |9,R6..P...Z.MUL |
00001030  52 39 2c 52 31 33 2c 52  39 0d 0a 64 13 4d 4f 56  |R9,R13,R9..d.MOV|
00001040  20 52 39 2c 52 39 2c 4c  53 52 23 39 0d 0a 6e 12  | R9,R9,LSR#9..n.|
00001050  42 49 43 20 52 31 30 2c  52 39 2c 52 31 34 0d 0a  |BIC R10,R9,R14..|
00001060  78 04 0d 0a 82 0d 4d 4f  56 20 52 32 2c 52 33 0d  |x.....MOV R2,R3.|
00001070  0a 8c 0d 4d 4f 56 20 52  33 2c 52 34 0d 0a 96 16  |...MOV R3,R4....|
00001080  4c 44 52 42 20 52 35 2c  5b 52 30 2c 23 2d 33 32  |LDRB R5,[R0,#-32|
00001090  30 5d 0d 0a a0 15 4c 44  52 42 20 52 36 2c 5b 52  |0]....LDRB R6,[R|
000010a0  30 2c 23 33 32 30 5d 0d  0a aa 14 4c 44 52 42 20  |0,#320]....LDRB |
000010b0  52 34 2c 5b 52 30 2c 23  31 5d 21 0d 0a b4 10 41  |R4,[R0,#1]!....A|
000010c0  44 44 20 52 39 2c 52 33  2c 52 32 0d 0a be 10 41  |DD R9,R3,R2....A|
000010d0  44 44 20 52 39 2c 52 39  2c 52 34 0d 0a c8 10 41  |DD R9,R9,R4....A|
000010e0  44 44 20 52 39 2c 52 39  2c 52 35 0d 0a d2 10 41  |DD R9,R9,R5....A|
000010f0  44 44 20 52 39 2c 52 39  2c 52 36 0d 0a dc 04 0d  |DD R9,R9,R6.....|
00001100  0a e6 11 4d 55 4c 20 52  39 2c 52 31 33 2c 52 39  |...MUL R9,R13,R9|
00001110  0d 0a f0 13 4d 4f 56 20  52 39 2c 52 39 2c 4c 53  |....MOV R9,R9,LS|
00001120  52 23 39 0d 0a fa 11 42  49 43 20 52 39 2c 52 39  |R#9....BIC R9,R9|
00001130  2c 52 31 34 0d 0b 04 18  41 44 44 20 52 31 30 2c  |,R14....ADD R10,|
00001140  52 31 30 2c 52 39 2c 4c  53 4c 23 38 0d 0b 0e 0d  |R10,R9,LSL#8....|
00001150  4d 4f 56 20 52 32 2c 52  33 0d 0b 18 0d 4d 4f 56  |MOV R2,R3....MOV|
00001160  20 52 33 2c 52 34 0d 0b  22 04 0d 0b 2c 16 4c 44  | R3,R4.."...,.LD|
00001170  52 42 20 52 35 2c 5b 52  30 2c 23 2d 33 32 30 5d  |RB R5,[R0,#-320]|
00001180  0d 0b 36 15 4c 44 52 42  20 52 36 2c 5b 52 30 2c  |..6.LDRB R6,[R0,|
00001190  23 33 32 30 5d 0d 0b 40  14 4c 44 52 42 20 52 34  |#320]..@.LDRB R4|
000011a0  2c 5b 52 30 2c 23 31 5d  21 0d 0b 4a 10 41 44 44  |,[R0,#1]!..J.ADD|
000011b0  20 52 39 2c 52 33 2c 52  32 0d 0b 54 10 41 44 44  | R9,R3,R2..T.ADD|
000011c0  20 52 39 2c 52 39 2c 52  34 0d 0b 5e 10 41 44 44  | R9,R9,R4..^.ADD|
000011d0  20 52 39 2c 52 39 2c 52  35 0d 0b 68 10 41 44 44  | R9,R9,R5..h.ADD|
000011e0  20 52 39 2c 52 39 2c 52  36 0d 0b 72 04 0d 0b 7c  | R9,R9,R6..r...||
000011f0  11 4d 55 4c 20 52 39 2c  52 31 33 2c 52 39 0d 0b  |.MUL R9,R13,R9..|
00001200  86 13 4d 4f 56 20 52 39  2c 52 39 2c 4c 53 52 23  |..MOV R9,R9,LSR#|
00001210  39 0d 0b 90 11 42 49 43  20 52 39 2c 52 39 2c 52  |9....BIC R9,R9,R|
00001220  31 34 0d 0b 9a 19 41 44  44 20 52 31 30 2c 52 31  |14....ADD R10,R1|
00001230  30 2c 52 39 2c 4c 53 4c  23 31 36 0d 0b a4 0d 4d  |0,R9,LSL#16....M|
00001240  4f 56 20 52 32 2c 52 33  0d 0b ae 0d 4d 4f 56 20  |OV R2,R3....MOV |
00001250  52 33 2c 52 34 0d 0b b8  04 0d 0b c2 16 4c 44 52  |R3,R4........LDR|
00001260  42 20 52 35 2c 5b 52 30  2c 23 2d 33 32 30 5d 0d  |B R5,[R0,#-320].|
00001270  0b cc 15 4c 44 52 42 20  52 36 2c 5b 52 30 2c 23  |...LDRB R6,[R0,#|
00001280  33 32 30 5d 0d 0b d6 14  4c 44 52 42 20 52 34 2c  |320]....LDRB R4,|
00001290  5b 52 30 2c 23 31 5d 21  0d 0b e0 10 41 44 44 20  |[R0,#1]!....ADD |
000012a0  52 39 2c 52 33 2c 52 32  0d 0b ea 10 41 44 44 20  |R9,R3,R2....ADD |
000012b0  52 39 2c 52 39 2c 52 34  0d 0b f4 10 41 44 44 20  |R9,R9,R4....ADD |
000012c0  52 39 2c 52 39 2c 52 35  0d 0b fe 10 41 44 44 20  |R9,R9,R5....ADD |
000012d0  52 39 2c 52 39 2c 52 36  0d 0c 08 04 0d 0c 12 11  |R9,R9,R6........|
000012e0  4d 55 4c 20 52 39 2c 52  31 33 2c 52 39 0d 0c 1c  |MUL R9,R13,R9...|
000012f0  13 4d 4f 56 20 52 39 2c  52 39 2c 4c 53 52 23 39  |.MOV R9,R9,LSR#9|
00001300  0d 0c 26 11 42 49 43 20  52 39 2c 52 39 2c 52 31  |..&.BIC R9,R9,R1|
00001310  34 0d 0c 30 19 41 44 44  20 52 31 30 2c 52 31 30  |4..0.ADD R10,R10|
00001320  2c 52 39 2c 4c 53 4c 23  32 34 0d 0c 3a 13 53 54  |,R9,LSL#24..:.ST|
00001330  52 20 52 31 30 2c 5b 52  31 5d 2c 23 34 0d 0c 44  |R R10,[R1],#4..D|
00001340  04 0d 0c 4e 0d 4d 4f 56  20 52 32 2c 52 33 0d 0c  |...N.MOV R2,R3..|
00001350  58 0d 4d 4f 56 20 52 33  2c 52 34 0d 0c 62 04 0d  |X.MOV R3,R4..b..|
00001360  0c 6c 0e 43 4d 50 20 52  30 2c 52 31 31 0d 0c 76  |.l.CMP R0,R11..v|
00001370  10 42 4c 54 20 73 6d 75  64 67 65 6c 70 0d 0c 80  |.BLT smudgelp...|
00001380  0f 4d 4f 56 20 52 30 2c  23 31 31 33 0d 0c 8a 0d  |.MOV R0,#113....|
00001390  4d 4f 56 20 52 31 2c 23  32 0d 0c 94 11 53 57 49  |MOV R1,#2....SWI|
000013a0  20 22 4f 53 5f 42 79 74  65 22 0d 0c 9e 04 0d 0c  | "OS_Byte"......|
000013b0  a8 0f 4d 4f 56 20 52 30  2c 23 31 32 39 0d 0c b2  |..MOV R0,#129...|
000013c0  0d 4d 56 4e 20 52 31 2c  23 30 0d 0c bc 0f 4d 4f  |.MVN R1,#0....MO|
000013d0  56 20 52 32 2c 23 32 35  35 0d 0c c6 11 53 57 49  |V R2,#255....SWI|
000013e0  20 22 4f 53 5f 42 79 74  65 22 0d 0c d0 0f 43 4d  | "OS_Byte"....CM|
000013f0  50 20 52 32 2c 23 32 35  35 0d 0c da 0d ec 51 20  |P R2,#255.....Q |
00001400  52 30 2c 23 31 33 0d 0c  e4 10 53 54 52 45 51 20  |R0,#13....STREQ |
00001410  52 30 2c 62 6f 62 0d 0c  ee 0c 42 45 51 20 66 69  |R0,bob....BEQ fi|
00001420  6e 69 0d 0c f8 04 0d 0d  02 0f 4d 56 4e 20 52 31  |ni........MVN R1|
00001430  2c 23 31 31 32 0d 0d 0c  0f 4d 4f 56 20 52 32 2c  |,#112....MOV R2,|
00001440  23 32 35 35 0d 0d 16 11  53 57 49 20 22 4f 53 5f  |#255....SWI "OS_|
00001450  42 79 74 65 22 0d 0d 20  0f 43 4d 50 20 52 32 2c  |Byte".. .CMP R2,|
00001460  23 32 35 35 0d 0d 2a 0c  ec 51 20 52 30 2c 23 34  |#255..*..Q R0,#4|
00001470  0d 0d 34 10 53 54 52 45  51 20 52 30 2c 62 6f 62  |..4.STREQ R0,bob|
00001480  0d 0d 3e 0c 42 45 51 20  66 69 6e 69 0d 0d 48 04  |..>.BEQ fini..H.|
00001490  0d 0d 52 14 4c 44 52 20  52 30 2c 6f 74 68 65 72  |..R.LDR R0,other|
000014a0  73 63 72 6e 0d 0d 5c 11  4d 4f 56 20 52 31 2c 73  |scrn..\.MOV R1,s|
000014b0  63 72 65 65 6e 0d 0d 66  13 41 44 44 20 52 31 31  |creen..f.ADD R11|
000014c0  2c 52 30 2c 23 33 32 30  0d 0d 70 04 0d 0d 7a 13  |,R0,#320..p...z.|
000014d0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 0d  |LDRB R2,[R0,#0].|
000014e0  0d 84 14 4c 44 52 42 20  52 33 2c 5b 52 30 2c 23  |...LDRB R3,[R0,#|
000014f0  31 5d 21 0d 0d 8e 13 4c  44 52 42 20 52 34 2c 5b  |1]!....LDRB R4,[|
00001500  52 30 2c 23 31 5d 0d 0d  98 15 4c 44 52 42 20 52  |R0,#1]....LDRB R|
00001510  36 2c 5b 52 30 2c 23 33  32 30 5d 0d 0d a2 04 0d  |6,[R0,#320].....|
00001520  0d ac 10 41 44 44 20 52  39 2c 52 33 2c 52 32 0d  |...ADD R9,R3,R2.|
00001530  0d b6 10 41 44 44 20 52  39 2c 52 39 2c 52 36 0d  |...ADD R9,R9,R6.|
00001540  0d c0 0d 4d 4f 56 20 52  37 2c 23 33 0d 0d ca 10  |...MOV R7,#3....|
00001550  4d 55 4c 20 52 39 2c 52  37 2c 52 39 0d 0d d4 13  |MUL R9,R7,R9....|
00001560  4d 4f 56 20 52 39 2c 52  39 2c 4c 53 52 23 33 0d  |MOV R9,R9,LSR#3.|
00001570  0d de 13 53 54 52 42 20  52 39 2c 5b 52 31 5d 2c  |...STRB R9,[R1],|
00001580  23 31 0d 0d e8 04 0d 0d  f2 0d 2e 74 6f 70 6c 69  |#1.........topli|
00001590  6e 65 32 0d 0d fc 15 4c  44 52 42 20 52 36 2c 5b  |ne2....LDRB R6,[|
000015a0  52 30 2c 23 33 32 30 5d  0d 0e 06 14 4c 44 52 42  |R0,#320]....LDRB|
000015b0  20 52 34 2c 5b 52 30 2c  23 31 5d 21 0d 0e 10 10  | R4,[R0,#1]!....|
000015c0  41 44 44 20 52 39 2c 52  33 2c 52 32 0d 0e 1a 10  |ADD R9,R3,R2....|
000015d0  41 44 44 20 52 39 2c 52  39 2c 52 34 0d 0e 24 10  |ADD R9,R9,R4..$.|
000015e0  41 44 44 20 52 39 2c 52  39 2c 52 36 0d 0e 2e 04  |ADD R9,R9,R6....|
000015f0  0d 0e 38 13 4d 4f 56 20  52 39 2c 52 39 2c 4c 53  |..8.MOV R9,R9,LS|
00001600  52 23 32 0d 0e 42 11 42  49 43 20 52 39 2c 52 39  |R#2..B.BIC R9,R9|
00001610  2c 52 31 34 0d 0e 4c 13  53 54 52 42 20 52 39 2c  |,R14..L.STRB R9,|
00001620  5b 52 31 5d 2c 23 31 0d  0e 56 0d 4d 4f 56 20 52  |[R1],#1..V.MOV R|
00001630  32 2c 52 33 0d 0e 60 0d  4d 4f 56 20 52 33 2c 52  |2,R3..`.MOV R3,R|
00001640  34 0d 0e 6a 04 0d 0e 74  0e 43 4d 50 20 52 30 2c  |4..j...t.CMP R0,|
00001650  52 31 31 0d 0e 7e 10 42  4c 54 20 74 6f 70 6c 69  |R11..~.BLT topli|
00001660  6e 65 32 0d 0e 88 04 0d  0e 92 13 41 44 44 20 52  |ne2........ADD R|
00001670  31 31 2c 52 30 2c 23 73  7a 25 0d 0e 9c 12 53 55  |11,R0,#sz%....SU|
00001680  42 20 52 31 31 2c 52 31  31 2c 23 31 0d 0e a6 16  |B R11,R11,#1....|
00001690  53 55 42 20 52 31 31 2c  52 31 31 2c 23 33 32 30  |SUB R11,R11,#320|
000016a0  2a 33 0d 0e b0 04 0d 0e  ba 0e 2e 73 6d 75 64 67  |*3.........smudg|
000016b0  65 6c 70 32 0d 0e c4 16  4c 44 52 42 20 52 35 2c  |elp2....LDRB R5,|
000016c0  5b 52 30 2c 23 2d 33 32  30 5d 0d 0e ce 15 4c 44  |[R0,#-320]....LD|
000016d0  52 42 20 52 36 2c 5b 52  30 2c 23 33 32 30 5d 0d  |RB R6,[R0,#320].|
000016e0  0e d8 14 4c 44 52 42 20  52 34 2c 5b 52 30 2c 23  |...LDRB R4,[R0,#|
000016f0  31 5d 21 0d 0e e2 10 41  44 44 20 52 39 2c 52 33  |1]!....ADD R9,R3|
00001700  2c 52 32 0d 0e ec 10 41  44 44 20 52 39 2c 52 39  |,R2....ADD R9,R9|
00001710  2c 52 34 0d 0e f6 10 41  44 44 20 52 39 2c 52 39  |,R4....ADD R9,R9|
00001720  2c 52 35 0d 0f 00 10 41  44 44 20 52 39 2c 52 39  |,R5....ADD R9,R9|
00001730  2c 52 36 0d 0f 0a 04 0d  0f 14 11 4d 55 4c 20 52  |,R6........MUL R|
00001740  39 2c 52 31 33 2c 52 39  0d 0f 1e 13 4d 4f 56 20  |9,R13,R9....MOV |
00001750  52 39 2c 52 39 2c 4c 53  52 23 39 0d 0f 28 12 42  |R9,R9,LSR#9..(.B|
00001760  49 43 20 52 31 30 2c 52  39 2c 52 31 34 0d 0f 32  |IC R10,R9,R14..2|
00001770  04 0d 0f 3c 0d 4d 4f 56  20 52 32 2c 52 33 0d 0f  |...<.MOV R2,R3..|
00001780  46 0d 4d 4f 56 20 52 33  2c 52 34 0d 0f 50 16 4c  |F.MOV R3,R4..P.L|
00001790  44 52 42 20 52 35 2c 5b  52 30 2c 23 2d 33 32 30  |DRB R5,[R0,#-320|
000017a0  5d 0d 0f 5a 15 4c 44 52  42 20 52 36 2c 5b 52 30  |]..Z.LDRB R6,[R0|
000017b0  2c 23 33 32 30 5d 0d 0f  64 14 4c 44 52 42 20 52  |,#320]..d.LDRB R|
000017c0  34 2c 5b 52 30 2c 23 31  5d 21 0d 0f 6e 10 41 44  |4,[R0,#1]!..n.AD|
000017d0  44 20 52 39 2c 52 33 2c  52 32 0d 0f 78 10 41 44  |D R9,R3,R2..x.AD|
000017e0  44 20 52 39 2c 52 39 2c  52 34 0d 0f 82 10 41 44  |D R9,R9,R4....AD|
000017f0  44 20 52 39 2c 52 39 2c  52 35 0d 0f 8c 10 41 44  |D R9,R9,R5....AD|
00001800  44 20 52 39 2c 52 39 2c  52 36 0d 0f 96 04 0d 0f  |D R9,R9,R6......|
00001810  a0 11 4d 55 4c 20 52 39  2c 52 31 33 2c 52 39 0d  |..MUL R9,R13,R9.|
00001820  0f aa 13 4d 4f 56 20 52  39 2c 52 39 2c 4c 53 52  |...MOV R9,R9,LSR|
00001830  23 39 0d 0f b4 11 42 49  43 20 52 39 2c 52 39 2c  |#9....BIC R9,R9,|
00001840  52 31 34 0d 0f be 18 41  44 44 20 52 31 30 2c 52  |R14....ADD R10,R|
00001850  31 30 2c 52 39 2c 4c 53  4c 23 38 0d 0f c8 0d 4d  |10,R9,LSL#8....M|
00001860  4f 56 20 52 32 2c 52 33  0d 0f d2 0d 4d 4f 56 20  |OV R2,R3....MOV |
00001870  52 33 2c 52 34 0d 0f dc  04 0d 0f e6 16 4c 44 52  |R3,R4........LDR|
00001880  42 20 52 35 2c 5b 52 30  2c 23 2d 33 32 30 5d 0d  |B R5,[R0,#-320].|
00001890  0f f0 15 4c 44 52 42 20  52 36 2c 5b 52 30 2c 23  |...LDRB R6,[R0,#|
000018a0  33 32 30 5d 0d 0f fa 14  4c 44 52 42 20 52 34 2c  |320]....LDRB R4,|
000018b0  5b 52 30 2c 23 31 5d 21  0d 10 04 10 41 44 44 20  |[R0,#1]!....ADD |
000018c0  52 39 2c 52 33 2c 52 32  0d 10 0e 10 41 44 44 20  |R9,R3,R2....ADD |
000018d0  52 39 2c 52 39 2c 52 34  0d 10 18 10 41 44 44 20  |R9,R9,R4....ADD |
000018e0  52 39 2c 52 39 2c 52 35  0d 10 22 10 41 44 44 20  |R9,R9,R5..".ADD |
000018f0  52 39 2c 52 39 2c 52 36  0d 10 2c 04 0d 10 36 11  |R9,R9,R6..,...6.|
00001900  4d 55 4c 20 52 39 2c 52  31 33 2c 52 39 0d 10 40  |MUL R9,R13,R9..@|
00001910  13 4d 4f 56 20 52 39 2c  52 39 2c 4c 53 52 23 39  |.MOV R9,R9,LSR#9|
00001920  0d 10 4a 11 42 49 43 20  52 39 2c 52 39 2c 52 31  |..J.BIC R9,R9,R1|
00001930  34 0d 10 54 19 41 44 44  20 52 31 30 2c 52 31 30  |4..T.ADD R10,R10|
00001940  2c 52 39 2c 4c 53 4c 23  31 36 0d 10 5e 0d 4d 4f  |,R9,LSL#16..^.MO|
00001950  56 20 52 32 2c 52 33 0d  10 68 0d 4d 4f 56 20 52  |V R2,R3..h.MOV R|
00001960  33 2c 52 34 0d 10 72 04  0d 10 7c 16 4c 44 52 42  |3,R4..r...|.LDRB|
00001970  20 52 35 2c 5b 52 30 2c  23 2d 33 32 30 5d 0d 10  | R5,[R0,#-320]..|
00001980  86 15 4c 44 52 42 20 52  36 2c 5b 52 30 2c 23 33  |..LDRB R6,[R0,#3|
00001990  32 30 5d 0d 10 90 14 4c  44 52 42 20 52 34 2c 5b  |20]....LDRB R4,[|
000019a0  52 30 2c 23 31 5d 21 0d  10 9a 10 41 44 44 20 52  |R0,#1]!....ADD R|
000019b0  39 2c 52 33 2c 52 32 0d  10 a4 10 41 44 44 20 52  |9,R3,R2....ADD R|
000019c0  39 2c 52 39 2c 52 34 0d  10 ae 10 41 44 44 20 52  |9,R9,R4....ADD R|
000019d0  39 2c 52 39 2c 52 35 0d  10 b8 10 41 44 44 20 52  |9,R9,R5....ADD R|
000019e0  39 2c 52 39 2c 52 36 0d  10 c2 04 0d 10 cc 11 4d  |9,R9,R6........M|
000019f0  55 4c 20 52 39 2c 52 31  33 2c 52 39 0d 10 d6 13  |UL R9,R13,R9....|
00001a00  4d 4f 56 20 52 39 2c 52  39 2c 4c 53 52 23 39 0d  |MOV R9,R9,LSR#9.|
00001a10  10 e0 11 42 49 43 20 52  39 2c 52 39 2c 52 31 34  |...BIC R9,R9,R14|
00001a20  0d 10 ea 19 41 44 44 20  52 31 30 2c 52 31 30 2c  |....ADD R10,R10,|
00001a30  52 39 2c 4c 53 4c 23 32  34 0d 10 f4 13 53 54 52  |R9,LSL#24....STR|
00001a40  20 52 31 30 2c 5b 52 31  5d 2c 23 34 0d 10 fe 04  | R10,[R1],#4....|
00001a50  0d 11 08 0d 4d 4f 56 20  52 32 2c 52 33 0d 11 12  |....MOV R2,R3...|
00001a60  0d 4d 4f 56 20 52 33 2c  52 34 0d 11 1c 04 0d 11  |.MOV R3,R4......|
00001a70  26 0e 43 4d 50 20 52 30  2c 52 31 31 0d 11 30 11  |&.CMP R0,R11..0.|
00001a80  42 4c 54 20 73 6d 75 64  67 65 6c 70 32 0d 11 3a  |BLT smudgelp2..:|
00001a90  04 0d 11 44 0f 4d 4f 56  20 52 30 2c 23 31 31 33  |...D.MOV R0,#113|
00001aa0  0d 11 4e 0d 4d 4f 56 20  52 31 2c 23 31 0d 11 58  |..N.MOV R1,#1..X|
00001ab0  11 53 57 49 20 22 4f 53  5f 42 79 74 65 22 0d 11  |.SWI "OS_Byte"..|
00001ac0  62 04 0d 11 6c 09 2e 6d  6f 75 73 0d 11 76 04 0d  |b...l..mous..v..|
00001ad0  11 80 0f 4d 4f 56 20 52  30 2c 23 31 32 39 0d 11  |...MOV R0,#129..|
00001ae0  8a 0d 4d 56 4e 20 52 31  2c 23 30 0d 11 94 0f 4d  |..MVN R1,#0....M|
00001af0  4f 56 20 52 32 2c 23 32  35 35 0d 11 9e 11 53 57  |OV R2,#255....SW|
00001b00  49 20 22 4f 53 5f 42 79  74 65 22 0d 11 a8 0f 43  |I "OS_Byte"....C|
00001b10  4d 50 20 52 32 2c 23 32  35 35 0d 11 b2 0d ec 51  |MP R2,#255.....Q|
00001b20  20 52 30 2c 23 31 33 0d  11 bc 10 53 54 52 45 51  | R0,#13....STREQ|
00001b30  20 52 30 2c 62 6f 62 0d  11 c6 0c 42 45 51 20 66  | R0,bob....BEQ f|
00001b40  69 6e 69 0d 11 d0 04 0d  11 da 0f 4d 4f 56 20 52  |ini........MOV R|
00001b50  30 2c 23 31 32 39 0d 11  e4 0f 4d 56 4e 20 52 31  |0,#129....MVN R1|
00001b60  2c 23 31 31 32 0d 11 ee  0f 4d 4f 56 20 52 32 2c  |,#112....MOV R2,|
00001b70  23 32 35 35 0d 11 f8 11  53 57 49 20 22 4f 53 5f  |#255....SWI "OS_|
00001b80  42 79 74 65 22 0d 12 02  0f 43 4d 50 20 52 32 2c  |Byte"....CMP R2,|
00001b90  23 32 35 35 0d 12 0c 0c  ec 51 20 52 30 2c 23 34  |#255.....Q R0,#4|
00001ba0  0d 12 16 10 53 54 52 45  51 20 52 30 2c 62 6f 62  |....STREQ R0,bob|
00001bb0  0d 12 20 0c 42 45 51 20  66 69 6e 69 0d 12 2a 04  |.. .BEQ fini..*.|
00001bc0  0d 12 34 12 53 57 49 20  22 4f 53 5f 4d 6f 75 73  |..4.SWI "OS_Mous|
00001bd0  65 22 0d 12 3e 0d 43 4d  50 20 52 32 2c 23 30 0d  |e"..>.CMP R2,#0.|
00001be0  12 48 10 53 54 52 47 54  20 52 32 2c 62 6f 62 0d  |.H.STRGT R2,bob.|
00001bf0  12 52 0c 42 47 54 20 66  69 6e 69 0d 12 5c 04 0d  |.R.BGT fini..\..|
00001c00  12 66 0e 42 20 6d 61 69  6e 6c 6f 6f 70 0d 12 70  |.f.B mainloop..p|
00001c10  04 0d 12 7a 1c 2e 66 69  6e 69 20 20 20 20 20 4c  |...z..fini     L|
00001c20  44 52 20 52 31 33 2c 74  65 6d 70 73 70 0d 12 84  |DR R13,tempsp...|
00001c30  14 53 54 52 20 52 31 33  2c 75 6c 74 76 61 6c 75  |.STR R13,ultvalu|
00001c40  65 0d 12 8e 14 53 54 52  20 52 31 34 2c 62 69 63  |e....STR R14,bic|
00001c50  76 61 6c 75 65 0d 12 98  15 20 4c 44 4d 46 44 20  |value.... LDMFD |
00001c60  28 73 70 29 21 2c 7b 50  43 7d 0d 12 a2 0f 2e 62  |(sp)!,{PC}.....b|
00001c70  6f 62 20 45 51 55 44 20  30 0d 12 ac 04 0d 12 b6  |ob EQUD 0.......|
00001c80  1d 2e 63 6f 6c 64 61 74  61 20 20 20 45 51 55 44  |..coldata   EQUD|
00001c90  20 63 6f 64 65 2b 34 30  39 36 0d 12 c0 1b 2e 73  | code+4096.....s|
00001ca0  63 72 6e 20 20 20 20 20  20 45 51 55 44 20 73 63  |crn      EQUD sc|
00001cb0  72 65 65 6e 25 0d 12 ca  15 2e 6f 6c 64 63 6f 6c  |reen%.....oldcol|
00001cc0  25 20 20 20 45 51 55 44  20 30 0d 12 d4 21 2e 6f  |%   EQUD 0...!.o|
00001cd0  74 68 65 72 73 63 72 6e  20 45 51 55 44 20 73 63  |therscrn EQUD sc|
00001ce0  72 65 65 6e 25 2b 38 31  39 32 30 0d 12 de 26 2e  |reen%+81920...&.|
00001cf0  6f 74 68 65 72 73 63 72  6e 32 20 45 51 55 44 20  |otherscrn2 EQUD |
00001d00  73 63 72 65 65 6e 25 2b  38 31 39 32 30 2b 33 32  |screen%+81920+32|
00001d10  30 0d 12 e8 28 2e 6f 74  68 65 72 73 63 72 6e 33  |0...(.otherscrn3|
00001d20  20 45 51 55 44 20 73 63  72 65 65 6e 25 2b 38 31  | EQUD screen%+81|
00001d30  39 32 30 2b 33 32 30 2b  31 0d 12 f2 16 2e 63 6f  |920+320+1.....co|
00001d40  75 6e 74 65 72 20 20 20  45 51 55 44 20 31 30 0d  |unter   EQUD 10.|
00001d50  12 fc 04 0d 13 06 1a 2e  72 6e 64 20 20 20 20 20  |........rnd     |
00001d60  20 20 4c 44 52 20 52 37  2c 73 65 65 64 0d 13 10  |  LDR R7,seed...|
00001d70  18 20 20 20 20 20 20 20  20 20 20 20 4c 44 52 20  |.           LDR |
00001d80  52 38 2c 63 31 0d 13 1a  18 20 20 20 20 20 20 20  |R8,c1....       |
00001d90  20 20 20 20 4c 44 52 20  52 39 2c 63 32 0d 13 24  |    LDR R9,c2..$|
00001da0  1e 20 20 20 20 20 20 20  20 20 20 20 4d 4c 41 20  |.           MLA |
00001db0  52 37 2c 52 38 2c 52 37  2c 52 39 0d 13 2e 1f 20  |R7,R8,R7,R9.... |
00001dc0  20 20 20 20 20 20 20 20  20 20 4d 4c 41 20 52 31  |          MLA R1|
00001dd0  30 2c 52 38 2c 52 37 2c  52 39 0d 13 38 1b 20 20  |0,R8,R7,R9..8.  |
00001de0  20 20 20 20 20 20 20 20  20 53 54 52 20 52 31 30  |         STR R10|
00001df0  2c 73 65 65 64 0d 13 42  21 20 20 20 20 20 20 20  |,seed..B!       |
00001e00  20 20 20 20 82 20 52 37  2c 52 37 2c 52 31 30 2c  |    . R7,R7,R10,|
00001e10  52 4f 52 23 31 36 0d 13  4c 04 0d 13 56 1a 20 20  |ROR#16..L...V.  |
00001e20  20 20 20 20 20 20 20 20  20 4d 4f 56 20 52 38 2c  |         MOV R8,|
00001e30  23 32 35 36 0d 13 60 1b  20 20 20 20 20 20 20 20  |#256..`.        |
00001e40  20 20 20 53 55 42 20 52  38 2c 52 38 2c 23 31 0d  |   SUB R8,R8,#1.|
00001e50  13 6a 19 20 20 20 20 20  20 20 20 20 20 20 80 20  |.j.           . |
00001e60  52 37 2c 52 37 2c 52 38  0d 13 74 04 0d 13 7e 19  |R7,R7,R8..t...~.|
00001e70  20 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 50  |           MOV P|
00001e80  43 2c 52 31 34 0d 13 88  04 0d 13 92 16 2e 63 31  |C,R14.........c1|
00001e90  20 20 20 45 51 55 44 20  31 36 36 34 35 32 35 0d  |   EQUD 1664525.|
00001ea0  13 9c 18 2e 63 32 20 20  20 45 51 55 44 20 39 30  |....c2   EQUD 90|
00001eb0  37 36 33 33 33 39 33 0d  13 a6 10 2e 73 65 65 64  |7633393.....seed|
00001ec0  20 45 51 55 44 20 91 0d  13 b0 10 2e 72 6e 64 25  | EQUD ......rnd%|
00001ed0  20 45 51 55 44 20 30 0d  13 ba 05 5d 0d 13 c4 05  | EQUD 0....]....|
00001ee0  ed 0d 13 ce 05 e1 0d 13  d8 05 e0 0d 13 e2 04 0d  |................|
00001ef0  13 ec 0a dd f2 73 63 72  6e 0d 13 f6 16 de 20 62  |.....scrn..... b|
00001f00  6c 6f 63 6b 25 20 31 35  2c 62 32 25 20 31 35 0d  |lock% 15,b2% 15.|
00001f10  14 00 10 62 6c 6f 63 6b  25 21 30 3d 31 34 38 0d  |...block%!0=148.|
00001f20  14 0a 0e 62 6c 6f 63 6b  25 21 34 3d 37 0d 14 14  |...block%!4=7...|
00001f30  0e 62 6c 6f 63 6b 25 21  38 3d 36 0d 14 1e 10 62  |.block%!8=6....b|
00001f40  6c 6f 63 6b 25 21 31 32  3d 2d 31 0d 14 28 27 c8  |lock%!12=-1..('.|
00001f50  99 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |. "OS_ReadVduVar|
00001f60  69 61 62 6c 65 73 22 2c  62 6c 6f 63 6b 25 2c 62  |iables",block%,b|
00001f70  32 25 0d 14 32 0f 73 69  7a 65 25 3d 62 32 25 21  |2%..2.size%=b2%!|
00001f80  34 0d 14 3c 10 62 6c 6f  63 6b 25 21 30 3d 31 34  |4..<.block%!0=14|
00001f90  38 0d 14 46 0e 62 6c 6f  63 6b 25 21 34 3d 37 0d  |8..F.block%!4=7.|
00001fa0  14 50 0e 62 6c 6f 63 6b  25 21 38 3d 36 0d 14 5a  |.P.block%!8=6..Z|
00001fb0  10 62 6c 6f 63 6b 25 21  31 32 3d 2d 31 0d 14 64  |.block%!12=-1..d|
00001fc0  27 c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |'.. "OS_ReadVduV|
00001fd0  61 72 69 61 62 6c 65 73  22 2c 62 6c 6f 63 6b 25  |ariables",block%|
00001fe0  2c 62 32 25 0d 14 6e 11  73 63 72 65 65 6e 25 3d  |,b2%..n.screen%=|
00001ff0  62 32 25 21 30 0d 14 78  0f 73 69 7a 65 25 3d 62  |b2%!0..x.size%=b|
00002000  32 25 21 34 0d 14 82 05  e1 0d ff                 |2%!4.......|
0000200b