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

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