| To HD install:
| 1. Create a !Blaston directory on the HD
| 2. Copy the floppy image as !Blaston.F1064001
| 3. Create !Blaston.!Run with the following contents:
|    | Uncomment the next line for infinite strength
|    |Set infinite$strength Y
|    ADFBootFloppy F1064001
IF "<Obey$Dir>"<>"@" THEN IfThere <Obey$Dir>.F1064001 THEN ADFMount <Obey$Dir>.F1064001
HideCommandWindow
SetEval fix$up 0
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 256 ELSE ScreenSize 256
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 3.11

WimpSlot -min 736K -max 736K
ECHO <22><13>
FX 200,3
| Rewrite loader
MEMA 8000 E28F805C E3A01001 E8B8001C E3320000 1F040240 E3320000 1AFFFFF9
MEMA 801C E3A04020 E1A01004 EF060184 E2544001 1AFFFFFB E59F009C E3A01001
MEMA 8038 EF040183 E3A00008 E3A01000 E3A02000 E3A03000 E3A04000 EF040140
MEMA 8054 E3A00001 E3A01001 EF040185 EF000011 2000 78000 2968
MEMA 8070 4C00 60000 E3AC 13000 70000 1960 14C00 46100 6688
MEMA 8094 1B400 80000 14000 2F400 8F00 1A40 31000 A940 3C00
MEMA 80B8 9B400 18000 18000 B3400 94000 F800 0 2C404
GO 8000

| Prevent code elevation
MEMA 19C18 E1A00000 >19F2C E1A00000

| Prevent fixed sound buffer address
MEMA 2C460 E1A00000

| Correct ARM2 dependent pause loops
MEMA 8000 E92D4003 E1A016A0 EF020042 E0811000 EF020042 E1500001 9AFFFFFC E8BD8003
MEMA 1820C EBFFBF7B
MEMA 1AF8C EBFFB41B
MEMA 1B41C EBFFB2F7
MEMA 1B668 EBFFB264
MEMA 1B84C EBFFB1EB
MEMA 8020 E92D4003 EF020042 E2801032 E5D6A000 E21AA004 18BD8003 EF020042 E1500001 9AFFFFF9 E8BD4003 EA0044C8
MEMA 19358 EAFFBB30
MEMA 804C E92D4003 EF020042 E2801008 E5D7A000 E31A0001 18BD8003 EF020042 E1500001 9AFFFFF9 E8BD4003 EA00453E
MEMA 1955C EAFFBABA
MEMA 8078 E92D4003 EF020042 E1A01000 EF020042 E1500001 9AFFFFFC E2599080 E8BD4003 EA004D68
MEMA 1B63C EAFFB28D

| Bugfix: Voice uses BL with IRQ enabled
MEMA 2C46C 1A0001A0 >2CAF4 E92D000F E3A03000 E50F3704 >2CB40 E59F225C E3A00E11 E7820283 E2833001 E7820283 E2833001 E7820283 E2833001 E7820283 E8BD000F EAFFFE40

| Prevent CMOS / Module changes and direct 1772 FDC access
MEMA 19094 EA000071

| Cheats
IF "<infinite$strength>"<>"" THEN MEMA 1A690 E3A00063 E58C0068 >1A7CC E3A00063 E58C0068

IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT 1B514 ELSE ADFGO 1B514
FX 20
ADFPause 20
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet infinite$strength