| To install to HD:
| 1. Copy !OhNoLemms to HD
| 2. Delete !OhNoLemms.!Boot
| 3. Replace the contents of !OhNoLemms.!Run with:
|  ADFBootFloppy F1026701
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::OhNoLemms.$.!OhNoLemms

RMAFree 200
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 12 80 ELSE ScreenSize 80
Echo <22><12>
RMEnsure QTMTracker 1.43 RMLoad ADFFS:trackers.QTMModule
RMEnsure MusicModule2 0.05 RMLoad ADFFS:trackers.MusMod2

Set Lem$Dir <Obey$Dir>
StoreCSD
Dir <Lem$Dir>
Set Lem$Speaker 2
WimpSlot -min 664K -max 664K
| Decrypt the loader so we can turn off the request for Lemmings
LOAD <Lem$Dir>.Loader
ADFCRC 8000 979C A823DB35 Loader
| Make first copy at A4000
MEMA 8030 E3A02929 >8074 EF000011
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 8000 ELSE GO 8000
| Make a duplicate at 10000 so we can decrypt
LOAD <Lem$Dir>.Loader 8000
MEMA 8030 E3A02801 >8074 EF000011
GO 8000
| Stage 1 decrypt
MEMA A400C E3A0B801 E28BB034 E28B1030 E3A00000 >A4064 EF000011
GO A400C
| Copy the result back to A408C
MEMA A400C E3A03A05 E28F1074 E2412925 E4920004 E4810004 E2533004 1AFFFFFB EF000011
GO A400C
| Stage 2 decrypt
MEMA 10060 E3A0B929 E28BB08C E28B1030 >100BC EF000011
GO 10060
| Copy the result back to 1008C
MEMA A4018 E4910004 E4820004
GO A400C
| Stage 3 decrypt
MEMA 100E4 E3A0B929 E28BB08C E28B1030 >10140 EF000011
GO 100E4
| Drop the request for the original Lemmings disk
MEMA A44B0 EA000049 >A400C EA00007E >A423C EA00000B
| Ignore code CRC check as we've just modified it
MEMA A4768 E1A00000
| Bug fix: STM with Rd in reglist and writeback
MEMA A4860 E92D5FFF >A48B0 E8BD5FFF
| Correct cursor plot code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 248B0 E4960004 E28F0054
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 248B4 E58F0078 E0466000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 248B8 E5960000 E3A00601
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 248BC E58F0138 E5806000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 24934 E8990007 EA036DB2
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 249FC E8890007 EA036D8D
IF ADFFS$CPUID>=&A10 THEN MEMA 100004 E51F600C E08FF006
IF ADFFS$CPUID>=&A10 THEN MEMA 100010 E8990006 EAFC9247 E8990004 EAFC9245 E8990007 EAFC9243 E8990003 EAFC9241 E8990001 EAFC923F E51F6040 E08FF006
IF ADFFS$CPUID>=&A10 THEN MEMA 100044 E8890006 EAFC926C E8890004 EAFC926A E8890007 EAFC9268 E8890003 EAFC9266 E8890001 EAFC9264

ADFClipScreen 40:27 0 16
ECHO <22><12>
GO A4000
ADFClipScreen
<Lem$Dir>.LrestMouse
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
RMKill MusicModule2
RMKill QTMTracker
FX 15 0
If Lem$Speaker = 1 Then *Speaker On
If Lem$Speaker = 0 Then *Speaker Off
Unset Lem$Dir
RestoreCSD