#WORD *16053031231*
<GFCN T$HANG ("VALUE" ANY "OPTIONAL" ANY) PRED6>
		    <OPT-DISPATCH 0 %<> OPT4 OPT5>
OPT4
		    <PUSH %<>>
OPT5
		    <TEMP VAL10>
		    <INTGO>
		    <LOOP>
AGAIN11
		    <INTGO>
		    <FRAME 'T$EVAL>
		    <PUSH PRED6>
		    <CALL 'T$EVAL 1 = VAL10>
		    <TYPE? VAL10 <TYPE-CODE FALSE> + PHRASE13>
		    <RETURN VAL10>
		    <DEAD VAL10>
PHRASE13
		    <SETS 'RUNINT -1>
		    <SYSOP 'WAIT = VAL10>
		    <SETS 'RUNINT 0>
		    <JUMP + AGAIN11>
		    <END T$HANG>
#WORD *14006672442*
<GFCN T$JNAME ("VALUE" STRING "OPTIONAL" STRING) NEW6>
		    <OPT-DISPATCH 0 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TS8 WD7:FIX TEMP20 TEMP21>
		    <INTGO>
		    <USBLOCK <TYPE-CODE STRING> 6 = TS8 (TYPE STRING)>
		    <TYPE? NEW6 <TYPE-CODE UNBOUND> - PHRASE11>
		    <SYSOP 'GETNM (RETURN 1) = WD7>
		    <LOOP>
AGAIN15
		    <INTGO>
		    <VEQUAL? WD7 0 + EXIT12 (TYPE FIX)>
		    <ROT WD7 6 = WD7 (TYPE FIX)>
		    <AND WD7 #WORD *77* = TEMP20>
		    <ADD TEMP20 32 = TEMP20 (TYPE FIX)>
		    <CHTYPE TEMP20 <TYPE-CODE CHARACTER> = TEMP20>
		    <AND WD7 #WORD *777777777700* = WD7>
		    <PUTUS TS8 1 TEMP20>
		    <DEAD TEMP20>
		    <RESTUS TS8 1 = TS8 (TYPE STRING)>
		    <JUMP + AGAIN15>
EXIT12
		    <TOPU TS8 = TEMP20>
		    <LENUS TS8 = TS8 (TYPE FIX)>
		    <SUB 6 TS8 = TEMP21 (TYPE FIX)>
		    <DEAD TS8>
		    <UUBLOCK <TYPE-CODE STRING> TEMP21 = TS8 (TYPE STRING)>
		    <MOVE-STRING TEMP20 TS8 TEMP21 (NO-OVERLAP T)>
		    <DEAD TEMP20 TEMP21>
		    <JUMP + PHRASE23>
PHRASE11
		    <SET WD7 0 (TYPE FIX)>
		    <SET TS8 0 (TYPE FIX)>
		    <SET TEMP21 NEW6 (TYPE STRING)>
		    <LOOP>
MAP25
		    <INTGO>
		    <EMPUS? TEMP21 + MAPAP28>
		    <NTHUS TEMP21 1 = TEMP20>
		    <LSH WD7 6 = WD7 (TYPE FIX)>
		    <SUB TEMP20 32 = TEMP20 (TYPE FIX)>
		    <AND TEMP20 #WORD *77* = TEMP20>
		    <OR WD7 TEMP20 = WD7>
		    <DEAD TEMP20>
		    <ADD TS8 1 = TS8 (TYPE FIX)>
		    <LESS? TS8 6 - MAPAP28 (TYPE FIX)>
		    <RESTUS TEMP21 1 = TEMP21 (TYPE STRING)>
		    <JUMP + MAP25>
MAPAP28
		    <SYSOP 'SETNM WD7>
		    <DEAD WD7>
		    <SET TS8 NEW6>
		    <DEAD NEW6>
PHRASE23
		    <IFSYS "TOPS20">
		    <ADJ -4>
		    <ENDIF "TOPS20">
		    <IFSYS "VAX">
		    <ADJ -4>
		    <ENDIF "VAX">
		    <RETURN TS8>
		    <DEAD TS8>
		    <END T$JNAME>
#WORD *30440230762*
<GFCN T$SLEEP ("VALUE" ANY <OR FIX FLOAT> "OPTIONAL" ANY) TM6 PRED7>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5>
OPT4
		    <PUSH %<>>
OPT5
		    <TEMP RTM8:FIX TEMP11 STIME15:FIX>
		    <INTGO>
		    <TYPE? TM6 <TYPE-CODE FLOAT> - PHRASE10>
		    <MULF TM6 1000.0 = TEMP11 (TYPE FLOAT)>
		    <DEAD TM6>
		    <FIX TEMP11 = RTM8 (TYPE FIX)>
		    <DEAD TEMP11>
		    <JUMP + COND9>
PHRASE10
		    <MUL TM6 1000 = RTM8 (TYPE FIX)>
		    <DEAD TM6>
COND9
		    <LOOP>
AGAIN16
		    <INTGO>
		    <FRAME 'T$EVAL>
		    <PUSH PRED7>
		    <CALL 'T$EVAL 1 = TEMP11>
		    <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE18>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
PHRASE18
		    <SYSOP 'TIME-JSYS (RETURN 1) = STIME15>
		    <SETS 'RUNINT -1>
		    <SYSOP 'DISMS RTM8 = TEMP11>
		    <SETS 'RUNINT 0>
		    <SYSOP 'TIME-JSYS (RETURN 1) = TEMP11>
		    <SUB TEMP11 STIME15 = TEMP11 (TYPE FIX)>
		    <DEAD STIME15>
		    <SUB RTM8 TEMP11 = RTM8 (TYPE FIX)>
		    <DEAD TEMP11>
		    <GRTR? RTM8 0 + AGAIN16 (TYPE FIX)>
		    <RETURN 'T>
		    <END T$SLEEP>
