�15:�13:�
	�scrn
�granite_ass
(
�col_init
2�
<	�cols
F�
P�granite
ZI=�(150)
d� 0
n�
x
���granite_ass
��code 4096+16+81920
��:�" at line ";�:�
�link=14
�	sp=13
�
screen=12
��pass=0�2�2
�P%=code
�
[OPT pass
�.granite STMFD (sp)!,{link}
�
�LDR screen,scrn
�MOV R1,#253

.yloop MOV R0,#1

ADD R2,R0,R1,LSL#6

ADD R2,R2,R1,LSL#8

"ADD R2,R2,screen

,SUB R2,R2,#4

6LDRB R6,[R2,#0]

@

J.xloop ADD R2,R0,R1,LSL#6

TADD R2,R2,R1,LSL#8

^ADD R2,R2,screen

hSUB R2,R2,#4

r
MOV R4,R6

|LDRB R3,[R2,#320*2]

�
MOV R6,R3

�ADD R4,R4,R3

�ADD R2,R2,#2

�LDRB R3,[R2,#320]

�ADD R4,R4,R3

�ADD R2,R2,#2

�LDRB R3,[R2,#320*2]

�ADD R4,R4,R3

�MOV R4,R4,LSL#8-2

�
BL rnd

�SUB R7,R7,#113

�LDR R5,bobr

�ADD R7,R7,R5
ADD R4,R4,R7,ASL#3

CMP R4,#0
LDRLT R4,oldcol%
&BLT maus
0MOVGE R4,R4,ASR#8
:� R4,R4,#%1111
DSTRLT R4,oldcol%
N.maus SUB R2,R2,#1
XSTRB R4,[R2,#0]
bADD R0,R0,#2
lCMP R0,#320
vSUBLT R0,R0,#1
�
BLT xloop
�SUB R1,R1,#1
�
CMP R1,#9
�
BGT yloop
�
MOV R0,#1
�STR R0,counter
�
�.smudge LDR R5,smudge%
�
CMP R5,#0
�BEQ nosmudge
�
�LDR R1,otherscrn
�MOV R0,screen
ADD R1,R1,#1
ADD R0,R0,#320
ADD R1,R1,#320
 ADD R11,R0,#81920
*SUB R11,R11,#1
4SUB R11,R11,#320*2
>
HLDRB R8,[R0,#0]
RLDRB R9,[R0,#1]
\
f.smudgelp MOV R2,R8
p
MOV R3,R9
zLDRB R4,[R0,#2]
�
MOV R8,R3
�
MOV R9,R4
�SUB R0,R0,#320
�ADD R0,R0,#1
�LDRB R5,[R0],#640
�LDRB R6,[R0,#0]
�SUB R0,R0,#320
�SUB R0,R0,#1
�ADD   R3,R3,R2
�ADD   R3,R3,R4
�ADD   R3,R3,R5
�ADD   R3,R3,R6
�MOV R2,R3,LSL#3
ADD R2,R2,R3,LSL#2
ADD R2,R2,R3,LSL#1
MOV R2,R2,LSR#6
$STRB R2,[R1],#1
.ADD R0,R0,#1
8CMP R0,R11
BBLT smudgelp
L
VLDR R1,otherscrn
`ADD R1,R1,#320
jADD R0,screen,#320
tADD R11,R0,#81920
~SUB R11,R11,#640
�.copyloop LDMIA R1!,{R2-R9}
�STMIA R0!,{R2-R9}
�CMP R0,R11
�BLT copyloop
�
�
.nosmudge
�LDR R0,counter
�LDR R5,smudge%
�
CMP R0,R5
�ADDLE R0,R0,#1
�STRLE R0,counter
�BLE smudge


LDR R1,otherscrn
ADD R1,R1,#320
ADD R0,screen,#320
(ADD R11,R0,#81920
2SUB R11,R11,#640
<.copyloop2 LDRB R2,[R1],#1
FSTRB R2,[R0],#1
PCMP R0,R11
ZBLT copyloop2
d
nLDR R5,coldata
xMOV R0,screen
�ADD R1,R0,#81920
�.changelp LDRB R2,[R0,#0]
�LDRB R6,[R5,R2]
�STRB R6,[R0],#1
�
CMP R0,R1
�BLT changelp
�
�LDR R5,coldata
�LDR R0,otherscrn
�ADD R1,R0,#81920
�.changelp2 LDRB R2,[R0,#0]
�LDRB R6,[R5,R2]
�STRB R6,[R0],#1

CMP R0,R1
BLT changelp2

".fini LDMFD (sp)!,{PC}
,
.d EQUD 0
6
.e EQUD 0
@.smudge% EQUD 0
J.store EQUD 0
T.bobr EQUD 0
^.del STMFD (sp)!,{link}
hLDR R0,d
rLDR R1,e
|LDR R2,scrn
�LDR R3,otherscrn
�RSB R1,R1,#1024
�SUB R1,R1,#32
�MOV R1,R1,LSR#2
�
�ADD R2,R2,R0,LSR#1
�ADD R2,R2,R1,LSL#7
�ADD R2,R2,R1,LSL#9
�
�ADD R3,R3,R0,LSR#2
�ADD R3,R3,R1,LSL#6
�ADD R3,R3,R1,LSL#8
�
]
� I%=1 � 8
� J%=1 � 8
&
[OPT pass
0LDRB R0,[R3],#1
:STRB R0,[R2],#1
DSTRB R0,[R2],#1
N]�
X
[OPT pass
bADD R3,R3,#320-8
lADD R2,R2,#640-16
v]�
�
[OPT pass
�LDMFD (sp)!,{PC}
�
�.coldata EQUD code+4096
�.scrn EQUD screen%
�.oldcol%EQUD 0
� .otherscrn EQUD code+4096+16
�.counter EQUD 0
�.sub EQUD 0
�.mod16 � R4,R4,#%1111
�MOV PC,R14
�
�.rnd LDR R7,seed

LDR R8,c1

LDR R9,c2
MLA R7,R8,R7,R9
 MLA R10,R8,R7,R9
*
4LDR R5,sub
>SUB R10,R10,R5
HSTR R10,seed
R
\LDR R5,eor
f
CMP R5,#1
p�GE R7,R7,R10,ROR R5
z
�� R7,R7,#%11111111
�MOV PC,R14
�.c1 EQUD 1664525
�.c2 EQUD 907633393
�.seed EQUD �
�.rnd%EQUD 0
�.eor EQUD 0
�]
��
��
�
��granite
�!eor=�(8)-1
�!sub=�(128)
	!smudge%=�(3)
	!bobr=�(4)-�(2)
	�granite
	$� 0 Ȝ 0
	.ȓȐ 0,1024,1279,-12
	8ȓȐ 0,0,1279,4
	B�
	L
	V��col_init
	`� COL%(7,15)
	j� J%=0 � 7
	t� I%=0 � 15
	~� COL%(J%,I%)
	��:�
	�
CC%=-1
	��
	�
	�
��cols
	�CC%=�(8)-1
	�data%=code+4096
	��I%=0�15
	�data%?I%=COL%(CC%,I%)
	��
	��
	�
<� 0,1,2,3, 12,13,14,15, 176,177,178,179, 220,221,222,223

:� 0,1,2,3, 8,9,10,11, 128,129,130,131, 168,169,170,171
4� 0,1,2,3, 32,33,34,35, 64,65,66,67, 96,97,98,99
0� 0,1,2,3, 4,5,6,7, 16,17,18,19, 20,21,22,23
(:� 0,0,1,2, 8,9,10,11, 164,165,166,167, 216,217,218,219
29� 0,0, 0,1,2,3, 44,45,46,47, 208,209,210,211 ,252,253
<
F:� 0,0,1,2, 8,9,10,11, 164,165,166,167, 216,217,218,219
P:� 0,0,1,2, 8,9,10,11, 164,165,166,167, 216,217,218,219
Z
d
��scrn
n�block%15,b2%15
xblock%!0=148
�block%!4=7
�block%!8=6
�block%!12=-1
�&ș"OS_ReadVduVariables",block%,b2%
�block%!0=148
�block%!4=7
�block%!8=6
�block%!12=-1
�&ș"OS_ReadVduVariables",block%,b2%
�screen%=b2%!0
��
�
�
�

00000000  0d 00 0a 0d eb 31 35 3a  eb 31 33 3a 87 0d 00 14  |.....15:.13:....|
00000010  09 f2 73 63 72 6e 0d 00  1e 10 f2 67 72 61 6e 69  |..scrn.....grani|
00000020  74 65 5f 61 73 73 0d 00  28 0d f2 63 6f 6c 5f 69  |te_ass..(..col_i|
00000030  6e 69 74 0d 00 32 05 f5  0d 00 3c 09 f2 63 6f 6c  |nit..2....<..col|
00000040  73 0d 00 46 05 db 0d 00  50 0c f2 67 72 61 6e 69  |s..F....P..grani|
00000050  74 65 0d 00 5a 0c 49 3d  a6 28 31 35 30 29 0d 00  |te..Z.I=.(150)..|
00000060  64 07 fd 20 30 0d 00 6e  05 e0 0d 00 78 04 0d 00  |d.. 0..n....x...|
00000070  82 11 dd f2 67 72 61 6e  69 74 65 5f 61 73 73 0d  |....granite_ass.|
00000080  00 8c 17 de 63 6f 64 65  20 34 30 39 36 2b 31 36  |....code 4096+16|
00000090  2b 38 31 39 32 30 0d 00  96 18 ee 85 f6 3a f1 22  |+81920.......:."|
000000a0  20 61 74 20 6c 69 6e 65  20 22 3b 9e 3a e0 0d 00  | at line ";.:...|
000000b0  a0 0b 6c 69 6e 6b 3d 31  34 0d 00 aa 09 73 70 3d  |..link=14....sp=|
000000c0  31 33 0d 00 b4 0d 73 63  72 65 65 6e 3d 31 32 0d  |13....screen=12.|
000000d0  00 be 0f e3 70 61 73 73  3d 30 b8 32 88 32 0d 00  |....pass=0.2.2..|
000000e0  c8 0b 50 25 3d 63 6f 64  65 0d 00 d2 0d 5b 4f 50  |..P%=code....[OP|
000000f0  54 20 70 61 73 73 0d 00  dc 1f 2e 67 72 61 6e 69  |T pass.....grani|
00000100  74 65 20 53 54 4d 46 44  20 28 73 70 29 21 2c 7b  |te STMFD (sp)!,{|
00000110  6c 69 6e 6b 7d 0d 00 e6  04 0d 00 f0 13 4c 44 52  |link}........LDR|
00000120  20 73 63 72 65 65 6e 2c  73 63 72 6e 0d 00 fa 0f  | screen,scrn....|
00000130  4d 4f 56 20 52 31 2c 23  32 35 33 0d 01 04 14 2e  |MOV R1,#253.....|
00000140  79 6c 6f 6f 70 20 4d 4f  56 20 52 30 2c 23 31 0d  |yloop MOV R0,#1.|
00000150  01 0e 16 41 44 44 20 52  32 2c 52 30 2c 52 31 2c  |...ADD R2,R0,R1,|
00000160  4c 53 4c 23 36 0d 01 18  16 41 44 44 20 52 32 2c  |LSL#6....ADD R2,|
00000170  52 32 2c 52 31 2c 4c 53  4c 23 38 0d 01 22 14 41  |R2,R1,LSL#8..".A|
00000180  44 44 20 52 32 2c 52 32  2c 73 63 72 65 65 6e 0d  |DD R2,R2,screen.|
00000190  01 2c 10 53 55 42 20 52  32 2c 52 32 2c 23 34 0d  |.,.SUB R2,R2,#4.|
000001a0  01 36 13 4c 44 52 42 20  52 36 2c 5b 52 32 2c 23  |.6.LDRB R6,[R2,#|
000001b0  30 5d 0d 01 40 04 0d 01  4a 1d 2e 78 6c 6f 6f 70  |0]..@...J..xloop|
000001c0  20 41 44 44 20 52 32 2c  52 30 2c 52 31 2c 4c 53  | ADD R2,R0,R1,LS|
000001d0  4c 23 36 0d 01 54 16 41  44 44 20 52 32 2c 52 32  |L#6..T.ADD R2,R2|
000001e0  2c 52 31 2c 4c 53 4c 23  38 0d 01 5e 14 41 44 44  |,R1,LSL#8..^.ADD|
000001f0  20 52 32 2c 52 32 2c 73  63 72 65 65 6e 0d 01 68  | R2,R2,screen..h|
00000200  10 53 55 42 20 52 32 2c  52 32 2c 23 34 0d 01 72  |.SUB R2,R2,#4..r|
00000210  0d 4d 4f 56 20 52 34 2c  52 36 0d 01 7c 17 4c 44  |.MOV R4,R6..|.LD|
00000220  52 42 20 52 33 2c 5b 52  32 2c 23 33 32 30 2a 32  |RB R3,[R2,#320*2|
00000230  5d 0d 01 86 0d 4d 4f 56  20 52 36 2c 52 33 0d 01  |]....MOV R6,R3..|
00000240  90 10 41 44 44 20 52 34  2c 52 34 2c 52 33 0d 01  |..ADD R4,R4,R3..|
00000250  9a 10 41 44 44 20 52 32  2c 52 32 2c 23 32 0d 01  |..ADD R2,R2,#2..|
00000260  a4 15 4c 44 52 42 20 52  33 2c 5b 52 32 2c 23 33  |..LDRB R3,[R2,#3|
00000270  32 30 5d 0d 01 ae 10 41  44 44 20 52 34 2c 52 34  |20]....ADD R4,R4|
00000280  2c 52 33 0d 01 b8 10 41  44 44 20 52 32 2c 52 32  |,R3....ADD R2,R2|
00000290  2c 23 32 0d 01 c2 17 4c  44 52 42 20 52 33 2c 5b  |,#2....LDRB R3,[|
000002a0  52 32 2c 23 33 32 30 2a  32 5d 0d 01 cc 10 41 44  |R2,#320*2]....AD|
000002b0  44 20 52 34 2c 52 34 2c  52 33 0d 01 d6 15 4d 4f  |D R4,R4,R3....MO|
000002c0  56 20 52 34 2c 52 34 2c  4c 53 4c 23 38 2d 32 0d  |V R4,R4,LSL#8-2.|
000002d0  01 e0 0a 42 4c 20 72 6e  64 0d 01 ea 12 53 55 42  |...BL rnd....SUB|
000002e0  20 52 37 2c 52 37 2c 23  31 31 33 0d 01 f4 0f 4c  | R7,R7,#113....L|
000002f0  44 52 20 52 35 2c 62 6f  62 72 0d 01 fe 10 41 44  |DR R5,bobr....AD|
00000300  44 20 52 37 2c 52 37 2c  52 35 0d 02 08 16 41 44  |D R7,R7,R5....AD|
00000310  44 20 52 34 2c 52 34 2c  52 37 2c 41 53 4c 23 33  |D R4,R4,R7,ASL#3|
00000320  0d 02 12 0d 43 4d 50 20  52 34 2c 23 30 0d 02 1c  |....CMP R4,#0...|
00000330  14 4c 44 52 4c 54 20 52  34 2c 6f 6c 64 63 6f 6c  |.LDRLT R4,oldcol|
00000340  25 0d 02 26 0c 42 4c 54  20 6d 61 75 73 0d 02 30  |%..&.BLT maus..0|
00000350  15 4d 4f 56 47 45 20 52  34 2c 52 34 2c 41 53 52  |.MOVGE R4,R4,ASR|
00000360  23 38 0d 02 3a 12 80 20  52 34 2c 52 34 2c 23 25  |#8..:.. R4,R4,#%|
00000370  31 31 31 31 0d 02 44 14  53 54 52 4c 54 20 52 34  |1111..D.STRLT R4|
00000380  2c 6f 6c 64 63 6f 6c 25  0d 02 4e 16 2e 6d 61 75  |,oldcol%..N..mau|
00000390  73 20 53 55 42 20 52 32  2c 52 32 2c 23 31 0d 02  |s SUB R2,R2,#1..|
000003a0  58 13 53 54 52 42 20 52  34 2c 5b 52 32 2c 23 30  |X.STRB R4,[R2,#0|
000003b0  5d 0d 02 62 10 41 44 44  20 52 30 2c 52 30 2c 23  |]..b.ADD R0,R0,#|
000003c0  32 0d 02 6c 0f 43 4d 50  20 52 30 2c 23 33 32 30  |2..l.CMP R0,#320|
000003d0  0d 02 76 12 53 55 42 4c  54 20 52 30 2c 52 30 2c  |..v.SUBLT R0,R0,|
000003e0  23 31 0d 02 80 0d 42 4c  54 20 78 6c 6f 6f 70 0d  |#1....BLT xloop.|
000003f0  02 8a 10 53 55 42 20 52  31 2c 52 31 2c 23 31 0d  |...SUB R1,R1,#1.|
00000400  02 94 0d 43 4d 50 20 52  31 2c 23 39 0d 02 9e 0d  |...CMP R1,#9....|
00000410  42 47 54 20 79 6c 6f 6f  70 0d 02 a8 0d 4d 4f 56  |BGT yloop....MOV|
00000420  20 52 30 2c 23 31 0d 02  b2 12 53 54 52 20 52 30  | R0,#1....STR R0|
00000430  2c 63 6f 75 6e 74 65 72  0d 02 bc 04 0d 02 c6 1a  |,counter........|
00000440  2e 73 6d 75 64 67 65 20  4c 44 52 20 52 35 2c 73  |.smudge LDR R5,s|
00000450  6d 75 64 67 65 25 0d 02  d0 0d 43 4d 50 20 52 35  |mudge%....CMP R5|
00000460  2c 23 30 0d 02 da 10 42  45 51 20 6e 6f 73 6d 75  |,#0....BEQ nosmu|
00000470  64 67 65 0d 02 e4 04 0d  02 ee 14 4c 44 52 20 52  |dge........LDR R|
00000480  31 2c 6f 74 68 65 72 73  63 72 6e 0d 02 f8 11 4d  |1,otherscrn....M|
00000490  4f 56 20 52 30 2c 73 63  72 65 65 6e 0d 03 02 10  |OV R0,screen....|
000004a0  41 44 44 20 52 31 2c 52  31 2c 23 31 0d 03 0c 12  |ADD R1,R1,#1....|
000004b0  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 0d 03  |ADD R0,R0,#320..|
000004c0  16 12 41 44 44 20 52 31  2c 52 31 2c 23 33 32 30  |..ADD R1,R1,#320|
000004d0  0d 03 20 15 41 44 44 20  52 31 31 2c 52 30 2c 23  |.. .ADD R11,R0,#|
000004e0  38 31 39 32 30 0d 03 2a  12 53 55 42 20 52 31 31  |81920..*.SUB R11|
000004f0  2c 52 31 31 2c 23 31 0d  03 34 16 53 55 42 20 52  |,R11,#1..4.SUB R|
00000500  31 31 2c 52 31 31 2c 23  33 32 30 2a 32 0d 03 3e  |11,R11,#320*2..>|
00000510  04 0d 03 48 13 4c 44 52  42 20 52 38 2c 5b 52 30  |...H.LDRB R8,[R0|
00000520  2c 23 30 5d 0d 03 52 13  4c 44 52 42 20 52 39 2c  |,#0]..R.LDRB R9,|
00000530  5b 52 30 2c 23 31 5d 0d  03 5c 04 0d 03 66 17 2e  |[R0,#1]..\...f..|
00000540  73 6d 75 64 67 65 6c 70  20 4d 4f 56 20 52 32 2c  |smudgelp MOV R2,|
00000550  52 38 0d 03 70 0d 4d 4f  56 20 52 33 2c 52 39 0d  |R8..p.MOV R3,R9.|
00000560  03 7a 13 4c 44 52 42 20  52 34 2c 5b 52 30 2c 23  |.z.LDRB R4,[R0,#|
00000570  32 5d 0d 03 84 0d 4d 4f  56 20 52 38 2c 52 33 0d  |2]....MOV R8,R3.|
00000580  03 8e 0d 4d 4f 56 20 52  39 2c 52 34 0d 03 98 12  |...MOV R9,R4....|
00000590  53 55 42 20 52 30 2c 52  30 2c 23 33 32 30 0d 03  |SUB R0,R0,#320..|
000005a0  a2 10 41 44 44 20 52 30  2c 52 30 2c 23 31 0d 03  |..ADD R0,R0,#1..|
000005b0  ac 15 4c 44 52 42 20 52  35 2c 5b 52 30 5d 2c 23  |..LDRB R5,[R0],#|
000005c0  36 34 30 0d 03 b6 13 4c  44 52 42 20 52 36 2c 5b  |640....LDRB R6,[|
000005d0  52 30 2c 23 30 5d 0d 03  c0 12 53 55 42 20 52 30  |R0,#0]....SUB R0|
000005e0  2c 52 30 2c 23 33 32 30  0d 03 ca 10 53 55 42 20  |,R0,#320....SUB |
000005f0  52 30 2c 52 30 2c 23 31  0d 03 d4 12 41 44 44 20  |R0,R0,#1....ADD |
00000600  20 20 52 33 2c 52 33 2c  52 32 0d 03 de 12 41 44  |  R3,R3,R2....AD|
00000610  44 20 20 20 52 33 2c 52  33 2c 52 34 0d 03 e8 12  |D   R3,R3,R4....|
00000620  41 44 44 20 20 20 52 33  2c 52 33 2c 52 35 0d 03  |ADD   R3,R3,R5..|
00000630  f2 12 41 44 44 20 20 20  52 33 2c 52 33 2c 52 36  |..ADD   R3,R3,R6|
00000640  0d 03 fc 13 4d 4f 56 20  52 32 2c 52 33 2c 4c 53  |....MOV R2,R3,LS|
00000650  4c 23 33 0d 04 06 16 41  44 44 20 52 32 2c 52 32  |L#3....ADD R2,R2|
00000660  2c 52 33 2c 4c 53 4c 23  32 0d 04 10 16 41 44 44  |,R3,LSL#2....ADD|
00000670  20 52 32 2c 52 32 2c 52  33 2c 4c 53 4c 23 31 0d  | R2,R2,R3,LSL#1.|
00000680  04 1a 13 4d 4f 56 20 52  32 2c 52 32 2c 4c 53 52  |...MOV R2,R2,LSR|
00000690  23 36 0d 04 24 13 53 54  52 42 20 52 32 2c 5b 52  |#6..$.STRB R2,[R|
000006a0  31 5d 2c 23 31 0d 04 2e  10 41 44 44 20 52 30 2c  |1],#1....ADD R0,|
000006b0  52 30 2c 23 31 0d 04 38  0e 43 4d 50 20 52 30 2c  |R0,#1..8.CMP R0,|
000006c0  52 31 31 0d 04 42 10 42  4c 54 20 73 6d 75 64 67  |R11..B.BLT smudg|
000006d0  65 6c 70 0d 04 4c 04 0d  04 56 14 4c 44 52 20 52  |elp..L...V.LDR R|
000006e0  31 2c 6f 74 68 65 72 73  63 72 6e 0d 04 60 12 41  |1,otherscrn..`.A|
000006f0  44 44 20 52 31 2c 52 31  2c 23 33 32 30 0d 04 6a  |DD R1,R1,#320..j|
00000700  16 41 44 44 20 52 30 2c  73 63 72 65 65 6e 2c 23  |.ADD R0,screen,#|
00000710  33 32 30 0d 04 74 15 41  44 44 20 52 31 31 2c 52  |320..t.ADD R11,R|
00000720  30 2c 23 38 31 39 32 30  0d 04 7e 14 53 55 42 20  |0,#81920..~.SUB |
00000730  52 31 31 2c 52 31 31 2c  23 36 34 30 0d 04 88 1f  |R11,R11,#640....|
00000740  2e 63 6f 70 79 6c 6f 6f  70 20 4c 44 4d 49 41 20  |.copyloop LDMIA |
00000750  52 31 21 2c 7b 52 32 2d  52 39 7d 0d 04 92 15 53  |R1!,{R2-R9}....S|
00000760  54 4d 49 41 20 52 30 21  2c 7b 52 32 2d 52 39 7d  |TMIA R0!,{R2-R9}|
00000770  0d 04 9c 0e 43 4d 50 20  52 30 2c 52 31 31 0d 04  |....CMP R0,R11..|
00000780  a6 10 42 4c 54 20 63 6f  70 79 6c 6f 6f 70 0d 04  |..BLT copyloop..|
00000790  b0 04 0d 04 ba 0d 2e 6e  6f 73 6d 75 64 67 65 0d  |.......nosmudge.|
000007a0  04 c4 12 4c 44 52 20 52  30 2c 63 6f 75 6e 74 65  |...LDR R0,counte|
000007b0  72 0d 04 ce 12 4c 44 52  20 52 35 2c 73 6d 75 64  |r....LDR R5,smud|
000007c0  67 65 25 0d 04 d8 0d 43  4d 50 20 52 30 2c 52 35  |ge%....CMP R0,R5|
000007d0  0d 04 e2 12 41 44 44 4c  45 20 52 30 2c 52 30 2c  |....ADDLE R0,R0,|
000007e0  23 31 0d 04 ec 14 53 54  52 4c 45 20 52 30 2c 63  |#1....STRLE R0,c|
000007f0  6f 75 6e 74 65 72 0d 04  f6 0e 42 4c 45 20 73 6d  |ounter....BLE sm|
00000800  75 64 67 65 0d 05 00 04  0d 05 0a 14 4c 44 52 20  |udge........LDR |
00000810  52 31 2c 6f 74 68 65 72  73 63 72 6e 0d 05 14 12  |R1,otherscrn....|
00000820  41 44 44 20 52 31 2c 52  31 2c 23 33 32 30 0d 05  |ADD R1,R1,#320..|
00000830  1e 16 41 44 44 20 52 30  2c 73 63 72 65 65 6e 2c  |..ADD R0,screen,|
00000840  23 33 32 30 0d 05 28 15  41 44 44 20 52 31 31 2c  |#320..(.ADD R11,|
00000850  52 30 2c 23 38 31 39 32  30 0d 05 32 14 53 55 42  |R0,#81920..2.SUB|
00000860  20 52 31 31 2c 52 31 31  2c 23 36 34 30 0d 05 3c  | R11,R11,#640..<|
00000870  1e 2e 63 6f 70 79 6c 6f  6f 70 32 20 4c 44 52 42  |..copyloop2 LDRB|
00000880  20 52 32 2c 5b 52 31 5d  2c 23 31 0d 05 46 13 53  | R2,[R1],#1..F.S|
00000890  54 52 42 20 52 32 2c 5b  52 30 5d 2c 23 31 0d 05  |TRB R2,[R0],#1..|
000008a0  50 0e 43 4d 50 20 52 30  2c 52 31 31 0d 05 5a 11  |P.CMP R0,R11..Z.|
000008b0  42 4c 54 20 63 6f 70 79  6c 6f 6f 70 32 0d 05 64  |BLT copyloop2..d|
000008c0  04 0d 05 6e 12 4c 44 52  20 52 35 2c 63 6f 6c 64  |...n.LDR R5,cold|
000008d0  61 74 61 0d 05 78 11 4d  4f 56 20 52 30 2c 73 63  |ata..x.MOV R0,sc|
000008e0  72 65 65 6e 0d 05 82 14  41 44 44 20 52 31 2c 52  |reen....ADD R1,R|
000008f0  30 2c 23 38 31 39 32 30  0d 05 8c 1d 2e 63 68 61  |0,#81920.....cha|
00000900  6e 67 65 6c 70 20 4c 44  52 42 20 52 32 2c 5b 52  |ngelp LDRB R2,[R|
00000910  30 2c 23 30 5d 0d 05 96  13 4c 44 52 42 20 52 36  |0,#0]....LDRB R6|
00000920  2c 5b 52 35 2c 52 32 5d  0d 05 a0 13 53 54 52 42  |,[R5,R2]....STRB|
00000930  20 52 36 2c 5b 52 30 5d  2c 23 31 0d 05 aa 0d 43  | R6,[R0],#1....C|
00000940  4d 50 20 52 30 2c 52 31  0d 05 b4 10 42 4c 54 20  |MP R0,R1....BLT |
00000950  63 68 61 6e 67 65 6c 70  0d 05 be 04 0d 05 c8 12  |changelp........|
00000960  4c 44 52 20 52 35 2c 63  6f 6c 64 61 74 61 0d 05  |LDR R5,coldata..|
00000970  d2 14 4c 44 52 20 52 30  2c 6f 74 68 65 72 73 63  |..LDR R0,othersc|
00000980  72 6e 0d 05 dc 14 41 44  44 20 52 31 2c 52 30 2c  |rn....ADD R1,R0,|
00000990  23 38 31 39 32 30 0d 05  e6 1e 2e 63 68 61 6e 67  |#81920.....chang|
000009a0  65 6c 70 32 20 4c 44 52  42 20 52 32 2c 5b 52 30  |elp2 LDRB R2,[R0|
000009b0  2c 23 30 5d 0d 05 f0 13  4c 44 52 42 20 52 36 2c  |,#0]....LDRB R6,|
000009c0  5b 52 35 2c 52 32 5d 0d  05 fa 13 53 54 52 42 20  |[R5,R2]....STRB |
000009d0  52 36 2c 5b 52 30 5d 2c  23 31 0d 06 04 0d 43 4d  |R6,[R0],#1....CM|
000009e0  50 20 52 30 2c 52 31 0d  06 0e 11 42 4c 54 20 63  |P R0,R1....BLT c|
000009f0  68 61 6e 67 65 6c 70 32  0d 06 18 04 0d 06 22 1a  |hangelp2......".|
00000a00  2e 66 69 6e 69 20 4c 44  4d 46 44 20 28 73 70 29  |.fini LDMFD (sp)|
00000a10  21 2c 7b 50 43 7d 0d 06  2c 0d 2e 64 20 45 51 55  |!,{PC}..,..d EQU|
00000a20  44 20 30 0d 06 36 0d 2e  65 20 45 51 55 44 20 30  |D 0..6..e EQUD 0|
00000a30  0d 06 40 13 2e 73 6d 75  64 67 65 25 20 45 51 55  |..@..smudge% EQU|
00000a40  44 20 30 0d 06 4a 11 2e  73 74 6f 72 65 20 45 51  |D 0..J..store EQ|
00000a50  55 44 20 30 0d 06 54 10  2e 62 6f 62 72 20 45 51  |UD 0..T..bobr EQ|
00000a60  55 44 20 30 0d 06 5e 1b  2e 64 65 6c 20 53 54 4d  |UD 0..^..del STM|
00000a70  46 44 20 28 73 70 29 21  2c 7b 6c 69 6e 6b 7d 0d  |FD (sp)!,{link}.|
00000a80  06 68 0c 4c 44 52 20 52  30 2c 64 0d 06 72 0c 4c  |.h.LDR R0,d..r.L|
00000a90  44 52 20 52 31 2c 65 0d  06 7c 0f 4c 44 52 20 52  |DR R1,e..|.LDR R|
00000aa0  32 2c 73 63 72 6e 0d 06  86 14 4c 44 52 20 52 33  |2,scrn....LDR R3|
00000ab0  2c 6f 74 68 65 72 73 63  72 6e 0d 06 90 13 52 53  |,otherscrn....RS|
00000ac0  42 20 52 31 2c 52 31 2c  23 31 30 32 34 0d 06 9a  |B R1,R1,#1024...|
00000ad0  11 53 55 42 20 52 31 2c  52 31 2c 23 33 32 0d 06  |.SUB R1,R1,#32..|
00000ae0  a4 13 4d 4f 56 20 52 31  2c 52 31 2c 4c 53 52 23  |..MOV R1,R1,LSR#|
00000af0  32 0d 06 ae 04 0d 06 b8  16 41 44 44 20 52 32 2c  |2........ADD R2,|
00000b00  52 32 2c 52 30 2c 4c 53  52 23 31 0d 06 c2 16 41  |R2,R0,LSR#1....A|
00000b10  44 44 20 52 32 2c 52 32  2c 52 31 2c 4c 53 4c 23  |DD R2,R2,R1,LSL#|
00000b20  37 0d 06 cc 16 41 44 44  20 52 32 2c 52 32 2c 52  |7....ADD R2,R2,R|
00000b30  31 2c 4c 53 4c 23 39 0d  06 d6 04 0d 06 e0 16 41  |1,LSL#9........A|
00000b40  44 44 20 52 33 2c 52 33  2c 52 30 2c 4c 53 52 23  |DD R3,R3,R0,LSR#|
00000b50  32 0d 06 ea 16 41 44 44  20 52 33 2c 52 33 2c 52  |2....ADD R3,R3,R|
00000b60  31 2c 4c 53 4c 23 36 0d  06 f4 16 41 44 44 20 52  |1,LSL#6....ADD R|
00000b70  33 2c 52 33 2c 52 31 2c  4c 53 4c 23 38 0d 06 fe  |3,R3,R1,LSL#8...|
00000b80  04 0d 07 08 05 5d 0d 07  12 0e e3 20 49 25 3d 31  |.....]..... I%=1|
00000b90  20 b8 20 38 0d 07 1c 0e  e3 20 4a 25 3d 31 20 b8  | . 8..... J%=1 .|
00000ba0  20 38 0d 07 26 0d 5b 4f  50 54 20 70 61 73 73 0d  | 8..&.[OPT pass.|
00000bb0  07 30 13 4c 44 52 42 20  52 30 2c 5b 52 33 5d 2c  |.0.LDRB R0,[R3],|
00000bc0  23 31 0d 07 3a 13 53 54  52 42 20 52 30 2c 5b 52  |#1..:.STRB R0,[R|
00000bd0  32 5d 2c 23 31 0d 07 44  13 53 54 52 42 20 52 30  |2],#1..D.STRB R0|
00000be0  2c 5b 52 32 5d 2c 23 31  0d 07 4e 06 5d ed 0d 07  |,[R2],#1..N.]...|
00000bf0  58 0d 5b 4f 50 54 20 70  61 73 73 0d 07 62 14 41  |X.[OPT pass..b.A|
00000c00  44 44 20 52 33 2c 52 33  2c 23 33 32 30 2d 38 0d  |DD R3,R3,#320-8.|
00000c10  07 6c 15 41 44 44 20 52  32 2c 52 32 2c 23 36 34  |.l.ADD R2,R2,#64|
00000c20  30 2d 31 36 0d 07 76 06  5d ed 0d 07 80 0d 5b 4f  |0-16..v.].....[O|
00000c30  50 54 20 70 61 73 73 0d  07 8a 14 4c 44 4d 46 44  |PT pass....LDMFD|
00000c40  20 28 73 70 29 21 2c 7b  50 43 7d 0d 07 94 04 0d  | (sp)!,{PC}.....|
00000c50  07 9e 1b 2e 63 6f 6c 64  61 74 61 20 45 51 55 44  |....coldata EQUD|
00000c60  20 63 6f 64 65 2b 34 30  39 36 0d 07 a8 16 2e 73  | code+4096.....s|
00000c70  63 72 6e 20 45 51 55 44  20 73 63 72 65 65 6e 25  |crn EQUD screen%|
00000c80  0d 07 b2 12 2e 6f 6c 64  63 6f 6c 25 45 51 55 44  |.....oldcol%EQUD|
00000c90  20 30 0d 07 bc 20 2e 6f  74 68 65 72 73 63 72 6e  | 0... .otherscrn|
00000ca0  20 45 51 55 44 20 63 6f  64 65 2b 34 30 39 36 2b  | EQUD code+4096+|
00000cb0  31 36 0d 07 c6 13 2e 63  6f 75 6e 74 65 72 20 45  |16.....counter E|
00000cc0  51 55 44 20 30 0d 07 d0  0f 2e 73 75 62 20 45 51  |QUD 0.....sub EQ|
00000cd0  55 44 20 30 0d 07 da 19  2e 6d 6f 64 31 36 20 80  |UD 0.....mod16 .|
00000ce0  20 52 34 2c 52 34 2c 23  25 31 31 31 31 0d 07 e4  | R4,R4,#%1111...|
00000cf0  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 07 ee 04 0d  |.MOV PC,R14.....|
00000d00  07 f8 14 2e 72 6e 64 20  4c 44 52 20 52 37 2c 73  |....rnd LDR R7,s|
00000d10  65 65 64 0d 08 02 0d 4c  44 52 20 52 38 2c 63 31  |eed....LDR R8,c1|
00000d20  0d 08 0c 0d 4c 44 52 20  52 39 2c 63 32 0d 08 16  |....LDR R9,c2...|
00000d30  13 4d 4c 41 20 52 37 2c  52 38 2c 52 37 2c 52 39  |.MLA R7,R8,R7,R9|
00000d40  0d 08 20 14 4d 4c 41 20  52 31 30 2c 52 38 2c 52  |.. .MLA R10,R8,R|
00000d50  37 2c 52 39 0d 08 2a 04  0d 08 34 0e 4c 44 52 20  |7,R9..*...4.LDR |
00000d60  52 35 2c 73 75 62 0d 08  3e 12 53 55 42 20 52 31  |R5,sub..>.SUB R1|
00000d70  30 2c 52 31 30 2c 52 35  0d 08 48 10 53 54 52 20  |0,R10,R5..H.STR |
00000d80  52 31 30 2c 73 65 65 64  0d 08 52 04 0d 08 5c 0e  |R10,seed..R...\.|
00000d90  4c 44 52 20 52 35 2c 65  6f 72 0d 08 66 0d 43 4d  |LDR R5,eor..f.CM|
00000da0  50 20 52 35 2c 23 31 0d  08 70 18 82 47 45 20 52  |P R5,#1..p..GE R|
00000db0  37 2c 52 37 2c 52 31 30  2c 52 4f 52 20 52 35 0d  |7,R7,R10,ROR R5.|
00000dc0  08 7a 04 0d 08 84 16 80  20 52 37 2c 52 37 2c 23  |.z...... R7,R7,#|
00000dd0  25 31 31 31 31 31 31 31  31 0d 08 8e 0e 4d 4f 56  |%11111111....MOV|
00000de0  20 50 43 2c 52 31 34 0d  08 98 14 2e 63 31 20 45  | PC,R14.....c1 E|
00000df0  51 55 44 20 31 36 36 34  35 32 35 0d 08 a2 16 2e  |QUD 1664525.....|
00000e00  63 32 20 45 51 55 44 20  39 30 37 36 33 33 33 39  |c2 EQUD 90763339|
00000e10  33 0d 08 ac 10 2e 73 65  65 64 20 45 51 55 44 20  |3.....seed EQUD |
00000e20  91 0d 08 b6 0f 2e 72 6e  64 25 45 51 55 44 20 30  |......rnd%EQUD 0|
00000e30  0d 08 c0 0f 2e 65 6f 72  20 45 51 55 44 20 30 0d  |.....eor EQUD 0.|
00000e40  08 ca 05 5d 0d 08 d4 05  ed 0d 08 de 05 e1 0d 08  |...]............|
00000e50  e8 0d dd f2 67 72 61 6e  69 74 65 0d 08 f2 0f 21  |....granite....!|
00000e60  65 6f 72 3d b3 28 38 29  2d 31 0d 08 fc 0f 21 73  |eor=.(8)-1....!s|
00000e70  75 62 3d b3 28 31 32 38  29 0d 09 06 11 21 73 6d  |ub=.(128)....!sm|
00000e80  75 64 67 65 25 3d b3 28  33 29 0d 09 10 13 21 62  |udge%=.(3)....!b|
00000e90  6f 62 72 3d b3 28 34 29  2d b3 28 32 29 0d 09 1a  |obr=.(4)-.(2)...|
00000ea0  0c d6 67 72 61 6e 69 74  65 0d 09 24 0c e6 20 30  |..granite..$.. 0|
00000eb0  20 c8 9c 20 30 0d 09 2e  18 c8 93 c8 90 20 30 2c  | .. 0........ 0,|
00000ec0  31 30 32 34 2c 31 32 37  39 2c 2d 31 32 0d 09 38  |1024,1279,-12..8|
00000ed0  13 c8 93 c8 90 20 30 2c  30 2c 31 32 37 39 2c 34  |..... 0,0,1279,4|
00000ee0  0d 09 42 05 e1 0d 09 4c  04 0d 09 56 0e dd f2 63  |..B....L...V...c|
00000ef0  6f 6c 5f 69 6e 69 74 0d  09 60 10 de 20 43 4f 4c  |ol_init..`.. COL|
00000f00  25 28 37 2c 31 35 29 0d  09 6a 0e e3 20 4a 25 3d  |%(7,15)..j.. J%=|
00000f10  30 20 b8 20 37 0d 09 74  0f e3 20 49 25 3d 30 20  |0 . 7..t.. I%=0 |
00000f20  b8 20 31 35 0d 09 7e 11  f3 20 43 4f 4c 25 28 4a  |. 15..~.. COL%(J|
00000f30  25 2c 49 25 29 0d 09 88  07 ed 3a ed 0d 09 92 0a  |%,I%).....:.....|
00000f40  43 43 25 3d 2d 31 0d 09  9c 05 e1 0d 09 a6 04 0d  |CC%=-1..........|
00000f50  09 b0 0a dd f2 63 6f 6c  73 0d 09 ba 0e 43 43 25  |.....cols....CC%|
00000f60  3d b3 28 38 29 2d 31 0d  09 c4 13 64 61 74 61 25  |=.(8)-1....data%|
00000f70  3d 63 6f 64 65 2b 34 30  39 36 0d 09 ce 0c e3 49  |=code+4096.....I|
00000f80  25 3d 30 b8 31 35 0d 09  d8 19 64 61 74 61 25 3f  |%=0.15....data%?|
00000f90  49 25 3d 43 4f 4c 25 28  43 43 25 2c 49 25 29 0d  |I%=COL%(CC%,I%).|
00000fa0  09 e2 05 ed 0d 09 ec 05  e1 0d 09 f6 04 0d 0a 00  |................|
00000fb0  3c dc 20 30 2c 31 2c 32  2c 33 2c 20 31 32 2c 31  |<. 0,1,2,3, 12,1|
00000fc0  33 2c 31 34 2c 31 35 2c  20 31 37 36 2c 31 37 37  |3,14,15, 176,177|
00000fd0  2c 31 37 38 2c 31 37 39  2c 20 32 32 30 2c 32 32  |,178,179, 220,22|
00000fe0  31 2c 32 32 32 2c 32 32  33 0d 0a 0a 3a dc 20 30  |1,222,223...:. 0|
00000ff0  2c 31 2c 32 2c 33 2c 20  38 2c 39 2c 31 30 2c 31  |,1,2,3, 8,9,10,1|
00001000  31 2c 20 31 32 38 2c 31  32 39 2c 31 33 30 2c 31  |1, 128,129,130,1|
00001010  33 31 2c 20 31 36 38 2c  31 36 39 2c 31 37 30 2c  |31, 168,169,170,|
00001020  31 37 31 0d 0a 14 34 dc  20 30 2c 31 2c 32 2c 33  |171...4. 0,1,2,3|
00001030  2c 20 33 32 2c 33 33 2c  33 34 2c 33 35 2c 20 36  |, 32,33,34,35, 6|
00001040  34 2c 36 35 2c 36 36 2c  36 37 2c 20 39 36 2c 39  |4,65,66,67, 96,9|
00001050  37 2c 39 38 2c 39 39 0d  0a 1e 30 dc 20 30 2c 31  |7,98,99...0. 0,1|
00001060  2c 32 2c 33 2c 20 34 2c  35 2c 36 2c 37 2c 20 31  |,2,3, 4,5,6,7, 1|
00001070  36 2c 31 37 2c 31 38 2c  31 39 2c 20 32 30 2c 32  |6,17,18,19, 20,2|
00001080  31 2c 32 32 2c 32 33 0d  0a 28 3a dc 20 30 2c 30  |1,22,23..(:. 0,0|
00001090  2c 31 2c 32 2c 20 38 2c  39 2c 31 30 2c 31 31 2c  |,1,2, 8,9,10,11,|
000010a0  20 31 36 34 2c 31 36 35  2c 31 36 36 2c 31 36 37  | 164,165,166,167|
000010b0  2c 20 32 31 36 2c 32 31  37 2c 32 31 38 2c 32 31  |, 216,217,218,21|
000010c0  39 0d 0a 32 39 dc 20 30  2c 30 2c 20 30 2c 31 2c  |9..29. 0,0, 0,1,|
000010d0  32 2c 33 2c 20 34 34 2c  34 35 2c 34 36 2c 34 37  |2,3, 44,45,46,47|
000010e0  2c 20 32 30 38 2c 32 30  39 2c 32 31 30 2c 32 31  |, 208,209,210,21|
000010f0  31 20 2c 32 35 32 2c 32  35 33 0d 0a 3c 04 0d 0a  |1 ,252,253..<...|
00001100  46 3a dc 20 30 2c 30 2c  31 2c 32 2c 20 38 2c 39  |F:. 0,0,1,2, 8,9|
00001110  2c 31 30 2c 31 31 2c 20  31 36 34 2c 31 36 35 2c  |,10,11, 164,165,|
00001120  31 36 36 2c 31 36 37 2c  20 32 31 36 2c 32 31 37  |166,167, 216,217|
00001130  2c 32 31 38 2c 32 31 39  0d 0a 50 3a dc 20 30 2c  |,218,219..P:. 0,|
00001140  30 2c 31 2c 32 2c 20 38  2c 39 2c 31 30 2c 31 31  |0,1,2, 8,9,10,11|
00001150  2c 20 31 36 34 2c 31 36  35 2c 31 36 36 2c 31 36  |, 164,165,166,16|
00001160  37 2c 20 32 31 36 2c 32  31 37 2c 32 31 38 2c 32  |7, 216,217,218,2|
00001170  31 39 0d 0a 5a 04 0d 0a  64 0a dd f2 73 63 72 6e  |19..Z...d...scrn|
00001180  0d 0a 6e 13 de 62 6c 6f  63 6b 25 31 35 2c 62 32  |..n..block%15,b2|
00001190  25 31 35 0d 0a 78 10 62  6c 6f 63 6b 25 21 30 3d  |%15..x.block%!0=|
000011a0  31 34 38 0d 0a 82 0e 62  6c 6f 63 6b 25 21 34 3d  |148....block%!4=|
000011b0  37 0d 0a 8c 0e 62 6c 6f  63 6b 25 21 38 3d 36 0d  |7....block%!8=6.|
000011c0  0a 96 10 62 6c 6f 63 6b  25 21 31 32 3d 2d 31 0d  |...block%!12=-1.|
000011d0  0a a0 26 c8 99 22 4f 53  5f 52 65 61 64 56 64 75  |..&.."OS_ReadVdu|
000011e0  56 61 72 69 61 62 6c 65  73 22 2c 62 6c 6f 63 6b  |Variables",block|
000011f0  25 2c 62 32 25 0d 0a aa  10 62 6c 6f 63 6b 25 21  |%,b2%....block%!|
00001200  30 3d 31 34 38 0d 0a b4  0e 62 6c 6f 63 6b 25 21  |0=148....block%!|
00001210  34 3d 37 0d 0a be 0e 62  6c 6f 63 6b 25 21 38 3d  |4=7....block%!8=|
00001220  36 0d 0a c8 10 62 6c 6f  63 6b 25 21 31 32 3d 2d  |6....block%!12=-|
00001230  31 0d 0a d2 26 c8 99 22  4f 53 5f 52 65 61 64 56  |1...&.."OS_ReadV|
00001240  64 75 56 61 72 69 61 62  6c 65 73 22 2c 62 6c 6f  |duVariables",blo|
00001250  63 6b 25 2c 62 32 25 0d  0a dc 11 73 63 72 65 65  |ck%,b2%....scree|
00001260  6e 25 3d 62 32 25 21 30  0d 0a e6 05 e1 0d 0a f0  |n%=b2%!0........|
00001270  04 0d 0a fa 04 0d ff                              |.......|
00001277