| To install to hard disc:
| 1. Copy !EmpSocr94 to HD
| 2. Rename !EmpSocr94.!Run to !EmpSocr94.!RunO
| 3. Copy this file as !EmpSocr94.!Run

IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Graftgold.$.!EmpSocr94
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160

WimpSlot -min 1120k -max 1120k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0

| Fix SVC stack address assumption
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 32128 E3A0A601 E24DAA03
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3212C E24AA001 EA000001

| Fix incorrect stack checks
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 23260 E594A008 EB077366
IF ADFFS$CPUID>=&A10 THEN MEMA 200000 E59FA004 E59FB004 E58BA000 E1A0F00E 213DC

| Fix bug in SpriteOp code in intro
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8928 EF00002E E28F1060
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 892C E3A00070 EF00002E
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8930 E3A01001 E3A00070
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8934 EF000006 E3A01001
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8938 EF00010C EF000006
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 893C E3A00070 EF00010C

| Move stack somewhere sensible
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA AB3C E28FDB01 E3A0D812

IfThere <Obey$Dir>.!RunO THEN LOAD <Obey$Dir>.!RunO ELSE LOAD <Obey$Dir>.!Run
| Set the Environment and remove the Manual protection check
MEMA 86C4 EA045E0D >11FF00 E3A00010 E28F1040 E3A03001 EF020008 E59F002C E3A01902 E5810004 EAFBA037 E59F1020 E3A0261A E5812000 E1A0F00E EF020010 E1A01002 E28F000C EF020048
MEMA 11FF40 EAFBA02E EB045FC5 0001836C 65624F3C 69442479 212E3E72 496E7552 6567616D 0

| Prevent it overwriting the * command in Kernel space
IF ADFFS$CPUID>=&A10 THEN MEMA 8064 E1A00000
ADFClipScreen 4:3
GO 11FF30
ADFClipScreen
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory