IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!RoboCod+
StoreCSD
DIR <Obey$Dir>

Set Robocod$Dir <Obey$Dir>
Set JamesPond$DataDir <Obey$Dir>

IF ADFFS$OSVersion>&37100 THEN ADFEmulateRISCOS 3.71
ScreenSize 160

WimpSlot -min 520k -max 520k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Prevent entry to SVC
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26A1C EF020016 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8B30 EF000016 E1A00000

| Prevent direct branching into FileCore and ADFS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8B58 E089F00A EF060240
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8BD4 E089F00A EF060244

| Prevent Hardware vectors being changed
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 8024 E890007F E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8320 E88A007F E1A00000

| Fix bug in code, which removes a Ticker that doesn't exist
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 646DC EF02003D E1A00000

| Fix bug in code, which results in the screen width being incorrect
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4F20C 02833004 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4F248 02833004 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4F264 02833004 E1A00000

Run !RunImage
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>&37100 THEN ADFEmulateRISCOS
UnSet Robocod$Dir
UnSet JamesPond$DataDir
RestoreCSD