Home » Archimedes archive » Acorn Computing » 1993 09 Mega Disk.adf » 93_09 » Imagery/!Install/LoadUp
Imagery/!Install/LoadUp
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 Computing » 1993 09 Mega Disk.adf » 93_09 |
| Filename: | Imagery/!Install/LoadUp |
| Read OK: | ✔ |
| File size: | 017B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM ><Imagery$Dir>.LoadUp
20F%=OPENIN("<Imagery$Dir>.Load"):IF F%=0 THEN END ELSE LEX%=EXT#F%:CLOSE#F%
30IF (LEX% MOD 4)<>0 THEN LEX%=LEX%+(4-(LEX% MOD 4))
40F%=OPENIN("<Imagery$Dir>.!CodeImage"):IF F%=0 THEN END ELSE REX%=EXT#F%:CLOSE#F%
50TEX%=LEX%+REX%+32
60DIM DAT% TEX%
70OSCLI("LOAD <Imagery$Dir>.Load "+STR$~DAT%)
80OSCLI("LOAD <Imagery$Dir>.!CodeImage "+STR$~(DAT%+LEX%))
90A%=DAT%+LEX%:B%=DAT%+LEX%+REX%:CALL DAT%
100*Imagery
� ><Imagery$Dir>.LoadUp
:F%=�("<Imagery$Dir>.Load"):� F%=0 � � � LEX%=�#F%:�#F%
.� (LEX% � 4)<>0 � LEX%=LEX%+(4-(LEX% � 4))
(@F%=�("<Imagery$Dir>.!CodeImage"):� F%=0 � � � REX%=�#F%:�#F%
2TEX%=LEX%+REX%+32
<� DAT% TEX%
F(�("LOAD <Imagery$Dir>.Load "+�~DAT%)
P5�("LOAD <Imagery$Dir>.!CodeImage "+�~(DAT%+LEX%))
Z)A%=DAT%+LEX%:B%=DAT%+LEX%+REX%:� DAT%
d *Imagery
� 00000000 0d 00 0a 1b f4 20 3e 3c 49 6d 61 67 65 72 79 24 |..... ><Imagery$|
00000010 44 69 72 3e 2e 4c 6f 61 64 55 70 0d 00 14 3a 46 |Dir>.LoadUp...:F|
00000020 25 3d 8e 28 22 3c 49 6d 61 67 65 72 79 24 44 69 |%=.("<Imagery$Di|
00000030 72 3e 2e 4c 6f 61 64 22 29 3a e7 20 46 25 3d 30 |r>.Load"):. F%=0|
00000040 20 8c 20 e0 20 8b 20 4c 45 58 25 3d a2 23 46 25 | . . . LEX%=.#F%|
00000050 3a d9 23 46 25 0d 00 1e 2e e7 20 28 4c 45 58 25 |:.#F%..... (LEX%|
00000060 20 83 20 34 29 3c 3e 30 20 8c 20 4c 45 58 25 3d | . 4)<>0 . LEX%=|
00000070 4c 45 58 25 2b 28 34 2d 28 4c 45 58 25 20 83 20 |LEX%+(4-(LEX% . |
00000080 34 29 29 0d 00 28 40 46 25 3d 8e 28 22 3c 49 6d |4))..(@F%=.("<Im|
00000090 61 67 65 72 79 24 44 69 72 3e 2e 21 43 6f 64 65 |agery$Dir>.!Code|
000000a0 49 6d 61 67 65 22 29 3a e7 20 46 25 3d 30 20 8c |Image"):. F%=0 .|
000000b0 20 e0 20 8b 20 52 45 58 25 3d a2 23 46 25 3a d9 | . . REX%=.#F%:.|
000000c0 23 46 25 0d 00 32 15 54 45 58 25 3d 4c 45 58 25 |#F%..2.TEX%=LEX%|
000000d0 2b 52 45 58 25 2b 33 32 0d 00 3c 0f de 20 44 41 |+REX%+32..<.. DA|
000000e0 54 25 20 54 45 58 25 0d 00 46 28 ff 28 22 4c 4f |T% TEX%..F(.("LO|
000000f0 41 44 20 3c 49 6d 61 67 65 72 79 24 44 69 72 3e |AD <Imagery$Dir>|
00000100 2e 4c 6f 61 64 20 22 2b c3 7e 44 41 54 25 29 0d |.Load "+.~DAT%).|
00000110 00 50 35 ff 28 22 4c 4f 41 44 20 3c 49 6d 61 67 |.P5.("LOAD <Imag|
00000120 65 72 79 24 44 69 72 3e 2e 21 43 6f 64 65 49 6d |ery$Dir>.!CodeIm|
00000130 61 67 65 20 22 2b c3 7e 28 44 41 54 25 2b 4c 45 |age "+.~(DAT%+LE|
00000140 58 25 29 29 0d 00 5a 29 41 25 3d 44 41 54 25 2b |X%))..Z)A%=DAT%+|
00000150 4c 45 58 25 3a 42 25 3d 44 41 54 25 2b 4c 45 58 |LEX%:B%=DAT%+LEX|
00000160 25 2b 52 45 58 25 3a d6 20 44 41 54 25 0d 00 64 |%+REX%:. DAT%..d|
00000170 0c 2a 49 6d 61 67 65 72 79 0d ff |.*Imagery..|
0000017b 
.