IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!X-Fire

StoreCSD
ADFS
Set X-Fire$Dir <obey$dir>
RMAFree 100K
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory 13 248 ELSE ScreenSize 248
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 3.11
Run <Obey$Dir>.font

WimpSlot -min 392K -max 392K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
ECHO <22><141>

SetEval fix$up 0
IF ADFFS$CPUID>=&A10 THEN SetEval fix$up 1
| Prevent claims in X_Bee
IF fix$up THEN JITMEMORYA  9C E3A00009 E8FD801F X_Bee
IF fix$up THEN JITMEMORYA 124 0A000030 E1A00000 X_Bee
IF fix$up THEN JITMEMORYA 138 EF000020 EF020020 X_Bee
IF fix$up THEN JITMEMORYA 13C E3A00009 EA000016 X_Bee

| Fix FileV vector code
IF fix$up THEN JITMEMORYA 4CC E3300000 EA000000 X_Bee
IF fix$up THEN JITMEMORYA 4D4 13300002 E92D4000 X_Bee
IF fix$up THEN JITMEMORYA 4D8 13300003 E51FE010 X_Bee
IF fix$up THEN JITMEMORYA 4DC 13300004 E13E0000 X_Bee
IF fix$up THEN JITMEMORYA 4E0 13300007 08BD8000 X_Bee
IF fix$up THEN JITMEMORYA 4E4 13300008 E50F001C X_Bee
IF fix$up THEN JITMEMORYA 4F0 0AFFFF3D E1A00000 X_Bee
IF fix$up THEN JITMEMORYA 50C 092D8000 18BD8000 X_Bee
IF fix$up THEN JITMEMORYA 510 E1B0F00E EF020008 X_Bee
IF fix$up THEN JITMEMORYA 514 E1A00000 E50FE04C X_Bee

| Fix Page Zero access bug in Sound_InstallVoice code
IF fix$up THEN JITMEMORYA 11220 E3A00083 E89D0003
IF fix$up THEN JITMEMORYA 11224 E2800C01 EF060183
IF fix$up THEN JITMEMORYA 11228 E2800701 E3300000
IF fix$up THEN JITMEMORYA 1122C EB0013F9 03A00902
IF fix$up THEN JITMEMORYA 11230 E59D0000 E58D0000

| Stop Func:os_swix from using the stack for SWI's
IF fix$up THEN JITMEMORYA P 1625C E28F4010 E58F000C
IF fix$up THEN JITMEMORYA P 16260 E89403E0 E1A00000
IF fix$up THEN JITMEMORYA P 16264 E92D03E1 E1A00000
IF fix$up THEN JITMEMORYA P 16280 E28DD010 E8FD83F0

| Turn off buggy Environment handlers
IF fix$up THEN JITMEMORYA P 4EDC4 03A00000 0A00000F
IF fix$up THEN JITMEMORYA P 5CF64 03A00000 0A00000F
IF fix$up THEN JITMEMORYA P 5EF64 03A00000 0A00000F
IF fix$up THEN JITMEMORYA P 39174 03A00000 0A00000F
IF fix$up THEN JITMEMORYA P 31E04 03A00000 0A00000F
IF fix$up THEN JITMEMORYA P 21474 EF020040 E1B0F00E
IF fix$up THEN JITMEMORYA P 2151C EF020040 E1B0F00E
IF fix$up THEN JITMEMORYA P 21C54 0F020040 E1A00000
IF fix$up THEN JITMEMORYA P 21C64 0F020040 E1A00000
IF fix$up THEN JITMEMORYA P 21C74 0F020040 E1A00000
IF fix$up THEN JITMEMORYA P 21EA0 EF020040 E1A00000
UnSet fix$up

Load <Obey$Dir>.!RunImage 8000
<Obey$Dir>.X_Bow
GO 8000
RMEnsure ShakeCan 0.0 Set XFire$ShakeCan 1
RMEnsure spray    0.0 Set XFire$spray 1
IF "<XFire$ShakeCan>"="" THEN RMKill ShakeCan
IF "<XFire$spray>"="" THEN RMKill spray
UnSet XFire$ShakeCan
UnSet XFire$spray
ChannelVoice 1 1
FX 25 0
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet X-Fire$Dir
RestoreCSD