#WORD *14077535133*
<GFCN X$INIT-ENV ("VALUE" ATOM)>
		    <TEMP TEMP7>
		    <INTGO>
		    <NTHR 'T$HOME-STRUC 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG6)>
		    <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG6>
		    <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
		    <TYPE? TEMP7 <TYPE-CODE UNBOUND> - PHRASE5>
		    <DEAD TEMP7>
TAG6
		    <SETG 'T$HOME-STRUC "MIM">
PHRASE5
		    <RETURN 'T>
		    <END X$INIT-ENV>
#WORD *12424054644*
<GFCN T$SYS-ERR ("VALUE" FALSE STRING <FALSE FIX> "OPTIONAL" <OR ATOM FALSE>) NAME6 ERR7 NAME?8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH 'T>
OPT5
		    <TEMP TEMP10:FALSE>
		    <INTGO>
		    <FRAME 'I$STD-ERROR>
		    <PUSH NAME6>
		    <DEAD NAME6>
		    <PUSH ERR7>
		    <DEAD ERR7>
		    <PUSH NAME?8>
		    <DEAD NAME?8>
		    <CALL 'I$STD-ERROR 3 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END T$SYS-ERR>
#WORD *25747440666*
<GFCN T$TRANSLATE-ERROR ("VALUE" STRING <FALSE FIX>) ERR4>
		    <TEMP NS7 TEMP12 TEMP8>
		    <INTGO>
		    <GVAL 'I$NAMSTR = NS7>
		    <IFSYS "VAX">
		    <NTHL ERR4 1 = TEMP12 (TYPE FIX)>
		    <PUTBITS TEMP12 16 16 131072 = TEMP8>
		    <ENDIF "VAX">
		    <IFSYS "TOPS20">
		    <NTHL ERR4 1 = TEMP12 (TYPE FIX)>
		    <DEAD ERR4>
		    <PUTBITS TEMP12 18 18 131072 = TEMP8>
		    <ENDIF "TOPS20">
		    <IFSYS "VAX">
		    <LENUS NS7 = TEMP12 (TYPE FIX)>
		    <SUB 0 TEMP12 = TEMP12 (TYPE FIX)>
		    <PUTBITS 0 16 16 TEMP12 = TEMP12>
		    <ENDIF "VAX">
		    <IFSYS "TOPS20">
		    <LENUS NS7 = TEMP12 (TYPE FIX)>
		    <SUB 0 TEMP12 = TEMP12 (TYPE FIX)>
		    <PUTBITS 0 18 18 TEMP12 = TEMP12>
		    <ENDIF "TOPS20">
		    <SYSOP 'ERSTR NS7 TEMP8 TEMP12 = TEMP12>
		    <DEAD TEMP8>
		    <UUBLOCK <TYPE-CODE STRING> TEMP12 = TEMP8 (TYPE STRING)>
		    <MOVE-STRING NS7 TEMP8 TEMP12 (NO-OVERLAP %<>)>
		    <DEAD NS7 TEMP12>
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END T$TRANSLATE-ERROR>
#WORD *22156062620*
<GFCN I$STD-ERROR ("VALUE" FALSE STRING <FALSE FIX> "OPTIONAL" ANY) NAME6 ERR7 NAME?8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH 'T>
OPT5
		    <TEMP NS9 ES11:STRING NM118 NM220 DEV22 SNM24>
		    <INTGO>
		    <USBLOCK <TYPE-CODE STRING> 500 = NS9 (TYPE STRING)>
		    <FRAME 'T$TRANSLATE-ERROR>
		    <PUSH ERR7>
		    <CALL 'T$TRANSLATE-ERROR 1 = ES11>
		    <TYPE? NAME?8 <TYPE-CODE FALSE> + PHRASE29>
		    <DEAD NAME?8>
		    <FRAME 'X$VALUE?>
		    <PUSH 'NM1>
		    <CALL 'X$VALUE? 1 = NM118>
		    <FRAME 'X$VALUE?>
		    <PUSH 'NM2>
		    <CALL 'X$VALUE? 1 = NM220>
		    <FRAME 'X$VALUE?>
		    <PUSH 'DEV>
		    <CALL 'X$VALUE? 1 = DEV22>
		    <FRAME 'X$VALUE?>
		    <PUSH 'SNM>
		    <CALL 'X$VALUE? 1 = SNM24>
		    <SYSOP 'GTJFN-L NAME6 8388608 34359607295 DEV22 SNM24 NM118 NM220 0 0 0 = NM118>
		    <DEAD DEV22 SNM24 NM220>
		    <TYPE? NM118 <TYPE-CODE FALSE> + PHRASE29>
		    <SYSOP 'JFNS NS9 NM118 0 0 = NM220>
		    <SYSOP 'RLJFN NM118>
		    <DEAD NM118>
		    <UUBLOCK <TYPE-CODE STRING> NM220 = NAME6 (TYPE STRING)>
		    <MOVE-STRING NS9 NAME6 NM220 (NO-OVERLAP T)>
		    <DEAD NS9 NM220>
PHRASE29
		    <CONS NAME6 ERR7 = NS9>
		    <DEAD NAME6 ERR7>
		    <CONS ES11 NS9 = NS9>
		    <DEAD ES11>
		    <CHTYPE NS9 <TYPE-CODE FALSE> = NS9>
		    <IFSYS "TOPS20">
		    <ADJ -102>
		    <ENDIF "TOPS20">
		    <IFSYS "VAX">
		    <ADJ -127>
		    <ENDIF "VAX">
		    <RETURN NS9>
		    <DEAD NS9>
		    <END I$STD-ERROR>
#WORD *32351756627*
<GFCN T$GET-JFN ("VALUE" <OR FALSE FIX> STRING FIX FIX <OR ATOM FALSE>) NAME4 MODE5 BSZ6 NEW?7>
		    <TEMP JFN8 TEMP15>
		    <INTGO>
		    <TYPE? NEW?7 <TYPE-CODE FALSE> + PHRASE11>
		    <DEAD NEW?7>
		    <SYSOP 'GTJFN-S-S -34359476224 NAME4 = JFN8>
		    <DEAD NAME4>
		    <JUMP + PHRASE12>
PHRASE11
		    <SYSOP 'GTJFN-S-S 8590196736 NAME4 = JFN8>
		    <DEAD NAME4>
PHRASE12
		    <SET TEMP15 JFN8>
		    <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
		    <LSH BSZ6 30 = TEMP15 (TYPE FIX)>
		    <DEAD BSZ6>
		    <OR TEMP15 MODE5 = TEMP15>
		    <DEAD MODE5>
		    <SYSOP 'OPENF JFN8 TEMP15 = TEMP15>
		    <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE17>
		    <RETURN JFN8>
		    <DEAD JFN8>
PHRASE17
		    <SYSOP 'RLJFN JFN8>
		    <DEAD JFN8>
PHRASE19
		    <RETURN TEMP15>
		    <DEAD TEMP15>
		    <END T$GET-JFN>
#WORD *37011316026*
<GFCN T$GET-BYTE-COUNT ("VALUE" FIX FIX FIX) JFN4 BSZ5>
		    <TEMP OBC6:FIX OBS7 TEMP18:FIX>
		    <INTGO>
		    <SYSOP 'SIZEF JFN4 (RETURN 2) = OBC6>
		    <SYSOP 'GTFDB JFN4 262153 5 (RETURN 5) = OBS7>
		    <DEAD JFN4>
		    <AND OBS7 #WORD *7700000000* = OBS7>
		    <LSH OBS7 -24 = OBS7 (TYPE FIX)>
		    <VEQUAL? OBS7 0 - PHRASE11 (TYPE FIX)>
		    <SET OBS7 36 (TYPE FIX)>
PHRASE11
		    <VEQUAL? OBS7 BSZ5 - PHRASE15 (TYPE FIX)>
		    <RETURN OBC6>
		    <DEAD OBC6>
PHRASE15
		    <DIV 36 OBS7 = OBS7 (TYPE FIX)>
		    <SUB OBS7 1 = TEMP18 (TYPE FIX)>
		    <ADD OBC6 TEMP18 = OBC6 (TYPE FIX)>
		    <DEAD TEMP18>
		    <DIV OBC6 OBS7 = OBC6 (TYPE FIX)>
		    <DEAD OBS7>
		    <DIV 36 BSZ5 = TEMP18 (TYPE FIX)>
		    <DEAD BSZ5>
		    <MUL OBC6 TEMP18 = OBS7 (TYPE FIX)>
		    <DEAD OBC6 TEMP18>
		    <RETURN OBS7>
		    <DEAD OBS7>
		    <END T$GET-BYTE-COUNT>
#WORD *34650165305*
<GFCN T$CLOSE-OPEN ("VALUE" ANY FIX FIX FIX) JFN4 MODE5 BSZ6>
		    <TEMP TEMP9>
		    <INTGO>
		    <OR JFN4 #WORD *400000000000* = TEMP9>
		    <SYSOP 'CLOSF TEMP9 = TEMP9>
		    <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL7>
		    <LSH BSZ6 30 = TEMP9 (TYPE FIX)>
		    <DEAD BSZ6>
		    <OR TEMP9 MODE5 = TEMP9>
		    <DEAD MODE5>
		    <SYSOP 'OPENF JFN4 TEMP9 = TEMP9>
		    <DEAD JFN4>
BOOL7
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END T$CLOSE-OPEN>
#WORD *16132021023*
<GFCN T$GET-DEVICE-TYPE ("VALUE" <OR FALSE FIX> FIX) JFN4>
		    <TEMP VAL5 TEMP8>
		    <INTGO>
		    <SYSOP 'DVCHR JFN4 (RETURN 2) = VAL5>
		    <DEAD JFN4>
		    <SET TEMP8 VAL5>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
		    <LSH VAL5 -18 = VAL5 (TYPE FIX)>
		    <AND VAL5 #WORD *777* = TEMP8>
		    <DEAD VAL5>
PHRASE7
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END T$GET-DEVICE-TYPE>
#WORD *1675311017*
		    <GFCN X$IO-INIT ("VALUE" <OR ATOM FALSE>)>
		    <TEMP TEMP5 TEMP6>
		    <INTGO>
		    <SETG 'T$MUDDLE-SYSTEM "T">
		    <PUSH !\
>
		    <PUSH !\
>
		    <UBLOCK <TYPE-CODE STRING> 2 = TEMP5 (TYPE STRING)>
		    <SETG 'CRLF-STRING TEMP5>
		    <DEAD TEMP5>
		    <SETG 'CRLF-LENGTH 2>
		    <UUBLOCK <TYPE-CODE STRING> 10 = TEMP5>
		    <SET TEMP6 TEMP5>
		    <LOOP (TEMP6 VALUE LENGTH)>
ISTR7
		    <EMPUS? TEMP6 + ISTRE8>
		    <PUTUS TEMP6 1 !\	>
		    <RESTUS TEMP6 1 = TEMP6>
		    <JUMP + ISTR7>
ISTRE8
		    <SETG 'TABSTR TEMP5>
		    <DEAD TEMP5>
		    <UUBLOCK <TYPE-CODE STRING> 7 = TEMP5>
		    <SET TEMP6 TEMP5>
		    <LOOP (TEMP6 VALUE LENGTH)>
ISTR9
		    <EMPUS? TEMP6 + ISTRE10>
		    <PUTUS TEMP6 1 !\ >
		    <RESTUS TEMP6 1 = TEMP6>
		    <JUMP + ISTR9>
