Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Features1 » StarInfo/Boham/Swirler

StarInfo/Boham/Swirler

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-04 A.adf » Features1
Filename: StarInfo/Boham/Swirler
Read OK:
File size: 054E bytes
Load address: 0000
Exec address: 0000
File contents
    1MODE 25:OFF
    2PROCass
    3ON ERROR PROCerror
    4REPEAT
    5CLS
    6FOR X=0 TO 1279 STEP 100
    7FOR Y=0 TO 1023 STEP 100
    8RECTANGLEFILL X,Y,50,50
    9RECTANGLEFILL X+50,Y+50,50,50
   10NEXT,
   11FOR T=1 TO 20
   12FOR X=0 TO 1279 STEP 2
   13RECTANGLEFILL X,0,2,1023 TO X,SINRADX*10
   14NEXT X
   15FOR Y=0 TO 1023 STEP 2
   16RECTANGLEFILL 0,Y,1279,2 TO SINRADY*10,Y
   17NEXT Y
   18NEXT T
   19UNTIL FALSE
   20END
   21:
   22DEFPROCass
   23DIM code% 256
   24FOR pass=0 TO 2 STEP 2
   25P%=code%
   26[OPT pass
   27.vsync_event
   28CMP R0,#4
   29MOVNES PC,R14
   30STMFD R13!,{R0-R12,R14}
   31MOV R9,PC
   32ORR R8,R9,#3
   33TEQP R8,#0
   34MOVNV R0,R0
   35STMFD R13!,{R14}
   36SWI 256+19
   37MOV R0,#1:SWI "OS_WriteC"
   38SWI 256+16
   39ADR R7,r
   40LDMIA R7,{R0-R5}
   41ADD R0,R0,R1
   42ADD R2,R2,R3
   43ADD R4,R4,R5
   44CMP R0,#255:MOVGT R0,#255:MVNGT R1,#7:MOVGT R3,#8
   45CMP R0,#0  :MOVLT R0,#0:MOVLT R1,#0
   46CMP R2,#255:MOVGT R2,#255:MVNGT R3,#7:MOVGT R5,#8
   47CMP R2,#0  :MOVLT R2,#0:MOVLT R3,#0
   48CMP R4,#255:MOVGT R4,#255:MVNGT R5,#7:MOVGT R1,#8
   49CMP R4,#0  :MOVLT R4,#0:MOVLT R5,#0
   50STMIA R7,{R0-R5}
   51SWI "OS_WriteC"
   52MOV R0,R2:SWI "OS_WriteC"
   53MOV R0,R4:SWI "OS_WriteC"
   54LDMFD R13!,{R14}
   55TEQP R9,#0
   56MOVNV R0,R0
   57LDMFD R13!,{R0-R12,R14}
   58MOVS PC,R14
   59MOV PC,R14
   60.r EQUD 255:EQUD -8
   61.g EQUD 0:EQUD 8
   62.b EQUD 0:EQUD 0
   63]
   64NEXT pass
   65SYS "OS_Claim",16,vsync_event,1
   66SYS 6,14,4
   67ENDPROC
   68:
   69DEFPROCerror
   70ON ERROR OFF
   71SYS 6,13,4
   72SYS "OS_Release",16,vsync_event,1
   73CLS
   74PRINT REPORT$;" at line ";ERL
   75END

� 25:�
�ass
� � �error
�
�
� X=0 � 1279 � 100
� Y=0 � 1023 � 100
ȓȐ X,Y,50,50
	ȓȐ X+50,Y+50,50,50

�,
� T=1 � 20
� X=0 � 1279 � 2

ȓȐ X,0,2,1023 � X,��X*10
� X
� Y=0 � 1023 � 2
ȓȐ 0,Y,1279,2 � ��Y*10,Y
� Y
� T
� �
�
:
	��ass
� code% 256
� pass=0 � 2 � 2
P%=code%

