Home » Archimedes archive » Acorn User » AU 1997-05 B.adf » Regulars » StarInfo/clouds/Boham/!3D_Clouds/!RunImage
StarInfo/clouds/Boham/!3D_Clouds/!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 » Archimedes archive » Acorn User » AU 1997-05 B.adf » Regulars |
| Filename: | StarInfo/clouds/Boham/!3D_Clouds/!RunImage |
| Read OK: | ✔ |
| File size: | 09B5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1f$="<3dClouds$Dir>.Cloud"
2MODE 15
3MODE 13:OFF
4PROCass
5PROCcreate_backdrop
6S1=1
7S2=2
8REPEAT
9FOR !spry = (256<<16)-1 TO 0 STEP -(1<<17)
10WAIT:SYS 6,112,S1:SYS 6,113,S2:SWAP S1,S2
11CALL to_screen
12CALL plot_clouds
13NEXT !spry
14UNTIL FALSE
15END
16:
17DEFPROCass
18DIM code% 1024,L% -1,spr% 66000,scr% 320*256
19!spr% = 66000
20OSCLI"Load "+f$+" "+STR$~(spr%+4)
21FOR pass=0 TO 2 STEP 2
22P%=code%
23[OPT pass
24.plot_clouds
25ADR R0,s1
26ADR R1,s2
27SWI &31
28LDR R12,s2 ;R12 = write byte to screen address
29LDR R11,half ;R11 = stop address
30ADD R11,R11,R12
31SUB R11,R11,#320*4
32LDR R10,spr ;R10 = sprite address
33
34MOV R0,#0 ;R0 = sprx<<16
35LDR R1,spry ;R1 = spry<<16
36MOV R2,#1<<13 ;R2 = sprx step << 16
37MOV R3,#1<<17 ;R3 = spry step << 16
38MOV R5,#0
39;
40.y_loop
41MOV R4,#320
42
43
44SUB R5,R5,#1<<17
45CMP R5,#0
46ADDLT R5,R5,#256<<16
47
48MOV R0,R5
49ADD R2,R2,#1<<10
50
51;R4 = x pixels to go counter
52.x_loop
53
54MOV R9,R1,LSR #16
55MOV R9,R9,LSL #8
56ADD R9,R9,R0,LSR #16
57LDRB R9,[R9,R10]
58CMP R9,#&CB
59STRNEB R9,[R12],#1
60ADDEQ R12,R12,#1
61
62ADD R0,R0,R2
63CMP R0,#256<<16
64SUBGE R0,R0,#256<<16
65
66SUBS R4,R4,#1
67BGT x_loop
68
69
70;add on y sprite co-ords
71ADD R1,R1,R3
72CMP R1,#256<<16
73SUBGE R1,R1,#256<<16
74ADD R3,R3,#1<<11
75:
76CMP R12,R11
77BLT y_loop
78MOV PC,R14
79.back_fill EQUD &CBCBCBCB
80.back_fill2 EQUD &67676767
81.half EQUD 320*128
82.full EQUD 320*256
83.s1 EQUD 148:EQUD -1
84.s2 EQUD 0:EQUD 0
85.spr EQUD FNfirst_sprite(spr%)
86.spry EQUD 0
87.scr_addr EQUD scr%
88.from_screen
89ADR R0,s1
90ADR R1,s2
91SWI &31
92LDR R12,s2
93LDR R11,scr_addr
94LDR R10,full
95ADD R10,R10,R12
96.from_screen_loop
97LDMIA R12!,{R0-R9}
98STMIA R11!,{R0-R9}
99CMP R12,R10
100BLT from_screen_loop
101MOV PC,R14
102.to_screen
103ADR R0,s1
104ADR R1,s2
105SWI &31
106LDR R12,s2
107LDR R11,scr_addr
108LDR R10,full
109ADD R10,R10,R12
110.to_screen_loop
111LDMIA R11!,{R0-R9}
112STMIA R12!,{R0-R9}
113CMP R12,R10
114BLT to_screen_loop
115MOV PC,R14
116]
117NEXT pass
118ENDPROC
119:
120DEFFNfirst_sprite(a)
121fs% = a + a!8
122=fs% + fs%!36
123:
124DEFPROCcreate_backdrop
125FOR y%=1024 TO 512 STEP -4
126c% = (1024-y%)/2
127PROCg(c%,128+c%/2,255)
128LINE 0,y%,1279,y%
129NEXT y%
130FOR y%=512 TO 0 STEP -4
131c% = y%/4
132PROCg(c%,255,c%)
133LINE 0,y%,1279,y%
134NEXT y%
135PROCg(255,255,0)
136CIRCLEFILL 1150,950,50
137CALL from_screen
138ENDPROC
139:
140DEFPROCg(r%,g%,b%)
141SYS "ColourTrans_SetGCOL",(r%<<8)+(g%<<16)+(b%<<24),,,&100
142ENDPROC
f$="<3dClouds$Dir>.Cloud"
� 15
� 13:�
�ass
�create_backdrop
S1=1
S2=2
�
(� !spry = (256<<16)-1 � 0 � -(1<<17)
'Ȗ:ș 6,112,S1:ș 6,113,S2:Ȕ S1,S2
� to_screen
� plot_clouds
� !spry
� �
�
:
��ass
.� code% 1024,L% -1,spr% 66000,scr% 320*256
!spr% = 66000
�"Load "+f$+" "+�~(spr%+4)
� pass=0 � 2 � 2
P%=code%
[OPT pass
.plot_clouds
ADR R0,s1
ADR R1,s2
SWI &31
6LDR R12,s2 ;R12 = write byte to screen address
&LDR R11,half ;R11 = stop address
ADD R11,R11,R12
SUB R11,R11,#320*4
(LDR R10,spr ;R10 = sprite address
!
"!MOV R0,#0 ;R0 = sprx<<16
#!LDR R1,spry ;R1 = spry<<16
$,MOV R2,#1<<13 ;R2 = sprx step << 16
%,MOV R3,#1<<17 ;R3 = spry step << 16
&
MOV R5,#0
';
( .y_loop
)MOV R4,#320
*
+
,SUB R5,R5,#1<<17
-
CMP R5,#0
.ADDLT R5,R5,#256<<16
/
0
MOV R0,R5
1ADD R2,R2,#1<<10
2
3 ;R4 = x pixels to go counter
4 .x_loop
5
6MOV R9,R1,LSR #16
7MOV R9,R9,LSL #8
8ADD R9,R9,R0,LSR #16
9LDRB R9,[R9,R10]
:CMP R9,#&CB
;STRNEB R9,[R12],#1
<ADDEQ R12,R12,#1
=
>ADD R0,R0,R2
?CMP R0,#256<<16
@SUBGE R0,R0,#256<<16
A
BSUBS R4,R4,#1
CBGT x_loop
D
E
F ;add on y sprite co-ords
GADD R1,R1,R3
HCMP R1,#256<<16
ISUBGE R1,R1,#256<<16
JADD R3,R3,#1<<11
K:
LCMP R12,R11
MBLT y_loop
NMOV PC,R14
O .back_fill EQUD &CBCBCBCB
P .back_fill2 EQUD &67676767
Q.half EQUD 320*128
R.full EQUD 320*256
S.s1 EQUD 148:EQUD -1
T.s2 EQUD 0:EQUD 0
U!.spr EQUD �first_sprite(spr%)
V.spry EQUD 0
W.scr_addr EQUD scr%
X.from_screen
Y
ADR R0,s1
Z
ADR R1,s2
[ SWI &31
\LDR R12,s2
]LDR R11,scr_addr
^LDR R10,full
_ADD R10,R10,R12
`.from_screen_loop
aLDMIA R12!,{R0-R9}
bSTMIA R11!,{R0-R9}
cCMP R12,R10
dBLT from_screen_loop
eMOV PC,R14
f.to_screen
g
ADR R0,s1
h
ADR R1,s2
i SWI &31
jLDR R12,s2
kLDR R11,scr_addr
lLDR R10,full
mADD R10,R10,R12
n.to_screen_loop
oLDMIA R11!,{R0-R9}
pSTMIA R12!,{R0-R9}
qCMP R12,R10
rBLT to_screen_loop
sMOV PC,R14
t]
u
� pass
v�
w:
xݤfirst_sprite(a)
yfs% = a + a!8
z=fs% + fs%!36
{:
|��create_backdrop
}� y%=1024 � 512 � -4
~c% = (1024-y%)/2
�g(c%,128+c%/2,255)
�� 0,y%,1279,y%
�� y%
�� y%=512 � 0 � -4
�
c% = y%/4
��g(c%,255,c%)
�� 0,y%,1279,y%
�� y%
��g(255,255,0)
�ȏȐ 1150,950,50
�� from_screen
��
�:
���g(r%,g%,b%)
�=ș "ColourTrans_SetGCOL",(r%<<8)+(g%<<16)+(b%<<24),,,&100
��
� 00000000 0d 00 01 1d 66 24 3d 22 3c 33 64 43 6c 6f 75 64 |....f$="<3dCloud|
00000010 73 24 44 69 72 3e 2e 43 6c 6f 75 64 22 0d 00 02 |s$Dir>.Cloud"...|
00000020 08 eb 20 31 35 0d 00 03 0a eb 20 31 33 3a 87 0d |.. 15..... 13:..|
00000030 00 04 08 f2 61 73 73 0d 00 05 14 f2 63 72 65 61 |....ass.....crea|
00000040 74 65 5f 62 61 63 6b 64 72 6f 70 0d 00 06 08 53 |te_backdrop....S|
00000050 31 3d 31 0d 00 07 08 53 32 3d 32 0d 00 08 05 f5 |1=1....S2=2.....|
00000060 0d 00 09 28 e3 20 21 73 70 72 79 20 3d 20 28 32 |...(. !spry = (2|
00000070 35 36 3c 3c 31 36 29 2d 31 20 b8 20 30 20 88 20 |56<<16)-1 . 0 . |
00000080 2d 28 31 3c 3c 31 37 29 0d 00 0a 27 c8 96 3a c8 |-(1<<17)...'..:.|
00000090 99 20 36 2c 31 31 32 2c 53 31 3a c8 99 20 36 2c |. 6,112,S1:.. 6,|
000000a0 31 31 33 2c 53 32 3a c8 94 20 53 31 2c 53 32 0d |113,S2:.. S1,S2.|
000000b0 00 0b 0f d6 20 74 6f 5f 73 63 72 65 65 6e 0d 00 |.... to_screen..|
000000c0 0c 11 d6 20 70 6c 6f 74 5f 63 6c 6f 75 64 73 0d |... plot_clouds.|
000000d0 00 0d 0b ed 20 21 73 70 72 79 0d 00 0e 07 fd 20 |.... !spry..... |
000000e0 a3 0d 00 0f 05 e0 0d 00 10 05 3a 0d 00 11 09 dd |..........:.....|
000000f0 f2 61 73 73 0d 00 12 2e de 20 63 6f 64 65 25 20 |.ass..... code% |
00000100 31 30 32 34 2c 4c 25 20 2d 31 2c 73 70 72 25 20 |1024,L% -1,spr% |
00000110 36 36 30 30 30 2c 73 63 72 25 20 33 32 30 2a 32 |66000,scr% 320*2|
00000120 35 36 0d 00 13 11 21 73 70 72 25 20 3d 20 36 36 |56....!spr% = 66|
00000130 30 30 30 0d 00 14 1e ff 22 4c 6f 61 64 20 22 2b |000....."Load "+|
00000140 66 24 2b 22 20 22 2b c3 7e 28 73 70 72 25 2b 34 |f$+" "+.~(spr%+4|
00000150 29 0d 00 15 14 e3 20 70 61 73 73 3d 30 20 b8 20 |)..... pass=0 . |
00000160 32 20 88 20 32 0d 00 16 0c 50 25 3d 63 6f 64 65 |2 . 2....P%=code|
00000170 25 0d 00 17 0d 5b 4f 50 54 20 70 61 73 73 0d 00 |%....[OPT pass..|
00000180 18 10 2e 70 6c 6f 74 5f 63 6c 6f 75 64 73 0d 00 |...plot_clouds..|
00000190 19 0d 41 44 52 20 52 30 2c 73 31 0d 00 1a 0d 41 |..ADR R0,s1....A|
000001a0 44 52 20 52 31 2c 73 32 0d 00 1b 0b 53 57 49 20 |DR R1,s2....SWI |
000001b0 26 33 31 0d 00 1c 36 4c 44 52 20 52 31 32 2c 73 |&31...6LDR R12,s|
000001c0 32 20 20 20 20 20 3b 52 31 32 20 3d 20 77 72 69 |2 ;R12 = wri|
000001d0 74 65 20 62 79 74 65 20 74 6f 20 73 63 72 65 65 |te byte to scree|
000001e0 6e 20 61 64 64 72 65 73 73 0d 00 1d 26 4c 44 52 |n address...&LDR|
000001f0 20 52 31 31 2c 68 61 6c 66 20 20 20 3b 52 31 31 | R11,half ;R11|
00000200 20 3d 20 73 74 6f 70 20 61 64 64 72 65 73 73 0d | = stop address.|
00000210 00 1e 13 41 44 44 20 52 31 31 2c 52 31 31 2c 52 |...ADD R11,R11,R|
00000220 31 32 0d 00 1f 16 53 55 42 20 52 31 31 2c 52 31 |12....SUB R11,R1|
00000230 31 2c 23 33 32 30 2a 34 0d 00 20 28 4c 44 52 20 |1,#320*4.. (LDR |
00000240 52 31 30 2c 73 70 72 20 20 20 20 3b 52 31 30 20 |R10,spr ;R10 |
00000250 3d 20 73 70 72 69 74 65 20 61 64 64 72 65 73 73 |= sprite address|
00000260 0d 00 21 04 0d 00 22 21 4d 4f 56 20 52 30 2c 23 |..!..."!MOV R0,#|
00000270 30 20 20 20 20 20 20 3b 52 30 20 3d 20 73 70 72 |0 ;R0 = spr|
00000280 78 3c 3c 31 36 0d 00 23 21 4c 44 52 20 52 31 2c |x<<16..#!LDR R1,|
00000290 73 70 72 79 20 20 20 20 3b 52 31 20 3d 20 73 70 |spry ;R1 = sp|
000002a0 72 79 3c 3c 31 36 0d 00 24 2c 4d 4f 56 20 52 32 |ry<<16..$,MOV R2|
000002b0 2c 23 31 3c 3c 31 33 20 20 20 20 20 20 3b 52 32 |,#1<<13 ;R2|
000002c0 20 3d 20 73 70 72 78 20 73 74 65 70 20 3c 3c 20 | = sprx step << |
000002d0 31 36 0d 00 25 2c 4d 4f 56 20 52 33 2c 23 31 3c |16..%,MOV R3,#1<|
000002e0 3c 31 37 20 20 20 20 20 20 3b 52 33 20 3d 20 73 |<17 ;R3 = s|
000002f0 70 72 79 20 73 74 65 70 20 3c 3c 20 31 36 0d 00 |pry step << 16..|
00000300 26 0d 4d 4f 56 20 52 35 2c 23 30 0d 00 27 05 3b |&.MOV R5,#0..'.;|
00000310 0d 00 28 0b 2e 79 5f 6c 6f 6f 70 0d 00 29 0f 4d |..(..y_loop..).M|
00000320 4f 56 20 52 34 2c 23 33 32 30 0d 00 2a 04 0d 00 |OV R4,#320..*...|
00000330 2b 04 0d 00 2c 14 53 55 42 20 52 35 2c 52 35 2c |+...,.SUB R5,R5,|
00000340 23 31 3c 3c 31 37 0d 00 2d 0d 43 4d 50 20 52 35 |#1<<17..-.CMP R5|
00000350 2c 23 30 0d 00 2e 18 41 44 44 4c 54 20 52 35 2c |,#0....ADDLT R5,|
00000360 52 35 2c 23 32 35 36 3c 3c 31 36 0d 00 2f 04 0d |R5,#256<<16../..|
00000370 00 30 0d 4d 4f 56 20 52 30 2c 52 35 0d 00 31 14 |.0.MOV R0,R5..1.|
00000380 41 44 44 20 52 32 2c 52 32 2c 23 31 3c 3c 31 30 |ADD R2,R2,#1<<10|
00000390 0d 00 32 04 0d 00 33 20 3b 52 34 20 3d 20 78 20 |..2...3 ;R4 = x |
000003a0 70 69 78 65 6c 73 20 74 6f 20 67 6f 20 63 6f 75 |pixels to go cou|
000003b0 6e 74 65 72 0d 00 34 0b 2e 78 5f 6c 6f 6f 70 0d |nter..4..x_loop.|
000003c0 00 35 04 0d 00 36 15 4d 4f 56 20 52 39 2c 52 31 |.5...6.MOV R9,R1|
000003d0 2c 4c 53 52 20 23 31 36 0d 00 37 14 4d 4f 56 20 |,LSR #16..7.MOV |
000003e0 52 39 2c 52 39 2c 4c 53 4c 20 23 38 0d 00 38 18 |R9,R9,LSL #8..8.|
000003f0 41 44 44 20 52 39 2c 52 39 2c 52 30 2c 4c 53 52 |ADD R9,R9,R0,LSR|
00000400 20 23 31 36 0d 00 39 14 4c 44 52 42 20 52 39 2c | #16..9.LDRB R9,|
00000410 5b 52 39 2c 52 31 30 5d 0d 00 3a 0f 43 4d 50 20 |[R9,R10]..:.CMP |
00000420 52 39 2c 23 26 43 42 0d 00 3b 16 53 54 52 4e 45 |R9,#&CB..;.STRNE|
00000430 42 20 52 39 2c 5b 52 31 32 5d 2c 23 31 0d 00 3c |B R9,[R12],#1..<|
00000440 14 41 44 44 45 51 20 52 31 32 2c 52 31 32 2c 23 |.ADDEQ R12,R12,#|
00000450 31 0d 00 3d 04 0d 00 3e 10 41 44 44 20 52 30 2c |1..=...>.ADD R0,|
00000460 52 30 2c 52 32 0d 00 3f 13 43 4d 50 20 52 30 2c |R0,R2..?.CMP R0,|
00000470 23 32 35 36 3c 3c 31 36 0d 00 40 18 53 55 42 47 |#256<<16..@.SUBG|
00000480 45 20 52 30 2c 52 30 2c 23 32 35 36 3c 3c 31 36 |E R0,R0,#256<<16|
00000490 0d 00 41 04 0d 00 42 11 53 55 42 53 20 52 34 2c |..A...B.SUBS R4,|
000004a0 52 34 2c 23 31 0d 00 43 0e 42 47 54 20 78 5f 6c |R4,#1..C.BGT x_l|
000004b0 6f 6f 70 0d 00 44 04 0d 00 45 04 0d 00 46 1c 3b |oop..D...E...F.;|
000004c0 61 64 64 20 6f 6e 20 79 20 73 70 72 69 74 65 20 |add on y sprite |
000004d0 63 6f 2d 6f 72 64 73 0d 00 47 10 41 44 44 20 52 |co-ords..G.ADD R|
000004e0 31 2c 52 31 2c 52 33 0d 00 48 13 43 4d 50 20 52 |1,R1,R3..H.CMP R|
000004f0 31 2c 23 32 35 36 3c 3c 31 36 0d 00 49 18 53 55 |1,#256<<16..I.SU|
00000500 42 47 45 20 52 31 2c 52 31 2c 23 32 35 36 3c 3c |BGE R1,R1,#256<<|
00000510 31 36 0d 00 4a 14 41 44 44 20 52 33 2c 52 33 2c |16..J.ADD R3,R3,|
00000520 23 31 3c 3c 31 31 0d 00 4b 05 3a 0d 00 4c 0f 43 |#1<<11..K.:..L.C|
00000530 4d 50 20 52 31 32 2c 52 31 31 0d 00 4d 0e 42 4c |MP R12,R11..M.BL|
00000540 54 20 79 5f 6c 6f 6f 70 0d 00 4e 0e 4d 4f 56 20 |T y_loop..N.MOV |
00000550 50 43 2c 52 31 34 0d 00 4f 1d 2e 62 61 63 6b 5f |PC,R14..O..back_|
00000560 66 69 6c 6c 20 45 51 55 44 20 26 43 42 43 42 43 |fill EQUD &CBCBC|
00000570 42 43 42 0d 00 50 1e 2e 62 61 63 6b 5f 66 69 6c |BCB..P..back_fil|
00000580 6c 32 20 45 51 55 44 20 26 36 37 36 37 36 37 36 |l2 EQUD &6767676|
00000590 37 0d 00 51 16 2e 68 61 6c 66 20 45 51 55 44 20 |7..Q..half EQUD |
000005a0 33 32 30 2a 31 32 38 0d 00 52 16 2e 66 75 6c 6c |320*128..R..full|
000005b0 20 45 51 55 44 20 33 32 30 2a 32 35 36 0d 00 53 | EQUD 320*256..S|
000005c0 18 2e 73 31 20 45 51 55 44 20 31 34 38 3a 45 51 |..s1 EQUD 148:EQ|
000005d0 55 44 20 2d 31 0d 00 54 15 2e 73 32 20 45 51 55 |UD -1..T..s2 EQU|
000005e0 44 20 30 3a 45 51 55 44 20 30 0d 00 55 21 2e 73 |D 0:EQUD 0..U!.s|
000005f0 70 72 20 45 51 55 44 20 a4 66 69 72 73 74 5f 73 |pr EQUD .first_s|
00000600 70 72 69 74 65 28 73 70 72 25 29 0d 00 56 10 2e |prite(spr%)..V..|
00000610 73 70 72 79 20 45 51 55 44 20 30 0d 00 57 17 2e |spry EQUD 0..W..|
00000620 73 63 72 5f 61 64 64 72 20 45 51 55 44 20 73 63 |scr_addr EQUD sc|
00000630 72 25 0d 00 58 10 2e 66 72 6f 6d 5f 73 63 72 65 |r%..X..from_scre|
00000640 65 6e 0d 00 59 0d 41 44 52 20 52 30 2c 73 31 0d |en..Y.ADR R0,s1.|
00000650 00 5a 0d 41 44 52 20 52 31 2c 73 32 0d 00 5b 0b |.Z.ADR R1,s2..[.|
00000660 53 57 49 20 26 33 31 0d 00 5c 0e 4c 44 52 20 52 |SWI &31..\.LDR R|
00000670 31 32 2c 73 32 0d 00 5d 14 4c 44 52 20 52 31 31 |12,s2..].LDR R11|
00000680 2c 73 63 72 5f 61 64 64 72 0d 00 5e 10 4c 44 52 |,scr_addr..^.LDR|
00000690 20 52 31 30 2c 66 75 6c 6c 0d 00 5f 13 41 44 44 | R10,full.._.ADD|
000006a0 20 52 31 30 2c 52 31 30 2c 52 31 32 0d 00 60 15 | R10,R10,R12..`.|
000006b0 2e 66 72 6f 6d 5f 73 63 72 65 65 6e 5f 6c 6f 6f |.from_screen_loo|
000006c0 70 0d 00 61 16 4c 44 4d 49 41 20 52 31 32 21 2c |p..a.LDMIA R12!,|
000006d0 7b 52 30 2d 52 39 7d 0d 00 62 16 53 54 4d 49 41 |{R0-R9}..b.STMIA|
000006e0 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0d 00 63 | R11!,{R0-R9}..c|
000006f0 0f 43 4d 50 20 52 31 32 2c 52 31 30 0d 00 64 18 |.CMP R12,R10..d.|
00000700 42 4c 54 20 66 72 6f 6d 5f 73 63 72 65 65 6e 5f |BLT from_screen_|
00000710 6c 6f 6f 70 0d 00 65 0e 4d 4f 56 20 50 43 2c 52 |loop..e.MOV PC,R|
00000720 31 34 0d 00 66 0e 2e 74 6f 5f 73 63 72 65 65 6e |14..f..to_screen|
00000730 0d 00 67 0d 41 44 52 20 52 30 2c 73 31 0d 00 68 |..g.ADR R0,s1..h|
00000740 0d 41 44 52 20 52 31 2c 73 32 0d 00 69 0b 53 57 |.ADR R1,s2..i.SW|
00000750 49 20 26 33 31 0d 00 6a 0e 4c 44 52 20 52 31 32 |I &31..j.LDR R12|
00000760 2c 73 32 0d 00 6b 14 4c 44 52 20 52 31 31 2c 73 |,s2..k.LDR R11,s|
00000770 63 72 5f 61 64 64 72 0d 00 6c 10 4c 44 52 20 52 |cr_addr..l.LDR R|
00000780 31 30 2c 66 75 6c 6c 0d 00 6d 13 41 44 44 20 52 |10,full..m.ADD R|
00000790 31 30 2c 52 31 30 2c 52 31 32 0d 00 6e 13 2e 74 |10,R10,R12..n..t|
000007a0 6f 5f 73 63 72 65 65 6e 5f 6c 6f 6f 70 0d 00 6f |o_screen_loop..o|
000007b0 16 4c 44 4d 49 41 20 52 31 31 21 2c 7b 52 30 2d |.LDMIA R11!,{R0-|
000007c0 52 39 7d 0d 00 70 16 53 54 4d 49 41 20 52 31 32 |R9}..p.STMIA R12|
000007d0 21 2c 7b 52 30 2d 52 39 7d 0d 00 71 0f 43 4d 50 |!,{R0-R9}..q.CMP|
000007e0 20 52 31 32 2c 52 31 30 0d 00 72 16 42 4c 54 20 | R12,R10..r.BLT |
000007f0 74 6f 5f 73 63 72 65 65 6e 5f 6c 6f 6f 70 0d 00 |to_screen_loop..|
00000800 73 0e 4d 4f 56 20 50 43 2c 52 31 34 0d 00 74 05 |s.MOV PC,R14..t.|
00000810 5d 0d 00 75 0a ed 20 70 61 73 73 0d 00 76 05 e1 |]..u.. pass..v..|
00000820 0d 00 77 05 3a 0d 00 78 15 dd a4 66 69 72 73 74 |..w.:..x...first|
00000830 5f 73 70 72 69 74 65 28 61 29 0d 00 79 11 66 73 |_sprite(a)..y.fs|
00000840 25 20 3d 20 61 20 2b 20 61 21 38 0d 00 7a 11 3d |% = a + a!8..z.=|
00000850 66 73 25 20 2b 20 66 73 25 21 33 36 0d 00 7b 05 |fs% + fs%!36..{.|
00000860 3a 0d 00 7c 15 dd f2 63 72 65 61 74 65 5f 62 61 |:..|...create_ba|
00000870 63 6b 64 72 6f 70 0d 00 7d 18 e3 20 79 25 3d 31 |ckdrop..}.. y%=1|
00000880 30 32 34 20 b8 20 35 31 32 20 88 20 2d 34 0d 00 |024 . 512 . -4..|
00000890 7e 14 63 25 20 3d 20 28 31 30 32 34 2d 79 25 29 |~.c% = (1024-y%)|
000008a0 2f 32 0d 00 7f 17 f2 67 28 63 25 2c 31 32 38 2b |/2.....g(c%,128+|
000008b0 63 25 2f 32 2c 32 35 35 29 0d 00 80 12 86 20 30 |c%/2,255)..... 0|
000008c0 2c 79 25 2c 31 32 37 39 2c 79 25 0d 00 81 08 ed |,y%,1279,y%.....|
000008d0 20 79 25 0d 00 82 15 e3 20 79 25 3d 35 31 32 20 | y%..... y%=512 |
000008e0 b8 20 30 20 88 20 2d 34 0d 00 83 0d 63 25 20 3d |. 0 . -4....c% =|
000008f0 20 79 25 2f 34 0d 00 84 11 f2 67 28 63 25 2c 32 | y%/4.....g(c%,2|
00000900 35 35 2c 63 25 29 0d 00 85 12 86 20 30 2c 79 25 |55,c%)..... 0,y%|
00000910 2c 31 32 37 39 2c 79 25 0d 00 86 08 ed 20 79 25 |,1279,y%..... y%|
00000920 0d 00 87 11 f2 67 28 32 35 35 2c 32 35 35 2c 30 |.....g(255,255,0|
00000930 29 0d 00 88 14 c8 8f c8 90 20 31 31 35 30 2c 39 |)........ 1150,9|
00000940 35 30 2c 35 30 0d 00 89 11 d6 20 66 72 6f 6d 5f |50,50..... from_|
00000950 73 63 72 65 65 6e 0d 00 8a 05 e1 0d 00 8b 05 3a |screen.........:|
00000960 0d 00 8c 11 dd f2 67 28 72 25 2c 67 25 2c 62 25 |......g(r%,g%,b%|
00000970 29 0d 00 8d 3d c8 99 20 22 43 6f 6c 6f 75 72 54 |)...=.. "ColourT|
00000980 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 28 72 |rans_SetGCOL",(r|
00000990 25 3c 3c 38 29 2b 28 67 25 3c 3c 31 36 29 2b 28 |%<<8)+(g%<<16)+(|
000009a0 62 25 3c 3c 32 34 29 2c 2c 2c 26 31 30 30 0d 00 |b%<<24),,,&100..|
000009b0 8e 05 e1 0d ff |.....|
000009b5 
.