Home » Personal collection » Acorn hard disk » demos » Demo » Sillies/!Fire/!RunImage

Sillies/!Fire/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » demos » Demo
Filename: Sillies/!Fire/!RunImage
Read OK:
File size: 0CC9 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10END=1*1024*1024
   11MODE 0
   20OFF
   30PRINT "Assembling..."
   40DIM code% 8192
   50DIM fire1% 5440
   60DIM fire2% 5440
   70DIM palette% 2048
   80OSCLI("LOAD <Fire$Dir>.palette "+STR$~palette%)
   90no%=0
  100FOR count%=0TO5440 STEP 4
  110fire1%!count%=0
  120fire2%!count%=0
  130NEXT
  140PROCassemble
  150
  160MODE13
  170OFF
  180CALL play
  190END
  200
  210DEFPROCassemble
  220FORx%=0TO2 STEP2
  230P%=code%
  240[OPT x%
  250.input
  260EQUD 148
  270EQUD -1
  280.output
  290EQUD 0
  300EQUD 0
  310.source
  320EQUD fire1%+160
  330.dest
  340EQUD fire2%+160
  350.getpalette1
  360EQUD palette%
  370.getpalette2
  380EQUD palette%+1024
  390.draws13
  400EQUD 0
  410REM *********************************************
  420.readvdu
  430ADR R0,input
  440ADR R1,output
  450SWI "OS_ReadVduVariables"
  460MOV PC,R14
  470.draw
  480STR R13,draws13
  490LDR R0,output
  500LDR R1,dest
  510MOV R2,#64
  520LDR R11,getpalette1:LDR R12,getpalette2
  530.drawloop
  540ADD R13,R0,#640
  550]
  560FOR num%=0TO9
  570[OPT x%
  580LDRB R3,[R1],#1:LDR R3,[R11,R3,LSL#2]
  590LDRB R4,[R1],#1:LDR R4,[R11,R4,LSL#2]
  600LDRB R5,[R1],#1:LDR R5,[R11,R5,LSL#2]
  610LDRB R6,[R1],#1:LDR R6,[R11,R6,LSL#2]
  620LDRB R7,[R1],#1:LDR R7,[R11,R7,LSL#2]
  630LDRB R8,[R1],#1:LDR R8,[R11,R8,LSL#2]
  640LDRB R9,[R1],#1:LDR R9,[R11,R9,LSL#2]
  650LDRB R10,[R1],#1:LDR R10,[R11,R10,LSL#2]
  660STMIA R0!,{R3-R10}
  670STMIA R13!,{R3-R10}
  680]
  690NEXT num%
  700[OPT x%
  710SUB R1,R1,#80
  720]
  730FOR num%=0TO9
  740[OPT x%
  750LDRB R3,[R1],#1:LDR R3,[R12,R3,LSL#2]
  760LDRB R4,[R1],#1:LDR R4,[R12,R4,LSL#2]
  770LDRB R5,[R1],#1:LDR R5,[R12,R5,LSL#2]
  780LDRB R6,[R1],#1:LDR R6,[R12,R6,LSL#2]
  790LDRB R7,[R1],#1:LDR R7,[R12,R7,LSL#2]
  800LDRB R8,[R1],#1:LDR R8,[R12,R8,LSL#2]
  810LDRB R9,[R1],#1:LDR R9,[R12,R9,LSL#2]
  820LDRB R10,[R1],#1:LDR R10,[R12,R10,LSL#2]
  830STMIA R0!,{R3-R10}
  840STMIA R13!,{R3-R10}
  850]
  860NEXT num%
  870[OPT x%
  880ADD R0,R0,#640
  890SUBS R2,R2,#1
  900BNE drawloop
  910LDR R13,draws13
  920MOV PC,R14
  930REM *********************************************
  940
  950.limit
  960EQUD 160
  970.animate
  980LDR R0,source
  990LDR R1,dest
 1000LDR R2,limit
 1010.animloop
 1020]
 1030FOR roll%=0 TO 31
 1040[OPT x%
 1050LDRB R3,[R0,#-81]:LDRB R4,[R0,#-80]
 1060ADD R3,R3,R4:LDRB R4,[R0,#-79]
 1070ADD R3,R3,R4:LDRB R4,[R0,#-1]
 1080ADD R3,R3,R4:LDRB R4,[R0,#81]
 1090ADD R3,R3,R4:LDRB R4,[R0,#79]
 1100ADD R3,R3,R4:LDRB R4,[R0,#80]
 1110ADD R3,R3,R4:LDRB R4,[R0,#1]!
 1120ADD R3,R3,R4:MOV R3,R3,LSR#3
 1130STRB R3,[R1],#1
 1140]
 1150NEXT roll%
 1160[OPT x%
 1170SUBS R2,R2,#1
 1180BNE animloop
 1190MOV PC,R14
 1200.seed
 1210EQUS "FIRE"
 1220.limiter
 1230EQUD &50505050
 1240.bottomline
 1250LDR R0,dest:ADD R0,R0,#5120:LDR R1,seed:MOV R2,#10:LDR R3,limiter
 1260.lineloop
 1270ADD R1,R1,R1,ROR#3:AND R4,R1,R3
 1280STR R4,[R0],#4
 1290ADD R1,R1,R1,ROR#3:AND R4,R1,R3
 1300STR R4,[R0],#4
 1310SUBS R2,R2,#1:BNE lineloop
 1320STR R1,seed:MOV PC,R14
 1330.scroll
 1340LDR R0,dest
 1350ADD R2,R0,#80
 1360MOV R1,#8
 1370.scrollloop
 1380]
 1390FOR roll%=0 TO 7
 1400[OPT x%
 1410LDMIA R2!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R2!,{R3-R12}:STMIA R0!,{R3-R12}
 1420]
 1430NEXT roll%
 1440[OPT x%
 1450SUBS R1,R1,#1
 1460BNE scrollloop
 1470MOV PC,R14
 1480.play
 1490STMFD R13!,{R14}
 1500BL readvdu
 1510SWI"OS_IntOff"
 1520.playloop
 1530BL bottomline
 1540BL animate
 1550MOV R0,#19
 1560SWI "OS_Byte"
 1570BL draw
 1580BL scroll
 1590LDR R0,source
 1600LDR R1,dest
 1610STR R0,dest
 1620STR R1,source
 1630SWI "OS_ReadEscapeState"
 1640BCC playloop
 1650MOV R0,#126
 1660SWI "OS_Byte"
 1670SWI "OS_IntOn"
 1680LDMFD R13!,{PC}
 1690]
 1700ENDPROC
 1710

�=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