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

Set Tactic$Dir <Obey$Dir>
WimpSlot -min 128K -max 128K
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 3.11
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT 0
ScreenSize 240

| Fix unimplemented instruction
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 8004 E7B0100F EA007FFD
IF ADFFS$OSVersion>=&35000 THEN MEMA 28000 E2800902 E5B0100C EAFF7FFE

Run <Tactic$Dir>.Prtct

| Fix reliance on CPU pipeline
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 700C 000000EA EA0083FF
IF ADFFS$OSVersion>=&35000 THEN MEMA 28010 E2800A07 E5B02014 EAFF7BFC

| Fix bug in protection
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 7008 E50F1004 E28F0010
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 700C E7B0200F E5902000
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 7024 1B0000EC EA00002B

| Fix hardcoded sound buffer
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 4BBC4 18BD8800 E1A00000

| Prevent code elevation
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 40DF4 EF000016 E1A00000

Load <Tactic$Dir>.!RunImage 7000
GO 7000

IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet Tactic$Dir