ISTRE10
		    <SETG 'SPACESTR TEMP5>
		    <DEAD TEMP5>
		    <SETG 'I$RDBLEN 1280>
		    <SETG 'T$NM2 "MUD">
		    <PUSH 0>
		    <PUSH 'T$DISK>
		    <PUSH 2>
		    <PUSH 'T$TWAY>
		    <PUSH 7>
		    <PUSH 'T$TWAY>
		    <PUSH 8>
		    <PUSH 'T$TWAY>
		    <PUSH 9>
		    <PUSH 'T$TWAY>
		    <PUSH 10>
		    <PUSH 'T$TTY>
		    <PUSH 'T>
		    <PUSH 'T>
		    <UBLOCK <TYPE-CODE VECTOR> 3 = STACK>
		    <PUSH 11>
		    <PUSH 'T$TTY>
		    <PUSH 'T>
		    <PUSH 'T>
		    <UBLOCK <TYPE-CODE VECTOR> 3 = STACK>
		    <PUSH 13>
		    <PUSH 'T$TWAY>
		    <PUSH %<>>
		    <PUSH %<>>
		    <UBLOCK <TYPE-CODE VECTOR> 3 = STACK>
		    <PUSH 14>
		    <PUSH 'T$TWAY>
		    <PUSH 'T>
		    <PUSH 'T>
		    <UBLOCK <TYPE-CODE VECTOR> 3 = STACK>
		    <UBLOCK <TYPE-CODE VECTOR> 18 = TEMP5>
		    <SETG 'T$DEVVEC TEMP5>
		    <DEAD TEMP5>
		    <FRAME 'T$ISTRING>
		    <PUSH 100>
		    <CALL 'T$ISTRING 1 = TEMP5>
		    <SETG 'I$NAMSTR TEMP5>
		    <DEAD TEMP5>
		    <SETG 'I$CHANNEL-TYPES ()>
		    <FRAME 'T$NEW-CHANNEL-TYPE>
		    <PUSH 'T$DEFAULT>
		    <PUSH %<>>
		    <PUSH 'T$NAME>
		    <PUSH 'X$DEF-NAME>
		    <PUSH 'T$NM1>
		    <PUSH 'X$DEF-NM1>
		    <PUSH 'T$NM2>
		    <PUSH 'X$DEF-NM2>
		    <PUSH 'T$DEV>
		    <PUSH 'X$DEF-DEV>
		    <PUSH 'T$SNM>
		    <PUSH 'X$DEF-SNM>
		    <PUSH 'T$SHORT-NAME>
		    <PUSH 'X$DEF-SHORT-NAME>
		    <PUSH 'T$FLUSH>
		    <PUSH 'X$DEF-FLUSH>
		    <PUSH 'T$READ-DATE>
		    <PUSH 'X$DEF-HACK-DATE>
		    <PUSH 'T$WRITE-DATE>
		    <PUSH 'X$DEF-HACK-DATE>
		    <PUSH 'T$GET-MODE>
		    <PUSH 'X$DEF-GET-MODE>
		    <PUSH 'T$GET-BYTE-SIZE>
		    <PUSH 'X$DEF-GET-BYTE-SIZE>
		    <CALL 'T$NEW-CHANNEL-TYPE 24>
		    <FRAME 'T$NEW-CHANNEL-TYPE>
		    <PUSH 'T$DISK>
		    <PUSH 'T$DEFAULT>
		    <PUSH 'T$FILE-HANDLE>
		    <PUSH 'X$DISK-FILE-HANDLE>
		    <PUSH 'T$QUERY>
		    <PUSH 'X$DISK-QUERY>
		    <PUSH 'T$OPEN>
		    <PUSH 'X$DISK-OPEN>
		    <PUSH 'T$CLOSE>
		    <PUSH 'X$DISK-CLOSE>
		    <PUSH 'T$FLUSH>
		    <PUSH 'X$DISK-FLUSH>
		    <PUSH 'T$READ-BYTE>
		    <PUSH 'X$DISK-READ-BYTE>
		    <PUSH 'T$WRITE-BYTE>
		    <PUSH 'X$DISK-WRITE-BYTE>
		    <PUSH 'T$READ-BUFFER>
		    <PUSH 'X$DISK-READ-BUFFER>
		    <PUSH 'T$WRITE-BUFFER>
		    <PUSH 'X$DISK-WRITE-BUFFER>
		    <PUSH 'T$ACCESS>
		    <PUSH 'X$DISK-ACCESS>
		    <PUSH 'T$BUFOUT>
		    <PUSH 'X$DISK-BUFOUT>
		    <PUSH 'T$FILE-LENGTH>
		    <PUSH 'X$DISK-FILE-LENGTH>
		    <PUSH 'T$PRINT-DATA>
		    <PUSH 'X$DISK-PRINT-DATA>
		    <CALL 'T$NEW-CHANNEL-TYPE 28>
		    <FRAME 'T$NEW-CHANNEL-TYPE>
		    <PUSH 'I$UNPARSE>
		    <PUSH %<>>
		    <PUSH 'T$WRITE-BUFFER>
		    <PUSH 'X$UP-WRITE-BUF>
		    <PUSH 'T$WRITE-BYTE>
		    <PUSH 'X$UP-WRITE-BYTE>
		    <PUSH 'T$READ-BYTE>
		    <PUSH 'X$UP-READ-BYTE>
		    <CALL 'T$NEW-CHANNEL-TYPE 8 = TEMP5>
		    <RETURN TEMP5>
		    <DEAD TEMP5>
		    <END X$IO-INIT>

#WORD *21673533247*
<GFCN X$IO-LOAD ("VALUE" ANY FIX) BOOTYP4>
		    <TEMP TEMP7>
		    <INTGO>
		    <FRAME 'X$RESET>
		    <PUSH 'I$FLATSIZE>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH 'T>
		    <PUSH 0>
		    <PUSH %<>>
		    <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP7>
		    <CHTYPE TEMP7 <TYPE-CODE CHANNEL> = STACK>
		    <DEAD TEMP7>
		    <CALL 'X$RESET 1 = TEMP7>
		    <SETG 'M$$FLATCHAN TEMP7>
		    <DEAD TEMP7>
		    <FRAME 'X$RESET>
		    <PUSH 'I$UNPARSE>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH 'T>
		    <PUSH "">
		    <PUSH %<>>
		    <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP7>
		    <CHTYPE TEMP7 <TYPE-CODE CHANNEL> = STACK>
		    <DEAD TEMP7>
		    <CALL 'X$RESET 1 = TEMP7>
		    <SETG 'M$$INTCHAN TEMP7>
		    <DEAD TEMP7>
		    <LESS? BOOTYP4 0 + PHRASE11 (TYPE FIX)>
		    <FRAME 'T$FILE-EXISTS?>
		    <PUSH "<MIM.20>CHANNEL-OPERATION.MBIN">
		    <CALL 'T$FILE-EXISTS? 1 = TEMP7>
		    <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE11>
		    <DEAD TEMP7>
		    <FRAME 'T$FLOAD>
		    <PUSH "<MIM.20>CHANNEL-OPERATION.MBIN">
		    <CALL 'T$FLOAD 1>
		    <JUMP + COND10>
