Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / vax / mimlib / debugrdefs.mud

diff --git a/mim/development/mim/vax/mimlib/debugrdefs.mud b/mim/development/mim/vax/mimlib/debugrdefs.mud
new file mode 100644 (file)
index 0000000..72f1d9d
--- /dev/null
+++ b/mim/development/mim/vax/mimlib/debugrdefs.mud
@@ -0,0 +1,33 @@
+<DEFINITIONS "DEBUGRDEFS">
+
+<USE "NEWSTRUC">
+
+<MSETG PRED-CHAR !\\10>
+<MSETG NEXXT-CHAR !\\ e>
+<MSETG FAST-CHAR !\\ 6>
+<MSETG WEER-CHAR !\\v>
+<MSETG BODY-CHAR !\\ 2>
+<MSETG FLUSH-CHAR !\\18>
+<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>