| To install to HD:
| 1. Run the installer on Disc1
| 2. Copy the disc1 image as !BlackAngl.F1004301
| 3. Replace the contents of !BlackAngl.!Run with:
|  ADFBootFloppy F1004301

IfThere <Obey$Dir>.Twomegcode THEN ELSE Set Obey$Dir ADFS::BlackAngel.$.!BlackAngl
IfThere <Obey$Dir>.F1004301 THEN ADFMount <Obey$Dir>.F1004301

If "<Angel$Loaded>" <> "" THEN Error You can't run two copies of Black Angel at once
IconSprites <Obey$Dir>.!Sprites
Set Black$Dir <Obey$Dir>
Set BlackData$Dir <Obey$Dir>
Set Disc1$Dir <Obey$Dir>.
Set Disc2$Dir ADFS::AngelTwo.$
Set Disc3$Dir ADFS::0.$
Set Disc$Val 0
IfThere <Obey$Dir>.Twomegcode THEN Set Disc2$Dir <Obey$Dir>
IfThere <Obey$Dir>.Twomegcode THEN Set Disc3$Dir <Obey$Dir>
IfThere <Obey$Dir>.Twomegcode THEN Set Disc$Val 1
| Bugfix: Doesn't check for >1MB correctly
LOAD <Obey$Dir>.!testmem 10000
MEMA 10000 E3A0D801 >10040 E3520932 >10064 EF000011 >10078 EF000011 >102B8 E8BD8003 >10360 EF000011
GO 10000
If Black$Size = 1 THEN WimpSlot -min 576K -max 576K ELSE WimpSlot -min 1024K -max 1024K
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
RMLoad <Black$Dir>.TickTock
| Prevent vectors being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1FC E3A00009 E8FD801F JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 38C 0A000029 E1A00000 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3A4 E3A00009 E8FD8000 JTKirk

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 71C E3300000 EA000000 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 724 13300002 E92D4000 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 728 13300003 E51FE010 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 72C 13300004 E13E0000 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 730 13300007 08BD8000 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 734 13300008 E50F001C JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 740 0AFFFF3C E1A00000 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 75C 092D8000 18BD8000 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 760 E1B0F00E EF020008 JTKirk
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 764 E1A00000 E50FE04C JTKirk

ScreenSize 160
BASIC -quit <Black$Dir>.!runimage %*0
FX 225,1
FX 21,0
FX 138,0,128
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
UnSet Black$Dir
UnSet BlackData$Dir
UnSet Disc1$Dir
UnSet Disc2$Dir
UnSet Black$OK
UnSet Black$Size
UnSet Angel$Loaded
UnSet Disc$Val