PHRASE11
		    <FRAME 'T$FLOAD>
		    <PUSH "<MIM.20>CHANNEL-OPERATION.MSUBR">
		    <CALL 'T$FLOAD 1>
COND10
		    <LESS? BOOTYP4 0 + PHRASE19 (TYPE FIX)>
		    <FRAME 'T$FILE-EXISTS?>
		    <PUSH "<MIM.20>TWAY.MBIN">
		    <CALL 'T$FILE-EXISTS? 1 = TEMP7>
		    <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE19>
		    <DEAD TEMP7>
		    <FRAME 'T$FLOAD>
		    <PUSH "<MIM.20>TWAY.MBIN">
		    <CALL 'T$FLOAD 1>
		    <JUMP + COND18>
PHRASE19
		    <FRAME 'T$FLOAD>
		    <PUSH "<MIM.20>TWAY.MSUBR">
		    <CALL 'T$FLOAD 1>
COND18
		    <LESS? BOOTYP4 0 + PHRASE27 (TYPE FIX)>
		    <DEAD BOOTYP4>
		    <FRAME 'T$FILE-EXISTS?>
		    <PUSH "<MIM.20>TTY.MBIN">
		    <CALL 'T$FILE-EXISTS? 1 = TEMP7>
		    <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE27>
		    <DEAD TEMP7>
		    <FRAME 'T$FLOAD>
		    <PUSH "<MIM.20>TTY.MBIN">
		    <CALL 'T$FLOAD 1 = TEMP7>
		    <RETURN TEMP7>
		    <DEAD TEMP7>
PHRASE27
		    <FRAME 'T$FLOAD>
		    <PUSH "<MIM.20>TTY.MSUBR">
		    <CALL 'T$FLOAD 1 = TEMP7>
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END X$IO-LOAD>
#WORD *32053074013*
<GFCN T$RENAME ("VALUE" <OR FALSE STRING> STRING STRING) OLD4 NEW5>
		    <TEMP NM16 NM27 DEV8 SNM9 (FOLD10 %<>) (FNEW11 %<>) NS14 VAL12>
		    <INTGO>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$NM1>
		    <CALL 'X$VALUE? 1 = NM16>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$NM2>
		    <CALL 'X$VALUE? 1 = NM27>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$DEV>
		    <CALL 'X$VALUE? 1 = DEV8>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$SNM>
		    <CALL 'X$VALUE? 1 = SNM9>
		    <USBLOCK <TYPE-CODE STRING> 500 = NS14 (TYPE STRING)>
		    <FRAME 'I$DO-OPEN>
		    <PUSH 8589934592>
		    <PUSH OLD4>
		    <PUSH DEV8>
		    <PUSH SNM9>
		    <PUSH NM16>
		    <PUSH NM27>
		    <CALL 'I$DO-OPEN 6 = FOLD10>
		    <SET VAL12 FOLD10>
		    <TYPE? VAL12 <TYPE-CODE FALSE> + BOOL21>
		    <FRAME 'I$DO-OPEN>
		    <PUSH -0>
		    <PUSH NEW5>
		    <DEAD NEW5>
		    <PUSH DEV8>
		    <DEAD DEV8>
		    <PUSH SNM9>
		    <DEAD SNM9>
		    <PUSH NM16>
		    <DEAD NM16>
		    <PUSH NM27>
		    <DEAD NM27>
		    <CALL 'I$DO-OPEN 6 = FNEW11>
		    <SET VAL12 FNEW11>
BOOL21
		    <TYPE? VAL12 <TYPE-CODE FALSE> + PHRASE25>
		    <SYSOP 'RNAMF FOLD10 FNEW11 = VAL12>
		    <TYPE? VAL12 <TYPE-CODE FALSE> + PHRASE25>
		    <SYSOP 'JFNS NS14 FNEW11 0 0 = NM16>
		    <SYSOP 'RLJFN FNEW11>
		    <UUBLOCK <TYPE-CODE STRING> NM16 = NEW5 (TYPE STRING)>
		    <MOVE-STRING NS14 NEW5 NM16 (NO-OVERLAP T)>
		    <DEAD NS14 NM16>
		    <SET VAL12 NEW5>
		    <DEAD NEW5>
PHRASE25
		    <TYPE? VAL12 <TYPE-CODE FALSE> - PHRASE27>
		    <TYPE? FOLD10 <TYPE-CODE FALSE> + PHRASE29>
		    <SYSOP 'RLJFN FOLD10>
		    <DEAD FOLD10>
PHRASE29
		    <TYPE? FNEW11 <TYPE-CODE FALSE> + PHRASE31>
		    <SYSOP 'RLJFN FNEW11>
		    <DEAD FNEW11>
PHRASE31
		    <FRAME 'I$STD-ERROR>
		    <PUSH OLD4>
		    <DEAD OLD4>
		    <PUSH VAL12>
		    <DEAD VAL12>
		    <CALL 'I$STD-ERROR 2 = VAL12>
PHRASE27
		    <IFSYS "TOPS20">
		    <ADJ -102>
		    <ENDIF "TOPS20">
		    <IFSYS "VAX">
		    <ADJ -127>
		    <ENDIF "VAX">
		    <RETURN VAL12>
		    <DEAD VAL12>
		    <END T$RENAME>
