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

FX 229 1
Set Arcturus$Dir <Obey$Dir>
IconSprites <Arcturus$Dir>.!Sprites

ScreenSize 192
WimpSlot -min 1344K -max 1344K
RMEnsure CoconizerPlayer 2.00 RMLoad ADFFS:trackers.Coconizer
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Prevent code elevation in IntroCode
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 2BC78 EF020016 E1A00000

<Arcturus$Dir>.IntroCode
RMLoad <Arcturus$Dir>.Arcturus
SetEval kill$module 1
RMEnsure Arcturus 0.0 SetEval kill$module 0
SetEval fix$up 0
IF ADFFS$CPUID>=&A10 AND kill$module THEN SetEval fix$up 1

| Prevent code elevation in GameCode
IF fix$up THEN JITMEMORYA D1F64 EF020016 E1A00000

| Correct Joystick code
IF fix$up THEN JITMEMORYA 8B7D0 E20010FF E1A01C00
IF fix$up THEN JITMEMORYA 8B7D4 E3510080 E3510202
IF fix$up THEN JITMEMORYA 8B7D8 C2611080 A3855001
IF fix$up THEN JITMEMORYA 8B7DC E3510020 E3710202
IF fix$up THEN JITMEMORYA 8B7E0 A3855001 D3855002
IF fix$up THEN JITMEMORYA 8B7E4 E3710020 E1A01800
IF fix$up THEN JITMEMORYA 8B7E8 D3855002 E3510202
IF fix$up THEN JITMEMORYA 8B7EC E2001CFF A3855008
IF fix$up THEN JITMEMORYA 8B7F0 E1A01421 E3710202
IF fix$up THEN JITMEMORYA 8B7F4 E3510080 D3855004
IF fix$up THEN JITMEMORYA 8B7F8 C2611080 EA000003
IF fix$up THEN JITMEMORYA 8B834 E20010FF E1A01C00
IF fix$up THEN JITMEMORYA 8B838 E3510080 E3510202
IF fix$up THEN JITMEMORYA 8B83C C2611080 A3855001
IF fix$up THEN JITMEMORYA 8B840 E3510020 E3710202
IF fix$up THEN JITMEMORYA 8B844 A3855001 D3855002
IF fix$up THEN JITMEMORYA 8B848 E3710020 E1A01800
IF fix$up THEN JITMEMORYA 8B84C D3855002 E3510202
IF fix$up THEN JITMEMORYA 8B850 E2001CFF A3855008
IF fix$up THEN JITMEMORYA 8B854 E1A01421 E3710202
IF fix$up THEN JITMEMORYA 8B858 E3510080 D3855004
IF fix$up THEN JITMEMORYA 8B85C C2611080 EA000003
IF fix$up THEN JITMEMORYA 8B92C E20010FF E1A01C00
IF fix$up THEN JITMEMORYA 8B930 E3510080 E3510202
IF fix$up THEN JITMEMORYA 8B934 C2611080 A3855001
IF fix$up THEN JITMEMORYA 8B938 E3510020 E3710202
IF fix$up THEN JITMEMORYA 8B93C A3855001 D3855002
IF fix$up THEN JITMEMORYA 8B940 E3710020 E1A01800
IF fix$up THEN JITMEMORYA 8B944 D3855002 E3510202
IF fix$up THEN JITMEMORYA 8B948 E2001CFF A3855008
IF fix$up THEN JITMEMORYA 8B94C E1A01421 E3710202
IF fix$up THEN JITMEMORYA 8B950 E3510080 D3855004
IF fix$up THEN JITMEMORYA 8B954 C2611080 EA000003
IF fix$up THEN JITMEMORYA 8B980 E20010FF E1A01C00
IF fix$up THEN JITMEMORYA 8B984 E3510080 E3510202
IF fix$up THEN JITMEMORYA 8B988 C2611080 A3855001
IF fix$up THEN JITMEMORYA 8B98C E3510020 E3710202
IF fix$up THEN JITMEMORYA 8B990 A3855001 D3855002
IF fix$up THEN JITMEMORYA 8B994 E3710020 E1A01800
IF fix$up THEN JITMEMORYA 8B998 D3855002 E3510202
IF fix$up THEN JITMEMORYA 8B99C E2001CFF A3855008
IF fix$up THEN JITMEMORYA 8B9A0 E1A01421 E3710202
IF fix$up THEN JITMEMORYA 8B9A4 E3510080 D3855004
IF fix$up THEN JITMEMORYA 8B9A8 C2611080 EA000003

| Bugfix: Page Zero access @ 931C4 / 9322C
IF fix$up THEN JITMEMORYA 931C4 E8970600 E1A00000
IF fix$up THEN JITMEMORYA 9322C E8970600 E1A00000

| Bugfix: Doesn't exit correctly, causing a Page Zero access
IF fix$up THEN JITMEMORYA 89D08 E8BD8000 EF000011
UnSet fix$up

IF kill$module=1 AND ADFFS$JIT=0 THEN <Arcturus$Dir>.GameCode
FX 229 0
Set kill$module 1
RMEnsure Arcturus 0.0 Set kill$module 0
IF kill$module=1 THEN RMKill Arcturus
UnSet kill$module
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
RMKill CoconizerPlayer
UnSet Arcturus$Dir