Home » Archimedes archive » Acorn User » AU 1998-05 A.adf » Regulars » StarInfo/Boham/Galaxy9
StarInfo/Boham/Galaxy9
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 1998-05 A.adf » Regulars |
| Filename: | StarInfo/Boham/Galaxy9 |
| Read OK: | ✔ |
| File size: | 07B6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MODE 9:OFF
2FOR c=0 TO 15
3COLOUR c,c*16,c*16,c*16
4NEXT
5PROCass
6S1=1:S2=2
7REPEAT
8CALL code%
9UNTIL FALSE
10END
11:
12DEFPROCass
13stars% = 256
14DIM star_data% stars%*4*3
15FOR p%=star_data% TO star_data%+stars%*4*3-1 STEP 12
16p%!0 = RND(360)<<2 : REM angle
17p%!4 = 10<<16 : REM radius
18p%!8 = RND(5)+5 :REM speed
19NEXT p%
20DIM sin% 360*4,cos% 360*4
21FOR p%=0 TO 359
22sin%!(p%*4) = SINRAD(p%) * (1<<16)
23cos%!(p%*4) = COSRAD(p%) * (1<<16)
24NEXT p%
25DIM code% 1024,L% -1
26FOR pass=8 TO 10 STEP 2
27P%=code%
28[OPT pass
29ADR R0,scr1
30ADR R1,scr_base
31SWI &31
32LDR R12,scr_base
33
34LDR R10,star_table
35LDR R11,max_stars
36LDR R8,sin_table
37LDR R9,cos_table
38
39.big_loop
40LDMIA R10,{r0,r1,r2}
41
42MOV R7,R1,LSR #16
43;a,r,s
44
45LDR R3,[R8,R0]
46MUL R3,R7,R3
47CMP R3,#0
48MOVLT R5,#1
49RSBLT R3,R3,#0
50MOVGE R5,#0
51MOV R3,R3,LSR #16
52CMP R5,#1
53RSBEQ R3,R3,#0
54ADD R3,R3,#80
55
56LDR R4,[R9,R0]
57MUL R4,R7,R4
58CMP R4,#0
59MOVLT R5,#1
60RSBLT R4,R4,#0
61MOVGE R5,#0
62MOV R4,R4,LSR #16
63CMP R5,#1
64RSBEQ R4,R4,#0
65ADD R4,R4,#128
66
67
68CMP R3,#0:MOVLT R1,#6<<16:BLT exit
69CMP R3,#160:MOVGE R1,#6<<16:BGE exit
70CMP R4,#0:MOVLT R1,#6<<16:BLT exit
71CMP R4,#256:MOVGE R1,#6<<16:BGE exit
72
73
74MOV R5,#160
75MLA R5,R4,R5,R3
76LDRB R6,[R12,R5]
77ADD R6,R6,#1
78STRB R6,[R12,R5]
79
80MUL R5,R1,R2
81ADD R1,R1,R5,LSR #11
82ADD R0,R0,#4
83CMP R0,#360*4
84MOVGE R0,#0
85
86.exit
87STMIA R10!,{r0,r1,r2}
88SUBS R11,R11,#1
89BGT big_loop
90
91LDR R0,frame
92ADD R0,R0,#1
93CMP R0,#12
94MOVEQ R0,#0
95STR R0,frame
96MOVNE PC,R14
97
98.wipe_screen
99MOV R11,#160*256
100ADD R11,R11,R12
101.wipe_loop
102LDRB R0,[R12]
103CMP R0,#0
104SUBGT R0,R0,#1
105STRGTB R0,[R12]
106ADD R12,R12,#1
107CMP R12,R11
108BLT wipe_loop
109
110
111MOV PC,R14
112.frame EQUD 0
113.scr1 EQUD 148:EQUD -1
114.scr_base EQUD 0
115.sin_table EQUD sin%
116.cos_table EQUD cos%
117.star_table EQUD star_data%
118.max_stars EQUD stars%
119]
120NEXT pass
121ENDPROC
� 9:�
� c=0 � 15
� c,c*16,c*16,c*16
�
�ass
S1=1:S2=2
�
� code%
� �
�
:
��ass
stars% = 256
� star_data% stars%*4*3
2� p%=star_data% � star_data%+stars%*4*3-1 � 12
p%!0 = �(360)<<2 : � angle
p%!4 = 10<<16 : � radius
p%!8 = �(5)+5 :� speed
� p%
� sin% 360*4,cos% 360*4
� p%=0 � 359
"sin%!(p%*4) = ��(p%) * (1<<16)
"cos%!(p%*4) = ��(p%) * (1<<16)
� p%
� code% 1024,L% -1
� pass=8 � 10 � 2
P%=code%
[OPT pass
ADR R0,scr1
ADR R1,scr_base
SWI &31
LDR R12,scr_base
!
"LDR R10,star_table
#LDR R11,max_stars
$LDR R8,sin_table
%LDR R9,cos_table
&
'
.big_loop
(LDMIA R10,{r0,r1,r2}
)
*MOV R7,R1,LSR #16
+
;a,r,s
,
-LDR R3,[R8,R0]
.MUL R3,R7,R3
/
CMP R3,#0
0MOVLT R5,#1
1RSBLT R3,R3,#0
2MOVGE R5,#0
3MOV R3,R3,LSR #16
4
CMP R5,#1
5RSBEQ R3,R3,#0
6ADD R3,R3,#80
7
8LDR R4,[R9,R0]
9MUL R4,R7,R4
:
CMP R4,#0
;MOVLT R5,#1
<RSBLT R4,R4,#0
=MOVGE R5,#0
>MOV R4,R4,LSR #16
?
CMP R5,#1
@RSBEQ R4,R4,#0
AADD R4,R4,#128
B
C
D&CMP R3,#0:MOVLT R1,#6<<16:BLT exit
E(CMP R3,#160:MOVGE R1,#6<<16:BGE exit
F&CMP R4,#0:MOVLT R1,#6<<16:BLT exit
G(CMP R4,#256:MOVGE R1,#6<<16:BGE exit
H
I
JMOV R5,#160
KMLA R5,R4,R5,R3
LLDRB R6,[R12,R5]
MADD R6,R6,#1
NSTRB R6,[R12,R5]
O
PMUL R5,R1,R2
QADD R1,R1,R5,LSR #11
RADD R0,R0,#4
SCMP R0,#360*4
TMOVGE R0,#0
U
V .exit
WSTMIA R10!,{r0,r1,r2}
XSUBS R11,R11,#1
YBGT big_loop
Z
[LDR R0,frame
\ADD R0,R0,#1
]CMP R0,#12
^ �Q R0,#0
_STR R0,frame
`MOVNE PC,R14
a
b.wipe_screen
cMOV R11,#160*256
dADD R11,R11,R12
e.wipe_loop
fLDRB R0,[R12]
g
CMP R0,#0
hSUBGT R0,R0,#1
iSTRGTB R0,[R12]
jADD R12,R12,#1
kCMP R12,R11
lBLT wipe_loop
m
n
oMOV PC,R14
p.frame EQUD 0
q.scr1 EQUD 148:EQUD -1
r.scr_base EQUD 0
s.sin_table EQUD sin%
t.cos_table EQUD cos%
u .star_table EQUD star_data%
v.max_stars EQUD stars%
w]
x
� pass
y�
� 00000000 0d 00 01 09 eb 20 39 3a 87 0d 00 02 0e e3 20 63 |..... 9:...... c|
00000010 3d 30 20 b8 20 31 35 0d 00 03 16 fb 20 63 2c 63 |=0 . 15..... c,c|
00000020 2a 31 36 2c 63 2a 31 36 2c 63 2a 31 36 0d 00 04 |*16,c*16,c*16...|
00000030 05 ed 0d 00 05 08 f2 61 73 73 0d 00 06 0d 53 31 |.......ass....S1|
00000040 3d 31 3a 53 32 3d 32 0d 00 07 05 f5 0d 00 08 0b |=1:S2=2.........|
00000050 d6 20 63 6f 64 65 25 0d 00 09 07 fd 20 a3 0d 00 |. code%..... ...|
00000060 0a 05 e0 0d 00 0b 05 3a 0d 00 0c 09 dd f2 61 73 |.......:......as|
00000070 73 0d 00 0d 10 73 74 61 72 73 25 20 3d 20 32 35 |s....stars% = 25|
00000080 36 0d 00 0e 1b de 20 73 74 61 72 5f 64 61 74 61 |6..... star_data|
00000090 25 20 73 74 61 72 73 25 2a 34 2a 33 0d 00 0f 32 |% stars%*4*3...2|
000000a0 e3 20 70 25 3d 73 74 61 72 5f 64 61 74 61 25 20 |. p%=star_data% |
000000b0 b8 20 73 74 61 72 5f 64 61 74 61 25 2b 73 74 61 |. star_data%+sta|
000000c0 72 73 25 2a 34 2a 33 2d 31 20 88 20 31 32 0d 00 |rs%*4*3-1 . 12..|
000000d0 10 1e 70 25 21 30 20 3d 20 b3 28 33 36 30 29 3c |..p%!0 = .(360)<|
000000e0 3c 32 20 3a 20 f4 20 61 6e 67 6c 65 0d 00 11 1c |<2 : . angle....|
000000f0 70 25 21 34 20 3d 20 31 30 3c 3c 31 36 20 3a 20 |p%!4 = 10<<16 : |
00000100 f4 20 72 61 64 69 75 73 0d 00 12 1b 70 25 21 38 |. radius....p%!8|
00000110 20 3d 20 b3 28 35 29 2b 35 20 20 3a f4 20 73 70 | = .(5)+5 :. sp|
00000120 65 65 64 0d 00 13 08 ed 20 70 25 0d 00 14 1b de |eed..... p%.....|
00000130 20 73 69 6e 25 20 33 36 30 2a 34 2c 63 6f 73 25 | sin% 360*4,cos%|
00000140 20 33 36 30 2a 34 0d 00 15 10 e3 20 70 25 3d 30 | 360*4..... p%=0|
00000150 20 b8 20 33 35 39 0d 00 16 22 73 69 6e 25 21 28 | . 359..."sin%!(|
00000160 70 25 2a 34 29 20 3d 20 b5 b2 28 70 25 29 20 2a |p%*4) = ..(p%) *|
00000170 20 28 31 3c 3c 31 36 29 0d 00 17 22 63 6f 73 25 | (1<<16)..."cos%|
00000180 21 28 70 25 2a 34 29 20 3d 20 9b b2 28 70 25 29 |!(p%*4) = ..(p%)|
00000190 20 2a 20 28 31 3c 3c 31 36 29 0d 00 18 08 ed 20 | * (1<<16)..... |
000001a0 70 25 0d 00 19 16 de 20 63 6f 64 65 25 20 31 30 |p%..... code% 10|
000001b0 32 34 2c 4c 25 20 2d 31 0d 00 1a 15 e3 20 70 61 |24,L% -1..... pa|
000001c0 73 73 3d 38 20 b8 20 31 30 20 88 20 32 0d 00 1b |ss=8 . 10 . 2...|
000001d0 0c 50 25 3d 63 6f 64 65 25 0d 00 1c 0d 5b 4f 50 |.P%=code%....[OP|
000001e0 54 20 70 61 73 73 0d 00 1d 0f 41 44 52 20 52 30 |T pass....ADR R0|
000001f0 2c 73 63 72 31 0d 00 1e 13 41 44 52 20 52 31 2c |,scr1....ADR R1,|
00000200 73 63 72 5f 62 61 73 65 0d 00 1f 0b 53 57 49 20 |scr_base....SWI |
00000210 26 33 31 0d 00 20 14 4c 44 52 20 52 31 32 2c 73 |&31.. .LDR R12,s|
00000220 63 72 5f 62 61 73 65 0d 00 21 04 0d 00 22 16 4c |cr_base..!...".L|
00000230 44 52 20 52 31 30 2c 73 74 61 72 5f 74 61 62 6c |DR R10,star_tabl|
00000240 65 0d 00 23 15 4c 44 52 20 52 31 31 2c 6d 61 78 |e..#.LDR R11,max|
00000250 5f 73 74 61 72 73 0d 00 24 14 4c 44 52 20 52 38 |_stars..$.LDR R8|
00000260 2c 73 69 6e 5f 74 61 62 6c 65 0d 00 25 14 4c 44 |,sin_table..%.LD|
00000270 52 20 52 39 2c 63 6f 73 5f 74 61 62 6c 65 0d 00 |R R9,cos_table..|
00000280 26 04 0d 00 27 0d 2e 62 69 67 5f 6c 6f 6f 70 0d |&...'..big_loop.|
00000290 00 28 18 4c 44 4d 49 41 20 52 31 30 2c 7b 72 30 |.(.LDMIA R10,{r0|
000002a0 2c 72 31 2c 72 32 7d 0d 00 29 04 0d 00 2a 15 4d |,r1,r2}..)...*.M|
000002b0 4f 56 20 52 37 2c 52 31 2c 4c 53 52 20 23 31 36 |OV R7,R1,LSR #16|
000002c0 0d 00 2b 0a 3b 61 2c 72 2c 73 0d 00 2c 04 0d 00 |..+.;a,r,s..,...|
000002d0 2d 12 4c 44 52 20 52 33 2c 5b 52 38 2c 52 30 5d |-.LDR R3,[R8,R0]|
000002e0 0d 00 2e 10 4d 55 4c 20 52 33 2c 52 37 2c 52 33 |....MUL R3,R7,R3|
000002f0 0d 00 2f 0d 43 4d 50 20 52 33 2c 23 30 0d 00 30 |../.CMP R3,#0..0|
00000300 0f 4d 4f 56 4c 54 20 52 35 2c 23 31 0d 00 31 12 |.MOVLT R5,#1..1.|
00000310 52 53 42 4c 54 20 52 33 2c 52 33 2c 23 30 0d 00 |RSBLT R3,R3,#0..|
00000320 32 0f 4d 4f 56 47 45 20 52 35 2c 23 30 0d 00 33 |2.MOVGE R5,#0..3|
00000330 15 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 20 23 |.MOV R3,R3,LSR #|
00000340 31 36 0d 00 34 0d 43 4d 50 20 52 35 2c 23 31 0d |16..4.CMP R5,#1.|
00000350 00 35 12 52 53 42 45 51 20 52 33 2c 52 33 2c 23 |.5.RSBEQ R3,R3,#|
00000360 30 0d 00 36 11 41 44 44 20 52 33 2c 52 33 2c 23 |0..6.ADD R3,R3,#|
00000370 38 30 0d 00 37 04 0d 00 38 12 4c 44 52 20 52 34 |80..7...8.LDR R4|
00000380 2c 5b 52 39 2c 52 30 5d 0d 00 39 10 4d 55 4c 20 |,[R9,R0]..9.MUL |
00000390 52 34 2c 52 37 2c 52 34 0d 00 3a 0d 43 4d 50 20 |R4,R7,R4..:.CMP |
000003a0 52 34 2c 23 30 0d 00 3b 0f 4d 4f 56 4c 54 20 52 |R4,#0..;.MOVLT R|
000003b0 35 2c 23 31 0d 00 3c 12 52 53 42 4c 54 20 52 34 |5,#1..<.RSBLT R4|
000003c0 2c 52 34 2c 23 30 0d 00 3d 0f 4d 4f 56 47 45 20 |,R4,#0..=.MOVGE |
000003d0 52 35 2c 23 30 0d 00 3e 15 4d 4f 56 20 52 34 2c |R5,#0..>.MOV R4,|
000003e0 52 34 2c 4c 53 52 20 23 31 36 0d 00 3f 0d 43 4d |R4,LSR #16..?.CM|
000003f0 50 20 52 35 2c 23 31 0d 00 40 12 52 53 42 45 51 |P R5,#1..@.RSBEQ|
00000400 20 52 34 2c 52 34 2c 23 30 0d 00 41 12 41 44 44 | R4,R4,#0..A.ADD|
00000410 20 52 34 2c 52 34 2c 23 31 32 38 0d 00 42 04 0d | R4,R4,#128..B..|
00000420 00 43 04 0d 00 44 26 43 4d 50 20 52 33 2c 23 30 |.C...D&CMP R3,#0|
00000430 3a 4d 4f 56 4c 54 20 52 31 2c 23 36 3c 3c 31 36 |:MOVLT R1,#6<<16|
00000440 3a 42 4c 54 20 65 78 69 74 0d 00 45 28 43 4d 50 |:BLT exit..E(CMP|
00000450 20 52 33 2c 23 31 36 30 3a 4d 4f 56 47 45 20 52 | R3,#160:MOVGE R|
00000460 31 2c 23 36 3c 3c 31 36 3a 42 47 45 20 65 78 69 |1,#6<<16:BGE exi|
00000470 74 0d 00 46 26 43 4d 50 20 52 34 2c 23 30 3a 4d |t..F&CMP R4,#0:M|
00000480 4f 56 4c 54 20 52 31 2c 23 36 3c 3c 31 36 3a 42 |OVLT R1,#6<<16:B|
00000490 4c 54 20 65 78 69 74 0d 00 47 28 43 4d 50 20 52 |LT exit..G(CMP R|
000004a0 34 2c 23 32 35 36 3a 4d 4f 56 47 45 20 52 31 2c |4,#256:MOVGE R1,|
000004b0 23 36 3c 3c 31 36 3a 42 47 45 20 65 78 69 74 0d |#6<<16:BGE exit.|
000004c0 00 48 04 0d 00 49 04 0d 00 4a 0f 4d 4f 56 20 52 |.H...I...J.MOV R|
000004d0 35 2c 23 31 36 30 0d 00 4b 13 4d 4c 41 20 52 35 |5,#160..K.MLA R5|
000004e0 2c 52 34 2c 52 35 2c 52 33 0d 00 4c 14 4c 44 52 |,R4,R5,R3..L.LDR|
000004f0 42 20 52 36 2c 5b 52 31 32 2c 52 35 5d 0d 00 4d |B R6,[R12,R5]..M|
00000500 10 41 44 44 20 52 36 2c 52 36 2c 23 31 0d 00 4e |.ADD R6,R6,#1..N|
00000510 14 53 54 52 42 20 52 36 2c 5b 52 31 32 2c 52 35 |.STRB R6,[R12,R5|
00000520 5d 0d 00 4f 04 0d 00 50 10 4d 55 4c 20 52 35 2c |]..O...P.MUL R5,|
00000530 52 31 2c 52 32 0d 00 51 18 41 44 44 20 52 31 2c |R1,R2..Q.ADD R1,|
00000540 52 31 2c 52 35 2c 4c 53 52 20 23 31 31 0d 00 52 |R1,R5,LSR #11..R|
00000550 10 41 44 44 20 52 30 2c 52 30 2c 23 34 0d 00 53 |.ADD R0,R0,#4..S|
00000560 11 43 4d 50 20 52 30 2c 23 33 36 30 2a 34 0d 00 |.CMP R0,#360*4..|
00000570 54 0f 4d 4f 56 47 45 20 52 30 2c 23 30 0d 00 55 |T.MOVGE R0,#0..U|
00000580 04 0d 00 56 09 2e 65 78 69 74 0d 00 57 19 53 54 |...V..exit..W.ST|
00000590 4d 49 41 20 52 31 30 21 2c 7b 72 30 2c 72 31 2c |MIA R10!,{r0,r1,|
000005a0 72 32 7d 0d 00 58 13 53 55 42 53 20 52 31 31 2c |r2}..X.SUBS R11,|
000005b0 52 31 31 2c 23 31 0d 00 59 10 42 47 54 20 62 69 |R11,#1..Y.BGT bi|
000005c0 67 5f 6c 6f 6f 70 0d 00 5a 04 0d 00 5b 10 4c 44 |g_loop..Z...[.LD|
000005d0 52 20 52 30 2c 66 72 61 6d 65 0d 00 5c 10 41 44 |R R0,frame..\.AD|
000005e0 44 20 52 30 2c 52 30 2c 23 31 0d 00 5d 0e 43 4d |D R0,R0,#1..].CM|
000005f0 50 20 52 30 2c 23 31 32 0d 00 5e 0c ec 51 20 52 |P R0,#12..^..Q R|
00000600 30 2c 23 30 0d 00 5f 10 53 54 52 20 52 30 2c 66 |0,#0.._.STR R0,f|
00000610 72 61 6d 65 0d 00 60 10 4d 4f 56 4e 45 20 50 43 |rame..`.MOVNE PC|
00000620 2c 52 31 34 0d 00 61 04 0d 00 62 10 2e 77 69 70 |,R14..a...b..wip|
00000630 65 5f 73 63 72 65 65 6e 0d 00 63 14 4d 4f 56 20 |e_screen..c.MOV |
00000640 52 31 31 2c 23 31 36 30 2a 32 35 36 0d 00 64 13 |R11,#160*256..d.|
00000650 41 44 44 20 52 31 31 2c 52 31 31 2c 52 31 32 0d |ADD R11,R11,R12.|
00000660 00 65 0e 2e 77 69 70 65 5f 6c 6f 6f 70 0d 00 66 |.e..wipe_loop..f|
00000670 11 4c 44 52 42 20 52 30 2c 5b 52 31 32 5d 0d 00 |.LDRB R0,[R12]..|
00000680 67 0d 43 4d 50 20 52 30 2c 23 30 0d 00 68 12 53 |g.CMP R0,#0..h.S|
00000690 55 42 47 54 20 52 30 2c 52 30 2c 23 31 0d 00 69 |UBGT R0,R0,#1..i|
000006a0 13 53 54 52 47 54 42 20 52 30 2c 5b 52 31 32 5d |.STRGTB R0,[R12]|
000006b0 0d 00 6a 12 41 44 44 20 52 31 32 2c 52 31 32 2c |..j.ADD R12,R12,|
000006c0 23 31 0d 00 6b 0f 43 4d 50 20 52 31 32 2c 52 31 |#1..k.CMP R12,R1|
000006d0 31 0d 00 6c 11 42 4c 54 20 77 69 70 65 5f 6c 6f |1..l.BLT wipe_lo|
000006e0 6f 70 0d 00 6d 04 0d 00 6e 04 0d 00 6f 0e 4d 4f |op..m...n...o.MO|
000006f0 56 20 50 43 2c 52 31 34 0d 00 70 11 2e 66 72 61 |V PC,R14..p..fra|
00000700 6d 65 20 45 51 55 44 20 30 0d 00 71 1a 2e 73 63 |me EQUD 0..q..sc|
00000710 72 31 20 45 51 55 44 20 31 34 38 3a 45 51 55 44 |r1 EQUD 148:EQUD|
00000720 20 2d 31 0d 00 72 14 2e 73 63 72 5f 62 61 73 65 | -1..r..scr_base|
00000730 20 45 51 55 44 20 30 0d 00 73 18 2e 73 69 6e 5f | EQUD 0..s..sin_|
00000740 74 61 62 6c 65 20 45 51 55 44 20 73 69 6e 25 0d |table EQUD sin%.|
00000750 00 74 18 2e 63 6f 73 5f 74 61 62 6c 65 20 45 51 |.t..cos_table EQ|
00000760 55 44 20 63 6f 73 25 0d 00 75 1f 2e 73 74 61 72 |UD cos%..u..star|
00000770 5f 74 61 62 6c 65 20 45 51 55 44 20 73 74 61 72 |_table EQUD star|
00000780 5f 64 61 74 61 25 0d 00 76 1a 2e 6d 61 78 5f 73 |_data%..v..max_s|
00000790 74 61 72 73 20 45 51 55 44 20 73 74 61 72 73 25 |tars EQUD stars%|
000007a0 0d 00 77 05 5d 0d 00 78 0a ed 20 70 61 73 73 0d |..w.]..x.. pass.|
000007b0 00 79 05 e1 0d ff |.y....|
000007b6 
.