StoreCSD
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Warlocks_1.$.!Warlocks

IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160K
Set War$Dir <Obey$Dir>
Dir <War$Dir>

Wimpslot -min 512k -max 512k
| Don't mess with DA's
LOAD <War$Dir>.Startup 8000
ADFCRC 8000 812C 88EE1068 Startup
GO 8074
ADFPause 200
FX 200,3
FX 247,1
<War$Dir>.betty2
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0

| Fix page zero access bugs in Voice Generators
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 6BC18 E7D50821 EA0250F8
IF ADFFS$CPUID>=&A10 THEN MEMA 100000 E3350000 0AFDAF3C E7D50821 EAFDAF02

IF ADFFS$CPUID>=&A10 THEN JITMEMORYA F740 E7D30821 EA03C232
IF ADFFS$CPUID>=&A10 THEN MEMA 100010 E3330000 0AFC3E20 E7D30821 EAFC3DC8

Run <War$Dir>.!Runimage
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
FX 200,0
UnSet War$Dir
RestoreCSD