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

diff --git a/mim/development/mim/vax/mimlib/debugrdefs.mud b/mim/development/mim/vax/mimlib/debugrdefs.mud
new file mode 100644
index 0000000..72f1d9d
--- /dev/null
+++ b/mim/development/mim/vax/mimlib/debugrdefs.mud
@@ -0,0 +1,33 @@
+<DEFINITIONS "DEBUGRDEFS">
+
+<USE "NEWSTRUC">
+
+<MSETG PRED-CHAR !\>
+<MSETG NEXXT-CHAR !\>
+<MSETG FAST-CHAR !\>
+<MSETG WEER-CHAR !\>
+<MSETG BODY-CHAR !\>
+<MSETG FLUSH-CHAR !\>
+<MSETG CHAR-LIST
+       <STRING ,PRED-CHAR ,NEXXT-CHAR ,FAST-CHAR
+	       ,WEER-CHAR ,BODY-CHAR ,FLUSH-CHAR <ASCII 27>>>
+
+<MSETG OPHF 0>
+<MSETG NEXXT 1>
+<MSETG BODY 2>
+<MSETG FAST 3>
+<MSETG WEER 4>
+<MSETG PRED 5>
+<MSETG FLUSH-STATE 6>
+
+<GDECL (DEBSTATE DEB-LEVEL REPEAT-COUNT MACRO-LEVEL
+	INDENT-INC INDENT-DIF INDENT-DIF) FIX
+       (DEB-IN DEB-OUT LO PREDICATE) ANY
+       (EVAL-IN EVAL-OUT) ATOM
+       (SAVED-DEB-LEVEL) FIX
+       (SAVED-EXPR) ANY
+       (LAST-CHAR) CHARACTER
+       (MACRO-FLAG INFULL? FORM-FAST SELF-FAST OUT-FAST OUT-UNIQUE)
+       <OR !<FALSE!> ATOM>>
+
+<END-DEFINITIONS>