[OPT pass
.vsync_event

CMP R0,#4
MOVNES PC,R14
STMFD R13!,{R0-R12,R14}

MOV R9,PC
 �R R8,R9,#3
!TEQP R8,#0
"MOVNV R0,R0
#STMFD R13!,{R14}
$SWI 256+19
%MOV R0,#1:SWI "OS_WriteC"
&SWI 256+16
'ADR R7,r
(LDMIA R7,{R0-R5}
)ADD R0,R0,R1
*ADD R2,R2,R3
+ADD R4,R4,R5
,5CMP R0,#255:MOVGT R0,#255:MVNGT R1,#7:MOVGT R3,#8
-'CMP R0,#0  :MOVLT R0,#0:MOVLT R1,#0
.5CMP R2,#255:MOVGT R2,#255:MVNGT R3,#7:MOVGT R5,#8
/'CMP R2,#0  :MOVLT R2,#0:MOVLT R3,#0
05CMP R4,#255:MOVGT R4,#255:MVNGT R5,#7:MOVGT R1,#8
1'CMP R4,#0  :MOVLT R4,#0:MOVLT R5,#0
2STMIA R7,{R0-R5}
3SWI "OS_WriteC"
4MOV R0,R2:SWI "OS_WriteC"
5MOV R0,R4:SWI "OS_WriteC"
6LDMFD R13!,{R14}
7TEQP R9,#0
8MOVNV R0,R0
9LDMFD R13!,{R0-R12,R14}
:MOVS PC,R14
;MOV PC,R14
<.r EQUD 255:EQUD -8
=.g EQUD 0:EQUD 8
>.b EQUD 0:EQUD 0
?]
@
� pass
A"ș "OS_Claim",16,vsync_event,1
B
ș 6,14,4
C�
D:
E��error
F	� � �
G
ș 6,13,4
H$ș "OS_Release",16,vsync_event,1
I�
J� �$;" at line ";�
K�
�
00000000  0d 00 01 0a eb 20 32 35  3a 87 0d 00 02 08 f2 61  |..... 25:......a|
00000010  73 73 0d 00 03 0e ee 20  85 20 f2 65 72 72 6f 72  |ss..... . .error|
00000020  0d 00 04 05 f5 0d 00 05  05 db 0d 00 06 16 e3 20  |............... |
00000030  58 3d 30 20 b8 20 31 32  37 39 20 88 20 31 30 30  |X=0 . 1279 . 100|
00000040  0d 00 07 16 e3 20 59 3d  30 20 b8 20 31 30 32 33  |..... Y=0 . 1023|
00000050  20 88 20 31 30 30 0d 00  08 12 c8 93 c8 90 20 58  | . 100........ X|
00000060  2c 59 2c 35 30 2c 35 30  0d 00 09 18 c8 93 c8 90  |,Y,50,50........|
00000070  20 58 2b 35 30 2c 59 2b  35 30 2c 35 30 2c 35 30  | X+50,Y+50,50,50|
00000080  0d 00 0a 06 ed 2c 0d 00  0b 0e e3 20 54 3d 31 20  |.....,..... T=1 |
00000090  b8 20 32 30 0d 00 0c 14  e3 20 58 3d 30 20 b8 20  |. 20..... X=0 . |
000000a0  31 32 37 39 20 88 20 32  0d 00 0d 1e c8 93 c8 90  |1279 . 2........|
000000b0  20 58 2c 30 2c 32 2c 31  30 32 33 20 b8 20 58 2c  | X,0,2,1023 . X,|
000000c0  b5 b2 58 2a 31 30 0d 00  0e 07 ed 20 58 0d 00 0f  |..X*10..... X...|
000000d0  14 e3 20 59 3d 30 20 b8  20 31 30 32 33 20 88 20  |.. Y=0 . 1023 . |
000000e0  32 0d 00 10 1e c8 93 c8  90 20 30 2c 59 2c 31 32  |2........ 0,Y,12|
000000f0  37 39 2c 32 20 b8 20 b5  b2 59 2a 31 30 2c 59 0d  |79,2 . ..Y*10,Y.|
00000100  00 11 07 ed 20 59 0d 00  12 07 ed 20 54 0d 00 13  |.... Y..... T...|
00000110  07 fd 20 a3 0d 00 14 05  e0 0d 00 15 05 3a 0d 00  |.. ..........:..|
00000120  16 09 dd f2 61 73 73 0d  00 17 0f de 20 63 6f 64  |....ass..... cod|
00000130  65 25 20 32 35 36 0d 00  18 14 e3 20 70 61 73 73  |e% 256..... pass|
00000140  3d 30 20 b8 20 32 20 88  20 32 0d 00 19 0c 50 25  |=0 . 2 . 2....P%|
00000150  3d 63 6f 64 65 25 0d 00  1a 0d 5b 4f 50 54 20 70  |=code%....[OPT p|
00000160  61 73 73 0d 00 1b 10 2e  76 73 79 6e 63 5f 65 76  |ass.....vsync_ev|
00000170  65 6e 74 0d 00 1c 0d 43  4d 50 20 52 30 2c 23 34  |ent....CMP R0,#4|
00000180  0d 00 1d 11 4d 4f 56 4e  45 53 20 50 43 2c 52 31  |....MOVNES PC,R1|
00000190  34 0d 00 1e 1b 53 54 4d  46 44 20 52 31 33 21 2c  |4....STMFD R13!,|
000001a0  7b 52 30 2d 52 31 32 2c  52 31 34 7d 0d 00 1f 0d  |{R0-R12,R14}....|
000001b0  4d 4f 56 20 52 39 2c 50  43 0d 00 20 0f 84 52 20  |MOV R9,PC.. ..R |
000001c0  52 38 2c 52 39 2c 23 33  0d 00 21 0e 54 45 51 50  |R8,R9,#3..!.TEQP|
000001d0  20 52 38 2c 23 30 0d 00  22 0f 4d 4f 56 4e 56 20  | R8,#0..".MOVNV |
000001e0  52 30 2c 52 30 0d 00 23  14 53 54 4d 46 44 20 52  |R0,R0..#.STMFD R|
000001f0  31 33 21 2c 7b 52 31 34  7d 0d 00 24 0e 53 57 49  |13!,{R14}..$.SWI|
00000200  20 32 35 36 2b 31 39 0d  00 25 1d 4d 4f 56 20 52  | 256+19..%.MOV R|
00000210  30 2c 23 31 3a 53 57 49  20 22 4f 53 5f 57 72 69  |0,#1:SWI "OS_Wri|
00000220  74 65 43 22 0d 00 26 0e  53 57 49 20 32 35 36 2b  |teC"..&.SWI 256+|
00000230  31 36 0d 00 27 0c 41 44  52 20 52 37 2c 72 0d 00  |16..'.ADR R7,r..|
00000240  28 14 4c 44 4d 49 41 20  52 37 2c 7b 52 30 2d 52  |(.LDMIA R7,{R0-R|
00000250  35 7d 0d 00 29 10 41 44  44 20 52 30 2c 52 30 2c  |5}..).ADD R0,R0,|
00000260  52 31 0d 00 2a 10 41 44  44 20 52 32 2c 52 32 2c  |R1..*.ADD R2,R2,|
00000270  52 33 0d 00 2b 10 41 44  44 20 52 34 2c 52 34 2c  |R3..+.ADD R4,R4,|
00000280  52 35 0d 00 2c 35 43 4d  50 20 52 30 2c 23 32 35  |R5..,5CMP R0,#25|
00000290  35 3a 4d 4f 56 47 54 20  52 30 2c 23 32 35 35 3a  |5:MOVGT R0,#255:|
000002a0  4d 56 4e 47 54 20 52 31  2c 23 37 3a 4d 4f 56 47  |MVNGT R1,#7:MOVG|
000002b0  54 20 52 33 2c 23 38 0d  00 2d 27 43 4d 50 20 52  |T R3,#8..-'CMP R|
000002c0  30 2c 23 30 20 20 3a 4d  4f 56 4c 54 20 52 30 2c  |0,#0  :MOVLT R0,|
000002d0  23 30 3a 4d 4f 56 4c 54  20 52 31 2c 23 30 0d 00  |#0:MOVLT R1,#0..|
000002e0  2e 35 43 4d 50 20 52 32  2c 23 32 35 35 3a 4d 4f  |.5CMP R2,#255:MO|
000002f0  56 47 54 20 52 32 2c 23  32 35 35 3a 4d 56 4e 47  |VGT R2,#255:MVNG|
00000300  54 20 52 33 2c 23 37 3a  4d 4f 56 47 54 20 52 35  |T R3,#7:MOVGT R5|
00000310  2c 23 38 0d 00 2f 27 43  4d 50 20 52 32 2c 23 30  |,#8../'CMP R2,#0|
00000320  20 20 3a 4d 4f 56 4c 54  20 52 32 2c 23 30 3a 4d  |  :MOVLT R2,#0:M|
00000330  4f 56 4c 54 20 52 33 2c  23 30 0d 00 30 35 43 4d  |OVLT R3,#0..05CM|
00000340  50 20 52 34 2c 23 32 35  35 3a 4d 4f 56 47 54 20  |P R4,#255:MOVGT |
00000350  52 34 2c 23 32 35 35 3a  4d 56 4e 47 54 20 52 35  |R4,#255:MVNGT R5|
00000360  2c 23 37 3a 4d 4f 56 47  54 20 52 31 2c 23 38 0d  |,#7:MOVGT R1,#8.|
00000370  00 31 27 43 4d 50 20 52  34 2c 23 30 20 20 3a 4d  |.1'CMP R4,#0  :M|
00000380  4f 56 4c 54 20 52 34 2c  23 30 3a 4d 4f 56 4c 54  |OVLT R4,#0:MOVLT|
00000390  20 52 35 2c 23 30 0d 00  32 14 53 54 4d 49 41 20  | R5,#0..2.STMIA |
000003a0  52 37 2c 7b 52 30 2d 52  35 7d 0d 00 33 13 53 57  |R7,{R0-R5}..3.SW|
000003b0  49 20 22 4f 53 5f 57 72  69 74 65 43 22 0d 00 34  |I "OS_WriteC"..4|
000003c0  1d 4d 4f 56 20 52 30 2c  52 32 3a 53 57 49 20 22  |.MOV R0,R2:SWI "|
000003d0  4f 53 5f 57 72 69 74 65  43 22 0d 00 35 1d 4d 4f  |OS_WriteC"..5.MO|
000003e0  56 20 52 30 2c 52 34 3a  53 57 49 20 22 4f 53 5f  |V R0,R4:SWI "OS_|
000003f0  57 72 69 74 65 43 22 0d  00 36 14 4c 44 4d 46 44  |WriteC"..6.LDMFD|
00000400  20 52 31 33 21 2c 7b 52  31 34 7d 0d 00 37 0e 54  | R13!,{R14}..7.T|
00000410  45 51 50 20 52 39 2c 23  30 0d 00 38 0f 4d 4f 56  |EQP R9,#0..8.MOV|
00000420  4e 56 20 52 30 2c 52 30  0d 00 39 1b 4c 44 4d 46  |NV R0,R0..9.LDMF|
00000430  44 20 52 31 33 21 2c 7b  52 30 2d 52 31 32 2c 52  |D R13!,{R0-R12,R|
00000440  31 34 7d 0d 00 3a 0f 4d  4f 56 53 20 50 43 2c 52  |14}..:.MOVS PC,R|
00000450  31 34 0d 00 3b 0e 4d 4f  56 20 50 43 2c 52 31 34  |14..;.MOV PC,R14|
00000460  0d 00 3c 17 2e 72 20 45  51 55 44 20 32 35 35 3a  |..<..r EQUD 255:|
00000470  45 51 55 44 20 2d 38 0d  00 3d 14 2e 67 20 45 51  |EQUD -8..=..g EQ|
00000480  55 44 20 30 3a 45 51 55  44 20 38 0d 00 3e 14 2e  |UD 0:EQUD 8..>..|
00000490  62 20 45 51 55 44 20 30  3a 45 51 55 44 20 30 0d  |b EQUD 0:EQUD 0.|
000004a0  00 3f 05 5d 0d 00 40 0a  ed 20 70 61 73 73 0d 00  |.?.]..@.. pass..|
000004b0  41 22 c8 99 20 22 4f 53  5f 43 6c 61 69 6d 22 2c  |A".. "OS_Claim",|
000004c0  31 36 2c 76 73 79 6e 63  5f 65 76 65 6e 74 2c 31  |16,vsync_event,1|
000004d0  0d 00 42 0d c8 99 20 36  2c 31 34 2c 34 0d 00 43  |..B... 6,14,4..C|
000004e0  05 e1 0d 00 44 05 3a 0d  00 45 0b dd f2 65 72 72  |....D.:..E...err|
000004f0  6f 72 0d 00 46 09 ee 20  85 20 87 0d 00 47 0d c8  |or..F.. . ...G..|
00000500  99 20 36 2c 31 33 2c 34  0d 00 48 24 c8 99 20 22  |. 6,13,4..H$.. "|
00000510  4f 53 5f 52 65 6c 65 61  73 65 22 2c 31 36 2c 76  |OS_Release",16,v|
00000520  73 79 6e 63 5f 65 76 65  6e 74 2c 31 0d 00 49 05  |sync_event,1..I.|
00000530  db 0d 00 4a 16 f1 20 f6  24 3b 22 20 61 74 20 6c  |...J.. .$;" at l|
00000540  69 6e 65 20 22 3b 9e 0d  00 4b 05 e0 0d ff        |ine ";...K....|
0000054e