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

diff --git a/mim/development/mim/mimc/mimc.mload b/mim/development/mim/mimc/mimc.mload
new file mode 100644
index 0000000..300fb6a
--- /dev/null
+++ b/mim/development/mim/mimc/mimc.mload
@@ -0,0 +1,146 @@
+
+<BLOCK (<ROOT>)>
+
+<COND (<NOT <GASSIGNED? ITUPLE>>  <SETG ITUPLE ITUPLE>)>
+<COND (<NOT <GASSIGNED? TUPLE>> <SETG TUPLE TUPLE>)>
+
+STACK
+
+MULTI-SET MULTI
+
+<COND (<NOT <GASSIGNED? MULTI-SET> > <FLOAD "MSETC.MSUBR">)>
+
+FGETBITS
+
+FPUTBITS
+
+<SETG MIM T>
+
+<ENDBLOCK>
+
+<SET REDEFINE T>
+
+<BLOCK (<ROOT>)>
+
+UNSPECIAL
+
+ELSE
+
+CALL
+
+ALT-DECL
+
+T$UNBOUND
+
+<ENDBLOCK>
+
+<FLOAD "ROOT-STUFF.MUD">
+
+<FLOAD "PS:<MIMLIB>CBITS">
+
+<MAPF <>
+      <FUNCTION (X) <PACKAGE .X> <ENDPACKAGE>> 
+ 		   '("ISTRUC" "COMSUB" "BITTST" "CBACK" "CONFOR"
+		    "CPRINT" "INFCMP" "CASE"
+		    "SPCGEN")>
+
+
+<SETG GROUPS <MAPF ,LIST
+		   <FUNCTION (NM "AUX" (CHN <>)
+				       TT)
+			<USE .NM>
+			<DROP .NM>>
+ 
+		   <SETG PCKS '("COMPDEC" "CDRIVE" "PASS1"  "SYMANA" "CARANA"
+			        "STRANA" "NOTANA" "MAPANA" "CODGEN"
+			        "CARGEN" "ADVMESS" "NOTGEN" "NEWREP" "STRGEN"
+				"MMQGEN" "LNQGEN" "ALLR" "BUILDL" "MAPGEN"
+				"MIMGEN" "COMFIL" "SUBRTY" "BITSGEN")>>>
+
+<SET READ-TABLE ,READ-TABLE>
+
+<BLOCK (<ROOT>)>
+
+DBG UDBG PD UPD C R
+<SETG CALL `CALL>
+<ENDBLOCK>
+
+<DEFINE DBG () <USE-TOTAL !,PCKS>>
+
+<DEFINE UDBG () <DROP !,PCKS>>
+<USE "FINDATOM">
+<USE "CDRIVE">
+<USE "COMPDEC">
+<USE "COMFIL">
+
+<DEFINE R (X "OPTIONAL" CH "AUX" (Y <COMPILE .X>) (NO-BQ <>))
+	#DECL ((NO-BQ) <SPECIAL ANY>)
+	<COND (<NOT <ASSIGNED? CH>>
+	       <COND (,DF-O
+		      <SET CH ,OUTCHAN>)
+		     (ELSE
+		      <SET CH <OPEN "PRINT" <STRING <SPNAME .X> ".MIMA">>>)>)
+	      (<TYPE? .CH STRING>
+	       <SET CH <OPEN "PRINT" .CH>>)
+	      (<NOT <TYPE? .CH CHANNEL>>
+	       <SET CH ,OUTCHAN>)>
+	<COND (.CH
+	       <COND (<N==? .CH ,OUTCHAN> <SET NO-BQ T>)>
+	       <MAPF <>
+		     <FUNCTION (Z)
+			  <COND (<TYPE? .Z ATOM> <PRIN1 .Z .CH>)
+				(ELSE
+				 <PRINC "	" .CH>
+				 <PRIN1 .Z .CH>)>
+			  <CRLF .CH>>
+		     .Y>
+	       <COND (<N==? .CH ,OUTCHAN> <SET NO-BQ <>><CLOSE .CH>)>
+	       T)
+	      (ELSE .CH)>>
+
+
+
+<DEFINE C ("OPTIONAL" (REST-OFF 0))
+	<MAPF <>
+	      <FUNCTION (I)
+		   <COND (<TYPE? .I ATOM> <PRIN1 .I>)
+			 (ELSE
+			  <PRINC "	">
+			  <PRIN1 .I>)>
+		   <CRLF>>
+	      <REST .CODE-START .REST-OFF>>
+	T>
+
+<DROP "COMPDEC">
+
+<DEFINE PD (PCK "AUX" (PN <COND (<TYPE? .PCK ATOM> <SPNAME .PCK>)
+				(ELSE .PCK)>))
+	<BLOCK ,<LOOKUP .PN #OBLIST PACKAGE>>
+	T>
+
+<DEFINE UPD () <ENDBLOCK> T>
+
+<SETG DF-O T>
+
+<USE "CHKDCL">
+
+<SETG INTERPRETER-IMPLEMENTOR? T>
+
+<DROP "CHKDCL">
+
+<FLOAD "<MIMC.MIM>MIMC.ASK">
+
+<FLOAD "<MIM.BOOT>NBOOT.COMPIL">
+
+<USE "PURIFY">
+
+<PURIFY-WORLD>
+
+<SETG CTLZ-PRINT!-COMPDEC!-PACKAGE T>
+
+<PROG () <PRINC "Invoke <SAV> to create a SAVE file.">
+         <CRLF>
+	 <PRINT <COPY-GC>>>
+
+<FEATURES "COMPILER" ("MACHINE" "TOPS20")("SUBSYSTEM" "MIMC")
+	  ("ENVIRONMENT" "MIM")>
\ No newline at end of file