Machine-Independent MDL for TOPS-20 and VAX.

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

diff --git a/mim/development/mim/vax/mimlib/expose-defs.mud b/mim/development/mim/vax/mimlib/expose-defs.mud
new file mode 100644 (file)
index 0000000..fe8a4d4
--- /dev/null
+++ b/mim/development/mim/vax/mimlib/expose-defs.mud
@@ -0,0 +1,30 @@
+<DEFINITIONS "EXPOSE-DEFS">
+
+<USE "NEWSTRUC">
+
+<MSETG OP-COLUMN 8>
+<MSETG ARG-COLUMN 16>
+<MSETG COMMENT-COLUMN 40>
+
+<MSETG LENGTH-MASK 255>
+<MSETG BRANCH-BIT 256>
+<MSETG CASE-BIT 512>
+
+<DEFMAC BRANCH? ('FOO)
+   <FORM NOT <FORM 0? <FORM ANDB .FOO ',BRANCH-BIT>>>>
+
+<DEFMAC CASE? ('FOO)
+   <FORM NOT <FORM 0? <FORM ANDB .FOO ',CASE-BIT>>>>
+
+<MSETG KERNEL-TABLE-LENGTH 53>
+
+<MSETG LABEL-TABLE-LENGTH 101>
+
+<DEFMAC HEX-CHAR ('NUM)
+   <FORM PROG ((N <FORM ANDB .NUM 15>))
+        '<COND (<G? .N 9>
+                <CHTYPE <+ .N %<- <ASCII !\a> 10>> CHARACTER>)
+               (ELSE
+                <CHTYPE <+ .N %<ASCII !\0>> CHARACTER>)>>>
+
+<END-DEFINITIONS>