Set Obey$Dir ADFS::0.$.!Cataclysm

ADFReserveMemory 800
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160

IF ADFFS$CPUID>=&A10 THEN WimpSlot -min 994K -max 994K ELSE WimpSlot -min 760K -max 760K
ADFJoystickKeys J1 L=78 R=79 U=70 D=87 B1=71 B2=95
| Keys     Joystick
| Z                 Left
| X                 Right
| "                 Up
| /                 Down
| RETURN   B1       Drop
| SPACE    B2       Fire

| Fix pipelining in N_W_Water
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 804C E88000FF E1A00000

| Stop ArgsV being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA AC EF00001F E1A00000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 148 EF000020 E1A00000 PRIVATISE

| Stop BPutV being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA BC EF00001F E1A00000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 158 EF000020 E1A00000 PRIVATISE

| Stop GBPBV being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA CC EF00001F E1A00000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 168 EF000020 E1A00000 PRIVATISE

| Stop FindV being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA DC EF00001F E1A00000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 178 EF000020 E1A00000 PRIVATISE

| Stop CLIV being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA F0 EF00001F E1A00000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 188 EF000020 E1A00000 PRIVATISE

| Fix Final code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E3A000C8 E8FD8000 PRIVATISE

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 700 E3300000 EA000000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 708 13300002 E92D4000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 70C 13300003 E51FE010 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 710 13300004 E13E0000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 714 13300007 08BD8000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 718 13300008 E50F001C PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 724 0AFFFEA5 E1A00000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 740 092D8000 18BD8000 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 744 E1B0F00E EF020008 PRIVATISE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 748 E1A00000 E50FE04C PRIVATISE

IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Fix Page Zero access bug
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA E84C E5902084 EA03C5EB
IF ADFFS$CPUID>=&A10 THEN MEMA 100000 E5902084 E3320000 1AFC3A10 EAFC3D82

RMLoad <Obey$Dir>.Protector
RMKill Protector
StoreCSD
ADFS
DIR ADFS::0.$
IF ADFFS$CPUID>=&A10 THEN Load <Obey$Dir>.N_W_Water 8000 ELSE <Obey$Dir>.N_W_Water
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 8000
<Obey$Dir>.!RunImage
ADFJoystickKeys
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory
ADFReserveMemory 0
RestoreCSD