X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2F20%2Fio-utils.mima;fp=mim%2Fdevelopment%2Fmim%2F20%2Fio-utils.mima;h=2a63a07df2e67d93765855f64047e241fcef8a17;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/20/io-utils.mima b/mim/development/mim/20/io-utils.mima
new file mode 100644
index 0000000..2a63a07
--- /dev/null
+++ b/mim/development/mim/20/io-utils.mima
@@ -0,0 +1,1046 @@
+
+#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>
\ No newline at end of file