X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvaxc%2Finit.mud;fp=mim%2Fdevelopment%2Fmim%2Fvaxc%2Finit.mud;h=241928b53f5edf7ce5f985256ba8f1f2ee365b25;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/vaxc/init.mud b/mim/development/mim/vaxc/init.mud
new file mode 100644
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>