--- /dev/null
+
+#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>