Home » Archimedes archive » Acorn User » AU 1997-05 B.adf » Regulars » StarInfo/Boham/full/Plasma2Col

StarInfo/Boham/full/Plasma2Col

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/Boham/full/Plasma2Col
Read OK: ✔
File size: 079D bytes
Load address: 0000
Exec address: 0000
File contents
    1ON ERROR: ON ERROR OFF: PRINT REPORT$;" at line ";ERL:END
    2MODE 15
    3MODE 13:OFF
    4colour%=TRUE
    5PROCass:OFF
    6S1=1:S2=2
    7TIME=0
    8REPEAT
    9WAIT:SYS 6,112,S1:SYS 6,113,S2:CLS:SWAP S1,S2
   10CALL plot_grid
   11UNTIL 0=1
   12MODE 13
   13END
   14:
   15DEF PROCass
   16DIM code% 2048,array% 320*256,col_table 90
   17FOR pass=0 TO 2 STEP 2
   18P%=code%
   19[OPT pass
   20.plot_grid
   21ADR R0,s1:ADR R1,s2:SWI &31
   22LDR R12,s2                        ;r12 - scr, r11 - grid, r10 - col_table
   23LDR R11,grid_addr
   24LDR R10,col_addr
   25LDR R0,scr_adder
   26ADD R12,R12,R0
   27MOV R9,#0
   28.yloop
   29MOV R8,#0                   ;r9 =y, r8 = x
   30.xloop
   31LDRB R0,[R11]
   32LDRB R1,[R11,#-320]
   33LDRB R2,[R11,#1]
   34LDRB R3,[R11,#320]
   35
   36CMP R0,#45:ADDLT R0,R0,#1:SUBGT R0,R0,#1
   37CMP R1,#25:ADDLT R1,R1,#2:SUBGT R1,R1,#2
   38CMP R2,#65:ADDLT R2,R2,#2:SUBGT R2,R2,#2
   39CMP R3,#80:ADDLT R3,R3,#2:SUBGT R3,R3,#2
   40
   41
   42ADD R0,R0,R1
   43ADD R0,R0,R2
   44ADD R0,R0,R3
   45MOV R0,R0,LSR #2
   46
   47ADD R0,R0,#5
   48CMP R0,#90
   49MOVGE R0,#0
   50
   51
   52STRB R0,[R11]
   53
   54LDRB R1,[R10,R0]
   55STRB R1,[R12]
   56
   57ADD R11,R11,#1
   58ADD R12,R12,#1
   59
   60
   61
   62ADD R8,R8,#1
   63CMP R8,#320
   64BLE xloop
   65
   66;ADD R12,R12,#320
   67
   68ADD R9,R9,#1
   69CMP R9,#255
   70BLT yloop
   71
   72
   73MOV PC,R14
   74.s1        EQUD 148
   75           EQUD -1
   76.s2        EQUD 0
   77.grid_addr EQUD array%
   78.col_addr  EQUD col_table
   79.scr_adder EQUD 0
   80]
   81NEXT pass
   82
   83REM ********* Setup colour table
   84loc=col_table
   85SYS &31,s1,s2:base=!s2
   86
   87IF colour% THEN
   88FOR h=0 TO 359 STEP 4
   89SYS "ColourTrans_ConvertHSVToRGB",h*65000*2,130*256,255 TO r,g,b
   90SYS "ColourTrans_SetGCOL",(r<<8)+(g<<16)+(b<<24)
   91POINT 0,1023
   92?loc=?base
   93loc+=1
   94NEXT h
   95ELSE
   96FOR r=0 TO 89
   97
   98IF r<45 THEN g=(45-r)*2.83333+128 ELSE g=(r-45)*2.83333+128
   99
  100SYS "ColourTrans_SetGCOL",(g<<8)+(g<<16)+(g<<24)
  101POINT 0,1023
  102?loc=?base
  103loc+=1
  104NEXT r
  105ENDIF
  106
  107?base=0
  108
  109
  110REM ********* Setup grid
  111FOR loc=array% TO array%+320*256-1 STEP 4
  112!loc=RND(1<<30)
  113NEXT
  114CLS
  115ENDPROC

$� �: � � �: � �$;" at line ";�:�
� 15

� 13:�

colour%=�

�ass:�

S1=1:S2=2
�=0
�
	)Ȗ:ș 6,112,S1:ș 6,113,S2:�:Ȕ S1,S2

� plot_grid
	� 0=1
� 13

�
:

� �ass
,� code% 2048,array% 320*256,col_table 90
� pass=0 � 2 � 2
P%=code%

[OPT pass
.plot_grid
ADR R0,s1:ADR R1,s2:SWI &31
MLDR R12,s2                        ;r12 - scr, r11 - grid, r10 - col_table
LDR R11,grid_addr
LDR R10,col_addr
LDR R0,scr_adder
ADD R12,R12,R0

MOV R9,#0

.yloop
.MOV R8,#0                   ;r9 =y, r8 = x

.xloop
LDRB R0,[R11]
 LDRB R1,[R11,#-320]
!LDRB R2,[R11,#1]
"LDRB R3,[R11,#320]
#
$,CMP R0,#45:ADDLT R0,R0,#1:SUBGT R0,R0,#1
%,CMP R1,#25:ADDLT R1,R1,#2:SUBGT R1,R1,#2
&,CMP R2,#65:ADDLT R2,R2,#2:SUBGT R2,R2,#2
',CMP R3,#80:ADDLT R3,R3,#2:SUBGT R3,R3,#2
(
)
*ADD R0,R0,R1
+ADD R0,R0,R2
,ADD R0,R0,R3
-MOV R0,R0,LSR #2
.
/ADD R0,R0,#5
0CMP R0,#90
1MOVGE R0,#0
2
3
4STRB R0,[R11]
5
6LDRB R1,[R10,R0]
7STRB R1,[R12]
8
9ADD R11,R11,#1
:ADD R12,R12,#1
;
<
=
>ADD R8,R8,#1
?CMP R8,#320
@
BLE xloop
A
B;ADD R12,R12,#320
C
DADD R9,R9,#1
ECMP R9,#255
F
BLT yloop
G
H
IMOV PC,R14
J.s1        EQUD 148
K           EQUD -1
L.s2        EQUD 0
M.grid_addr EQUD array%
N.col_addr  EQUD col_table
O.scr_adder EQUD 0
P]
Q
� pass
R
S"� ********* Setup colour table
Tloc=col_table
Uș &31,s1,s2:base=!s2
V
W� colour% �
X� h=0 � 359 � 4
YBș "ColourTrans_ConvertHSVToRGB",h*65000*2,130*256,255 � r,g,b
Z3ș "ColourTrans_SetGCOL",(r<<8)+(g<<16)+(b<<24)
[
Ȓ 0,1023
\?loc=?base
]
loc+=1
^� h
_�
`� r=0 � 89
a
b8� r<45 � g=(45-r)*2.83333+128 � g=(r-45)*2.83333+128
c
d3ș "ColourTrans_SetGCOL",(g<<8)+(g<<16)+(g<<24)
e
Ȓ 0,1023
f?loc=?base
g
loc+=1
h� r
i�
j
k?base=0
l
m
n� ********* Setup grid
o'� loc=array% � array%+320*256-1 � 4
p!loc=�(1<<30)
q�
r�
s�
�
00000000  0d 00 01 24 ee 20 85 3a  20 ee 20 85 20 87 3a 20  |...$. .: . . .: |
00000010  f1 20 f6 24 3b 22 20 61  74 20 6c 69 6e 65 20 22  |. .$;" at line "|
00000020  3b 9e 3a e0 0d 00 02 08  eb 20 31 35 0d 00 03 0a  |;.:...... 15....|
00000030  eb 20 31 33 3a 87 0d 00  04 0d 63 6f 6c 6f 75 72  |. 13:.....colour|
00000040  25 3d b9 0d 00 05 0a f2  61 73 73 3a 87 0d 00 06  |%=......ass:....|
00000050  0d 53 31 3d 31 3a 53 32  3d 32 0d 00 07 07 d1 3d  |.S1=1:S2=2.....=|
00000060  30 0d 00 08 05 f5 0d 00  09 29 c8 96 3a c8 99 20  |0........)..:.. |
00000070  36 2c 31 31 32 2c 53 31  3a c8 99 20 36 2c 31 31  |6,112,S1:.. 6,11|
00000080  33 2c 53 32 3a db 3a c8  94 20 53 31 2c 53 32 0d  |3,S2:.:.. S1,S2.|
00000090  00 0a 0f d6 20 70 6c 6f  74 5f 67 72 69 64 0d 00  |.... plot_grid..|
000000a0  0b 09 fd 20 30 3d 31 0d  00 0c 08 eb 20 31 33 0d  |... 0=1..... 13.|
000000b0  00 0d 05 e0 0d 00 0e 05  3a 0d 00 0f 0a dd 20 f2  |........:..... .|
000000c0  61 73 73 0d 00 10 2c de  20 63 6f 64 65 25 20 32  |ass...,. code% 2|
000000d0  30 34 38 2c 61 72 72 61  79 25 20 33 32 30 2a 32  |048,array% 320*2|
000000e0  35 36 2c 63 6f 6c 5f 74  61 62 6c 65 20 39 30 0d  |56,col_table 90.|
000000f0  00 11 14 e3 20 70 61 73  73 3d 30 20 b8 20 32 20  |.... pass=0 . 2 |
00000100  88 20 32 0d 00 12 0c 50  25 3d 63 6f 64 65 25 0d  |. 2....P%=code%.|
00000110  00 13 0d 5b 4f 50 54 20  70 61 73 73 0d 00 14 0e  |...[OPT pass....|
00000120  2e 70 6c 6f 74 5f 67 72  69 64 0d 00 15 1f 41 44  |.plot_grid....AD|
00000130  52 20 52 30 2c 73 31 3a  41 44 52 20 52 31 2c 73  |R R0,s1:ADR R1,s|
00000140  32 3a 53 57 49 20 26 33  31 0d 00 16 4d 4c 44 52  |2:SWI &31...MLDR|
00000150  20 52 31 32 2c 73 32 20  20 20 20 20 20 20 20 20  | R12,s2         |
00000160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00000170  72 31 32 20 2d 20 73 63  72 2c 20 72 31 31 20 2d  |r12 - scr, r11 -|
00000180  20 67 72 69 64 2c 20 72  31 30 20 2d 20 63 6f 6c  | grid, r10 - col|
00000190  5f 74 61 62 6c 65 0d 00  17 15 4c 44 52 20 52 31  |_table....LDR R1|
000001a0  31 2c 67 72 69 64 5f 61  64 64 72 0d 00 18 14 4c  |1,grid_addr....L|
000001b0  44 52 20 52 31 30 2c 63  6f 6c 5f 61 64 64 72 0d  |DR R10,col_addr.|
000001c0  00 19 14 4c 44 52 20 52  30 2c 73 63 72 5f 61 64  |...LDR R0,scr_ad|
000001d0  64 65 72 0d 00 1a 12 41  44 44 20 52 31 32 2c 52  |der....ADD R12,R|
000001e0  31 32 2c 52 30 0d 00 1b  0d 4d 4f 56 20 52 39 2c  |12,R0....MOV R9,|
000001f0  23 30 0d 00 1c 0a 2e 79  6c 6f 6f 70 0d 00 1d 2e  |#0.....yloop....|
00000200  4d 4f 56 20 52 38 2c 23  30 20 20 20 20 20 20 20  |MOV R8,#0       |
00000210  20 20 20 20 20 20 20 20  20 20 20 20 3b 72 39 20  |            ;r9 |
00000220  3d 79 2c 20 72 38 20 3d  20 78 0d 00 1e 0a 2e 78  |=y, r8 = x.....x|
00000230  6c 6f 6f 70 0d 00 1f 11  4c 44 52 42 20 52 30 2c  |loop....LDRB R0,|
00000240  5b 52 31 31 5d 0d 00 20  17 4c 44 52 42 20 52 31  |[R11].. .LDRB R1|
00000250  2c 5b 52 31 31 2c 23 2d  33 32 30 5d 0d 00 21 14  |,[R11,#-320]..!.|
00000260  4c 44 52 42 20 52 32 2c  5b 52 31 31 2c 23 31 5d  |LDRB R2,[R11,#1]|
00000270  0d 00 22 16 4c 44 52 42  20 52 33 2c 5b 52 31 31  |..".LDRB R3,[R11|
00000280  2c 23 33 32 30 5d 0d 00  23 04 0d 00 24 2c 43 4d  |,#320]..#...$,CM|
00000290  50 20 52 30 2c 23 34 35  3a 41 44 44 4c 54 20 52  |P R0,#45:ADDLT R|
000002a0  30 2c 52 30 2c 23 31 3a  53 55 42 47 54 20 52 30  |0,R0,#1:SUBGT R0|
000002b0  2c 52 30 2c 23 31 0d 00  25 2c 43 4d 50 20 52 31  |,R0,#1..%,CMP R1|
000002c0  2c 23 32 35 3a 41 44 44  4c 54 20 52 31 2c 52 31  |,#25:ADDLT R1,R1|
000002d0  2c 23 32 3a 53 55 42 47  54 20 52 31 2c 52 31 2c  |,#2:SUBGT R1,R1,|
000002e0  23 32 0d 00 26 2c 43 4d  50 20 52 32 2c 23 36 35  |#2..&,CMP R2,#65|
000002f0  3a 41 44 44 4c 54 20 52  32 2c 52 32 2c 23 32 3a  |:ADDLT R2,R2,#2:|
00000300  53 55 42 47 54 20 52 32  2c 52 32 2c 23 32 0d 00  |SUBGT R2,R2,#2..|
00000310  27 2c 43 4d 50 20 52 33  2c 23 38 30 3a 41 44 44  |',CMP R3,#80:ADD|
00000320  4c 54 20 52 33 2c 52 33  2c 23 32 3a 53 55 42 47  |LT R3,R3,#2:SUBG|
00000330  54 20 52 33 2c 52 33 2c  23 32 0d 00 28 04 0d 00  |T R3,R3,#2..(...|
00000340  29 04 0d 00 2a 10 41 44  44 20 52 30 2c 52 30 2c  |)...*.ADD R0,R0,|
00000350  52 31 0d 00 2b 10 41 44  44 20 52 30 2c 52 30 2c  |R1..+.ADD R0,R0,|
00000360  52 32 0d 00 2c 10 41 44  44 20 52 30 2c 52 30 2c  |R2..,.ADD R0,R0,|
00000370  52 33 0d 00 2d 14 4d 4f  56 20 52 30 2c 52 30 2c  |R3..-.MOV R0,R0,|
00000380  4c 53 52 20 23 32 0d 00  2e 04 0d 00 2f 10 41 44  |LSR #2....../.AD|
00000390  44 20 52 30 2c 52 30 2c  23 35 0d 00 30 0e 43 4d  |D R0,R0,#5..0.CM|
000003a0  50 20 52 30 2c 23 39 30  0d 00 31 0f 4d 4f 56 47  |P R0,#90..1.MOVG|
000003b0  45 20 52 30 2c 23 30 0d  00 32 04 0d 00 33 04 0d  |E R0,#0..2...3..|
000003c0  00 34 11 53 54 52 42 20  52 30 2c 5b 52 31 31 5d  |.4.STRB R0,[R11]|
000003d0  0d 00 35 04 0d 00 36 14  4c 44 52 42 20 52 31 2c  |..5...6.LDRB R1,|
000003e0  5b 52 31 30 2c 52 30 5d  0d 00 37 11 53 54 52 42  |[R10,R0]..7.STRB|
000003f0  20 52 31 2c 5b 52 31 32  5d 0d 00 38 04 0d 00 39  | R1,[R12]..8...9|
00000400  12 41 44 44 20 52 31 31  2c 52 31 31 2c 23 31 0d  |.ADD R11,R11,#1.|
00000410  00 3a 12 41 44 44 20 52  31 32 2c 52 31 32 2c 23  |.:.ADD R12,R12,#|
00000420  31 0d 00 3b 04 0d 00 3c  04 0d 00 3d 04 0d 00 3e  |1..;...<...=...>|
00000430  10 41 44 44 20 52 38 2c  52 38 2c 23 31 0d 00 3f  |.ADD R8,R8,#1..?|
00000440  0f 43 4d 50 20 52 38 2c  23 33 32 30 0d 00 40 0d  |.CMP R8,#320..@.|
00000450  42 4c 45 20 78 6c 6f 6f  70 0d 00 41 04 0d 00 42  |BLE xloop..A...B|
00000460  15 3b 41 44 44 20 52 31  32 2c 52 31 32 2c 23 33  |.;ADD R12,R12,#3|
00000470  32 30 0d 00 43 04 0d 00  44 10 41 44 44 20 52 39  |20..C...D.ADD R9|
00000480  2c 52 39 2c 23 31 0d 00  45 0f 43 4d 50 20 52 39  |,R9,#1..E.CMP R9|
00000490  2c 23 32 35 35 0d 00 46  0d 42 4c 54 20 79 6c 6f  |,#255..F.BLT ylo|
000004a0  6f 70 0d 00 47 04 0d 00  48 04 0d 00 49 0e 4d 4f  |op..G...H...I.MO|
000004b0  56 20 50 43 2c 52 31 34  0d 00 4a 17 2e 73 31 20  |V PC,R14..J..s1 |
000004c0  20 20 20 20 20 20 20 45  51 55 44 20 31 34 38 0d  |       EQUD 148.|
000004d0  00 4b 16 20 20 20 20 20  20 20 20 20 20 20 45 51  |.K.           EQ|
000004e0  55 44 20 2d 31 0d 00 4c  15 2e 73 32 20 20 20 20  |UD -1..L..s2    |
000004f0  20 20 20 20 45 51 55 44  20 30 0d 00 4d 1a 2e 67  |    EQUD 0..M..g|
00000500  72 69 64 5f 61 64 64 72  20 45 51 55 44 20 61 72  |rid_addr EQUD ar|
00000510  72 61 79 25 0d 00 4e 1d  2e 63 6f 6c 5f 61 64 64  |ray%..N..col_add|
00000520  72 20 20 45 51 55 44 20  63 6f 6c 5f 74 61 62 6c  |r  EQUD col_tabl|
00000530  65 0d 00 4f 15 2e 73 63  72 5f 61 64 64 65 72 20  |e..O..scr_adder |
00000540  45 51 55 44 20 30 0d 00  50 05 5d 0d 00 51 0a ed  |EQUD 0..P.]..Q..|
00000550  20 70 61 73 73 0d 00 52  04 0d 00 53 22 f4 20 2a  | pass..R...S". *|
00000560  2a 2a 2a 2a 2a 2a 2a 2a  20 53 65 74 75 70 20 63  |******** Setup c|
00000570  6f 6c 6f 75 72 20 74 61  62 6c 65 0d 00 54 11 6c  |olour table..T.l|
00000580  6f 63 3d 63 6f 6c 5f 74  61 62 6c 65 0d 00 55 19  |oc=col_table..U.|
00000590  c8 99 20 26 33 31 2c 73  31 2c 73 32 3a 62 61 73  |.. &31,s1,s2:bas|
000005a0  65 3d 21 73 32 0d 00 56  04 0d 00 57 0f e7 20 63  |e=!s2..V...W.. c|
000005b0  6f 6c 6f 75 72 25 20 8c  0d 00 58 13 e3 20 68 3d  |olour% ...X.. h=|
000005c0  30 20 b8 20 33 35 39 20  88 20 34 0d 00 59 42 c8  |0 . 359 . 4..YB.|
000005d0  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 43  |. "ColourTrans_C|
000005e0  6f 6e 76 65 72 74 48 53  56 54 6f 52 47 42 22 2c  |onvertHSVToRGB",|
000005f0  68 2a 36 35 30 30 30 2a  32 2c 31 33 30 2a 32 35  |h*65000*2,130*25|
00000600  36 2c 32 35 35 20 b8 20  72 2c 67 2c 62 0d 00 5a  |6,255 . r,g,b..Z|
00000610  33 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |3.. "ColourTrans|
00000620  5f 53 65 74 47 43 4f 4c  22 2c 28 72 3c 3c 38 29  |_SetGCOL",(r<<8)|
00000630  2b 28 67 3c 3c 31 36 29  2b 28 62 3c 3c 32 34 29  |+(g<<16)+(b<<24)|
00000640  0d 00 5b 0d c8 92 20 30  2c 31 30 32 33 0d 00 5c  |..[... 0,1023..\|
00000650  0e 3f 6c 6f 63 3d 3f 62  61 73 65 0d 00 5d 0a 6c  |.?loc=?base..].l|
00000660  6f 63 2b 3d 31 0d 00 5e  07 ed 20 68 0d 00 5f 05  |oc+=1..^.. h.._.|
00000670  cc 0d 00 60 0e e3 20 72  3d 30 20 b8 20 38 39 0d  |...`.. r=0 . 89.|
00000680  00 61 04 0d 00 62 38 e7  20 72 3c 34 35 20 8c 20  |.a...b8. r<45 . |
00000690  67 3d 28 34 35 2d 72 29  2a 32 2e 38 33 33 33 33  |g=(45-r)*2.83333|
000006a0  2b 31 32 38 20 8b 20 67  3d 28 72 2d 34 35 29 2a  |+128 . g=(r-45)*|
000006b0  32 2e 38 33 33 33 33 2b  31 32 38 0d 00 63 04 0d  |2.83333+128..c..|
000006c0  00 64 33 c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  |.d3.. "ColourTra|
000006d0  6e 73 5f 53 65 74 47 43  4f 4c 22 2c 28 67 3c 3c  |ns_SetGCOL",(g<<|
000006e0  38 29 2b 28 67 3c 3c 31  36 29 2b 28 67 3c 3c 32  |8)+(g<<16)+(g<<2|
000006f0  34 29 0d 00 65 0d c8 92  20 30 2c 31 30 32 33 0d  |4)..e... 0,1023.|
00000700  00 66 0e 3f 6c 6f 63 3d  3f 62 61 73 65 0d 00 67  |.f.?loc=?base..g|
00000710  0a 6c 6f 63 2b 3d 31 0d  00 68 07 ed 20 72 0d 00  |.loc+=1..h.. r..|
00000720  69 05 cd 0d 00 6a 04 0d  00 6b 0b 3f 62 61 73 65  |i....j...k.?base|
00000730  3d 30 0d 00 6c 04 0d 00  6d 04 0d 00 6e 1a f4 20  |=0..l...m...n.. |
00000740  2a 2a 2a 2a 2a 2a 2a 2a  2a 20 53 65 74 75 70 20  |********* Setup |
00000750  67 72 69 64 0d 00 6f 27  e3 20 6c 6f 63 3d 61 72  |grid..o'. loc=ar|
00000760  72 61 79 25 20 b8 20 61  72 72 61 79 25 2b 33 32  |ray% . array%+32|
00000770  30 2a 32 35 36 2d 31 20  88 20 34 0d 00 70 11 21  |0*256-1 . 4..p.!|
00000780  6c 6f 63 3d b3 28 31 3c  3c 33 30 29 0d 00 71 05  |loc=.(1<<30)..q.|
00000790  ed 0d 00 72 05 db 0d 00  73 05 e1 0d ff           |...r....s....|
0000079d

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .