Home » Archimedes archive » Acorn User » AU 1998-05 A.adf » Regulars » StarInfo/Boham/Galaxy27
StarInfo/Boham/Galaxy27
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/Galaxy27 |
| Read OK: | ✔ |
| File size: | 07B8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MODE 27: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,#160
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,#240
66
67
68CMP R3,#0:MOVLT R1,#6<<16:BLT exit
69CMP R3,#320:MOVGE R1,#6<<16:BGE exit
70CMP R4,#0:MOVLT R1,#6<<16:BLT exit
71CMP R4,#480:MOVGE R1,#6<<16:BGE exit
72
73
74MOV R5,#320
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,#320*480
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
� 27:�
� 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,#160
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,#240
B
C
D&CMP R3,#0:MOVLT R1,#6<<16:BLT exit
E(CMP R3,#320:MOVGE R1,#6<<16:BGE exit
F&CMP R4,#0:MOVLT R1,#6<<16:BLT exit
G(CMP R4,#480:MOVGE R1,#6<<16:BGE exit
H
I
JMOV R5,#320
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,#320*480
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 0a eb 20 32 37 3a 87 0d 00 02 0e e3 20 |..... 27:...... |
00000010 63 3d 30 20 b8 20 31 35 0d 00 03 16 fb 20 63 2c |c=0 . 15..... c,|
00000020 63 2a 31 36 2c 63 2a 31 36 2c 63 2a 31 36 0d 00 |c*16,c*16,c*16..|
00000030 04 05 ed 0d 00 05 08 f2 61 73 73 0d 00 06 0d 53 |........ass....S|
00000040 31 3d 31 3a 53 32 3d 32 0d 00 07 05 f5 0d 00 08 |1=1:S2=2........|
00000050 0b d6 20 63 6f 64 65 25 0d 00 09 07 fd 20 a3 0d |.. code%..... ..|
00000060 00 0a 05 e0 0d 00 0b 05 3a 0d 00 0c 09 dd f2 61 |........:......a|
00000070 73 73 0d 00 0d 10 73 74 61 72 73 25 20 3d 20 32 |ss....stars% = 2|
00000080 35 36 0d 00 0e 1b de 20 73 74 61 72 5f 64 61 74 |56..... star_dat|
00000090 61 25 20 73 74 61 72 73 25 2a 34 2a 33 0d 00 0f |a% stars%*4*3...|
000000a0 32 e3 20 70 25 3d 73 74 61 72 5f 64 61 74 61 25 |2. p%=star_data%|
000000b0 20 b8 20 73 74 61 72 5f 64 61 74 61 25 2b 73 74 | . star_data%+st|
000000c0 61 72 73 25 2a 34 2a 33 2d 31 20 88 20 31 32 0d |ars%*4*3-1 . 12.|
000000d0 00 10 1e 70 25 21 30 20 3d 20 b3 28 33 36 30 29 |...p%!0 = .(360)|
000000e0 3c 3c 32 20 3a 20 f4 20 61 6e 67 6c 65 0d 00 11 |<<2 : . angle...|
000000f0 1c 70 25 21 34 20 3d 20 31 30 3c 3c 31 36 20 3a |.p%!4 = 10<<16 :|
00000100 20 f4 20 72 61 64 69 75 73 0d 00 12 1b 70 25 21 | . radius....p%!|
00000110 38 20 3d 20 b3 28 35 29 2b 35 20 20 3a f4 20 73 |8 = .(5)+5 :. s|
00000120 70 65 65 64 0d 00 13 08 ed 20 70 25 0d 00 14 1b |peed..... p%....|
00000130 de 20 73 69 6e 25 20 33 36 30 2a 34 2c 63 6f 73 |. sin% 360*4,cos|
00000140 25 20 33 36 30 2a 34 0d 00 15 10 e3 20 70 25 3d |% 360*4..... p%=|
00000150 30 20 b8 20 33 35 39 0d 00 16 22 73 69 6e 25 21 |0 . 359..."sin%!|
00000160 28 70 25 2a 34 29 20 3d 20 b5 b2 28 70 25 29 20 |(p%*4) = ..(p%) |
00000170 2a 20 28 31 3c 3c 31 36 29 0d 00 17 22 63 6f 73 |* (1<<16)..."cos|
00000180 25 21 28 70 25 2a 34 29 20 3d 20 9b b2 28 70 25 |%!(p%*4) = ..(p%|
00000190 29 20 2a 20 28 31 3c 3c 31 36 29 0d 00 18 08 ed |) * (1<<16).....|
000001a0 20 70 25 0d 00 19 16 de 20 63 6f 64 65 25 20 31 | p%..... code% 1|
000001b0 30 32 34 2c 4c 25 20 2d 31 0d 00 1a 15 e3 20 70 |024,L% -1..... p|
000001c0 61 73 73 3d 38 20 b8 20 31 30 20 88 20 32 0d 00 |ass=8 . 10 . 2..|
000001d0 1b 0c 50 25 3d 63 6f 64 65 25 0d 00 1c 0d 5b 4f |..P%=code%....[O|
000001e0 50 54 20 70 61 73 73 0d 00 1d 0f 41 44 52 20 52 |PT pass....ADR R|
000001f0 30 2c 73 63 72 31 0d 00 1e 13 41 44 52 20 52 31 |0,scr1....ADR R1|
00000200 2c 73 63 72 5f 62 61 73 65 0d 00 1f 0b 53 57 49 |,scr_base....SWI|
00000210 20 26 33 31 0d 00 20 14 4c 44 52 20 52 31 32 2c | &31.. .LDR R12,|
00000220 73 63 72 5f 62 61 73 65 0d 00 21 04 0d 00 22 16 |scr_base..!...".|
00000230 4c 44 52 20 52 31 30 2c 73 74 61 72 5f 74 61 62 |LDR R10,star_tab|
00000240 6c 65 0d 00 23 15 4c 44 52 20 52 31 31 2c 6d 61 |le..#.LDR R11,ma|
00000250 78 5f 73 74 61 72 73 0d 00 24 14 4c 44 52 20 52 |x_stars..$.LDR R|
00000260 38 2c 73 69 6e 5f 74 61 62 6c 65 0d 00 25 14 4c |8,sin_table..%.L|
00000270 44 52 20 52 39 2c 63 6f 73 5f 74 61 62 6c 65 0d |DR R9,cos_table.|
00000280 00 26 04 0d 00 27 0d 2e 62 69 67 5f 6c 6f 6f 70 |.&...'..big_loop|
00000290 0d 00 28 18 4c 44 4d 49 41 20 52 31 30 2c 7b 72 |..(.LDMIA R10,{r|
000002a0 30 2c 72 31 2c 72 32 7d 0d 00 29 04 0d 00 2a 15 |0,r1,r2}..)...*.|
000002b0 4d 4f 56 20 52 37 2c 52 31 2c 4c 53 52 20 23 31 |MOV R7,R1,LSR #1|
000002c0 36 0d 00 2b 0a 3b 61 2c 72 2c 73 0d 00 2c 04 0d |6..+.;a,r,s..,..|
000002d0 00 2d 12 4c 44 52 20 52 33 2c 5b 52 38 2c 52 30 |.-.LDR R3,[R8,R0|
000002e0 5d 0d 00 2e 10 4d 55 4c 20 52 33 2c 52 37 2c 52 |]....MUL R3,R7,R|
000002f0 33 0d 00 2f 0d 43 4d 50 20 52 33 2c 23 30 0d 00 |3../.CMP R3,#0..|
00000300 30 0f 4d 4f 56 4c 54 20 52 35 2c 23 31 0d 00 31 |0.MOVLT R5,#1..1|
00000310 12 52 53 42 4c 54 20 52 33 2c 52 33 2c 23 30 0d |.RSBLT R3,R3,#0.|
00000320 00 32 0f 4d 4f 56 47 45 20 52 35 2c 23 30 0d 00 |.2.MOVGE R5,#0..|
00000330 33 15 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 20 |3.MOV R3,R3,LSR |
00000340 23 31 36 0d 00 34 0d 43 4d 50 20 52 35 2c 23 31 |#16..4.CMP R5,#1|
00000350 0d 00 35 12 52 53 42 45 51 20 52 33 2c 52 33 2c |..5.RSBEQ R3,R3,|
00000360 23 30 0d 00 36 12 41 44 44 20 52 33 2c 52 33 2c |#0..6.ADD R3,R3,|
00000370 23 31 36 30 0d 00 37 04 0d 00 38 12 4c 44 52 20 |#160..7...8.LDR |
00000380 52 34 2c 5b 52 39 2c 52 30 5d 0d 00 39 10 4d 55 |R4,[R9,R0]..9.MU|
00000390 4c 20 52 34 2c 52 37 2c 52 34 0d 00 3a 0d 43 4d |L R4,R7,R4..:.CM|
000003a0 50 20 52 34 2c 23 30 0d 00 3b 0f 4d 4f 56 4c 54 |P R4,#0..;.MOVLT|
000003b0 20 52 35 2c 23 31 0d 00 3c 12 52 53 42 4c 54 20 | R5,#1..<.RSBLT |
000003c0 52 34 2c 52 34 2c 23 30 0d 00 3d 0f 4d 4f 56 47 |R4,R4,#0..=.MOVG|
000003d0 45 20 52 35 2c 23 30 0d 00 3e 15 4d 4f 56 20 52 |E R5,#0..>.MOV R|
000003e0 34 2c 52 34 2c 4c 53 52 20 23 31 36 0d 00 3f 0d |4,R4,LSR #16..?.|
000003f0 43 4d 50 20 52 35 2c 23 31 0d 00 40 12 52 53 42 |CMP R5,#1..@.RSB|
00000400 45 51 20 52 34 2c 52 34 2c 23 30 0d 00 41 12 41 |EQ R4,R4,#0..A.A|
00000410 44 44 20 52 34 2c 52 34 2c 23 32 34 30 0d 00 42 |DD R4,R4,#240..B|
00000420 04 0d 00 43 04 0d 00 44 26 43 4d 50 20 52 33 2c |...C...D&CMP R3,|
00000430 23 30 3a 4d 4f 56 4c 54 20 52 31 2c 23 36 3c 3c |#0:MOVLT R1,#6<<|
00000440 31 36 3a 42 4c 54 20 65 78 69 74 0d 00 45 28 43 |16:BLT exit..E(C|
00000450 4d 50 20 52 33 2c 23 33 32 30 3a 4d 4f 56 47 45 |MP R3,#320:MOVGE|
00000460 20 52 31 2c 23 36 3c 3c 31 36 3a 42 47 45 20 65 | R1,#6<<16:BGE e|
00000470 78 69 74 0d 00 46 26 43 4d 50 20 52 34 2c 23 30 |xit..F&CMP R4,#0|
00000480 3a 4d 4f 56 4c 54 20 52 31 2c 23 36 3c 3c 31 36 |:MOVLT R1,#6<<16|
00000490 3a 42 4c 54 20 65 78 69 74 0d 00 47 28 43 4d 50 |:BLT exit..G(CMP|
000004a0 20 52 34 2c 23 34 38 30 3a 4d 4f 56 47 45 20 52 | R4,#480:MOVGE R|
000004b0 31 2c 23 36 3c 3c 31 36 3a 42 47 45 20 65 78 69 |1,#6<<16:BGE exi|
000004c0 74 0d 00 48 04 0d 00 49 04 0d 00 4a 0f 4d 4f 56 |t..H...I...J.MOV|
000004d0 20 52 35 2c 23 33 32 30 0d 00 4b 13 4d 4c 41 20 | R5,#320..K.MLA |
000004e0 52 35 2c 52 34 2c 52 35 2c 52 33 0d 00 4c 14 4c |R5,R4,R5,R3..L.L|
000004f0 44 52 42 20 52 36 2c 5b 52 31 32 2c 52 35 5d 0d |DRB R6,[R12,R5].|
00000500 00 4d 10 41 44 44 20 52 36 2c 52 36 2c 23 31 0d |.M.ADD R6,R6,#1.|
00000510 00 4e 14 53 54 52 42 20 52 36 2c 5b 52 31 32 2c |.N.STRB R6,[R12,|
00000520 52 35 5d 0d 00 4f 04 0d 00 50 10 4d 55 4c 20 52 |R5]..O...P.MUL R|
00000530 35 2c 52 31 2c 52 32 0d 00 51 18 41 44 44 20 52 |5,R1,R2..Q.ADD R|
00000540 31 2c 52 31 2c 52 35 2c 4c 53 52 20 23 31 31 0d |1,R1,R5,LSR #11.|
00000550 00 52 10 41 44 44 20 52 30 2c 52 30 2c 23 34 0d |.R.ADD R0,R0,#4.|
00000560 00 53 11 43 4d 50 20 52 30 2c 23 33 36 30 2a 34 |.S.CMP R0,#360*4|
00000570 0d 00 54 0f 4d 4f 56 47 45 20 52 30 2c 23 30 0d |..T.MOVGE R0,#0.|
00000580 00 55 04 0d 00 56 09 2e 65 78 69 74 0d 00 57 19 |.U...V..exit..W.|
00000590 53 54 4d 49 41 20 52 31 30 21 2c 7b 72 30 2c 72 |STMIA R10!,{r0,r|
000005a0 31 2c 72 32 7d 0d 00 58 13 53 55 42 53 20 52 31 |1,r2}..X.SUBS R1|
000005b0 31 2c 52 31 31 2c 23 31 0d 00 59 10 42 47 54 20 |1,R11,#1..Y.BGT |
000005c0 62 69 67 5f 6c 6f 6f 70 0d 00 5a 04 0d 00 5b 10 |big_loop..Z...[.|
000005d0 4c 44 52 20 52 30 2c 66 72 61 6d 65 0d 00 5c 10 |LDR R0,frame..\.|
000005e0 41 44 44 20 52 30 2c 52 30 2c 23 31 0d 00 5d 0e |ADD R0,R0,#1..].|
000005f0 43 4d 50 20 52 30 2c 23 31 32 0d 00 5e 0c ec 51 |CMP R0,#12..^..Q|
00000600 20 52 30 2c 23 30 0d 00 5f 10 53 54 52 20 52 30 | R0,#0.._.STR R0|
00000610 2c 66 72 61 6d 65 0d 00 60 10 4d 4f 56 4e 45 20 |,frame..`.MOVNE |
00000620 50 43 2c 52 31 34 0d 00 61 04 0d 00 62 10 2e 77 |PC,R14..a...b..w|
00000630 69 70 65 5f 73 63 72 65 65 6e 0d 00 63 14 4d 4f |ipe_screen..c.MO|
00000640 56 20 52 31 31 2c 23 33 32 30 2a 34 38 30 0d 00 |V R11,#320*480..|
00000650 64 13 41 44 44 20 52 31 31 2c 52 31 31 2c 52 31 |d.ADD R11,R11,R1|
00000660 32 0d 00 65 0e 2e 77 69 70 65 5f 6c 6f 6f 70 0d |2..e..wipe_loop.|
00000670 00 66 11 4c 44 52 42 20 52 30 2c 5b 52 31 32 5d |.f.LDRB R0,[R12]|
00000680 0d 00 67 0d 43 4d 50 20 52 30 2c 23 30 0d 00 68 |..g.CMP R0,#0..h|
00000690 12 53 55 42 47 54 20 52 30 2c 52 30 2c 23 31 0d |.SUBGT R0,R0,#1.|
000006a0 00 69 13 53 54 52 47 54 42 20 52 30 2c 5b 52 31 |.i.STRGTB R0,[R1|
000006b0 32 5d 0d 00 6a 12 41 44 44 20 52 31 32 2c 52 31 |2]..j.ADD R12,R1|
000006c0 32 2c 23 31 0d 00 6b 0f 43 4d 50 20 52 31 32 2c |2,#1..k.CMP R12,|
000006d0 52 31 31 0d 00 6c 11 42 4c 54 20 77 69 70 65 5f |R11..l.BLT wipe_|
000006e0 6c 6f 6f 70 0d 00 6d 04 0d 00 6e 04 0d 00 6f 0e |loop..m...n...o.|
000006f0 4d 4f 56 20 50 43 2c 52 31 34 0d 00 70 11 2e 66 |MOV PC,R14..p..f|
00000700 72 61 6d 65 20 45 51 55 44 20 30 0d 00 71 1a 2e |rame EQUD 0..q..|
00000710 73 63 72 31 20 45 51 55 44 20 31 34 38 3a 45 51 |scr1 EQUD 148:EQ|
00000720 55 44 20 2d 31 0d 00 72 14 2e 73 63 72 5f 62 61 |UD -1..r..scr_ba|
00000730 73 65 20 45 51 55 44 20 30 0d 00 73 18 2e 73 69 |se EQUD 0..s..si|
00000740 6e 5f 74 61 62 6c 65 20 45 51 55 44 20 73 69 6e |n_table EQUD sin|
00000750 25 0d 00 74 18 2e 63 6f 73 5f 74 61 62 6c 65 20 |%..t..cos_table |
00000760 45 51 55 44 20 63 6f 73 25 0d 00 75 1f 2e 73 74 |EQUD cos%..u..st|
00000770 61 72 5f 74 61 62 6c 65 20 45 51 55 44 20 73 74 |ar_table EQUD st|
00000780 61 72 5f 64 61 74 61 25 0d 00 76 1a 2e 6d 61 78 |ar_data%..v..max|
00000790 5f 73 74 61 72 73 20 45 51 55 44 20 73 74 61 72 |_stars EQUD star|
000007a0 73 25 0d 00 77 05 5d 0d 00 78 0a ed 20 70 61 73 |s%..w.]..x.. pas|
000007b0 73 0d 00 79 05 e1 0d ff |s..y....|
000007b8 
.