X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2F20c%2Fmimoc20.foo;fp=mim%2Fdevelopment%2Fmim%2F20c%2Fmimoc20.foo;h=ece71ff1713613ad13c3fa18a8155dafb46d87f8;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/20c/mimoc20.foo b/mim/development/mim/20c/mimoc20.foo
new file mode 100644
index 0000000..ece71ff
--- /dev/null
+++ b/mim/development/mim/20c/mimoc20.foo
@@ -0,0 +1,22 @@
+<DEFINE LOSE () <COND (<LOOKUP "CHAN" #OBLIST INITIAL!-> <ERROR>)>>
+<USE "LIST-HACKS" "CHANNEL-TYPE">
+<LOSE>
+<FLOAD "<MIM.20C>FILE-INDEX.MBIN">
+<LOSE><FLOAD "<MIM.20C>FILE.MBIN">
+<LOSE><FLOAD "<MIM.20C>PART1.MBIN">
+<LOSE><FLOAD "<MIM.20C>ACVAR.MBIN">
+<LOSE><FLOAD "<MIM.20C>STRMAN.MBIN">
+<LOSE><FLOAD "<MIM.20C>OTHGEN.MBIN">
+<LOSE><FLOAD "<MIM.20C>JSYS.MBIN">
+<LOSE><FLOAD "<MIM.20C>PEEP.MBIN">
+<LOSE><FLOAD "<MIM.20C>NEWGC.MBIN">
+<LOSE><FLOAD "<MIM.20C>MOVERS.MBIN">
+<LOSE><FLOAD "<MIM.BOOT>NBOOT.COMPIL">
+<LOSE><FLOAD "<MIM.20C>ASK.MUD">
+<LOSE><SETG NO-AC-FUNNYNESS <>>
+<SETG DEATH-TRQ <>>
+<SETG PEEP-ENABLED T>
+<FEATURES "COMPILER" ("MACHINE" "TOPS20") ("SUBSYSTEM" "MIMOC")
+	  ("ENVIRONMENT" "MIM") ("TARGET-MACHINE" "TOPS20")>
+<USE "PURIFY">
+<PURIFY-WORLD>