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

Set Pon$Dir <Obey$Dir>
WimpSlot -min 600K -max 600K
LOAD <Pon$Dir>.PONCODE 61000
ADFCRC 61000 96FD8 44A1C83A PONCODE
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160
| Fix jump to SWI vector
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8B760 EB060240 EF060240
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8B7BC EF000016 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8B7E8 E92D0001 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8B80C EA000DAD EAFFFFD3

| Correct disc protection
MEMA 8000 00096D38 04F072E7 00096DA0 E3A00000 E8BD8000 000939F4 E3A00A61 E1A01000 E51F2024 E3A030A9 E0233002 E223347D
MEMA 8030 E51F4038 E4905004 E0255002 E0255003 E4946004 E0255006 E0255000 E4815004 E0833001 E2222072 E0822004 E51F505C
MEMA 8060 E1540005 E51F506C 01A04005 E1500005 1AFFFFEF E24F0070 E890000E E8830006 EA021EE2

IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Fix read from unset variable
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 64554 E898003E EA026EA9
IF ADFFS$CPUID>=&A10 THEN MEMA 100000 E898003E E3350000 0AFD916C EAFD9151

| Don't delete PonCode when run from harddisc
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 8FEAC EB001A7A E1A00000

ADFForceVSync 2
GO 8018
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
UnSet Pon$Dir
ADFForceVSync 0