#WORD *12712313301*
		    <GFCN XCOP-PRINT ("VALUE" CHARACTER ANY) X4>
		    <TEMP OUTCHAN5>
		    <INTGO>
		    <GEN-LVAL 'OUTCHAN = OUTCHAN5>
		    <FRAME 'PRINC>
		    <PUSH "%<CHANNEL-OPERATION ">
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <NTH1 X4 = STACK>
		    <PUSH OUTCHAN5>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH !\ >
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <FRAME 'NTH>
		    <PUSH X4>
		    <DEAD X4>
		    <PUSH 2>
		    <CALL 'NTH 2 = STACK>
		    <PUSH OUTCHAN5>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH !\>>
		    <PUSH OUTCHAN5>
		    <DEAD OUTCHAN5>
		    <CALL 'PRINC 2 = OUTCHAN5>
		    <RETURN OUTCHAN5>
		    <DEAD OUTCHAN5>
		    <END XCOP-PRINT>

#WORD *33066344523*
		    <GFCN XGLOC-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 'PRIN1>
		    <CHTYPE X4 <TYPE-CODE ATOM> = STACK>
		    <DEAD X4>
		    <PUSH OUTCHAN5>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH !\ >
		    <PUSH OUTCHAN5>
		    <DEAD OUTCHAN5>
		    <CALL 'PRINC 2 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
PHRASE9
		    <FRAME 'PRINC>
		    <PUSH "%<GBIND ">
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <CHTYPE X4 <TYPE-CODE ATOM> = STACK>
		    <DEAD X4>
		    <PUSH OUTCHAN5>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH " T> ">
		    <PUSH OUTCHAN5>
		    <DEAD OUTCHAN5>
		    <CALL 'PRINC 2 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END XGLOC-PRINT>

#WORD *31740575777*
		    <GFCN XTYPE-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 'PRINC>
		    <PUSH "%<TYPE-C ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <PUSH ATM5>
		    <PUSH OUTCHAN6>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH !\ >
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <FRAME 'TYPEPRIM>
		    <PUSH ATM5>
		    <DEAD ATM5>
		    <CALL 'TYPEPRIM 1 = STACK>
		    <PUSH OUTCHAN6>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH ">">
		    <PUSH OUTCHAN6>
		    <DEAD OUTCHAN6>
		    <CALL 'PRINC 2 = OUTCHAN6>
		    <RETURN OUTCHAN6>
		    <DEAD OUTCHAN6>
		    <END XTYPE-C-PRINT>

#WORD *34740735777*
		    <GFCN XTYPE-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 'PRINC>
		    <PUSH "%<TYPE-W ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <PUSH ATM5>
		    <PUSH OUTCHAN6>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH !\ >
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <FRAME 'TYPEPRIM>
		    <PUSH ATM5>
		    <DEAD ATM5>
		    <CALL 'TYPEPRIM 1 = STACK>
		    <PUSH OUTCHAN6>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH ">">
		    <PUSH OUTCHAN6>
		    <DEAD OUTCHAN6>
		    <CALL 'PRINC 2 = OUTCHAN6>
		    <RETURN OUTCHAN6>
		    <DEAD OUTCHAN6>
		    <END XTYPE-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 TYPE-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 'MA-IMM>
		    <NTHUV L8 2 = STACK (TYPE FIX)>
		    <DEAD L8>
		    <CALL 'MA-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 'ADD-MVEC>
		    <CHTYPE TYP6 <TYPE-CODE XTYPE-C> = STACK>
		    <DEAD TYP6>
		    <CALL 'ADD-MVEC 1 = L8>
		    <FRAME 'ADDR-VALUE-M>
		    <PUSH L8>
		    <DEAD L8>
		    <PUSH LENGTH7>
		    <DEAD LENGTH7>
		    <CALL 'ADDR-VALUE-M 2 = L8>
		    <RETURN L8>
		    <DEAD L8>
PHRASE25
		    <FRAME 'CHECK-MIMOP-TYPE>
		    <PUSH TYP6>
		    <CALL 'CHECK-MIMOP-TYPE 1 = L8>
		    <TYPE? L8 <TYPE-CODE FALSE> + PHRASE28>
		    <SET TYP6 L8>
		    <DEAD L8>
		    <JUMP + AGAIN14>
PHRASE28
		    <FRAME 'ERROR>
		    <PUSH "UNDEFINED-TYPE">
		    <PUSH TYP6>
		    <DEAD TYP6>
		    <CALL 'ERROR 2 = L8>
		    <RETURN L8>
		    <DEAD L8>
		    <END TYPE-CODE>

#WORD *13561467160*
		    <GFCN TYPE-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 'MA-IMM>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'MA-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 'ADD-MVEC>
		    <CHTYPE TYP6 <TYPE-CODE XTYPE-W> = STACK>
		    <DEAD TYP6>
		    <CALL 'ADD-MVEC 1 = VAL9>
		    <FRAME 'ADDR-VALUE-M>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'ADDR-VALUE-M 1 = L8>
		    <RETURN L8>
		    <DEAD L8>
PHRASE31
		    <FRAME 'CHECK-MIMOP-TYPE>
		    <PUSH TYP6>
		    <CALL 'CHECK-MIMOP-TYPE 1 = L8>
		    <TYPE? L8 <TYPE-CODE FALSE> + PHRASE34>
		    <SET TYP6 L8>
		    <DEAD L8>
		    <JUMP + AGAIN16>
