� � �:�" at line ";�:�

(� Machine Code Plasma landscape prog
(� by Nigel Stoner
2� � 1996
<
F
� 12:�
P� code 1000, rand 4096
Z$� p%=0 � 4096:rand!p%=�(15):� p%
d
n
�assemble
x	�main
��
�
�� �assemble
�
�
� regs
�
upto=0
�
xgap=1
�
ygap=2
�x=3
�y=4
�color1=5
�color2=6
�screen=7

array=8


rnd=10

rndc=11

"

,� pass = 0 � 2 � 2

6P%=code

@
[OPT pass

J
.start

TSTMFD R13!,{R14}

^LDR rnd,array

hLDR rndc,rndcount

rMOV y,#0

|LDR ygap,ystep

�LDR screen,base%

�ADR color1,lookup

�.loopone

�LDRB R0,[R10,R11]

�ADD R11,R11,#1

�CMP R11,#4096

�MOVGE R11,#0

�STR R11,rndcount

�MOV x,y,ASL#6

�ADD x,x,y,ASL#8

�STRB R0,[screen,x]

�ADD y,y,ygap

�CMP y,#240
BLE loopone
MOV y,#0
LDR ygap,ystep
&MOV R8,ygap,ASL#6
0ADD R8,R8,ygap,ASL#8
:MOV R9,R8,ASR#1
DADR R0,lookup
N.looptwo
XLDR screen,base%
bADD screen,screen,y,ASL#6
lADD screen,screen,y,ASL#8
vLDRB color1,[screen]
�LDRB color2,[screen,R8]
�ADD  color1,color1,color2
�MOV  color1,color1,ASR#1
�;LDRB color2,[R0,color1]
�STRB color1,[screen,R9]
�ADD y,y,ygap
�CMP y,#238
�BLE looptwo
�MOV y,#0
�MOV ygap,ygap,ASR#1
�MOV R8,R8,ASR#1
�MOV R9,R9,ASR#1
�CMP ygap,#1
BNE looptwo
MOV y,#0
MOV x,#0
 LDR xgap,xstep
*.loopthree
4LDR screen,base%
>MOV R9,y,ASL#6
HADD R9,R9,y,ASL#8
RADD R9,R9,x
\ADD screen,screen,R9
fLDRB color1,[screen]
pLDRB color2,[screen,xgap]
zADD color1,color1,color2
�MOV color1,color1,ASR#1
�LDRB R0,[R10,R11]
�ADD R11,R11,#1
�CMP R11,#4096
�MOVGE R11,#0
�;STR R11,rndcount
�MOV R0,R0,ASR#3
�ADD color1,color1,R0
�CMP color1,#12
�MOVGE color1,#12
�CMP color1,#0
�MOVLE color1,#0
�#STRB color1,[screen,xgap,ASR#1]
ADD y,y,#1
CMP y,#240
BLE loopthree
$MOV y,#0
.ADD x,x,xgap
8CMP x,#!xstep
BBLE loopthree
LMOV x,#0
VMOV xgap,xgap,ASR#1
`CMP xgap,#2
jBGE loopthree
tLDMFD R13!,{PC}
~
�
.xstep
�
EQUD 8
�
.ystep
�
EQUD 8
�
.base%
�EQUD 149
�EQUD -1
�.lookup
�EQUD &CFAB8B88
�EQUD &47636F7F
�EQUD &31545E50
�EQUD &FFFCD22F

.array


EQUD rand

.rndcount
EQUD �(4096)
(]
2
� pass
<(ș "OS_ReadVduVariables",base%,base%
F�
P
Z� �main
d	m%=31
n�=9700:�cycle
xP�:� m%=0 � 31 � 4:� 0,60:�1280,1024:ș"OS_Plot",189,4,60:� m%:� start:Ȗ:� �
��
�
�_� �cycle:c1%=�/10:c2%=�/11:c3%=�/12:� d%=1 � 15:� d%,c1%+d%<<4,-c2%-d%<<4,-c3%-d%<<4:� d%:�
�

00000000  0d 00 0a 1a ee 20 85 20  f6 3a f1 22 20 61 74 20  |..... . .:." at |
00000010  6c 69 6e 65 20 22 3b 9e  3a e0 0d 00 14 04 0d 00  |line ";.:.......|
00000020  1e 28 f4 20 4d 61 63 68  69 6e 65 20 43 6f 64 65  |.(. Machine Code|
00000030  20 50 6c 61 73 6d 61 20  6c 61 6e 64 73 63 61 70  | Plasma landscap|
00000040  65 20 70 72 6f 67 0d 00  28 15 f4 20 62 79 20 4e  |e prog..(.. by N|
00000050  69 67 65 6c 20 53 74 6f  6e 65 72 0d 00 32 0c f4  |igel Stoner..2..|
00000060  20 a9 20 31 39 39 36 0d  00 3c 04 0d 00 46 0a eb  | . 1996..<...F..|
00000070  20 31 32 3a 87 0d 00 50  1a de 20 63 6f 64 65 20  | 12:...P.. code |
00000080  31 30 30 30 2c 20 72 61  6e 64 20 34 30 39 36 0d  |1000, rand 4096.|
00000090  00 5a 24 e3 20 70 25 3d  30 20 b8 20 34 30 39 36  |.Z$. p%=0 . 4096|
000000a0  3a 72 61 6e 64 21 70 25  3d b3 28 31 35 29 3a ed  |:rand!p%=.(15):.|
000000b0  20 70 25 0d 00 64 04 0d  00 6e 0d f2 61 73 73 65  | p%..d...n..asse|
000000c0  6d 62 6c 65 0d 00 78 09  f2 6d 61 69 6e 0d 00 82  |mble..x..main...|
000000d0  05 e0 0d 00 8c 04 0d 00  96 0f dd 20 f2 61 73 73  |........... .ass|
000000e0  65 6d 62 6c 65 0d 00 a0  04 0d 00 aa 0a f4 20 72  |emble......... r|
000000f0  65 67 73 0d 00 b4 0a 75  70 74 6f 3d 30 0d 00 be  |egs....upto=0...|
00000100  0a 78 67 61 70 3d 31 0d  00 c8 0a 79 67 61 70 3d  |.xgap=1....ygap=|
00000110  32 0d 00 d2 07 78 3d 33  0d 00 dc 07 79 3d 34 0d  |2....x=3....y=4.|
00000120  00 e6 0c 63 6f 6c 6f 72  31 3d 35 0d 00 f0 0c 63  |...color1=5....c|
00000130  6f 6c 6f 72 32 3d 36 0d  00 fa 0c 73 63 72 65 65  |olor2=6....scree|
00000140  6e 3d 37 0d 01 04 0b 61  72 72 61 79 3d 38 0d 01  |n=7....array=8..|
00000150  0e 0a 72 6e 64 3d 31 30  0d 01 18 0b 72 6e 64 63  |..rnd=10....rndc|
00000160  3d 31 31 0d 01 22 04 0d  01 2c 16 e3 20 70 61 73  |=11.."...,.. pas|
00000170  73 20 3d 20 30 20 b8 20  32 20 88 20 32 0d 01 36  |s = 0 . 2 . 2..6|
00000180  0b 50 25 3d 63 6f 64 65  0d 01 40 0d 5b 4f 50 54  |.P%=code..@.[OPT|
00000190  20 70 61 73 73 0d 01 4a  0a 2e 73 74 61 72 74 0d  | pass..J..start.|
000001a0  01 54 14 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |.T.STMFD R13!,{R|
000001b0  31 34 7d 0d 01 5e 11 4c  44 52 20 72 6e 64 2c 61  |14}..^.LDR rnd,a|
000001c0  72 72 61 79 0d 01 68 15  4c 44 52 20 72 6e 64 63  |rray..h.LDR rndc|
000001d0  2c 72 6e 64 63 6f 75 6e  74 0d 01 72 0c 4d 4f 56  |,rndcount..r.MOV|
000001e0  20 79 2c 23 30 0d 01 7c  12 4c 44 52 20 79 67 61  | y,#0..|.LDR yga|
000001f0  70 2c 79 73 74 65 70 0d  01 86 14 4c 44 52 20 73  |p,ystep....LDR s|
00000200  63 72 65 65 6e 2c 62 61  73 65 25 0d 01 90 15 41  |creen,base%....A|
00000210  44 52 20 63 6f 6c 6f 72  31 2c 6c 6f 6f 6b 75 70  |DR color1,lookup|
00000220  0d 01 9a 0c 2e 6c 6f 6f  70 6f 6e 65 0d 01 a4 15  |.....loopone....|
00000230  4c 44 52 42 20 52 30 2c  5b 52 31 30 2c 52 31 31  |LDRB R0,[R10,R11|
00000240  5d 0d 01 ae 12 41 44 44  20 52 31 31 2c 52 31 31  |]....ADD R11,R11|
00000250  2c 23 31 0d 01 b8 11 43  4d 50 20 52 31 31 2c 23  |,#1....CMP R11,#|
00000260  34 30 39 36 0d 01 c2 10  4d 4f 56 47 45 20 52 31  |4096....MOVGE R1|
00000270  31 2c 23 30 0d 01 cc 14  53 54 52 20 52 31 31 2c  |1,#0....STR R11,|
00000280  72 6e 64 63 6f 75 6e 74  0d 01 d6 11 4d 4f 56 20  |rndcount....MOV |
00000290  78 2c 79 2c 41 53 4c 23  36 0d 01 e0 13 41 44 44  |x,y,ASL#6....ADD|
000002a0  20 78 2c 78 2c 79 2c 41  53 4c 23 38 0d 01 ea 16  | x,x,y,ASL#8....|
000002b0  53 54 52 42 20 52 30 2c  5b 73 63 72 65 65 6e 2c  |STRB R0,[screen,|
000002c0  78 5d 0d 01 f4 10 41 44  44 20 79 2c 79 2c 79 67  |x]....ADD y,y,yg|
000002d0  61 70 0d 01 fe 0e 43 4d  50 20 79 2c 23 32 34 30  |ap....CMP y,#240|
000002e0  0d 02 08 0f 42 4c 45 20  6c 6f 6f 70 6f 6e 65 0d  |....BLE loopone.|
000002f0  02 12 0c 4d 4f 56 20 79  2c 23 30 0d 02 1c 12 4c  |...MOV y,#0....L|
00000300  44 52 20 79 67 61 70 2c  79 73 74 65 70 0d 02 26  |DR ygap,ystep..&|
00000310  15 4d 4f 56 20 52 38 2c  79 67 61 70 2c 41 53 4c  |.MOV R8,ygap,ASL|
00000320  23 36 0d 02 30 18 41 44  44 20 52 38 2c 52 38 2c  |#6..0.ADD R8,R8,|
00000330  79 67 61 70 2c 41 53 4c  23 38 0d 02 3a 13 4d 4f  |ygap,ASL#8..:.MO|
00000340  56 20 52 39 2c 52 38 2c  41 53 52 23 31 0d 02 44  |V R9,R8,ASR#1..D|
00000350  11 41 44 52 20 52 30 2c  6c 6f 6f 6b 75 70 0d 02  |.ADR R0,lookup..|
00000360  4e 0c 2e 6c 6f 6f 70 74  77 6f 0d 02 58 14 4c 44  |N..looptwo..X.LD|
00000370  52 20 73 63 72 65 65 6e  2c 62 61 73 65 25 0d 02  |R screen,base%..|
00000380  62 1d 41 44 44 20 73 63  72 65 65 6e 2c 73 63 72  |b.ADD screen,scr|
00000390  65 65 6e 2c 79 2c 41 53  4c 23 36 0d 02 6c 1d 41  |een,y,ASL#6..l.A|
000003a0  44 44 20 73 63 72 65 65  6e 2c 73 63 72 65 65 6e  |DD screen,screen|
000003b0  2c 79 2c 41 53 4c 23 38  0d 02 76 18 4c 44 52 42  |,y,ASL#8..v.LDRB|
000003c0  20 63 6f 6c 6f 72 31 2c  5b 73 63 72 65 65 6e 5d  | color1,[screen]|
000003d0  0d 02 80 1b 4c 44 52 42  20 63 6f 6c 6f 72 32 2c  |....LDRB color2,|
000003e0  5b 73 63 72 65 65 6e 2c  52 38 5d 0d 02 8a 1d 41  |[screen,R8]....A|
000003f0  44 44 20 20 63 6f 6c 6f  72 31 2c 63 6f 6c 6f 72  |DD  color1,color|
00000400  31 2c 63 6f 6c 6f 72 32  0d 02 94 1c 4d 4f 56 20  |1,color2....MOV |
00000410  20 63 6f 6c 6f 72 31 2c  63 6f 6c 6f 72 31 2c 41  | color1,color1,A|
00000420  53 52 23 31 0d 02 9e 1c  3b 4c 44 52 42 20 63 6f  |SR#1....;LDRB co|
00000430  6c 6f 72 32 2c 5b 52 30  2c 63 6f 6c 6f 72 31 5d  |lor2,[R0,color1]|
00000440  0d 02 a8 1b 53 54 52 42  20 63 6f 6c 6f 72 31 2c  |....STRB color1,|
00000450  5b 73 63 72 65 65 6e 2c  52 39 5d 0d 02 b2 10 41  |[screen,R9]....A|
00000460  44 44 20 79 2c 79 2c 79  67 61 70 0d 02 bc 0e 43  |DD y,y,ygap....C|
00000470  4d 50 20 79 2c 23 32 33  38 0d 02 c6 0f 42 4c 45  |MP y,#238....BLE|
00000480  20 6c 6f 6f 70 74 77 6f  0d 02 d0 0c 4d 4f 56 20  | looptwo....MOV |
00000490  79 2c 23 30 0d 02 da 17  4d 4f 56 20 79 67 61 70  |y,#0....MOV ygap|
000004a0  2c 79 67 61 70 2c 41 53  52 23 31 0d 02 e4 13 4d  |,ygap,ASR#1....M|
000004b0  4f 56 20 52 38 2c 52 38  2c 41 53 52 23 31 0d 02  |OV R8,R8,ASR#1..|
000004c0  ee 13 4d 4f 56 20 52 39  2c 52 39 2c 41 53 52 23  |..MOV R9,R9,ASR#|
000004d0  31 0d 02 f8 0f 43 4d 50  20 79 67 61 70 2c 23 31  |1....CMP ygap,#1|
000004e0  0d 03 02 0f 42 4e 45 20  6c 6f 6f 70 74 77 6f 0d  |....BNE looptwo.|
000004f0  03 0c 0c 4d 4f 56 20 79  2c 23 30 0d 03 16 0c 4d  |...MOV y,#0....M|
00000500  4f 56 20 78 2c 23 30 0d  03 20 12 4c 44 52 20 78  |OV x,#0.. .LDR x|
00000510  67 61 70 2c 78 73 74 65  70 0d 03 2a 0e 2e 6c 6f  |gap,xstep..*..lo|
00000520  6f 70 74 68 72 65 65 0d  03 34 14 4c 44 52 20 73  |opthree..4.LDR s|
00000530  63 72 65 65 6e 2c 62 61  73 65 25 0d 03 3e 12 4d  |creen,base%..>.M|
00000540  4f 56 20 52 39 2c 79 2c  41 53 4c 23 36 0d 03 48  |OV R9,y,ASL#6..H|
00000550  15 41 44 44 20 52 39 2c  52 39 2c 79 2c 41 53 4c  |.ADD R9,R9,y,ASL|
00000560  23 38 0d 03 52 0f 41 44  44 20 52 39 2c 52 39 2c  |#8..R.ADD R9,R9,|
00000570  78 0d 03 5c 18 41 44 44  20 73 63 72 65 65 6e 2c  |x..\.ADD screen,|
00000580  73 63 72 65 65 6e 2c 52  39 0d 03 66 18 4c 44 52  |screen,R9..f.LDR|
00000590  42 20 63 6f 6c 6f 72 31  2c 5b 73 63 72 65 65 6e  |B color1,[screen|
000005a0  5d 0d 03 70 1d 4c 44 52  42 20 63 6f 6c 6f 72 32  |]..p.LDRB color2|
000005b0  2c 5b 73 63 72 65 65 6e  2c 78 67 61 70 5d 0d 03  |,[screen,xgap]..|
000005c0  7a 1c 41 44 44 20 63 6f  6c 6f 72 31 2c 63 6f 6c  |z.ADD color1,col|
000005d0  6f 72 31 2c 63 6f 6c 6f  72 32 0d 03 84 1b 4d 4f  |or1,color2....MO|
000005e0  56 20 63 6f 6c 6f 72 31  2c 63 6f 6c 6f 72 31 2c  |V color1,color1,|
000005f0  41 53 52 23 31 0d 03 8e  15 4c 44 52 42 20 52 30  |ASR#1....LDRB R0|
00000600  2c 5b 52 31 30 2c 52 31  31 5d 0d 03 98 12 41 44  |,[R10,R11]....AD|
00000610  44 20 52 31 31 2c 52 31  31 2c 23 31 0d 03 a2 11  |D R11,R11,#1....|
00000620  43 4d 50 20 52 31 31 2c  23 34 30 39 36 0d 03 ac  |CMP R11,#4096...|
00000630  10 4d 4f 56 47 45 20 52  31 31 2c 23 30 0d 03 b6  |.MOVGE R11,#0...|
00000640  15 3b 53 54 52 20 52 31  31 2c 72 6e 64 63 6f 75  |.;STR R11,rndcou|
00000650  6e 74 0d 03 c0 13 4d 4f  56 20 52 30 2c 52 30 2c  |nt....MOV R0,R0,|
00000660  41 53 52 23 33 0d 03 ca  18 41 44 44 20 63 6f 6c  |ASR#3....ADD col|
00000670  6f 72 31 2c 63 6f 6c 6f  72 31 2c 52 30 0d 03 d4  |or1,color1,R0...|
00000680  12 43 4d 50 20 63 6f 6c  6f 72 31 2c 23 31 32 0d  |.CMP color1,#12.|
00000690  03 de 14 4d 4f 56 47 45  20 63 6f 6c 6f 72 31 2c  |...MOVGE color1,|
000006a0  23 31 32 0d 03 e8 11 43  4d 50 20 63 6f 6c 6f 72  |#12....CMP color|
000006b0  31 2c 23 30 0d 03 f2 13  4d 4f 56 4c 45 20 63 6f  |1,#0....MOVLE co|
000006c0  6c 6f 72 31 2c 23 30 0d  03 fc 23 53 54 52 42 20  |lor1,#0...#STRB |
000006d0  63 6f 6c 6f 72 31 2c 5b  73 63 72 65 65 6e 2c 78  |color1,[screen,x|
000006e0  67 61 70 2c 41 53 52 23  31 5d 0d 04 06 0e 41 44  |gap,ASR#1]....AD|
000006f0  44 20 79 2c 79 2c 23 31  0d 04 10 0e 43 4d 50 20  |D y,y,#1....CMP |
00000700  79 2c 23 32 34 30 0d 04  1a 11 42 4c 45 20 6c 6f  |y,#240....BLE lo|
00000710  6f 70 74 68 72 65 65 0d  04 24 0c 4d 4f 56 20 79  |opthree..$.MOV y|
00000720  2c 23 30 0d 04 2e 10 41  44 44 20 78 2c 78 2c 78  |,#0....ADD x,x,x|
00000730  67 61 70 0d 04 38 11 43  4d 50 20 78 2c 23 21 78  |gap..8.CMP x,#!x|
00000740  73 74 65 70 0d 04 42 11  42 4c 45 20 6c 6f 6f 70  |step..B.BLE loop|
00000750  74 68 72 65 65 0d 04 4c  0c 4d 4f 56 20 78 2c 23  |three..L.MOV x,#|
00000760  30 0d 04 56 17 4d 4f 56  20 78 67 61 70 2c 78 67  |0..V.MOV xgap,xg|
00000770  61 70 2c 41 53 52 23 31  0d 04 60 0f 43 4d 50 20  |ap,ASR#1..`.CMP |
00000780  78 67 61 70 2c 23 32 0d  04 6a 11 42 47 45 20 6c  |xgap,#2..j.BGE l|
00000790  6f 6f 70 74 68 72 65 65  0d 04 74 13 4c 44 4d 46  |oopthree..t.LDMF|
000007a0  44 20 52 31 33 21 2c 7b  50 43 7d 0d 04 7e 04 0d  |D R13!,{PC}..~..|
000007b0  04 88 0a 2e 78 73 74 65  70 0d 04 92 0a 45 51 55  |....xstep....EQU|
000007c0  44 20 38 0d 04 9c 0a 2e  79 73 74 65 70 0d 04 a6  |D 8.....ystep...|
000007d0  0a 45 51 55 44 20 38 0d  04 b0 0a 2e 62 61 73 65  |.EQUD 8.....base|
000007e0  25 0d 04 ba 0c 45 51 55  44 20 31 34 39 0d 04 c4  |%....EQUD 149...|
000007f0  0b 45 51 55 44 20 2d 31  0d 04 ce 0b 2e 6c 6f 6f  |.EQUD -1.....loo|
00000800  6b 75 70 0d 04 d8 12 45  51 55 44 20 26 43 46 41  |kup....EQUD &CFA|
00000810  42 38 42 38 38 0d 04 e2  12 45 51 55 44 20 26 34  |B8B88....EQUD &4|
00000820  37 36 33 36 46 37 46 0d  04 ec 12 45 51 55 44 20  |7636F7F....EQUD |
00000830  26 33 31 35 34 35 45 35  30 0d 04 f6 12 45 51 55  |&31545E50....EQU|
00000840  44 20 26 46 46 46 43 44  32 32 46 0d 05 00 0a 2e  |D &FFFCD22F.....|
00000850  61 72 72 61 79 0d 05 0a  0d 45 51 55 44 20 72 61  |array....EQUD ra|
00000860  6e 64 0d 05 14 0d 2e 72  6e 64 63 6f 75 6e 74 0d  |nd.....rndcount.|
00000870  05 1e 10 45 51 55 44 20  b3 28 34 30 39 36 29 0d  |...EQUD .(4096).|
00000880  05 28 05 5d 0d 05 32 0a  ed 20 70 61 73 73 0d 05  |.(.]..2.. pass..|
00000890  3c 28 c8 99 20 22 4f 53  5f 52 65 61 64 56 64 75  |<(.. "OS_ReadVdu|
000008a0  56 61 72 69 61 62 6c 65  73 22 2c 62 61 73 65 25  |Variables",base%|
000008b0  2c 62 61 73 65 25 0d 05  46 05 e1 0d 05 50 04 0d  |,base%..F....P..|
000008c0  05 5a 0b dd 20 f2 6d 61  69 6e 0d 05 64 09 6d 25  |.Z.. .main..d.m%|
000008d0  3d 33 31 0d 05 6e 11 d1  3d 39 37 30 30 3a f2 63  |=31..n..=9700:.c|
000008e0  79 63 6c 65 0d 05 78 50  f5 3a e3 20 6d 25 3d 30  |ycle..xP.:. m%=0|
000008f0  20 b8 20 33 31 20 88 20  34 3a ec 20 30 2c 36 30  | . 31 . 4:. 0,60|
00000900  3a ec 31 32 38 30 2c 31  30 32 34 3a c8 99 22 4f  |:.1280,1024:.."O|
00000910  53 5f 50 6c 6f 74 22 2c  31 38 39 2c 34 2c 36 30  |S_Plot",189,4,60|
00000920  3a ed 20 6d 25 3a d6 20  73 74 61 72 74 3a c8 96  |:. m%:. start:..|
00000930  3a fd 20 a3 0d 05 82 05  e1 0d 05 8c 04 0d 05 96  |:. .............|
00000940  5f dd 20 f2 63 79 63 6c  65 3a 63 31 25 3d 91 2f  |_. .cycle:c1%=./|
00000950  31 30 3a 63 32 25 3d 91  2f 31 31 3a 63 33 25 3d  |10:c2%=./11:c3%=|
00000960  91 2f 31 32 3a e3 20 64  25 3d 31 20 b8 20 31 35  |./12:. d%=1 . 15|
00000970  3a fb 20 64 25 2c 63 31  25 2b 64 25 3c 3c 34 2c  |:. d%,c1%+d%<<4,|
00000980  2d 63 32 25 2d 64 25 3c  3c 34 2c 2d 63 33 25 2d  |-c2%-d%<<4,-c3%-|
00000990  64 25 3c 3c 34 3a ed 20  64 25 3a e1 0d ff        |d%<<4:. d%:...|
0000099e