| To install to HD:
| 1. Copy !Fire_Ice from disc 1 to HD
| 2. Copy !Fire_Ice from disc 2 to HD
| 3. Copy the disc 1 floppy image as !Fire_Ice.F1015401
| 3. Replace the contents of !Fire_Ice.!Run with:
|  ADFBootFloppy F1015401
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Fire_Ice.$.!Fire_Ice
Set Fire_Ice$Dir <Obey$Dir>
IfThere <Fire_Ice$Dir>.F1015401 THEN ADFMount <Fire_Ice$Dir>.F1015401 ELSE ADFReserveMemory 804
IfThere <Fire_Ice$Dir>.data.A.CASTLE THEN Set Fire_Ice2$Dir <Obey$Dir>
IfThere <Fire_Ice$Dir>.data.A.CASTLE THEN SetMacro Fire_Ice$Dir <Fire_Ice2$Dir>

ADFEmulateFDC 710
ADFHideHourglass On
Set JSflag 0
IF ADFFS$OSVersion<&50000 THEN RMEnsure Joystick 0.0 Set JSflag 1
IF JSflag>0 THEN RMLoad ADFFS:extras.JoyMod
ScreenSize 160
IF ADFFS$OSVersion>&37100 THEN ADFEmulateRISCOS 3.71
WimpSlot -min 560k -max 560k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Prevent code entering SVC
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3209C EF020016 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32150 EF000016 E1A00000
| Fix: Stop code moving around
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 320D4 EF02001C E1A00000
| Fix: Change branch into SWI dispatcher to OS_CallASWIR12
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32288 E58F0030 E1A0C000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32290 E28FC02C EF000071
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32294 E20EE3FF EA00000A
| Change SWI code to use OS_CallASWIR12
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32530 E38004EF E1A0C000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32534 E58FC018 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32540 E3A0F000 EF000071
| Bug fix: Read from unset variables
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1E310 E7FA0080 EA01D73A
IF ADFFS$CPUID>=&A10 THEN MEMA 94000 E33A0000 3A00000 AFE28C3 E7FA0080 EAFE28BF
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1DBE4 E59CB004 EA01D90A
IF ADFFS$CPUID>=&A10 THEN MEMA 94014 E59CB004 E33B0000 AFE2710 EAFE26F0
| Bug fix: R4 isn't restored before used
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 17074 E92D8000 E3500000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 17078 EAFFFFE4 E8BD1FFF
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1707C E1A00000 E92D8000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 17080 E3500000 EAFFFFE4
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 17084 E8BD1FFF E1A00000
| Bug fix: STMFD R13!,{PC}^
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA D830 E96D8000 E92D8000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA DBE4 E96D8000 E92D8000

<Fire_Ice$Dir>.Intro
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>&37100 THEN ADFEmulateRISCOS
UnSet Fire_Ice$Dir
UnSet Fire_Ice2$Dir
IF JSflag>0 THEN RMEnsure Joystick 0.0 Set JSflag 0
IF JSflag>0 THEN RMKill Joystick
Unset JSflag
ADFHideHourglass Off
ADFEmulateFDC
ADFReserveMemory 0