Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/Smale/Granite/GRANITE28
StarInfo/Smale/Granite/GRANITE28
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-02 B.adf » Regulars |
| Filename: | StarInfo/Smale/Granite/GRANITE28 |
| Read OK: | ✔ |
| File size: | 0A9E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE28:OFF
20DIM code 4096+16
30ON ERROR REPORT:PRINT" at line ";ERL:END
40PROCscrn
50PROCcols
60
70link=14
80sp=13
90screen=12
100
110FOR pass=0 TO 2 STEP 2
120P%=code
130[OPT pass
140.granite STMFD (sp)!,{link}
150 LDR screen,scrn
160
170 MOV R1,#480:SUB r1,r1,#1
180.yloop MOV R0,#1
190.xloop ADD R2,R0,R1,LSL#7
200 ADD R2,R2,R1,LSL#9
210 ADD R2,R2,screen
220
230 SUB R2,R2,#1
240 LDRB R4,[R2,#0]
250 LDRB R3,[R2,#640]
260 ADD R4,R4,R3
270
280 ADD R2,R2,#1
290 LDRB R3,[R2,#640]
300 ADD R4,R4,R3
310
320 ADD R2,R2,#1
330 LDRB R3,[R2,#640]
340 ADD R4,R4,R3
350
360 MOV R4,R4,LSL#8-2
370 BL rnd
380 SUB R7,R7,#113
390 ADD R4,R4,R7,ASL#3
400
410 CMP R4,#0
420 LDRLT R4,oldcol%
430 BLT maus
440 MOVGE R4,R4,ASR#8
450
460 CMP R4,#16
470 BLGE mod16
480
490 STRLT R4,oldcol%
500
510.maus SUB R2,R2,#1
520 STRB R4,[R2,#0]
530
540 SWI "OS_ReadEscapeState"
550 BCS fini
560
570 ADD R0,R0,#2
580 CMP R0,#640
590 SUBLT R0,R0,#1
600 BLT xloop
610
620 SUB R1,R1,#1
630 CMP R1,#1
640 BGT yloop
650
660 LDR R5,coldata
670 MOV R0,screen
680 ADD R1,R0,#81920*2*2
690.changelp LDRB R2,[R0,#0]
700 LDRB R6,[R5,R2]
710 STRB R6,[R0],#1
720 CMP R0,R1
730 BLT changelp
740
750.fini LDMFD (sp)!,{PC}
760
770.coldata EQUD code+4096
780.scrn EQUD screen%
790.oldcol% EQUD 0
800
810.mod16 SUB R4,R4,#16
820 CMP R4,#16
830 BGE mod16
840 MOV PC,R14
850
860.rnd LDR R7,seed
870 LDR R8,c1
880 LDR R9,c2
890 MLA R7,R8,R7,R9
900 MLA R10,R8,R7,R9
910 STR R10,seed
920 EOR R7,R7,R10,ROR#16
930
940 MOV R8,#256
950 SUB R8,R8,#1
960 AND R7,R7,R8
970
980 MOV PC,R14
990
1000.c1 EQUD 1664525
1010.c2 EQUD 907633393
1020.seed EQUD TIME
1030.rnd% EQUD 0
1040]
1050NEXT
1060CALL granite
1070END
1080
1090DEFPROCcols
1100data%=code+4096
1110FOR I%=0 TO 15
1120READ data%?I%
1130NEXT
1140ENDPROC
1150
1160DATA 0,1,2,3, 44,45,46,47, 208,209,210,211, 252,253,254,255
1170DATA 0,1,2,3, 8,9,10,11, 164,165,166,167, 216,217,218,219
1180
1190DEFPROCscrn
1200DIM block% 15,b2% 15
1210block%!0=148
1220block%!4=7
1230block%!8=6
1240block%!12=-1
1250SYS "OS_ReadVduVariables",block%,b2%
1260size%=b2%!4
1270block%!0=148
1280block%!4=7
1290block%!8=6
1300block%!12=-1
1310SYS "OS_ReadVduVariables",block%,b2%
1320screen%=b2%!0
1330size%=b2%!4
1340ENDPROC
�28:�
� code 4096+16
� � �:�" at line ";�:�
( �scrn
2 �cols
<
F link=14
P sp=13
Z
screen=12
d
n� pass=0 � 2 � 2
x P%=code
�
[OPT pass
�!.granite STMFD (sp)!,{link}
� LDR screen,scrn
�
�( MOV R1,#480:SUB r1,r1,#1
�.yloop MOV R0,#1
�".xloop ADD R2,R0,R1,LSL#7
�" ADD R2,R2,R1,LSL#9
� ADD R2,R2,screen
�
� SUB R2,R2,#1
� LDRB R4,[R2,#0]
� LDRB R3,[R2,#640]
ADD R4,R4,R3
ADD R2,R2,#1
" LDRB R3,[R2,#640]
, ADD R4,R4,R3
6
@ ADD R2,R2,#1
J LDRB R3,[R2,#640]
T ADD R4,R4,R3
^
h! MOV R4,R4,LSL#8-2
r BL rnd
| SUB R7,R7,#113
�" ADD R4,R4,R7,ASL#3
�
� CMP R4,#0
� LDRLT R4,oldcol%
� BLT maus
� MOVGE R4,R4,ASR#8
�
� CMP R4,#16
� BLGE mod16
�
� STRLT R4,oldcol%
�
� .maus SUB R2,R2,#1
STRB R4,[R2,#0]
' SWI "OS_ReadEscapeState"
& BCS fini
0
: ADD R0,R0,#2
D CMP R0,#640
N SUBLT R0,R0,#1
X BLT xloop
b
l SUB R1,R1,#1
v CMP R1,#1
� BGT yloop
�
� LDR R5,coldata
� MOV R0,screen
�$ ADD R1,R0,#81920*2*2
� .changelp LDRB R2,[R0,#0]
� LDRB R6,[R5,R2]
� STRB R6,[R0],#1
� CMP R0,R1
� BLT changelp
�
� .fini LDMFD (sp)!,{PC}
�
.coldata EQUD code+4096
.scrn EQUD screen%
.oldcol% EQUD 0
* .mod16 SUB R4,R4,#16
4 CMP R4,#16
> BGE mod16
H MOV PC,R14
R
\.rnd LDR R7,seed
f LDR R8,c1
p LDR R9,c2
z MLA R7,R8,R7,R9
� MLA R10,R8,R7,R9
� STR R10,seed
�! � R7,R7,R10,ROR#16
�
� MOV R8,#256
� SUB R8,R8,#1
� � R7,R7,R8
�
� MOV PC,R14
�
�.c1 EQUD 1664525
�.c2 EQUD 907633393
�.seed EQUD �
.rnd% EQUD 0
]
�
$
� granite
.�
8
B
��cols
Ldata%=code+4096
V� I%=0 � 15
`� data%?I%
j�
t�
~
�<� 0,1,2,3, 44,45,46,47, 208,209,210,211, 252,253,254,255
�:� 0,1,2,3, 8,9,10,11, 164,165,166,167, 216,217,218,219
�
�
��scrn
�� block% 15,b2% 15
�block%!0=148
�block%!4=7
�block%!8=6
�block%!12=-1
�'ș "OS_ReadVduVariables",block%,b2%
�size%=b2%!4
�block%!0=148
block%!4=7
block%!8=6
block%!12=-1
'ș "OS_ReadVduVariables",block%,b2%
(screen%=b2%!0
2size%=b2%!4
<�
� 00000000 0d 00 0a 09 eb 32 38 3a 87 0d 00 14 12 de 20 63 |.....28:...... c|
00000010 6f 64 65 20 34 30 39 36 2b 31 36 0d 00 1e 1a ee |ode 4096+16.....|
00000020 20 85 20 f6 3a f1 22 20 61 74 20 6c 69 6e 65 20 | . .:." at line |
00000030 22 3b 9e 3a e0 0d 00 28 09 f2 73 63 72 6e 0d 00 |";.:...(..scrn..|
00000040 32 09 f2 63 6f 6c 73 0d 00 3c 04 0d 00 46 0b 6c |2..cols..<...F.l|
00000050 69 6e 6b 3d 31 34 0d 00 50 09 73 70 3d 31 33 0d |ink=14..P.sp=13.|
00000060 00 5a 0d 73 63 72 65 65 6e 3d 31 32 0d 00 64 04 |.Z.screen=12..d.|
00000070 0d 00 6e 14 e3 20 70 61 73 73 3d 30 20 b8 20 32 |..n.. pass=0 . 2|
00000080 20 88 20 32 0d 00 78 0b 50 25 3d 63 6f 64 65 0d | . 2..x.P%=code.|
00000090 00 82 0d 5b 4f 50 54 20 70 61 73 73 0d 00 8c 21 |...[OPT pass...!|
000000a0 2e 67 72 61 6e 69 74 65 20 20 20 53 54 4d 46 44 |.granite STMFD|
000000b0 20 28 73 70 29 21 2c 7b 6c 69 6e 6b 7d 0d 00 96 | (sp)!,{link}...|
000000c0 1e 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 20 |. LDR |
000000d0 73 63 72 65 65 6e 2c 73 63 72 6e 0d 00 a0 04 0d |screen,scrn.....|
000000e0 00 aa 28 20 20 20 20 20 20 20 20 20 20 20 4d 4f |..( MO|
000000f0 56 20 20 52 31 2c 23 34 38 30 3a 53 55 42 20 72 |V R1,#480:SUB r|
00000100 31 2c 72 31 2c 23 31 0d 00 b4 19 2e 79 6c 6f 6f |1,r1,#1.....yloo|
00000110 70 20 20 20 20 20 4d 4f 56 20 20 52 30 2c 23 31 |p MOV R0,#1|
00000120 0d 00 be 22 2e 78 6c 6f 6f 70 20 20 20 20 20 41 |...".xloop A|
00000130 44 44 20 20 52 32 2c 52 30 2c 52 31 2c 4c 53 4c |DD R2,R0,R1,LSL|
00000140 23 37 0d 00 c8 22 20 20 20 20 20 20 20 20 20 20 |#7..." |
00000150 20 41 44 44 20 20 52 32 2c 52 32 2c 52 31 2c 4c | ADD R2,R2,R1,L|
00000160 53 4c 23 39 0d 00 d2 20 20 20 20 20 20 20 20 20 |SL#9... |
00000170 20 20 20 41 44 44 20 20 52 32 2c 52 32 2c 73 63 | ADD R2,R2,sc|
00000180 72 65 65 6e 0d 00 dc 04 0d 00 e6 1c 20 20 20 20 |reen........ |
00000190 20 20 20 20 20 20 20 53 55 42 20 20 52 32 2c 52 | SUB R2,R|
000001a0 32 2c 23 31 0d 00 f0 1e 20 20 20 20 20 20 20 20 |2,#1.... |
000001b0 20 20 20 4c 44 52 42 20 52 34 2c 5b 52 32 2c 23 | LDRB R4,[R2,#|
000001c0 30 5d 0d 00 fa 20 20 20 20 20 20 20 20 20 20 20 |0]... |
000001d0 20 4c 44 52 42 20 52 33 2c 5b 52 32 2c 23 36 34 | LDRB R3,[R2,#64|
000001e0 30 5d 0d 01 04 1c 20 20 20 20 20 20 20 20 20 20 |0].... |
000001f0 20 41 44 44 20 20 52 34 2c 52 34 2c 52 33 0d 01 | ADD R4,R4,R3..|
00000200 0e 04 0d 01 18 1c 20 20 20 20 20 20 20 20 20 20 |...... |
00000210 20 41 44 44 20 20 52 32 2c 52 32 2c 23 31 0d 01 | ADD R2,R2,#1..|
00000220 22 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 |" LDR|
00000230 42 20 52 33 2c 5b 52 32 2c 23 36 34 30 5d 0d 01 |B R3,[R2,#640]..|
00000240 2c 1c 20 20 20 20 20 20 20 20 20 20 20 41 44 44 |,. ADD|
00000250 20 20 52 34 2c 52 34 2c 52 33 0d 01 36 04 0d 01 | R4,R4,R3..6...|
00000260 40 1c 20 20 20 20 20 20 20 20 20 20 20 41 44 44 |@. ADD|
00000270 20 20 52 32 2c 52 32 2c 23 31 0d 01 4a 20 20 20 | R2,R2,#1..J |
00000280 20 20 20 20 20 20 20 20 20 4c 44 52 42 20 52 33 | LDRB R3|
00000290 2c 5b 52 32 2c 23 36 34 30 5d 0d 01 54 1c 20 20 |,[R2,#640]..T. |
000002a0 20 20 20 20 20 20 20 20 20 41 44 44 20 20 52 34 | ADD R4|
000002b0 2c 52 34 2c 52 33 0d 01 5e 04 0d 01 68 21 20 20 |,R4,R3..^...h! |
000002c0 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 52 34 | MOV R4|
000002d0 2c 52 34 2c 4c 53 4c 23 38 2d 32 0d 01 72 17 20 |,R4,LSL#8-2..r. |
000002e0 20 20 20 20 20 20 20 20 20 20 42 4c 20 20 20 72 | BL r|
000002f0 6e 64 0d 01 7c 1e 20 20 20 20 20 20 20 20 20 20 |nd..|. |
00000300 20 53 55 42 20 20 52 37 2c 52 37 2c 23 31 31 33 | SUB R7,R7,#113|
00000310 0d 01 86 22 20 20 20 20 20 20 20 20 20 20 20 41 |..." A|
00000320 44 44 20 20 52 34 2c 52 34 2c 52 37 2c 41 53 4c |DD R4,R4,R7,ASL|
00000330 23 33 0d 01 90 04 0d 01 9a 1a 20 20 20 20 20 20 |#3........ |
00000340 20 20 20 20 20 43 4d 50 20 20 20 52 34 2c 23 30 | CMP R4,#0|
00000350 0d 01 a4 1f 20 20 20 20 20 20 20 20 20 20 20 4c |.... L|
00000360 44 52 4c 54 20 52 34 2c 6f 6c 64 63 6f 6c 25 0d |DRLT R4,oldcol%.|
00000370 01 ae 19 20 20 20 20 20 20 20 20 20 20 20 42 4c |... BL|
00000380 54 20 20 20 6d 61 75 73 0d 01 b8 20 20 20 20 20 |T maus... |
00000390 20 20 20 20 20 20 20 4d 4f 56 47 45 20 52 34 2c | MOVGE R4,|
000003a0 52 34 2c 41 53 52 23 38 0d 01 c2 04 0d 01 cc 1a |R4,ASR#8........|
000003b0 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 | CMP |
000003c0 52 34 2c 23 31 36 0d 01 d6 19 20 20 20 20 20 20 |R4,#16.... |
000003d0 20 20 20 20 20 42 4c 47 45 20 6d 6f 64 31 36 0d | BLGE mod16.|
000003e0 01 e0 04 0d 01 ea 1f 20 20 20 20 20 20 20 20 20 |....... |
000003f0 20 20 53 54 52 4c 54 20 52 34 2c 6f 6c 64 63 6f | STRLT R4,oldco|
00000400 6c 25 0d 01 f4 04 0d 01 fe 1c 2e 6d 61 75 73 20 |l%.........maus |
00000410 20 20 20 20 20 53 55 42 20 20 52 32 2c 52 32 2c | SUB R2,R2,|
00000420 23 31 0d 02 08 1e 20 20 20 20 20 20 20 20 20 20 |#1.... |
00000430 20 53 54 52 42 20 52 34 2c 5b 52 32 2c 23 30 5d | STRB R4,[R2,#0]|
00000440 0d 02 12 04 0d 02 1c 27 20 20 20 20 20 20 20 20 |.......' |
00000450 20 20 20 53 57 49 20 22 4f 53 5f 52 65 61 64 45 | SWI "OS_ReadE|
00000460 73 63 61 70 65 53 74 61 74 65 22 0d 02 26 17 20 |scapeState"..&. |
00000470 20 20 20 20 20 20 20 20 20 20 42 43 53 20 66 69 | BCS fi|
00000480 6e 69 0d 02 30 04 0d 02 3a 1d 20 20 20 20 20 20 |ni..0...:. |
00000490 20 20 20 20 20 41 44 44 20 20 20 52 30 2c 52 30 | ADD R0,R0|
000004a0 2c 23 32 0d 02 44 1c 20 20 20 20 20 20 20 20 20 |,#2..D. |
000004b0 20 20 43 4d 50 20 20 20 52 30 2c 23 36 34 30 0d | CMP R0,#640.|
000004c0 02 4e 1d 20 20 20 20 20 20 20 20 20 20 20 53 55 |.N. SU|
000004d0 42 4c 54 20 52 30 2c 52 30 2c 23 31 0d 02 58 1a |BLT R0,R0,#1..X.|
000004e0 20 20 20 20 20 20 20 20 20 20 20 42 4c 54 20 20 | BLT |
000004f0 20 78 6c 6f 6f 70 0d 02 62 04 0d 02 6c 1c 20 20 | xloop..b...l. |
00000500 20 20 20 20 20 20 20 20 20 53 55 42 20 20 52 31 | SUB R1|
00000510 2c 52 31 2c 23 31 0d 02 76 19 20 20 20 20 20 20 |,R1,#1..v. |
00000520 20 20 20 20 20 43 4d 50 20 20 52 31 2c 23 31 0d | CMP R1,#1.|
00000530 02 80 19 20 20 20 20 20 20 20 20 20 20 20 42 47 |... BG|
00000540 54 20 20 79 6c 6f 6f 70 0d 02 8a 04 0d 02 94 1e |T yloop........|
00000550 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 20 20 | LDR |
00000560 52 35 2c 63 6f 6c 64 61 74 61 0d 02 9e 1d 20 20 |R5,coldata.... |
00000570 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 52 30 | MOV R0|
00000580 2c 73 63 72 65 65 6e 0d 02 a8 24 20 20 20 20 20 |,screen...$ |
00000590 20 20 20 20 20 20 41 44 44 20 20 52 31 2c 52 30 | ADD R1,R0|
000005a0 2c 23 38 31 39 32 30 2a 32 2a 32 0d 02 b2 1e 2e |,#81920*2*2.....|
000005b0 63 68 61 6e 67 65 6c 70 20 20 4c 44 52 42 20 52 |changelp LDRB R|
000005c0 32 2c 5b 52 30 2c 23 30 5d 0d 02 bc 1e 20 20 20 |2,[R0,#0].... |
000005d0 20 20 20 20 20 20 20 20 4c 44 52 42 20 52 36 2c | LDRB R6,|
000005e0 5b 52 35 2c 52 32 5d 0d 02 c6 1e 20 20 20 20 20 |[R5,R2].... |
000005f0 20 20 20 20 20 20 53 54 52 42 20 52 36 2c 5b 52 | STRB R6,[R|
00000600 30 5d 2c 23 31 0d 02 d0 19 20 20 20 20 20 20 20 |0],#1.... |
00000610 20 20 20 20 43 4d 50 20 20 52 30 2c 52 31 0d 02 | CMP R0,R1..|
00000620 da 1c 20 20 20 20 20 20 20 20 20 20 20 42 4c 54 |.. BLT|
00000630 20 20 63 68 61 6e 67 65 6c 70 0d 02 e4 04 0d 02 | changelp......|
00000640 ee 1f 2e 66 69 6e 69 20 20 20 20 20 20 4c 44 4d |...fini LDM|
00000650 46 44 20 28 73 70 29 21 2c 7b 50 43 7d 0d 02 f8 |FD (sp)!,{PC}...|
00000660 04 0d 03 02 1d 2e 63 6f 6c 64 61 74 61 20 20 20 |......coldata |
00000670 45 51 55 44 20 63 6f 64 65 2b 34 30 39 36 0d 03 |EQUD code+4096..|
00000680 0c 1b 2e 73 63 72 6e 20 20 20 20 20 20 45 51 55 |...scrn EQU|
00000690 44 20 73 63 72 65 65 6e 25 0d 03 16 15 2e 6f 6c |D screen%.....ol|
000006a0 64 63 6f 6c 25 20 20 20 45 51 55 44 20 30 0d 03 |dcol% EQUD 0..|
000006b0 20 04 0d 03 2a 1c 2e 6d 6f 64 31 36 20 20 20 20 | ...*..mod16 |
000006c0 20 53 55 42 20 52 34 2c 52 34 2c 23 31 36 0d 03 | SUB R4,R4,#16..|
000006d0 34 19 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 |4. CMP|
000006e0 20 52 34 2c 23 31 36 0d 03 3e 18 20 20 20 20 20 | R4,#16..>. |
000006f0 20 20 20 20 20 20 42 47 45 20 6d 6f 64 31 36 0d | BGE mod16.|
00000700 03 48 19 20 20 20 20 20 20 20 20 20 20 20 4d 4f |.H. MO|
00000710 56 20 50 43 2c 52 31 34 0d 03 52 04 0d 03 5c 1a |V PC,R14..R...\.|
00000720 2e 72 6e 64 20 20 20 20 20 20 20 4c 44 52 20 52 |.rnd LDR R|
00000730 37 2c 73 65 65 64 0d 03 66 18 20 20 20 20 20 20 |7,seed..f. |
00000740 20 20 20 20 20 4c 44 52 20 52 38 2c 63 31 0d 03 | LDR R8,c1..|
00000750 70 18 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 |p. LDR|
00000760 20 52 39 2c 63 32 0d 03 7a 1e 20 20 20 20 20 20 | R9,c2..z. |
00000770 20 20 20 20 20 4d 4c 41 20 52 37 2c 52 38 2c 52 | MLA R7,R8,R|
00000780 37 2c 52 39 0d 03 84 1f 20 20 20 20 20 20 20 20 |7,R9.... |
00000790 20 20 20 4d 4c 41 20 52 31 30 2c 52 38 2c 52 37 | MLA R10,R8,R7|
000007a0 2c 52 39 0d 03 8e 1b 20 20 20 20 20 20 20 20 20 |,R9.... |
000007b0 20 20 53 54 52 20 52 31 30 2c 73 65 65 64 0d 03 | STR R10,seed..|
000007c0 98 21 20 20 20 20 20 20 20 20 20 20 20 82 20 52 |.! . R|
000007d0 37 2c 52 37 2c 52 31 30 2c 52 4f 52 23 31 36 0d |7,R7,R10,ROR#16.|
000007e0 03 a2 04 0d 03 ac 1a 20 20 20 20 20 20 20 20 20 |....... |
000007f0 20 20 4d 4f 56 20 52 38 2c 23 32 35 36 0d 03 b6 | MOV R8,#256...|
00000800 1b 20 20 20 20 20 20 20 20 20 20 20 53 55 42 20 |. SUB |
00000810 52 38 2c 52 38 2c 23 31 0d 03 c0 19 20 20 20 20 |R8,R8,#1.... |
00000820 20 20 20 20 20 20 20 80 20 52 37 2c 52 37 2c 52 | . R7,R7,R|
00000830 38 0d 03 ca 04 0d 03 d4 19 20 20 20 20 20 20 20 |8........ |
00000840 20 20 20 20 4d 4f 56 20 50 43 2c 52 31 34 0d 03 | MOV PC,R14..|
00000850 de 04 0d 03 e8 16 2e 63 31 20 20 20 45 51 55 44 |.......c1 EQUD|
00000860 20 31 36 36 34 35 32 35 0d 03 f2 18 2e 63 32 20 | 1664525.....c2 |
00000870 20 20 45 51 55 44 20 39 30 37 36 33 33 33 39 33 | EQUD 907633393|
00000880 0d 03 fc 10 2e 73 65 65 64 20 45 51 55 44 20 91 |.....seed EQUD .|
00000890 0d 04 06 10 2e 72 6e 64 25 20 45 51 55 44 20 30 |.....rnd% EQUD 0|
000008a0 0d 04 10 05 5d 0d 04 1a 05 ed 0d 04 24 0d d6 20 |....].......$.. |
000008b0 67 72 61 6e 69 74 65 0d 04 2e 05 e0 0d 04 38 04 |granite.......8.|
000008c0 0d 04 42 0a dd f2 63 6f 6c 73 0d 04 4c 13 64 61 |..B...cols..L.da|
000008d0 74 61 25 3d 63 6f 64 65 2b 34 30 39 36 0d 04 56 |ta%=code+4096..V|
000008e0 0f e3 20 49 25 3d 30 20 b8 20 31 35 0d 04 60 0e |.. I%=0 . 15..`.|
000008f0 f3 20 64 61 74 61 25 3f 49 25 0d 04 6a 05 ed 0d |. data%?I%..j...|
00000900 04 74 05 e1 0d 04 7e 04 0d 04 88 3c dc 20 30 2c |.t....~....<. 0,|
00000910 31 2c 32 2c 33 2c 20 34 34 2c 34 35 2c 34 36 2c |1,2,3, 44,45,46,|
00000920 34 37 2c 20 32 30 38 2c 32 30 39 2c 32 31 30 2c |47, 208,209,210,|
00000930 32 31 31 2c 20 32 35 32 2c 32 35 33 2c 32 35 34 |211, 252,253,254|
00000940 2c 32 35 35 0d 04 92 3a dc 20 30 2c 31 2c 32 2c |,255...:. 0,1,2,|
00000950 33 2c 20 38 2c 39 2c 31 30 2c 31 31 2c 20 31 36 |3, 8,9,10,11, 16|
00000960 34 2c 31 36 35 2c 31 36 36 2c 31 36 37 2c 20 32 |4,165,166,167, 2|
00000970 31 36 2c 32 31 37 2c 32 31 38 2c 32 31 39 0d 04 |16,217,218,219..|
00000980 9c 04 0d 04 a6 0a dd f2 73 63 72 6e 0d 04 b0 16 |........scrn....|
00000990 de 20 62 6c 6f 63 6b 25 20 31 35 2c 62 32 25 20 |. block% 15,b2% |
000009a0 31 35 0d 04 ba 10 62 6c 6f 63 6b 25 21 30 3d 31 |15....block%!0=1|
000009b0 34 38 0d 04 c4 0e 62 6c 6f 63 6b 25 21 34 3d 37 |48....block%!4=7|
000009c0 0d 04 ce 0e 62 6c 6f 63 6b 25 21 38 3d 36 0d 04 |....block%!8=6..|
000009d0 d8 10 62 6c 6f 63 6b 25 21 31 32 3d 2d 31 0d 04 |..block%!12=-1..|
000009e0 e2 27 c8 99 20 22 4f 53 5f 52 65 61 64 56 64 75 |.'.. "OS_ReadVdu|
000009f0 56 61 72 69 61 62 6c 65 73 22 2c 62 6c 6f 63 6b |Variables",block|
00000a00 25 2c 62 32 25 0d 04 ec 0f 73 69 7a 65 25 3d 62 |%,b2%....size%=b|
00000a10 32 25 21 34 0d 04 f6 10 62 6c 6f 63 6b 25 21 30 |2%!4....block%!0|
00000a20 3d 31 34 38 0d 05 00 0e 62 6c 6f 63 6b 25 21 34 |=148....block%!4|
00000a30 3d 37 0d 05 0a 0e 62 6c 6f 63 6b 25 21 38 3d 36 |=7....block%!8=6|
00000a40 0d 05 14 10 62 6c 6f 63 6b 25 21 31 32 3d 2d 31 |....block%!12=-1|
00000a50 0d 05 1e 27 c8 99 20 22 4f 53 5f 52 65 61 64 56 |...'.. "OS_ReadV|
00000a60 64 75 56 61 72 69 61 62 6c 65 73 22 2c 62 6c 6f |duVariables",blo|
00000a70 63 6b 25 2c 62 32 25 0d 05 28 11 73 63 72 65 65 |ck%,b2%..(.scree|
00000a80 6e 25 3d 62 32 25 21 30 0d 05 32 0f 73 69 7a 65 |n%=b2%!0..2.size|
00000a90 25 3d 62 32 25 21 34 0d 05 3c 05 e1 0d ff |%=b2%!4..<....|
00000a9e 
.