�13:�
�code 1024+16
�:�" at line ";�:�
(	�scrn
2	�cols
<"�2,2);"Fast or Slow? (F/S) ";
F	FS$=�
P#�FS$="S"�FS$="s"�"Slow"��"Fast"
Z�I=1�16000:�
d�
nlink=14
x	sp=13
�
screen=12
��255
�
Ȓ640,512
��pass=0�2�2
�P%=code
�
[OPT pass
�.bob EQUD 0
�.fern STMFD (sp)!,{link}
�LDR screen,scrn
�MOV R6,#255
�LDR R10,seed
�
LDR R8,c1
�
LDR R9,c2

.dotloop

MOV R0,R0,LSL#16

MOV R1,R1,LSL#16

"RSB R14,R0,#160<<16

,RSB R4,R1,#128<<16

6MOV R14,R14,ASR#8

@MOV R4,R4,ASR#8

J.yloop ADD R0,R0,R14

TADD R1,R1,R4

^MOV R7,R10

hMLA R7,R8,R7,R9

rMLA R10,R8,R7,R9

|� R7,R7,R10,ROR#16

�� R7,R7,#2

�SUB R7,R7,#1

�ADD R0,R0,R7

�MOV R3,R0,LSR#16

�ADD R2,screen,R3

�MOV R3,R1,LSR#16

�ADD R2,R2,R3,LSL#6

�ADD R2,R2,R3,LSL#8

�]

��FS$="S"�FS$="s"�

�
[OPT pass

�MOV R3,#255

�STRB R3,[R2,#0]
STMFD (sp)!,{R0-R12}
MOV R0,#19
SWI"OS_Byte"
&SWI"OS_ReadEscapeState"
0LDMFD (sp)!,{R0-R12}
:
MOV R3,#0
DSTRB R3,[R2,#0]
NBCS fini
X]
b�
l
[OPT pass
vLDRB R3,[R2,#320]
�
CMP R3,#0
�BNE draw
�LDRB R3,[R2,#-1]
�
CMP R3,#0
�BNE draw
�LDRB R3,[R2,#-320]
�
CMP R3,#0
�BNE draw
�LDRB R3,[R2,#1]
�
CMP R3,#0
�
BEQ yloop
�	.draw
�LDR R6,col%
LDR R3,coldata
LDRB R6,[R6,R3]
STRB R6,[R2,#0]
 STRB R6,[R2,#320]
*MOV R0,R0,LSR#16
4MOV R1,R1,LSR#16
>SUB R0,R0,#160
HSUB R1,R1,#128
RMUL R2,R0,R0
\MUL R3,R1,R1
fADD R0,R2,R3
pSTR R0,bob
z.fini LDMFD (sp)!,{PC}
�.scrn EQUD screen%
�.c1 EQUD 1664525
�.c2 EQUD 907633393
�.seed EQUD �
�.coldata EQUD code+1024
�.col%EQUD 0
�]
��
�HR%=127
��
�A=�(360)
�A%=(HR%*�(�A))+160
�B%=(HR%*�(�A))+128
R%=!bob
!col%=15-(�(R%)�8)
�!col%>-1��fern
$�!col%<4
.�
8
��cols
Bdata%=code+1024
L�I%=0�15
V
�data%?I%
`�
j�
t:� 1,1,2,3, 8,9,10,11, 164,165,166,167, 216,217,218,219
~
��scrn
��block%15,b2%15
�block%!0=148
�block%!4=7
�block%!8=6
�block%!12=-1
�&ș"OS_ReadVduVariables",block%,b2%
�screen%=b2%!0
��
�

00000000  0d 00 0a 09 eb 31 33 3a  87 0d 00 14 11 de 63 6f  |.....13:......co|
00000010  64 65 20 31 30 32 34 2b  31 36 0d 00 1e 18 ee 85  |de 1024+16......|
00000020  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
00000030  3a e0 0d 00 28 09 f2 73  63 72 6e 0d 00 32 09 f2  |:...(..scrn..2..|
00000040  63 6f 6c 73 0d 00 3c 22  f1 8a 32 2c 32 29 3b 22  |cols..<"..2,2);"|
00000050  46 61 73 74 20 6f 72 20  53 6c 6f 77 3f 20 28 46  |Fast or Slow? (F|
00000060  2f 53 29 20 22 3b 0d 00  46 09 46 53 24 3d be 0d  |/S) ";..F.FS$=..|
00000070  00 50 23 e7 46 53 24 3d  22 53 22 84 46 53 24 3d  |.P#.FS$="S".FS$=|
00000080  22 73 22 f1 22 53 6c 6f  77 22 8b f1 22 46 61 73  |"s"."Slow".."Fas|
00000090  74 22 0d 00 5a 10 e3 49  3d 31 b8 31 36 30 30 30  |t"..Z..I=1.16000|
000000a0  3a ed 0d 00 64 05 db 0d  00 6e 0b 6c 69 6e 6b 3d  |:...d....n.link=|
000000b0  31 34 0d 00 78 09 73 70  3d 31 33 0d 00 82 0d 73  |14..x.sp=13....s|
000000c0  63 72 65 65 6e 3d 31 32  0d 00 8c 08 e6 32 35 35  |creen=12.....255|
000000d0  0d 00 96 0d c8 92 36 34  30 2c 35 31 32 0d 00 a0  |......640,512...|
000000e0  0f e3 70 61 73 73 3d 30  b8 32 88 32 0d 00 aa 0b  |..pass=0.2.2....|
000000f0  50 25 3d 63 6f 64 65 0d  00 b4 0d 5b 4f 50 54 20  |P%=code....[OPT |
00000100  70 61 73 73 0d 00 be 0f  2e 62 6f 62 20 45 51 55  |pass.....bob EQU|
00000110  44 20 30 0d 00 c8 1c 2e  66 65 72 6e 20 53 54 4d  |D 0.....fern STM|
00000120  46 44 20 28 73 70 29 21  2c 7b 6c 69 6e 6b 7d 0d  |FD (sp)!,{link}.|
00000130  00 d2 13 4c 44 52 20 73  63 72 65 65 6e 2c 73 63  |...LDR screen,sc|
00000140  72 6e 0d 00 dc 0f 4d 4f  56 20 52 36 2c 23 32 35  |rn....MOV R6,#25|
00000150  35 0d 00 e6 10 4c 44 52  20 52 31 30 2c 73 65 65  |5....LDR R10,see|
00000160  64 0d 00 f0 0d 4c 44 52  20 52 38 2c 63 31 0d 00  |d....LDR R8,c1..|
00000170  fa 0d 4c 44 52 20 52 39  2c 63 32 0d 01 04 0c 2e  |..LDR R9,c2.....|
00000180  64 6f 74 6c 6f 6f 70 0d  01 0e 14 4d 4f 56 20 52  |dotloop....MOV R|
00000190  30 2c 52 30 2c 4c 53 4c  23 31 36 0d 01 18 14 4d  |0,R0,LSL#16....M|
000001a0  4f 56 20 52 31 2c 52 31  2c 4c 53 4c 23 31 36 0d  |OV R1,R1,LSL#16.|
000001b0  01 22 17 52 53 42 20 52  31 34 2c 52 30 2c 23 31  |.".RSB R14,R0,#1|
000001c0  36 30 3c 3c 31 36 0d 01  2c 16 52 53 42 20 52 34  |60<<16..,.RSB R4|
000001d0  2c 52 31 2c 23 31 32 38  3c 3c 31 36 0d 01 36 15  |,R1,#128<<16..6.|
000001e0  4d 4f 56 20 52 31 34 2c  52 31 34 2c 41 53 52 23  |MOV R14,R14,ASR#|
000001f0  38 0d 01 40 13 4d 4f 56  20 52 34 2c 52 34 2c 41  |8..@.MOV R4,R4,A|
00000200  53 52 23 38 0d 01 4a 18  2e 79 6c 6f 6f 70 20 41  |SR#8..J..yloop A|
00000210  44 44 20 52 30 2c 52 30  2c 52 31 34 0d 01 54 10  |DD R0,R0,R14..T.|
00000220  41 44 44 20 52 31 2c 52  31 2c 52 34 0d 01 5e 0e  |ADD R1,R1,R4..^.|
00000230  4d 4f 56 20 52 37 2c 52  31 30 0d 01 68 13 4d 4c  |MOV R7,R10..h.ML|
00000240  41 20 52 37 2c 52 38 2c  52 37 2c 52 39 0d 01 72  |A R7,R8,R7,R9..r|
00000250  14 4d 4c 41 20 52 31 30  2c 52 38 2c 52 37 2c 52  |.MLA R10,R8,R7,R|
00000260  39 0d 01 7c 16 82 20 52  37 2c 52 37 2c 52 31 30  |9..|.. R7,R7,R10|
00000270  2c 52 4f 52 23 31 36 0d  01 86 0e 80 20 52 37 2c  |,ROR#16..... R7,|
00000280  52 37 2c 23 32 0d 01 90  10 53 55 42 20 52 37 2c  |R7,#2....SUB R7,|
00000290  52 37 2c 23 31 0d 01 9a  10 41 44 44 20 52 30 2c  |R7,#1....ADD R0,|
000002a0  52 30 2c 52 37 0d 01 a4  14 4d 4f 56 20 52 33 2c  |R0,R7....MOV R3,|
000002b0  52 30 2c 4c 53 52 23 31  36 0d 01 ae 14 41 44 44  |R0,LSR#16....ADD|
000002c0  20 52 32 2c 73 63 72 65  65 6e 2c 52 33 0d 01 b8  | R2,screen,R3...|
000002d0  14 4d 4f 56 20 52 33 2c  52 31 2c 4c 53 52 23 31  |.MOV R3,R1,LSR#1|
000002e0  36 0d 01 c2 16 41 44 44  20 52 32 2c 52 32 2c 52  |6....ADD R2,R2,R|
000002f0  33 2c 4c 53 4c 23 36 0d  01 cc 16 41 44 44 20 52  |3,LSL#6....ADD R|
00000300  32 2c 52 32 2c 52 33 2c  4c 53 4c 23 38 0d 01 d6  |2,R2,R3,LSL#8...|
00000310  05 5d 0d 01 e0 15 e7 46  53 24 3d 22 53 22 84 46  |.].....FS$="S".F|
00000320  53 24 3d 22 73 22 8c 0d  01 ea 0d 5b 4f 50 54 20  |S$="s".....[OPT |
00000330  70 61 73 73 0d 01 f4 0f  4d 4f 56 20 52 33 2c 23  |pass....MOV R3,#|
00000340  32 35 35 0d 01 fe 13 53  54 52 42 20 52 33 2c 5b  |255....STRB R3,[|
00000350  52 32 2c 23 30 5d 0d 02  08 18 53 54 4d 46 44 20  |R2,#0]....STMFD |
00000360  28 73 70 29 21 2c 7b 52  30 2d 52 31 32 7d 0d 02  |(sp)!,{R0-R12}..|
00000370  12 0e 4d 4f 56 20 52 30  2c 23 31 39 0d 02 1c 10  |..MOV R0,#19....|
00000380  53 57 49 22 4f 53 5f 42  79 74 65 22 0d 02 26 1b  |SWI"OS_Byte"..&.|
00000390  53 57 49 22 4f 53 5f 52  65 61 64 45 73 63 61 70  |SWI"OS_ReadEscap|
000003a0  65 53 74 61 74 65 22 0d  02 30 18 4c 44 4d 46 44  |eState"..0.LDMFD|
000003b0  20 28 73 70 29 21 2c 7b  52 30 2d 52 31 32 7d 0d  | (sp)!,{R0-R12}.|
000003c0  02 3a 0d 4d 4f 56 20 52  33 2c 23 30 0d 02 44 13  |.:.MOV R3,#0..D.|
000003d0  53 54 52 42 20 52 33 2c  5b 52 32 2c 23 30 5d 0d  |STRB R3,[R2,#0].|
000003e0  02 4e 0c 42 43 53 20 66  69 6e 69 0d 02 58 05 5d  |.N.BCS fini..X.]|
000003f0  0d 02 62 05 cd 0d 02 6c  0d 5b 4f 50 54 20 70 61  |..b....l.[OPT pa|
00000400  73 73 0d 02 76 15 4c 44  52 42 20 52 33 2c 5b 52  |ss..v.LDRB R3,[R|
00000410  32 2c 23 33 32 30 5d 0d  02 80 0d 43 4d 50 20 52  |2,#320]....CMP R|
00000420  33 2c 23 30 0d 02 8a 0c  42 4e 45 20 64 72 61 77  |3,#0....BNE draw|
00000430  0d 02 94 14 4c 44 52 42  20 52 33 2c 5b 52 32 2c  |....LDRB R3,[R2,|
00000440  23 2d 31 5d 0d 02 9e 0d  43 4d 50 20 52 33 2c 23  |#-1]....CMP R3,#|
00000450  30 0d 02 a8 0c 42 4e 45  20 64 72 61 77 0d 02 b2  |0....BNE draw...|
00000460  16 4c 44 52 42 20 52 33  2c 5b 52 32 2c 23 2d 33  |.LDRB R3,[R2,#-3|
00000470  32 30 5d 0d 02 bc 0d 43  4d 50 20 52 33 2c 23 30  |20]....CMP R3,#0|
00000480  0d 02 c6 0c 42 4e 45 20  64 72 61 77 0d 02 d0 13  |....BNE draw....|
00000490  4c 44 52 42 20 52 33 2c  5b 52 32 2c 23 31 5d 0d  |LDRB R3,[R2,#1].|
000004a0  02 da 0d 43 4d 50 20 52  33 2c 23 30 0d 02 e4 0d  |...CMP R3,#0....|
000004b0  42 45 51 20 79 6c 6f 6f  70 0d 02 ee 09 2e 64 72  |BEQ yloop.....dr|
000004c0  61 77 0d 02 f8 0f 4c 44  52 20 52 36 2c 63 6f 6c  |aw....LDR R6,col|
000004d0  25 0d 03 02 12 4c 44 52  20 52 33 2c 63 6f 6c 64  |%....LDR R3,cold|
000004e0  61 74 61 0d 03 0c 13 4c  44 52 42 20 52 36 2c 5b  |ata....LDRB R6,[|
000004f0  52 36 2c 52 33 5d 0d 03  16 13 53 54 52 42 20 52  |R6,R3]....STRB R|
00000500  36 2c 5b 52 32 2c 23 30  5d 0d 03 20 15 53 54 52  |6,[R2,#0].. .STR|
00000510  42 20 52 36 2c 5b 52 32  2c 23 33 32 30 5d 0d 03  |B R6,[R2,#320]..|
00000520  2a 14 4d 4f 56 20 52 30  2c 52 30 2c 4c 53 52 23  |*.MOV R0,R0,LSR#|
00000530  31 36 0d 03 34 14 4d 4f  56 20 52 31 2c 52 31 2c  |16..4.MOV R1,R1,|
00000540  4c 53 52 23 31 36 0d 03  3e 12 53 55 42 20 52 30  |LSR#16..>.SUB R0|
00000550  2c 52 30 2c 23 31 36 30  0d 03 48 12 53 55 42 20  |,R0,#160..H.SUB |
00000560  52 31 2c 52 31 2c 23 31  32 38 0d 03 52 10 4d 55  |R1,R1,#128..R.MU|
00000570  4c 20 52 32 2c 52 30 2c  52 30 0d 03 5c 10 4d 55  |L R2,R0,R0..\.MU|
00000580  4c 20 52 33 2c 52 31 2c  52 31 0d 03 66 10 41 44  |L R3,R1,R1..f.AD|
00000590  44 20 52 30 2c 52 32 2c  52 33 0d 03 70 0e 53 54  |D R0,R2,R3..p.ST|
000005a0  52 20 52 30 2c 62 6f 62  0d 03 7a 1a 2e 66 69 6e  |R R0,bob..z..fin|
000005b0  69 20 4c 44 4d 46 44 20  28 73 70 29 21 2c 7b 50  |i LDMFD (sp)!,{P|
000005c0  43 7d 0d 03 84 16 2e 73  63 72 6e 20 45 51 55 44  |C}.....scrn EQUD|
000005d0  20 73 63 72 65 65 6e 25  0d 03 8e 14 2e 63 31 20  | screen%.....c1 |
000005e0  45 51 55 44 20 31 36 36  34 35 32 35 0d 03 98 16  |EQUD 1664525....|
000005f0  2e 63 32 20 45 51 55 44  20 39 30 37 36 33 33 33  |.c2 EQUD 9076333|
00000600  39 33 0d 03 a2 10 2e 73  65 65 64 20 45 51 55 44  |93.....seed EQUD|
00000610  20 91 0d 03 ac 1b 2e 63  6f 6c 64 61 74 61 20 45  | ......coldata E|
00000620  51 55 44 20 63 6f 64 65  2b 31 30 32 34 0d 03 b6  |QUD code+1024...|
00000630  0f 2e 63 6f 6c 25 45 51  55 44 20 30 0d 03 c0 05  |..col%EQUD 0....|
00000640  5d 0d 03 ca 05 ed 0d 03  d4 0b 48 52 25 3d 31 32  |].........HR%=12|
00000650  37 0d 03 de 05 f5 0d 03  e8 0c 41 3d b3 28 33 36  |7.........A=.(36|
00000660  30 29 0d 03 f2 16 41 25  3d 28 48 52 25 2a b5 28  |0)....A%=(HR%*.(|
00000670  b2 41 29 29 2b 31 36 30  0d 03 fc 16 42 25 3d 28  |.A))+160....B%=(|
00000680  48 52 25 2a 9b 28 b2 41  29 29 2b 31 32 38 0d 04  |HR%*.(.A))+128..|
00000690  06 0b 52 25 3d 21 62 6f  62 0d 04 10 16 21 63 6f  |..R%=!bob....!co|
000006a0  6c 25 3d 31 35 2d 28 b6  28 52 25 29 81 38 29 0d  |l%=15-(.(R%).8).|
000006b0  04 1a 13 e7 21 63 6f 6c  25 3e 2d 31 8c d6 66 65  |....!col%>-1..fe|
000006c0  72 6e 0d 04 24 0c fd 21  63 6f 6c 25 3c 34 0d 04  |rn..$..!col%<4..|
000006d0  2e 05 e0 0d 04 38 0a dd  f2 63 6f 6c 73 0d 04 42  |.....8...cols..B|
000006e0  13 64 61 74 61 25 3d 63  6f 64 65 2b 31 30 32 34  |.data%=code+1024|
000006f0  0d 04 4c 0c e3 49 25 3d  30 b8 31 35 0d 04 56 0d  |..L..I%=0.15..V.|
00000700  f3 64 61 74 61 25 3f 49  25 0d 04 60 05 ed 0d 04  |.data%?I%..`....|
00000710  6a 05 e1 0d 04 74 3a dc  20 31 2c 31 2c 32 2c 33  |j....t:. 1,1,2,3|
00000720  2c 20 38 2c 39 2c 31 30  2c 31 31 2c 20 31 36 34  |, 8,9,10,11, 164|
00000730  2c 31 36 35 2c 31 36 36  2c 31 36 37 2c 20 32 31  |,165,166,167, 21|
00000740  36 2c 32 31 37 2c 32 31  38 2c 32 31 39 0d 04 7e  |6,217,218,219..~|
00000750  0a dd f2 73 63 72 6e 0d  04 88 13 de 62 6c 6f 63  |...scrn.....bloc|
00000760  6b 25 31 35 2c 62 32 25  31 35 0d 04 92 10 62 6c  |k%15,b2%15....bl|
00000770  6f 63 6b 25 21 30 3d 31  34 38 0d 04 9c 0e 62 6c  |ock%!0=148....bl|
00000780  6f 63 6b 25 21 34 3d 37  0d 04 a6 0e 62 6c 6f 63  |ock%!4=7....bloc|
00000790  6b 25 21 38 3d 36 0d 04  b0 10 62 6c 6f 63 6b 25  |k%!8=6....block%|
000007a0  21 31 32 3d 2d 31 0d 04  ba 26 c8 99 22 4f 53 5f  |!12=-1...&.."OS_|
000007b0  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
000007c0  22 2c 62 6c 6f 63 6b 25  2c 62 32 25 0d 04 c4 11  |",block%,b2%....|
000007d0  73 63 72 65 65 6e 25 3d  62 32 25 21 30 0d 04 ce  |screen%=b2%!0...|
000007e0  05 e1 0d ff                                       |....|
000007e4