Machine-Independent MDL for TOPS-20 and VAX.

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

diff --git a/mim/development/mim/vaxc/init.mima b/mim/development/mim/vaxc/init.mima
new file mode 100644 (file)
index 0000000..1b4fdc7
--- /dev/null
+++ b/mim/development/mim/vaxc/init.mima
@@ -0,0 +1,81 @@
+
+<USE "NEWSTRUC">
+
+#WORD *35413340121*
+                   <GFCN \1aGET-FIELD ("VALUE" FIX <PRIMTYPE FIX> BITS) WD4 BITS5>
+                   <TEMP TEMP10:FIX MSK9:FIX RB11:BITS SHFT12:FIX>
+                   <INTGO>
+                   <GVAL 'M$$R-BHWD = TEMP10>
+                   <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
+                   <LSH -1 TEMP10 = MSK9 (TYPE FIX)>
+                   <DEAD TEMP10>
+                   <SET RB11 BITS5>
+                   <DEAD BITS5>
+                   <AND RB11 MSK9 = SHFT12>
+                   <GVAL 'M$$R-BHWD = TEMP10>
+                   <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
+                   <LSH RB11 TEMP10 = TEMP10 (TYPE FIX)>
+                   <DEAD RB11>
+                   <AND TEMP10 MSK9 = TEMP10>
+                   <DEAD MSK9>
+                   <GETBITS WD4 TEMP10 SHFT12 = TEMP10>
+                   <DEAD WD4 SHFT12>
+                   <RETURN TEMP10>
+                   <DEAD TEMP10>
+                   <END \1aGET-FIELD>
+
+#WORD *14733136012*
+                   <GFCN \1aLHW ("VALUE" FIX <PRIMTYPE FIX>) WD4>
+                   <TEMP TEMP5>
+                   <INTGO>
+                   <GETBITS WD4 16 16 = TEMP5>
+                   <DEAD WD4>
+                   <RETURN TEMP5>
+                   <DEAD TEMP5>
+                   <END \1aLHW>
+
+#WORD *13072761412*
+                   <GFCN \1aRHW ("VALUE" FIX <PRIMTYPE FIX>) WD4>
+                   <TEMP TEMP5:FIX>
+                   <INTGO>
+                   <AND WD4 #WORD *177777* = TEMP5>
+                   <DEAD WD4>
+                   <RETURN TEMP5>
+                   <DEAD TEMP5>
+                   <END \1aRHW>
+
+#WORD *35135547374*
+                   <GFCN \1aPUT-LHW ("VALUE" FIX <PRIMTYPE FIX> <PRIMTYPE FIX>) WD4 VAL5>
+                   <TEMP TEMP6:FIX>
+                   <INTGO>
+                   <PUTBITS WD4 16 16 VAL5 = TEMP6>
+                   <DEAD WD4 VAL5>
+                   <RETURN TEMP6>
+                   <DEAD TEMP6>
+                   <END \1aPUT-LHW>
+
+#WORD *11475543577*
+                   <GFCN \1aPUT-RHW ("VALUE" FIX <PRIMTYPE FIX> <PRIMTYPE FIX>) WD4 VAL5>
+                   <TEMP TEMP6:FIX>
+                   <INTGO>
+                   <PUTBITS WD4 16 0 VAL5 = TEMP6>
+                   <DEAD WD4 VAL5>
+                   <RETURN TEMP6>
+                   <DEAD TEMP6>
+                   <END \1aPUT-RHW>
+
+#WORD *22002473353*
+                   <GFCN \1aTAB ("VALUE" CHARACTER)>
+                   <TEMP TEMP5>
+                   <INTGO>
+                   <FRAME '\1aPRINC>
+                   <PUSH !\    >
+                   <GEN-LVAL 'OUTCHAN = STACK>
+                   <CALL '\1aPRINC 2 = TEMP5>
+                   <RETURN TEMP5>
+                   <DEAD TEMP5>
+                   <END \1aTAB>
+
+<ENV-COND ((ENVIRONMENT MIM) <PUT-DECL BOOLEAN '<OR ATOM FALSE>>) (T <PUT BOOLEAN DECL '<OR ATOM FALSE>>)>
+
+<SETG FCN ,FUNCTION>