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

diff --git a/mim/development/mim/20c/mimoc20.load b/mim/development/mim/20c/mimoc20.load
new file mode 100644
index 0000000..7ec2a3d
--- /dev/null
+++ b/mim/development/mim/20c/mimoc20.load
@@ -0,0 +1,28 @@
+<BLOAT 100000 10000 100 1200 50>
+<USE "LIST-HACKS">
+<DEFINE CHANNEL-OP!- (CHAN TYPE "TUPLE" STUFF)
+	<COND (<==? .TYPE READ-BUFFER!->
+	       <READSTRING <1 .STUFF> .CHAN !<REST .STUFF>>)
+	      (<==? .TYPE WRITE-BUFFER!->
+	       <PRINTSTRING <1 .STUFF> .CHAN !<REST .STUFF>>)
+	      (<==? .TYPE ACCESS>
+	       <COND (<EMPTY? .STUFF> <17 .CHAN>)
+		     (ELSE <ACCESS .CHAN !.STUFF>)>)>>
+<FLOAD "<MIM.20C>FILE-INDEX.FBIN">
+<FLOAD "<MIM.20C>FILE.FBIN">
+<FLOAD "<MIM.20C>PART1.FBIN">
+<FLOAD "<MIM.20C>ACVAR.FBIN">
+<FLOAD "<MIM.20C>STRMAN.FBIN">
+<FLOAD "<MIM.20C>OTHGEN.FBIN">
+<FLOAD "<MIM.20C>JSYS.FBIN">
+<FLOAD "<MIM.20C>PEEP.FBIN">
+<FLOAD "<MIM.20C>NEWGC.FBIN">
+<FLOAD "<MIM.BOOT>BOOT.COMPIL">
+<FLOAD "<MIM.20C>ASK.NBIN">
+<SETG NO-AC-FUNNYNESS <>>
+<SETG DEATH-TRQ <>>
+<SETG PEEP-ENABLED T>
+<L-FLOAD "ENV">
+<FEATURES "COMPILER" ("MACHINE" "TOPS20") ("SUBSYSTEM" "MIMOC")
+	  ("ENVIRONMENT" "MDL") ("TARGET-MACHINE" "TOPS20")>
+<ACTIVATE-CHARS <STRING <ASCII 7>>>
\ No newline at end of file