Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Features1 » StarInfo/Smale/FERN1
StarInfo/Smale/FERN1
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-04 A.adf » Features1 |
| Filename: | StarInfo/Smale/FERN1 |
| Read OK: | ✔ |
| File size: | 0921 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE13:OFF
20DIM code 4096+16
30ON ERROR REPORT:PRINT" at line ";ERL:END
40PROCscrn
50
60PRINTTAB(2,2);"Fast or Slow? (F/S) ";
70G$=GET$
80IF G$="S" OR G$="s" PRINT"Slow" ELSE PRINT"Fast"
90PROCcols
100FOR K=0 TO 12000:NEXT
110CLS
120
130link=14
140sp=13
150screen=12
160GCOL 1
170
180FOR pass=0 TO 2 STEP 2
190P%=code
200[OPT pass
210.fern STMFD (sp)!,{link}
220 LDR screen,scrn
230 MOV R6,#0
240 ADD R1,screen,#81920
250 SUB R1,R1,#320*8+(ABS(G$="S" OR G$="s")*320*16)
260LDR R10,seed
270LDR R8,c1
280LDR R9,c2
290ADD R11,screen,#81920
300SUB R11,R11,#320*2
310MOV R14,#4<<12
320
330.dotloop ADD R14,R14,#1
340
350 MLA R7,R8,R10,R9
360 MLA R10,R8,R7,R9
370 EOR R7,R7,R10,ROR#16
380
390 MOV R3,#512
400 SUB R3,R3,#1
410 AND R7,R7,R3
420
430 ADD R0,R1,R7
440.yloop ADD R0,R0,#320
450
460 MLA R7,R8,R10,R9
470 MLA R10,R8,R7,R9
480 EOR R7,R7,R10,ROR#16
490AND R7,R7,#2
500SUB R7,R7,#1
510ADD R0,R0,R7
520
530CMP R0,R11
540BGE draw
550
560]
570IF G$="S" OR G$="s" THEN
580[OPT pass
590MOV R3,#255
600STRB R3,[R0,#0]
610STMFD (sp)!,{R0-R12}
620MOV R0,#19
630SWI "OS_Byte"
640SWI "OS_ReadEscapeState"
650LDMFD (sp)!,{R0-R12}
660MOV R3,#0
670STRB R3,[R0,#0]
680BCS fini
690]
700ENDIF
710[OPT pass
720
730 LDRB R3,[R0,#320]
740 CMP R3,#0
750 BNE draw
760
770 LDRB R2,[R0,#-1]
780 CMP R2,#0
790 BNE draw
800
810 LDRB R3,[R0,#1]
820 CMP R3,#0
830 BEQ yloop
840
850.draw
860LDR R3,coldata
870LDRB R6,[R3,R14,LSR#12]
880STRB R6,[R0,#0]
890
900SUB R0,R0,#320*8
910CMP R0,R1
920MOVLT R1,R0
930CMP R1,screen
940BLT fini
950
960SWI "OS_ReadEscapeState"
970BCC dotloop
980
990.fini LDMFD (sp)!,{PC}
1000.scrn EQUD screen%
1010.c1 EQUD 1664525
1020.c2 EQUD 907633393
1030.seed EQUD TIME
1040.coldata EQUD code+1024
1050]
1060NEXT
1070CALL fern
1080PRINTTAB(0,29);
1090END
1100
1110DEFPROCcols
1120data%=code+1024
1130FOR I%=0 TO 15
1140READ data%?I%
1150NEXT
1160IF G$="S" OR G$="s" THEN
1170FOR I%=0 TO 15
1180READ data%?I%
1190NEXT
1200ENDIF
1210ENDPROC
1220DATA 1,1,2,3, 8,9,10,11, 164,165,166,167, 216,217,218,219
1230DATA 1,1,2,3, 44,45,46,47, 208,209,210,211, 252,253,254,255
1240
1250DEFPROCscrn
1260DIM block% 15,b2% 15
1270block%!0=148
1280block%!4=7
1290block%!8=6
1300block%!12=-1
1310SYS "OS_ReadVduVariables",block%,b2%
1320screen%=b2%!0
1330ENDPROC
�13:�
� code 4096+16
� � �:�" at line ";�:�
( �scrn
2
<"�2,2);"Fast or Slow? (F/S) ";
FG$=�
P'� G$="S" � G$="s" �"Slow" � �"Fast"
Z �cols
d� K=0 � 12000:�
n�
x
� link=14
� sp=13
�
screen=12
�� 1
�
�� pass=0 � 2 � 2
� P%=code
�
[OPT pass
�!.fern STMFD (sp)!,{link}
� LDR screen,scrn
� MOV R6,#0
�# ADD R1,screen,#81920
�; SUB R1,R1,#320*8+(�(G$="S" � G$="s")*320*16)
LDR R10,seed
LDR R8,c1
LDR R9,c2
"ADD R11,screen,#81920
,SUB R11,R11,#320*2
6MOV R14,#4<<12
@
J .dotloop ADD R14,R14,#1
T
^ MLA R7,R8,R10,R9
h MLA R10,R8,R7,R9
r! � R7,R7,R10,ROR#16
|
� MOV R3,#512
� SUB R3,R3,#1
� � R7,R7,R3
�
� ADD R0,R1,R7
� .yloop ADD R0,R0,#320
�
� MLA R7,R8,R10,R9
� MLA R10,R8,R7,R9
�! � R7,R7,R10,ROR#16
�� R7,R7,#2
�SUB R7,R7,#1
�ADD R0,R0,R7
CMP R0,R11
BGE draw
&
0]
:� G$="S" � G$="s" �
D
[OPT pass
NMOV R3,#255
XSTRB R3,[R0,#0]
bSTMFD (sp)!,{R0-R12}
lMOV R0,#19
vSWI "OS_Byte"
� SWI "OS_ReadEscapeState"
�LDMFD (sp)!,{R0-R12}
�
MOV R3,#0
�STRB R3,[R0,#0]
� BCS fini
�]
��
�
[OPT pass
�
�! LDRB R3,[R0,#320]
� CMP R3,#0
� BNE draw
�
LDRB R2,[R0,#-1]
CMP R2,#0
BNE draw
* LDRB R3,[R0,#1]
4 CMP R3,#0
> BEQ yloop
H
R .draw
\LDR R3,coldata
fLDRB R6,[R3,R14,LSR#12]
pSTRB R6,[R0,#0]
z
�SUB R0,R0,#320*8
�CMP R0,R1
�MOVLT R1,R0
�CMP R1,screen
�BLT fini
�
� SWI "OS_ReadEscapeState"
�BCC dotloop
�
� .fini LDMFD (sp)!,{PC}
�.scrn EQUD screen%
�.c1 EQUD 1664525
�.c2 EQUD 907633393
.seed EQUD �
.coldata EQUD code+1024
]
$�
.
� fern
8 �0,29);
B�
L
V
��cols
`data%=code+1024
j� I%=0 � 15
t� data%?I%
~�
�� G$="S" � G$="s" �
�� I%=0 � 15
�� data%?I%
��
��
��
�:� 1,1,2,3, 8,9,10,11, 164,165,166,167, 216,217,218,219
�<� 1,1,2,3, 44,45,46,47, 208,209,210,211, 252,253,254,255
�
�
��scrn
�� block% 15,b2% 15
�block%!0=148
block%!4=7
block%!8=6
block%!12=-1
'ș "OS_ReadVduVariables",block%,b2%
(screen%=b2%!0
2�
� 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 04 0d 00 3c 22 f1 8a 32 2c 32 29 3b 22 46 61 |2...<"..2,2);"Fa|
00000050 73 74 20 6f 72 20 53 6c 6f 77 3f 20 28 46 2f 53 |st or Slow? (F/S|
00000060 29 20 22 3b 0d 00 46 08 47 24 3d be 0d 00 50 27 |) ";..F.G$=...P'|
00000070 e7 20 47 24 3d 22 53 22 20 84 20 47 24 3d 22 73 |. G$="S" . G$="s|
00000080 22 20 f1 22 53 6c 6f 77 22 20 8b 20 f1 22 46 61 |" ."Slow" . ."Fa|
00000090 73 74 22 0d 00 5a 09 f2 63 6f 6c 73 0d 00 64 13 |st"..Z..cols..d.|
000000a0 e3 20 4b 3d 30 20 b8 20 31 32 30 30 30 3a ed 0d |. K=0 . 12000:..|
000000b0 00 6e 05 db 0d 00 78 04 0d 00 82 0b 6c 69 6e 6b |.n....x.....link|
000000c0 3d 31 34 0d 00 8c 09 73 70 3d 31 33 0d 00 96 0d |=14....sp=13....|
000000d0 73 63 72 65 65 6e 3d 31 32 0d 00 a0 07 e6 20 31 |screen=12..... 1|
000000e0 0d 00 aa 04 0d 00 b4 14 e3 20 70 61 73 73 3d 30 |......... pass=0|
000000f0 20 b8 20 32 20 88 20 32 0d 00 be 0b 50 25 3d 63 | . 2 . 2....P%=c|
00000100 6f 64 65 0d 00 c8 0d 5b 4f 50 54 20 70 61 73 73 |ode....[OPT pass|
00000110 0d 00 d2 21 2e 66 65 72 6e 20 20 20 20 20 20 53 |...!.fern S|
00000120 54 4d 46 44 20 28 73 70 29 21 2c 7b 6c 69 6e 6b |TMFD (sp)!,{link|
00000130 7d 0d 00 dc 1e 20 20 20 20 20 20 20 20 20 20 20 |}.... |
00000140 4c 44 52 20 73 63 72 65 65 6e 2c 73 63 72 6e 0d |LDR screen,scrn.|
00000150 00 e6 18 20 20 20 20 20 20 20 20 20 20 20 4d 4f |... MO|
00000160 56 20 52 36 2c 23 30 0d 00 f0 23 20 20 20 20 20 |V R6,#0...# |
00000170 20 20 20 20 20 20 41 44 44 20 52 31 2c 73 63 72 | ADD R1,scr|
00000180 65 65 6e 2c 23 38 31 39 32 30 0d 00 fa 3b 20 20 |een,#81920...; |
00000190 20 20 20 20 20 20 20 20 20 53 55 42 20 52 31 2c | SUB R1,|
000001a0 52 31 2c 23 33 32 30 2a 38 2b 28 94 28 47 24 3d |R1,#320*8+(.(G$=|
000001b0 22 53 22 20 84 20 47 24 3d 22 73 22 29 2a 33 32 |"S" . G$="s")*32|
000001c0 30 2a 31 36 29 0d 01 04 10 4c 44 52 20 52 31 30 |0*16)....LDR R10|
000001d0 2c 73 65 65 64 0d 01 0e 0d 4c 44 52 20 52 38 2c |,seed....LDR R8,|
000001e0 63 31 0d 01 18 0d 4c 44 52 20 52 39 2c 63 32 0d |c1....LDR R9,c2.|
000001f0 01 22 19 41 44 44 20 52 31 31 2c 73 63 72 65 65 |.".ADD R11,scree|
00000200 6e 2c 23 38 31 39 32 30 0d 01 2c 16 53 55 42 20 |n,#81920..,.SUB |
00000210 52 31 31 2c 52 31 31 2c 23 33 32 30 2a 32 0d 01 |R11,R11,#320*2..|
00000220 36 12 4d 4f 56 20 52 31 34 2c 23 34 3c 3c 31 32 |6.MOV R14,#4<<12|
00000230 0d 01 40 04 0d 01 4a 1d 2e 64 6f 74 6c 6f 6f 70 |..@...J..dotloop|
00000240 20 20 20 41 44 44 20 52 31 34 2c 52 31 34 2c 23 | ADD R14,R14,#|
00000250 31 0d 01 54 04 0d 01 5e 1f 20 20 20 20 20 20 20 |1..T...^. |
00000260 20 20 20 20 4d 4c 41 20 52 37 2c 52 38 2c 52 31 | MLA R7,R8,R1|
00000270 30 2c 52 39 0d 01 68 1f 20 20 20 20 20 20 20 20 |0,R9..h. |
00000280 20 20 20 4d 4c 41 20 52 31 30 2c 52 38 2c 52 37 | MLA R10,R8,R7|
00000290 2c 52 39 0d 01 72 21 20 20 20 20 20 20 20 20 20 |,R9..r! |
000002a0 20 20 82 20 52 37 2c 52 37 2c 52 31 30 2c 52 4f | . R7,R7,R10,RO|
000002b0 52 23 31 36 0d 01 7c 04 0d 01 86 1a 20 20 20 20 |R#16..|..... |
000002c0 20 20 20 20 20 20 20 4d 4f 56 20 52 33 2c 23 35 | MOV R3,#5|
000002d0 31 32 0d 01 90 1b 20 20 20 20 20 20 20 20 20 20 |12.... |
000002e0 20 53 55 42 20 52 33 2c 52 33 2c 23 31 0d 01 9a | SUB R3,R3,#1...|
000002f0 19 20 20 20 20 20 20 20 20 20 20 20 80 20 52 37 |. . R7|
00000300 2c 52 37 2c 52 33 0d 01 a4 04 0d 01 ae 1b 20 20 |,R7,R3........ |
00000310 20 20 20 20 20 20 20 20 20 41 44 44 20 52 30 2c | ADD R0,|
00000320 52 31 2c 52 37 0d 01 b8 1d 2e 79 6c 6f 6f 70 20 |R1,R7.....yloop |
00000330 20 20 20 20 41 44 44 20 52 30 2c 52 30 2c 23 33 | ADD R0,R0,#3|
00000340 32 30 0d 01 c2 04 0d 01 cc 1f 20 20 20 20 20 20 |20........ |
00000350 20 20 20 20 20 4d 4c 41 20 52 37 2c 52 38 2c 52 | MLA R7,R8,R|
00000360 31 30 2c 52 39 0d 01 d6 1f 20 20 20 20 20 20 20 |10,R9.... |
00000370 20 20 20 20 4d 4c 41 20 52 31 30 2c 52 38 2c 52 | MLA R10,R8,R|
00000380 37 2c 52 39 0d 01 e0 21 20 20 20 20 20 20 20 20 |7,R9...! |
00000390 20 20 20 82 20 52 37 2c 52 37 2c 52 31 30 2c 52 | . R7,R7,R10,R|
000003a0 4f 52 23 31 36 0d 01 ea 0e 80 20 52 37 2c 52 37 |OR#16..... R7,R7|
000003b0 2c 23 32 0d 01 f4 10 53 55 42 20 52 37 2c 52 37 |,#2....SUB R7,R7|
000003c0 2c 23 31 0d 01 fe 10 41 44 44 20 52 30 2c 52 30 |,#1....ADD R0,R0|
000003d0 2c 52 37 0d 02 08 04 0d 02 12 0e 43 4d 50 20 52 |,R7........CMP R|
000003e0 30 2c 52 31 31 0d 02 1c 0c 42 47 45 20 64 72 61 |0,R11....BGE dra|
000003f0 77 0d 02 26 04 0d 02 30 05 5d 0d 02 3a 17 e7 20 |w..&...0.]..:.. |
00000400 47 24 3d 22 53 22 20 84 20 47 24 3d 22 73 22 20 |G$="S" . G$="s" |
00000410 8c 0d 02 44 0d 5b 4f 50 54 20 70 61 73 73 0d 02 |...D.[OPT pass..|
00000420 4e 0f 4d 4f 56 20 52 33 2c 23 32 35 35 0d 02 58 |N.MOV R3,#255..X|
00000430 13 53 54 52 42 20 52 33 2c 5b 52 30 2c 23 30 5d |.STRB R3,[R0,#0]|
00000440 0d 02 62 18 53 54 4d 46 44 20 28 73 70 29 21 2c |..b.STMFD (sp)!,|
00000450 7b 52 30 2d 52 31 32 7d 0d 02 6c 0e 4d 4f 56 20 |{R0-R12}..l.MOV |
00000460 52 30 2c 23 31 39 0d 02 76 11 53 57 49 20 22 4f |R0,#19..v.SWI "O|
00000470 53 5f 42 79 74 65 22 0d 02 80 1c 53 57 49 20 22 |S_Byte"....SWI "|
00000480 4f 53 5f 52 65 61 64 45 73 63 61 70 65 53 74 61 |OS_ReadEscapeSta|
00000490 74 65 22 0d 02 8a 18 4c 44 4d 46 44 20 28 73 70 |te"....LDMFD (sp|
000004a0 29 21 2c 7b 52 30 2d 52 31 32 7d 0d 02 94 0d 4d |)!,{R0-R12}....M|
000004b0 4f 56 20 52 33 2c 23 30 0d 02 9e 13 53 54 52 42 |OV R3,#0....STRB|
000004c0 20 52 33 2c 5b 52 30 2c 23 30 5d 0d 02 a8 0c 42 | R3,[R0,#0]....B|
000004d0 43 53 20 66 69 6e 69 0d 02 b2 05 5d 0d 02 bc 05 |CS fini....]....|
000004e0 cd 0d 02 c6 0d 5b 4f 50 54 20 70 61 73 73 0d 02 |.....[OPT pass..|
000004f0 d0 04 0d 02 da 21 20 20 20 20 20 20 20 20 20 20 |.....! |
00000500 20 4c 44 52 42 20 20 52 33 2c 5b 52 30 2c 23 33 | LDRB R3,[R0,#3|
00000510 32 30 5d 0d 02 e4 1a 20 20 20 20 20 20 20 20 20 |20].... |
00000520 20 20 43 4d 50 20 20 20 52 33 2c 23 30 0d 02 ee | CMP R3,#0...|
00000530 19 20 20 20 20 20 20 20 20 20 20 20 42 4e 45 20 |. BNE |
00000540 20 20 64 72 61 77 0d 02 f8 04 0d 03 02 20 20 20 | draw....... |
00000550 20 20 20 20 20 20 20 20 20 4c 44 52 42 20 20 52 | LDRB R|
00000560 32 2c 5b 52 30 2c 23 2d 31 5d 0d 03 0c 1a 20 20 |2,[R0,#-1].... |
00000570 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 52 | CMP R|
00000580 32 2c 23 30 0d 03 16 19 20 20 20 20 20 20 20 20 |2,#0.... |
00000590 20 20 20 42 4e 45 20 20 20 64 72 61 77 0d 03 20 | BNE draw.. |
000005a0 04 0d 03 2a 1f 20 20 20 20 20 20 20 20 20 20 20 |...*. |
000005b0 4c 44 52 42 20 20 52 33 2c 5b 52 30 2c 23 31 5d |LDRB R3,[R0,#1]|
000005c0 0d 03 34 1a 20 20 20 20 20 20 20 20 20 20 20 43 |..4. C|
000005d0 4d 50 20 20 20 52 33 2c 23 30 0d 03 3e 1a 20 20 |MP R3,#0..>. |
000005e0 20 20 20 20 20 20 20 20 20 42 45 51 20 20 20 79 | BEQ y|
000005f0 6c 6f 6f 70 0d 03 48 04 0d 03 52 09 2e 64 72 61 |loop..H...R..dra|
00000600 77 0d 03 5c 13 4c 44 52 20 20 52 33 2c 63 6f 6c |w..\.LDR R3,col|
00000610 64 61 74 61 0d 03 66 1b 4c 44 52 42 20 52 36 2c |data..f.LDRB R6,|
00000620 5b 52 33 2c 52 31 34 2c 4c 53 52 23 31 32 5d 0d |[R3,R14,LSR#12].|
00000630 03 70 13 53 54 52 42 20 52 36 2c 5b 52 30 2c 23 |.p.STRB R6,[R0,#|
00000640 30 5d 0d 03 7a 04 0d 03 84 16 53 55 42 20 20 20 |0]..z.....SUB |
00000650 52 30 2c 52 30 2c 23 33 32 30 2a 38 0d 03 8e 0f |R0,R0,#320*8....|
00000660 43 4d 50 20 20 20 52 30 2c 52 31 0d 03 98 0f 4d |CMP R0,R1....M|
00000670 4f 56 4c 54 20 52 31 2c 52 30 0d 03 a2 13 43 4d |OVLT R1,R0....CM|
00000680 50 20 20 20 52 31 2c 73 63 72 65 65 6e 0d 03 ac |P R1,screen...|
00000690 0e 42 4c 54 20 20 20 66 69 6e 69 0d 03 b6 04 0d |.BLT fini.....|
000006a0 03 c0 1c 53 57 49 20 22 4f 53 5f 52 65 61 64 45 |...SWI "OS_ReadE|
000006b0 73 63 61 70 65 53 74 61 74 65 22 0d 03 ca 0f 42 |scapeState"....B|
000006c0 43 43 20 64 6f 74 6c 6f 6f 70 0d 03 d4 04 0d 03 |CC dotloop......|
000006d0 de 1f 2e 66 69 6e 69 20 20 20 20 20 20 4c 44 4d |...fini LDM|
000006e0 46 44 20 28 73 70 29 21 2c 7b 50 43 7d 0d 03 e8 |FD (sp)!,{PC}...|
000006f0 1b 2e 73 63 72 6e 20 20 20 20 20 20 45 51 55 44 |..scrn EQUD|
00000700 20 73 63 72 65 65 6e 25 0d 03 f2 16 2e 63 31 20 | screen%.....c1 |
00000710 20 20 45 51 55 44 20 31 36 36 34 35 32 35 0d 03 | EQUD 1664525..|
00000720 fc 18 2e 63 32 20 20 20 45 51 55 44 20 39 30 37 |...c2 EQUD 907|
00000730 36 33 33 33 39 33 0d 04 06 10 2e 73 65 65 64 20 |633393.....seed |
00000740 45 51 55 44 20 91 0d 04 10 1b 2e 63 6f 6c 64 61 |EQUD ......colda|
00000750 74 61 20 45 51 55 44 20 63 6f 64 65 2b 31 30 32 |ta EQUD code+102|
00000760 34 0d 04 1a 05 5d 0d 04 24 05 ed 0d 04 2e 0a d6 |4....]..$.......|
00000770 20 66 65 72 6e 0d 04 38 0c f1 8a 30 2c 32 39 29 | fern..8...0,29)|
00000780 3b 0d 04 42 05 e0 0d 04 4c 04 0d 04 56 0a dd f2 |;..B....L...V...|
00000790 63 6f 6c 73 0d 04 60 13 64 61 74 61 25 3d 63 6f |cols..`.data%=co|
000007a0 64 65 2b 31 30 32 34 0d 04 6a 0f e3 20 49 25 3d |de+1024..j.. I%=|
000007b0 30 20 b8 20 31 35 0d 04 74 0e f3 20 64 61 74 61 |0 . 15..t.. data|
000007c0 25 3f 49 25 0d 04 7e 05 ed 0d 04 88 17 e7 20 47 |%?I%..~....... G|
000007d0 24 3d 22 53 22 20 84 20 47 24 3d 22 73 22 20 8c |$="S" . G$="s" .|
000007e0 0d 04 92 0f e3 20 49 25 3d 30 20 b8 20 31 35 0d |..... I%=0 . 15.|
000007f0 04 9c 0e f3 20 64 61 74 61 25 3f 49 25 0d 04 a6 |.... data%?I%...|
00000800 05 ed 0d 04 b0 05 cd 0d 04 ba 05 e1 0d 04 c4 3a |...............:|
00000810 dc 20 31 2c 31 2c 32 2c 33 2c 20 38 2c 39 2c 31 |. 1,1,2,3, 8,9,1|
00000820 30 2c 31 31 2c 20 31 36 34 2c 31 36 35 2c 31 36 |0,11, 164,165,16|
00000830 36 2c 31 36 37 2c 20 32 31 36 2c 32 31 37 2c 32 |6,167, 216,217,2|
00000840 31 38 2c 32 31 39 0d 04 ce 3c dc 20 31 2c 31 2c |18,219...<. 1,1,|
00000850 32 2c 33 2c 20 34 34 2c 34 35 2c 34 36 2c 34 37 |2,3, 44,45,46,47|
00000860 2c 20 32 30 38 2c 32 30 39 2c 32 31 30 2c 32 31 |, 208,209,210,21|
00000870 31 2c 20 32 35 32 2c 32 35 33 2c 32 35 34 2c 32 |1, 252,253,254,2|
00000880 35 35 0d 04 d8 04 0d 04 e2 0a dd f2 73 63 72 6e |55..........scrn|
00000890 0d 04 ec 16 de 20 62 6c 6f 63 6b 25 20 31 35 2c |..... block% 15,|
000008a0 62 32 25 20 31 35 0d 04 f6 10 62 6c 6f 63 6b 25 |b2% 15....block%|
000008b0 21 30 3d 31 34 38 0d 05 00 0e 62 6c 6f 63 6b 25 |!0=148....block%|
000008c0 21 34 3d 37 0d 05 0a 0e 62 6c 6f 63 6b 25 21 38 |!4=7....block%!8|
000008d0 3d 36 0d 05 14 10 62 6c 6f 63 6b 25 21 31 32 3d |=6....block%!12=|
000008e0 2d 31 0d 05 1e 27 c8 99 20 22 4f 53 5f 52 65 61 |-1...'.. "OS_Rea|
000008f0 64 56 64 75 56 61 72 69 61 62 6c 65 73 22 2c 62 |dVduVariables",b|
00000900 6c 6f 63 6b 25 2c 62 32 25 0d 05 28 11 73 63 72 |lock%,b2%..(.scr|
00000910 65 65 6e 25 3d 62 32 25 21 30 0d 05 32 05 e1 0d |een%=b2%!0..2...|
00000920 ff |.|
00000921 
.