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

diff --git a/mim/development/mim/20c/mimoc20defs.mud b/mim/development/mim/20c/mimoc20defs.mud
new file mode 100644
index 0000000..c02d208
--- /dev/null
+++ b/mim/development/mim/20c/mimoc20defs.mud
@@ -0,0 +1,203 @@
+<BLOCK (<ROOT>)> <NEWTYPE LOSE FIX><ENDBLOCK>
+
+<GDECL (THE-BIG-LABELS PRE-NAMES PRE-OPTS) LIST>
+
+<GDECL (STACK-DEPTH) FIX (WINNING-VICTIM) <OR FALSE FIX>>
+
+<GDECL (COMPARERS) <VECTOR [REST ATOM]>>
+
+<GDECL (NEXT-FLUSH CODE-LENGTH GLUE-PC) FIX>
+
+<GDECL (TYPE-WORDS TYPE-LENGTHS) <VECTOR [REST ATOM FIX]>>
+
+<NEWTYPE I$TERMIN WORD>
+
+<NEWTYPE JSYS FIX>
+
+<NEWTYPE GCAL ATOM>
+
+<NEWTYPE GFRM ATOM>
+
+<NEWTYPE ADECL VECTOR>
+
+<NEWTYPE SGFRM ATOM>
+
+<NEWTYPE SBFRM ATOM>
+
+<NEWTYPE SBRCAL ATOM>
+
+<NEWTYPE LAB
+	 VECTOR
+	 '!<<PRIMTYPE VECTOR> ATOM
+			      <OR FALSE FIX>
+			      <OR ATOM FALSE>
+			      <LIST [REST LABSTATE]>
+			      <OR FALSE LABSTATE>
+			      FIX
+			      LIST
+			      LIST>>
+
+<SETG LAB-NAM <OFFSET 1 LAB>>
+
+<SETG LAB-IND <OFFSET 2 LAB>>
+
+<SETG LAB-LOOP <OFFSET 3 LAB>>
+
+<SETG LAB-STATE <OFFSET 4 LAB>>
+
+<SETG LAB-FINAL-STATE <OFFSET 5 LAB>>
+
+<SETG LAB-VISIT-MARK <OFFSET 6 LAB>>
+
+<SETG LAB-CODE-PNTR <OFFSET 7 LAB>>
+
+<SETG LAB-DEAD-VARS <OFFSET 8 LAB>>
+
+<MANIFEST LAB-NAM LAB-IND LAB-LOOP LAB-STATE LAB-FINAL-STATE LAB-VISIT-MARK
+	  LAB-CODE-PNTR LAB-DEAD-VARS>
+
+<NEWTYPE ACSTATE
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> AC
+			     <OR LOCAL FALSE>
+			     <OR ATOM FALSE>
+			     <OR ATOM FALSE>
+			     ATOM>>
+
+<SETG ACS-AC <OFFSET 1 ACSTATE>>
+
+<SETG ACS-LOCAL <OFFSET 2 ACSTATE>>
+
+<SETG ACS-STORED <OFFSET 3 ACSTATE>>
+
+<SETG ACS-TYPE <OFFSET 4 ACSTATE>>
+
+<SETG ACS-CODE <OFFSET 5 ACSTATE>>
+
+<MANIFEST ACS-AC ACS-LOCAL ACS-STORED ACS-TYPE ACS-CODE>
+
+<NEWTYPE LABSTATE VECTOR '!<<PRIMTYPE VECTOR> [6 ACSTATE]>>
+
+<NEWTYPE XGLOC ATOM>
+
+<NEWTYPE T$UNBOUND WORD>
+
+<NEWTYPE INST VECTOR>
+
+<NEWTYPE REF VECTOR>
+
+<NEWTYPE XTYPE-C ATOM>
+
+<NEWTYPE XTYPE-W ATOM>
+
+<NEWTYPE CHANNEL-ROUTINE LIST>
+
+<NEWTYPE LOCAL
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> ATOM <OR FALSE ATOM> LOCAL-NAME <OR FALSE ATOM>
+			     <OR FALSE ACSTATE> <OR FALSE ACSTATE>>>
+
+<NEWTYPE LOCAL-NAME FIX>
+
+<NEWTYPE CONST-W-LOCAL LIST>
+
+<NEWTYPE CONSTANT WORD>
+
+<NEWTYPE CONSTANT-LABEL FIX>
+
+<SETG LATM <OFFSET 1 LOCAL>>
+
+<SETG LUPD <OFFSET 2 LOCAL>>
+
+<SETG LNAME <OFFSET 3 LOCAL>>
+
+<SETG LDECL <OFFSET 4 LOCAL>>
+
+<SETG LAST-ACST <OFFSET 5 LOCAL>>
+
+<SETG LAST-ACSV <OFFSET 6 LOCAL>>
+
+<MANIFEST LATM LUPD LNAME LDECL LAST-ACST LAST-ACSV>
+
+<SETG MAX-IMMEDIATE 262143>
+
+<NEWTYPE AC
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> ATOM
+			     <OR LOSE FALSE ATOM>
+			     ATOM
+			     FIX
+			     <OR FALSE ATOM>
+			     <OR FALSE ATOM>>>
+
+<GDECL (ACA-AC AC-BOTH) <OR AC FALSE>>
+
+<SETG AC-NAME <OFFSET 1 AC>>
+
+<SETG AC-ITEM <OFFSET 2 AC>>
+
+<SETG AC-CODE <OFFSET 3 AC>>
+
+<SETG AC-TIME <OFFSET 4 AC>>
+
+<SETG AC-UPDATE <OFFSET 5 AC>>
+
+<SETG AC-TYPE <OFFSET 6 AC>>
+
+<MANIFEST AC-NAME AC-ITEM AC-CODE AC-TIME AC-UPDATE AC-TYPE>
+
+<GDECL (AC-PAIR-TABLE AC-TABLE)
+       <VECTOR [REST AC]>
+       (AC-STAMP VISIT-COUNT)
+       FIX
+       (NULL-STATES)
+       <VECTOR [REST ACSTATE]>>
+
+<GDECL (MVECTOR FINAL-LOCALS TYPED-LOCALS LABELS CLABELS)
+       LIST
+       (LBLSEQ CONSTSEQ NRARGS MAX-IMMEDIATE)
+       FIX
+       (ICALL-TAGS CODE LOCALS ICALL-TEMPS ALL-ICALL-TEMPS ALL-TEMP-CC TEMP-CC)
+       LIST
+       (FREE-CONSTS CONSTANT-VECTOR) <LIST [REST CONSTANT-BUCKET]>
+       (ICALL-FLAG)
+       <OR FALSE FIX>>
+
+<GDECL (ACS) <VECTOR [REST ATOM FIX]>>
+<DEFMAC WIDTH-MUNG ('CHANX 'W) <FORM M-HLEN .CHANX .W>>
+
+<SETG OUTPUT-LENGTH 1024>
+
+<MANIFEST OUTPUT-LENGTH>
+
+<NEWTYPE CONSTANT-BUCKET VECTOR
+	 '<<PRIMTYPE VECTOR> <OR ATOM CONSTANT CONST-W-LOCAL> FIX CONSTANT-LABEL
+			     FIX>>
+
+<MSETG CB-VAL <OFFSET 1 CONSTANT-BUCKET>>
+
+<MSETG CB-HASH <OFFSET 2 CONSTANT-BUCKET>>
+
+<MSETG CB-LAB <OFFSET 3 CONSTANT-BUCKET>>
+
+<MSETG CB-LOC <OFFSET 4 CONSTANT-BUCKET>>
+
+<MSETG CONSTANT-TABLE-LENGTH 1001>
+
+<GDECL (CONSTANT-TABLE) <VECTOR [REST <LIST [REST CONSTANT-BUCKET]>]>>
+
+<NEWTYPE MBUCK VECTOR '<<PRIMTYPE VECTOR> ANY FIX FIX>>
+
+<MSETG MV-VAL <OFFSET 1 MBUCK>>
+
+<MSETG MV-HASH <OFFSET 2 MBUCK>>
+
+<MSETG MV-LOC <OFFSET 3 MBUCK>>
+
+<MSETG MV-TABLE-LENGTH 391>
+
+<GDECL (MV-TABLE) <VECTOR [REST <LIST [REST MBUCK]>]> (MV-COUNT) FIX>
+
+<NEWTYPE SUBR-INFO VECTOR>
+
+<MSETG KNOWN-ARGS 2>
\ No newline at end of file