X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Fgc-dump-defs.mud;fp=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Fgc-dump-defs.mud;h=8455b5da570956227ac113ee13af305813208dcc;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/vax/mimlib/gc-dump-defs.mud b/mim/development/mim/vax/mimlib/gc-dump-defs.mud
new file mode 100644
index 0000000..8455b5d
--- /dev/null
+++ b/mim/development/mim/vax/mimlib/gc-dump-defs.mud
@@ -0,0 +1,64 @@
+<DEFINITIONS "GC-DUMP-DEFS">
+
+<USE "NEWSTRUC" "BACKQUOTE">
+
+<GDECL (SPACE-END AL OLD-TYPES WORDS-NEEDED NUMBER-OF-NEWTYPES) FIX
+       (DUMP-FRAME READ-FRAME) FRAME (NEW-ZONE) ZONE
+       (ATOM-TABLE) <VECTOR [REST LIST]>
+       (M$$TYPE-INFO!-INTERNAL) <VECTOR [REST <OR FALSE TYPE-ENTRY>]>>
+
+<MSETG STYPE-FIX 0> ;"The magic storage types--used in CASE statements"
+<MSETG STYPE-LIST 1>
+<MSETG STYPE-RECORD 2>
+<MSETG STYPE-BYTES 4>
+<MSETG STYPE-STRING 5>
+<MSETG STYPE-UVECTOR 6>
+<MSETG STYPE-VECTOR 7>
+
+<MSETG LENGTH-ATOM 7> ;"The length in words of various objects."
+<MSETG LENGTH-OFFSET 8>
+<MSETG LENGTH-GBIND 7>
+<MSETG LENGTH-TYPE-ENTRY 16>
+<MSETG LENGTH-LIST 3>
+
+<MSETG LENUU-GBIND 10> ;"The `LENUU' of various objects."
+<MSETG LENUU-ATOM 10>
+
+<MSETG TYPE-C-STRING <TYPE-C STRING>>
+<MSETG TYPE-C-ATOM <TYPE-C ATOM>>
+<MSETG TYPE-C-GBIND <TYPE-C GBIND>>
+<MSETG TYPE-C-UVECTOR <TYPE-C UVECTOR>>
+<MSETG TYPE-C-LIST <TYPE-C LIST>>
+
+<DEFMAC ADDR-S ('S) 
+	<FORM PROG
+	      ((RESULT .S))
+	      '<IFSYS ("TOPS20"
+		       <SET RESULT
+			    <+ <ANDB <CALL VALUE .RESULT> 1073741823> 1>>)>
+	      '.RESULT>>
+
+<DEFMAC RIGHT-ATOM ('ATM 'OFF) 
+   `<BIND ((ATM ~.ATM) (OFF ~.OFF) (VAL <CALL VALUE .ATM>))
+       #DECL ((ATM) <PRIMTYPE ATOM> (OFF VAL) FIX)
+       <COND (<==? .VAL -1>
+	      <CHTYPE ROOT <TYPE .ATM>>)
+	     (ELSE
+	      <CHTYPE <FIXUP-ATOM <CALL OBJECT
+					,TYPE-C-ATOM
+					,LENUU-ATOM
+					<+ .VAL .OFF>>
+				  .OFF>
+		      <TYPE .ATM>>)>>>
+
+<DEFMAC PAIR-UP ('OC 'NC)
+   `<BIND ((OC ~.OC) (NC ~.NC) 
+	   (OLD-CODES ,OLD-CODES) (NEW-CODES ,NEW-CODES))
+       #DECL ((OLD-CODES NEW-CODES) <<PRIMTYPE VECTOR> <PRIMTYPE FIX>>
+	      (OC NC) TYPE-C)
+       <1 .OLD-CODES .OC>
+       <SETG OLD-CODES <REST .OLD-CODES>>
+       <1 .NEW-CODES .NC>
+       <SETG NEW-CODES <REST .NEW-CODES>>>>
+
+<END-DEFINITIONS>