Home » Archimedes archive » Acorn User » AU 1997-08 A.adf » !IronLord/!Run

!IronLord/!Run

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-08 A.adf
Filename: !IronLord/!Run
Read OK:
File size: 0306 bytes
Load address: FFFFEB46
Exec address: 1A19293E
File contents
| Iron Lord, version 1.00 (4th November 1990)
| modified by Steve Turnbull and Gordon Key (May 1997)
Set IronLord$Dir <Obey$Dir>
WimpSlot 0 0
RMEnsure WaveSynth 1.00 Error Iron Lord requires the WaveSynth module
RMEnsure Percussion 1.00 Error Iron Lord requires the Percussion module
RMEnsure IronLordSupport 1.00 RMLoad <IronLord$Dir>.Support
RMEnsure IronVoice 1.00 RMLoad <IronLord$Dir>.Voices
RMEnsure IronEffect 1.00 RMLoad <IronLord$Dir>.Effects
|IronAllocate
| Fullscreen (C) G.J.Key (KeySoft) 1997
Set rpc rpc
RMENSURE UtilityModule 3.5 Set rpc not
if rpc = "rpc" then RUN <Obey$Dir>.!FullScn 
WimpSlot 144K 144K
Run <IronLord$Dir>.!RunImage
if rpc = "rpc" then RUN <Boot$ToBeLoaded>.Configure.!Run
Unset rpc
RMKill IronLordSupport
RMKill IronVoice
RMKill IronEffect
00000000  7c 20 49 72 6f 6e 20 4c  6f 72 64 2c 20 76 65 72  || Iron Lord, ver|
00000010  73 69 6f 6e 20 31 2e 30  30 20 28 34 74 68 20 4e  |sion 1.00 (4th N|
00000020  6f 76 65 6d 62 65 72 20  31 39 39 30 29 0a 7c 20  |ovember 1990).| |
00000030  6d 6f 64 69 66 69 65 64  20 62 79 20 53 74 65 76  |modified by Stev|
00000040  65 20 54 75 72 6e 62 75  6c 6c 20 61 6e 64 20 47  |e Turnbull and G|
00000050  6f 72 64 6f 6e 20 4b 65  79 20 28 4d 61 79 20 31  |ordon Key (May 1|
00000060  39 39 37 29 0a 53 65 74  20 49 72 6f 6e 4c 6f 72  |997).Set IronLor|
00000070  64 24 44 69 72 20 3c 4f  62 65 79 24 44 69 72 3e  |d$Dir <Obey$Dir>|
00000080  0a 57 69 6d 70 53 6c 6f  74 20 30 20 30 0a 52 4d  |.WimpSlot 0 0.RM|
00000090  45 6e 73 75 72 65 20 57  61 76 65 53 79 6e 74 68  |Ensure WaveSynth|
000000a0  20 31 2e 30 30 20 45 72  72 6f 72 20 49 72 6f 6e  | 1.00 Error Iron|
000000b0  20 4c 6f 72 64 20 72 65  71 75 69 72 65 73 20 74  | Lord requires t|
000000c0  68 65 20 57 61 76 65 53  79 6e 74 68 20 6d 6f 64  |he WaveSynth mod|
000000d0  75 6c 65 0a 52 4d 45 6e  73 75 72 65 20 50 65 72  |ule.RMEnsure Per|
000000e0  63 75 73 73 69 6f 6e 20  31 2e 30 30 20 45 72 72  |cussion 1.00 Err|
000000f0  6f 72 20 49 72 6f 6e 20  4c 6f 72 64 20 72 65 71  |or Iron Lord req|
00000100  75 69 72 65 73 20 74 68  65 20 50 65 72 63 75 73  |uires the Percus|
00000110  73 69 6f 6e 20 6d 6f 64  75 6c 65 0a 52 4d 45 6e  |sion module.RMEn|
00000120  73 75 72 65 20 49 72 6f  6e 4c 6f 72 64 53 75 70  |sure IronLordSup|
00000130  70 6f 72 74 20 31 2e 30  30 20 52 4d 4c 6f 61 64  |port 1.00 RMLoad|
00000140  20 3c 49 72 6f 6e 4c 6f  72 64 24 44 69 72 3e 2e  | <IronLord$Dir>.|
00000150  53 75 70 70 6f 72 74 0a  52 4d 45 6e 73 75 72 65  |Support.RMEnsure|
00000160  20 49 72 6f 6e 56 6f 69  63 65 20 31 2e 30 30 20  | IronVoice 1.00 |
00000170  52 4d 4c 6f 61 64 20 3c  49 72 6f 6e 4c 6f 72 64  |RMLoad <IronLord|
00000180  24 44 69 72 3e 2e 56 6f  69 63 65 73 0a 52 4d 45  |$Dir>.Voices.RME|
00000190  6e 73 75 72 65 20 49 72  6f 6e 45 66 66 65 63 74  |nsure IronEffect|
000001a0  20 31 2e 30 30 20 52 4d  4c 6f 61 64 20 3c 49 72  | 1.00 RMLoad <Ir|
000001b0  6f 6e 4c 6f 72 64 24 44  69 72 3e 2e 45 66 66 65  |onLord$Dir>.Effe|
000001c0  63 74 73 0a 7c 49 72 6f  6e 41 6c 6c 6f 63 61 74  |cts.|IronAllocat|
000001d0  65 0a 7c 20 46 75 6c 6c  73 63 72 65 65 6e 20 28  |e.| Fullscreen (|
000001e0  43 29 20 47 2e 4a 2e 4b  65 79 20 28 4b 65 79 53  |C) G.J.Key (KeyS|
000001f0  6f 66 74 29 20 31 39 39  37 0a 53 65 74 20 72 70  |oft) 1997.Set rp|
00000200  63 20 72 70 63 0a 52 4d  45 4e 53 55 52 45 20 55  |c rpc.RMENSURE U|
00000210  74 69 6c 69 74 79 4d 6f  64 75 6c 65 20 33 2e 35  |tilityModule 3.5|
00000220  20 53 65 74 20 72 70 63  20 6e 6f 74 0a 69 66 20  | Set rpc not.if |
00000230  72 70 63 20 3d 20 22 72  70 63 22 20 74 68 65 6e  |rpc = "rpc" then|
00000240  20 52 55 4e 20 3c 4f 62  65 79 24 44 69 72 3e 2e  | RUN <Obey$Dir>.|
00000250  21 46 75 6c 6c 53 63 6e  20 0a 57 69 6d 70 53 6c  |!FullScn .WimpSl|
00000260  6f 74 20 31 34 34 4b 20  31 34 34 4b 0a 52 75 6e  |ot 144K 144K.Run|
00000270  20 3c 49 72 6f 6e 4c 6f  72 64 24 44 69 72 3e 2e  | <IronLord$Dir>.|
00000280  21 52 75 6e 49 6d 61 67  65 0a 69 66 20 72 70 63  |!RunImage.if rpc|
00000290  20 3d 20 22 72 70 63 22  20 74 68 65 6e 20 52 55  | = "rpc" then RU|
000002a0  4e 20 3c 42 6f 6f 74 24  54 6f 42 65 4c 6f 61 64  |N <Boot$ToBeLoad|
000002b0  65 64 3e 2e 43 6f 6e 66  69 67 75 72 65 2e 21 52  |ed>.Configure.!R|
000002c0  75 6e 0a 55 6e 73 65 74  20 72 70 63 0a 52 4d 4b  |un.Unset rpc.RMK|
000002d0  69 6c 6c 20 49 72 6f 6e  4c 6f 72 64 53 75 70 70  |ill IronLordSupp|
000002e0  6f 72 74 0a 52 4d 4b 69  6c 6c 20 49 72 6f 6e 56  |ort.RMKill IronV|
000002f0  6f 69 63 65 0a 52 4d 4b  69 6c 6c 20 49 72 6f 6e  |oice.RMKill Iron|
00000300  45 66 66 65 63 74                                 |Effect|
00000306