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

Set Pon$Dir <Obey$Dir>
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160
ADFForceVSync 2
ADFEmulateFDC 1772

WimpSlot -min 600K -max 600K
LOAD <Pon$Dir>.!RunImage 8000
ADFCRC 8000 80AC 76DAC631 !RunImage
MEMA 80AC EF000011
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
GO 8000
ADFPause 100
LOAD <Pon$Dir>.PonCode 10000
ADFCRC 45D38 45DA0 104C27B5 PonCode
| Decrypt
MEMA 45D58 E59F4040 >45D84 E59F5018 >45D8C 059F400C E59F5008 >45D9C EF000011 96D38 96DA0
GO 45D38
| Don't jump to SWI vector
MEMA 8B760 EF060240 >8B768 E1A00000 >8B7BC E1A00000 >8B7E8 E1A00000 >8B804 E1A00000 >8B80C EAFFFFD3 >8BABC E1A00000
|MEMA 8FC44 E1A00000 | Bypass disc protection
| Bugfix: Disc protection
MEMA B 8000 0 4E 4E 4E 4E 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 80 FC F7 9F F8 F7 9F F8
MEMA B 821D 0 36 FA 0 >8423 0 C0 F7 0 >8629 0 C0 F7 0 >882F 0 C0 F7 0 >8A35 0 C0 F7 0 >8C3B 0 C0 F7 0 >8E41 0 C0 F7 0 >9047 0 C0 F7 0 >924D 0 C0 F7 0 >9453 0 C0 F7 0
GO 8FC10
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
UnSet Pon$Dir
ADFForceVSync 0
ADFEmulateFDC