Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / vaxc / init.mud

diff --git a/mim/development/mim/vaxc/init.mud b/mim/development/mim/vaxc/init.mud
new file mode 100644 (file)
index 0000000..241928b
--- /dev/null
+++ b/mim/development/mim/vaxc/init.mud
@@ -0,0 +1,33 @@
+
+<USE "NEWSTRUC">
+
+<DEFINE GET-FIELD (WD BITS)
+       #DECL ((WD) <PRIMTYPE FIX> (BITS) BITS)
+       <CHTYPE <GETBITS .WD .BITS> FIX>>
+
+<DEFINE LHW (WD)
+       #DECL ((WD) <PRIMTYPE FIX>)
+       <CHTYPE <GETBITS .WD <BITS 16 16>> FIX>>
+
+<DEFINE RHW (WD)
+       #DECL ((WD) <PRIMTYPE FIX>)
+        <CHTYPE <GETBITS .WD <BITS 16>> FIX>>
+
+<DEFINE PUT-LHW (WD VAL)
+       #DECL ((WD VAL) <PRIMTYPE FIX>)
+       <PUTBITS .WD <BITS 16 16> .VAL>>
+
+<DEFINE PUT-RHW (WD VAL)
+       #DECL ((WD VAL) <PRIMTYPE FIX>)
+       <PUTBITS .WD <BITS 16> .VAL>>
+
+
+<DEFINE TAB ()
+       <PRINC !\       >>
+
+<ENV-COND
+ ((ENVIRONMENT MIM)
+  <PUT-DECL BOOLEAN '<OR ATOM FALSE>>)
+ (T <PUT BOOLEAN DECL '<OR ATOM FALSE>>)>
+
+<SETG FCN ,FUNCTION>