#WORD *10357763734*
<GFCN T$DELFILE ("VALUE" <OR FALSE STRING> STRING "OPTIONAL" <OR STRING FIX> <OR STRING FIX> <OR STRING FIX> <OR STRING FIX>) NM9 NM110 NM211 DEV12 SNM13>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <PUSH #T$UNBOUND 0>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <PUSH #T$UNBOUND 0>
OPT8
		    <TEMP FID14 VAL15>
		    <INTGO>
		    <TYPE? NM110 <TYPE-CODE UNBOUND> - TAG16>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$NM1>
		    <CALL 'X$VALUE? 1 = NM110>
TAG16
		    <TYPE? NM211 <TYPE-CODE UNBOUND> - TAG19>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$NM2>
		    <CALL 'X$VALUE? 1 = NM211>
TAG19
		    <TYPE? DEV12 <TYPE-CODE UNBOUND> - TAG22>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$DEV>
		    <CALL 'X$VALUE? 1 = DEV12>
TAG22
		    <TYPE? SNM13 <TYPE-CODE UNBOUND> - TAG25>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$SNM>
		    <CALL 'X$VALUE? 1 = SNM13>
TAG25
		    <FRAME 'I$DO-OPEN>
		    <PUSH 8589934592>
		    <PUSH NM9>
		    <PUSH DEV12>
		    <DEAD DEV12>
		    <PUSH SNM13>
		    <DEAD SNM13>
		    <PUSH NM110>
		    <DEAD NM110>
		    <PUSH NM211>
		    <DEAD NM211>
		    <CALL 'I$DO-OPEN 6 = FID14>
		    <SET VAL15 FID14>
		    <TYPE? VAL15 <TYPE-CODE FALSE> + PHRASE29>
		    <SYSOP 'DELF FID14 = VAL15>
PHRASE29
		    <TYPE? VAL15 <TYPE-CODE FALSE> - PHRASE32>
		    <TYPE? FID14 <TYPE-CODE FALSE> + PHRASE34>
		    <SYSOP 'RLJFN FID14>
		    <DEAD FID14>
PHRASE34
		    <FRAME 'I$STD-ERROR>
		    <PUSH NM9>
		    <DEAD NM9>
		    <PUSH VAL15>
		    <DEAD VAL15>
		    <CALL 'I$STD-ERROR 2 = FID14>
		    <RETURN FID14>
		    <DEAD FID14>
PHRASE32
		    <RETURN NM9>
		    <DEAD NM9>
		    <END T$DELFILE>
#WORD *23441447624*
<GFCN T$FILE-EXISTS? ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" <OR STRING FIX> <OR STRING FIX> <OR STRING FIX> <OR STRING FIX>) NAME9 NM110 NM211 DEV12 SNM13>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <PUSH #T$UNBOUND 0>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <PUSH #T$UNBOUND 0>
OPT8
		    <TEMP FID14>
		    <INTGO>
		    <TYPE? NM110 <TYPE-CODE UNBOUND> - TAG15>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$NM1>
		    <CALL 'X$VALUE? 1 = NM110>
TAG15
		    <TYPE? NM211 <TYPE-CODE UNBOUND> - TAG18>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$NM2>
		    <CALL 'X$VALUE? 1 = NM211>
TAG18
		    <TYPE? DEV12 <TYPE-CODE UNBOUND> - TAG21>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$DEV>
		    <CALL 'X$VALUE? 1 = DEV12>
TAG21
		    <TYPE? SNM13 <TYPE-CODE UNBOUND> - TAG24>
		    <FRAME 'X$VALUE?>
		    <PUSH 'T$SNM>
		    <CALL 'X$VALUE? 1 = SNM13>
TAG24
		    <FRAME 'I$DO-OPEN>
		    <PUSH 8589934592>
		    <PUSH NAME9>
		    <PUSH DEV12>
		    <DEAD DEV12>
		    <PUSH SNM13>
		    <DEAD SNM13>
		    <PUSH NM110>
		    <DEAD NM110>
		    <PUSH NM211>
		    <DEAD NM211>
		    <CALL 'I$DO-OPEN 6 = FID14>
		    <TYPE? FID14 <TYPE-CODE FALSE> + PHRASE28>
		    <SYSOP 'RLJFN FID14>
		    <DEAD FID14>
		    <RETURN 'T>
PHRASE28
		    <FRAME 'I$STD-ERROR>
		    <PUSH NAME9>
		    <DEAD NAME9>
		    <PUSH FID14>
		    <DEAD FID14>
		    <CALL 'I$STD-ERROR 2 = FID14>
		    <RETURN FID14>
		    <DEAD FID14>
		    <END T$FILE-EXISTS?>
#WORD *14507655772*
<GFCN I$DO-OPEN ("VALUE" ANY FIX STRING <OR STRING FIX> <OR STRING FIX> <OR STRING FIX> <OR STRING FIX>) MODE4 NAME5 DEV6 SNM7 NM18 NM29>
		    <TEMP TEMP10>
		    <INTGO>
		    <SYSOP 'GTJFN-L NAME5 MODE4 34359607295 DEV6 SNM7 NM18 NM29 0 0 0 = TEMP10>
		    <DEAD NAME5 MODE4 DEV6 SNM7 NM18 NM29>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END I$DO-OPEN>
#WORD *25022365705*
<GFCN T$GEN-OPEN ("VALUE" ANY STRING "OPTIONAL" STRING STRING <OR ATOM FALSE VECTOR>) NAME8 MODE9 BSZ10 DEVNAM11>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
OPT4
		    <PUSH "READ">
