#WORD *11031104327*
		    <GFCN X$DEF-GET-MODE ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA6 TEMP11>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA6>
		    <DEAD CHANNEL4>
		    <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
		    <IFSYS "VAX">
		    <AND DATA6 #WORD *177777* = TEMP11>
		    <ENDIF "VAX">
		    <IFSYS "TOPS20">
		    <AND DATA6 #WORD *777777* = TEMP11>
		    <DEAD DATA6>
		    <ENDIF "TOPS20">
		    <SYSOP 'GTSTS TEMP11 (RETURN 2) = DATA6>
		    <DEAD TEMP11>
		    <LESS? DATA6 0 + PHRASE16 (TYPE FIX)>
		    <RETURN "CLOSED">
PHRASE16
		    <AND DATA6 #WORD *100000000000* = TEMP11>
		    <VEQUAL? TEMP11 0 + PHRASE19 (TYPE FIX)>
		    <DEAD TEMP11>
		    <AND DATA6 #WORD *20000000000* = TEMP11>
		    <DEAD DATA6>
		    <VEQUAL? TEMP11 0 - PHRASE24 (TYPE FIX)>
		    <DEAD TEMP11>
		    <RETURN "APPEND">
PHRASE24
		    <RETURN "MODIFY">
PHRASE19
		    <AND DATA6 #WORD *200000000000* = TEMP11>
		    <DEAD DATA6>
		    <VEQUAL? TEMP11 0 - TAG29 (TYPE FIX)>
		    <DEAD TEMP11>
		    <RETURN %<>>
TAG29
		    <RETURN "READ">
		    <END X$DEF-GET-MODE>

#WORD *617706206*
		    <GFCN X$DEF-GET-BYTE-SIZE ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA6 TEMP11>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA6>
		    <DEAD CHANNEL4>
		    <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
		    <SYSOP 'RFBSZ DATA6 (RETURN 2) = DATA6>
		    <SET TEMP11 DATA6>
		    <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE16>
		    <EQUAL? DATA6 7 - PHRASE13>
		    <RETURN "ASCII">
PHRASE13
		    <EQUAL? DATA6 8 - PHRASE14>
		    <RETURN "8BIT">
PHRASE14
		    <EQUAL? DATA6 36 - PHRASE15>
		    <RETURN "BINARY">
PHRASE15
		    <SET TEMP11 DATA6>
		    <DEAD DATA6>
PHRASE16
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END X$DEF-GET-BYTE-SIZE>

#WORD *34764423542*
		    <GFCN X$DEF-SHORT-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA6>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA6>
		    <DEAD CHANNEL4>
		    <FRAME 'I$DO-JFNS>
		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
		    <DEAD DATA6>
		    <PUSH 153092097>
		    <CALL 'I$DO-JFNS 2 = DATA6>
		    <RETURN DATA6>
		    <DEAD DATA6>
		    <END X$DEF-SHORT-NAME>

#WORD *34766427142*
		    <GFCN X$DEF-NM1 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA6>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA6>
		    <DEAD CHANNEL4>
		    <FRAME 'I$DO-JFNS>
		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
		    <DEAD DATA6>
		    <PUSH 134217728>
		    <CALL 'I$DO-JFNS 2 = DATA6>
		    <RETURN DATA6>
		    <DEAD DATA6>
		    <END X$DEF-NM1>

#WORD *34766463142*
		    <GFCN X$DEF-NM2 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA6>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA6>
		    <DEAD CHANNEL4>
		    <FRAME 'I$DO-JFNS>
		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
		    <DEAD DATA6>
		    <PUSH 16777216>
		    <CALL 'I$DO-JFNS 2 = DATA6>
		    <RETURN DATA6>
		    <DEAD DATA6>
		    <END X$DEF-NM2>

#WORD *34766467142*
		    <GFCN X$DEF-DEV ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA6>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA6>
		    <DEAD CHANNEL4>
		    <FRAME 'I$DO-JFNS>
		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
		    <DEAD DATA6>
		    <PUSH 8589934592>
		    <CALL 'I$DO-JFNS 2 = DATA6>
		    <RETURN DATA6>
		    <DEAD DATA6>
		    <END X$DEF-DEV>

#WORD *25651047345*
		    <GFCN X$DEF-SNM ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA7 STR6 TEMP13>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA7>
		    <DEAD CHANNEL4>
		    <FRAME 'I$DO-JFNS>
		    <NTHUV DATA7 1 = STACK (TYPE FIX)>
		    <PUSH 1073741824>
		    <CALL 'I$DO-JFNS 2 = STR6>
		    <NTHUV DATA7 1 = TEMP13 (TYPE FIX)>
		    <GETBITS TEMP13 18 18 = TEMP13>
		    <VEQUAL? TEMP13 0 - BOOL12 (TYPE FIX)>
		    <DEAD TEMP13>
		    <FRAME 'T$GET-DEVICE-TYPE>
		    <NTHUV DATA7 1 = STACK (TYPE FIX)>
		    <DEAD DATA7>
		    <CALL 'T$GET-DEVICE-TYPE 1 = TEMP13>
		    <EQUAL? TEMP13 0 - PHRASE10>
		    <DEAD TEMP13>
