| To HD install:
| 1. Copy !Diggers from disc1,2 and 3 to HD
| 2. Replace the contents of !Diggers.!Run with:
|  ADFBootFloppy F1011501

| Below file may be called 'English', 'French', 'German' or 'Italian'
Set DigLang$File     English

IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Diggers
Set Diggers$Dir     <Obey$Dir>
Set DigIntro$Dir    <Diggers$Dir>.Disk1
Set DigIntroRes$Dir <Diggers$Dir>.Disk1
Set DigOutro$Dir    <Diggers$Dir>.Disk1
Set DigOutroRes$Dir <Diggers$Dir>.Disk1

ScreenSize 128
WimpSlot -min 680k -max 680k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| VGA and SVGA monitor owners may need to change the line
| below from 50KHzMode to 100KHzMode
Load <Diggers$Dir>.50KHzMode 10000
| Fix bug in bespoke mode number selection
MEMA FFE8 E3A0000B E28F100C E59F2004 EF02001E EF000011 35C >101EC 50
GO FFE8
ECHO <22><13>
RMEnsure FastPtr 0.00 RMLoad <Diggers$Dir>.FastPtr

| Don't claim hardware vectors in !Intro
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA B5A0 EBFFFF7D E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA B5E8 EBFFFFCE E1A00000
| Fix EventV assumption that R3=IOC base
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA B6A4 E5C31014 E1A00000
| Prevent it blocking OS_Byte 19
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA B57C EF02001F E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA B5C8 EF020020 E1A00000
LOAD <DigIntro$Dir>.!Intro
IF ADFFS$CPUID>=&A10 THEN ADFCRC 8000 1267C 9B0ED9E3 !Intro
GO 8000

| Don't claim hardware vectors in !RunImage
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 21AA8 EBFFFF80 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 21AE4 EBFFFFD4 E1A00000
| Fix EventV assumption that R3=IOC base
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 21BB0 E5C31014 E1A00000
| Prevent it blocking OS_Byte 19
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 21A84 EF02001F E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 21AC4 EF020020 E1A00000
| Prevent IRQ's being disabled
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA FA58 EF000014 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA FB80 EF000013 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA FF00 EF000013 E1A00000
| Fix compiler bugs which jump to address-4
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 12704 0000FFFF E1A00000
| Don't claim hardware vectors in !Outro
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA AC84 EBFFFF7D E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA ACCC EBFFFFCE E1A00000
| Prevent it blocking OS_Byte 19
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA AC60 EF02001F E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA ACAC EF020020 E1A00000
| Fix EventV assumption that R3=IOC base
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA AD9C E5C31014 E1A00000
LOAD <Diggers$Dir>.!RunImage
IF ADFFS$CPUID>=&A10 THEN ADFCRC 8000 1630F 33E2822B !RunImage
GO 8000
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
UnSet Diggers$Dir
UnSet DigIntro$Dir     
UnSet DigIntroRes$Dir  
UnSet DigOutro$Dir     
UnSet DigOutroRes$Dir  