Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/Smale/Granite/GRANITE1
StarInfo/Smale/Granite/GRANITE1
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/GRANITE1 |
| Read OK: | ✔ |
| File size: | 0A8D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE13: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,#254
180.yloop MOV R0,#1
190.xloop ADD R2,R0,R1,LSL#6
200 ADD R2,R2,R1,LSL#8
210 ADD R2,R2,screen
220
230 SUB R2,R2,#1
240 LDRB R4,[R2,#0]
250 LDRB R3,[R2,#320]
260 ADD R4,R4,R3
270
280 ADD R2,R2,#1
290 LDRB R3,[R2,#320]
300 ADD R4,R4,R3
310
320 ADD R2,R2,#1
330 LDRB R3,[R2,#320]
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,#320
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
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
�13:�
� 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,#254
�.yloop MOV R0,#1
�".xloop ADD R2,R0,R1,LSL#6
�" ADD R2,R2,R1,LSL#8
� ADD R2,R2,screen
�
� SUB R2,R2,#1
� LDRB R4,[R2,#0]
� LDRB R3,[R2,#320]
ADD R4,R4,R3
ADD R2,R2,#1
" LDRB R3,[R2,#320]
, ADD R4,R4,R3
6
@ ADD R2,R2,#1
J LDRB R3,[R2,#320]
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,#320
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
� .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 31 33 3a 87 0d 00 14 12 de 20 63 |.....13:...... 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 1b 20 20 20 20 20 20 20 20 20 20 20 4d 4f |... MO|
000000f0 56 20 20 52 31 2c 23 32 35 34 0d 00 b4 19 2e 79 |V R1,#254.....y|
00000100 6c 6f 6f 70 20 20 20 20 20 4d 4f 56 20 20 52 30 |loop MOV R0|
00000110 2c 23 31 0d 00 be 22 2e 78 6c 6f 6f 70 20 20 20 |,#1...".xloop |
00000120 20 20 41 44 44 20 20 52 32 2c 52 30 2c 52 31 2c | ADD R2,R0,R1,|
00000130 4c 53 4c 23 36 0d 00 c8 22 20 20 20 20 20 20 20 |LSL#6..." |
00000140 20 20 20 20 41 44 44 20 20 52 32 2c 52 32 2c 52 | ADD R2,R2,R|
00000150 31 2c 4c 53 4c 23 38 0d 00 d2 20 20 20 20 20 20 |1,LSL#8... |
00000160 20 20 20 20 20 20 41 44 44 20 20 52 32 2c 52 32 | ADD R2,R2|
00000170 2c 73 63 72 65 65 6e 0d 00 dc 04 0d 00 e6 1c 20 |,screen........ |
00000180 20 20 20 20 20 20 20 20 20 20 53 55 42 20 20 52 | SUB R|
00000190 32 2c 52 32 2c 23 31 0d 00 f0 1e 20 20 20 20 20 |2,R2,#1.... |
000001a0 20 20 20 20 20 20 4c 44 52 42 20 52 34 2c 5b 52 | LDRB R4,[R|
000001b0 32 2c 23 30 5d 0d 00 fa 20 20 20 20 20 20 20 20 |2,#0]... |
000001c0 20 20 20 20 4c 44 52 42 20 52 33 2c 5b 52 32 2c | LDRB R3,[R2,|
000001d0 23 33 32 30 5d 0d 01 04 1c 20 20 20 20 20 20 20 |#320].... |
000001e0 20 20 20 20 41 44 44 20 20 52 34 2c 52 34 2c 52 | ADD R4,R4,R|
000001f0 33 0d 01 0e 04 0d 01 18 1c 20 20 20 20 20 20 20 |3........ |
00000200 20 20 20 20 41 44 44 20 20 52 32 2c 52 32 2c 23 | ADD R2,R2,#|
00000210 31 0d 01 22 20 20 20 20 20 20 20 20 20 20 20 20 |1.." |
00000220 4c 44 52 42 20 52 33 2c 5b 52 32 2c 23 33 32 30 |LDRB R3,[R2,#320|
00000230 5d 0d 01 2c 1c 20 20 20 20 20 20 20 20 20 20 20 |]..,. |
00000240 41 44 44 20 20 52 34 2c 52 34 2c 52 33 0d 01 36 |ADD R4,R4,R3..6|
00000250 04 0d 01 40 1c 20 20 20 20 20 20 20 20 20 20 20 |...@. |
00000260 41 44 44 20 20 52 32 2c 52 32 2c 23 31 0d 01 4a |ADD R2,R2,#1..J|
00000270 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 42 | LDRB|
00000280 20 52 33 2c 5b 52 32 2c 23 33 32 30 5d 0d 01 54 | R3,[R2,#320]..T|
00000290 1c 20 20 20 20 20 20 20 20 20 20 20 41 44 44 20 |. ADD |
000002a0 20 52 34 2c 52 34 2c 52 33 0d 01 5e 04 0d 01 68 | R4,R4,R3..^...h|
000002b0 21 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 20 |! MOV |
000002c0 20 52 34 2c 52 34 2c 4c 53 4c 23 38 2d 32 0d 01 | R4,R4,LSL#8-2..|
000002d0 72 17 20 20 20 20 20 20 20 20 20 20 20 42 4c 20 |r. BL |
000002e0 20 20 72 6e 64 0d 01 7c 1e 20 20 20 20 20 20 20 | rnd..|. |
000002f0 20 20 20 20 53 55 42 20 20 52 37 2c 52 37 2c 23 | SUB R7,R7,#|
00000300 31 31 33 0d 01 86 22 20 20 20 20 20 20 20 20 20 |113..." |
00000310 20 20 41 44 44 20 20 52 34 2c 52 34 2c 52 37 2c | ADD R4,R4,R7,|
00000320 41 53 4c 23 33 0d 01 90 04 0d 01 9a 1a 20 20 20 |ASL#3........ |
00000330 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 52 34 | CMP R4|
00000340 2c 23 30 0d 01 a4 1f 20 20 20 20 20 20 20 20 20 |,#0.... |
00000350 20 20 4c 44 52 4c 54 20 52 34 2c 6f 6c 64 63 6f | LDRLT R4,oldco|
00000360 6c 25 0d 01 ae 19 20 20 20 20 20 20 20 20 20 20 |l%.... |
00000370 20 42 4c 54 20 20 20 6d 61 75 73 0d 01 b8 20 20 | BLT maus... |
00000380 20 20 20 20 20 20 20 20 20 20 4d 4f 56 47 45 20 | MOVGE |
00000390 52 34 2c 52 34 2c 41 53 52 23 38 0d 01 c2 04 0d |R4,R4,ASR#8.....|
000003a0 01 cc 1a 20 20 20 20 20 20 20 20 20 20 20 43 4d |... CM|
000003b0 50 20 20 52 34 2c 23 31 36 0d 01 d6 19 20 20 20 |P R4,#16.... |
000003c0 20 20 20 20 20 20 20 20 42 4c 47 45 20 6d 6f 64 | BLGE mod|
000003d0 31 36 0d 01 e0 04 0d 01 ea 1f 20 20 20 20 20 20 |16........ |
000003e0 20 20 20 20 20 53 54 52 4c 54 20 52 34 2c 6f 6c | STRLT R4,ol|
000003f0 64 63 6f 6c 25 0d 01 f4 04 0d 01 fe 1c 2e 6d 61 |dcol%.........ma|
00000400 75 73 20 20 20 20 20 20 53 55 42 20 20 52 32 2c |us SUB R2,|
00000410 52 32 2c 23 31 0d 02 08 1e 20 20 20 20 20 20 20 |R2,#1.... |
00000420 20 20 20 20 53 54 52 42 20 52 34 2c 5b 52 32 2c | STRB R4,[R2,|
00000430 23 30 5d 0d 02 12 04 0d 02 1c 27 20 20 20 20 20 |#0].......' |
00000440 20 20 20 20 20 20 53 57 49 20 22 4f 53 5f 52 65 | SWI "OS_Re|
00000450 61 64 45 73 63 61 70 65 53 74 61 74 65 22 0d 02 |adEscapeState"..|
00000460 26 17 20 20 20 20 20 20 20 20 20 20 20 42 43 53 |&. BCS|
00000470 20 66 69 6e 69 0d 02 30 04 0d 02 3a 1d 20 20 20 | fini..0...:. |
00000480 20 20 20 20 20 20 20 20 41 44 44 20 20 20 52 30 | ADD R0|
00000490 2c 52 30 2c 23 32 0d 02 44 1c 20 20 20 20 20 20 |,R0,#2..D. |
000004a0 20 20 20 20 20 43 4d 50 20 20 20 52 30 2c 23 33 | CMP R0,#3|
000004b0 32 30 0d 02 4e 1d 20 20 20 20 20 20 20 20 20 20 |20..N. |
000004c0 20 53 55 42 4c 54 20 52 30 2c 52 30 2c 23 31 0d | SUBLT R0,R0,#1.|
000004d0 02 58 1a 20 20 20 20 20 20 20 20 20 20 20 42 4c |.X. BL|
000004e0 54 20 20 20 78 6c 6f 6f 70 0d 02 62 04 0d 02 6c |T xloop..b...l|
000004f0 1c 20 20 20 20 20 20 20 20 20 20 20 53 55 42 20 |. SUB |
00000500 20 52 31 2c 52 31 2c 23 31 0d 02 76 19 20 20 20 | R1,R1,#1..v. |
00000510 20 20 20 20 20 20 20 20 43 4d 50 20 20 52 31 2c | CMP R1,|
00000520 23 31 0d 02 80 19 20 20 20 20 20 20 20 20 20 20 |#1.... |
00000530 20 42 47 54 20 20 79 6c 6f 6f 70 0d 02 8a 04 0d | BGT yloop.....|
00000540 02 94 1e 20 20 20 20 20 20 20 20 20 20 20 4c 44 |... LD|
00000550 52 20 20 52 35 2c 63 6f 6c 64 61 74 61 0d 02 9e |R R5,coldata...|
00000560 1d 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 20 |. MOV |
00000570 20 52 30 2c 73 63 72 65 65 6e 0d 02 a8 20 20 20 | R0,screen... |
00000580 20 20 20 20 20 20 20 20 20 41 44 44 20 20 52 31 | ADD R1|
00000590 2c 52 30 2c 23 38 31 39 32 30 0d 02 b2 1e 2e 63 |,R0,#81920.....c|
000005a0 68 61 6e 67 65 6c 70 20 20 4c 44 52 42 20 52 32 |hangelp LDRB R2|
000005b0 2c 5b 52 30 2c 23 30 5d 0d 02 bc 1e 20 20 20 20 |,[R0,#0].... |
000005c0 20 20 20 20 20 20 20 4c 44 52 42 20 52 36 2c 5b | LDRB R6,[|
000005d0 52 35 2c 52 32 5d 0d 02 c6 1e 20 20 20 20 20 20 |R5,R2].... |
000005e0 20 20 20 20 20 53 54 52 42 20 52 36 2c 5b 52 30 | STRB R6,[R0|
000005f0 5d 2c 23 31 0d 02 d0 19 20 20 20 20 20 20 20 20 |],#1.... |
00000600 20 20 20 43 4d 50 20 20 52 30 2c 52 31 0d 02 da | CMP R0,R1...|
00000610 1c 20 20 20 20 20 20 20 20 20 20 20 42 4c 54 20 |. BLT |
00000620 20 63 68 61 6e 67 65 6c 70 0d 02 e4 04 0d 02 ee | changelp.......|
00000630 1f 2e 66 69 6e 69 20 20 20 20 20 20 4c 44 4d 46 |..fini LDMF|
00000640 44 20 28 73 70 29 21 2c 7b 50 43 7d 0d 02 f8 04 |D (sp)!,{PC}....|
00000650 0d 03 02 1d 2e 63 6f 6c 64 61 74 61 20 20 20 45 |.....coldata E|
00000660 51 55 44 20 63 6f 64 65 2b 34 30 39 36 0d 03 0c |QUD code+4096...|
00000670 1b 2e 73 63 72 6e 20 20 20 20 20 20 45 51 55 44 |..scrn EQUD|
00000680 20 73 63 72 65 65 6e 25 0d 03 16 15 2e 6f 6c 64 | screen%.....old|
00000690 63 6f 6c 25 20 20 20 45 51 55 44 20 30 0d 03 20 |col% EQUD 0.. |
000006a0 04 0d 03 2a 1c 2e 6d 6f 64 31 36 20 20 20 20 20 |...*..mod16 |
000006b0 53 55 42 20 52 34 2c 52 34 2c 23 31 36 0d 03 34 |SUB R4,R4,#16..4|
000006c0 19 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 |. CMP |
000006d0 52 34 2c 23 31 36 0d 03 3e 18 20 20 20 20 20 20 |R4,#16..>. |
000006e0 20 20 20 20 20 42 47 45 20 6d 6f 64 31 36 0d 03 | BGE mod16..|
000006f0 48 19 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 |H. MOV|
00000700 20 50 43 2c 52 31 34 0d 03 52 04 0d 03 5c 1a 2e | PC,R14..R...\..|
00000710 72 6e 64 20 20 20 20 20 20 20 4c 44 52 20 52 37 |rnd LDR R7|
00000720 2c 73 65 65 64 0d 03 66 18 20 20 20 20 20 20 20 |,seed..f. |
00000730 20 20 20 20 4c 44 52 20 52 38 2c 63 31 0d 03 70 | LDR R8,c1..p|
00000740 18 20 20 20 20 20 20 20 20 20 20 20 4c 44 52 20 |. LDR |
00000750 52 39 2c 63 32 0d 03 7a 1e 20 20 20 20 20 20 20 |R9,c2..z. |
00000760 20 20 20 20 4d 4c 41 20 52 37 2c 52 38 2c 52 37 | MLA R7,R8,R7|
00000770 2c 52 39 0d 03 84 1f 20 20 20 20 20 20 20 20 20 |,R9.... |
00000780 20 20 4d 4c 41 20 52 31 30 2c 52 38 2c 52 37 2c | MLA R10,R8,R7,|
00000790 52 39 0d 03 8e 1b 20 20 20 20 20 20 20 20 20 20 |R9.... |
000007a0 20 53 54 52 20 52 31 30 2c 73 65 65 64 0d 03 98 | STR R10,seed...|
000007b0 21 20 20 20 20 20 20 20 20 20 20 20 82 20 52 37 |! . R7|
000007c0 2c 52 37 2c 52 31 30 2c 52 4f 52 23 31 36 0d 03 |,R7,R10,ROR#16..|
000007d0 a2 04 0d 03 ac 1a 20 20 20 20 20 20 20 20 20 20 |...... |
000007e0 20 4d 4f 56 20 52 38 2c 23 32 35 36 0d 03 b6 1b | MOV R8,#256....|
000007f0 20 20 20 20 20 20 20 20 20 20 20 53 55 42 20 52 | SUB R|
00000800 38 2c 52 38 2c 23 31 0d 03 c0 19 20 20 20 20 20 |8,R8,#1.... |
00000810 20 20 20 20 20 20 80 20 52 37 2c 52 37 2c 52 38 | . R7,R7,R8|
00000820 0d 03 ca 04 0d 03 d4 19 20 20 20 20 20 20 20 20 |........ |
00000830 20 20 20 4d 4f 56 20 50 43 2c 52 31 34 0d 03 de | MOV PC,R14...|
00000840 04 0d 03 e8 16 2e 63 31 20 20 20 45 51 55 44 20 |......c1 EQUD |
00000850 31 36 36 34 35 32 35 0d 03 f2 18 2e 63 32 20 20 |1664525.....c2 |
00000860 20 45 51 55 44 20 39 30 37 36 33 33 33 39 33 0d | EQUD 907633393.|
00000870 03 fc 10 2e 73 65 65 64 20 45 51 55 44 20 91 0d |....seed EQUD ..|
00000880 04 06 10 2e 72 6e 64 25 20 45 51 55 44 20 30 0d |....rnd% EQUD 0.|
00000890 04 10 05 5d 0d 04 1a 05 ed 0d 04 24 0d d6 20 67 |...].......$.. g|
000008a0 72 61 6e 69 74 65 0d 04 2e 05 e0 0d 04 38 04 0d |ranite.......8..|
000008b0 04 42 0a dd f2 63 6f 6c 73 0d 04 4c 13 64 61 74 |.B...cols..L.dat|
000008c0 61 25 3d 63 6f 64 65 2b 34 30 39 36 0d 04 56 0f |a%=code+4096..V.|
000008d0 e3 20 49 25 3d 30 20 b8 20 31 35 0d 04 60 0e f3 |. I%=0 . 15..`..|
000008e0 20 64 61 74 61 25 3f 49 25 0d 04 6a 05 ed 0d 04 | data%?I%..j....|
000008f0 74 05 e1 0d 04 7e 04 0d 04 88 3c dc 20 30 2c 31 |t....~....<. 0,1|
00000900 2c 32 2c 33 2c 20 34 34 2c 34 35 2c 34 36 2c 34 |,2,3, 44,45,46,4|
00000910 37 2c 20 32 30 38 2c 32 30 39 2c 32 31 30 2c 32 |7, 208,209,210,2|
00000920 31 31 2c 20 32 35 32 2c 32 35 33 2c 32 35 34 2c |11, 252,253,254,|
00000930 32 35 35 0d 04 92 3a dc 20 30 2c 31 2c 32 2c 33 |255...:. 0,1,2,3|
00000940 2c 20 38 2c 39 2c 31 30 2c 31 31 2c 20 31 36 34 |, 8,9,10,11, 164|
00000950 2c 31 36 35 2c 31 36 36 2c 31 36 37 2c 20 32 31 |,165,166,167, 21|
00000960 36 2c 32 31 37 2c 32 31 38 2c 32 31 39 0d 04 9c |6,217,218,219...|
00000970 04 0d 04 a6 0a dd f2 73 63 72 6e 0d 04 b0 16 de |.......scrn.....|
00000980 20 62 6c 6f 63 6b 25 20 31 35 2c 62 32 25 20 31 | block% 15,b2% 1|
00000990 35 0d 04 ba 10 62 6c 6f 63 6b 25 21 30 3d 31 34 |5....block%!0=14|
000009a0 38 0d 04 c4 0e 62 6c 6f 63 6b 25 21 34 3d 37 0d |8....block%!4=7.|
000009b0 04 ce 0e 62 6c 6f 63 6b 25 21 38 3d 36 0d 04 d8 |...block%!8=6...|
000009c0 10 62 6c 6f 63 6b 25 21 31 32 3d 2d 31 0d 04 e2 |.block%!12=-1...|
000009d0 27 c8 99 20 22 4f 53 5f 52 65 61 64 56 64 75 56 |'.. "OS_ReadVduV|
000009e0 61 72 69 61 62 6c 65 73 22 2c 62 6c 6f 63 6b 25 |ariables",block%|
000009f0 2c 62 32 25 0d 04 ec 0f 73 69 7a 65 25 3d 62 32 |,b2%....size%=b2|
00000a00 25 21 34 0d 04 f6 10 62 6c 6f 63 6b 25 21 30 3d |%!4....block%!0=|
00000a10 31 34 38 0d 05 00 0e 62 6c 6f 63 6b 25 21 34 3d |148....block%!4=|
00000a20 37 0d 05 0a 0e 62 6c 6f 63 6b 25 21 38 3d 36 0d |7....block%!8=6.|
00000a30 05 14 10 62 6c 6f 63 6b 25 21 31 32 3d 2d 31 0d |...block%!12=-1.|
00000a40 05 1e 27 c8 99 20 22 4f 53 5f 52 65 61 64 56 64 |..'.. "OS_ReadVd|
00000a50 75 56 61 72 69 61 62 6c 65 73 22 2c 62 6c 6f 63 |uVariables",bloc|
00000a60 6b 25 2c 62 32 25 0d 05 28 11 73 63 72 65 65 6e |k%,b2%..(.screen|
00000a70 25 3d 62 32 25 21 30 0d 05 32 0f 73 69 7a 65 25 |%=b2%!0..2.size%|
00000a80 3d 62 32 25 21 34 0d 05 3c 05 e1 0d ff |=b2%!4..<....|
00000a8d 
.