BOOL12
		    <TYPE? STR6 <TYPE-CODE FALSE> + BOOL17>
		    <EMPUS? STR6 - PHRASE10 (TYPE STRING)>
BOOL17
		    <FRAME 'T$GET-CONNECTED-DIR>
		    <CALL 'T$GET-CONNECTED-DIR 0 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
PHRASE10
		    <RETURN STR6>
		    <DEAD STR6>
		    <END X$DEF-SNM>

#WORD *21046032454*
		    <GFCN X$DEF-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY "OPTIONAL" ANY) CHANNEL6 OPER7 BITS8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH 31>
OPT5
		    <TEMP DATA9 (ARGBITS10:FIX 1) TEMP13>
		    <INTGO>
		    <NTHUV CHANNEL6 5 = DATA9>
		    <DEAD CHANNEL6>
		    <AND BITS8 #WORD *20* = TEMP13>
		    <VEQUAL? TEMP13 0 + PHRASE12 (TYPE FIX)>
		    <DEAD TEMP13>
		    <OR ARGBITS10 #WORD *100000000000* = ARGBITS10>
PHRASE12
		    <AND BITS8 #WORD *10* = TEMP13>
		    <VEQUAL? TEMP13 0 + PHRASE17 (TYPE FIX)>
		    <DEAD TEMP13>
		    <OR ARGBITS10 #WORD *10000000000* = ARGBITS10>
PHRASE17
		    <AND BITS8 #WORD *4* = TEMP13>
		    <VEQUAL? TEMP13 0 + PHRASE21 (TYPE FIX)>
		    <DEAD TEMP13>
		    <OR ARGBITS10 #WORD *1000000000* = ARGBITS10>
PHRASE21
		    <AND BITS8 #WORD *2* = TEMP13>
		    <VEQUAL? TEMP13 0 + PHRASE25 (TYPE FIX)>
		    <DEAD TEMP13>
		    <OR ARGBITS10 #WORD *100000000* = ARGBITS10>
PHRASE25
		    <AND BITS8 #WORD *1* = TEMP13>
		    <DEAD BITS8>
		    <VEQUAL? TEMP13 0 + PHRASE29 (TYPE FIX)>
		    <DEAD TEMP13>
		    <OR ARGBITS10 #WORD *10000000* = ARGBITS10>
PHRASE29
		    <FRAME 'I$DO-JFNS>
		    <NTHUV DATA9 1 = STACK (TYPE FIX)>
		    <DEAD DATA9>
		    <PUSH ARGBITS10>
		    <DEAD ARGBITS10>
		    <CALL 'I$DO-JFNS 2 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END X$DEF-NAME>

#WORD *14070754150*
		    <GFCN I$DO-JFNS ("VALUE" <OR FALSE STRING> FIX FIX) JFN4 BITS5>
		    <TEMP STR7:STRING TEMP14 CT6 OLD34 NEW35:STRING>
		    <INTGO>
		    <GVAL 'I$NAMSTR = STR7>
		    <AND JFN4 #WORD *777777* = JFN4>
		    <VEQUAL? JFN4 65 + BOOL11 (TYPE FIX)>
		    <VEQUAL? JFN4 64 - PHRASE10 (TYPE FIX)>
BOOL11
		    <AND BITS5 #WORD *100000000000* = TEMP14>
		    <VEQUAL? TEMP14 0 - PHRASE13 (TYPE FIX)>
		    <DEAD TEMP14>
		    <RETURN "">
PHRASE13
		    <AND BITS5 #WORD *1* = TEMP14>
		    <DEAD BITS5>
		    <VEQUAL? TEMP14 0 - PHRASE17 (TYPE FIX)>
		    <DEAD TEMP14>
		    <RETURN "TTY">
PHRASE17
		    <RETURN "TTY:">
PHRASE10
		    <SYSOP 'JFNS STR7 JFN4 BITS5 0 = CT6>
		    <DEAD JFN4 BITS5>
		    <SET TEMP14 CT6>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
		    <UUBLOCK <TYPE-CODE STRING> CT6 = CT6 (TYPE STRING)>
		    <SET TEMP14 STR7 (TYPE STRING)>
		    <DEAD STR7>
		    <SET STR7 CT6 (TYPE STRING)>
		    <LOOP>
