�=1*1024*1024
� 0
�
� "Assembling..."
(� code% 8192
2� fire1% 5440
<� fire2% 5440
F� palette% 2048
P,�("LOAD <Fire$Dir>.palette "+�~palette%)
Z	no%=0
d� count%=0�5440 � 4
nfire1%!count%=0
xfire2%!count%=0
��
�
�assemble
�
��13
��
�
� play
��
�
���assemble
��x%=0�2 �2
�P%=code%
�[OPT x%
�
.input

EQUD 148

EQUD -1

.output

"
EQUD 0

,
EQUD 0

6.source

@EQUD fire1%+160

J	.dest

TEQUD fire2%+160

^.getpalette1

hEQUD palette%

r.getpalette2

|EQUD palette%+1024

�.draws13

�
EQUD 0

�3� *********************************************

�.readvdu

�ADR R0,input

�ADR R1,output

�SWI "OS_ReadVduVariables"

�MOV PC,R14

�	.draw

�STR R13,draws13

�LDR R0,output

�LDR R1,dest

�MOV R2,#64
+LDR R11,getpalette1:LDR R12,getpalette2

.drawloop
ADD R13,R0,#640
&]
0� num%=0�9
:[OPT x%
D)LDRB R3,[R1],#1:LDR R3,[R11,R3,LSL#2]
N)LDRB R4,[R1],#1:LDR R4,[R11,R4,LSL#2]
X)LDRB R5,[R1],#1:LDR R5,[R11,R5,LSL#2]
b)LDRB R6,[R1],#1:LDR R6,[R11,R6,LSL#2]
l)LDRB R7,[R1],#1:LDR R7,[R11,R7,LSL#2]
v)LDRB R8,[R1],#1:LDR R8,[R11,R8,LSL#2]
�)LDRB R9,[R1],#1:LDR R9,[R11,R9,LSL#2]
�,LDRB R10,[R1],#1:LDR R10,[R11,R10,LSL#2]
�STMIA R0!,{R3-R10}
�STMIA R13!,{R3-R10}
�]
�
� num%
�[OPT x%
�SUB R1,R1,#80
�]
�� num%=0�9
�[OPT x%
�)LDRB R3,[R1],#1:LDR R3,[R12,R3,LSL#2]
�)LDRB R4,[R1],#1:LDR R4,[R12,R4,LSL#2]
)LDRB R5,[R1],#1:LDR R5,[R12,R5,LSL#2]
)LDRB R6,[R1],#1:LDR R6,[R12,R6,LSL#2]
)LDRB R7,[R1],#1:LDR R7,[R12,R7,LSL#2]
 )LDRB R8,[R1],#1:LDR R8,[R12,R8,LSL#2]
