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

IF ADFFS$OSVersion>=&35000 THEN WimpSlot -min 1028K -max 1028K ELSE WimpSlot -min 736K -max 736K
LOAD <Obey$Dir>.!RunImage 8F10
ADFCRC 8F10 9580 657E7987 !RunImage

IF ADFFS$CPUID>=&A10 THEN ADFEmulateRISCOS 3.11
HideCommandWindow
Set BlastOn$Dir <Obey$Dir>
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 160 ELSE ScreenSize 160
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
ECHO <22><13><21>
RMEnsure BlastOnAdaptation 1.00 RMLoad <BlastOn$Dir>.BlastAdapt

| Prevent code elevation
MEMA 9308 EF020011
GO 932C
MEMA 9044 "                "  B >9472 20

IF ADFFS$OSVersion>=&35000 THEN SetEval fix$up 1 ELSE SetEval fix$up 0
IF fix$up THEN JITMEMORYA 19C18 EF000016 E1A00000
IF fix$up THEN JITMEMORYA 19F2C E33FF000 E1A00000

| Prevent fixed sound buffer address
IF fix$up THEN JITMEMORYA 2C460 18BD8800 E1A00000

| Correct ARM2 dependent pause loops
IF fix$up THEN JITMEMORYA 1820C 1AFFFFFD EB039F7B
IF fix$up THEN JITMEMORYA 1AF8C 1AFFFFFD EB03941B
IF fix$up THEN JITMEMORYA 1B41C 1AFFFFFD EB0392F7
IF fix$up THEN JITMEMORYA 1B668 1AFFFFFD EB039264
IF fix$up THEN JITMEMORYA 1B84C 1AFFFFFD EB0391EB
IF fix$up THEN MEMA 100000 E92D4003 E1A016A0 EF020042 E0811000 EF020042 E1500001 9AFFFFFC E8BD8003

IF fix$up THEN JITMEMORYA 19358 E3A09702 EA039B30
IF fix$up THEN MEMA 100020 E92D4003 EF020042 E2801032 E5D6A000 E21AA004 18BD8003 EF020042 E1500001 9AFFFFF9 E8BD4003 EAFC64C8

IF fix$up THEN JITMEMORYA 19384 E92D4000 E92D4003
IF fix$up THEN JITMEMORYA 19388 E3A0A064 E3A00064
IF fix$up THEN JITMEMORYA 1938C EBFFFFF9 EB039B1B
IF fix$up THEN JITMEMORYA 1939C E8BD8000 E8BD8003

IF fix$up THEN JITMEMORYA 1955C E3A0A902 EA029ABB
IF fix$up THEN MEMA 100050 E92D4003 EF020042 E2801008 E5D7A000 E31A0001 18BD8003 EF020042 E1500001 9AFFFFF9 E8BD4003 EAFC653D

IF fix$up THEN JITMEMORYA 1B63C E2599001 EA03928F
IF fix$up THEN MEMA 100080 E92D4003 EF020042 E1A01000 EF020042 E1500001 9AFFFFFC E2599080 E8BD4003 EAFC6D66

| Bugfix: Voice uses R14 
IF fix$up THEN JITMEMORYA 2C46C 1B0001A0 1A034F0C
IF fix$up THEN MEMA 1000A4 E92D4007 E59F0004 E58D000C EAFCB290 2C470
UnSet fix$up
KEY 0 20FOR a%=1TO32:SYS&60184,,a%:NEXT:c2=&10000|M730QUIT|MRUN|F|M
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load @00008F10,000097B8
GO 10000
SetEval kill$mod 1
RMEnsure BlastOnAdaptation 0.0 SetEval kill$mod 0
IF kill$mod THEN RMKill BlastOnAdaptation
UnSet kill$mod
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
IF ADFFS$CPUID>=&A10 THEN ADFEmulateRISCOS
UnSet BlastOn$Dir