Machine-Independent MDL for TOPS-20 and VAX.
[pdp10-muddle.git] / mim / development / mim / vaxc / mvec.mima
diff --git a/mim/development/mim/vaxc/mvec.mima b/mim/development/mim/vaxc/mvec.mima
new file mode 100644 (file)
index 0000000..72b8be0
--- /dev/null
@@ -0,0 +1,543 @@
+
+#WORD *12712313301*
+                   <GFCN \1aXCOP-PRINT ("VALUE" CHARACTER ANY) X4>
+                   <TEMP OUTCHAN5>
+                   <INTGO>
+                   <GEN-LVAL 'OUTCHAN = OUTCHAN5>
+                   <FRAME '\1aPRINC>
+                   <PUSH "%<CHANNEL-OPERATION ">
+                   <PUSH OUTCHAN5>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <NTH1 X4 = STACK>
+                   <PUSH OUTCHAN5>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH !\ >
+                   <PUSH OUTCHAN5>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <FRAME '\1aNTH>
+                   <PUSH X4>
+                   <DEAD X4>
+                   <PUSH 2>
+                   <CALL '\1aNTH 2 = STACK>
+                   <PUSH OUTCHAN5>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH !\>>
+                   <PUSH OUTCHAN5>
+                   <DEAD OUTCHAN5>
+                   <CALL '\1aPRINC 2 = OUTCHAN5>
+                   <RETURN OUTCHAN5>
+                   <DEAD OUTCHAN5>
+                   <END \1aXCOP-PRINT>
+
+#WORD *33066344523*
+                   <GFCN \1aXGLOC-PRINT ("VALUE" <OR CHARACTER STRING> XGLOC) X4>
+                   <TEMP OUTCHAN5 TEMP10>
+                   <INTGO>
+                   <GEN-LVAL 'OUTCHAN = OUTCHAN5>
+                   <GVAL 'BOOT-MODE = TEMP10>
+                   <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
+                   <DEAD TEMP10>
+                   <FRAME '\1aPRIN1>
+                   <CHTYPE X4 <TYPE-CODE ATOM> = STACK>
+                   <DEAD X4>
+                   <PUSH OUTCHAN5>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH !\ >
+                   <PUSH OUTCHAN5>
+                   <DEAD OUTCHAN5>
+                   <CALL '\1aPRINC 2 = TEMP10>
+                   <RETURN TEMP10>
+                   <DEAD TEMP10>
+PHRASE9
+                   <FRAME '\1aPRINC>
+                   <PUSH "%<GBIND ">
+                   <PUSH OUTCHAN5>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <CHTYPE X4 <TYPE-CODE ATOM> = STACK>
+                   <DEAD X4>
+                   <PUSH OUTCHAN5>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH " T> ">
+                   <PUSH OUTCHAN5>
+                   <DEAD OUTCHAN5>
+                   <CALL '\1aPRINC 2 = TEMP10>
+                   <RETURN TEMP10>
+                   <DEAD TEMP10>
+                   <END \1aXGLOC-PRINT>
+
+#WORD *31740575777*
+                   <GFCN \1aXTYPE-C-PRINT ("VALUE" STRING XTYPE-C) X4>
+                   <TEMP OUTCHAN6 ATM5:ATOM>
+                   <INTGO>
+                   <GEN-LVAL 'OUTCHAN = OUTCHAN6>
+                   <CHTYPE X4 <TYPE-CODE ATOM> = ATM5>
+                   <DEAD X4>
+                   <FRAME '\1aPRINC>
+                   <PUSH "%<TYPE-C ">
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <PUSH ATM5>
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH !\ >
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <FRAME '\1aTYPEPRIM>
+                   <PUSH ATM5>
+                   <DEAD ATM5>
+                   <CALL '\1aTYPEPRIM 1 = STACK>
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH ">">
+                   <PUSH OUTCHAN6>
+                   <DEAD OUTCHAN6>
+                   <CALL '\1aPRINC 2 = OUTCHAN6>
+                   <RETURN OUTCHAN6>
+                   <DEAD OUTCHAN6>
+                   <END \1aXTYPE-C-PRINT>
+
+#WORD *34740735777*
+                   <GFCN \1aXTYPE-W-PRINT ("VALUE" STRING XTYPE-W) X4>
+                   <TEMP OUTCHAN6 ATM5:ATOM>
+                   <INTGO>
+                   <GEN-LVAL 'OUTCHAN = OUTCHAN6>
+                   <CHTYPE X4 <TYPE-CODE ATOM> = ATM5>
+                   <DEAD X4>
+                   <FRAME '\1aPRINC>
+                   <PUSH "%<TYPE-W ">
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <PUSH ATM5>
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH !\ >
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <FRAME '\1aTYPEPRIM>
+                   <PUSH ATM5>
+                   <DEAD ATM5>
+                   <CALL '\1aTYPEPRIM 1 = STACK>
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH ">">
+                   <PUSH OUTCHAN6>
+                   <DEAD OUTCHAN6>
+                   <CALL '\1aPRINC 2 = OUTCHAN6>
+                   <RETURN OUTCHAN6>
+                   <DEAD OUTCHAN6>
+                   <END \1aXTYPE-W-PRINT>
+
+<COND (<GASSIGNED? XCOP-PRINT> <PRINTTYPE XCHANNEL-OP ,XCOP-PRINT> <PRINTTYPE XGLOC ,XGLOC-PRINT> <PRINTTYPE XTYPE-C ,XTYPE-C-PRINT> <PRINTTYPE XTYPE-W ,XTYPE-W-PRINT>)>
+
+#WORD *26407762532*
+                   <GFCN \1aTYPE-CODE ("VALUE" ANY ATOM "OPTIONAL" ANY) TYP6 LENGTH7>
+                   <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+                   <PUSH 'LONG>
+OPT5
+                   <TEMP L8 TEMP21>
+                   <INTGO>
+                   <LOOP>
+AGAIN14
+                   <INTGO>
+                   <GVAL 'TYPE-WORDS = L8>
+                   <EMPUV? L8 + TAG17>
+                   <LOOP (TYP6 VALUE) (L8 LENGTH VALUE)>
+TAG19
+                   <NTHUV L8 1 = TEMP21>
+                   <TYPE? TEMP21 <TYPE-CODE ATOM> - TAG20>
+                   <VEQUAL? TEMP21 TYP6 + TAG18>
+                   <DEAD TEMP21>
+TAG20
+                   <RESTUV L8 1 = L8 (TYPE VECTOR)>
+                   <EMPUV? L8 - TAG19>
+TAG17
+                   <SET L8 %<> (TYPE FALSE)>
+TAG18
+                   <VEQUAL? L8 0 + PHRASE16>
+                   <EQUAL? LENGTH7 'VALUE - PHRASE23>
+                   <DEAD LENGTH7>
+                   <NTHUV L8 2 = L8>
+                   <RETURN L8>
+                   <DEAD L8>
+PHRASE23
+                   <FRAME '\1aMA-IMM>
+                   <NTHUV L8 2 = STACK (TYPE FIX)>
+                   <DEAD L8>
+                   <CALL '\1aMA-IMM 1 = L8>
+                   <RETURN L8>
+                   <DEAD L8>
+PHRASE16
+                   <NTHR TYP6 5 = TEMP21 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE25)>
+                   <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
+                   <DEAD TEMP21>
+                   <FRAME '\1aADD-MVEC>
+                   <CHTYPE TYP6 <TYPE-CODE XTYPE-C> = STACK>
+                   <DEAD TYP6>
+                   <CALL '\1aADD-MVEC 1 = L8>
+                   <FRAME '\1aADDR-VALUE-M>
+                   <PUSH L8>
+                   <DEAD L8>
+                   <PUSH LENGTH7>
+                   <DEAD LENGTH7>
+                   <CALL '\1aADDR-VALUE-M 2 = L8>
+                   <RETURN L8>
+                   <DEAD L8>
+PHRASE25
+                   <FRAME '\1aCHECK-MIMOP-TYPE>
+                   <PUSH TYP6>
+                   <CALL '\1aCHECK-MIMOP-TYPE 1 = L8>
+                   <TYPE? L8 <TYPE-CODE FALSE> + PHRASE28>
+                   <SET TYP6 L8>
+                   <DEAD L8>
+                   <JUMP + AGAIN14>
+PHRASE28
+                   <FRAME '\1aERROR>
+                   <PUSH "UNDEFINED-TYPE">
+                   <PUSH TYP6>
+                   <DEAD TYP6>
+                   <CALL '\1aERROR 2 = L8>
+                   <RETURN L8>
+                   <DEAD L8>
+                   <END \1aTYPE-CODE>
+
+#WORD *13561467160*
+                   <GFCN \1aTYPE-WORD ("VALUE" ANY ATOM "OPTIONAL" ANY) TYP6 EXTWORD7>
+                   <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+                   <PUSH %<>>
+OPT5
+                   <TEMP L8 TEMP23 VAL9:FIX>
+                   <INTGO>
+                   <LOOP>
+AGAIN16
+                   <INTGO>
+                   <GVAL 'TYPE-WORDS = L8>
+                   <EMPUV? L8 + TAG19>
+                   <LOOP (TYP6 VALUE) (L8 LENGTH VALUE)>
+TAG21
+                   <NTHUV L8 1 = TEMP23>
+                   <TYPE? TEMP23 <TYPE-CODE ATOM> - TAG22>
+                   <VEQUAL? TEMP23 TYP6 + TAG20>
+                   <DEAD TEMP23>
+TAG22
+                   <RESTUV L8 1 = L8 (TYPE VECTOR)>
+                   <EMPUV? L8 - TAG21>
+TAG19
+                   <SET L8 %<> (TYPE FALSE)>
+TAG20
+                   <VEQUAL? L8 0 + PHRASE18>
+                   <NTHUV L8 2 = VAL9 (TYPE FIX)>
+                   <DEAD L8>
+                   <GVAL 'TYPE-LENGTHS = L8>
+                   <EMPUV? L8 + TAG26>
+                   <LOOP (TYP6 VALUE) (L8 LENGTH VALUE)>
+TAG28
+                   <NTHUV L8 1 = TEMP23>
+                   <TYPE? TEMP23 <TYPE-CODE ATOM> - TAG29>
+                   <VEQUAL? TEMP23 TYP6 + TAG27>
+                   <DEAD TEMP23>
+TAG29
+                   <RESTUV L8 1 = L8 (TYPE VECTOR)>
+                   <EMPUV? L8 - TAG28>
+TAG26
+                   <SET L8 %<> (TYPE FALSE)>
+TAG27
+                   <VEQUAL? L8 0 + PHRASE25>
+                   <NTHUV L8 2 = TEMP23 (TYPE FIX)>
+                   <DEAD L8>
+                   <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
+                   <OR VAL9 TEMP23 = VAL9>
+                   <DEAD TEMP23>
+PHRASE25
+                   <FRAME '\1aMA-IMM>
+                   <PUSH VAL9>
+                   <DEAD VAL9>
+                   <CALL '\1aMA-IMM 1 = L8>
+                   <RETURN L8>
+                   <DEAD L8>
+PHRASE18
+                   <NTHR TYP6 5 = TEMP23 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE31)>
+                   <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE31>
+                   <DEAD TEMP23>
+                   <FRAME '\1aADD-MVEC>
+                   <CHTYPE TYP6 <TYPE-CODE XTYPE-W> = STACK>
+                   <DEAD TYP6>
+                   <CALL '\1aADD-MVEC 1 = VAL9>
+                   <FRAME '\1aADDR-VALUE-M>
+                   <PUSH VAL9>
+                   <DEAD VAL9>
+                   <CALL '\1aADDR-VALUE-M 1 = L8>
+                   <RETURN L8>
+                   <DEAD L8>
+PHRASE31
+                   <FRAME '\1aCHECK-MIMOP-TYPE>
+                   <PUSH TYP6>
+                   <CALL '\1aCHECK-MIMOP-TYPE 1 = L8>
+                   <TYPE? L8 <TYPE-CODE FALSE> + PHRASE34>
+                   <SET TYP6 L8>
+                   <DEAD L8>
+                   <JUMP + AGAIN16>
+PHRASE34
+                   <FRAME '\1aERROR>
+                   <PUSH "UNDEFINED-TYPE">
+                   <PUSH TYP6>
+                   <DEAD TYP6>
+                   <CALL '\1aERROR 2 = L8>
+                   <RETURN L8>
+                   <DEAD L8>
+                   <END \1aTYPE-WORD>
+
+<GDECL (TYPE-WORDS TYPE-LENGTHS) <VECTOR [REST ATOM FIX]>>
+
+#WORD *10551346647*
+                   <GFCN \1aINIT-MVEC-STUFF ("VALUE" LIST)>
+                   <TEMP>
+                   <INTGO>
+                   <SETG 'MVEC-OFF 16>
+                   <SETG 'MVEC-LIST ()>
+                   <RETURN ()>
+                   <END \1aINIT-MVEC-STUFF>
+
+#WORD *13075012011*
+                   <GFCN \1aPRINT-MVEC-ELEMENTS ("VALUE" <OR CHARACTER FALSE> "OPTIONAL" CHANNEL) OUTCHAN6>
+                   <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+                   <PUSH #T$UNBOUND 0>
+OPT5
+                   <TEMP TEMP3:LBIND TEMP9 TEMP23:LIST>
+                   <INTGO>
+                   <GETS 'BIND = TEMP3 (TYPE LBIND)>
+                   <TYPE? OUTCHAN6 <TYPE-CODE UNBOUND> - TAG7>
+                   <GEN-LVAL 'OUTCHAN = OUTCHAN6>
+TAG7
+                   <BBIND 'OUTCHAN 'CHANNEL 'FIX OUTCHAN6>
+                   <DEAD OUTCHAN6>
+                   <FIXBIND>
+                   <SET TEMP9 %<> (TYPE FALSE)>
+                   <GVAL 'MVEC-LIST = TEMP23>
+                   <LOOP>
+MAP13
+                   <INTGO>
+                   <EMPL? TEMP23 + MAPAP16>
+                   <NTHL TEMP23 1 = TEMP9>
+                   <FRAME '\1aPRIN1>
+                   <PUSH TEMP9>
+                   <DEAD TEMP9>
+                   <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+                   <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+                   <DEAD TEMP9>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH !\ >
+                   <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+                   <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+                   <DEAD TEMP9>
+                   <CALL '\1aPRINC 2 = TEMP9>
+                   <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+                   <JUMP + MAP13>
+MAPAP16
+                   <UNBIND TEMP3>
+                   <DEAD TEMP3>
+                   <ADJ -9>
+                   <RETURN TEMP9>
+                   <DEAD TEMP9>
+                   <END \1aPRINT-MVEC-ELEMENTS>
+
+<MSETG START-MVEC-OFF 16>
+
+#WORD *7216140465*
+                   <GFCN \1aADD-MVEC ("VALUE" FIX ANY) ITM4>
+                   <TEMP OFF5:FIX LST6 TLST7>
+                   <INTGO>
+                   <GVAL 'MVEC-OFF = OFF5>
+                   <GVAL 'MVEC-LIST = LST6>
+                   <FRAME '\1aMEMBER>
+                   <PUSH ITM4>
+                   <GVAL 'MVEC-LIST = STACK>
+                   <CALL '\1aMEMBER 2 = TLST7>
+                   <TYPE? TLST7 <TYPE-CODE FALSE> + PHRASE9>
+                   <FRAME '\1aLENGTH>
+                   <PUSH TLST7>
+                   <DEAD TLST7>
+                   <CALL '\1aLENGTH 1 = TLST7>
+                   <LSH TLST7 3 = TLST7 (TYPE FIX)>
+                   <SUB OFF5 TLST7 = OFF5 (TYPE FIX)>
+                   <DEAD TLST7>
+                   <RETURN OFF5>
+                   <DEAD OFF5>
+PHRASE9
+                   <EMPL? LST6 - PHRASE15 (TYPE LIST)>
+                   <CONS ITM4 () = TLST7>
+                   <DEAD ITM4>
+                   <SETG 'MVEC-LIST TLST7>
+                   <DEAD TLST7>
+                   <JUMP + COND14>
+PHRASE15
+                   <SET TLST7 LST6>
+                   <DEAD LST6>
+                   <LOOP (TLST7 VALUE)>
+TAG16
+                   <RESTL TLST7 1 = LST6 (TYPE LIST)>
+                   <EMPL? LST6 + TAG18>
+                   <SET TLST7 LST6>
+                   <DEAD LST6>
+                   <JUMP + TAG16>
+TAG18
+                   <CONS ITM4 () = LST6>
+                   <DEAD ITM4>
+                   <PUTREST TLST7 LST6>
+                   <DEAD TLST7 LST6>
+COND14
+                   <ADD OFF5 8 = LST6 (TYPE FIX)>
+                   <SETG 'MVEC-OFF LST6>
+                   <DEAD LST6>
+                   <RETURN OFF5>
+                   <DEAD OFF5>
+                   <END \1aADD-MVEC>
+
+#WORD *16550161053*
+                   <GFCN \1aPRINT-MREF ("VALUE" STRING FIX) NUM4>
+                   <TEMP OUTCHAN6 TEMP9 RNUM5:FIX>
+                   <INTGO>
+                   <GEN-LVAL 'OUTCHAN = OUTCHAN6>
+                   <SUB NUM4 16 = TEMP9 (TYPE FIX)>
+                   <DIV TEMP9 8 = TEMP9 (TYPE FIX)>
+                   <ADD TEMP9 1 = RNUM5 (TYPE FIX)>
+                   <DEAD TEMP9>
+                   <FRAME '\1aPRINC>
+                   <PUSH "<MQUOTE ">
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <GVAL 'MVEC-LIST = TEMP9>
+                   <SUB RNUM5 1 = RNUM5 (TYPE FIX)>
+                   <GRTR? RNUM5 0 - RESTL14 (TYPE FIX)>
+                   <LOOP (TEMP9 VALUE) (RNUM5 VALUE)>
+RESTL13
+                   <INTGO>
+                   <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+                   <SUB RNUM5 1 = RNUM5 (TYPE FIX)>
+                   <GRTR? RNUM5 0 + RESTL13 (TYPE FIX)>
+RESTL14
+                   <NTHL TEMP9 1 = STACK>
+                   <DEAD TEMP9>
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH " ">
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRIN1>
+                   <AND NUM4 7 = STACK>
+                   <DEAD NUM4>
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRIN1 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH ">">
+                   <PUSH OUTCHAN6>
+                   <CALL '\1aPRINC 2>
+                   <FRAME '\1aPRINC>
+                   <PUSH " ">
+                   <PUSH OUTCHAN6>
+                   <DEAD OUTCHAN6>
+                   <CALL '\1aPRINC 2 = TEMP9>
+                   <RETURN TEMP9>
+                   <DEAD TEMP9>
+                   <END \1aPRINT-MREF>
+
+#WORD *7663644447*
+                   <GFCN \1aADDR-VALUE-M ("VALUE" <OR EFF-ADDR LADDR> FIX "OPTIONAL" ANY) OFF6 LEN7>
+                   <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+                   <PUSH 'LONG>
+OPT5
+                   <TEMP TEMP11>
+                   <INTGO>
+                   <EQUAL? LEN7 'LONG - PHRASE9>
+                   <DEAD LEN7>
+                   <FRAME '\1aMA-DISP>
+                   <GVAL 'AC-M = STACK>
+                   <ADD OFF6 4 = STACK (TYPE FIX)>
+                   <DEAD OFF6>
+                   <CALL '\1aMA-DISP 2 = TEMP11>
+                   <RETURN TEMP11>
+                   <DEAD TEMP11>
+PHRASE9
+                   <FRAME '\1aMA-DISP>
+                   <GVAL 'AC-M = STACK>
+                   <ADD OFF6 4 = STACK (TYPE FIX)>
+                   <DEAD OFF6>
+                   <CALL '\1aMA-DISP 2 = TEMP11>
+                   <RETURN TEMP11>
+                   <DEAD TEMP11>
+                   <END \1aADDR-VALUE-M>
+
+#WORD *213311770*
+                   <GFCN \1aADDR-VALUE-MQUOTE ("VALUE" <OR EFF-ADDR LADDR> ANY) OBJ4>
+                   <TEMP TEMP7>
+                   <INTGO>
+                   <FRAME '\1aADDR-VALUE-M>
+                   <FRAME '\1aADD-MVEC>
+                   <PUSH OBJ4>
+                   <DEAD OBJ4>
+                   <CALL '\1aADD-MVEC 1 = STACK>
+                   <CALL '\1aADDR-VALUE-M 1 = TEMP7>
+                   <RETURN TEMP7>
+                   <DEAD TEMP7>
+                   <END \1aADDR-VALUE-MQUOTE>
+
+#WORD *3262176075*
+                   <GFCN \1aADDR-TYPE-MQUOTE ("VALUE" <OR EFF-ADDR LADDR> ANY) OBJ4>
+                   <TEMP TEMP7>
+                   <INTGO>
+                   <FRAME '\1aADDR-TYPE-M>
+                   <FRAME '\1aADD-MVEC>
+                   <PUSH OBJ4>
+                   <DEAD OBJ4>
+                   <CALL '\1aADD-MVEC 1 = STACK>
+                   <CALL '\1aADDR-TYPE-M 1 = TEMP7>
+                   <RETURN TEMP7>
+                   <DEAD TEMP7>
+                   <END \1aADDR-TYPE-MQUOTE>
+
+#WORD *2133661110*
+                   <GFCN \1aADDR-TYPE-M ("VALUE" <OR EFF-ADDR LADDR> FIX) OFF4>
+                   <TEMP TEMP6>
+                   <INTGO>
+                   <FRAME '\1aMA-DISP>
+                   <GVAL 'AC-M = STACK>
+                   <PUSH OFF4>
+                   <DEAD OFF4>
+                   <CALL '\1aMA-DISP 2 = TEMP6>
+                   <RETURN TEMP6>
+                   <DEAD TEMP6>
+                   <END \1aADDR-TYPE-M>
+
+#WORD *1077736754*
+                   <GFCN \1aADDR-COUNT-M ("VALUE" <OR EFF-ADDR LADDR> FIX) OFF4>
+                   <TEMP TEMP6>
+                   <INTGO>
+                   <FRAME '\1aMA-DISP>
+                   <GVAL 'AC-M = STACK>
+                   <ADD OFF4 2 = STACK (TYPE FIX)>
+                   <DEAD OFF4>
+                   <CALL '\1aMA-DISP 2 = TEMP6>
+                   <RETURN TEMP6>
+                   <DEAD TEMP6>
+                   <END \1aADDR-COUNT-M>