Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/Smale/!Globes/ARMGLOBE
StarInfo/Smale/!Globes/ARMGLOBE
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/!Globes/ARMGLOBE |
| Read OK: | ✔ |
| File size: | 1AB9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE0
20ON ERROR PROCerr
40ON ERROR REPORT:PRINT" at line ";ERL:END
50PRINT "To use this, you must have run one of the 'Set_XXX' progs first,"
70PRINT "You can only view the size of spheres that you have set up."'
80PRINT "You can choose: Big, Small or Normal? ";
90C$=GET$
100PRINTC$
110REPEAT
120A$="Z"
130IF C$="B" OR C$="b" A$="3"ELSE IF C$="S" OR C$="s" A$="2"ELSE IF C$="N" OR C$="n" A$="" ELSE PRINT'"Please press B, S or N. ";
140UNTIL A$<>"Z"
150
170PRINT '"You can either load a Mode13 screen sprite to use, or if you do nothave one, use my Granite texture."
180PRINT "Which would you prefer? Sprite or Granite? ";
190B$=GET$
200PRINTB$
210IF INSTR("SsGg",B$)=0 PRINT'" Now you're just being silly. I choose Granite.":B$="G":I=INKEY(125)
220IF B$="s" OR B$="S" B$="S":INPUT'"Please give me the sprite's filename: "F$:ELSE IF B$="g" OR B$="G" B$="G"
230
240REPEAT
250PRINT'" Please pick a speed from 1 to 8 (1=slow, 8=warp speed): ";
260speed%=VAL GET$
270PRINT STR$ speed%
280UNTIL speed%<9 AND speed%>0
290
300MODE15:MODE13:OFF
310PROCsetup
320
330screen=12
340sp=13
350link=14
360
370x=74
380y=40
390
400FOR pass=0 TO 2 STEP 2:P%=code
410[OPT pass
420.init STMFD (sp)!,{link}
430
440 BL varsread
450 BL grabdata
460 SWI &10C
470
480.mainloop BL globe
490
500MOV R0,#19
510SWI "OS_Byte"
520 SWI "OS_ReadEscapeState"
530 BCC mainloop
540
550.end LDMFD (sp)!,{PC}
560
570.con EQUD 800
580.pos EQUD 0
590.globe ADD R8,screen,#81920
600 LDR R9,pos
610 ADD R9,R9,#speed%
620 CMP R9,#320*8
630 SUBGE R9,R9,#320
640 STR R9,pos
650 ADD R8,R8,R9
660
670 LDR R11,posdata
680ADD screen,screen,#x
690ADD screen,screen,#320*y
700
710.yloop LDMIA R11!,{R0}
720 CMP R0,#0
730 BEQ endglobe
740
750 ADD R0,R0,screen
760
770.xloop2 LDMIA R11!,{R9}
780
790 MOV R10,R9,LSR#16
800 CMP R10,#0
810 BEQ yloop
820 SUB R9,R9,R10,LSL#16
830
840 LDRB R1,[R8,R10]
850 STRB R1,[R0],#1
860
870 CMP R9,#0
880 BEQ yloop
890
900 CMP R9,R10
910 LDRNEB R1,[R8,R9]
920 STRB R1,[R0],#1
930
940 B xloop2
950
960.endglobe SUB screen,screen,#x
970 SUB screen,screen,#320*y
980 MOV PC,R14
990
1000.posdata EQUD code+4096
1010.varsread LDR screen,screenadd
1020 MOV PC,R14
1030.screenadd EQUD screen%
1040
1050.grabdata LDR R0 ,posdata
1060 MOV R1 ,screen
1070 ADD R10,R1,#81920
1080.grabloop LDMIA R1!,{R2-R9}
1090 STMIA R0!,{R2-R9}
1100 CMP R1,R10
1110 BLT grabloop
1120 MOV PC,R14
1130
1140]NEXT
1150SYS 6,112,2
1160SYS 6,113,2
1170IF B$="G" PROCgraniteproc ELSE OSCLI("SCREENLOAD "+F$)
1180SYS 6,112,1
1190SYS 6,113,1
1200OSCLI("LOAD POSDATA"+A$+" "+STR$~screen%)
1210CALL init
1220END
1230
1240DEFPROCgraniteproc
1250DIM code2 1024+16
1260ONERRORREPORT:PRINT" at line ";ERL:END
1270PROCcols
1280link=14
1290sp=13
1300screen=12
1310FORpass=0TO2STEP2
1320P%=code2
1330[OPT pass
1340.granite STMFD (sp)!,{link}
1350LDR screen,scrn%
1360MOV R1,#253
1370.yloopg MOV R0,#1
1380.xloopg ADD R2,R0,R1,LSL#6
1390ADD R2,R2,R1,LSL#8
1400ADD R2,R2,screen
1410SUB R2,R2,#4
1420LDRB R4,[R2,#0]
1430LDRB R3,[R2,#320*2]
1440ADD R4,R4,R3
1450ADD R2,R2,#2
1460LDRB R3,[R2,#320]
1470ADD R4,R4,R3
1480ADD R2,R2,#2
1490LDRB R3,[R2,#320*2]
1500ADD R4,R4,R3
1510MOV R4,R4,LSL#8-2
1520BL rnd
1530SUB R7,R7,#113
1540ADD R4,R4,R7,ASL#3
1550CMP R4,#0
1560LDRLT R4,oldcol%
1570BLT maus
1580MOVGE R4,R4,ASR#8
1590CMP R4,#16
1600BLGE mod16
1610STRLT R4,oldcol%
1620.maus SUB R2,R2,#1
1630STRB R4,[R2,#0]
1640ADD R0,R0,#2
1650CMP R0,#320
1660SUBLE R0,R0,#1
1670BLE xloopg
1680SUB R1,R1,#1
1690CMP R1,#1
1700BGT yloopg
1710
1720MOV R0,screen
1730ADD R1,R0,#64
1740ADD R2,R0,#81920
1750.movelp LDMIA R1!,{R3-R10}
1760STMIA R0!,{R3-R10}
1770CMP R1,R2
1780BLT movelp
1790LDMFD (sp)!,{PC}
1800
1810.granite2 STMFD (sp)!,{link}
1820LDR screen,scrn%
1830MOV R5,#320
1840ADD R5,R5,#1
1850MOV R1,#253
1860.yloopg2 MOV R0,#320-128
1870.xloopg2 ADD R2,R0,R1,LSL#6
1880ADD R2,R2,R1,LSL#8
1890ADD R2,R2,screen
1900SUB R2,R2,#4
1910LDRB R4,[R2,#0]
1920LDRB R3,[R2,#320*2]
1930ADD R4,R4,R3
1940ADD R2,R2,#2
1950LDRB R3,[R2,#320]
1960ADD R4,R4,R3
1970ADD R2,R2,#2
1980LDRB R3,[R2,#320*2]
1990ADD R4,R4,R3
2000MOV R4,R4,LSL#8-2
2010BL rnd
2020SUB R7,R7,#113
2030ADD R4,R4,R7,ASL#3
2040CMP R4,#0
2050LDRLT R4,oldcol%
2060BLT maus2
2070MOVGE R4,R4,ASR#8
2080CMP R4,#16
2090BLGE mod16
2100STRLT R4,oldcol%
2110.maus2 SUB R2,R2,#1
2120STRB R4,[R2,#0]
2130ADD R0,R0,#2
2140CMP R0,R5
2150SUBLE R0,R0,#1
2160BLE xloopg2
2170SUB R1,R1,#1
2180CMP R1,#1
2190BGT yloopg2
2200
2210.smudge LDR R1,otherscrn
2220MOV R0,screen
2230ADD R1,R1,#1
2240ADD R0,R0,#320
2250ADD R1,R1,#320
2260ADD R11,R0,#81920
2270SUB R11,R11,#1
2280SUB R11,R11,#320*2
2290
2300.smudgelp LDRB R2,[R0,#0]
2310LDRB R3,[R0,#1]
2320LDRB R4,[R0,#2]
2330SUB R0,R0,#320
2340ADD R0,R0,#1
2350LDRB R5,[R0],#640
2360LDRB R6,[R0,#0]
2370SUB R0,R0,#320
2380SUB R0,R0,#1
2390ADD R3,R3,R2
2400ADD R3,R3,R4
2410ADD R3,R3,R5
2420ADD R3,R3,R6
2430MOV R7,#14
2440MUL R2,R3,R7
2450MOV R2,R2,LSR#6
2460STRB R2,[R1],#1
2470ADD R0,R0,#1
2480CMP R0,R11
2490BLT smudgelp
2500
2510.nosmudge
2520LDR R1,otherscrn
2530ADD R1,R1,#320
2540ADD R0,screen,#320
2550ADD R11,R0,#81920
2560SUB R11,R11,#640
2570.copyloopg LDMIA R1!,{R2-R9}
2580STMIA R0!,{R2-R9}
2590CMP R0,R11
2600BLT copyloopg
2610LDR R0,counter
2620CMP R0,#2
2630ADDLE R0,R0,#1
2640STRLE R0,counter
2650BLE smudge
2660
2670LDR R5,coldata
2680ADD R0,screen,#81920
2690ADD R1,R0,#81920
2700.changelp LDRB R2,[R0,#0]
2710LDRB R6,[R5,R2]
2720STRB R6,[R0],#1
2730CMP R0,R1
2740BLT changelp
2750.fini LDMFD (sp)!,{PC}
2760.coldata EQUD code2+1024
2770.oldcol% EQUD 0
2780.scrn% EQUD screen%
2790.otherscrn EQUD screen%+81920
2800.counter EQUD 1
2810.mod16 SUB R4,R4,#16
2820CMP R4,#16
2830BGE mod16
2840MOV PC,R14
2850.rnd LDR R7,seed
2860LDR R8,c1
2870LDR R9,c2
2880MLA R7,R8,R7,R9
2890MLA R10,R8,R7,R9
2900STR R10,seed
2910EOR R7,R7,R10,ROR#16
2920MOV R8,#256
2930SUB R8,R8,#1
2940AND R7,R7,R8
2950MOV PC,R14
2960.c1 EQUD 1664525
2970.c2 EQUD 907633393
2980.seed EQUD TIME
2990.rnd%EQUD 0
3000]
3010NEXT
3020
3030CALLgranite
3040SYS 6,112,1
3050SYS 6,113,1
3060GCOL 0 TINT 0
3070RECTANGLEFILL 1280-64*4,0,256,1023
3080SYS 6,112,2
3090SYS 6,113,2
3100CALL granite2
3110RECTANGLEFILL 0,1024,1279,-12
3120ENDPROC
3130
3140DEFPROCcols
3150data%=code2+1024
3160FORI%=0TO15
3170READdata%?I%
3180NEXT
3190ENDPROC
3200DATA 0,0,1,2, 8,9,10,11, 164,165,166,167, 216,217,218,219
3210DATA 0,1,2,3, 44,45,46,47, 208,209,210,211, 252,253,254,255
3220
3230DEFPROCsetup
3250PROCscrn
3260DIM code 4096+81920
3270ENDPROC
3280
3290DEFPROCerr
3300ON ERROR OFF
3310IF ERR=214 PRINT'" Please create a RamDisc of 80k and EITHER run one of the Set_XXX programs, OR copy the POSDATA files from disc onto RamDisc.":END
3320ENDPROC
3330
3340DEFPROCscrn
3350DIM block% 15,b2% 15
3360block%!0=148
3370block%!4=7
3380block%!8=6
3390block%!12=-1
3400SYS "OS_ReadVduVariables",block%,b2%
3410size%=b2%!4
3420block%!0=148
3430block%!4=7
3440block%!8=6
3450block%!12=-1
3460SYS "OS_ReadVduVariables",block%,b2%
3470screen%=b2%!0
3480size%=b2%!4
3490ENDPROC
�0
� � �err
(� � �:�" at line ";�:�
2H� "To use this, you must have run one of the 'Set_XXX' progs first,"
FD� "You can only view the size of spheres that you have set up."'
P/� "You can choose: Big, Small or Normal? ";
ZC$=�
d�C$
n�
x
A$="Z"
�o� C$="B" � C$="b" A$="3"� � C$="S" � C$="s" A$="2"� � C$="N" � C$="n" A$="" � �'"Please press B, S or N. ";
�
� A$<>"Z"
�
�m� '"You can either load a Mode13 screen sprite to use, or if you do nothave one, use my Granite texture."
�4� "Which would you prefer? Sprite or Granite? ";
�B$=�
��B$
�X� �"SsGg",B$)=0 �'" Now you're just being silly. I choose Granite.":B$="G":I=�(125)
�d� B$="s" � B$="S" B$="S":�'"Please give me the sprite's filename: "F$:� � B$="g" � B$="G" B$="G"
�
��
�C�'" Please pick a speed from 1 to 8 (1=slow, 8=warp speed): ";
speed%=� �
� � speed%
� speed%<9 � speed%>0
"
,
�15:�13:�
6
�setup
@
J
screen=12
T sp=13
^ link=14
h
rx=74
|y=40
�
� � pass=0 � 2 � 2:P%=code
�
[OPT pass
�".init STMFD (sp)!,{link}
�
� BL varsread
� BL grabdata
� SWI &10C
�
�.mainloop BL globe
�
�MOV R0,#19
�SWI "OS_Byte"
( SWI "OS_ReadEscapeState"
BCC mainloop
& .end LDMFD (sp)!,{PC}
0
:.con EQUD 800
D.pos EQUD 0
N&.globe ADD R8,screen,#81920
X LDR R9,pos
b! ADD R9,R9,#speed%
l CMP R9,#320*8
v SUBGE R9,R9,#320
� STR R9,pos
� ADD R8,R8,R9
�
�! LDR R11,posdata
�ADD screen,screen,#x
� ADD screen,screen,#320*y
�
� .yloop LDMIA R11!,{R0}
� CMP R0,#0
� BEQ endglobe
�
�" ADD R0,R0,screen
�
.xloop2 LDMIA R11!,{R9}
# MOV R10,R9,LSR#16
CMP R10,#0
* BEQ yloop
4& SUB R9,R9,R10,LSL#16
>
H! LDRB R1,[R8,R10]
R STRB R1,[R0],#1
\
f CMP R9,#0
p BEQ yloop
z
� CMP R9,R10
�" LDRNEB R1,[R8,R9]
�" STRB R1,[R0],#1
�
� B xloop2
�
�$.endglobe SUB screen,screen,#x
�( SUB screen,screen,#320*y
� MOV PC,R14
�
� .posdata EQUD code+4096
�%.varsread LDR screen,screenadd
� MOV PC,R14
.screenadd EQUD screen%
!.grabdata LDR R0 ,posdata
$ MOV R1 ,screen
.# ADD R10,R1,#81920
8!.grabloop LDMIA R1!,{R2-R9}
B! STMIA R0!,{R2-R9}
L CMP R1,R10
V BLT grabloop
` MOV PC,R14
j
t]�
~ș 6,112,2
�ș 6,113,2
�/� B$="G" �graniteproc � �("SCREENLOAD "+F$)
�ș 6,112,1
�ș 6,113,1
�&�("LOAD POSDATA"+A$+" "+�~screen%)
�
� init
��
�
���graniteproc
�� code2 1024+16
��:�" at line ";�:�
� �cols
link=14
sp=13
screen=12
�pass=0�2�2
( P%=code2
2
[OPT pass
< .granite STMFD (sp)!,{link}
FLDR screen,scrn%
PMOV R1,#253
Z.yloopg MOV R0,#1
d .xloopg ADD R2,R0,R1,LSL#6
nADD R2,R2,R1,LSL#8
xADD R2,R2,screen
�SUB R2,R2,#4
�LDRB R4,[R2,#0]
�LDRB R3,[R2,#320*2]
�ADD R4,R4,R3
�ADD R2,R2,#2
�LDRB R3,[R2,#320]
�ADD R4,R4,R3
�ADD R2,R2,#2
�LDRB R3,[R2,#320*2]
�ADD R4,R4,R3
�MOV R4,R4,LSL#8-2
�
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
6CMP R4,#16
@BLGE mod16
JSTRLT R4,oldcol%
T.maus SUB R2,R2,#1
^STRB R4,[R2,#0]
hADD R0,R0,#2
rCMP R0,#320
|SUBLE R0,R0,#1
�BLE xloopg
�SUB R1,R1,#1
�
CMP R1,#1
�BGT yloopg
�
�MOV R0,screen
�ADD R1,R0,#64
�ADD R2,R0,#81920
� .movelp LDMIA R1!,{R3-R10}
�STMIA R0!,{R3-R10}
�
CMP R1,R2
�BLT movelp
�LDMFD (sp)!,{PC}
.granite2 STMFD (sp)!,{link}
LDR screen,scrn%
&MOV R5,#320
0ADD R5,R5,#1
:MOV R1,#253
D .yloopg2 MOV R0,#320-128
N .xloopg2 ADD R2,R0,R1,LSL#6
XADD R2,R2,R1,LSL#8
bADD R2,R2,screen
lSUB R2,R2,#4
vLDRB R4,[R2,#0]
�LDRB R3,[R2,#320*2]
�ADD R4,R4,R3
�ADD R2,R2,#2
�LDRB R3,[R2,#320]
�ADD R4,R4,R3
�ADD R2,R2,#2
�LDRB R3,[R2,#320*2]
�ADD R4,R4,R3
�MOV R4,R4,LSL#8-2
�
BL rnd
�SUB R7,R7,#113
�ADD R4,R4,R7,ASL#3
�
CMP R4,#0
LDRLT R4,oldcol%
BLT maus2
MOVGE R4,R4,ASR#8
CMP R4,#16
*BLGE mod16
4STRLT R4,oldcol%
>.maus2 SUB R2,R2,#1
HSTRB R4,[R2,#0]
RADD R0,R0,#2
\
CMP R0,R5
fSUBLE R0,R0,#1
pBLE xloopg2
zSUB R1,R1,#1
�
CMP R1,#1
�BGT yloopg2
�
� .smudge LDR R1,otherscrn
�MOV R0,screen
�ADD R1,R1,#1
�ADD R0,R0,#320
�ADD R1,R1,#320
�ADD R11,R0,#81920
�SUB R11,R11,#1
�SUB R11,R11,#320*2
�
� .smudgelp LDRB R2,[R0,#0]
LDRB R3,[R0,#1]
LDRB R4,[R0,#2]
SUB R0,R0,#320
$ADD R0,R0,#1
.LDRB R5,[R0],#640
8LDRB R6,[R0,#0]
BSUB R0,R0,#320
LSUB R0,R0,#1
VADD R3,R3,R2
`ADD R3,R3,R4
jADD R3,R3,R5
tADD R3,R3,R6
~MOV R7,#14
�MUL R2,R3,R7
�MOV R2,R2,LSR#6
�STRB R2,[R1],#1
�ADD R0,R0,#1
�CMP R0,R11
�BLT smudgelp
�
�
.nosmudge
�LDR R1,otherscrn
�ADD R1,R1,#320
�ADD R0,screen,#320
�ADD R11,R0,#81920
SUB R11,R11,#640
.copyloopg LDMIA R1!,{R2-R9}
STMIA R0!,{R2-R9}
CMP R0,R11
(BLT copyloopg
2LDR R0,counter
<
CMP R0,#2
FADDLE R0,R0,#1
PSTRLE R0,counter
ZBLE smudge
d
nLDR R5,coldata
xADD R0,screen,#81920
�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 code2+1024
�.oldcol% EQUD 0
�.scrn% EQUD screen%
�!.otherscrn EQUD screen%+81920
�.counter EQUD 1
�.mod16 SUB R4,R4,#16
CMP R4,#16
BGE mod16
MOV PC,R14
".rnd LDR R7,seed
,
LDR R8,c1
6
LDR R9,c2
@MLA R7,R8,R7,R9
JMLA R10,R8,R7,R9
TSTR R10,seed
^� R7,R7,R10,ROR#16
hMOV R8,#256
rSUB R8,R8,#1
|� R7,R7,R8
�MOV PC,R14
�.c1 EQUD 1664525
�.c2 EQUD 907633393
�.seed EQUD �
�.rnd%EQUD 0
�]
��
�
� �granite
�ș 6,112,1
�ș 6,113,1
� � 0 Ȝ 0
� ȓȐ 1280-64*4,0,256,1023
ș 6,112,2
ș 6,113,2
� granite2
&ȓȐ 0,1024,1279,-12
0�
:
D
��cols
Ndata%=code2+1024
X �I%=0�15
b
�data%?I%
l�
v�
�:� 0,0,1,2, 8,9,10,11, 164,165,166,167, 216,217,218,219
�<� 0,1,2,3, 44,45,46,47, 208,209,210,211, 252,253,254,255
�
� ��setup
� �scrn
�� code 4096+81920
��
�
� ��err
� � � �
�� �=214 �'" Please create a RamDisc of 80k and EITHER run one of the Set_XXX programs, OR copy the POSDATA files from disc onto RamDisc.":�
��
��scrn
� block% 15,b2% 15
block%!0=148
*block%!4=7
4block%!8=6
>block%!12=-1
H'ș "OS_ReadVduVariables",block%,b2%
Rsize%=b2%!4
\block%!0=148
fblock%!4=7
pblock%!8=6
zblock%!12=-1
�'ș "OS_ReadVduVariables",block%,b2%
�screen%=b2%!0
�size%=b2%!4
��
� 00000000 0d 00 0a 06 eb 30 0d 00 14 0c ee 20 85 20 f2 65 |.....0..... . .e|
00000010 72 72 0d 00 28 1a ee 20 85 20 f6 3a f1 22 20 61 |rr..(.. . .:." a|
00000020 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 32 48 |t line ";.:...2H|
00000030 f1 20 22 54 6f 20 75 73 65 20 74 68 69 73 2c 20 |. "To use this, |
00000040 79 6f 75 20 6d 75 73 74 20 68 61 76 65 20 72 75 |you must have ru|
00000050 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 27 53 65 |n one of the 'Se|
00000060 74 5f 58 58 58 27 20 70 72 6f 67 73 20 66 69 72 |t_XXX' progs fir|
00000070 73 74 2c 22 0d 00 46 44 f1 20 22 59 6f 75 20 63 |st,"..FD. "You c|
00000080 61 6e 20 6f 6e 6c 79 20 76 69 65 77 20 74 68 65 |an only view the|
00000090 20 73 69 7a 65 20 6f 66 20 73 70 68 65 72 65 73 | size of spheres|
000000a0 20 74 68 61 74 20 79 6f 75 20 68 61 76 65 20 73 | that you have s|
000000b0 65 74 20 75 70 2e 22 27 0d 00 50 2f f1 20 22 59 |et up."'..P/. "Y|
000000c0 6f 75 20 63 61 6e 20 63 68 6f 6f 73 65 3a 20 42 |ou can choose: B|
000000d0 69 67 2c 20 53 6d 61 6c 6c 20 6f 72 20 4e 6f 72 |ig, Small or Nor|
000000e0 6d 61 6c 3f 20 22 3b 0d 00 5a 08 43 24 3d be 0d |mal? ";..Z.C$=..|
000000f0 00 64 07 f1 43 24 0d 00 6e 05 f5 0d 00 78 0a 41 |.d..C$..n....x.A|
00000100 24 3d 22 5a 22 0d 00 82 6f e7 20 43 24 3d 22 42 |$="Z"...o. C$="B|
00000110 22 20 84 20 43 24 3d 22 62 22 20 41 24 3d 22 33 |" . C$="b" A$="3|
00000120 22 8b 20 e7 20 43 24 3d 22 53 22 20 84 20 43 24 |". . C$="S" . C$|
00000130 3d 22 73 22 20 41 24 3d 22 32 22 8b 20 e7 20 43 |="s" A$="2". . C|
00000140 24 3d 22 4e 22 20 84 20 43 24 3d 22 6e 22 20 41 |$="N" . C$="n" A|
00000150 24 3d 22 22 20 8b 20 f1 27 22 50 6c 65 61 73 65 |$="" . .'"Please|
00000160 20 70 72 65 73 73 20 42 2c 20 53 20 6f 72 20 4e | press B, S or N|
00000170 2e 20 22 3b 0d 00 8c 0d fd 20 41 24 3c 3e 22 5a |. ";..... A$<>"Z|
00000180 22 0d 00 96 04 0d 00 aa 6d f1 20 27 22 59 6f 75 |".......m. '"You|
00000190 20 63 61 6e 20 65 69 74 68 65 72 20 6c 6f 61 64 | can either load|
000001a0 20 61 20 4d 6f 64 65 31 33 20 73 63 72 65 65 6e | a Mode13 screen|
000001b0 20 73 70 72 69 74 65 20 74 6f 20 75 73 65 2c 20 | sprite to use, |
000001c0 6f 72 20 69 66 20 79 6f 75 20 64 6f 20 6e 6f 74 |or if you do not|
000001d0 68 61 76 65 20 6f 6e 65 2c 20 75 73 65 20 6d 79 |have one, use my|
000001e0 20 47 72 61 6e 69 74 65 20 74 65 78 74 75 72 65 | Granite texture|
000001f0 2e 22 0d 00 b4 34 f1 20 22 57 68 69 63 68 20 77 |."...4. "Which w|
00000200 6f 75 6c 64 20 79 6f 75 20 70 72 65 66 65 72 3f |ould you prefer?|
00000210 20 53 70 72 69 74 65 20 6f 72 20 47 72 61 6e 69 | Sprite or Grani|
00000220 74 65 3f 20 22 3b 0d 00 be 08 42 24 3d be 0d 00 |te? ";....B$=...|
00000230 c8 07 f1 42 24 0d 00 d2 58 e7 20 a7 22 53 73 47 |...B$...X. ."SsG|
00000240 67 22 2c 42 24 29 3d 30 20 f1 27 22 20 20 4e 6f |g",B$)=0 .'" No|
00000250 77 20 79 6f 75 27 72 65 20 6a 75 73 74 20 62 65 |w you're just be|
00000260 69 6e 67 20 73 69 6c 6c 79 2e 20 49 20 63 68 6f |ing silly. I cho|
00000270 6f 73 65 20 47 72 61 6e 69 74 65 2e 22 3a 42 24 |ose Granite.":B$|
00000280 3d 22 47 22 3a 49 3d a6 28 31 32 35 29 0d 00 dc |="G":I=.(125)...|
00000290 64 e7 20 42 24 3d 22 73 22 20 84 20 42 24 3d 22 |d. B$="s" . B$="|
000002a0 53 22 20 42 24 3d 22 53 22 3a e8 27 22 50 6c 65 |S" B$="S":.'"Ple|
000002b0 61 73 65 20 67 69 76 65 20 6d 65 20 74 68 65 20 |ase give me the |
000002c0 73 70 72 69 74 65 27 73 20 66 69 6c 65 6e 61 6d |sprite's filenam|
000002d0 65 3a 20 22 46 24 3a 8b 20 e7 20 42 24 3d 22 67 |e: "F$:. . B$="g|
000002e0 22 20 84 20 42 24 3d 22 47 22 20 42 24 3d 22 47 |" . B$="G" B$="G|
000002f0 22 0d 00 e6 04 0d 00 f0 05 f5 0d 00 fa 43 f1 27 |"............C.'|
00000300 22 20 20 50 6c 65 61 73 65 20 70 69 63 6b 20 61 |" Please pick a|
00000310 20 73 70 65 65 64 20 66 72 6f 6d 20 31 20 74 6f | speed from 1 to|
00000320 20 38 20 28 31 3d 73 6c 6f 77 2c 20 38 3d 77 61 | 8 (1=slow, 8=wa|
00000330 72 70 20 73 70 65 65 64 29 3a 20 22 3b 0d 01 04 |rp speed): ";...|
00000340 0e 73 70 65 65 64 25 3d bb 20 be 0d 01 0e 0e f1 |.speed%=. ......|
00000350 20 c3 20 73 70 65 65 64 25 0d 01 18 19 fd 20 73 | . speed%..... s|
00000360 70 65 65 64 25 3c 39 20 80 20 73 70 65 65 64 25 |peed%<9 . speed%|
00000370 3e 30 0d 01 22 04 0d 01 2c 0d eb 31 35 3a eb 31 |>0.."...,..15:.1|
00000380 33 3a 87 0d 01 36 0a f2 73 65 74 75 70 0d 01 40 |3:...6..setup..@|
00000390 04 0d 01 4a 0d 73 63 72 65 65 6e 3d 31 32 0d 01 |...J.screen=12..|
000003a0 54 09 73 70 3d 31 33 0d 01 5e 0b 6c 69 6e 6b 3d |T.sp=13..^.link=|
000003b0 31 34 0d 01 68 04 0d 01 72 08 78 3d 37 34 0d 01 |14..h...r.x=74..|
000003c0 7c 08 79 3d 34 30 0d 01 86 04 0d 01 90 1c e3 20 ||.y=40......... |
000003d0 70 61 73 73 3d 30 20 b8 20 32 20 88 20 32 3a 50 |pass=0 . 2 . 2:P|
000003e0 25 3d 63 6f 64 65 0d 01 9a 0d 5b 4f 50 54 20 70 |%=code....[OPT p|
000003f0 61 73 73 0d 01 a4 22 2e 69 6e 69 74 20 20 20 20 |ass...".init |
00000400 20 20 20 53 54 4d 46 44 20 28 73 70 29 21 2c 7b | STMFD (sp)!,{|
00000410 6c 69 6e 6b 7d 0d 01 ae 04 0d 01 b8 1b 20 20 20 |link}........ |
00000420 20 20 20 20 20 20 20 20 20 42 4c 20 76 61 72 73 | BL vars|
00000430 72 65 61 64 0d 01 c2 1b 20 20 20 20 20 20 20 20 |read.... |
00000440 20 20 20 20 42 4c 20 67 72 61 62 64 61 74 61 0d | BL grabdata.|
00000450 01 cc 18 20 20 20 20 20 20 20 20 20 20 20 20 53 |... S|
00000460 57 49 20 26 31 30 43 0d 01 d6 04 0d 01 e0 18 2e |WI &10C.........|
00000470 6d 61 69 6e 6c 6f 6f 70 20 20 20 42 4c 20 67 6c |mainloop BL gl|
00000480 6f 62 65 0d 01 ea 04 0d 01 f4 0e 4d 4f 56 20 52 |obe........MOV R|
00000490 30 2c 23 31 39 0d 01 fe 11 53 57 49 20 22 4f 53 |0,#19....SWI "OS|
000004a0 5f 42 79 74 65 22 0d 02 08 28 20 20 20 20 20 20 |_Byte"...( |
000004b0 20 20 20 20 20 20 53 57 49 20 22 4f 53 5f 52 65 | SWI "OS_Re|
000004c0 61 64 45 73 63 61 70 65 53 74 61 74 65 22 0d 02 |adEscapeState"..|
000004d0 12 1c 20 20 20 20 20 20 20 20 20 20 20 20 42 43 |.. BC|
000004e0 43 20 6d 61 69 6e 6c 6f 6f 70 0d 02 1c 04 0d 02 |C mainloop......|
000004f0 26 20 2e 65 6e 64 20 20 20 20 20 20 20 20 4c 44 |& .end LD|
00000500 4d 46 44 20 28 73 70 29 21 2c 7b 50 43 7d 0d 02 |MFD (sp)!,{PC}..|
00000510 30 04 0d 02 3a 11 2e 63 6f 6e 20 45 51 55 44 20 |0...:..con EQUD |
00000520 38 30 30 0d 02 44 17 2e 70 6f 73 20 20 20 20 20 |800..D..pos |
00000530 20 20 20 45 51 55 44 20 20 30 0d 02 4e 26 2e 67 | EQUD 0..N&.g|
00000540 6c 6f 62 65 20 20 20 20 20 20 41 44 44 20 20 20 |lobe ADD |
00000550 52 38 2c 73 63 72 65 65 6e 2c 23 38 31 39 32 30 |R8,screen,#81920|
00000560 0d 02 58 1a 20 20 20 20 20 20 20 20 20 20 20 20 |..X. |
00000570 4c 44 52 20 52 39 2c 70 6f 73 0d 02 62 21 20 20 |LDR R9,pos..b! |
00000580 20 20 20 20 20 20 20 20 20 20 41 44 44 20 52 39 | ADD R9|
00000590 2c 52 39 2c 23 73 70 65 65 64 25 0d 02 6c 1d 20 |,R9,#speed%..l. |
000005a0 20 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 52 | CMP R|
000005b0 39 2c 23 33 32 30 2a 38 0d 02 76 20 20 20 20 20 |9,#320*8..v |
000005c0 20 20 20 20 20 20 20 20 53 55 42 47 45 20 52 39 | SUBGE R9|
000005d0 2c 52 39 2c 23 33 32 30 0d 02 80 1a 20 20 20 20 |,R9,#320.... |
000005e0 20 20 20 20 20 20 20 20 53 54 52 20 52 39 2c 70 | STR R9,p|
000005f0 6f 73 0d 02 8a 1c 20 20 20 20 20 20 20 20 20 20 |os.... |
00000600 20 20 41 44 44 20 52 38 2c 52 38 2c 52 39 0d 02 | ADD R8,R8,R9..|
00000610 94 04 0d 02 9e 21 20 20 20 20 20 20 20 20 20 20 |.....! |
00000620 20 20 4c 44 52 20 20 20 52 31 31 2c 70 6f 73 64 | LDR R11,posd|
00000630 61 74 61 0d 02 a8 18 41 44 44 20 73 63 72 65 65 |ata....ADD scree|
00000640 6e 2c 73 63 72 65 65 6e 2c 23 78 0d 02 b2 1c 41 |n,screen,#x....A|
00000650 44 44 20 73 63 72 65 65 6e 2c 73 63 72 65 65 6e |DD screen,screen|
00000660 2c 23 33 32 30 2a 79 0d 02 bc 04 0d 02 c6 1f 2e |,#320*y.........|
00000670 79 6c 6f 6f 70 20 20 20 20 20 20 4c 44 4d 49 41 |yloop LDMIA|
00000680 20 52 31 31 21 2c 7b 52 30 7d 0d 02 d0 1b 20 20 | R11!,{R0}.... |
00000690 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 | CMP |
000006a0 52 30 2c 23 30 0d 02 da 1e 20 20 20 20 20 20 20 |R0,#0.... |
000006b0 20 20 20 20 20 42 45 51 20 20 20 65 6e 64 67 6c | BEQ endgl|
000006c0 6f 62 65 0d 02 e4 04 0d 02 ee 22 20 20 20 20 20 |obe......." |
000006d0 20 20 20 20 20 20 20 41 44 44 20 20 20 52 30 2c | ADD R0,|
000006e0 52 30 2c 73 63 72 65 65 6e 0d 02 f8 04 0d 03 02 |R0,screen.......|
000006f0 1f 2e 78 6c 6f 6f 70 32 20 20 20 20 20 4c 44 4d |..xloop2 LDM|
00000700 49 41 20 52 31 31 21 2c 7b 52 39 7d 0d 03 0c 04 |IA R11!,{R9}....|
00000710 0d 03 16 23 20 20 20 20 20 20 20 20 20 20 20 20 |...# |
00000720 4d 4f 56 20 20 20 52 31 30 2c 52 39 2c 4c 53 52 |MOV R10,R9,LSR|
00000730 23 31 36 0d 03 20 1c 20 20 20 20 20 20 20 20 20 |#16.. . |
00000740 20 20 20 43 4d 50 20 20 20 52 31 30 2c 23 30 0d | CMP R10,#0.|
00000750 03 2a 1b 20 20 20 20 20 20 20 20 20 20 20 20 42 |.*. B|
00000760 45 51 20 20 20 79 6c 6f 6f 70 0d 03 34 26 20 20 |EQ yloop..4& |
00000770 20 20 20 20 20 20 20 20 20 20 53 55 42 20 20 20 | SUB |
00000780 52 39 2c 52 39 2c 52 31 30 2c 4c 53 4c 23 31 36 |R9,R9,R10,LSL#16|
00000790 0d 03 3e 04 0d 03 48 21 20 20 20 20 20 20 20 20 |..>...H! |
000007a0 20 20 20 20 4c 44 52 42 20 20 52 31 2c 5b 52 38 | LDRB R1,[R8|
000007b0 2c 52 31 30 5d 0d 03 52 20 20 20 20 20 20 20 20 |,R10]..R |
000007c0 20 20 20 20 20 53 54 52 42 20 20 52 31 2c 5b 52 | STRB R1,[R|
000007d0 30 5d 2c 23 31 0d 03 5c 04 0d 03 66 1b 20 20 20 |0],#1..\...f. |
000007e0 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 52 | CMP R|
000007f0 39 2c 23 30 0d 03 70 1b 20 20 20 20 20 20 20 20 |9,#0..p. |
00000800 20 20 20 20 42 45 51 20 20 20 79 6c 6f 6f 70 0d | BEQ yloop.|
00000810 03 7a 04 0d 03 84 1e 20 20 20 20 20 20 20 20 20 |.z..... |
00000820 20 20 20 43 4d 50 20 20 20 20 20 52 39 2c 52 31 | CMP R9,R1|
00000830 30 0d 03 8e 22 20 20 20 20 20 20 20 20 20 20 20 |0..." |
00000840 20 4c 44 52 4e 45 42 20 20 52 31 2c 5b 52 38 2c | LDRNEB R1,[R8,|
00000850 52 39 5d 0d 03 98 22 20 20 20 20 20 20 20 20 20 |R9]..." |
00000860 20 20 20 53 54 52 42 20 20 20 20 52 31 2c 5b 52 | STRB R1,[R|
00000870 30 5d 2c 23 31 0d 03 a2 04 0d 03 ac 18 20 20 20 |0],#1........ |
00000880 20 20 20 20 20 20 20 20 20 42 20 78 6c 6f 6f 70 | B xloop|
00000890 32 0d 03 b6 04 0d 03 c0 24 2e 65 6e 64 67 6c 6f |2.......$.endglo|
000008a0 62 65 20 20 20 53 55 42 20 73 63 72 65 65 6e 2c |be SUB screen,|
000008b0 73 63 72 65 65 6e 2c 23 78 0d 03 ca 28 20 20 20 |screen,#x...( |
000008c0 20 20 20 20 20 20 20 20 20 53 55 42 20 73 63 72 | SUB scr|
000008d0 65 65 6e 2c 73 63 72 65 65 6e 2c 23 33 32 30 2a |een,screen,#320*|
000008e0 79 0d 03 d4 1a 20 20 20 20 20 20 20 20 20 20 20 |y.... |
000008f0 20 4d 4f 56 20 50 43 2c 52 31 34 0d 03 de 04 0d | MOV PC,R14.....|
00000900 03 e8 1e 2e 70 6f 73 64 61 74 61 20 20 20 20 45 |....posdata E|
00000910 51 55 44 20 63 6f 64 65 2b 34 30 39 36 0d 03 f2 |QUD code+4096...|
00000920 25 2e 76 61 72 73 72 65 61 64 20 20 20 4c 44 52 |%.varsread LDR|
00000930 20 20 73 63 72 65 65 6e 2c 73 63 72 65 65 6e 61 | screen,screena|
00000940 64 64 0d 03 fc 1b 20 20 20 20 20 20 20 20 20 20 |dd.... |
00000950 20 20 4d 4f 56 20 20 50 43 2c 52 31 34 0d 04 06 | MOV PC,R14...|
00000960 1c 2e 73 63 72 65 65 6e 61 64 64 20 20 45 51 55 |..screenadd EQU|
00000970 44 20 73 63 72 65 65 6e 25 0d 04 10 04 0d 04 1a |D screen%.......|
00000980 21 2e 67 72 61 62 64 61 74 61 20 20 20 4c 44 52 |!.grabdata LDR|
00000990 20 20 20 52 30 20 2c 70 6f 73 64 61 74 61 0d 04 | R0 ,posdata..|
000009a0 24 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f |$ MO|
000009b0 56 20 20 20 52 31 20 2c 73 63 72 65 65 6e 0d 04 |V R1 ,screen..|
000009c0 2e 23 20 20 20 20 20 20 20 20 20 20 20 20 41 44 |.# AD|
000009d0 44 20 20 20 52 31 30 2c 52 31 2c 23 38 31 39 32 |D R10,R1,#8192|
000009e0 30 0d 04 38 21 2e 67 72 61 62 6c 6f 6f 70 20 20 |0..8!.grabloop |
000009f0 20 4c 44 4d 49 41 20 52 31 21 2c 7b 52 32 2d 52 | LDMIA R1!,{R2-R|
00000a00 39 7d 0d 04 42 21 20 20 20 20 20 20 20 20 20 20 |9}..B! |
00000a10 20 20 53 54 4d 49 41 20 52 30 21 2c 7b 52 32 2d | STMIA R0!,{R2-|
00000a20 52 39 7d 0d 04 4c 1c 20 20 20 20 20 20 20 20 20 |R9}..L. |
00000a30 20 20 20 43 4d 50 20 20 20 52 31 2c 52 31 30 0d | CMP R1,R10.|
00000a40 04 56 1e 20 20 20 20 20 20 20 20 20 20 20 20 42 |.V. B|
00000a50 4c 54 20 20 20 67 72 61 62 6c 6f 6f 70 0d 04 60 |LT grabloop..`|
00000a60 1c 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 |. MOV|
00000a70 20 20 20 50 43 2c 52 31 34 0d 04 6a 04 0d 04 74 | PC,R14..j...t|
00000a80 06 5d ed 0d 04 7e 0e c8 99 20 36 2c 31 31 32 2c |.]...~... 6,112,|
00000a90 32 0d 04 88 0e c8 99 20 36 2c 31 31 33 2c 32 0d |2...... 6,113,2.|
00000aa0 04 92 2f e7 20 42 24 3d 22 47 22 20 f2 67 72 61 |../. B$="G" .gra|
00000ab0 6e 69 74 65 70 72 6f 63 20 8b 20 ff 28 22 53 43 |niteproc . .("SC|
00000ac0 52 45 45 4e 4c 4f 41 44 20 22 2b 46 24 29 0d 04 |REENLOAD "+F$)..|
00000ad0 9c 0e c8 99 20 36 2c 31 31 32 2c 31 0d 04 a6 0e |.... 6,112,1....|
00000ae0 c8 99 20 36 2c 31 31 33 2c 31 0d 04 b0 26 ff 28 |.. 6,113,1...&.(|
00000af0 22 4c 4f 41 44 20 50 4f 53 44 41 54 41 22 2b 41 |"LOAD POSDATA"+A|
00000b00 24 2b 22 20 22 2b c3 7e 73 63 72 65 65 6e 25 29 |$+" "+.~screen%)|
00000b10 0d 04 ba 0a d6 20 69 6e 69 74 0d 04 c4 05 e0 0d |..... init......|
00000b20 04 ce 04 0d 04 d8 11 dd f2 67 72 61 6e 69 74 65 |.........granite|
00000b30 70 72 6f 63 0d 04 e2 13 de 20 63 6f 64 65 32 20 |proc..... code2 |
00000b40 31 30 32 34 2b 31 36 0d 04 ec 18 ee 85 f6 3a f1 |1024+16.......:.|
00000b50 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d |" at line ";.:..|
00000b60 04 f6 09 f2 63 6f 6c 73 0d 05 00 0b 6c 69 6e 6b |....cols....link|
00000b70 3d 31 34 0d 05 0a 09 73 70 3d 31 33 0d 05 14 0d |=14....sp=13....|
00000b80 73 63 72 65 65 6e 3d 31 32 0d 05 1e 0f e3 70 61 |screen=12.....pa|
00000b90 73 73 3d 30 b8 32 88 32 0d 05 28 0c 50 25 3d 63 |ss=0.2.2..(.P%=c|
00000ba0 6f 64 65 32 0d 05 32 0d 5b 4f 50 54 20 70 61 73 |ode2..2.[OPT pas|
00000bb0 73 0d 05 3c 1f 2e 67 72 61 6e 69 74 65 20 53 54 |s..<..granite ST|
00000bc0 4d 46 44 20 28 73 70 29 21 2c 7b 6c 69 6e 6b 7d |MFD (sp)!,{link}|
00000bd0 0d 05 46 14 4c 44 52 20 73 63 72 65 65 6e 2c 73 |..F.LDR screen,s|
00000be0 63 72 6e 25 0d 05 50 0f 4d 4f 56 20 52 31 2c 23 |crn%..P.MOV R1,#|
00000bf0 32 35 33 0d 05 5a 15 2e 79 6c 6f 6f 70 67 20 4d |253..Z..yloopg M|
00000c00 4f 56 20 52 30 2c 23 31 0d 05 64 1e 2e 78 6c 6f |OV R0,#1..d..xlo|
00000c10 6f 70 67 20 41 44 44 20 52 32 2c 52 30 2c 52 31 |opg ADD R2,R0,R1|
00000c20 2c 4c 53 4c 23 36 0d 05 6e 16 41 44 44 20 52 32 |,LSL#6..n.ADD R2|
00000c30 2c 52 32 2c 52 31 2c 4c 53 4c 23 38 0d 05 78 14 |,R2,R1,LSL#8..x.|
00000c40 41 44 44 20 52 32 2c 52 32 2c 73 63 72 65 65 6e |ADD R2,R2,screen|
00000c50 0d 05 82 10 53 55 42 20 52 32 2c 52 32 2c 23 34 |....SUB R2,R2,#4|
00000c60 0d 05 8c 13 4c 44 52 42 20 52 34 2c 5b 52 32 2c |....LDRB R4,[R2,|
00000c70 23 30 5d 0d 05 96 17 4c 44 52 42 20 52 33 2c 5b |#0]....LDRB R3,[|
00000c80 52 32 2c 23 33 32 30 2a 32 5d 0d 05 a0 10 41 44 |R2,#320*2]....AD|
00000c90 44 20 52 34 2c 52 34 2c 52 33 0d 05 aa 10 41 44 |D R4,R4,R3....AD|
00000ca0 44 20 52 32 2c 52 32 2c 23 32 0d 05 b4 15 4c 44 |D R2,R2,#2....LD|
00000cb0 52 42 20 52 33 2c 5b 52 32 2c 23 33 32 30 5d 0d |RB R3,[R2,#320].|
00000cc0 05 be 10 41 44 44 20 52 34 2c 52 34 2c 52 33 0d |...ADD R4,R4,R3.|
00000cd0 05 c8 10 41 44 44 20 52 32 2c 52 32 2c 23 32 0d |...ADD R2,R2,#2.|
00000ce0 05 d2 17 4c 44 52 42 20 52 33 2c 5b 52 32 2c 23 |...LDRB R3,[R2,#|
00000cf0 33 32 30 2a 32 5d 0d 05 dc 10 41 44 44 20 52 34 |320*2]....ADD R4|
00000d00 2c 52 34 2c 52 33 0d 05 e6 15 4d 4f 56 20 52 34 |,R4,R3....MOV R4|
00000d10 2c 52 34 2c 4c 53 4c 23 38 2d 32 0d 05 f0 0a 42 |,R4,LSL#8-2....B|
00000d20 4c 20 72 6e 64 0d 05 fa 12 53 55 42 20 52 37 2c |L rnd....SUB R7,|
00000d30 52 37 2c 23 31 31 33 0d 06 04 16 41 44 44 20 52 |R7,#113....ADD R|
00000d40 34 2c 52 34 2c 52 37 2c 41 53 4c 23 33 0d 06 0e |4,R4,R7,ASL#3...|
00000d50 0d 43 4d 50 20 52 34 2c 23 30 0d 06 18 14 4c 44 |.CMP R4,#0....LD|
00000d60 52 4c 54 20 52 34 2c 6f 6c 64 63 6f 6c 25 0d 06 |RLT R4,oldcol%..|
00000d70 22 0c 42 4c 54 20 6d 61 75 73 0d 06 2c 15 4d 4f |".BLT maus..,.MO|
00000d80 56 47 45 20 52 34 2c 52 34 2c 41 53 52 23 38 0d |VGE R4,R4,ASR#8.|
00000d90 06 36 0e 43 4d 50 20 52 34 2c 23 31 36 0d 06 40 |.6.CMP R4,#16..@|
00000da0 0e 42 4c 47 45 20 6d 6f 64 31 36 0d 06 4a 14 53 |.BLGE mod16..J.S|
00000db0 54 52 4c 54 20 52 34 2c 6f 6c 64 63 6f 6c 25 0d |TRLT R4,oldcol%.|
00000dc0 06 54 16 2e 6d 61 75 73 20 53 55 42 20 52 32 2c |.T..maus SUB R2,|
00000dd0 52 32 2c 23 31 0d 06 5e 13 53 54 52 42 20 52 34 |R2,#1..^.STRB R4|
00000de0 2c 5b 52 32 2c 23 30 5d 0d 06 68 10 41 44 44 20 |,[R2,#0]..h.ADD |
00000df0 52 30 2c 52 30 2c 23 32 0d 06 72 0f 43 4d 50 20 |R0,R0,#2..r.CMP |
00000e00 52 30 2c 23 33 32 30 0d 06 7c 12 53 55 42 4c 45 |R0,#320..|.SUBLE|
00000e10 20 52 30 2c 52 30 2c 23 31 0d 06 86 0e 42 4c 45 | R0,R0,#1....BLE|
00000e20 20 78 6c 6f 6f 70 67 0d 06 90 10 53 55 42 20 52 | xloopg....SUB R|
00000e30 31 2c 52 31 2c 23 31 0d 06 9a 0d 43 4d 50 20 52 |1,R1,#1....CMP R|
00000e40 31 2c 23 31 0d 06 a4 0e 42 47 54 20 79 6c 6f 6f |1,#1....BGT yloo|
00000e50 70 67 0d 06 ae 04 0d 06 b8 11 4d 4f 56 20 52 30 |pg........MOV R0|
00000e60 2c 73 63 72 65 65 6e 0d 06 c2 11 41 44 44 20 52 |,screen....ADD R|
00000e70 31 2c 52 30 2c 23 36 34 0d 06 cc 14 41 44 44 20 |1,R0,#64....ADD |
00000e80 52 32 2c 52 30 2c 23 38 31 39 32 30 0d 06 d6 1e |R2,R0,#81920....|
00000e90 2e 6d 6f 76 65 6c 70 20 4c 44 4d 49 41 20 52 31 |.movelp LDMIA R1|
00000ea0 21 2c 7b 52 33 2d 52 31 30 7d 0d 06 e0 16 53 54 |!,{R3-R10}....ST|
00000eb0 4d 49 41 20 52 30 21 2c 7b 52 33 2d 52 31 30 7d |MIA R0!,{R3-R10}|
00000ec0 0d 06 ea 0d 43 4d 50 20 52 31 2c 52 32 0d 06 f4 |....CMP R1,R2...|
00000ed0 0e 42 4c 54 20 6d 6f 76 65 6c 70 0d 06 fe 14 4c |.BLT movelp....L|
00000ee0 44 4d 46 44 20 28 73 70 29 21 2c 7b 50 43 7d 0d |DMFD (sp)!,{PC}.|
00000ef0 07 08 04 0d 07 12 20 2e 67 72 61 6e 69 74 65 32 |...... .granite2|
00000f00 20 53 54 4d 46 44 20 28 73 70 29 21 2c 7b 6c 69 | STMFD (sp)!,{li|
00000f10 6e 6b 7d 0d 07 1c 14 4c 44 52 20 73 63 72 65 65 |nk}....LDR scree|
00000f20 6e 2c 73 63 72 6e 25 0d 07 26 0f 4d 4f 56 20 52 |n,scrn%..&.MOV R|
00000f30 35 2c 23 33 32 30 0d 07 30 10 41 44 44 20 52 35 |5,#320..0.ADD R5|
00000f40 2c 52 35 2c 23 31 0d 07 3a 0f 4d 4f 56 20 52 31 |,R5,#1..:.MOV R1|
00000f50 2c 23 32 35 33 0d 07 44 1c 2e 79 6c 6f 6f 70 67 |,#253..D..yloopg|
00000f60 32 20 4d 4f 56 20 52 30 2c 23 33 32 30 2d 31 32 |2 MOV R0,#320-12|
00000f70 38 0d 07 4e 1f 2e 78 6c 6f 6f 70 67 32 20 41 44 |8..N..xloopg2 AD|
00000f80 44 20 52 32 2c 52 30 2c 52 31 2c 4c 53 4c 23 36 |D R2,R0,R1,LSL#6|
00000f90 0d 07 58 16 41 44 44 20 52 32 2c 52 32 2c 52 31 |..X.ADD R2,R2,R1|
00000fa0 2c 4c 53 4c 23 38 0d 07 62 14 41 44 44 20 52 32 |,LSL#8..b.ADD R2|
00000fb0 2c 52 32 2c 73 63 72 65 65 6e 0d 07 6c 10 53 55 |,R2,screen..l.SU|
00000fc0 42 20 52 32 2c 52 32 2c 23 34 0d 07 76 13 4c 44 |B R2,R2,#4..v.LD|
00000fd0 52 42 20 52 34 2c 5b 52 32 2c 23 30 5d 0d 07 80 |RB R4,[R2,#0]...|
00000fe0 17 4c 44 52 42 20 52 33 2c 5b 52 32 2c 23 33 32 |.LDRB R3,[R2,#32|
00000ff0 30 2a 32 5d 0d 07 8a 10 41 44 44 20 52 34 2c 52 |0*2]....ADD R4,R|
00001000 34 2c 52 33 0d 07 94 10 41 44 44 20 52 32 2c 52 |4,R3....ADD R2,R|
00001010 32 2c 23 32 0d 07 9e 15 4c 44 52 42 20 52 33 2c |2,#2....LDRB R3,|
00001020 5b 52 32 2c 23 33 32 30 5d 0d 07 a8 10 41 44 44 |[R2,#320]....ADD|
00001030 20 52 34 2c 52 34 2c 52 33 0d 07 b2 10 41 44 44 | R4,R4,R3....ADD|
00001040 20 52 32 2c 52 32 2c 23 32 0d 07 bc 17 4c 44 52 | R2,R2,#2....LDR|
00001050 42 20 52 33 2c 5b 52 32 2c 23 33 32 30 2a 32 5d |B R3,[R2,#320*2]|
00001060 0d 07 c6 10 41 44 44 20 52 34 2c 52 34 2c 52 33 |....ADD R4,R4,R3|
00001070 0d 07 d0 15 4d 4f 56 20 52 34 2c 52 34 2c 4c 53 |....MOV R4,R4,LS|
00001080 4c 23 38 2d 32 0d 07 da 0a 42 4c 20 72 6e 64 0d |L#8-2....BL rnd.|
00001090 07 e4 12 53 55 42 20 52 37 2c 52 37 2c 23 31 31 |...SUB R7,R7,#11|
000010a0 33 0d 07 ee 16 41 44 44 20 52 34 2c 52 34 2c 52 |3....ADD R4,R4,R|
000010b0 37 2c 41 53 4c 23 33 0d 07 f8 0d 43 4d 50 20 52 |7,ASL#3....CMP R|
000010c0 34 2c 23 30 0d 08 02 14 4c 44 52 4c 54 20 52 34 |4,#0....LDRLT R4|
000010d0 2c 6f 6c 64 63 6f 6c 25 0d 08 0c 0d 42 4c 54 20 |,oldcol%....BLT |
000010e0 6d 61 75 73 32 0d 08 16 15 4d 4f 56 47 45 20 52 |maus2....MOVGE R|
000010f0 34 2c 52 34 2c 41 53 52 23 38 0d 08 20 0e 43 4d |4,R4,ASR#8.. .CM|
00001100 50 20 52 34 2c 23 31 36 0d 08 2a 0e 42 4c 47 45 |P R4,#16..*.BLGE|
00001110 20 6d 6f 64 31 36 0d 08 34 14 53 54 52 4c 54 20 | mod16..4.STRLT |
00001120 52 34 2c 6f 6c 64 63 6f 6c 25 0d 08 3e 17 2e 6d |R4,oldcol%..>..m|
00001130 61 75 73 32 20 53 55 42 20 52 32 2c 52 32 2c 23 |aus2 SUB R2,R2,#|
00001140 31 0d 08 48 13 53 54 52 42 20 52 34 2c 5b 52 32 |1..H.STRB R4,[R2|
00001150 2c 23 30 5d 0d 08 52 10 41 44 44 20 52 30 2c 52 |,#0]..R.ADD R0,R|
00001160 30 2c 23 32 0d 08 5c 0d 43 4d 50 20 52 30 2c 52 |0,#2..\.CMP R0,R|
00001170 35 0d 08 66 12 53 55 42 4c 45 20 52 30 2c 52 30 |5..f.SUBLE R0,R0|
00001180 2c 23 31 0d 08 70 0f 42 4c 45 20 78 6c 6f 6f 70 |,#1..p.BLE xloop|
00001190 67 32 0d 08 7a 10 53 55 42 20 52 31 2c 52 31 2c |g2..z.SUB R1,R1,|
000011a0 23 31 0d 08 84 0d 43 4d 50 20 52 31 2c 23 31 0d |#1....CMP R1,#1.|
000011b0 08 8e 0f 42 47 54 20 79 6c 6f 6f 70 67 32 0d 08 |...BGT yloopg2..|
000011c0 98 04 0d 08 a2 1c 2e 73 6d 75 64 67 65 20 4c 44 |.......smudge LD|
000011d0 52 20 52 31 2c 6f 74 68 65 72 73 63 72 6e 0d 08 |R R1,otherscrn..|
000011e0 ac 11 4d 4f 56 20 52 30 2c 73 63 72 65 65 6e 0d |..MOV R0,screen.|
000011f0 08 b6 10 41 44 44 20 52 31 2c 52 31 2c 23 31 0d |...ADD R1,R1,#1.|
00001200 08 c0 12 41 44 44 20 52 30 2c 52 30 2c 23 33 32 |...ADD R0,R0,#32|
00001210 30 0d 08 ca 12 41 44 44 20 52 31 2c 52 31 2c 23 |0....ADD R1,R1,#|
00001220 33 32 30 0d 08 d4 15 41 44 44 20 52 31 31 2c 52 |320....ADD R11,R|
00001230 30 2c 23 38 31 39 32 30 0d 08 de 12 53 55 42 20 |0,#81920....SUB |
00001240 52 31 31 2c 52 31 31 2c 23 31 0d 08 e8 16 53 55 |R11,R11,#1....SU|
00001250 42 20 52 31 31 2c 52 31 31 2c 23 33 32 30 2a 32 |B R11,R11,#320*2|
00001260 0d 08 f2 04 0d 08 fc 1d 2e 73 6d 75 64 67 65 6c |.........smudgel|
00001270 70 20 4c 44 52 42 20 52 32 2c 5b 52 30 2c 23 30 |p LDRB R2,[R0,#0|
00001280 5d 0d 09 06 13 4c 44 52 42 20 52 33 2c 5b 52 30 |]....LDRB R3,[R0|
00001290 2c 23 31 5d 0d 09 10 13 4c 44 52 42 20 52 34 2c |,#1]....LDRB R4,|
000012a0 5b 52 30 2c 23 32 5d 0d 09 1a 12 53 55 42 20 52 |[R0,#2]....SUB R|
000012b0 30 2c 52 30 2c 23 33 32 30 0d 09 24 10 41 44 44 |0,R0,#320..$.ADD|
000012c0 20 52 30 2c 52 30 2c 23 31 0d 09 2e 15 4c 44 52 | R0,R0,#1....LDR|
000012d0 42 20 52 35 2c 5b 52 30 5d 2c 23 36 34 30 0d 09 |B R5,[R0],#640..|
000012e0 38 13 4c 44 52 42 20 52 36 2c 5b 52 30 2c 23 30 |8.LDRB R6,[R0,#0|
000012f0 5d 0d 09 42 12 53 55 42 20 52 30 2c 52 30 2c 23 |]..B.SUB R0,R0,#|
00001300 33 32 30 0d 09 4c 10 53 55 42 20 52 30 2c 52 30 |320..L.SUB R0,R0|
00001310 2c 23 31 0d 09 56 10 41 44 44 20 52 33 2c 52 33 |,#1..V.ADD R3,R3|
00001320 2c 52 32 0d 09 60 10 41 44 44 20 52 33 2c 52 33 |,R2..`.ADD R3,R3|
00001330 2c 52 34 0d 09 6a 10 41 44 44 20 52 33 2c 52 33 |,R4..j.ADD R3,R3|
00001340 2c 52 35 0d 09 74 10 41 44 44 20 52 33 2c 52 33 |,R5..t.ADD R3,R3|
00001350 2c 52 36 0d 09 7e 0e 4d 4f 56 20 52 37 2c 23 31 |,R6..~.MOV R7,#1|
00001360 34 0d 09 88 10 4d 55 4c 20 52 32 2c 52 33 2c 52 |4....MUL R2,R3,R|
00001370 37 0d 09 92 13 4d 4f 56 20 52 32 2c 52 32 2c 4c |7....MOV R2,R2,L|
00001380 53 52 23 36 0d 09 9c 13 53 54 52 42 20 52 32 2c |SR#6....STRB R2,|
00001390 5b 52 31 5d 2c 23 31 0d 09 a6 10 41 44 44 20 52 |[R1],#1....ADD R|
000013a0 30 2c 52 30 2c 23 31 0d 09 b0 0e 43 4d 50 20 52 |0,R0,#1....CMP R|
000013b0 30 2c 52 31 31 0d 09 ba 10 42 4c 54 20 73 6d 75 |0,R11....BLT smu|
000013c0 64 67 65 6c 70 0d 09 c4 04 0d 09 ce 0d 2e 6e 6f |dgelp.........no|
000013d0 73 6d 75 64 67 65 0d 09 d8 14 4c 44 52 20 52 31 |smudge....LDR R1|
000013e0 2c 6f 74 68 65 72 73 63 72 6e 0d 09 e2 12 41 44 |,otherscrn....AD|
000013f0 44 20 52 31 2c 52 31 2c 23 33 32 30 0d 09 ec 16 |D R1,R1,#320....|
00001400 41 44 44 20 52 30 2c 73 63 72 65 65 6e 2c 23 33 |ADD R0,screen,#3|
00001410 32 30 0d 09 f6 15 41 44 44 20 52 31 31 2c 52 30 |20....ADD R11,R0|
00001420 2c 23 38 31 39 32 30 0d 0a 00 14 53 55 42 20 52 |,#81920....SUB R|
00001430 31 31 2c 52 31 31 2c 23 36 34 30 0d 0a 0a 20 2e |11,R11,#640... .|
00001440 63 6f 70 79 6c 6f 6f 70 67 20 4c 44 4d 49 41 20 |copyloopg LDMIA |
00001450 52 31 21 2c 7b 52 32 2d 52 39 7d 0d 0a 14 15 53 |R1!,{R2-R9}....S|
00001460 54 4d 49 41 20 52 30 21 2c 7b 52 32 2d 52 39 7d |TMIA R0!,{R2-R9}|
00001470 0d 0a 1e 0e 43 4d 50 20 52 30 2c 52 31 31 0d 0a |....CMP R0,R11..|
00001480 28 11 42 4c 54 20 63 6f 70 79 6c 6f 6f 70 67 0d |(.BLT copyloopg.|
00001490 0a 32 12 4c 44 52 20 52 30 2c 63 6f 75 6e 74 65 |.2.LDR R0,counte|
000014a0 72 0d 0a 3c 0d 43 4d 50 20 52 30 2c 23 32 0d 0a |r..<.CMP R0,#2..|
000014b0 46 12 41 44 44 4c 45 20 52 30 2c 52 30 2c 23 31 |F.ADDLE R0,R0,#1|
000014c0 0d 0a 50 14 53 54 52 4c 45 20 52 30 2c 63 6f 75 |..P.STRLE R0,cou|
000014d0 6e 74 65 72 0d 0a 5a 0e 42 4c 45 20 73 6d 75 64 |nter..Z.BLE smud|
000014e0 67 65 0d 0a 64 04 0d 0a 6e 12 4c 44 52 20 52 35 |ge..d...n.LDR R5|
000014f0 2c 63 6f 6c 64 61 74 61 0d 0a 78 18 41 44 44 20 |,coldata..x.ADD |
00001500 52 30 2c 73 63 72 65 65 6e 2c 23 38 31 39 32 30 |R0,screen,#81920|
00001510 0d 0a 82 14 41 44 44 20 52 31 2c 52 30 2c 23 38 |....ADD R1,R0,#8|
00001520 31 39 32 30 0d 0a 8c 1d 2e 63 68 61 6e 67 65 6c |1920.....changel|
00001530 70 20 4c 44 52 42 20 52 32 2c 5b 52 30 2c 23 30 |p LDRB R2,[R0,#0|
00001540 5d 0d 0a 96 13 4c 44 52 42 20 52 36 2c 5b 52 35 |]....LDRB R6,[R5|
00001550 2c 52 32 5d 0d 0a a0 13 53 54 52 42 20 52 36 2c |,R2]....STRB R6,|
00001560 5b 52 30 5d 2c 23 31 0d 0a aa 0d 43 4d 50 20 52 |[R0],#1....CMP R|
00001570 30 2c 52 31 0d 0a b4 10 42 4c 54 20 63 68 61 6e |0,R1....BLT chan|
00001580 67 65 6c 70 0d 0a be 1a 2e 66 69 6e 69 20 4c 44 |gelp.....fini LD|
00001590 4d 46 44 20 28 73 70 29 21 2c 7b 50 43 7d 0d 0a |MFD (sp)!,{PC}..|
000015a0 c8 1c 2e 63 6f 6c 64 61 74 61 20 45 51 55 44 20 |...coldata EQUD |
000015b0 63 6f 64 65 32 2b 31 30 32 34 0d 0a d2 13 2e 6f |code2+1024.....o|
000015c0 6c 64 63 6f 6c 25 20 45 51 55 44 20 30 0d 0a dc |ldcol% EQUD 0...|
000015d0 1a 2e 73 63 72 6e 25 20 20 20 45 51 55 44 20 20 |..scrn% EQUD |
000015e0 73 63 72 65 65 6e 25 0d 0a e6 21 2e 6f 74 68 65 |screen%...!.othe|
000015f0 72 73 63 72 6e 20 45 51 55 44 20 73 63 72 65 65 |rscrn EQUD scree|
00001600 6e 25 2b 38 31 39 32 30 0d 0a f0 13 2e 63 6f 75 |n%+81920.....cou|
00001610 6e 74 65 72 20 45 51 55 44 20 31 0d 0a fa 18 2e |nter EQUD 1.....|
00001620 6d 6f 64 31 36 20 53 55 42 20 52 34 2c 52 34 2c |mod16 SUB R4,R4,|
00001630 23 31 36 0d 0b 04 0e 43 4d 50 20 52 34 2c 23 31 |#16....CMP R4,#1|
00001640 36 0d 0b 0e 0d 42 47 45 20 6d 6f 64 31 36 0d 0b |6....BGE mod16..|
00001650 18 0e 4d 4f 56 20 50 43 2c 52 31 34 0d 0b 22 14 |..MOV PC,R14..".|
00001660 2e 72 6e 64 20 4c 44 52 20 52 37 2c 73 65 65 64 |.rnd LDR R7,seed|
00001670 0d 0b 2c 0d 4c 44 52 20 52 38 2c 63 31 0d 0b 36 |..,.LDR R8,c1..6|
00001680 0d 4c 44 52 20 52 39 2c 63 32 0d 0b 40 13 4d 4c |.LDR R9,c2..@.ML|
00001690 41 20 52 37 2c 52 38 2c 52 37 2c 52 39 0d 0b 4a |A R7,R8,R7,R9..J|
000016a0 14 4d 4c 41 20 52 31 30 2c 52 38 2c 52 37 2c 52 |.MLA R10,R8,R7,R|
000016b0 39 0d 0b 54 10 53 54 52 20 52 31 30 2c 73 65 65 |9..T.STR R10,see|
000016c0 64 0d 0b 5e 16 82 20 52 37 2c 52 37 2c 52 31 30 |d..^.. R7,R7,R10|
000016d0 2c 52 4f 52 23 31 36 0d 0b 68 0f 4d 4f 56 20 52 |,ROR#16..h.MOV R|
000016e0 38 2c 23 32 35 36 0d 0b 72 10 53 55 42 20 52 38 |8,#256..r.SUB R8|
000016f0 2c 52 38 2c 23 31 0d 0b 7c 0e 80 20 52 37 2c 52 |,R8,#1..|.. R7,R|
00001700 37 2c 52 38 0d 0b 86 0e 4d 4f 56 20 50 43 2c 52 |7,R8....MOV PC,R|
00001710 31 34 0d 0b 90 14 2e 63 31 20 45 51 55 44 20 31 |14.....c1 EQUD 1|
00001720 36 36 34 35 32 35 0d 0b 9a 16 2e 63 32 20 45 51 |664525.....c2 EQ|
00001730 55 44 20 39 30 37 36 33 33 33 39 33 0d 0b a4 10 |UD 907633393....|
00001740 2e 73 65 65 64 20 45 51 55 44 20 91 0d 0b ae 0f |.seed EQUD .....|
00001750 2e 72 6e 64 25 45 51 55 44 20 30 0d 0b b8 05 5d |.rnd%EQUD 0....]|
00001760 0d 0b c2 05 ed 0d 0b cc 04 0d 0b d6 0c d6 67 72 |..............gr|
00001770 61 6e 69 74 65 0d 0b e0 0e c8 99 20 36 2c 31 31 |anite...... 6,11|
00001780 32 2c 31 0d 0b ea 0e c8 99 20 36 2c 31 31 33 2c |2,1...... 6,113,|
00001790 31 0d 0b f4 0c e6 20 30 20 c8 9c 20 30 0d 0b fe |1..... 0 .. 0...|
000017a0 1d c8 93 c8 90 20 31 32 38 30 2d 36 34 2a 34 2c |..... 1280-64*4,|
000017b0 30 2c 32 35 36 2c 31 30 32 33 0d 0c 08 0e c8 99 |0,256,1023......|
000017c0 20 36 2c 31 31 32 2c 32 0d 0c 12 0e c8 99 20 36 | 6,112,2...... 6|
000017d0 2c 31 31 33 2c 32 0d 0c 1c 0e d6 20 67 72 61 6e |,113,2..... gran|
000017e0 69 74 65 32 0d 0c 26 18 c8 93 c8 90 20 30 2c 31 |ite2..&..... 0,1|
000017f0 30 32 34 2c 31 32 37 39 2c 2d 31 32 0d 0c 30 05 |024,1279,-12..0.|
00001800 e1 0d 0c 3a 04 0d 0c 44 0a dd f2 63 6f 6c 73 0d |...:...D...cols.|
00001810 0c 4e 14 64 61 74 61 25 3d 63 6f 64 65 32 2b 31 |.N.data%=code2+1|
00001820 30 32 34 0d 0c 58 0c e3 49 25 3d 30 b8 31 35 0d |024..X..I%=0.15.|
00001830 0c 62 0d f3 64 61 74 61 25 3f 49 25 0d 0c 6c 05 |.b..data%?I%..l.|
00001840 ed 0d 0c 76 05 e1 0d 0c 80 3a dc 20 30 2c 30 2c |...v.....:. 0,0,|
00001850 31 2c 32 2c 20 38 2c 39 2c 31 30 2c 31 31 2c 20 |1,2, 8,9,10,11, |
00001860 31 36 34 2c 31 36 35 2c 31 36 36 2c 31 36 37 2c |164,165,166,167,|
00001870 20 32 31 36 2c 32 31 37 2c 32 31 38 2c 32 31 39 | 216,217,218,219|
00001880 0d 0c 8a 3c dc 20 30 2c 31 2c 32 2c 33 2c 20 34 |...<. 0,1,2,3, 4|
00001890 34 2c 34 35 2c 34 36 2c 34 37 2c 20 32 30 38 2c |4,45,46,47, 208,|
000018a0 32 30 39 2c 32 31 30 2c 32 31 31 2c 20 32 35 32 |209,210,211, 252|
000018b0 2c 32 35 33 2c 32 35 34 2c 32 35 35 0d 0c 94 04 |,253,254,255....|
000018c0 0d 0c 9e 0b dd f2 73 65 74 75 70 0d 0c b2 09 f2 |......setup.....|
000018d0 73 63 72 6e 0d 0c bc 15 de 20 63 6f 64 65 20 34 |scrn..... code 4|
000018e0 30 39 36 2b 38 31 39 32 30 0d 0c c6 05 e1 0d 0c |096+81920.......|
000018f0 d0 04 0d 0c da 09 dd f2 65 72 72 0d 0c e4 09 ee |........err.....|
00001900 20 85 20 87 0d 0c ee 90 e7 20 9f 3d 32 31 34 20 | . ...... .=214 |
00001910 f1 27 22 20 20 50 6c 65 61 73 65 20 63 72 65 61 |.'" Please crea|
00001920 74 65 20 61 20 52 61 6d 44 69 73 63 20 6f 66 20 |te a RamDisc of |
00001930 38 30 6b 20 61 6e 64 20 45 49 54 48 45 52 20 72 |80k and EITHER r|
00001940 75 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 53 65 |un one of the Se|
00001950 74 5f 58 58 58 20 70 72 6f 67 72 61 6d 73 2c 20 |t_XXX programs, |
00001960 4f 52 20 63 6f 70 79 20 74 68 65 20 50 4f 53 44 |OR copy the POSD|
00001970 41 54 41 20 66 69 6c 65 73 20 66 72 6f 6d 20 64 |ATA files from d|
00001980 69 73 63 20 6f 6e 74 6f 20 52 61 6d 44 69 73 63 |isc onto RamDisc|
00001990 2e 22 3a e0 0d 0c f8 05 e1 0d 0d 02 04 0d 0d 0c |.":.............|
000019a0 0a dd f2 73 63 72 6e 0d 0d 16 16 de 20 62 6c 6f |...scrn..... blo|
000019b0 63 6b 25 20 31 35 2c 62 32 25 20 31 35 0d 0d 20 |ck% 15,b2% 15.. |
000019c0 10 62 6c 6f 63 6b 25 21 30 3d 31 34 38 0d 0d 2a |.block%!0=148..*|
000019d0 0e 62 6c 6f 63 6b 25 21 34 3d 37 0d 0d 34 0e 62 |.block%!4=7..4.b|
000019e0 6c 6f 63 6b 25 21 38 3d 36 0d 0d 3e 10 62 6c 6f |lock%!8=6..>.blo|
000019f0 63 6b 25 21 31 32 3d 2d 31 0d 0d 48 27 c8 99 20 |ck%!12=-1..H'.. |
00001a00 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 |"OS_ReadVduVaria|
00001a10 62 6c 65 73 22 2c 62 6c 6f 63 6b 25 2c 62 32 25 |bles",block%,b2%|
00001a20 0d 0d 52 0f 73 69 7a 65 25 3d 62 32 25 21 34 0d |..R.size%=b2%!4.|
00001a30 0d 5c 10 62 6c 6f 63 6b 25 21 30 3d 31 34 38 0d |.\.block%!0=148.|
00001a40 0d 66 0e 62 6c 6f 63 6b 25 21 34 3d 37 0d 0d 70 |.f.block%!4=7..p|
00001a50 0e 62 6c 6f 63 6b 25 21 38 3d 36 0d 0d 7a 10 62 |.block%!8=6..z.b|
00001a60 6c 6f 63 6b 25 21 31 32 3d 2d 31 0d 0d 84 27 c8 |lock%!12=-1...'.|
00001a70 99 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 |. "OS_ReadVduVar|
00001a80 69 61 62 6c 65 73 22 2c 62 6c 6f 63 6b 25 2c 62 |iables",block%,b|
00001a90 32 25 0d 0d 8e 11 73 63 72 65 65 6e 25 3d 62 32 |2%....screen%=b2|
00001aa0 25 21 30 0d 0d 98 0f 73 69 7a 65 25 3d 62 32 25 |%!0....size%=b2%|
00001ab0 21 34 0d 0d a2 05 e1 0d ff |!4.......|
00001ab9 
.