Home » Archimedes archive » Acorn User » AU 1997-05 B.adf » Regulars » StarInfo/Smale/ITER82
StarInfo/Smale/ITER82
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-05 B.adf » Regulars |
| Filename: | StarInfo/Smale/ITER82 |
| Read OK: | ✔ |
| File size: | 09C8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE12:OFF
20FOR I%=0 TO 15
30COLOUR I%,I%*8,I%*8,I%*16
40NEXT
50
60DIM code 1024*8+81920
70ON ERROR REPORT:PRINT" at line ";ERL:END
80PROCscrn
90
100link=14
110sp=13
120screen=12
130
140FOR pass=0 TO 2 STEP 2
150P%=code
160[OPT pass
170.granite STMFD (sp)!,{link}
180 LDR screen,scrn
190
200MOV R2,screen
210 MOV R1,#254
220.yloop MOV R0,#0
230.xloop
240MOV R5,R1,ASR#1
250MOV R6,R0,ASR#1
260
270MUL R3,R1,R0
280MUL R4,R0,R1
290ADD R3,R3,R4
300
310STRB R3,[R2],#1
320
330 ADD R0,R0,#1
340 CMP R0,#320
350 BLT xloop
360
370 SUBS R1,R1,#1
380 BGT yloop
390
400.smudge
410LDR R1,otherscrn3
420ADD R0,screen,#320
430ADD R11,R0,#81920
440SUB R11,R11,#1
450SUB R11,R11,#320*2
460LDRB R2,[R0,#0]
470LDRB R3,[R0,#1]
480MOV R7,#14
490ADD R0,R0,#1
500
510.smudgelp
520LDRB R4,[R0,#1]
530LDRB R5,[R0,#-320]
540LDRB R6,[R0,#320]
550ADD R9,R3,R2
560ADD R9,R9,R4
570ADD R9,R9,R5
580ADD R9,R9,R6
590
600MUL R9,R7,R9
610MOV R9,R9,LSR#6
620STRB R9,[R1],#1
630MOV R2,R3
640MOV R3,R4
650
660ADD R0,R0,#1
670CMP R0,R11
680BLT smudgelp
690
700LDR R1,otherscrn2
710ADD R0,screen,#320
720ADD R11,R0,#81920
730SUB R11,R11,#640
740.copyloop LDMIA R1!,{R2-R9}
750STMIA R0!,{R2-R9}
760LDMIA R1!,{R2-R9}
770STMIA R0!,{R2-R9}
780LDMIA R1!,{R2-R9}
790STMIA R0!,{R2-R9}
800LDMIA R1!,{R2-R9}
810STMIA R0!,{R2-R9}
820CMP R0,R11
830BLT copyloop
840
850 SWI "OS_ReadEscapeState"
860 BCS fini
870
880B smudge
890
900.fini LDMFD (sp)!,{PC}
910
920.coldata EQUD code+4096
930.scrn EQUD screen%
940.oldcol% EQUD 0
950.otherscrn EQUD code+1024*8
960.otherscrn2 EQUD code+1024*8+320
970.otherscrn3 EQUD code+1024*8+320+1
980.counter EQUD 10
990
1000.mod16 SUB R4,R4,#16
1010 CMP R4,#16
1020 BGE mod16
1030 MOV PC,R14
1040
1050.rnd LDR R7,seed
1060 LDR R8,c1
1070 LDR R9,c2
1080 MLA R7,R8,R7,R9
1090 MLA R10,R8,R7,R9
1100 STR R10,seed
1110 EOR R7,R7,R10,ROR#16
1120
1130 MOV R8,#256
1140 SUB R8,R8,#1
1150 AND R7,R7,R8
1160
1170 MOV PC,R14
1180
1190.c1 EQUD 1664525
1200.c2 EQUD 907633393
1210.seed EQUD TIME
1220.rnd% EQUD 0
1230]
1240NEXT
1250CALL granite
1260END
1270
1280DEFPROCscrn
1290DIM block% 15,b2% 15
1300block%!0=148
1310block%!4=7
1320block%!8=6
1330block%!12=-1
1340SYS "OS_ReadVduVariables",block%,b2%
1350size%=b2%!4
1360block%!0=148
1370block%!4=7
1380block%!8=6
1390block%!12=-1
1400SYS "OS_ReadVduVariables",block%,b2%
1410screen%=b2%!0
1420size%=b2%!4
1430ENDPROC
�12:�
� I%=0 � 15
� I%,I%*8,I%*8,I%*16
(�
2
<� code 1024*8+81920
F� � �:�" at line ";�:�
P �scrn
Z
d link=14
n sp=13
x
screen=12
�
�� pass=0 � 2 � 2
� P%=code
�
[OPT pass
�!.granite STMFD (sp)!,{link}
� LDR screen,scrn
�
�MOV R2,screen
� MOV R1,#254
�.yloop MOV R0,#0
�
.xloop
�MOV R5,R1,ASR#1
�MOV R6,R0,ASR#1
MUL R3,R1,R0
MUL R4,R0,R1
"ADD R3,R3,R4
,
6STRB R3,[R2],#1
@
J ADD R0,R0,#1
T CMP R0,#320
^ BLT xloop
h
r SUBS R1,R1,#1
| BGT yloop
�
� .smudge
�LDR R1,otherscrn3
�ADD R0,screen,#320
�ADD R11,R0,#81920
�SUB R11,R11,#1
�SUB R11,R11,#320*2
�LDRB R2,[R0,#0]
�LDRB R3,[R0,#1]
�MOV R7,#14
�ADD R0,R0,#1
�
�
.smudgelp
LDRB R4,[R0,#1]
LDRB R5,[R0,#-320]
LDRB R6,[R0,#320]
&ADD R9,R3,R2
0ADD R9,R9,R4
:ADD R9,R9,R5
DADD R9,R9,R6
N
XMUL R9,R7,R9
bMOV R9,R9,LSR#6
lSTRB R9,[R1],#1
v
MOV R2,R3
�
MOV R3,R4
�
�ADD R0,R0,#1
�CMP R0,R11
�BLT smudgelp
�
�LDR R1,otherscrn2
�ADD R0,screen,#320
�ADD R11,R0,#81920
�SUB R11,R11,#640
� .copyloop LDMIA R1!,{R2-R9}
�STMIA R0!,{R2-R9}
�LDMIA R1!,{R2-R9}
STMIA R0!,{R2-R9}
LDMIA R1!,{R2-R9}
STMIA R0!,{R2-R9}
LDMIA R1!,{R2-R9}
*STMIA R0!,{R2-R9}
4CMP R0,R11
>BLT copyloop
H
R' SWI "OS_ReadEscapeState"
\ BCS fini
f
p B smudge
z
� .fini LDMFD (sp)!,{PC}
�
� .coldata EQUD code+4096
�.scrn EQUD screen%
�.oldcol% EQUD 0
� .otherscrn EQUD code+1024*8
�$.otherscrn2 EQUD code+1024*8+320
�&.otherscrn3 EQUD code+1024*8+320+1
�.counter EQUD 10
�
� .mod16 SUB R4,R4,#16
� CMP R4,#16
� BGE mod16
MOV PC,R14
.rnd LDR R7,seed
$ LDR R8,c1
. LDR R9,c2
8 MLA R7,R8,R7,R9
B MLA R10,R8,R7,R9
L STR R10,seed
V! � R7,R7,R10,ROR#16
`
j MOV R8,#256
t SUB R8,R8,#1
~ � R7,R7,R8
�
� MOV PC,R14
�
�.c1 EQUD 1664525
�.c2 EQUD 907633393
�.seed EQUD �
�.rnd% EQUD 0
�]
��
�
� granite
��
�
��scrn
� block% 15,b2% 15
block%!0=148
block%!4=7
(block%!8=6
2block%!12=-1
<'ș "OS_ReadVduVariables",block%,b2%
Fsize%=b2%!4
Pblock%!0=148
Zblock%!4=7
dblock%!8=6
nblock%!12=-1
x'ș "OS_ReadVduVariables",block%,b2%
�screen%=b2%!0
�size%=b2%!4
��
� 00000000 0d 00 0a 09 eb 31 32 3a 87 0d 00 14 0f e3 20 49 |.....12:...... I|
00000010 25 3d 30 20 b8 20 31 35 0d 00 1e 18 fb 20 49 25 |%=0 . 15..... I%|
00000020 2c 49 25 2a 38 2c 49 25 2a 38 2c 49 25 2a 31 36 |,I%*8,I%*8,I%*16|
00000030 0d 00 28 05 ed 0d 00 32 04 0d 00 3c 17 de 20 63 |..(....2...<.. c|
00000040 6f 64 65 20 31 30 32 34 2a 38 2b 38 31 39 32 30 |ode 1024*8+81920|
00000050 0d 00 46 1a ee 20 85 20 f6 3a f1 22 20 61 74 20 |..F.. . .:." at |
00000060 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 50 09 f2 73 |line ";.:...P..s|
00000070 63 72 6e 0d 00 5a 04 0d 00 64 0b 6c 69 6e 6b 3d |crn..Z...d.link=|
00000080 31 34 0d 00 6e 09 73 70 3d 31 33 0d 00 78 0d 73 |14..n.sp=13..x.s|
00000090 63 72 65 65 6e 3d 31 32 0d 00 82 04 0d 00 8c 14 |creen=12........|
000000a0 e3 20 70 61 73 73 3d 30 20 b8 20 32 20 88 20 32 |. pass=0 . 2 . 2|
000000b0 0d 00 96 0b 50 25 3d 63 6f 64 65 0d 00 a0 0d 5b |....P%=code....[|
000000c0 4f 50 54 20 70 61 73 73 0d 00 aa 21 2e 67 72 61 |OPT pass...!.gra|
000000d0 6e 69 74 65 20 20 20 53 54 4d 46 44 20 28 73 70 |nite STMFD (sp|
000000e0 29 21 2c 7b 6c 69 6e 6b 7d 0d 00 b4 1e 20 20 20 |)!,{link}.... |
000000f0 20 20 20 20 20 20 20 20 4c 44 52 20 73 63 72 65 | LDR scre|
00000100 65 6e 2c 73 63 72 6e 0d 00 be 04 0d 00 c8 11 4d |en,scrn........M|
00000110 4f 56 20 52 32 2c 73 63 72 65 65 6e 0d 00 d2 1b |OV R2,screen....|
00000120 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 | MOV |
00000130 52 31 2c 23 32 35 34 0d 00 dc 19 2e 79 6c 6f 6f |R1,#254.....yloo|
00000140 70 20 20 20 20 20 4d 4f 56 20 20 52 30 2c 23 30 |p MOV R0,#0|
00000150 0d 00 e6 0a 2e 78 6c 6f 6f 70 0d 00 f0 13 4d 4f |.....xloop....MO|
00000160 56 20 52 35 2c 52 31 2c 41 53 52 23 31 0d 00 fa |V R5,R1,ASR#1...|
00000170 13 4d 4f 56 20 52 36 2c 52 30 2c 41 53 52 23 31 |.MOV R6,R0,ASR#1|
00000180 0d 01 04 04 0d 01 0e 10 4d 55 4c 20 52 33 2c 52 |........MUL R3,R|
00000190 31 2c 52 30 0d 01 18 10 4d 55 4c 20 52 34 2c 52 |1,R0....MUL R4,R|
000001a0 30 2c 52 31 0d 01 22 10 41 44 44 20 52 33 2c 52 |0,R1..".ADD R3,R|
000001b0 33 2c 52 34 0d 01 2c 04 0d 01 36 13 53 54 52 42 |3,R4..,...6.STRB|
000001c0 20 52 33 2c 5b 52 32 5d 2c 23 31 0d 01 40 04 0d | R3,[R2],#1..@..|
000001d0 01 4a 1d 20 20 20 20 20 20 20 20 20 20 20 41 44 |.J. AD|
000001e0 44 20 20 20 52 30 2c 52 30 2c 23 31 0d 01 54 1c |D R0,R0,#1..T.|
000001f0 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 | CMP |
00000200 20 52 30 2c 23 33 32 30 0d 01 5e 1a 20 20 20 20 | R0,#320..^. |
00000210 20 20 20 20 20 20 20 42 4c 54 20 20 20 78 6c 6f | BLT xlo|
00000220 6f 70 0d 01 68 04 0d 01 72 1d 20 20 20 20 20 20 |op..h...r. |
00000230 20 20 20 20 20 53 55 42 53 20 20 52 31 2c 52 31 | SUBS R1,R1|
00000240 2c 23 31 0d 01 7c 1a 20 20 20 20 20 20 20 20 20 |,#1..|. |
00000250 20 20 42 47 54 20 20 20 79 6c 6f 6f 70 0d 01 86 | BGT yloop...|
00000260 04 0d 01 90 0b 2e 73 6d 75 64 67 65 0d 01 9a 15 |......smudge....|
00000270 4c 44 52 20 52 31 2c 6f 74 68 65 72 73 63 72 6e |LDR R1,otherscrn|
00000280 33 0d 01 a4 16 41 44 44 20 52 30 2c 73 63 72 65 |3....ADD R0,scre|
00000290 65 6e 2c 23 33 32 30 0d 01 ae 15 41 44 44 20 52 |en,#320....ADD R|
000002a0 31 31 2c 52 30 2c 23 38 31 39 32 30 0d 01 b8 12 |11,R0,#81920....|
000002b0 53 55 42 20 52 31 31 2c 52 31 31 2c 23 31 0d 01 |SUB R11,R11,#1..|
000002c0 c2 16 53 55 42 20 52 31 31 2c 52 31 31 2c 23 33 |..SUB R11,R11,#3|
000002d0 32 30 2a 32 0d 01 cc 13 4c 44 52 42 20 52 32 2c |20*2....LDRB R2,|
000002e0 5b 52 30 2c 23 30 5d 0d 01 d6 13 4c 44 52 42 20 |[R0,#0]....LDRB |
000002f0 52 33 2c 5b 52 30 2c 23 31 5d 0d 01 e0 0e 4d 4f |R3,[R0,#1]....MO|
00000300 56 20 52 37 2c 23 31 34 0d 01 ea 10 41 44 44 20 |V R7,#14....ADD |
00000310 52 30 2c 52 30 2c 23 31 0d 01 f4 04 0d 01 fe 0d |R0,R0,#1........|
00000320 2e 73 6d 75 64 67 65 6c 70 0d 02 08 13 4c 44 52 |.smudgelp....LDR|
00000330 42 20 52 34 2c 5b 52 30 2c 23 31 5d 0d 02 12 16 |B R4,[R0,#1]....|
00000340 4c 44 52 42 20 52 35 2c 5b 52 30 2c 23 2d 33 32 |LDRB R5,[R0,#-32|
00000350 30 5d 0d 02 1c 15 4c 44 52 42 20 52 36 2c 5b 52 |0]....LDRB R6,[R|
00000360 30 2c 23 33 32 30 5d 0d 02 26 10 41 44 44 20 52 |0,#320]..&.ADD R|
00000370 39 2c 52 33 2c 52 32 0d 02 30 10 41 44 44 20 52 |9,R3,R2..0.ADD R|
00000380 39 2c 52 39 2c 52 34 0d 02 3a 10 41 44 44 20 52 |9,R9,R4..:.ADD R|
00000390 39 2c 52 39 2c 52 35 0d 02 44 10 41 44 44 20 52 |9,R9,R5..D.ADD R|
000003a0 39 2c 52 39 2c 52 36 0d 02 4e 04 0d 02 58 10 4d |9,R9,R6..N...X.M|
000003b0 55 4c 20 52 39 2c 52 37 2c 52 39 0d 02 62 13 4d |UL R9,R7,R9..b.M|
000003c0 4f 56 20 52 39 2c 52 39 2c 4c 53 52 23 36 0d 02 |OV R9,R9,LSR#6..|
000003d0 6c 13 53 54 52 42 20 52 39 2c 5b 52 31 5d 2c 23 |l.STRB R9,[R1],#|
000003e0 31 0d 02 76 0d 4d 4f 56 20 52 32 2c 52 33 0d 02 |1..v.MOV R2,R3..|
000003f0 80 0d 4d 4f 56 20 52 33 2c 52 34 0d 02 8a 04 0d |..MOV R3,R4.....|
00000400 02 94 10 41 44 44 20 52 30 2c 52 30 2c 23 31 0d |...ADD R0,R0,#1.|
00000410 02 9e 0e 43 4d 50 20 52 30 2c 52 31 31 0d 02 a8 |...CMP R0,R11...|
00000420 10 42 4c 54 20 73 6d 75 64 67 65 6c 70 0d 02 b2 |.BLT smudgelp...|
00000430 04 0d 02 bc 15 4c 44 52 20 52 31 2c 6f 74 68 65 |.....LDR R1,othe|
00000440 72 73 63 72 6e 32 0d 02 c6 16 41 44 44 20 52 30 |rscrn2....ADD R0|
00000450 2c 73 63 72 65 65 6e 2c 23 33 32 30 0d 02 d0 15 |,screen,#320....|
00000460 41 44 44 20 52 31 31 2c 52 30 2c 23 38 31 39 32 |ADD R11,R0,#8192|
00000470 30 0d 02 da 14 53 55 42 20 52 31 31 2c 52 31 31 |0....SUB R11,R11|
00000480 2c 23 36 34 30 0d 02 e4 1f 2e 63 6f 70 79 6c 6f |,#640.....copylo|
00000490 6f 70 20 4c 44 4d 49 41 20 52 31 21 2c 7b 52 32 |op LDMIA R1!,{R2|
000004a0 2d 52 39 7d 0d 02 ee 15 53 54 4d 49 41 20 52 30 |-R9}....STMIA R0|
000004b0 21 2c 7b 52 32 2d 52 39 7d 0d 02 f8 15 4c 44 4d |!,{R2-R9}....LDM|
000004c0 49 41 20 52 31 21 2c 7b 52 32 2d 52 39 7d 0d 03 |IA R1!,{R2-R9}..|
000004d0 02 15 53 54 4d 49 41 20 52 30 21 2c 7b 52 32 2d |..STMIA R0!,{R2-|
000004e0 52 39 7d 0d 03 0c 15 4c 44 4d 49 41 20 52 31 21 |R9}....LDMIA R1!|
000004f0 2c 7b 52 32 2d 52 39 7d 0d 03 16 15 53 54 4d 49 |,{R2-R9}....STMI|
00000500 41 20 52 30 21 2c 7b 52 32 2d 52 39 7d 0d 03 20 |A R0!,{R2-R9}.. |
00000510 15 4c 44 4d 49 41 20 52 31 21 2c 7b 52 32 2d 52 |.LDMIA R1!,{R2-R|
00000520 39 7d 0d 03 2a 15 53 54 4d 49 41 20 52 30 21 2c |9}..*.STMIA R0!,|
00000530 7b 52 32 2d 52 39 7d 0d 03 34 0e 43 4d 50 20 52 |{R2-R9}..4.CMP R|
00000540 30 2c 52 31 31 0d 03 3e 10 42 4c 54 20 63 6f 70 |0,R11..>.BLT cop|
00000550 79 6c 6f 6f 70 0d 03 48 04 0d 03 52 27 20 20 20 |yloop..H...R' |
00000560 20 20 20 20 20 20 20 20 53 57 49 20 22 4f 53 5f | SWI "OS_|
00000570 52 65 61 64 45 73 63 61 70 65 53 74 61 74 65 22 |ReadEscapeState"|
00000580 0d 03 5c 17 20 20 20 20 20 20 20 20 20 20 20 42 |..\. B|
00000590 43 53 20 66 69 6e 69 0d 03 66 04 0d 03 70 0c 42 |CS fini..f...p.B|
000005a0 20 73 6d 75 64 67 65 0d 03 7a 04 0d 03 84 1f 2e | smudge..z......|
000005b0 66 69 6e 69 20 20 20 20 20 20 4c 44 4d 46 44 20 |fini LDMFD |
000005c0 28 73 70 29 21 2c 7b 50 43 7d 0d 03 8e 04 0d 03 |(sp)!,{PC}......|
000005d0 98 1d 2e 63 6f 6c 64 61 74 61 20 20 20 45 51 55 |...coldata EQU|
000005e0 44 20 63 6f 64 65 2b 34 30 39 36 0d 03 a2 1b 2e |D code+4096.....|
000005f0 73 63 72 6e 20 20 20 20 20 20 45 51 55 44 20 73 |scrn EQUD s|
00000600 63 72 65 65 6e 25 0d 03 ac 15 2e 6f 6c 64 63 6f |creen%.....oldco|
00000610 6c 25 20 20 20 45 51 55 44 20 30 0d 03 b6 1f 2e |l% EQUD 0.....|
00000620 6f 74 68 65 72 73 63 72 6e 20 45 51 55 44 20 63 |otherscrn EQUD c|
00000630 6f 64 65 2b 31 30 32 34 2a 38 0d 03 c0 24 2e 6f |ode+1024*8...$.o|
00000640 74 68 65 72 73 63 72 6e 32 20 45 51 55 44 20 63 |therscrn2 EQUD c|
00000650 6f 64 65 2b 31 30 32 34 2a 38 2b 33 32 30 0d 03 |ode+1024*8+320..|
00000660 ca 26 2e 6f 74 68 65 72 73 63 72 6e 33 20 45 51 |.&.otherscrn3 EQ|
00000670 55 44 20 63 6f 64 65 2b 31 30 32 34 2a 38 2b 33 |UD code+1024*8+3|
00000680 32 30 2b 31 0d 03 d4 16 2e 63 6f 75 6e 74 65 72 |20+1.....counter|
00000690 20 20 20 45 51 55 44 20 31 30 0d 03 de 04 0d 03 | EQUD 10......|
000006a0 e8 1c 2e 6d 6f 64 31 36 20 20 20 20 20 53 55 42 |...mod16 SUB|
000006b0 20 52 34 2c 52 34 2c 23 31 36 0d 03 f2 19 20 20 | R4,R4,#16.... |
000006c0 20 20 20 20 20 20 20 20 20 43 4d 50 20 52 34 2c | CMP R4,|
000006d0 23 31 36 0d 03 fc 18 20 20 20 20 20 20 20 20 20 |#16.... |
000006e0 20 20 42 47 45 20 6d 6f 64 31 36 0d 04 06 19 20 | BGE mod16.... |
000006f0 20 20 20 20 20 20 20 20 20 20 4d 4f 56 20 50 43 | MOV PC|
00000700 2c 52 31 34 0d 04 10 04 0d 04 1a 1a 2e 72 6e 64 |,R14.........rnd|
00000710 20 20 20 20 20 20 20 4c 44 52 20 52 37 2c 73 65 | LDR R7,se|
00000720 65 64 0d 04 24 18 20 20 20 20 20 20 20 20 20 20 |ed..$. |
00000730 20 4c 44 52 20 52 38 2c 63 31 0d 04 2e 18 20 20 | LDR R8,c1.... |
00000740 20 20 20 20 20 20 20 20 20 4c 44 52 20 52 39 2c | LDR R9,|
00000750 63 32 0d 04 38 1e 20 20 20 20 20 20 20 20 20 20 |c2..8. |
00000760 20 4d 4c 41 20 52 37 2c 52 38 2c 52 37 2c 52 39 | MLA R7,R8,R7,R9|
00000770 0d 04 42 1f 20 20 20 20 20 20 20 20 20 20 20 4d |..B. M|
00000780 4c 41 20 52 31 30 2c 52 38 2c 52 37 2c 52 39 0d |LA R10,R8,R7,R9.|
00000790 04 4c 1b 20 20 20 20 20 20 20 20 20 20 20 53 54 |.L. ST|
000007a0 52 20 52 31 30 2c 73 65 65 64 0d 04 56 21 20 20 |R R10,seed..V! |
000007b0 20 20 20 20 20 20 20 20 20 82 20 52 37 2c 52 37 | . R7,R7|
000007c0 2c 52 31 30 2c 52 4f 52 23 31 36 0d 04 60 04 0d |,R10,ROR#16..`..|
000007d0 04 6a 1a 20 20 20 20 20 20 20 20 20 20 20 4d 4f |.j. MO|
000007e0 56 20 52 38 2c 23 32 35 36 0d 04 74 1b 20 20 20 |V R8,#256..t. |
000007f0 20 20 20 20 20 20 20 20 53 55 42 20 52 38 2c 52 | SUB R8,R|
00000800 38 2c 23 31 0d 04 7e 19 20 20 20 20 20 20 20 20 |8,#1..~. |
00000810 20 20 20 80 20 52 37 2c 52 37 2c 52 38 0d 04 88 | . R7,R7,R8...|
00000820 04 0d 04 92 19 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000830 4d 4f 56 20 50 43 2c 52 31 34 0d 04 9c 04 0d 04 |MOV PC,R14......|
00000840 a6 16 2e 63 31 20 20 20 45 51 55 44 20 31 36 36 |...c1 EQUD 166|
00000850 34 35 32 35 0d 04 b0 18 2e 63 32 20 20 20 45 51 |4525.....c2 EQ|
00000860 55 44 20 39 30 37 36 33 33 33 39 33 0d 04 ba 10 |UD 907633393....|
00000870 2e 73 65 65 64 20 45 51 55 44 20 91 0d 04 c4 10 |.seed EQUD .....|
00000880 2e 72 6e 64 25 20 45 51 55 44 20 30 0d 04 ce 05 |.rnd% EQUD 0....|
00000890 5d 0d 04 d8 05 ed 0d 04 e2 0d d6 20 67 72 61 6e |].......... gran|
000008a0 69 74 65 0d 04 ec 05 e0 0d 04 f6 04 0d 05 00 0a |ite.............|
000008b0 dd f2 73 63 72 6e 0d 05 0a 16 de 20 62 6c 6f 63 |..scrn..... bloc|
000008c0 6b 25 20 31 35 2c 62 32 25 20 31 35 0d 05 14 10 |k% 15,b2% 15....|
000008d0 62 6c 6f 63 6b 25 21 30 3d 31 34 38 0d 05 1e 0e |block%!0=148....|
000008e0 62 6c 6f 63 6b 25 21 34 3d 37 0d 05 28 0e 62 6c |block%!4=7..(.bl|
000008f0 6f 63 6b 25 21 38 3d 36 0d 05 32 10 62 6c 6f 63 |ock%!8=6..2.bloc|
00000900 6b 25 21 31 32 3d 2d 31 0d 05 3c 27 c8 99 20 22 |k%!12=-1..<'.. "|
00000910 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 62 |OS_ReadVduVariab|
00000920 6c 65 73 22 2c 62 6c 6f 63 6b 25 2c 62 32 25 0d |les",block%,b2%.|
00000930 05 46 0f 73 69 7a 65 25 3d 62 32 25 21 34 0d 05 |.F.size%=b2%!4..|
00000940 50 10 62 6c 6f 63 6b 25 21 30 3d 31 34 38 0d 05 |P.block%!0=148..|
00000950 5a 0e 62 6c 6f 63 6b 25 21 34 3d 37 0d 05 64 0e |Z.block%!4=7..d.|
00000960 62 6c 6f 63 6b 25 21 38 3d 36 0d 05 6e 10 62 6c |block%!8=6..n.bl|
00000970 6f 63 6b 25 21 31 32 3d 2d 31 0d 05 78 27 c8 99 |ock%!12=-1..x'..|
00000980 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 | "OS_ReadVduVari|
00000990 61 62 6c 65 73 22 2c 62 6c 6f 63 6b 25 2c 62 32 |ables",block%,b2|
000009a0 25 0d 05 82 11 73 63 72 65 65 6e 25 3d 62 32 25 |%....screen%=b2%|
000009b0 21 30 0d 05 8c 0f 73 69 7a 65 25 3d 62 32 25 21 |!0....size%=b2%!|
000009c0 34 0d 05 96 05 e1 0d ff |4.......|
000009c8 
.