*)LDRB R9,[R1],#1:LDR R9,[R12,R9,LSL#2]
4,LDRB R10,[R1],#1:LDR R10,[R12,R10,LSL#2]
>STMIA R0!,{R3-R10}
HSTMIA R13!,{R3-R10}
R]
\
� num%
f[OPT x%
pADD R0,R0,#640
zSUBS R2,R2,#1
�BNE drawloop
�LDR R13,draws13
�MOV PC,R14
�3� *********************************************
�
�
.limit
�EQUD 160
�.animate
�LDR R0,source
�LDR R1,dest
�LDR R2,limit
�
.animloop
�]
� roll%=0 � 31
[OPT x%
'LDRB R3,[R0,#-81]:LDRB R4,[R0,#-80]
$"ADD R3,R3,R4:LDRB R4,[R0,#-79]
.!ADD R3,R3,R4:LDRB R4,[R0,#-1]
8!ADD R3,R3,R4:LDRB R4,[R0,#81]
B!ADD R3,R3,R4:LDRB R4,[R0,#79]
L!ADD R3,R3,R4:LDRB R4,[R0,#80]
V!ADD R3,R3,R4:LDRB R4,[R0,#1]!
` ADD R3,R3,R4:MOV R3,R3,LSR#3
jSTRB R3,[R1],#1
t]
~� roll%
�[OPT x%
�SUBS R2,R2,#1
�BNE animloop
�MOV PC,R14
�	.seed
�EQUS "FIRE"
�.limiter
�EQUD &50505050
�.bottomline
�ELDR R0,dest:ADD R0,R0,#5120:LDR R1,seed:MOV R2,#10:LDR R3,limiter
�
.lineloop
�!ADD R1,R1,R1,ROR#3:� R4,R1,R3
STR R4,[R0],#4

!ADD R1,R1,R1,ROR#3:� R4,R1,R3
STR R4,[R0],#4
SUBS R2,R2,#1:BNE lineloop
(STR R1,seed:MOV PC,R14
2.scroll
<LDR R0,dest
FADD R2,R0,#80
P
MOV R1,#8
Z.scrollloop
d]
n� roll%=0 � 7
x[OPT x%
�OLDMIA R2!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R2!,{R3-R12}:STMIA R0!,{R3-R12}
�]
�� roll%
�[OPT x%
�SUBS R1,R1,#1
�BNE scrollloop
�MOV PC,R14
�	.play
�STMFD R13!,{R14}
�BL readvdu
�SWI"OS_IntOff"
�
.playloop
�BL bottomline
BL animate
MOV R0,#19
SWI "OS_Byte"
"BL draw
,
BL scroll
6LDR R0,source
@LDR R1,dest
JSTR R0,dest
TSTR R1,source
^SWI "OS_ReadEscapeState"
hBCC playloop
rMOV R0,#126
|SWI "OS_Byte"
�SWI "OS_IntOn"
�LDMFD R13!,{PC}
�]
��
�
�

00000000  0d 00 0a 11 e0 3d 31 2a  31 30 32 34 2a 31 30 32  |.....=1*1024*102|
00000010  34 0d 00 0b 07 eb 20 30  0d 00 14 05 87 0d 00 1e  |4..... 0........|
00000020  15 f1 20 22 41 73 73 65  6d 62 6c 69 6e 67 2e 2e  |.. "Assembling..|
00000030  2e 22 0d 00 28 10 de 20  63 6f 64 65 25 20 38 31  |."..(.. code% 81|
00000040  39 32 0d 00 32 11 de 20  66 69 72 65 31 25 20 35  |92..2.. fire1% 5|
00000050  34 34 30 0d 00 3c 11 de  20 66 69 72 65 32 25 20  |440..<.. fire2% |
00000060  35 34 34 30 0d 00 46 13  de 20 70 61 6c 65 74 74  |5440..F.. palett|
00000070  65 25 20 32 30 34 38 0d  00 50 2c ff 28 22 4c 4f  |e% 2048..P,.("LO|
00000080  41 44 20 3c 46 69 72 65  24 44 69 72 3e 2e 70 61  |AD <Fire$Dir>.pa|
00000090  6c 65 74 74 65 20 22 2b  c3 7e 70 61 6c 65 74 74  |lette "+.~palett|
000000a0  65 25 29 0d 00 5a 09 6e  6f 25 3d 30 0d 00 64 17  |e%)..Z.no%=0..d.|
000000b0  e3 20 63 6f 75 6e 74 25  3d 30 b8 35 34 34 30 20  |. count%=0.5440 |
000000c0  88 20 34 0d 00 6e 13 66  69 72 65 31 25 21 63 6f  |. 4..n.fire1%!co|
000000d0  75 6e 74 25 3d 30 0d 00  78 13 66 69 72 65 32 25  |unt%=0..x.fire2%|
000000e0  21 63 6f 75 6e 74 25 3d  30 0d 00 82 05 ed 0d 00  |!count%=0.......|
000000f0  8c 0d f2 61 73 73 65 6d  62 6c 65 0d 00 96 04 0d  |...assemble.....|
00000100  00 a0 07 eb 31 33 0d 00  aa 05 87 0d 00 b4 0a d6  |....13..........|
00000110  20 70 6c 61 79 0d 00 be  05 e0 0d 00 c8 04 0d 00  | play...........|
00000120  d2 0e dd f2 61 73 73 65  6d 62 6c 65 0d 00 dc 0e  |....assemble....|
00000130  e3 78 25 3d 30 b8 32 20  88 32 0d 00 e6 0c 50 25  |.x%=0.2 .2....P%|
00000140  3d 63 6f 64 65 25 0d 00  f0 0b 5b 4f 50 54 20 78  |=code%....[OPT x|
00000150  25 0d 00 fa 0a 2e 69 6e  70 75 74 0d 01 04 0c 45  |%.....input....E|
00000160  51 55 44 20 31 34 38 0d  01 0e 0b 45 51 55 44 20  |QUD 148....EQUD |
00000170  2d 31 0d 01 18 0b 2e 6f  75 74 70 75 74 0d 01 22  |-1.....output.."|
00000180  0a 45 51 55 44 20 30 0d  01 2c 0a 45 51 55 44 20  |.EQUD 0..,.EQUD |
00000190  30 0d 01 36 0b 2e 73 6f  75 72 63 65 0d 01 40 13  |0..6..source..@.|
000001a0  45 51 55 44 20 66 69 72  65 31 25 2b 31 36 30 0d  |EQUD fire1%+160.|
000001b0  01 4a 09 2e 64 65 73 74  0d 01 54 13 45 51 55 44  |.J..dest..T.EQUD|
000001c0  20 66 69 72 65 32 25 2b  31 36 30 0d 01 5e 10 2e  | fire2%+160..^..|
000001d0  67 65 74 70 61 6c 65 74  74 65 31 0d 01 68 11 45  |getpalette1..h.E|
000001e0  51 55 44 20 70 61 6c 65  74 74 65 25 0d 01 72 10  |QUD palette%..r.|
000001f0  2e 67 65 74 70 61 6c 65  74 74 65 32 0d 01 7c 16  |.getpalette2..|.|
00000200  45 51 55 44 20 70 61 6c  65 74 74 65 25 2b 31 30  |EQUD palette%+10|
00000210  32 34 0d 01 86 0c 2e 64  72 61 77 73 31 33 0d 01  |24.....draws13..|
00000220  90 0a 45 51 55 44 20 30  0d 01 9a 33 f4 20 2a 2a  |..EQUD 0...3. **|
00000230  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000250  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 01 a4 0c 2e  |***********.....|
00000260  72 65 61 64 76 64 75 0d  01 ae 10 41 44 52 20 52  |readvdu....ADR R|
00000270  30 2c 69 6e 70 75 74 0d  01 b8 11 41 44 52 20 52  |0,input....ADR R|
00000280  31 2c 6f 75 74 70 75 74  0d 01 c2 1d 53 57 49 20  |1,output....SWI |
00000290  22 4f 53 5f 52 65 61 64  56 64 75 56 61 72 69 61  |"OS_ReadVduVaria|
000002a0  62 6c 65 73 22 0d 01 cc  0e 4d 4f 56 20 50 43 2c  |bles"....MOV PC,|
000002b0  52 31 34 0d 01 d6 09 2e  64 72 61 77 0d 01 e0 13  |R14.....draw....|
000002c0  53 54 52 20 52 31 33 2c  64 72 61 77 73 31 33 0d  |STR R13,draws13.|
000002d0  01 ea 11 4c 44 52 20 52  30 2c 6f 75 74 70 75 74  |...LDR R0,output|
000002e0  0d 01 f4 0f 4c 44 52 20  52 31 2c 64 65 73 74 0d  |....LDR R1,dest.|
000002f0  01 fe 0e 4d 4f 56 20 52  32 2c 23 36 34 0d 02 08  |...MOV R2,#64...|
00000300  2b 4c 44 52 20 52 31 31  2c 67 65 74 70 61 6c 65  |+LDR R11,getpale|
00000310  74 74 65 31 3a 4c 44 52  20 52 31 32 2c 67 65 74  |tte1:LDR R12,get|
00000320  70 61 6c 65 74 74 65 32  0d 02 12 0d 2e 64 72 61  |palette2.....dra|
00000330  77 6c 6f 6f 70 0d 02 1c  13 41 44 44 20 52 31 33  |wloop....ADD R13|
00000340  2c 52 30 2c 23 36 34 30  0d 02 26 05 5d 0d 02 30  |,R0,#640..&.]..0|
00000350  0e e3 20 6e 75 6d 25 3d  30 b8 39 0d 02 3a 0b 5b  |.. num%=0.9..:.[|
00000360  4f 50 54 20 78 25 0d 02  44 29 4c 44 52 42 20 52  |OPT x%..D)LDRB R|
00000370  33 2c 5b 52 31 5d 2c 23  31 3a 4c 44 52 20 52 33  |3,[R1],#1:LDR R3|
00000380  2c 5b 52 31 31 2c 52 33  2c 4c 53 4c 23 32 5d 0d  |,[R11,R3,LSL#2].|
00000390  02 4e 29 4c 44 52 42 20  52 34 2c 5b 52 31 5d 2c  |.N)LDRB R4,[R1],|
000003a0  23 31 3a 4c 44 52 20 52  34 2c 5b 52 31 31 2c 52  |#1:LDR R4,[R11,R|
000003b0  34 2c 4c 53 4c 23 32 5d  0d 02 58 29 4c 44 52 42  |4,LSL#2]..X)LDRB|
000003c0  20 52 35 2c 5b 52 31 5d  2c 23 31 3a 4c 44 52 20  | R5,[R1],#1:LDR |
000003d0  52 35 2c 5b 52 31 31 2c  52 35 2c 4c 53 4c 23 32  |R5,[R11,R5,LSL#2|
000003e0  5d 0d 02 62 29 4c 44 52  42 20 52 36 2c 5b 52 31  |]..b)LDRB R6,[R1|
000003f0  5d 2c 23 31 3a 4c 44 52  20 52 36 2c 5b 52 31 31  |],#1:LDR R6,[R11|
00000400  2c 52 36 2c 4c 53 4c 23  32 5d 0d 02 6c 29 4c 44  |,R6,LSL#2]..l)LD|
00000410  52 42 20 52 37 2c 5b 52  31 5d 2c 23 31 3a 4c 44  |RB R7,[R1],#1:LD|
00000420  52 20 52 37 2c 5b 52 31  31 2c 52 37 2c 4c 53 4c  |R R7,[R11,R7,LSL|
00000430  23 32 5d 0d 02 76 29 4c  44 52 42 20 52 38 2c 5b  |#2]..v)LDRB R8,[|
00000440  52 31 5d 2c 23 31 3a 4c  44 52 20 52 38 2c 5b 52  |R1],#1:LDR R8,[R|
00000450  31 31 2c 52 38 2c 4c 53  4c 23 32 5d 0d 02 80 29  |11,R8,LSL#2]...)|
00000460  4c 44 52 42 20 52 39 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R9,[R1],#1:|
00000470  4c 44 52 20 52 39 2c 5b  52 31 31 2c 52 39 2c 4c  |LDR R9,[R11,R9,L|
00000480  53 4c 23 32 5d 0d 02 8a  2c 4c 44 52 42 20 52 31  |SL#2]...,LDRB R1|
00000490  30 2c 5b 52 31 5d 2c 23  31 3a 4c 44 52 20 52 31  |0,[R1],#1:LDR R1|
000004a0  30 2c 5b 52 31 31 2c 52  31 30 2c 4c 53 4c 23 32  |0,[R11,R10,LSL#2|
000004b0  5d 0d 02 94 16 53 54 4d  49 41 20 52 30 21 2c 7b  |]....STMIA R0!,{|
000004c0  52 33 2d 52 31 30 7d 0d  02 9e 17 53 54 4d 49 41  |R3-R10}....STMIA|
000004d0  20 52 31 33 21 2c 7b 52  33 2d 52 31 30 7d 0d 02  | R13!,{R3-R10}..|
000004e0  a8 05 5d 0d 02 b2 0a ed  20 6e 75 6d 25 0d 02 bc  |..]..... num%...|
000004f0  0b 5b 4f 50 54 20 78 25  0d 02 c6 11 53 55 42 20  |.[OPT x%....SUB |
00000500  52 31 2c 52 31 2c 23 38  30 0d 02 d0 05 5d 0d 02  |R1,R1,#80....]..|
00000510  da 0e e3 20 6e 75 6d 25  3d 30 b8 39 0d 02 e4 0b  |... num%=0.9....|
00000520  5b 4f 50 54 20 78 25 0d  02 ee 29 4c 44 52 42 20  |[OPT x%...)LDRB |
00000530  52 33 2c 5b 52 31 5d 2c  23 31 3a 4c 44 52 20 52  |R3,[R1],#1:LDR R|
00000540  33 2c 5b 52 31 32 2c 52  33 2c 4c 53 4c 23 32 5d  |3,[R12,R3,LSL#2]|
00000550  0d 02 f8 29 4c 44 52 42  20 52 34 2c 5b 52 31 5d  |...)LDRB R4,[R1]|
00000560  2c 23 31 3a 4c 44 52 20  52 34 2c 5b 52 31 32 2c  |,#1:LDR R4,[R12,|
00000570  52 34 2c 4c 53 4c 23 32  5d 0d 03 02 29 4c 44 52  |R4,LSL#2]...)LDR|
00000580  42 20 52 35 2c 5b 52 31  5d 2c 23 31 3a 4c 44 52  |B R5,[R1],#1:LDR|
00000590  20 52 35 2c 5b 52 31 32  2c 52 35 2c 4c 53 4c 23  | R5,[R12,R5,LSL#|
000005a0  32 5d 0d 03 0c 29 4c 44  52 42 20 52 36 2c 5b 52  |2]...)LDRB R6,[R|
000005b0  31 5d 2c 23 31 3a 4c 44  52 20 52 36 2c 5b 52 31  |1],#1:LDR R6,[R1|
000005c0  32 2c 52 36 2c 4c 53 4c  23 32 5d 0d 03 16 29 4c  |2,R6,LSL#2]...)L|
000005d0  44 52 42 20 52 37 2c 5b  52 31 5d 2c 23 31 3a 4c  |DRB R7,[R1],#1:L|
000005e0  44 52 20 52 37 2c 5b 52  31 32 2c 52 37 2c 4c 53  |DR R7,[R12,R7,LS|
000005f0  4c 23 32 5d 0d 03 20 29  4c 44 52 42 20 52 38 2c  |L#2].. )LDRB R8,|
00000600  5b 52 31 5d 2c 23 31 3a  4c 44 52 20 52 38 2c 5b  |[R1],#1:LDR R8,[|
00000610  52 31 32 2c 52 38 2c 4c  53 4c 23 32 5d 0d 03 2a  |R12,R8,LSL#2]..*|
00000620  29 4c 44 52 42 20 52 39  2c 5b 52 31 5d 2c 23 31  |)LDRB R9,[R1],#1|
00000630  3a 4c 44 52 20 52 39 2c  5b 52 31 32 2c 52 39 2c  |:LDR R9,[R12,R9,|
00000640  4c 53 4c 23 32 5d 0d 03  34 2c 4c 44 52 42 20 52  |LSL#2]..4,LDRB R|
00000650  31 30 2c 5b 52 31 5d 2c  23 31 3a 4c 44 52 20 52  |10,[R1],#1:LDR R|
00000660  31 30 2c 5b 52 31 32 2c  52 31 30 2c 4c 53 4c 23  |10,[R12,R10,LSL#|
00000670  32 5d 0d 03 3e 16 53 54  4d 49 41 20 52 30 21 2c  |2]..>.STMIA R0!,|
00000680  7b 52 33 2d 52 31 30 7d  0d 03 48 17 53 54 4d 49  |{R3-R10}..H.STMI|
00000690  41 20 52 31 33 21 2c 7b  52 33 2d 52 31 30 7d 0d  |A R13!,{R3-R10}.|
000006a0  03 52 05 5d 0d 03 5c 0a  ed 20 6e 75 6d 25 0d 03  |.R.]..\.. num%..|
000006b0  66 0b 5b 4f 50 54 20 78  25 0d 03 70 12 41 44 44  |f.[OPT x%..p.ADD|
000006c0  20 52 30 2c 52 30 2c 23  36 34 30 0d 03 7a 11 53  | R0,R0,#640..z.S|
000006d0  55 42 53 20 52 32 2c 52  32 2c 23 31 0d 03 84 10  |UBS R2,R2,#1....|
000006e0  42 4e 45 20 64 72 61 77  6c 6f 6f 70 0d 03 8e 13  |BNE drawloop....|
000006f0  4c 44 52 20 52 31 33 2c  64 72 61 77 73 31 33 0d  |LDR R13,draws13.|
00000700  03 98 0e 4d 4f 56 20 50  43 2c 52 31 34 0d 03 a2  |...MOV PC,R14...|
00000710  33 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |3. *************|
00000720  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000740  0d 03 ac 04 0d 03 b6 0a  2e 6c 69 6d 69 74 0d 03  |.........limit..|
00000750  c0 0c 45 51 55 44 20 31  36 30 0d 03 ca 0c 2e 61  |..EQUD 160.....a|
00000760  6e 69 6d 61 74 65 0d 03  d4 11 4c 44 52 20 52 30  |nimate....LDR R0|
00000770  2c 73 6f 75 72 63 65 0d  03 de 0f 4c 44 52 20 52  |,source....LDR R|
00000780  31 2c 64 65 73 74 0d 03  e8 10 4c 44 52 20 52 32  |1,dest....LDR R2|
00000790  2c 6c 69 6d 69 74 0d 03  f2 0d 2e 61 6e 69 6d 6c  |,limit.....animl|
000007a0  6f 6f 70 0d 03 fc 05 5d  0d 04 06 12 e3 20 72 6f  |oop....]..... ro|
000007b0  6c 6c 25 3d 30 20 b8 20  33 31 0d 04 10 0b 5b 4f  |ll%=0 . 31....[O|
000007c0  50 54 20 78 25 0d 04 1a  27 4c 44 52 42 20 52 33  |PT x%...'LDRB R3|
000007d0  2c 5b 52 30 2c 23 2d 38  31 5d 3a 4c 44 52 42 20  |,[R0,#-81]:LDRB |
000007e0  52 34 2c 5b 52 30 2c 23  2d 38 30 5d 0d 04 24 22  |R4,[R0,#-80]..$"|
000007f0  41 44 44 20 52 33 2c 52  33 2c 52 34 3a 4c 44 52  |ADD R3,R3,R4:LDR|
00000800  42 20 52 34 2c 5b 52 30  2c 23 2d 37 39 5d 0d 04  |B R4,[R0,#-79]..|
00000810  2e 21 41 44 44 20 52 33  2c 52 33 2c 52 34 3a 4c  |.!ADD R3,R3,R4:L|
00000820  44 52 42 20 52 34 2c 5b  52 30 2c 23 2d 31 5d 0d  |DRB R4,[R0,#-1].|
00000830  04 38 21 41 44 44 20 52  33 2c 52 33 2c 52 34 3a  |.8!ADD R3,R3,R4:|
00000840  4c 44 52 42 20 52 34 2c  5b 52 30 2c 23 38 31 5d  |LDRB R4,[R0,#81]|
00000850  0d 04 42 21 41 44 44 20  52 33 2c 52 33 2c 52 34  |..B!ADD R3,R3,R4|
00000860  3a 4c 44 52 42 20 52 34  2c 5b 52 30 2c 23 37 39  |:LDRB R4,[R0,#79|
00000870  5d 0d 04 4c 21 41 44 44  20 52 33 2c 52 33 2c 52  |]..L!ADD R3,R3,R|
00000880  34 3a 4c 44 52 42 20 52  34 2c 5b 52 30 2c 23 38  |4:LDRB R4,[R0,#8|
00000890  30 5d 0d 04 56 21 41 44  44 20 52 33 2c 52 33 2c  |0]..V!ADD R3,R3,|
000008a0  52 34 3a 4c 44 52 42 20  52 34 2c 5b 52 30 2c 23  |R4:LDRB R4,[R0,#|
000008b0  31 5d 21 0d 04 60 20 41  44 44 20 52 33 2c 52 33  |1]!..` ADD R3,R3|
000008c0  2c 52 34 3a 4d 4f 56 20  52 33 2c 52 33 2c 4c 53  |,R4:MOV R3,R3,LS|
000008d0  52 23 33 0d 04 6a 13 53  54 52 42 20 52 33 2c 5b  |R#3..j.STRB R3,[|
000008e0  52 31 5d 2c 23 31 0d 04  74 05 5d 0d 04 7e 0b ed  |R1],#1..t.]..~..|
000008f0  20 72 6f 6c 6c 25 0d 04  88 0b 5b 4f 50 54 20 78  | roll%....[OPT x|
00000900  25 0d 04 92 11 53 55 42  53 20 52 32 2c 52 32 2c  |%....SUBS R2,R2,|
00000910  23 31 0d 04 9c 10 42 4e  45 20 61 6e 69 6d 6c 6f  |#1....BNE animlo|
00000920  6f 70 0d 04 a6 0e 4d 4f  56 20 50 43 2c 52 31 34  |op....MOV PC,R14|
00000930  0d 04 b0 09 2e 73 65 65  64 0d 04 ba 0f 45 51 55  |.....seed....EQU|
00000940  53 20 22 46 49 52 45 22  0d 04 c4 0c 2e 6c 69 6d  |S "FIRE".....lim|
00000950  69 74 65 72 0d 04 ce 12  45 51 55 44 20 26 35 30  |iter....EQUD &50|
00000960  35 30 35 30 35 30 0d 04  d8 0f 2e 62 6f 74 74 6f  |505050.....botto|
00000970  6d 6c 69 6e 65 0d 04 e2  45 4c 44 52 20 52 30 2c  |mline...ELDR R0,|
00000980  64 65 73 74 3a 41 44 44  20 52 30 2c 52 30 2c 23  |dest:ADD R0,R0,#|
00000990  35 31 32 30 3a 4c 44 52  20 52 31 2c 73 65 65 64  |5120:LDR R1,seed|
000009a0  3a 4d 4f 56 20 52 32 2c  23 31 30 3a 4c 44 52 20  |:MOV R2,#10:LDR |
000009b0  52 33 2c 6c 69 6d 69 74  65 72 0d 04 ec 0d 2e 6c  |R3,limiter.....l|
000009c0  69 6e 65 6c 6f 6f 70 0d  04 f6 21 41 44 44 20 52  |ineloop...!ADD R|
000009d0  31 2c 52 31 2c 52 31 2c  52 4f 52 23 33 3a 80 20  |1,R1,R1,ROR#3:. |
000009e0  52 34 2c 52 31 2c 52 33  0d 05 00 12 53 54 52 20  |R4,R1,R3....STR |
000009f0  52 34 2c 5b 52 30 5d 2c  23 34 0d 05 0a 21 41 44  |R4,[R0],#4...!AD|
00000a00  44 20 52 31 2c 52 31 2c  52 31 2c 52 4f 52 23 33  |D R1,R1,R1,ROR#3|
00000a10  3a 80 20 52 34 2c 52 31  2c 52 33 0d 05 14 12 53  |:. R4,R1,R3....S|
00000a20  54 52 20 52 34 2c 5b 52  30 5d 2c 23 34 0d 05 1e  |TR R4,[R0],#4...|
00000a30  1e 53 55 42 53 20 52 32  2c 52 32 2c 23 31 3a 42  |.SUBS R2,R2,#1:B|
00000a40  4e 45 20 6c 69 6e 65 6c  6f 6f 70 0d 05 28 1a 53  |NE lineloop..(.S|
00000a50  54 52 20 52 31 2c 73 65  65 64 3a 4d 4f 56 20 50  |TR R1,seed:MOV P|
00000a60  43 2c 52 31 34 0d 05 32  0b 2e 73 63 72 6f 6c 6c  |C,R14..2..scroll|
00000a70  0d 05 3c 0f 4c 44 52 20  52 30 2c 64 65 73 74 0d  |..<.LDR R0,dest.|
00000a80  05 46 11 41 44 44 20 52  32 2c 52 30 2c 23 38 30  |.F.ADD R2,R0,#80|
00000a90  0d 05 50 0d 4d 4f 56 20  52 31 2c 23 38 0d 05 5a  |..P.MOV R1,#8..Z|
00000aa0  0f 2e 73 63 72 6f 6c 6c  6c 6f 6f 70 0d 05 64 05  |..scrollloop..d.|
00000ab0  5d 0d 05 6e 11 e3 20 72  6f 6c 6c 25 3d 30 20 b8  |]..n.. roll%=0 .|
00000ac0  20 37 0d 05 78 0b 5b 4f  50 54 20 78 25 0d 05 82  | 7..x.[OPT x%...|
00000ad0  4f 4c 44 4d 49 41 20 52  32 21 2c 7b 52 33 2d 52  |OLDMIA R2!,{R3-R|
00000ae0  31 32 7d 3a 53 54 4d 49  41 20 52 30 21 2c 7b 52  |12}:STMIA R0!,{R|
00000af0  33 2d 52 31 32 7d 3a 4c  44 4d 49 41 20 52 32 21  |3-R12}:LDMIA R2!|
00000b00  2c 7b 52 33 2d 52 31 32  7d 3a 53 54 4d 49 41 20  |,{R3-R12}:STMIA |
00000b10  52 30 21 2c 7b 52 33 2d  52 31 32 7d 0d 05 8c 05  |R0!,{R3-R12}....|
00000b20  5d 0d 05 96 0b ed 20 72  6f 6c 6c 25 0d 05 a0 0b  |]..... roll%....|
00000b30  5b 4f 50 54 20 78 25 0d  05 aa 11 53 55 42 53 20  |[OPT x%....SUBS |
00000b40  52 31 2c 52 31 2c 23 31  0d 05 b4 12 42 4e 45 20  |R1,R1,#1....BNE |
00000b50  73 63 72 6f 6c 6c 6c 6f  6f 70 0d 05 be 0e 4d 4f  |scrollloop....MO|
00000b60  56 20 50 43 2c 52 31 34  0d 05 c8 09 2e 70 6c 61  |V PC,R14.....pla|
00000b70  79 0d 05 d2 14 53 54 4d  46 44 20 52 31 33 21 2c  |y....STMFD R13!,|
00000b80  7b 52 31 34 7d 0d 05 dc  0e 42 4c 20 72 65 61 64  |{R14}....BL read|
00000b90  76 64 75 0d 05 e6 12 53  57 49 22 4f 53 5f 49 6e  |vdu....SWI"OS_In|
00000ba0  74 4f 66 66 22 0d 05 f0  0d 2e 70 6c 61 79 6c 6f  |tOff".....playlo|
00000bb0  6f 70 0d 05 fa 11 42 4c  20 62 6f 74 74 6f 6d 6c  |op....BL bottoml|
00000bc0  69 6e 65 0d 06 04 0e 42  4c 20 61 6e 69 6d 61 74  |ine....BL animat|
00000bd0  65 0d 06 0e 0e 4d 4f 56  20 52 30 2c 23 31 39 0d  |e....MOV R0,#19.|
00000be0  06 18 11 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |...SWI "OS_Byte"|
00000bf0  0d 06 22 0b 42 4c 20 64  72 61 77 0d 06 2c 0d 42  |..".BL draw..,.B|
00000c00  4c 20 73 63 72 6f 6c 6c  0d 06 36 11 4c 44 52 20  |L scroll..6.LDR |
00000c10  52 30 2c 73 6f 75 72 63  65 0d 06 40 0f 4c 44 52  |R0,source..@.LDR|
00000c20  20 52 31 2c 64 65 73 74  0d 06 4a 0f 53 54 52 20  | R1,dest..J.STR |
00000c30  52 30 2c 64 65 73 74 0d  06 54 11 53 54 52 20 52  |R0,dest..T.STR R|
00000c40  31 2c 73 6f 75 72 63 65  0d 06 5e 1c 53 57 49 20  |1,source..^.SWI |
00000c50  22 4f 53 5f 52 65 61 64  45 73 63 61 70 65 53 74  |"OS_ReadEscapeSt|
00000c60  61 74 65 22 0d 06 68 10  42 43 43 20 70 6c 61 79  |ate"..h.BCC play|
00000c70  6c 6f 6f 70 0d 06 72 0f  4d 4f 56 20 52 30 2c 23  |loop..r.MOV R0,#|
00000c80  31 32 36 0d 06 7c 11 53  57 49 20 22 4f 53 5f 42  |126..|.SWI "OS_B|
00000c90  79 74 65 22 0d 06 86 12  53 57 49 20 22 4f 53 5f  |yte"....SWI "OS_|
00000ca0  49 6e 74 4f 6e 22 0d 06  90 13 4c 44 4d 46 44 20  |IntOn"....LDMFD |
00000cb0  52 31 33 21 2c 7b 50 43  7d 0d 06 9a 05 5d 0d 06  |R13!,{PC}....]..|
00000cc0  a4 05 e1 0d 06 ae 04 0d  ff                       |.........|
00000cc9