MAP24
		    <INTGO>
		    <EMPUS? TEMP14 + MAPAP27>
		    <EMPUS? STR7 + MAPAP27>
		    <SET OLD34 TEMP14>
		    <SET NEW35 STR7>
		    <NTHUS OLD34 1 = OLD34 (TYPE CHARACTER)>
		    <PUTUS NEW35 1 OLD34>
		    <DEAD NEW35 OLD34>
		    <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
		    <RESTUS STR7 1 = STR7 (TYPE STRING)>
		    <JUMP + MAP24>
MAPAP27
		    <SET TEMP14 CT6>
		    <DEAD CT6>
PHRASE22
		    <RETURN TEMP14>
		    <DEAD TEMP14>
		    <END I$DO-JFNS>

#WORD *421616144*
		    <GFCN X$DEF-FLUSH ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
		    <TEMP DATA6>
		    <INTGO>
		    <NTHUV CHANNEL4 5 = DATA6>
		    <DEAD CHANNEL4>
		    <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
		    <AND DATA6 #WORD *777777* = DATA6>
		    <OR DATA6 #WORD *4000000000* = DATA6>
		    <SYSOP 'CLOSF DATA6 = DATA6>
		    <TYPE? DATA6 <TYPE-CODE FALSE> + PHRASE9>
		    <RETURN DATA6>
		    <DEAD DATA6>
PHRASE9
		    <RETURN DATA6>
		    <DEAD DATA6>
		    <END X$DEF-FLUSH>

#WORD *13224016071*
		    <GFCN X$DEF-HACK-DATE ("VALUE" <OR FALSE FIX> CHANNEL ATOM "OPTIONAL" FIX) CHANNEL6 OPR7 NEW8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP DATA9 JFN11:FIX TEMP16>
		    <INTGO>
		    <NTHUV CHANNEL6 5 = DATA9>
		    <DEAD CHANNEL6>
		    <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
		    <AND DATA9 #WORD *777777* = JFN11>
		    <DEAD DATA9>
		    <NTHR 'DATEU 1 = DATA9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG15)>
		    <TYPE? DATA9 <TYPE-CODE FALSE> + TAG15>
		    <NTHR DATA9 1 = DATA9 (RECORD-TYPE GBIND)>
		    <TYPE? DATA9 <TYPE-CODE UNBOUND> - PHRASE14>
		    <DEAD DATA9>
TAG15
		    <UUBLOCK <TYPE-CODE UVECTOR> 3 = DATA9>
		    <SET TEMP16 DATA9>
		    <LOOP (TEMP16 VALUE LENGTH)>
ISTR17
		    <EMPUU? TEMP16 + ISTRE18>
		    <PUTUU TEMP16 1 0>
		    <RESTUU TEMP16 1 = TEMP16>
		    <JUMP + ISTR17>
ISTRE18
		    <SETG 'DATEU DATA9>
		    <DEAD DATA9>
PHRASE14
		    <GVAL 'DATEU = TEMP16>
		    <TYPE? NEW8 <TYPE-CODE UNBOUND> - PHRASE20>
		    <SYSOP 'RFTAD JFN11 TEMP16 3 = DATA9>
		    <DEAD JFN11>
		    <TYPE? DATA9 <TYPE-CODE FALSE> + PHRASE29>
		    <VEQUAL? OPR7 'T$READ-DATE - PHRASE24>
		    <DEAD OPR7>
		    <NTHUU TEMP16 3 = DATA9 (TYPE FIX)>
		    <DEAD TEMP16>
		    <RETURN DATA9>
		    <DEAD DATA9>
PHRASE24
		    <NTHUU TEMP16 1 = DATA9 (TYPE FIX)>
		    <DEAD TEMP16>
		    <RETURN DATA9>
		    <DEAD DATA9>
PHRASE20
		    <PUTUU TEMP16 1 -1>
		    <PUTUU TEMP16 2 -1>
		    <PUTUU TEMP16 3 -1>
		    <VEQUAL? OPR7 'T$READ-DATE - PHRASE27>
		    <DEAD OPR7>
		    <PUTUU TEMP16 3 NEW8>
		    <JUMP + COND26>
PHRASE27
		    <PUTUU TEMP16 1 NEW8>
COND26
		    <SYSOP 'SFTAD JFN11 TEMP16 3 = DATA9>
		    <DEAD JFN11 TEMP16>
		    <TYPE? DATA9 <TYPE-CODE FALSE> + PHRASE29>
		    <SET DATA9 NEW8>
		    <DEAD NEW8>
PHRASE29
		    <RETURN DATA9>
		    <DEAD DATA9>
		    <END X$DEF-HACK-DATE>