� ><Rug$Dir>.!RunImage
� (C) B.Moseley Nov 1990
+� SysVars : <Rug$Dir> = Application Dir
(=�         : <Rugs$Dir> = Documents Dir ie Mode 13 sprites
2� � �6:�:�" at line ";�:�
<	�init
F� 21
P�ass
Z� 6
d�
n
� init
x�
�:
�	��ass
�0� code 4096 + (80*64) + (82*66*64) + (82*66)
�1� code, newrug, screen addresses, current rug
�
current=0
�	one=1
�x=3:sixtysix=3
�blank=4
�
rugaddr=5
�	row=6
�y=7
�tblval=8
�"total=9:av=9:res=9:array_cnt=9

screenaddress=10


val=11

table=12

"link=14

,	pc=15

6� pass%=0 � 2 � 2

@P%=code

J[OPT pass%

T	.init

^
ADR R0,in

hADR R1,out

rSWI "OS_ReadVduVariables"

|ADR R1,table_pointer

�LDR table,[R1]

�ADR blank,currentrugptr

�LDR current,[blank]

�MOV row,#80

�MOV one,#1

�MOV array_cnt,#0

�MOV blank,#0

�MOV R2,#82

�MOV sixtysix,#66

�MUL R2,sixtysix,R2

�.filloop

�#LDR screenaddress,[table,blank]

�LDRB val,[screenaddress]
 STRB val,[current,array_cnt]
ADD blank,blank,#4
ADD array_cnt,array_cnt,#1
&CMP array_cnt,R2
0BLT filloop
:	.tick
DMOV x,#0
NMOV y,#0
XMOV blank,#82
bADR rugaddr,rug
l
.tickloop
v5\Find average value - sum 8 neighbours, shift >>3
�ADD tblval,y,#1
�MLA tblval,blank,tblval,one
�ADD tblval,tblval,x
�ADD tblval,tblval,current
�B\tblval now points to our present cell position in current rug
�LDRB val,[tblval,#-83]
�MOV total,val
�LDRB val,[tblval,#-82]
�ADD total,total,val
�LDRB val,[tblval,#-81]
�ADD total,total,val
�LDRB val,[tblval,#-1]
�ADD total,total,val
LDRB val,[tblval,#1]
ADD total,total,val
LDRB val,[tblval,#81]
 ADD total,total,val
*LDRB val,[tblval,#82]
4ADD total,total,val
>LDRB val,[tblval,#83]
HADD total,total,val
RMOV res,av,LSR#3
\\Do increment
fADD res,res,#inc%
p\DO mask
z� res,res,#msk%
�\Copy to future rug
�STRB res,[rugaddr]
�ADD rugaddr,rugaddr,#1
�ADD x,x,#1
�
CMP x,#80
��Q x,#0
�ADDEQ y,y,#1
�
CMP y,#64
�BLT tickloop
�.display
�ADR rugaddr,rug
�MOV y,#0
�MOV x,#0
MOV array_cnt,#(83*4)
.displayloop
LDR blank,[table,array_cnt]
$LDRB val,[rugaddr]
.MOV R2,val
8�R R2,R2,val,ASL#8
B�R R2,R2,val,ASL#16
L�R R2,R2,val,ASL#24
V&STR R2,[blank]:STR R2,[blank,#320]
`+STR R2,[blank,#640]:STR R2,[blank,#960]
jADD rugaddr,rugaddr,#1
tADD x,x,#1
~ADD array_cnt,array_cnt,#4
�
CMP x,#80
�ADDEQ y,y,#1
� ADDEQ array_cnt,array_cnt,#8
��Q x,#0
�
CMP y,#63
�BLE displayloop
�"\Copy screen into current grid
�MOV array_cnt,#0
�MOV blank,#0
�MOV R2,#82
�MOV sixtysix,#66
�MUL R2,sixtysix,R2
.refilloop

#LDR screenaddress,[table,blank]
LDRB val,[screenaddress]
 STRB val,[current,array_cnt]
(ADD blank,blank,#4
2ADD array_cnt,array_cnt,#1
<CMP array_cnt,R2
FBLT refilloop
PSWI "OS_ReadEscapeState"
ZBCC tick
dMOV R0,#126
nSWI "OS_Byte"
xMOV pc,link
�.in
�EQUD 148
�EQUD -1
�.out
�	EQUD0
�.table_pointer
�EQUD Ttable
�.currentrugptr
�EQUD currentrug
�	ALIGN
�.rug
�]
�P%+=(80*64)
[
	ALIGN
.Ttable
"]
,P%+=(82*66*4)
6[
@	ALIGN
J.currentrug
T]
^P%+=(82*66)
h[
r	ALIGN
|]
�� pass%
�
�table
��
�:
�
��init
��
�� 12
��setcols
��bar
�
�0,6)
�� 5
��("INFO <Rugs$Dir>.*")
�"� 0,0:ȓ Ȑ 174,0,1280-174,900
� 6
�'"Select Rug to Load."
�"Filename:" fname$
&�
0�"Increment (0-255):" inc%
:� inc%>255 inc%=255
D�"Mask (0-255):" msk%
N"� msk%>255 � msk%<1 � msk%=255
X�'"Ok? (Y/N)"
bA$=�
l� A$="Y"
v#� Load sprite and plot scale x4
�� 13
�#� First define user sprite area
�� sprs% (32*1024)
�!sprs%=(32*1024)
�sprs%!4=16
�ș"OS_SpriteOp",256+9,sprs%
�� Load and plot scaled
�5ș"OS_SpriteOp",10+256,sprs%,"<Rugs$Dir>."+fname$
�
� scl% 16
�'!scl%=4:scl%!4=4:scl%!8=1:scl%!12=1
�4ș"OS_SpriteOp",52+256,sprs%,"screen",0,0,0,scl%
��
�:

ݤaddr
=Ttable+(82*y%+x%)*4
:
 ��table
*� scrin 8,scrout 8
4?!scrin=148:scrin!4=-1:ș "OS_ReadVduVariables",scrin,scrout
>screenstart%=!scrout
H3x%=0:y%=0:!�addr=screenstart%+(63*4*320)+(79*4)
R>y%=0:� x%=1 � 80:!�addr=screenstart%+(63*4*320)+4*(x%-1):�
\-x%=81:y%=0:!�addr=screenstart%+(63*4*320)
f@x%=0:� y%=1 � 64:!�addr=screenstart%+(y%-1)*(320*4)+(79*4):�
p� y%=1 � 64:� x%=1 � 80
z1!�addr=screenstart%+(320*4*(y%-1))+((x%-1)*4)
��:�
�:x%=81:� y%=1 � 64:!�addr=screenstart%+(y%-1)*(320*4):�
�)x%=0:y%=65:!�addr=screenstart%+(79*4)
�4y%=65:� x%=1 � 80:!�addr=screenstart%+(x%-1)*4:�
�#x%=81:y%=65:!�addr=screenstart%
��
�:
�
��setcols
�	gr%=2
�6� col%=8 � 15:� col%,gr%<<4,gr%<<4,gr%<<4:gr%+=2:�
�� 3,185,155,125
�� 4,250,240,230
�� 5,240,160,100
	� 6,100,200,120
	�
	:
	$	��bar
	.
col%=8
	8� y%=1023 � 1023-4*7 � -4
	B� 0,col%:� 0,y%,1279,y%
	Lcol%+=1
	V�
	`#� y%=1023-4*16 � 1023-4*24 � -4
	j� 0,col%:� 0,y%,1279,y%
	tcol%-=1
	~�
	�� 5
	�	� 0,3
	�,� 424,986:�"** RugWorld by B.Moseley **"
	�	� 0,4
	�,� 428,990:�"** RugWorld by B.Moseley **"
	�� 4
	��
�

00000000  0d 00 0a 1a f4 20 3e 3c  52 75 67 24 44 69 72 3e  |..... ><Rug$Dir>|
00000010  2e 21 52 75 6e 49 6d 61  67 65 0d 00 14 1c f4 20  |.!RunImage..... |
00000020  28 43 29 20 42 2e 4d 6f  73 65 6c 65 79 20 4e 6f  |(C) B.Moseley No|
00000030  76 20 31 39 39 30 0d 00  1e 2b f4 20 53 79 73 56  |v 1990...+. SysV|
00000040  61 72 73 20 3a 20 3c 52  75 67 24 44 69 72 3e 20  |ars : <Rug$Dir> |
00000050  3d 20 41 70 70 6c 69 63  61 74 69 6f 6e 20 44 69  |= Application Di|
00000060  72 0d 00 28 3d f4 20 20  20 20 20 20 20 20 20 3a  |r..(=.         :|
00000070  20 3c 52 75 67 73 24 44  69 72 3e 20 3d 20 44 6f  | <Rugs$Dir> = Do|
00000080  63 75 6d 65 6e 74 73 20  44 69 72 20 69 65 20 4d  |cuments Dir ie M|
00000090  6f 64 65 20 31 33 20 73  70 72 69 74 65 73 0d 00  |ode 13 sprites..|
000000a0  32 1d ee 20 85 20 ef 36  3a f6 3a f1 22 20 61 74  |2.. . .6:.:." at|
000000b0  20 6c 69 6e 65 20 22 3b  9e 3a e0 0d 00 3c 09 f2  | line ";.:...<..|
000000c0  69 6e 69 74 0d 00 46 08  ef 20 32 31 0d 00 50 08  |init..F.. 21..P.|
000000d0  f2 61 73 73 0d 00 5a 07  ef 20 36 0d 00 64 05 87  |.ass..Z.. 6..d..|
000000e0  0d 00 6e 0a d6 20 69 6e  69 74 0d 00 78 05 f9 0d  |..n.. init..x...|
000000f0  00 82 05 3a 0d 00 8c 09  dd f2 61 73 73 0d 00 96  |...:......ass...|
00000100  30 de 20 63 6f 64 65 20  34 30 39 36 20 2b 20 28  |0. code 4096 + (|
00000110  38 30 2a 36 34 29 20 2b  20 28 38 32 2a 36 36 2a  |80*64) + (82*66*|
00000120  36 34 29 20 2b 20 28 38  32 2a 36 36 29 0d 00 a0  |64) + (82*66)...|
00000130  31 f4 20 63 6f 64 65 2c  20 6e 65 77 72 75 67 2c  |1. code, newrug,|
00000140  20 73 63 72 65 65 6e 20  61 64 64 72 65 73 73 65  | screen addresse|
00000150  73 2c 20 63 75 72 72 65  6e 74 20 72 75 67 0d 00  |s, current rug..|
00000160  aa 0d 63 75 72 72 65 6e  74 3d 30 0d 00 b4 09 6f  |..current=0....o|
00000170  6e 65 3d 31 0d 00 be 12  78 3d 33 3a 73 69 78 74  |ne=1....x=3:sixt|
00000180  79 73 69 78 3d 33 0d 00  c8 0b 62 6c 61 6e 6b 3d  |ysix=3....blank=|
00000190  34 0d 00 d2 0d 72 75 67  61 64 64 72 3d 35 0d 00  |4....rugaddr=5..|
000001a0  dc 09 72 6f 77 3d 36 0d  00 e6 07 79 3d 37 0d 00  |..row=6....y=7..|
000001b0  f0 0c 74 62 6c 76 61 6c  3d 38 0d 00 fa 22 74 6f  |..tblval=8..."to|
000001c0  74 61 6c 3d 39 3a 61 76  3d 39 3a 72 65 73 3d 39  |tal=9:av=9:res=9|
000001d0  3a 61 72 72 61 79 5f 63  6e 74 3d 39 0d 01 04 14  |:array_cnt=9....|
000001e0  73 63 72 65 65 6e 61 64  64 72 65 73 73 3d 31 30  |screenaddress=10|
000001f0  0d 01 0e 0a 76 61 6c 3d  31 31 0d 01 18 0c 74 61  |....val=11....ta|
00000200  62 6c 65 3d 31 32 0d 01  22 0b 6c 69 6e 6b 3d 31  |ble=12..".link=1|
00000210  34 0d 01 2c 09 70 63 3d  31 35 0d 01 36 15 e3 20  |4..,.pc=15..6.. |
00000220  70 61 73 73 25 3d 30 20  b8 20 32 20 88 20 32 0d  |pass%=0 . 2 . 2.|
00000230  01 40 0b 50 25 3d 63 6f  64 65 0d 01 4a 0e 5b 4f  |.@.P%=code..J.[O|
00000240  50 54 20 70 61 73 73 25  0d 01 54 09 2e 69 6e 69  |PT pass%..T..ini|
00000250  74 0d 01 5e 0d 41 44 52  20 52 30 2c 69 6e 0d 01  |t..^.ADR R0,in..|
00000260  68 0e 41 44 52 20 52 31  2c 6f 75 74 0d 01 72 1d  |h.ADR R1,out..r.|
00000270  53 57 49 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |SWI "OS_ReadVduV|
00000280  61 72 69 61 62 6c 65 73  22 0d 01 7c 18 41 44 52  |ariables"..|.ADR|
00000290  20 52 31 2c 74 61 62 6c  65 5f 70 6f 69 6e 74 65  | R1,table_pointe|
000002a0  72 0d 01 86 12 4c 44 52  20 74 61 62 6c 65 2c 5b  |r....LDR table,[|
000002b0  52 31 5d 0d 01 90 1b 41  44 52 20 62 6c 61 6e 6b  |R1]....ADR blank|
000002c0  2c 63 75 72 72 65 6e 74  72 75 67 70 74 72 0d 01  |,currentrugptr..|
000002d0  9a 17 4c 44 52 20 63 75  72 72 65 6e 74 2c 5b 62  |..LDR current,[b|
000002e0  6c 61 6e 6b 5d 0d 01 a4  0f 4d 4f 56 20 72 6f 77  |lank]....MOV row|
000002f0  2c 23 38 30 0d 01 ae 0e  4d 4f 56 20 6f 6e 65 2c  |,#80....MOV one,|
00000300  23 31 0d 01 b8 14 4d 4f  56 20 61 72 72 61 79 5f  |#1....MOV array_|
00000310  63 6e 74 2c 23 30 0d 01  c2 10 4d 4f 56 20 62 6c  |cnt,#0....MOV bl|
00000320  61 6e 6b 2c 23 30 0d 01  cc 0e 4d 4f 56 20 52 32  |ank,#0....MOV R2|
00000330  2c 23 38 32 0d 01 d6 14  4d 4f 56 20 73 69 78 74  |,#82....MOV sixt|
00000340  79 73 69 78 2c 23 36 36  0d 01 e0 16 4d 55 4c 20  |ysix,#66....MUL |
00000350  52 32 2c 73 69 78 74 79  73 69 78 2c 52 32 0d 01  |R2,sixtysix,R2..|
00000360  ea 0c 2e 66 69 6c 6c 6f  6f 70 0d 01 f4 23 4c 44  |...filloop...#LD|
00000370  52 20 73 63 72 65 65 6e  61 64 64 72 65 73 73 2c  |R screenaddress,|
00000380  5b 74 61 62 6c 65 2c 62  6c 61 6e 6b 5d 0d 01 fe  |[table,blank]...|
00000390  1c 4c 44 52 42 20 76 61  6c 2c 5b 73 63 72 65 65  |.LDRB val,[scree|
000003a0  6e 61 64 64 72 65 73 73  5d 0d 02 08 20 53 54 52  |naddress]... STR|
000003b0  42 20 76 61 6c 2c 5b 63  75 72 72 65 6e 74 2c 61  |B val,[current,a|
000003c0  72 72 61 79 5f 63 6e 74  5d 0d 02 12 16 41 44 44  |rray_cnt]....ADD|
000003d0  20 62 6c 61 6e 6b 2c 62  6c 61 6e 6b 2c 23 34 0d  | blank,blank,#4.|
000003e0  02 1c 1e 41 44 44 20 61  72 72 61 79 5f 63 6e 74  |...ADD array_cnt|
000003f0  2c 61 72 72 61 79 5f 63  6e 74 2c 23 31 0d 02 26  |,array_cnt,#1..&|
00000400  14 43 4d 50 20 61 72 72  61 79 5f 63 6e 74 2c 52  |.CMP array_cnt,R|
00000410  32 0d 02 30 0f 42 4c 54  20 66 69 6c 6c 6f 6f 70  |2..0.BLT filloop|
00000420  0d 02 3a 09 2e 74 69 63  6b 0d 02 44 0c 4d 4f 56  |..:..tick..D.MOV|
00000430  20 78 2c 23 30 0d 02 4e  0c 4d 4f 56 20 79 2c 23  | x,#0..N.MOV y,#|
00000440  30 0d 02 58 11 4d 4f 56  20 62 6c 61 6e 6b 2c 23  |0..X.MOV blank,#|
00000450  38 32 0d 02 62 13 41 44  52 20 72 75 67 61 64 64  |82..b.ADR rugadd|
00000460  72 2c 72 75 67 0d 02 6c  0d 2e 74 69 63 6b 6c 6f  |r,rug..l..ticklo|
00000470  6f 70 0d 02 76 35 5c 46  69 6e 64 20 61 76 65 72  |op..v5\Find aver|
00000480  61 67 65 20 76 61 6c 75  65 20 2d 20 73 75 6d 20  |age value - sum |
00000490  38 20 6e 65 69 67 68 62  6f 75 72 73 2c 20 73 68  |8 neighbours, sh|
000004a0  69 66 74 20 3e 3e 33 0d  02 80 13 41 44 44 20 74  |ift >>3....ADD t|
000004b0  62 6c 76 61 6c 2c 79 2c  23 31 0d 02 8a 1f 4d 4c  |blval,y,#1....ML|
000004c0  41 20 74 62 6c 76 61 6c  2c 62 6c 61 6e 6b 2c 74  |A tblval,blank,t|
000004d0  62 6c 76 61 6c 2c 6f 6e  65 0d 02 94 17 41 44 44  |blval,one....ADD|
000004e0  20 74 62 6c 76 61 6c 2c  74 62 6c 76 61 6c 2c 78  | tblval,tblval,x|
000004f0  0d 02 9e 1d 41 44 44 20  74 62 6c 76 61 6c 2c 74  |....ADD tblval,t|
00000500  62 6c 76 61 6c 2c 63 75  72 72 65 6e 74 0d 02 a8  |blval,current...|
00000510  42 5c 74 62 6c 76 61 6c  20 6e 6f 77 20 70 6f 69  |B\tblval now poi|
00000520  6e 74 73 20 74 6f 20 6f  75 72 20 70 72 65 73 65  |nts to our prese|
00000530  6e 74 20 63 65 6c 6c 20  70 6f 73 69 74 69 6f 6e  |nt cell position|
00000540  20 69 6e 20 63 75 72 72  65 6e 74 20 72 75 67 0d  | in current rug.|
00000550  02 b2 1a 4c 44 52 42 20  76 61 6c 2c 5b 74 62 6c  |...LDRB val,[tbl|
00000560  76 61 6c 2c 23 2d 38 33  5d 0d 02 bc 11 4d 4f 56  |val,#-83]....MOV|
00000570  20 74 6f 74 61 6c 2c 76  61 6c 0d 02 c6 1a 4c 44  | total,val....LD|
00000580  52 42 20 76 61 6c 2c 5b  74 62 6c 76 61 6c 2c 23  |RB val,[tblval,#|
00000590  2d 38 32 5d 0d 02 d0 17  41 44 44 20 74 6f 74 61  |-82]....ADD tota|
000005a0  6c 2c 74 6f 74 61 6c 2c  76 61 6c 0d 02 da 1a 4c  |l,total,val....L|
000005b0  44 52 42 20 76 61 6c 2c  5b 74 62 6c 76 61 6c 2c  |DRB val,[tblval,|
000005c0  23 2d 38 31 5d 0d 02 e4  17 41 44 44 20 74 6f 74  |#-81]....ADD tot|
000005d0  61 6c 2c 74 6f 74 61 6c  2c 76 61 6c 0d 02 ee 19  |al,total,val....|
000005e0  4c 44 52 42 20 76 61 6c  2c 5b 74 62 6c 76 61 6c  |LDRB val,[tblval|
000005f0  2c 23 2d 31 5d 0d 02 f8  17 41 44 44 20 74 6f 74  |,#-1]....ADD tot|
00000600  61 6c 2c 74 6f 74 61 6c  2c 76 61 6c 0d 03 02 18  |al,total,val....|
00000610  4c 44 52 42 20 76 61 6c  2c 5b 74 62 6c 76 61 6c  |LDRB val,[tblval|
00000620  2c 23 31 5d 0d 03 0c 17  41 44 44 20 74 6f 74 61  |,#1]....ADD tota|
00000630  6c 2c 74 6f 74 61 6c 2c  76 61 6c 0d 03 16 19 4c  |l,total,val....L|
00000640  44 52 42 20 76 61 6c 2c  5b 74 62 6c 76 61 6c 2c  |DRB val,[tblval,|
00000650  23 38 31 5d 0d 03 20 17  41 44 44 20 74 6f 74 61  |#81].. .ADD tota|
00000660  6c 2c 74 6f 74 61 6c 2c  76 61 6c 0d 03 2a 19 4c  |l,total,val..*.L|
00000670  44 52 42 20 76 61 6c 2c  5b 74 62 6c 76 61 6c 2c  |DRB val,[tblval,|
00000680  23 38 32 5d 0d 03 34 17  41 44 44 20 74 6f 74 61  |#82]..4.ADD tota|
00000690  6c 2c 74 6f 74 61 6c 2c  76 61 6c 0d 03 3e 19 4c  |l,total,val..>.L|
000006a0  44 52 42 20 76 61 6c 2c  5b 74 62 6c 76 61 6c 2c  |DRB val,[tblval,|
000006b0  23 38 33 5d 0d 03 48 17  41 44 44 20 74 6f 74 61  |#83]..H.ADD tota|
000006c0  6c 2c 74 6f 74 61 6c 2c  76 61 6c 0d 03 52 14 4d  |l,total,val..R.M|
000006d0  4f 56 20 72 65 73 2c 61  76 2c 4c 53 52 23 33 0d  |OV res,av,LSR#3.|
000006e0  03 5c 11 5c 44 6f 20 69  6e 63 72 65 6d 65 6e 74  |.\.\Do increment|
000006f0  0d 03 66 15 41 44 44 20  72 65 73 2c 72 65 73 2c  |..f.ADD res,res,|
00000700  23 69 6e 63 25 0d 03 70  0c 5c 44 4f 20 6d 61 73  |#inc%..p.\DO mas|
00000710  6b 0d 03 7a 13 80 20 72  65 73 2c 72 65 73 2c 23  |k..z.. res,res,#|
00000720  6d 73 6b 25 0d 03 84 17  5c 43 6f 70 79 20 74 6f  |msk%....\Copy to|
00000730  20 66 75 74 75 72 65 20  72 75 67 0d 03 8e 16 53  | future rug....S|
00000740  54 52 42 20 72 65 73 2c  5b 72 75 67 61 64 64 72  |TRB res,[rugaddr|
00000750  5d 0d 03 98 1a 41 44 44  20 72 75 67 61 64 64 72  |]....ADD rugaddr|
00000760  2c 72 75 67 61 64 64 72  2c 23 31 0d 03 a2 0e 41  |,rugaddr,#1....A|
00000770  44 44 20 78 2c 78 2c 23  31 0d 03 ac 0d 43 4d 50  |DD x,x,#1....CMP|
00000780  20 78 2c 23 38 30 0d 03  b6 0b ec 51 20 78 2c 23  | x,#80.....Q x,#|
00000790  30 0d 03 c0 10 41 44 44  45 51 20 79 2c 79 2c 23  |0....ADDEQ y,y,#|
000007a0  31 0d 03 ca 0d 43 4d 50  20 79 2c 23 36 34 0d 03  |1....CMP y,#64..|
000007b0  d4 10 42 4c 54 20 74 69  63 6b 6c 6f 6f 70 0d 03  |..BLT tickloop..|
000007c0  de 0c 2e 64 69 73 70 6c  61 79 0d 03 e8 13 41 44  |...display....AD|
000007d0  52 20 72 75 67 61 64 64  72 2c 72 75 67 0d 03 f2  |R rugaddr,rug...|
000007e0  0c 4d 4f 56 20 79 2c 23  30 0d 03 fc 0c 4d 4f 56  |.MOV y,#0....MOV|
000007f0  20 78 2c 23 30 0d 04 06  19 4d 4f 56 20 61 72 72  | x,#0....MOV arr|
00000800  61 79 5f 63 6e 74 2c 23  28 38 33 2a 34 29 0d 04  |ay_cnt,#(83*4)..|
00000810  10 10 2e 64 69 73 70 6c  61 79 6c 6f 6f 70 0d 04  |...displayloop..|
00000820  1a 1f 4c 44 52 20 62 6c  61 6e 6b 2c 5b 74 61 62  |..LDR blank,[tab|
00000830  6c 65 2c 61 72 72 61 79  5f 63 6e 74 5d 0d 04 24  |le,array_cnt]..$|
00000840  16 4c 44 52 42 20 76 61  6c 2c 5b 72 75 67 61 64  |.LDRB val,[rugad|
00000850  64 72 5d 0d 04 2e 0e 4d  4f 56 20 52 32 2c 76 61  |dr]....MOV R2,va|
00000860  6c 0d 04 38 16 84 52 20  52 32 2c 52 32 2c 76 61  |l..8..R R2,R2,va|
00000870  6c 2c 41 53 4c 23 38 0d  04 42 17 84 52 20 52 32  |l,ASL#8..B..R R2|
00000880  2c 52 32 2c 76 61 6c 2c  41 53 4c 23 31 36 0d 04  |,R2,val,ASL#16..|
00000890  4c 17 84 52 20 52 32 2c  52 32 2c 76 61 6c 2c 41  |L..R R2,R2,val,A|
000008a0  53 4c 23 32 34 0d 04 56  26 53 54 52 20 52 32 2c  |SL#24..V&STR R2,|
000008b0  5b 62 6c 61 6e 6b 5d 3a  53 54 52 20 52 32 2c 5b  |[blank]:STR R2,[|
000008c0  62 6c 61 6e 6b 2c 23 33  32 30 5d 0d 04 60 2b 53  |blank,#320]..`+S|
000008d0  54 52 20 52 32 2c 5b 62  6c 61 6e 6b 2c 23 36 34  |TR R2,[blank,#64|
000008e0  30 5d 3a 53 54 52 20 52  32 2c 5b 62 6c 61 6e 6b  |0]:STR R2,[blank|
000008f0  2c 23 39 36 30 5d 0d 04  6a 1a 41 44 44 20 72 75  |,#960]..j.ADD ru|
00000900  67 61 64 64 72 2c 72 75  67 61 64 64 72 2c 23 31  |gaddr,rugaddr,#1|
00000910  0d 04 74 0e 41 44 44 20  78 2c 78 2c 23 31 0d 04  |..t.ADD x,x,#1..|
00000920  7e 1e 41 44 44 20 61 72  72 61 79 5f 63 6e 74 2c  |~.ADD array_cnt,|
00000930  61 72 72 61 79 5f 63 6e  74 2c 23 34 0d 04 88 0d  |array_cnt,#4....|
00000940  43 4d 50 20 78 2c 23 38  30 0d 04 92 10 41 44 44  |CMP x,#80....ADD|
00000950  45 51 20 79 2c 79 2c 23  31 0d 04 9c 20 41 44 44  |EQ y,y,#1... ADD|
00000960  45 51 20 61 72 72 61 79  5f 63 6e 74 2c 61 72 72  |EQ array_cnt,arr|
00000970  61 79 5f 63 6e 74 2c 23  38 0d 04 a6 0b ec 51 20  |ay_cnt,#8.....Q |
00000980  78 2c 23 30 0d 04 b0 0d  43 4d 50 20 79 2c 23 36  |x,#0....CMP y,#6|
00000990  33 0d 04 ba 13 42 4c 45  20 64 69 73 70 6c 61 79  |3....BLE display|
000009a0  6c 6f 6f 70 0d 04 c4 22  5c 43 6f 70 79 20 73 63  |loop..."\Copy sc|
000009b0  72 65 65 6e 20 69 6e 74  6f 20 63 75 72 72 65 6e  |reen into curren|
000009c0  74 20 67 72 69 64 0d 04  ce 14 4d 4f 56 20 61 72  |t grid....MOV ar|
000009d0  72 61 79 5f 63 6e 74 2c  23 30 0d 04 d8 10 4d 4f  |ray_cnt,#0....MO|
000009e0  56 20 62 6c 61 6e 6b 2c  23 30 0d 04 e2 0e 4d 4f  |V blank,#0....MO|
000009f0  56 20 52 32 2c 23 38 32  0d 04 ec 14 4d 4f 56 20  |V R2,#82....MOV |
00000a00  73 69 78 74 79 73 69 78  2c 23 36 36 0d 04 f6 16  |sixtysix,#66....|
00000a10  4d 55 4c 20 52 32 2c 73  69 78 74 79 73 69 78 2c  |MUL R2,sixtysix,|
00000a20  52 32 0d 05 00 0e 2e 72  65 66 69 6c 6c 6f 6f 70  |R2.....refilloop|
00000a30  0d 05 0a 23 4c 44 52 20  73 63 72 65 65 6e 61 64  |...#LDR screenad|
00000a40  64 72 65 73 73 2c 5b 74  61 62 6c 65 2c 62 6c 61  |dress,[table,bla|
00000a50  6e 6b 5d 0d 05 14 1c 4c  44 52 42 20 76 61 6c 2c  |nk]....LDRB val,|
00000a60  5b 73 63 72 65 65 6e 61  64 64 72 65 73 73 5d 0d  |[screenaddress].|
00000a70  05 1e 20 53 54 52 42 20  76 61 6c 2c 5b 63 75 72  |.. STRB val,[cur|
00000a80  72 65 6e 74 2c 61 72 72  61 79 5f 63 6e 74 5d 0d  |rent,array_cnt].|
00000a90  05 28 16 41 44 44 20 62  6c 61 6e 6b 2c 62 6c 61  |.(.ADD blank,bla|
00000aa0  6e 6b 2c 23 34 0d 05 32  1e 41 44 44 20 61 72 72  |nk,#4..2.ADD arr|
00000ab0  61 79 5f 63 6e 74 2c 61  72 72 61 79 5f 63 6e 74  |ay_cnt,array_cnt|
00000ac0  2c 23 31 0d 05 3c 14 43  4d 50 20 61 72 72 61 79  |,#1..<.CMP array|
00000ad0  5f 63 6e 74 2c 52 32 0d  05 46 11 42 4c 54 20 72  |_cnt,R2..F.BLT r|
00000ae0  65 66 69 6c 6c 6f 6f 70  0d 05 50 1c 53 57 49 20  |efilloop..P.SWI |
00000af0  22 4f 53 5f 52 65 61 64  45 73 63 61 70 65 53 74  |"OS_ReadEscapeSt|
00000b00  61 74 65 22 0d 05 5a 0c  42 43 43 20 74 69 63 6b  |ate"..Z.BCC tick|
00000b10  0d 05 64 0f 4d 4f 56 20  52 30 2c 23 31 32 36 0d  |..d.MOV R0,#126.|
00000b20  05 6e 11 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |.n.SWI "OS_Byte"|
00000b30  0d 05 78 0f 4d 4f 56 20  70 63 2c 6c 69 6e 6b 0d  |..x.MOV pc,link.|
00000b40  05 82 07 2e 69 6e 0d 05  8c 0c 45 51 55 44 20 31  |....in....EQUD 1|
00000b50  34 38 0d 05 96 0b 45 51  55 44 20 2d 31 0d 05 a0  |48....EQUD -1...|
00000b60  08 2e 6f 75 74 0d 05 aa  09 45 51 55 44 30 0d 05  |..out....EQUD0..|
00000b70  b4 12 2e 74 61 62 6c 65  5f 70 6f 69 6e 74 65 72  |...table_pointer|
00000b80  0d 05 be 0f 45 51 55 44  20 54 74 61 62 6c 65 0d  |....EQUD Ttable.|
00000b90  05 c8 12 2e 63 75 72 72  65 6e 74 72 75 67 70 74  |....currentrugpt|
00000ba0  72 0d 05 d2 13 45 51 55  44 20 63 75 72 72 65 6e  |r....EQUD curren|
00000bb0  74 72 75 67 0d 05 dc 09  41 4c 49 47 4e 0d 05 e6  |trug....ALIGN...|
00000bc0  08 2e 72 75 67 0d 05 f0  05 5d 0d 05 fa 0f 50 25  |..rug....]....P%|
00000bd0  2b 3d 28 38 30 2a 36 34  29 0d 06 04 05 5b 0d 06  |+=(80*64)....[..|
00000be0  0e 09 41 4c 49 47 4e 0d  06 18 0b 2e 54 74 61 62  |..ALIGN.....Ttab|
00000bf0  6c 65 0d 06 22 05 5d 0d  06 2c 11 50 25 2b 3d 28  |le..".]..,.P%+=(|
00000c00  38 32 2a 36 36 2a 34 29  0d 06 36 05 5b 0d 06 40  |82*66*4)..6.[..@|
00000c10  09 41 4c 49 47 4e 0d 06  4a 0f 2e 63 75 72 72 65  |.ALIGN..J..curre|
00000c20  6e 74 72 75 67 0d 06 54  05 5d 0d 06 5e 0f 50 25  |ntrug..T.]..^.P%|
00000c30  2b 3d 28 38 32 2a 36 36  29 0d 06 68 05 5b 0d 06  |+=(82*66)..h.[..|
00000c40  72 09 41 4c 49 47 4e 0d  06 7c 05 5d 0d 06 86 0b  |r.ALIGN..|.]....|
00000c50  ed 20 70 61 73 73 25 0d  06 90 0a f2 74 61 62 6c  |. pass%.....tabl|
00000c60  65 0d 06 9a 05 e1 0d 06  a4 05 3a 0d 06 ae 0a dd  |e.........:.....|
00000c70  f2 69 6e 69 74 0d 06 b8  05 f5 0d 06 c2 08 eb 20  |.init.......... |
00000c80  31 32 0d 06 cc 0c f2 73  65 74 63 6f 6c 73 0d 06  |12.....setcols..|
00000c90  d6 08 f2 62 61 72 0d 06  e0 0a f1 8a 30 2c 36 29  |...bar......0,6)|
00000ca0  0d 06 ea 07 fb 20 35 0d  06 f4 1a ff 28 22 49 4e  |..... 5.....("IN|
00000cb0  46 4f 20 3c 52 75 67 73  24 44 69 72 3e 2e 2a 22  |FO <Rugs$Dir>.*"|
00000cc0  29 0d 06 fe 22 e6 20 30  2c 30 3a c8 93 20 c8 90  |)...". 0,0:.. ..|
00000cd0  20 31 37 34 2c 30 2c 31  32 38 30 2d 31 37 34 2c  | 174,0,1280-174,|
00000ce0  39 30 30 0d 07 08 07 fb  20 36 0d 07 12 1b f1 27  |900..... 6.....'|
00000cf0  22 53 65 6c 65 63 74 20  52 75 67 20 74 6f 20 4c  |"Select Rug to L|
00000d00  6f 61 64 2e 22 0d 07 1c  17 e8 22 46 69 6c 65 6e  |oad."....."Filen|
00000d10  61 6d 65 3a 22 20 66 6e  61 6d 65 24 0d 07 26 05  |ame:" fname$..&.|
00000d20  f1 0d 07 30 1e e8 22 49  6e 63 72 65 6d 65 6e 74  |...0.."Increment|
00000d30  20 28 30 2d 32 35 35 29  3a 22 20 69 6e 63 25 0d  | (0-255):" inc%.|
00000d40  07 3a 17 e7 20 69 6e 63  25 3e 32 35 35 20 69 6e  |.:.. inc%>255 in|
00000d50  63 25 3d 32 35 35 0d 07  44 19 e8 22 4d 61 73 6b  |c%=255..D.."Mask|
00000d60  20 28 30 2d 32 35 35 29  3a 22 20 6d 73 6b 25 0d  | (0-255):" msk%.|
00000d70  07 4e 22 e7 20 6d 73 6b  25 3e 32 35 35 20 84 20  |.N". msk%>255 . |
00000d80  6d 73 6b 25 3c 31 20 8c  20 6d 73 6b 25 3d 32 35  |msk%<1 . msk%=25|
00000d90  35 0d 07 58 11 f1 27 22  4f 6b 3f 20 28 59 2f 4e  |5..X..'"Ok? (Y/N|
00000da0  29 22 0d 07 62 08 41 24  3d be 0d 07 6c 0c fd 20  |)"..b.A$=...l.. |
00000db0  41 24 3d 22 59 22 0d 07  76 23 f4 20 4c 6f 61 64  |A$="Y"..v#. Load|
00000dc0  20 73 70 72 69 74 65 20  61 6e 64 20 70 6c 6f 74  | sprite and plot|
00000dd0  20 73 63 61 6c 65 20 78  34 0d 07 80 08 eb 20 31  | scale x4..... 1|
00000de0  33 0d 07 8a 23 f4 20 46  69 72 73 74 20 64 65 66  |3...#. First def|
00000df0  69 6e 65 20 75 73 65 72  20 73 70 72 69 74 65 20  |ine user sprite |
00000e00  61 72 65 61 0d 07 94 15  de 20 73 70 72 73 25 20  |area..... sprs% |
00000e10  28 33 32 2a 31 30 32 34  29 0d 07 9e 14 21 73 70  |(32*1024)....!sp|
00000e20  72 73 25 3d 28 33 32 2a  31 30 32 34 29 0d 07 a8  |rs%=(32*1024)...|
00000e30  0e 73 70 72 73 25 21 34  3d 31 36 0d 07 b2 1f c8  |.sprs%!4=16.....|
00000e40  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000e50  35 36 2b 39 2c 73 70 72  73 25 0d 07 bc 1a f4 20  |56+9,sprs%..... |
00000e60  4c 6f 61 64 20 61 6e 64  20 70 6c 6f 74 20 73 63  |Load and plot sc|
00000e70  61 6c 65 64 0d 07 c6 35  c8 99 22 4f 53 5f 53 70  |aled...5.."OS_Sp|
00000e80  72 69 74 65 4f 70 22 2c  31 30 2b 32 35 36 2c 73  |riteOp",10+256,s|
00000e90  70 72 73 25 2c 22 3c 52  75 67 73 24 44 69 72 3e  |prs%,"<Rugs$Dir>|
00000ea0  2e 22 2b 66 6e 61 6d 65  24 0d 07 d0 0d de 20 73  |."+fname$..... s|
00000eb0  63 6c 25 20 31 36 0d 07  da 27 21 73 63 6c 25 3d  |cl% 16...'!scl%=|
00000ec0  34 3a 73 63 6c 25 21 34  3d 34 3a 73 63 6c 25 21  |4:scl%!4=4:scl%!|
00000ed0  38 3d 31 3a 73 63 6c 25  21 31 32 3d 31 0d 07 e4  |8=1:scl%!12=1...|
00000ee0  34 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |4.."OS_SpriteOp"|
00000ef0  2c 35 32 2b 32 35 36 2c  73 70 72 73 25 2c 22 73  |,52+256,sprs%,"s|
00000f00  63 72 65 65 6e 22 2c 30  2c 30 2c 30 2c 73 63 6c  |creen",0,0,0,scl|
00000f10  25 0d 07 ee 05 e1 0d 07  f8 05 3a 0d 08 02 0a dd  |%.........:.....|
00000f20  a4 61 64 64 72 0d 08 0c  18 3d 54 74 61 62 6c 65  |.addr....=Ttable|
00000f30  2b 28 38 32 2a 79 25 2b  78 25 29 2a 34 0d 08 16  |+(82*y%+x%)*4...|
00000f40  05 3a 0d 08 20 0b dd f2  74 61 62 6c 65 0d 08 2a  |.:.. ...table..*|
00000f50  16 de 20 73 63 72 69 6e  20 38 2c 73 63 72 6f 75  |.. scrin 8,scrou|
00000f60  74 20 38 0d 08 34 3f 21  73 63 72 69 6e 3d 31 34  |t 8..4?!scrin=14|
00000f70  38 3a 73 63 72 69 6e 21  34 3d 2d 31 3a c8 99 20  |8:scrin!4=-1:.. |
00000f80  22 4f 53 5f 52 65 61 64  56 64 75 56 61 72 69 61  |"OS_ReadVduVaria|
00000f90  62 6c 65 73 22 2c 73 63  72 69 6e 2c 73 63 72 6f  |bles",scrin,scro|
00000fa0  75 74 0d 08 3e 18 73 63  72 65 65 6e 73 74 61 72  |ut..>.screenstar|
00000fb0  74 25 3d 21 73 63 72 6f  75 74 0d 08 48 33 78 25  |t%=!scrout..H3x%|
00000fc0  3d 30 3a 79 25 3d 30 3a  21 a4 61 64 64 72 3d 73  |=0:y%=0:!.addr=s|
00000fd0  63 72 65 65 6e 73 74 61  72 74 25 2b 28 36 33 2a  |creenstart%+(63*|
00000fe0  34 2a 33 32 30 29 2b 28  37 39 2a 34 29 0d 08 52  |4*320)+(79*4)..R|
00000ff0  3e 79 25 3d 30 3a e3 20  78 25 3d 31 20 b8 20 38  |>y%=0:. x%=1 . 8|
00001000  30 3a 21 a4 61 64 64 72  3d 73 63 72 65 65 6e 73  |0:!.addr=screens|
00001010  74 61 72 74 25 2b 28 36  33 2a 34 2a 33 32 30 29  |tart%+(63*4*320)|
00001020  2b 34 2a 28 78 25 2d 31  29 3a ed 0d 08 5c 2d 78  |+4*(x%-1):...\-x|
00001030  25 3d 38 31 3a 79 25 3d  30 3a 21 a4 61 64 64 72  |%=81:y%=0:!.addr|
00001040  3d 73 63 72 65 65 6e 73  74 61 72 74 25 2b 28 36  |=screenstart%+(6|
00001050  33 2a 34 2a 33 32 30 29  0d 08 66 40 78 25 3d 30  |3*4*320)..f@x%=0|
00001060  3a e3 20 79 25 3d 31 20  b8 20 36 34 3a 21 a4 61  |:. y%=1 . 64:!.a|
00001070  64 64 72 3d 73 63 72 65  65 6e 73 74 61 72 74 25  |ddr=screenstart%|
00001080  2b 28 79 25 2d 31 29 2a  28 33 32 30 2a 34 29 2b  |+(y%-1)*(320*4)+|
00001090  28 37 39 2a 34 29 3a ed  0d 08 70 1b e3 20 79 25  |(79*4):...p.. y%|
000010a0  3d 31 20 b8 20 36 34 3a  e3 20 78 25 3d 31 20 b8  |=1 . 64:. x%=1 .|
000010b0  20 38 30 0d 08 7a 31 21  a4 61 64 64 72 3d 73 63  | 80..z1!.addr=sc|
000010c0  72 65 65 6e 73 74 61 72  74 25 2b 28 33 32 30 2a  |reenstart%+(320*|
000010d0  34 2a 28 79 25 2d 31 29  29 2b 28 28 78 25 2d 31  |4*(y%-1))+((x%-1|
000010e0  29 2a 34 29 0d 08 84 07  ed 3a ed 0d 08 8e 3a 78  |)*4).....:....:x|
000010f0  25 3d 38 31 3a e3 20 79  25 3d 31 20 b8 20 36 34  |%=81:. y%=1 . 64|
00001100  3a 21 a4 61 64 64 72 3d  73 63 72 65 65 6e 73 74  |:!.addr=screenst|
00001110  61 72 74 25 2b 28 79 25  2d 31 29 2a 28 33 32 30  |art%+(y%-1)*(320|
00001120  2a 34 29 3a ed 0d 08 98  29 78 25 3d 30 3a 79 25  |*4):....)x%=0:y%|
00001130  3d 36 35 3a 21 a4 61 64  64 72 3d 73 63 72 65 65  |=65:!.addr=scree|
00001140  6e 73 74 61 72 74 25 2b  28 37 39 2a 34 29 0d 08  |nstart%+(79*4)..|
00001150  a2 34 79 25 3d 36 35 3a  e3 20 78 25 3d 31 20 b8  |.4y%=65:. x%=1 .|
00001160  20 38 30 3a 21 a4 61 64  64 72 3d 73 63 72 65 65  | 80:!.addr=scree|
00001170  6e 73 74 61 72 74 25 2b  28 78 25 2d 31 29 2a 34  |nstart%+(x%-1)*4|
00001180  3a ed 0d 08 ac 23 78 25  3d 38 31 3a 79 25 3d 36  |:....#x%=81:y%=6|
00001190  35 3a 21 a4 61 64 64 72  3d 73 63 72 65 65 6e 73  |5:!.addr=screens|
000011a0  74 61 72 74 25 0d 08 b6  05 e1 0d 08 c0 05 3a 0d  |tart%.........:.|
000011b0  08 ca 0d dd f2 73 65 74  63 6f 6c 73 0d 08 d4 09  |.....setcols....|
000011c0  67 72 25 3d 32 0d 08 de  36 e3 20 63 6f 6c 25 3d  |gr%=2...6. col%=|
000011d0  38 20 b8 20 31 35 3a fb  20 63 6f 6c 25 2c 67 72  |8 . 15:. col%,gr|
000011e0  25 3c 3c 34 2c 67 72 25  3c 3c 34 2c 67 72 25 3c  |%<<4,gr%<<4,gr%<|
000011f0  3c 34 3a 67 72 25 2b 3d  32 3a ed 0d 08 e8 13 fb  |<4:gr%+=2:......|
00001200  20 33 2c 31 38 35 2c 31  35 35 2c 31 32 35 0d 08  | 3,185,155,125..|
00001210  f2 13 fb 20 34 2c 32 35  30 2c 32 34 30 2c 32 33  |... 4,250,240,23|
00001220  30 0d 08 fc 13 fb 20 35  2c 32 34 30 2c 31 36 30  |0..... 5,240,160|
00001230  2c 31 30 30 0d 09 06 13  fb 20 36 2c 31 30 30 2c  |,100..... 6,100,|
00001240  32 30 30 2c 31 32 30 0d  09 10 05 e1 0d 09 1a 05  |200,120.........|
00001250  3a 0d 09 24 09 dd f2 62  61 72 0d 09 2e 0a 63 6f  |:..$...bar....co|
00001260  6c 25 3d 38 0d 09 38 1d  e3 20 79 25 3d 31 30 32  |l%=8..8.. y%=102|
00001270  33 20 b8 20 31 30 32 33  2d 34 2a 37 20 88 20 2d  |3 . 1023-4*7 . -|
00001280  34 0d 09 42 1b e6 20 30  2c 63 6f 6c 25 3a 86 20  |4..B.. 0,col%:. |
00001290  30 2c 79 25 2c 31 32 37  39 2c 79 25 0d 09 4c 0b  |0,y%,1279,y%..L.|
000012a0  63 6f 6c 25 2b 3d 31 0d  09 56 05 ed 0d 09 60 23  |col%+=1..V....`#|
000012b0  e3 20 79 25 3d 31 30 32  33 2d 34 2a 31 36 20 b8  |. y%=1023-4*16 .|
000012c0  20 31 30 32 33 2d 34 2a  32 34 20 88 20 2d 34 0d  | 1023-4*24 . -4.|
000012d0  09 6a 1b e6 20 30 2c 63  6f 6c 25 3a 86 20 30 2c  |.j.. 0,col%:. 0,|
000012e0  79 25 2c 31 32 37 39 2c  79 25 0d 09 74 0b 63 6f  |y%,1279,y%..t.co|
000012f0  6c 25 2d 3d 31 0d 09 7e  05 ed 0d 09 88 07 ef 20  |l%-=1..~....... |
00001300  35 0d 09 92 09 e6 20 30  2c 33 0d 09 9c 2c ec 20  |5..... 0,3...,. |
00001310  34 32 34 2c 39 38 36 3a  f1 22 2a 2a 20 52 75 67  |424,986:."** Rug|
00001320  57 6f 72 6c 64 20 62 79  20 42 2e 4d 6f 73 65 6c  |World by B.Mosel|
00001330  65 79 20 2a 2a 22 0d 09  a6 09 e6 20 30 2c 34 0d  |ey **"..... 0,4.|
00001340  09 b0 2c ec 20 34 32 38  2c 39 39 30 3a f1 22 2a  |..,. 428,990:."*|
00001350  2a 20 52 75 67 57 6f 72  6c 64 20 62 79 20 42 2e  |* RugWorld by B.|
00001360  4d 6f 73 65 6c 65 79 20  2a 2a 22 0d 09 ba 07 ef  |Moseley **".....|
00001370  20 34 0d 09 c4 05 e1 0d  ff                       | 4.......|
00001379