| To install to HD:
| 1. Run !Install from disc 1
| 2. Copy the disc 1 floppy image as !Dungeon.F1012901
| 3. Replace the contents of !Dungeon.!Run with:
|  ADFBootFloppy F1012901
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Dungeon
StoreCSD
Dir <Obey$Dir>
IfThere <Obey$Dir>.F1012901 THEN ADFMount <Obey$Dir>.F1012901
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 15 240 ELSE ScreenSize 240
IF ADFFS$OSVersion<&35000 THEN Echo <22><15>

Set Disc1$Dir <Obey$Dir>.
RMEnsure ExSound 4.02 RMLoad ADFFS:trackers.ExSound

WimpSlot -min 1344K -max 1344K
ADFReserveMemory 600
RMAFree 360
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Stop vectors being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1FC E3A00009 EA00001D janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 280 E3A00064 E8FD801F janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3BC 0A000038 E1A00000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3D4 E3A00009 E8FD8000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 748 EF00003D E1A00000 janitor
| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7D4 E3300000 EA000000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7DC 13300002 E92D4000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7E0 13300003 E51FE010 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7E4 13300004 E13E0000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7E8 13300007 08BD8000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7EC 13300008 E50F001C janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7F8 0AFFFF29 E1A00000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 814 092D8000 18BD8000 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 818 E1B0F00E EF020008 janitor
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 81C E1A00000 E50FE04C janitor
| Prevent Compload from overwriting the commandline
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA B0 E7C09008 E1A00000 Compload
| Fix reliance on pipelining in ReadMem
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8668 E88000FF E1A00000
| Fix reliance on pipelining in !Runimage
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 10608 E28F0000 E24F0004
<Obey$Dir>.ReadMem

RMLoad <Obey$Dir>.compload
Set Alias$RMLoad ADFDoNothing %%*0
IF ADFFS$CPUID>=&A10 THEN Load <Obey$Dir>.!Runimage ELSE <Obey$Dir>.!Runimage
IF ADFFS$CPUID>=&A10 THEN GO 8000
UnSet Alias$RMLoad
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
SetEval kill$module 1
RMEnsure ExSound 0.0 SetEval kill$module 0
IF kill$module THEN RMKill ExSound
UnSet kill$module
ADFReserveMemory 0
RestoreCSD