OPT5
		    <PUSH "ASCII">
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP (NEW?12 %<>) DEV16 SNM17 NM118 NM219 NS20 TEMP31 TEMP32 TEMP33 TEMP34 TEMP35>
		    <INTGO>
		    <FRAME 'X$VALUE?>
		    <PUSH 'DEV>
		    <CALL 'X$VALUE? 1 = DEV16>
		    <FRAME 'X$VALUE?>
		    <PUSH 'SNM>
		    <CALL 'X$VALUE? 1 = SNM17>
		    <FRAME 'X$VALUE?>
		    <PUSH 'NM1>
		    <CALL 'X$VALUE? 1 = NM118>
		    <FRAME 'X$VALUE?>
		    <PUSH 'NM2>
		    <CALL 'X$VALUE? 1 = NM219>
		    <USBLOCK <TYPE-CODE STRING> 500 = NS20 (TYPE STRING)>
		    <IFCAN "STRING-EQUAL?">
		    <STRING-EQUAL? MODE9 "CREATE" - PHRASE30>
		    <ENDIF "STRING-EQUAL?">
		    <IFCANNOT "STRING-EQUAL?">
		    <SET TEMP31 MODE9>
		    <SET TEMP32 "CREATE" (TYPE STRING)>
		    <LENUS TEMP31 = TEMP33 (TYPE FIX)>
		    <VEQUAL? TEMP33 6 - PHRASE30>
		    <LOOP (TEMP31 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP33 VALUE)>
TAG36
		    <NTHUS TEMP31 1 = TEMP34>
		    <NTHUS TEMP32 1 = TEMP35>
		    <VEQUAL? TEMP34 TEMP35 - PHRASE30>
		    <DEAD TEMP34 TEMP35>
		    <RESTUS TEMP31 1 = TEMP31 (TYPE STRING)>
		    <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
		    <SUB TEMP33 1 = TEMP33 (TYPE FIX)>
		    <GRTR? TEMP33 0 + TAG36 (TYPE FIX)>
		    <ENDIF "STRING-EQUAL?">
		    <SET NEW?12 'T (TYPE ATOM)>
PHRASE30
		    <FRAME 'I$DO-OPEN>
		    <VEQUAL? NEW?12 0 + PHRASE41>
		    <DEAD NEW?12>
		    <SET TEMP32 -0 (TYPE FIX)>
		    <JUMP + PHRASE42>
PHRASE41
		    <SET TEMP32 8589934592 (TYPE FIX)>
PHRASE42
		    <PUSH TEMP32>
		    <DEAD TEMP32>
		    <PUSH NAME8>
		    <PUSH DEV16>
		    <DEAD DEV16>
		    <PUSH SNM17>
		    <DEAD SNM17>
		    <PUSH NM118>
		    <DEAD NM118>
		    <PUSH NM219>
		    <DEAD NM219>
		    <CALL 'I$DO-OPEN 6 = NEW?12>
		    <TYPE? NEW?12 <TYPE-CODE FALSE> + PHRASE38>
		    <SYSOP 'JFNS NS20 NEW?12 0 0 = NM118>
		    <UUBLOCK <TYPE-CODE STRING> NM118 = DEV16 (TYPE STRING)>
		    <MOVE-STRING NS20 DEV16 NM118 (NO-OVERLAP T)>
		    <DEAD NS20 NM118>
		    <TYPE? DEVNAM11 <TYPE-CODE FALSE> - COND46>
		    <FRAME 'T$GET-DEVICE-TYPE>
		    <PUSH NEW?12>
		    <CALL 'T$GET-DEVICE-TYPE 1 = NM118>
		    <GVAL 'T$DEVVEC = SNM17>
		    <EMPUV? SNM17 + PHRASE47>
		    <LOOP (NM118 VALUE) (SNM17 LENGTH VALUE)>
TAG50
		    <NTHUV SNM17 1 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FIX> - TAG51>
		    <VEQUAL? TEMP32 NM118 + TAG49>
		    <DEAD TEMP32>
TAG51
		    <RESTUV SNM17 1 = SNM17 (TYPE VECTOR)>
		    <EMPUV? SNM17 - TAG50>
		    <JUMP + PHRASE47>
TAG49
		    <NTHUV SNM17 2 = DEVNAM11>
		    <DEAD SNM17>
		    <JUMP + COND46>
PHRASE47
		    <SET DEVNAM11 'T$TWAY (TYPE ATOM)>
COND46
		    <SYSOP 'RLJFN NEW?12>
		    <DEAD NEW?12>
		    <TYPE? DEVNAM11 <TYPE-CODE ATOM> - PHRASE55>
		    <FRAME 'T$CHANNEL-OPEN>
		    <PUSH DEVNAM11>
		    <DEAD DEVNAM11>
		    <PUSH DEV16>
		    <DEAD DEV16>
		    <PUSH MODE9>
		    <DEAD MODE9>
		    <PUSH BSZ10>
		    <DEAD BSZ10>
		    <CALL 'T$CHANNEL-OPEN 4 = TEMP31>
		    <JUMP + PHRASE57>
PHRASE55
		    <FRAME 'T$CHANNEL-OPEN>
		    <NTHUV DEVNAM11 1 = STACK>
		    <PUSH DEV16>
		    <DEAD DEV16>
		    <PUSH MODE9>
		    <DEAD MODE9>
		    <PUSH BSZ10>
		    <DEAD BSZ10>
		    <SET TEMP31 4 (TYPE FIX)>
		    <RESTUV DEVNAM11 1 = TEMP32 (TYPE VECTOR)>
		    <DEAD DEVNAM11>
		    <LOOP (TEMP32 VALUE LENGTH) (TEMP31 VALUE)>
TAG59
		    <INTGO>
		    <EMPUV? TEMP32 + TAG58>
		    <NTHUV TEMP32 1 = STACK>
		    <RESTUV TEMP32 1 = TEMP32 (TYPE VECTOR)>
		    <ADD TEMP31 1 = TEMP31 (TYPE FIX)>
		    <JUMP + TAG59>
TAG58
		    <CALL 'T$CHANNEL-OPEN TEMP31 = TEMP31>
PHRASE57
		    <TYPE? TEMP31 <TYPE-CODE FALSE> - COND37>
		    <FRAME 'I$STD-ERROR>
		    <PUSH NAME8>
		    <DEAD NAME8>
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <CALL 'I$STD-ERROR 2 = TEMP31>
		    <JUMP + COND37>