PHRASE34
		    <FRAME 'ERROR>
		    <PUSH "UNDEFINED-TYPE">
		    <PUSH TYP6>
		    <DEAD TYP6>
		    <CALL 'ERROR 2 = L8>
		    <RETURN L8>
		    <DEAD L8>
		    <END TYPE-WORD>

<GDECL (TYPE-WORDS TYPE-LENGTHS) <VECTOR [REST ATOM FIX]>>

#WORD *10551346647*
		    <GFCN INIT-MVEC-STUFF ("VALUE" LIST)>
		    <TEMP>
		    <INTGO>
		    <SETG 'MVEC-OFF 16>
		    <SETG 'MVEC-LIST ()>
		    <RETURN ()>
		    <END INIT-MVEC-STUFF>

#WORD *13075012011*
		    <GFCN PRINT-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 'PRIN1>
		    <PUSH TEMP9>
		    <DEAD TEMP9>
		    <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
		    <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
		    <DEAD TEMP9>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH !\ >
		    <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
		    <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
		    <DEAD TEMP9>
		    <CALL 'PRINC 2 = TEMP9>
		    <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
		    <JUMP + MAP13>
MAPAP16
		    <UNBIND TEMP3>
		    <DEAD TEMP3>
		    <ADJ -9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END PRINT-MVEC-ELEMENTS>

<MSETG START-MVEC-OFF 16>

#WORD *7216140465*
		    <GFCN ADD-MVEC ("VALUE" FIX ANY) ITM4>
		    <TEMP OFF5:FIX LST6 TLST7>
		    <INTGO>
		    <GVAL 'MVEC-OFF = OFF5>
		    <GVAL 'MVEC-LIST = LST6>
		    <FRAME 'MEMBER>
		    <PUSH ITM4>
		    <GVAL 'MVEC-LIST = STACK>
		    <CALL 'MEMBER 2 = TLST7>
		    <TYPE? TLST7 <TYPE-CODE FALSE> + PHRASE9>
		    <FRAME 'LENGTH>
		    <PUSH TLST7>
		    <DEAD TLST7>
		    <CALL 'LENGTH 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 ADD-MVEC>

#WORD *16550161053*
		    <GFCN PRINT-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 'PRINC>
		    <PUSH "<MQUOTE ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <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 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH " ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <AND NUM4 7 = STACK>
		    <DEAD NUM4>
		    <PUSH OUTCHAN6>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH ">">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRINC>
		    <PUSH " ">
		    <PUSH OUTCHAN6>
		    <DEAD OUTCHAN6>
		    <CALL 'PRINC 2 = TEMP9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END PRINT-MREF>

#WORD *7663644447*
		    <GFCN ADDR-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 'MA-DISP>
		    <GVAL 'AC-M = STACK>
		    <ADD OFF6 4 = STACK (TYPE FIX)>
		    <DEAD OFF6>
		    <CALL 'MA-DISP 2 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
PHRASE9
		    <FRAME 'MA-DISP>
		    <GVAL 'AC-M = STACK>
		    <ADD OFF6 4 = STACK (TYPE FIX)>
		    <DEAD OFF6>
		    <CALL 'MA-DISP 2 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END ADDR-VALUE-M>

#WORD *213311770*
		    <GFCN ADDR-VALUE-MQUOTE ("VALUE" <OR EFF-ADDR LADDR> ANY) OBJ4>
		    <TEMP TEMP7>
		    <INTGO>
		    <FRAME 'ADDR-VALUE-M>
		    <FRAME 'ADD-MVEC>
		    <PUSH OBJ4>
		    <DEAD OBJ4>
		    <CALL 'ADD-MVEC 1 = STACK>
		    <CALL 'ADDR-VALUE-M 1 = TEMP7>
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END ADDR-VALUE-MQUOTE>

#WORD *3262176075*
		    <GFCN ADDR-TYPE-MQUOTE ("VALUE" <OR EFF-ADDR LADDR> ANY) OBJ4>
		    <TEMP TEMP7>
		    <INTGO>
		    <FRAME 'ADDR-TYPE-M>
		    <FRAME 'ADD-MVEC>
		    <PUSH OBJ4>
		    <DEAD OBJ4>
		    <CALL 'ADD-MVEC 1 = STACK>
		    <CALL 'ADDR-TYPE-M 1 = TEMP7>
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END ADDR-TYPE-MQUOTE>

#WORD *2133661110*
		    <GFCN ADDR-TYPE-M ("VALUE" <OR EFF-ADDR LADDR> FIX) OFF4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'MA-DISP>
		    <GVAL 'AC-M = STACK>
		    <PUSH OFF4>
		    <DEAD OFF4>
		    <CALL 'MA-DISP 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-TYPE-M>

#WORD *1077736754*
		    <GFCN ADDR-COUNT-M ("VALUE" <OR EFF-ADDR LADDR> FIX) OFF4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'MA-DISP>
		    <GVAL 'AC-M = STACK>
		    <ADD OFF4 2 = STACK (TYPE FIX)>
		    <DEAD OFF4>
		    <CALL 'MA-DISP 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-COUNT-M>