StarInfo/Boham/small/PlasmaCol

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

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/small/PlasmaCol
Read OK:	✔
File size:	0781 bytes
Load address:	0000
Exec address:	0000

File contents

   10MODE 15
   20MODE 13:OFF
   30colour%=TRUE
   40PROCass:OFF
   50S1=1:S2=2
   60TIME=0
   70REPEAT
   71WAIT
   80SYS 6,112,S1:SYS 6,113,S2:SWAP S1,S2
   90CALL plot_grid
  100UNTIL 0=1
  110MODE 13
  120END
  130:
  140DEF PROCass
  150DIM code% 2048,array% 150*150,col_table 90
  160FOR pass=0 TO 2 STEP 2
  170P%=code%
  180[OPT pass
  190.plot_grid
  200ADR R0,s1:ADR R1,s2:SWI &31
  210LDR R12,s2                        ;r12 - scr, r11 - grid, r10 - col_table
  220LDR R11,grid_addr
  230LDR R10,col_addr
  240LDR R0,scr_adder
  250ADD R12,R12,R0
  260MOV R9,#0
  270.yloop
  280MOV R8,#0                   ;r9 =y, r8 = x
  290.xloop
  300LDRB R0,[R11]
  310LDRB R1,[R11,#-150]
  320LDRB R2,[R11,#1]
  330LDRB R3,[R11,#150]
  340
  350CMP R0,#45:ADDLT R0,R0,#1:SUBGT R0,R0,#1
  360CMP R1,#25:ADDLT R1,R1,#2:SUBGT R1,R1,#2
  370CMP R2,#65:ADDLT R2,R2,#2:SUBGT R2,R2,#2
  380CMP R3,#80:ADDLT R3,R3,#2:SUBGT R3,R3,#2
  390
  400
  410ADD R0,R0,R1
  420ADD R0,R0,R2
  430ADD R0,R0,R3
  440MOV R0,R0,LSR #2
  450
  460ADD R0,R0,#5
  470CMP R0,#90
  480MOVGE R0,#0
  490
  500
  510STRB R0,[R11]
  520
  530LDRB R1,[R10,R0]
  540STRB R1,[R12]
  550
  560ADD R11,R11,#1
  570ADD R12,R12,#1
  580
  590
  600
  610ADD R8,R8,#1
  620CMP R8,#149
  630BLE xloop
  640
  650ADD R12,R12,#320-150
  660
  670ADD R9,R9,#1
  680CMP R9,#145
  690BLT yloop
  700
  710
  720MOV PC,R14
  730.s1        EQUD 148
  740           EQUD -1
  750.s2        EQUD 0
  760.grid_addr EQUD array%
  770.col_addr  EQUD col_table
  780.scr_adder EQUD 50*320 + 85
  790]
  800NEXT pass
  810
  820REM ********* Setup colour table
  830loc=col_table
  840SYS &31,s1,s2:base=!s2
  850
  860IF colour% THEN
  870FOR h=0 TO 359 STEP 4
  880SYS "ColourTrans_ConvertHSVToRGB",h*65000*2,130*256,255 TO r,g,b
  890SYS "ColourTrans_SetGCOL",(r<<8)+(g<<16)+(b<<24)
  900POINT 0,1023
  910?loc=?base
  920loc+=1
  930NEXT h
  940ELSE
  950FOR r=0 TO 89
  960
  970IF r<45 THEN g=(45-r)*2.83333+128 ELSE g=(r-45)*2.83333+128
  980
  990SYS "ColourTrans_SetGCOL",(g<<8)+(g<<16)+(g<<24)
 1000POINT 0,1023
 1010?loc=?base
 1020loc+=1
 1030NEXT r
 1040ENDIF
 1050
 1060?base=0
 1070
 1080
 1090REM ********* Setup grid
 1100FOR loc=array% TO array%+150*150-1
 1110?loc=RND(255)
 1120NEXT
 1130CLS
 1140ENDPROC


� 15

� 13:�

colour%=�
(
�ass:�
2
S1=1:S2=2
<�=0
F�
GȖ
P$ș 6,112,S1:ș 6,113,S2:Ȕ S1,S2
Z� plot_grid
d	� 0=1
n� 13
x�
�:
�
� �ass
�,� code% 2048,array% 150*150,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]
6LDRB R1,[R11,#-150]
@LDRB R2,[R11,#1]
JLDRB R3,[R11,#150]
T
^,CMP R0,#45:ADDLT R0,R0,#1:SUBGT R0,R0,#1
h,CMP R1,#25:ADDLT R1,R1,#2:SUBGT R1,R1,#2
r,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
�CMP R0,#90
�MOVGE R0,#0
�
�
�STRB R0,[R11]

LDRB R1,[R10,R0]
STRB R1,[R12]
&
0ADD R11,R11,#1
:ADD R12,R12,#1
D
N
X
bADD R8,R8,#1
lCMP R8,#149
v
BLE xloop
�
�ADD R12,R12,#320-150
�
�ADD R9,R9,#1
�CMP R9,#145
�
BLT yloop
�
�
�MOV PC,R14
�.s1        EQUD 148
�           EQUD -1
�.s2        EQUD 0
�.grid_addr EQUD array%
.col_addr  EQUD col_table
.scr_adder EQUD 50*320 + 85
]
 
� pass
*
4"� ********* Setup colour table
>loc=col_table
Hș &31,s1,s2:base=!s2
R
\� colour% �
f� h=0 � 359 � 4
pBș "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
�
�8� r<45 � g=(45-r)*2.83333+128 � g=(r-45)*2.83333+128
�
�3ș "ColourTrans_SetGCOL",(g<<8)+(g<<16)+(g<<24)
�
Ȓ 0,1023
�?loc=?base
�
loc+=1
� r
�

$?base=0
.
8
B� ********* Setup grid
L#� loc=array% � array%+150*150-1
V?loc=�(255)
`�
j�
t�
�

00000000  0d 00 0a 08 eb 20 31 35  0d 00 14 0a eb 20 31 33  |..... 15..... 13|
00000010  3a 87 0d 00 1e 0d 63 6f  6c 6f 75 72 25 3d b9 0d  |:.....colour%=..|
00000020  00 28 0a f2 61 73 73 3a  87 0d 00 32 0d 53 31 3d  |.(..ass:...2.S1=|
00000030  31 3a 53 32 3d 32 0d 00  3c 07 d1 3d 30 0d 00 46  |1:S2=2..<..=0..F|
00000040  05 f5 0d 00 47 06 c8 96  0d 00 50 24 c8 99 20 36  |....G.....P$.. 6|
00000050  2c 31 31 32 2c 53 31 3a  c8 99 20 36 2c 31 31 33  |,112,S1:.. 6,113|
00000060  2c 53 32 3a c8 94 20 53  31 2c 53 32 0d 00 5a 0f  |,S2:.. S1,S2..Z.|
00000070  d6 20 70 6c 6f 74 5f 67  72 69 64 0d 00 64 09 fd  |. plot_grid..d..|
00000080  20 30 3d 31 0d 00 6e 08  eb 20 31 33 0d 00 78 05  | 0=1..n.. 13..x.|
00000090  e0 0d 00 82 05 3a 0d 00  8c 0a dd 20 f2 61 73 73  |.....:..... .ass|
000000a0  0d 00 96 2c de 20 63 6f  64 65 25 20 32 30 34 38  |...,. code% 2048|
000000b0  2c 61 72 72 61 79 25 20  31 35 30 2a 31 35 30 2c  |,array% 150*150,|
000000c0  63 6f 6c 5f 74 61 62 6c  65 20 39 30 0d 00 a0 14  |col_table 90....|
000000d0  e3 20 70 61 73 73 3d 30  20 b8 20 32 20 88 20 32  |. pass=0 . 2 . 2|
000000e0  0d 00 aa 0c 50 25 3d 63  6f 64 65 25 0d 00 b4 0d  |....P%=code%....|
000000f0  5b 4f 50 54 20 70 61 73  73 0d 00 be 0e 2e 70 6c  |[OPT pass.....pl|
00000100  6f 74 5f 67 72 69 64 0d  00 c8 1f 41 44 52 20 52  |ot_grid....ADR R|
00000110  30 2c 73 31 3a 41 44 52  20 52 31 2c 73 32 3a 53  |0,s1:ADR R1,s2:S|
00000120  57 49 20 26 33 31 0d 00  d2 4d 4c 44 52 20 52 31  |WI &31...MLDR R1|
00000130  32 2c 73 32 20 20 20 20  20 20 20 20 20 20 20 20  |2,s2            |
00000140  20 20 20 20 20 20 20 20  20 20 20 20 3b 72 31 32  |            ;r12|
00000150  20 2d 20 73 63 72 2c 20  72 31 31 20 2d 20 67 72  | - scr, r11 - gr|
00000160  69 64 2c 20 72 31 30 20  2d 20 63 6f 6c 5f 74 61  |id, r10 - col_ta|
00000170  62 6c 65 0d 00 dc 15 4c  44 52 20 52 31 31 2c 67  |ble....LDR R11,g|
00000180  72 69 64 5f 61 64 64 72  0d 00 e6 14 4c 44 52 20  |rid_addr....LDR |
00000190  52 31 30 2c 63 6f 6c 5f  61 64 64 72 0d 00 f0 14  |R10,col_addr....|
000001a0  4c 44 52 20 52 30 2c 73  63 72 5f 61 64 64 65 72  |LDR R0,scr_adder|
000001b0  0d 00 fa 12 41 44 44 20  52 31 32 2c 52 31 32 2c  |....ADD R12,R12,|
000001c0  52 30 0d 01 04 0d 4d 4f  56 20 52 39 2c 23 30 0d  |R0....MOV R9,#0.|
000001d0  01 0e 0a 2e 79 6c 6f 6f  70 0d 01 18 2e 4d 4f 56  |....yloop....MOV|
000001e0  20 52 38 2c 23 30 20 20  20 20 20 20 20 20 20 20  | R8,#0          |
000001f0  20 20 20 20 20 20 20 20  20 3b 72 39 20 3d 79 2c  |         ;r9 =y,|
00000200  20 72 38 20 3d 20 78 0d  01 22 0a 2e 78 6c 6f 6f  | r8 = x.."..xloo|
00000210  70 0d 01 2c 11 4c 44 52  42 20 52 30 2c 5b 52 31  |p..,.LDRB R0,[R1|
00000220  31 5d 0d 01 36 17 4c 44  52 42 20 52 31 2c 5b 52  |1]..6.LDRB R1,[R|
00000230  31 31 2c 23 2d 31 35 30  5d 0d 01 40 14 4c 44 52  |11,#-150]..@.LDR|
00000240  42 20 52 32 2c 5b 52 31  31 2c 23 31 5d 0d 01 4a  |B R2,[R11,#1]..J|
00000250  16 4c 44 52 42 20 52 33  2c 5b 52 31 31 2c 23 31  |.LDRB R3,[R11,#1|
00000260  35 30 5d 0d 01 54 04 0d  01 5e 2c 43 4d 50 20 52  |50]..T...^,CMP R|
00000270  30 2c 23 34 35 3a 41 44  44 4c 54 20 52 30 2c 52  |0,#45:ADDLT R0,R|
00000280  30 2c 23 31 3a 53 55 42  47 54 20 52 30 2c 52 30  |0,#1:SUBGT R0,R0|
00000290  2c 23 31 0d 01 68 2c 43  4d 50 20 52 31 2c 23 32  |,#1..h,CMP R1,#2|
000002a0  35 3a 41 44 44 4c 54 20  52 31 2c 52 31 2c 23 32  |5:ADDLT R1,R1,#2|
000002b0  3a 53 55 42 47 54 20 52  31 2c 52 31 2c 23 32 0d  |:SUBGT R1,R1,#2.|
000002c0  01 72 2c 43 4d 50 20 52  32 2c 23 36 35 3a 41 44  |.r,CMP R2,#65:AD|
000002d0  44 4c 54 20 52 32 2c 52  32 2c 23 32 3a 53 55 42  |DLT R2,R2,#2:SUB|
000002e0  47 54 20 52 32 2c 52 32  2c 23 32 0d 01 7c 2c 43  |GT R2,R2,#2..|,C|
000002f0  4d 50 20 52 33 2c 23 38  30 3a 41 44 44 4c 54 20  |MP R3,#80:ADDLT |
00000300  52 33 2c 52 33 2c 23 32  3a 53 55 42 47 54 20 52  |R3,R3,#2:SUBGT R|
00000310  33 2c 52 33 2c 23 32 0d  01 86 04 0d 01 90 04 0d  |3,R3,#2.........|
00000320  01 9a 10 41 44 44 20 52  30 2c 52 30 2c 52 31 0d  |...ADD R0,R0,R1.|
00000330  01 a4 10 41 44 44 20 52  30 2c 52 30 2c 52 32 0d  |...ADD R0,R0,R2.|
00000340  01 ae 10 41 44 44 20 52  30 2c 52 30 2c 52 33 0d  |...ADD R0,R0,R3.|
00000350  01 b8 14 4d 4f 56 20 52  30 2c 52 30 2c 4c 53 52  |...MOV R0,R0,LSR|
00000360  20 23 32 0d 01 c2 04 0d  01 cc 10 41 44 44 20 52  | #2........ADD R|
00000370  30 2c 52 30 2c 23 35 0d  01 d6 0e 43 4d 50 20 52  |0,R0,#5....CMP R|
00000380  30 2c 23 39 30 0d 01 e0  0f 4d 4f 56 47 45 20 52  |0,#90....MOVGE R|
00000390  30 2c 23 30 0d 01 ea 04  0d 01 f4 04 0d 01 fe 11  |0,#0............|
000003a0  53 54 52 42 20 52 30 2c  5b 52 31 31 5d 0d 02 08  |STRB R0,[R11]...|
000003b0  04 0d 02 12 14 4c 44 52  42 20 52 31 2c 5b 52 31  |.....LDRB R1,[R1|
000003c0  30 2c 52 30 5d 0d 02 1c  11 53 54 52 42 20 52 31  |0,R0]....STRB R1|
000003d0  2c 5b 52 31 32 5d 0d 02  26 04 0d 02 30 12 41 44  |,[R12]..&...0.AD|
000003e0  44 20 52 31 31 2c 52 31  31 2c 23 31 0d 02 3a 12  |D R11,R11,#1..:.|
000003f0  41 44 44 20 52 31 32 2c  52 31 32 2c 23 31 0d 02  |ADD R12,R12,#1..|
00000400  44 04 0d 02 4e 04 0d 02  58 04 0d 02 62 10 41 44  |D...N...X...b.AD|
00000410  44 20 52 38 2c 52 38 2c  23 31 0d 02 6c 0f 43 4d  |D R8,R8,#1..l.CM|
00000420  50 20 52 38 2c 23 31 34  39 0d 02 76 0d 42 4c 45  |P R8,#149..v.BLE|
00000430  20 78 6c 6f 6f 70 0d 02  80 04 0d 02 8a 18 41 44  | xloop........AD|
00000440  44 20 52 31 32 2c 52 31  32 2c 23 33 32 30 2d 31  |D R12,R12,#320-1|
00000450  35 30 0d 02 94 04 0d 02  9e 10 41 44 44 20 52 39  |50........ADD R9|
00000460  2c 52 39 2c 23 31 0d 02  a8 0f 43 4d 50 20 52 39  |,R9,#1....CMP R9|
00000470  2c 23 31 34 35 0d 02 b2  0d 42 4c 54 20 79 6c 6f  |,#145....BLT ylo|
00000480  6f 70 0d 02 bc 04 0d 02  c6 04 0d 02 d0 0e 4d 4f  |op............MO|
00000490  56 20 50 43 2c 52 31 34  0d 02 da 17 2e 73 31 20  |V PC,R14.....s1 |
000004a0  20 20 20 20 20 20 20 45  51 55 44 20 31 34 38 0d  |       EQUD 148.|
000004b0  02 e4 16 20 20 20 20 20  20 20 20 20 20 20 45 51  |...           EQ|
000004c0  55 44 20 2d 31 0d 02 ee  15 2e 73 32 20 20 20 20  |UD -1.....s2    |
000004d0  20 20 20 20 45 51 55 44  20 30 0d 02 f8 1a 2e 67  |    EQUD 0.....g|
000004e0  72 69 64 5f 61 64 64 72  20 45 51 55 44 20 61 72  |rid_addr EQUD ar|
000004f0  72 61 79 25 0d 03 02 1d  2e 63 6f 6c 5f 61 64 64  |ray%.....col_add|
00000500  72 20 20 45 51 55 44 20  63 6f 6c 5f 74 61 62 6c  |r  EQUD col_tabl|
00000510  65 0d 03 0c 1f 2e 73 63  72 5f 61 64 64 65 72 20  |e.....scr_adder |
00000520  45 51 55 44 20 35 30 2a  33 32 30 20 2b 20 38 35  |EQUD 50*320 + 85|
00000530  0d 03 16 05 5d 0d 03 20  0a ed 20 70 61 73 73 0d  |....].. .. pass.|
00000540  03 2a 04 0d 03 34 22 f4  20 2a 2a 2a 2a 2a 2a 2a  |.*...4". *******|
00000550  2a 2a 20 53 65 74 75 70  20 63 6f 6c 6f 75 72 20  |** Setup colour |
00000560  74 61 62 6c 65 0d 03 3e  11 6c 6f 63 3d 63 6f 6c  |table..>.loc=col|
00000570  5f 74 61 62 6c 65 0d 03  48 19 c8 99 20 26 33 31  |_table..H... &31|
00000580  2c 73 31 2c 73 32 3a 62  61 73 65 3d 21 73 32 0d  |,s1,s2:base=!s2.|
00000590  03 52 04 0d 03 5c 0f e7  20 63 6f 6c 6f 75 72 25  |.R...\.. colour%|
000005a0  20 8c 0d 03 66 13 e3 20  68 3d 30 20 b8 20 33 35  | ...f.. h=0 . 35|
000005b0  39 20 88 20 34 0d 03 70  42 c8 99 20 22 43 6f 6c  |9 . 4..pB.. "Col|
000005c0  6f 75 72 54 72 61 6e 73  5f 43 6f 6e 76 65 72 74  |ourTrans_Convert|
000005d0  48 53 56 54 6f 52 47 42  22 2c 68 2a 36 35 30 30  |HSVToRGB",h*6500|
000005e0  30 2a 32 2c 31 33 30 2a  32 35 36 2c 32 35 35 20  |0*2,130*256,255 |
000005f0  b8 20 72 2c 67 2c 62 0d  03 7a 33 c8 99 20 22 43  |. r,g,b..z3.. "C|
00000600  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00000610  4f 4c 22 2c 28 72 3c 3c  38 29 2b 28 67 3c 3c 31  |OL",(r<<8)+(g<<1|
00000620  36 29 2b 28 62 3c 3c 32  34 29 0d 03 84 0d c8 92  |6)+(b<<24)......|
00000630  20 30 2c 31 30 32 33 0d  03 8e 0e 3f 6c 6f 63 3d  | 0,1023....?loc=|
00000640  3f 62 61 73 65 0d 03 98  0a 6c 6f 63 2b 3d 31 0d  |?base....loc+=1.|
00000650  03 a2 07 ed 20 68 0d 03  ac 05 cc 0d 03 b6 0e e3  |.... h..........|
00000660  20 72 3d 30 20 b8 20 38  39 0d 03 c0 04 0d 03 ca  | r=0 . 89.......|
00000670  38 e7 20 72 3c 34 35 20  8c 20 67 3d 28 34 35 2d  |8. r<45 . g=(45-|
00000680  72 29 2a 32 2e 38 33 33  33 33 2b 31 32 38 20 8b  |r)*2.83333+128 .|
00000690  20 67 3d 28 72 2d 34 35  29 2a 32 2e 38 33 33 33  | g=(r-45)*2.8333|
000006a0  33 2b 31 32 38 0d 03 d4  04 0d 03 de 33 c8 99 20  |3+128.......3.. |
000006b0  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
000006c0  47 43 4f 4c 22 2c 28 67  3c 3c 38 29 2b 28 67 3c  |GCOL",(g<<8)+(g<|
000006d0  3c 31 36 29 2b 28 67 3c  3c 32 34 29 0d 03 e8 0d  |<16)+(g<<24)....|
000006e0  c8 92 20 30 2c 31 30 32  33 0d 03 f2 0e 3f 6c 6f  |.. 0,1023....?lo|
000006f0  63 3d 3f 62 61 73 65 0d  03 fc 0a 6c 6f 63 2b 3d  |c=?base....loc+=|
00000700  31 0d 04 06 07 ed 20 72  0d 04 10 05 cd 0d 04 1a  |1..... r........|
00000710  04 0d 04 24 0b 3f 62 61  73 65 3d 30 0d 04 2e 04  |...$.?base=0....|
00000720  0d 04 38 04 0d 04 42 1a  f4 20 2a 2a 2a 2a 2a 2a  |..8...B.. ******|
00000730  2a 2a 2a 20 53 65 74 75  70 20 67 72 69 64 0d 04  |*** Setup grid..|
00000740  4c 23 e3 20 6c 6f 63 3d  61 72 72 61 79 25 20 b8  |L#. loc=array% .|
00000750  20 61 72 72 61 79 25 2b  31 35 30 2a 31 35 30 2d  | array%+150*150-|
00000760  31 0d 04 56 0f 3f 6c 6f  63 3d b3 28 32 35 35 29  |1..V.?loc=.(255)|
00000770  0d 04 60 05 ed 0d 04 6a  05 db 0d 04 74 05 e1 0d  |..`....j....t...|
00000780  ff                                                |.|
00000781

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