Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars » StarInfo/Booker/!Welcome/Source
StarInfo/Booker/!Welcome/Source
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-03 B.adf » Regulars |
| Filename: | StarInfo/Booker/!Welcome/Source |
| Read OK: | ✔ |
| File size: | 0444 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM WelcomeScreen module base source code
20:
30ONERRORONERROROFF:ERROR0,REPORT$+STR$ERL:END
60DIM code% 500
70FOR N=code% TO code%+496 STEP4:!N=0:NEXT
80FOR pass=4 TO 6 STEP 2
90P%=0
100O%=code%
110[OPT pass
120:
130EQUD 0
140EQUD initcode
150EQUD finalise
160EQUD 0
170EQUD title
180EQUD help
190EQUD 0
200EQUD 0
210EQUD 0
220EQUD 0
230EQUD 0
240:
250.taskhandle
260EQUD 0
270:
280.title
290EQUS "WelcomeScreen"
300EQUB 0
310ALIGN
320:
330.help
340EQUS "WelcomeScreen"+CHR$9+"1.02 (12 Aug 1996) by Andrew Booker"
350EQUB 0
360ALIGN
370:
380.initcode
390stmfd r13!,{r7-r12,r14}
400adr r0,structure
410swi "XResourceFS_RegisterFiles"
420ldmfd r13!,{r7-r12,r15}^
430:
440.finalise
450stmfd r13!,{r7-r12,r14}
460adr r0,structure
470swi "XResourceFS_DeregisterFiles"
480ldmfd r13!,{r7-r12,r15}^
490:
500.structure
501]
502NEXT
503GOTO610
510EQUD end-structure
520EQUD Load
530EQUD Exec
540EQUD Size
550EQUD Attr
560EQUS "Resources.Desktop.Messages"
570ALIGN
580EQUD Size+4
581]
582OSCLI "Load Messages "+STR$~O%
583O%+=Size:P%+=Size
584[OPT pass
585ALIGN
586.end
587EQUD 0
590]
600NEXT
610SYS "OS_File",10,"WelcomeScr:ModuleBase",&FFA,,code%,O%
620END
+� WelcomeScreen module base source code
:
�:�0,�$+Þ:�
<� code% 500
F#� N=code% � code%+496 �4:!N=0:�
P� pass=4 � 6 � 2
ZP%=0
d O%=code%
n
[OPT pass
x:
�
EQUD 0
�EQUD initcode
�EQUD finalise
�
EQUD 0
�EQUD title
�
EQUD help
�
EQUD 0
�
EQUD 0
�
EQUD 0
�
EQUD 0
�
EQUD 0
�:
�.taskhandle
EQUD 0
:
.title
"EQUS "WelcomeScreen"
,
EQUB 0
6 ALIGN
@:
J .help
TAEQUS "WelcomeScreen"+�9+"1.02 (12 Aug 1996) by Andrew Booker"
^
EQUB 0
h ALIGN
r:
|
.initcode
�stmfd r13!,{r7-r12,r14}
�adr r0,structure
�#swi "XResourceFS_RegisterFiles"
� ldmfd r13!,{r7-r12,r15}^
�:
�
.finalise
�stmfd r13!,{r7-r12,r14}
�adr r0,structure
�%swi "XResourceFS_DeregisterFiles"
� ldmfd r13!,{r7-r12,r15}^
�:
�.structure
�]
��
� �DbB
�EQUD end-structure
EQUD Load
EQUD Exec
EQUD Size
&
EQUD Attr
0%EQUS "Resources.Desktop.Messages"
: ALIGN
DEQUD Size+4
E]
F� "Load Messages "+�~O%
GO%+=Size:P%+=Size
H
[OPT pass
I ALIGN
J.end
K
EQUD 0
N]
X�
b:ș "OS_File",10,"WelcomeScr:ModuleBase",&FFA,,code%,O%
l�
� 00000000 0d 00 0a 2b f4 20 57 65 6c 63 6f 6d 65 53 63 72 |...+. WelcomeScr|
00000010 65 65 6e 20 6d 6f 64 75 6c 65 20 62 61 73 65 20 |een module base |
00000020 73 6f 75 72 63 65 20 63 6f 64 65 0d 00 14 05 3a |source code....:|
00000030 0d 00 1e 14 ee 85 ee 85 87 3a 85 30 2c f6 24 2b |.........:.0,.$+|
00000040 c3 9e 3a e0 0d 00 3c 0f de 20 63 6f 64 65 25 20 |..:...<.. code% |
00000050 35 30 30 0d 00 46 23 e3 20 4e 3d 63 6f 64 65 25 |500..F#. N=code%|
00000060 20 b8 20 63 6f 64 65 25 2b 34 39 36 20 88 34 3a | . code%+496 .4:|
00000070 21 4e 3d 30 3a ed 0d 00 50 14 e3 20 70 61 73 73 |!N=0:...P.. pass|
00000080 3d 34 20 b8 20 36 20 88 20 32 0d 00 5a 08 50 25 |=4 . 6 . 2..Z.P%|
00000090 3d 30 0d 00 64 0c 4f 25 3d 63 6f 64 65 25 0d 00 |=0..d.O%=code%..|
000000a0 6e 0d 5b 4f 50 54 20 70 61 73 73 0d 00 78 05 3a |n.[OPT pass..x.:|
000000b0 0d 00 82 0a 45 51 55 44 20 30 0d 00 8c 11 45 51 |....EQUD 0....EQ|
000000c0 55 44 20 69 6e 69 74 63 6f 64 65 0d 00 96 11 45 |UD initcode....E|
000000d0 51 55 44 20 66 69 6e 61 6c 69 73 65 0d 00 a0 0a |QUD finalise....|
000000e0 45 51 55 44 20 30 0d 00 aa 0e 45 51 55 44 20 74 |EQUD 0....EQUD t|
000000f0 69 74 6c 65 0d 00 b4 0d 45 51 55 44 20 68 65 6c |itle....EQUD hel|
00000100 70 0d 00 be 0a 45 51 55 44 20 30 0d 00 c8 0a 45 |p....EQUD 0....E|
00000110 51 55 44 20 30 0d 00 d2 0a 45 51 55 44 20 30 0d |QUD 0....EQUD 0.|
00000120 00 dc 0a 45 51 55 44 20 30 0d 00 e6 0a 45 51 55 |...EQUD 0....EQU|
00000130 44 20 30 0d 00 f0 05 3a 0d 00 fa 0f 2e 74 61 73 |D 0....:.....tas|
00000140 6b 68 61 6e 64 6c 65 0d 01 04 0a 45 51 55 44 20 |khandle....EQUD |
00000150 30 0d 01 0e 05 3a 0d 01 18 0a 2e 74 69 74 6c 65 |0....:.....title|
00000160 0d 01 22 18 45 51 55 53 20 22 57 65 6c 63 6f 6d |..".EQUS "Welcom|
00000170 65 53 63 72 65 65 6e 22 0d 01 2c 0a 45 51 55 42 |eScreen"..,.EQUB|
00000180 20 30 0d 01 36 09 41 4c 49 47 4e 0d 01 40 05 3a | 0..6.ALIGN..@.:|
00000190 0d 01 4a 09 2e 68 65 6c 70 0d 01 54 41 45 51 55 |..J..help..TAEQU|
000001a0 53 20 22 57 65 6c 63 6f 6d 65 53 63 72 65 65 6e |S "WelcomeScreen|
000001b0 22 2b bd 39 2b 22 31 2e 30 32 20 28 31 32 20 41 |"+.9+"1.02 (12 A|
000001c0 75 67 20 31 39 39 36 29 20 62 79 20 41 6e 64 72 |ug 1996) by Andr|
000001d0 65 77 20 42 6f 6f 6b 65 72 22 0d 01 5e 0a 45 51 |ew Booker"..^.EQ|
000001e0 55 42 20 30 0d 01 68 09 41 4c 49 47 4e 0d 01 72 |UB 0..h.ALIGN..r|
000001f0 05 3a 0d 01 7c 0d 2e 69 6e 69 74 63 6f 64 65 0d |.:..|..initcode.|
00000200 01 86 1b 73 74 6d 66 64 20 72 31 33 21 2c 7b 72 |...stmfd r13!,{r|
00000210 37 2d 72 31 32 2c 72 31 34 7d 0d 01 90 14 61 64 |7-r12,r14}....ad|
00000220 72 20 72 30 2c 73 74 72 75 63 74 75 72 65 0d 01 |r r0,structure..|
00000230 9a 23 73 77 69 20 22 58 52 65 73 6f 75 72 63 65 |.#swi "XResource|
00000240 46 53 5f 52 65 67 69 73 74 65 72 46 69 6c 65 73 |FS_RegisterFiles|
00000250 22 0d 01 a4 1c 6c 64 6d 66 64 20 72 31 33 21 2c |"....ldmfd r13!,|
00000260 7b 72 37 2d 72 31 32 2c 72 31 35 7d 5e 0d 01 ae |{r7-r12,r15}^...|
00000270 05 3a 0d 01 b8 0d 2e 66 69 6e 61 6c 69 73 65 0d |.:.....finalise.|
00000280 01 c2 1b 73 74 6d 66 64 20 72 31 33 21 2c 7b 72 |...stmfd r13!,{r|
00000290 37 2d 72 31 32 2c 72 31 34 7d 0d 01 cc 14 61 64 |7-r12,r14}....ad|
000002a0 72 20 72 30 2c 73 74 72 75 63 74 75 72 65 0d 01 |r r0,structure..|
000002b0 d6 25 73 77 69 20 22 58 52 65 73 6f 75 72 63 65 |.%swi "XResource|
000002c0 46 53 5f 44 65 72 65 67 69 73 74 65 72 46 69 6c |FS_DeregisterFil|
000002d0 65 73 22 0d 01 e0 1c 6c 64 6d 66 64 20 72 31 33 |es"....ldmfd r13|
000002e0 21 2c 7b 72 37 2d 72 31 32 2c 72 31 35 7d 5e 0d |!,{r7-r12,r15}^.|
000002f0 01 ea 05 3a 0d 01 f4 0e 2e 73 74 72 75 63 74 75 |...:.....structu|
00000300 72 65 0d 01 f5 05 5d 0d 01 f6 05 ed 0d 01 f7 09 |re....].........|
00000310 e5 8d 44 62 42 0d 01 fe 16 45 51 55 44 20 65 6e |..DbB....EQUD en|
00000320 64 2d 73 74 72 75 63 74 75 72 65 0d 02 08 0d 45 |d-structure....E|
00000330 51 55 44 20 4c 6f 61 64 0d 02 12 0d 45 51 55 44 |QUD Load....EQUD|
00000340 20 45 78 65 63 0d 02 1c 0d 45 51 55 44 20 53 69 | Exec....EQUD Si|
00000350 7a 65 0d 02 26 0d 45 51 55 44 20 41 74 74 72 0d |ze..&.EQUD Attr.|
00000360 02 30 25 45 51 55 53 20 22 52 65 73 6f 75 72 63 |.0%EQUS "Resourc|
00000370 65 73 2e 44 65 73 6b 74 6f 70 2e 4d 65 73 73 61 |es.Desktop.Messa|
00000380 67 65 73 22 0d 02 3a 09 41 4c 49 47 4e 0d 02 44 |ges"..:.ALIGN..D|
00000390 0f 45 51 55 44 20 53 69 7a 65 2b 34 0d 02 45 05 |.EQUD Size+4..E.|
000003a0 5d 0d 02 46 1b ff 20 22 4c 6f 61 64 20 4d 65 73 |]..F.. "Load Mes|
000003b0 73 61 67 65 73 20 22 2b c3 7e 4f 25 0d 02 47 15 |sages "+.~O%..G.|
000003c0 4f 25 2b 3d 53 69 7a 65 3a 50 25 2b 3d 53 69 7a |O%+=Size:P%+=Siz|
000003d0 65 0d 02 48 0d 5b 4f 50 54 20 70 61 73 73 0d 02 |e..H.[OPT pass..|
000003e0 49 09 41 4c 49 47 4e 0d 02 4a 08 2e 65 6e 64 0d |I.ALIGN..J..end.|
000003f0 02 4b 0a 45 51 55 44 20 30 0d 02 4e 05 5d 0d 02 |.K.EQUD 0..N.]..|
00000400 58 05 ed 0d 02 62 3a c8 99 20 22 4f 53 5f 46 69 |X....b:.. "OS_Fi|
00000410 6c 65 22 2c 31 30 2c 22 57 65 6c 63 6f 6d 65 53 |le",10,"WelcomeS|
00000420 63 72 3a 4d 6f 64 75 6c 65 42 61 73 65 22 2c 26 |cr:ModuleBase",&|
00000430 46 46 41 2c 2c 63 6f 64 65 25 2c 4f 25 0d 02 6c |FFA,,code%,O%..l|
00000440 05 e0 0d ff |....|
00000444 
.