PHRASE38
		    <FRAME 'I$STD-ERROR>
		    <PUSH NAME8>
		    <DEAD NAME8>
		    <PUSH NEW?12>
		    <DEAD NEW?12>
		    <CALL 'I$STD-ERROR 2 = TEMP31>
COND37
		    <IFSYS "TOPS20">
		    <ADJ -102>
		    <ENDIF "TOPS20">
		    <IFSYS "VAX">
		    <ADJ -127>
		    <ENDIF "VAX">
		    <RETURN TEMP31>
		    <DEAD TEMP31>
		    <END T$GEN-OPEN>
#WORD *32443632156*
<GFCN X$VALUE? ("VALUE" <OR FIX STRING> ATOM) ATM4>
		    <TEMP TEMP8>
		    <INTGO>
		    <GEN-ASSIGNED? ATM4 - PHRASE7>
		    <GEN-LVAL ATM4 = TEMP8>
		    <DEAD ATM4>
		    <JUMP + PHRASE12>
PHRASE7
		    <NTHR ATM4 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG14)>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG14>
		    <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
		    <TYPE? TEMP8 <TYPE-CODE UNBOUND> - TAG13>
		    <DEAD TEMP8>
TAG14
		    <SET TEMP8 %<> (TYPE FALSE)>
		    <JUMP + PHRASE12>
TAG13
		    <GVAL ATM4 = TEMP8>
		    <DEAD ATM4>
PHRASE12
		    <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL18>
		    <TYPE? TEMP8 <TYPE-CODE FIX> + BOOL18>
		    <EMPUS? TEMP8 - PHRASE17 (TYPE STRING)>
BOOL18
		    <RETURN 0>
PHRASE17
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END X$VALUE?>
#WORD *21075024667*
<GFCN T$UNAME ("VALUE" STRING)>
		    <TEMP ST5:STRING UNUM4:FIX>
		    <INTGO>
		    <GVAL 'I$NAMSTR = ST5>
		    <SYSOP 'GJINF (RETURN 1) = UNUM4>
		    <SYSOP 'DIRST ST5 UNUM4>
		    <DEAD ST5 UNUM4>
		    <FRAME 'I$GET-STRING>
		    <GVAL 'I$NAMSTR = STACK>
		    <CALL 'I$GET-STRING 1 = ST5>
		    <RETURN ST5>
		    <DEAD ST5>
		    <END T$UNAME>
#WORD *35714303505*
<GFCN T$GET-CONNECTED-DIR ("VALUE" ANY)>
		    <TEMP ST5:STRING GCD9 TEMP15>
		    <INTGO>
		    <GVAL 'I$NAMSTR = ST5>
		    <SYSOP 'GJINF (RETURN 2) = GCD9>
		    <SYSOP 'DIRST ST5 GCD9>
		    <DEAD ST5 GCD9>
		    <FRAME 'I$GET-STRING>
		    <GVAL 'I$NAMSTR = STACK>
		    <CALL 'I$GET-STRING 1 = ST5>
		    <SET GCD9 ST5>
		    <EMPUS? GCD9 + TAG11>
		    <LOOP (GCD9 LENGTH VALUE)>
TAG13
		    <NTHUS GCD9 1 = TEMP15>
		    <VEQUAL? TEMP15 !\: + TAG12>
		    <DEAD TEMP15>
		    <RESTUS GCD9 1 = GCD9 (TYPE STRING)>
		    <EMPUS? GCD9 - TAG13>
TAG11
		    <SET GCD9 %<> (TYPE FALSE)>
TAG12
		    <LENUS ST5 = TEMP15 (TYPE FIX)>
		    <PUTUS ST5 TEMP15 !\>
		    <DEAD TEMP15>
		    <FRAME 'I$GET-STRING>
		    <RESTUS GCD9 2 = STACK (TYPE STRING)>
		    <CALL 'I$GET-STRING 1 = TEMP15>
		    <PUTUS GCD9 1 !\>
		    <DEAD GCD9>
		    <FRAME 'I$GET-STRING>
		    <PUSH ST5>
		    <DEAD ST5>
		    <CALL 'I$GET-STRING 1 = ST5>
		    <PUSH TEMP15>
		    <DEAD TEMP15>
		    <PUSH ST5>
		    <DEAD ST5>
		    <MRETURN 2 0>
		    <END T$GET-CONNECTED-DIR>
#WORD *22677560412*
<GFCN I$GET-STRING ("VALUE" STRING STRING) ST4>
		    <TEMP NST5 TEMP13>
		    <INTGO>
		    <SET NST5 ST4>
		    <EMPUS? NST5 + PHRASE8>
		    <LOOP (NST5 LENGTH VALUE)>
TAG11
		    <NTHUS NST5 1 = TEMP13>
		    <VEQUAL? TEMP13 !\ + TAG10>
		    <DEAD TEMP13>
		    <RESTUS NST5 1 = NST5 (TYPE STRING)>
		    <EMPUS? NST5 - TAG11>
		    <JUMP + PHRASE8>
TAG10
		    <LENUS ST4 = TEMP13 (TYPE FIX)>
		    <LENUS NST5 = NST5 (TYPE FIX)>
		    <SUB TEMP13 NST5 = TEMP13 (TYPE FIX)>
		    <DEAD NST5>
		    <UUBLOCK <TYPE-CODE STRING> TEMP13 = NST5 (TYPE STRING)>
		    <MOVE-STRING ST4 NST5 TEMP13 (NO-OVERLAP T)>
		    <DEAD ST4 TEMP13>
		    <RETURN NST5>
		    <DEAD NST5>
PHRASE8
		    <PUSH ST4>
		    <DEAD ST4>
		    <UBLOCK <TYPE-CODE STRING> 1 = NST5 (TYPE STRING)>
		    <RETURN NST5>
		    <DEAD NST5>
		    <END I$GET-STRING>