%�  Plasma Ball MkIIb  (RWJ 05/97)
�
@�  BASIC routine now translated into assembly, with a little
(0�  extra BASIC for moving the sparks around.
2�
<C�  Circles now look circular on RiscPC because of non-letterbox
F�  hi-res mode.
P
Z�reserve
d
� 27:�
n%� code% 2000,dir% 64,stack% 12000
x� IN% 8,OUT% 4
�$sx%=320:sy%=240:�  screen centre
��directions
�	�code
�
�Q%=9
�� plasma%(Q%,4):plasma%()=0
�b1%=30:b2%=150
��
�!screen=�screen_start
��:�0,4:ȏ 640,480,b2%*2+4
� � J%=1 � 2
�  � I%=0 � Q%
�   � J%=1 �

#    � plasma%(I%,0)=0 �new_bolt

    plasma%(I%,0)-=1

A    plasma%(I%,1)+=plasma%(I%,3):plasma%(I%,2)+=plasma%(I%,4)

"   �

,   z=�(�(plasma%(I%,1)))

6#   � J%=1 � z<0 � J%=2 � z>=0 �

@*    !fromx=�(�(plasma%(I%,1)))*b1%+sx%

J>    !fromy=�(�(plasma%(I%,1)))*�(�(plasma%(I%,2)))*b1%+sy%

T(    !tox=�(�(plasma%(I%,1)))*b2%+sx%

^<    !toy=�(�(plasma%(I%,1)))*�(�(plasma%(I%,2)))*b2%+sy%

h    � bolt_init

r    � �-99:���

|   �

�  �

�$  � J%=1 �0,1:ȏȐ 640,480,b1%*2

� �

�<Ȗ:ș 6,113,screen%:screen%=screen% � 3:ș 6,112,screen%

�� �

�

��

�

�� �new_bolt

�plasma%(I%,0)=�(50)

�� �(3)>1 �

� plasma%(I%,1)=�(360)

� plasma%(I%,2)=�(360)
�
plasma%(I%,3)=�(5)-3
plasma%(I%,4)=�(5)-3
&�
0
:� �directions
DD%=0
N� Y%=-1 � 1:� X%=-1 � 1
X8 � X%<>0 � Y%<>0 !(dir%+D%)=X%:!(dir%+D%+4)=Y%:D%+=8
b�:�
l�
v
�� �code
�� pass%=0 � 2 � 2
�P%=code%
�[OPT pass%
�.dir:EQUD dir%
�.stack:EQUD stack%
�.big:EQUD&0FFFFFFF
�.screen:EQUD0
�
�.bolt_init
�STMFD r13!,{r14}
�MOV r0,#4:STR r0,colour
�1LDR r12,dir:LDR r5,stack:MOV r8,#0:LDR r3,big
3LDR r1,fromx:LDR r2,fromy:LDR r6,tox:LDR r7,toy

MOV r0,#0
BL bolt
 LDMFD r13!,{r15}
*.fromx:EQUD0
4.tox:EQUD0
>.fromy:EQUD0
H.toy:EQUD0
R
\	.bolt
fSTMFD r13!,{r0,r14}
pADD r0,r0,#1:\ Level
z\ Plot?
�BL plot
�)SUB r9,r1,r6:MOV r10,r9:MUL r9,r10,r9
�/SUB r10,r2,r7:MOV r11,r10:MLA r9,r10,r11,r9
�3\  Next step must be nearer to target than last
�CMP r9,r3:BPL exit
�\  Hit target?
�#CMP r1,r6:CMPEQ r2,r7:BNE nohit
� \  Set hit flag and colour
�- MOV r8,#1:MOV r9,#6:STR r9,colour:B exit
�
.nohit
�\  Save distance to target
�
MOV r3,r9
�	.loop
  \  Push X,Y,dist onto stack
 STMIA r5!,{r1-r3}
 \  Get random direction
$+ BL rand:� r4,r4,#7:ADD r4,r12,r4,LSL#3
.9 LDR r9,[r4]:ADD r1,r1,r9:LDR r9,[r4,#4]:ADD r2,r2,r9
8 BL bolt
BCMP r8,#0:BEQ loop
L	.exit
VCMP r8,#1:BLEQ plot
`!CMP r0,#1:LDMNEDB r5!,{r1-r3}
jLDMFD r13!,{r0,r15}
t
~.colour:EQUD4
�	.plot
�STMFD r13!,{r0-r12,r14}
�LDR r0,screen:MOV r3,#320
�&MLA r0,r2,r3,r0:ADD r0,r0,r1,LSR#1
��S r1,r1,#1:BNE hi
� LDR r5,colour
�? LDRB r4,[r0]:� r4,r4,#240:�R r4,r4,r5:STRB r4,[r0]:B quitp
�.hi
�" LDR r5,colour:MOV r5,r5,LSL#4
�5 LDRB r4,[r0]:� r4,r4,#7:�R r4,r4,r5:STRB r4,[r0]
�
.quitp
�LDMFD r13!,{r0-r12,r15}


	.rand
STMFD r13!,{r1-r2,r14}
LDR r4,seed
(
CMP r4,#0
2�Q r4,#255
<MOV r2,#17
F.rdloop
PMOV r1,r4,ASR#13
Z� r1,r1,r4,ASR#24
dMOVS r1,r1,ROR #1
nADCS r4,r4,r4
xSUBS r2,r2,#1
�BNE rdloop
�STR r4,seed
�LDMFD r13!,{r1-r2,r15}
�.seed:EQUD �
�]
��
��
�
�� �screen_start
�!IN%=148:IN%!4=-1
�ș &31,IN%,OUT%
�
=!OUT%
�
� �reserve
ș &5C,2 � ,screenalloc
$additional=320*480*2-screenalloc
"&� additional>0 ș &2A,2,additional
,(ș 6,112,2:�:ș 6,112,1:�:ș 6,113,1
6ș 6,112,2:screen%=2
@�
J
�

00000000  0d 00 0a 25 f4 20 20 50  6c 61 73 6d 61 20 42 61  |...%.  Plasma Ba|
00000010  6c 6c 20 4d 6b 49 49 62  20 20 28 52 57 4a 20 30  |ll MkIIb  (RWJ 0|
00000020  35 2f 39 37 29 0d 00 14  05 f4 0d 00 1e 40 f4 20  |5/97)........@. |
00000030  20 42 41 53 49 43 20 72  6f 75 74 69 6e 65 20 6e  | BASIC routine n|
00000040  6f 77 20 74 72 61 6e 73  6c 61 74 65 64 20 69 6e  |ow translated in|
00000050  74 6f 20 61 73 73 65 6d  62 6c 79 2c 20 77 69 74  |to assembly, wit|
00000060  68 20 61 20 6c 69 74 74  6c 65 0d 00 28 30 f4 20  |h a little..(0. |
00000070  20 65 78 74 72 61 20 42  41 53 49 43 20 66 6f 72  | extra BASIC for|
00000080  20 6d 6f 76 69 6e 67 20  74 68 65 20 73 70 61 72  | moving the spar|
00000090  6b 73 20 61 72 6f 75 6e  64 2e 0d 00 32 05 f4 0d  |ks around...2...|
000000a0  00 3c 43 f4 20 20 43 69  72 63 6c 65 73 20 6e 6f  |.<C.  Circles no|
000000b0  77 20 6c 6f 6f 6b 20 63  69 72 63 75 6c 61 72 20  |w look circular |
000000c0  6f 6e 20 52 69 73 63 50  43 20 62 65 63 61 75 73  |on RiscPC becaus|
000000d0  65 20 6f 66 20 6e 6f 6e  2d 6c 65 74 74 65 72 62  |e of non-letterb|
000000e0  6f 78 0d 00 46 13 f4 20  20 68 69 2d 72 65 73 20  |ox..F..  hi-res |
000000f0  6d 6f 64 65 2e 0d 00 50  04 0d 00 5a 0c f2 72 65  |mode...P...Z..re|
00000100  73 65 72 76 65 0d 00 64  0a eb 20 32 37 3a 87 0d  |serve..d.. 27:..|
00000110  00 6e 25 de 20 63 6f 64  65 25 20 32 30 30 30 2c  |.n%. code% 2000,|
00000120  64 69 72 25 20 36 34 2c  73 74 61 63 6b 25 20 31  |dir% 64,stack% 1|
00000130  32 30 30 30 0d 00 78 12  de 20 49 4e 25 20 38 2c  |2000..x.. IN% 8,|
00000140  4f 55 54 25 20 34 0d 00  82 24 73 78 25 3d 33 32  |OUT% 4...$sx%=32|
00000150  30 3a 73 79 25 3d 32 34  30 3a f4 20 20 73 63 72  |0:sy%=240:.  scr|
00000160  65 65 6e 20 63 65 6e 74  72 65 0d 00 8c 0f f2 64  |een centre.....d|
00000170  69 72 65 63 74 69 6f 6e  73 0d 00 96 09 f2 63 6f  |irections.....co|
00000180  64 65 0d 00 a0 04 0d 00  aa 08 51 25 3d 39 0d 00  |de........Q%=9..|
00000190  b4 1f de 20 70 6c 61 73  6d 61 25 28 51 25 2c 34  |... plasma%(Q%,4|
000001a0  29 3a 70 6c 61 73 6d 61  25 28 29 3d 30 0d 00 be  |):plasma%()=0...|
000001b0  12 62 31 25 3d 33 30 3a  62 32 25 3d 31 35 30 0d  |.b1%=30:b2%=150.|
000001c0  00 c8 05 f5 0d 00 d2 19  21 73 63 72 65 65 6e 3d  |........!screen=|
000001d0  a4 73 63 72 65 65 6e 5f  73 74 61 72 74 0d 00 dc  |.screen_start...|
000001e0  1d db 3a e6 30 2c 34 3a  c8 8f 20 36 34 30 2c 34  |..:.0,4:.. 640,4|
000001f0  38 30 2c 62 32 25 2a 32  2b 34 0d 00 e6 0f 20 e3  |80,b2%*2+4.... .|
00000200  20 4a 25 3d 31 20 b8 20  32 0d 00 f0 11 20 20 e3  | J%=1 . 2....  .|
00000210  20 49 25 3d 30 20 b8 20  51 25 0d 00 fa 0f 20 20  | I%=0 . Q%....  |
00000220  20 e7 20 4a 25 3d 31 20  8c 0d 01 04 23 20 20 20  | . J%=1 ....#   |
00000230  20 e7 20 70 6c 61 73 6d  61 25 28 49 25 2c 30 29  | . plasma%(I%,0)|
00000240  3d 30 20 f2 6e 65 77 5f  62 6f 6c 74 0d 01 0e 18  |=0 .new_bolt....|
00000250  20 20 20 20 70 6c 61 73  6d 61 25 28 49 25 2c 30  |    plasma%(I%,0|
00000260  29 2d 3d 31 0d 01 18 41  20 20 20 20 70 6c 61 73  |)-=1...A    plas|
00000270  6d 61 25 28 49 25 2c 31  29 2b 3d 70 6c 61 73 6d  |ma%(I%,1)+=plasm|
00000280  61 25 28 49 25 2c 33 29  3a 70 6c 61 73 6d 61 25  |a%(I%,3):plasma%|
00000290  28 49 25 2c 32 29 2b 3d  70 6c 61 73 6d 61 25 28  |(I%,2)+=plasma%(|
000002a0  49 25 2c 34 29 0d 01 22  08 20 20 20 cd 0d 01 2c  |I%,4)..".   ...,|
000002b0  1c 20 20 20 7a 3d 9b 28  b2 28 70 6c 61 73 6d 61  |.   z=.(.(plasma|
000002c0  25 28 49 25 2c 31 29 29  29 0d 01 36 23 20 20 20  |%(I%,1)))..6#   |
000002d0  e7 20 4a 25 3d 31 20 80  20 7a 3c 30 20 84 20 4a  |. J%=1 . z<0 . J|
000002e0  25 3d 32 20 80 20 7a 3e  3d 30 20 8c 0d 01 40 2a  |%=2 . z>=0 ...@*|
000002f0  20 20 20 20 21 66 72 6f  6d 78 3d b5 28 b2 28 70  |    !fromx=.(.(p|
00000300  6c 61 73 6d 61 25 28 49  25 2c 31 29 29 29 2a 62  |lasma%(I%,1)))*b|
00000310  31 25 2b 73 78 25 0d 01  4a 3e 20 20 20 20 21 66  |1%+sx%..J>    !f|
00000320  72 6f 6d 79 3d 9b 28 b2  28 70 6c 61 73 6d 61 25  |romy=.(.(plasma%|
00000330  28 49 25 2c 31 29 29 29  2a b5 28 b2 28 70 6c 61  |(I%,1)))*.(.(pla|
00000340  73 6d 61 25 28 49 25 2c  32 29 29 29 2a 62 31 25  |sma%(I%,2)))*b1%|
00000350  2b 73 79 25 0d 01 54 28  20 20 20 20 21 74 6f 78  |+sy%..T(    !tox|
00000360  3d b5 28 b2 28 70 6c 61  73 6d 61 25 28 49 25 2c  |=.(.(plasma%(I%,|
00000370  31 29 29 29 2a 62 32 25  2b 73 78 25 0d 01 5e 3c  |1)))*b2%+sx%..^<|
00000380  20 20 20 20 21 74 6f 79  3d 9b 28 b2 28 70 6c 61  |    !toy=.(.(pla|
00000390  73 6d 61 25 28 49 25 2c  31 29 29 29 2a b5 28 b2  |sma%(I%,1)))*.(.|
000003a0  28 70 6c 61 73 6d 61 25  28 49 25 2c 32 29 29 29  |(plasma%(I%,2)))|
000003b0  2a 62 32 25 2b 73 79 25  0d 01 68 13 20 20 20 20  |*b2%+sy%..h.    |
000003c0  d6 20 62 6f 6c 74 5f 69  6e 69 74 0d 01 72 12 20  |. bolt_init..r. |
000003d0  20 20 20 e7 20 a6 2d 39  39 3a f5 fd a5 0d 01 7c  |   . .-99:.....||
000003e0  08 20 20 20 cd 0d 01 86  07 20 20 ed 0d 01 90 24  |.   .....  ....$|
000003f0  20 20 e7 20 4a 25 3d 31  20 e6 30 2c 31 3a c8 8f  |  . J%=1 .0,1:..|
00000400  c8 90 20 36 34 30 2c 34  38 30 2c 62 31 25 2a 32  |.. 640,480,b1%*2|
00000410  0d 01 9a 06 20 ed 0d 01  a4 3c c8 96 3a c8 99 20  |.... ....<..:.. |
00000420  36 2c 31 31 33 2c 73 63  72 65 65 6e 25 3a 73 63  |6,113,screen%:sc|
00000430  72 65 65 6e 25 3d 73 63  72 65 65 6e 25 20 82 20  |reen%=screen% . |
00000440  33 3a c8 99 20 36 2c 31  31 32 2c 73 63 72 65 65  |3:.. 6,112,scree|
00000450  6e 25 0d 01 ae 07 fd 20  a3 0d 01 b8 04 0d 01 c2  |n%..... ........|
00000460  05 e0 0d 01 cc 04 0d 01  d6 0f dd 20 f2 6e 65 77  |........... .new|
00000470  5f 62 6f 6c 74 0d 01 e0  17 70 6c 61 73 6d 61 25  |_bolt....plasma%|
00000480  28 49 25 2c 30 29 3d b3  28 35 30 29 0d 01 ea 0e  |(I%,0)=.(50)....|
00000490  e7 20 b3 28 33 29 3e 31  20 8c 0d 01 f4 19 20 70  |. .(3)>1 ..... p|
000004a0  6c 61 73 6d 61 25 28 49  25 2c 31 29 3d b3 28 33  |lasma%(I%,1)=.(3|
000004b0  36 30 29 0d 01 fe 19 20  70 6c 61 73 6d 61 25 28  |60).... plasma%(|
000004c0  49 25 2c 32 29 3d b3 28  33 36 30 29 0d 02 08 05  |I%,2)=.(360)....|
000004d0  cd 0d 02 12 18 70 6c 61  73 6d 61 25 28 49 25 2c  |.....plasma%(I%,|
000004e0  33 29 3d b3 28 35 29 2d  33 0d 02 1c 18 70 6c 61  |3)=.(5)-3....pla|
000004f0  73 6d 61 25 28 49 25 2c  34 29 3d b3 28 35 29 2d  |sma%(I%,4)=.(5)-|
00000500  33 0d 02 26 05 e1 0d 02  30 04 0d 02 3a 11 dd 20  |3..&....0...:.. |
00000510  f2 64 69 72 65 63 74 69  6f 6e 73 0d 02 44 08 44  |.directions..D.D|
00000520  25 3d 30 0d 02 4e 1b e3  20 59 25 3d 2d 31 20 b8  |%=0..N.. Y%=-1 .|
00000530  20 31 3a e3 20 58 25 3d  2d 31 20 b8 20 31 0d 02  | 1:. X%=-1 . 1..|
00000540  58 38 20 e7 20 58 25 3c  3e 30 20 84 20 59 25 3c  |X8 . X%<>0 . Y%<|
00000550  3e 30 20 21 28 64 69 72  25 2b 44 25 29 3d 58 25  |>0 !(dir%+D%)=X%|
00000560  3a 21 28 64 69 72 25 2b  44 25 2b 34 29 3d 59 25  |:!(dir%+D%+4)=Y%|
00000570  3a 44 25 2b 3d 38 0d 02  62 07 ed 3a ed 0d 02 6c  |:D%+=8..b..:...l|
00000580  05 e1 0d 02 76 04 0d 02  80 0b dd 20 f2 63 6f 64  |....v...... .cod|
00000590  65 0d 02 8a 15 e3 20 70  61 73 73 25 3d 30 20 b8  |e..... pass%=0 .|
000005a0  20 32 20 88 20 32 0d 02  94 0c 50 25 3d 63 6f 64  | 2 . 2....P%=cod|
000005b0  65 25 0d 02 9e 0e 5b 4f  50 54 20 70 61 73 73 25  |e%....[OPT pass%|
000005c0  0d 02 a8 12 2e 64 69 72  3a 45 51 55 44 20 64 69  |.....dir:EQUD di|
000005d0  72 25 0d 02 b2 16 2e 73  74 61 63 6b 3a 45 51 55  |r%.....stack:EQU|
000005e0  44 20 73 74 61 63 6b 25  0d 02 bc 16 2e 62 69 67  |D stack%.....big|
000005f0  3a 45 51 55 44 26 30 46  46 46 46 46 46 46 0d 02  |:EQUD&0FFFFFFF..|
00000600  c6 11 2e 73 63 72 65 65  6e 3a 45 51 55 44 30 0d  |...screen:EQUD0.|
00000610  02 d0 04 0d 02 da 0e 2e  62 6f 6c 74 5f 69 6e 69  |........bolt_ini|
00000620  74 0d 02 e4 14 53 54 4d  46 44 20 72 31 33 21 2c  |t....STMFD r13!,|
00000630  7b 72 31 34 7d 0d 02 ee  1b 4d 4f 56 20 72 30 2c  |{r14}....MOV r0,|
00000640  23 34 3a 53 54 52 20 72  30 2c 63 6f 6c 6f 75 72  |#4:STR r0,colour|
00000650  0d 02 f8 31 4c 44 52 20  72 31 32 2c 64 69 72 3a  |...1LDR r12,dir:|
00000660  4c 44 52 20 72 35 2c 73  74 61 63 6b 3a 4d 4f 56  |LDR r5,stack:MOV|
00000670  20 72 38 2c 23 30 3a 4c  44 52 20 72 33 2c 62 69  | r8,#0:LDR r3,bi|
00000680  67 0d 03 02 33 4c 44 52  20 72 31 2c 66 72 6f 6d  |g...3LDR r1,from|
00000690  78 3a 4c 44 52 20 72 32  2c 66 72 6f 6d 79 3a 4c  |x:LDR r2,fromy:L|
000006a0  44 52 20 72 36 2c 74 6f  78 3a 4c 44 52 20 72 37  |DR r6,tox:LDR r7|
000006b0  2c 74 6f 79 0d 03 0c 0d  4d 4f 56 20 72 30 2c 23  |,toy....MOV r0,#|
000006c0  30 0d 03 16 0b 42 4c 20  62 6f 6c 74 0d 03 20 14  |0....BL bolt.. .|
000006d0  4c 44 4d 46 44 20 72 31  33 21 2c 7b 72 31 35 7d  |LDMFD r13!,{r15}|
000006e0  0d 03 2a 10 2e 66 72 6f  6d 78 3a 45 51 55 44 30  |..*..fromx:EQUD0|
000006f0  0d 03 34 0e 2e 74 6f 78  3a 45 51 55 44 30 0d 03  |..4..tox:EQUD0..|
00000700  3e 10 2e 66 72 6f 6d 79  3a 45 51 55 44 30 0d 03  |>..fromy:EQUD0..|
00000710  48 0e 2e 74 6f 79 3a 45  51 55 44 30 0d 03 52 04  |H..toy:EQUD0..R.|
00000720  0d 03 5c 09 2e 62 6f 6c  74 0d 03 66 17 53 54 4d  |..\..bolt..f.STM|
00000730  46 44 20 72 31 33 21 2c  7b 72 30 2c 72 31 34 7d  |FD r13!,{r0,r14}|
00000740  0d 03 70 18 41 44 44 20  72 30 2c 72 30 2c 23 31  |..p.ADD r0,r0,#1|
00000750  3a 5c 20 4c 65 76 65 6c  0d 03 7a 0b 5c 20 50 6c  |:\ Level..z.\ Pl|
00000760  6f 74 3f 0d 03 84 0b 42  4c 20 70 6c 6f 74 0d 03  |ot?....BL plot..|
00000770  8e 29 53 55 42 20 72 39  2c 72 31 2c 72 36 3a 4d  |.)SUB r9,r1,r6:M|
00000780  4f 56 20 72 31 30 2c 72  39 3a 4d 55 4c 20 72 39  |OV r10,r9:MUL r9|
00000790  2c 72 31 30 2c 72 39 0d  03 98 2f 53 55 42 20 72  |,r10,r9.../SUB r|
000007a0  31 30 2c 72 32 2c 72 37  3a 4d 4f 56 20 72 31 31  |10,r2,r7:MOV r11|
000007b0  2c 72 31 30 3a 4d 4c 41  20 72 39 2c 72 31 30 2c  |,r10:MLA r9,r10,|
000007c0  72 31 31 2c 72 39 0d 03  a2 33 5c 20 20 4e 65 78  |r11,r9...3\  Nex|
000007d0  74 20 73 74 65 70 20 6d  75 73 74 20 62 65 20 6e  |t step must be n|
000007e0  65 61 72 65 72 20 74 6f  20 74 61 72 67 65 74 20  |earer to target |
000007f0  74 68 61 6e 20 6c 61 73  74 0d 03 ac 16 43 4d 50  |than last....CMP|
00000800  20 72 39 2c 72 33 3a 42  50 4c 20 65 78 69 74 0d  | r9,r3:BPL exit.|
00000810  03 b6 12 5c 20 20 48 69  74 20 74 61 72 67 65 74  |...\  Hit target|
00000820  3f 0d 03 c0 23 43 4d 50  20 72 31 2c 72 36 3a 43  |?...#CMP r1,r6:C|
00000830  4d 50 45 51 20 72 32 2c  72 37 3a 42 4e 45 20 6e  |MPEQ r2,r7:BNE n|
00000840  6f 68 69 74 0d 03 ca 1f  20 5c 20 20 53 65 74 20  |ohit.... \  Set |
00000850  68 69 74 20 66 6c 61 67  20 61 6e 64 20 63 6f 6c  |hit flag and col|
00000860  6f 75 72 0d 03 d4 2d 20  4d 4f 56 20 72 38 2c 23  |our...- MOV r8,#|
00000870  31 3a 4d 4f 56 20 72 39  2c 23 36 3a 53 54 52 20  |1:MOV r9,#6:STR |
00000880  72 39 2c 63 6f 6c 6f 75  72 3a 42 20 65 78 69 74  |r9,colour:B exit|
00000890  0d 03 de 0a 2e 6e 6f 68  69 74 0d 03 e8 1e 5c 20  |.....nohit....\ |
000008a0  20 53 61 76 65 20 64 69  73 74 61 6e 63 65 20 74  | Save distance t|
000008b0  6f 20 74 61 72 67 65 74  0d 03 f2 0d 4d 4f 56 20  |o target....MOV |
000008c0  72 33 2c 72 39 0d 03 fc  09 2e 6c 6f 6f 70 0d 04  |r3,r9.....loop..|
000008d0  06 20 20 5c 20 20 50 75  73 68 20 58 2c 59 2c 64  |.  \  Push X,Y,d|
000008e0  69 73 74 20 6f 6e 74 6f  20 73 74 61 63 6b 0d 04  |ist onto stack..|
000008f0  10 16 20 53 54 4d 49 41  20 72 35 21 2c 7b 72 31  |.. STMIA r5!,{r1|
00000900  2d 72 33 7d 0d 04 1a 1c  20 5c 20 20 47 65 74 20  |-r3}.... \  Get |
00000910  72 61 6e 64 6f 6d 20 64  69 72 65 63 74 69 6f 6e  |random direction|
00000920  0d 04 24 2b 20 42 4c 20  72 61 6e 64 3a 80 20 72  |..$+ BL rand:. r|
00000930  34 2c 72 34 2c 23 37 3a  41 44 44 20 72 34 2c 72  |4,r4,#7:ADD r4,r|
00000940  31 32 2c 72 34 2c 4c 53  4c 23 33 0d 04 2e 39 20  |12,r4,LSL#3...9 |
00000950  4c 44 52 20 72 39 2c 5b  72 34 5d 3a 41 44 44 20  |LDR r9,[r4]:ADD |
00000960  72 31 2c 72 31 2c 72 39  3a 4c 44 52 20 72 39 2c  |r1,r1,r9:LDR r9,|
00000970  5b 72 34 2c 23 34 5d 3a  41 44 44 20 72 32 2c 72  |[r4,#4]:ADD r2,r|
00000980  32 2c 72 39 0d 04 38 0c  20 42 4c 20 62 6f 6c 74  |2,r9..8. BL bolt|
00000990  0d 04 42 16 43 4d 50 20  72 38 2c 23 30 3a 42 45  |..B.CMP r8,#0:BE|
000009a0  51 20 6c 6f 6f 70 0d 04  4c 09 2e 65 78 69 74 0d  |Q loop..L..exit.|
000009b0  04 56 17 43 4d 50 20 72  38 2c 23 31 3a 42 4c 45  |.V.CMP r8,#1:BLE|
000009c0  51 20 70 6c 6f 74 0d 04  60 21 43 4d 50 20 72 30  |Q plot..`!CMP r0|
000009d0  2c 23 31 3a 4c 44 4d 4e  45 44 42 20 72 35 21 2c  |,#1:LDMNEDB r5!,|
000009e0  7b 72 31 2d 72 33 7d 0d  04 6a 17 4c 44 4d 46 44  |{r1-r3}..j.LDMFD|
000009f0  20 72 31 33 21 2c 7b 72  30 2c 72 31 35 7d 0d 04  | r13!,{r0,r15}..|
00000a00  74 04 0d 04 7e 11 2e 63  6f 6c 6f 75 72 3a 45 51  |t...~..colour:EQ|
00000a10  55 44 34 0d 04 88 09 2e  70 6c 6f 74 0d 04 92 1b  |UD4.....plot....|
00000a20  53 54 4d 46 44 20 72 31  33 21 2c 7b 72 30 2d 72  |STMFD r13!,{r0-r|
00000a30  31 32 2c 72 31 34 7d 0d  04 9c 1d 4c 44 52 20 72  |12,r14}....LDR r|
00000a40  30 2c 73 63 72 65 65 6e  3a 4d 4f 56 20 72 33 2c  |0,screen:MOV r3,|
00000a50  23 33 32 30 0d 04 a6 26  4d 4c 41 20 72 30 2c 72  |#320...&MLA r0,r|
00000a60  32 2c 72 33 2c 72 30 3a  41 44 44 20 72 30 2c 72  |2,r3,r0:ADD r0,r|
00000a70  30 2c 72 31 2c 4c 53 52  23 31 0d 04 b0 16 80 53  |0,r1,LSR#1.....S|
00000a80  20 72 31 2c 72 31 2c 23  31 3a 42 4e 45 20 68 69  | r1,r1,#1:BNE hi|
00000a90  0d 04 ba 12 20 4c 44 52  20 72 35 2c 63 6f 6c 6f  |.... LDR r5,colo|
00000aa0  75 72 0d 04 c4 3f 20 4c  44 52 42 20 72 34 2c 5b  |ur...? LDRB r4,[|
00000ab0  72 30 5d 3a 80 20 72 34  2c 72 34 2c 23 32 34 30  |r0]:. r4,r4,#240|
00000ac0  3a 84 52 20 72 34 2c 72  34 2c 72 35 3a 53 54 52  |:.R r4,r4,r5:STR|
00000ad0  42 20 72 34 2c 5b 72 30  5d 3a 42 20 71 75 69 74  |B r4,[r0]:B quit|
00000ae0  70 0d 04 ce 07 2e 68 69  0d 04 d8 22 20 4c 44 52  |p.....hi..." LDR|
00000af0  20 72 35 2c 63 6f 6c 6f  75 72 3a 4d 4f 56 20 72  | r5,colour:MOV r|
00000b00  35 2c 72 35 2c 4c 53 4c  23 34 0d 04 e2 35 20 4c  |5,r5,LSL#4...5 L|
00000b10  44 52 42 20 72 34 2c 5b  72 30 5d 3a 80 20 72 34  |DRB r4,[r0]:. r4|
00000b20  2c 72 34 2c 23 37 3a 84  52 20 72 34 2c 72 34 2c  |,r4,#7:.R r4,r4,|
00000b30  72 35 3a 53 54 52 42 20  72 34 2c 5b 72 30 5d 0d  |r5:STRB r4,[r0].|
00000b40  04 ec 0a 2e 71 75 69 74  70 0d 04 f6 1b 4c 44 4d  |....quitp....LDM|
00000b50  46 44 20 72 31 33 21 2c  7b 72 30 2d 72 31 32 2c  |FD r13!,{r0-r12,|
00000b60  72 31 35 7d 0d 05 00 04  0d 05 0a 09 2e 72 61 6e  |r15}.........ran|
00000b70  64 0d 05 14 1a 53 54 4d  46 44 20 72 31 33 21 2c  |d....STMFD r13!,|
00000b80  7b 72 31 2d 72 32 2c 72  31 34 7d 0d 05 1e 0f 4c  |{r1-r2,r14}....L|
00000b90  44 52 20 72 34 2c 73 65  65 64 0d 05 28 0d 43 4d  |DR r4,seed..(.CM|
00000ba0  50 20 72 34 2c 23 30 0d  05 32 0e ec 51 20 72 34  |P r4,#0..2..Q r4|
00000bb0  2c 23 32 35 35 0d 05 3c  0e 4d 4f 56 20 72 32 2c  |,#255..<.MOV r2,|
00000bc0  23 31 37 0d 05 46 0b 2e  72 64 6c 6f 6f 70 0d 05  |#17..F..rdloop..|
00000bd0  50 14 4d 4f 56 20 72 31  2c 72 34 2c 41 53 52 23  |P.MOV r1,r4,ASR#|
00000be0  31 33 0d 05 5a 15 82 20  72 31 2c 72 31 2c 72 34  |13..Z.. r1,r1,r4|
00000bf0  2c 41 53 52 23 32 34 0d  05 64 15 4d 4f 56 53 20  |,ASR#24..d.MOVS |
00000c00  72 31 2c 72 31 2c 52 4f  52 20 23 31 0d 05 6e 11  |r1,r1,ROR #1..n.|
00000c10  41 44 43 53 20 72 34 2c  72 34 2c 72 34 0d 05 78  |ADCS r4,r4,r4..x|
00000c20  11 53 55 42 53 20 72 32  2c 72 32 2c 23 31 0d 05  |.SUBS r2,r2,#1..|
00000c30  82 0e 42 4e 45 20 72 64  6c 6f 6f 70 0d 05 8c 0f  |..BNE rdloop....|
00000c40  53 54 52 20 72 34 2c 73  65 65 64 0d 05 96 1a 4c  |STR r4,seed....L|
00000c50  44 4d 46 44 20 72 31 33  21 2c 7b 72 31 2d 72 32  |DMFD r13!,{r1-r2|
00000c60  2c 72 31 35 7d 0d 05 a0  10 2e 73 65 65 64 3a 45  |,r15}.....seed:E|
00000c70  51 55 44 20 b3 0d 05 aa  05 5d 0d 05 b4 05 ed 0d  |QUD .....]......|
00000c80  05 be 05 e1 0d 05 c8 04  0d 05 d2 13 dd 20 a4 73  |............. .s|
00000c90  63 72 65 65 6e 5f 73 74  61 72 74 0d 05 dc 15 21  |creen_start....!|
00000ca0  49 4e 25 3d 31 34 38 3a  49 4e 25 21 34 3d 2d 31  |IN%=148:IN%!4=-1|
00000cb0  0d 05 e6 13 c8 99 20 26  33 31 2c 49 4e 25 2c 4f  |...... &31,IN%,O|
00000cc0  55 54 25 0d 05 f0 0a 3d  21 4f 55 54 25 0d 05 fa  |UT%....=!OUT%...|
00000cd0  04 0d 06 04 0e dd 20 f2  72 65 73 65 72 76 65 0d  |...... .reserve.|
00000ce0  06 0e 1b c8 99 20 26 35  43 2c 32 20 b8 20 2c 73  |..... &5C,2 . ,s|
00000cf0  63 72 65 65 6e 61 6c 6c  6f 63 0d 06 18 24 61 64  |creenalloc...$ad|
00000d00  64 69 74 69 6f 6e 61 6c  3d 33 32 30 2a 34 38 30  |ditional=320*480|
00000d10  2a 32 2d 73 63 72 65 65  6e 61 6c 6c 6f 63 0d 06  |*2-screenalloc..|
00000d20  22 26 e7 20 61 64 64 69  74 69 6f 6e 61 6c 3e 30  |"&. additional>0|
00000d30  20 c8 99 20 26 32 41 2c  32 2c 61 64 64 69 74 69  | .. &2A,2,additi|
00000d40  6f 6e 61 6c 0d 06 2c 28  c8 99 20 36 2c 31 31 32  |onal..,(.. 6,112|
00000d50  2c 32 3a db 3a c8 99 20  36 2c 31 31 32 2c 31 3a  |,2:.:.. 6,112,1:|
00000d60  db 3a c8 99 20 36 2c 31  31 33 2c 31 0d 06 36 18  |.:.. 6,113,1..6.|
00000d70  c8 99 20 36 2c 31 31 32  2c 32 3a 73 63 72 65 65  |.. 6,112,2:scree|
00000d80  6e 25 3d 32 0d 06 40 05  e1 0d 06 4a 04 0d ff     |n%=2..@....J...|
00000d8f