--- /dev/null
+
+#WORD *11031104327*
+ <GFCN \1aX$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 \1aX$DEF-GET-MODE>
+
+#WORD *617706206*
+ <GFCN \1aX$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 \1aX$DEF-GET-BYTE-SIZE>
+
+#WORD *34764423542*
+ <GFCN \1aX$DEF-SHORT-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+ <TEMP DATA6>
+ <INTGO>
+ <NTHUV CHANNEL4 5 = DATA6>
+ <DEAD CHANNEL4>
+ <FRAME '\1aI$DO-JFNS>
+ <NTHUV DATA6 1 = STACK (TYPE FIX)>
+ <DEAD DATA6>
+ <PUSH 153092097>
+ <CALL '\1aI$DO-JFNS 2 = DATA6>
+ <RETURN DATA6>
+ <DEAD DATA6>
+ <END \1aX$DEF-SHORT-NAME>
+
+#WORD *34766427142*
+ <GFCN \1aX$DEF-NM1 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+ <TEMP DATA6>
+ <INTGO>
+ <NTHUV CHANNEL4 5 = DATA6>
+ <DEAD CHANNEL4>
+ <FRAME '\1aI$DO-JFNS>
+ <NTHUV DATA6 1 = STACK (TYPE FIX)>
+ <DEAD DATA6>
+ <PUSH 134217728>
+ <CALL '\1aI$DO-JFNS 2 = DATA6>
+ <RETURN DATA6>
+ <DEAD DATA6>
+ <END \1aX$DEF-NM1>
+
+#WORD *34766463142*
+ <GFCN \1aX$DEF-NM2 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+ <TEMP DATA6>
+ <INTGO>
+ <NTHUV CHANNEL4 5 = DATA6>
+ <DEAD CHANNEL4>
+ <FRAME '\1aI$DO-JFNS>
+ <NTHUV DATA6 1 = STACK (TYPE FIX)>
+ <DEAD DATA6>
+ <PUSH 16777216>
+ <CALL '\1aI$DO-JFNS 2 = DATA6>
+ <RETURN DATA6>
+ <DEAD DATA6>
+ <END \1aX$DEF-NM2>
+
+#WORD *34766467142*
+ <GFCN \1aX$DEF-DEV ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+ <TEMP DATA6>
+ <INTGO>
+ <NTHUV CHANNEL4 5 = DATA6>
+ <DEAD CHANNEL4>
+ <FRAME '\1aI$DO-JFNS>
+ <NTHUV DATA6 1 = STACK (TYPE FIX)>
+ <DEAD DATA6>
+ <PUSH 8589934592>
+ <CALL '\1aI$DO-JFNS 2 = DATA6>
+ <RETURN DATA6>
+ <DEAD DATA6>
+ <END \1aX$DEF-DEV>
+
+#WORD *25651047345*
+ <GFCN \1aX$DEF-SNM ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
+ <TEMP DATA7 STR6 TEMP13>
+ <INTGO>
+ <NTHUV CHANNEL4 5 = DATA7>
+ <DEAD CHANNEL4>
+ <FRAME '\1aI$DO-JFNS>
+ <NTHUV DATA7 1 = STACK (TYPE FIX)>
+ <PUSH 1073741824>
+ <CALL '\1aI$DO-JFNS 2 = STR6>
+ <NTHUV DATA7 1 = TEMP13 (TYPE FIX)>
+ <GETBITS TEMP13 18 18 = TEMP13>
+ <VEQUAL? TEMP13 0 - BOOL12 (TYPE FIX)>
+ <DEAD TEMP13>
+ <FRAME '\1aT$GET-DEVICE-TYPE>
+ <NTHUV DATA7 1 = STACK (TYPE FIX)>
+ <DEAD DATA7>
+ <CALL '\1aT$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 '\1aT$GET-CONNECTED-DIR>
+ <CALL '\1aT$GET-CONNECTED-DIR 0 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE10
+ <RETURN STR6>
+ <DEAD STR6>
+ <END \1aX$DEF-SNM>
+
+#WORD *21046032454*
+ <GFCN \1aX$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 '\1aI$DO-JFNS>
+ <NTHUV DATA9 1 = STACK (TYPE FIX)>
+ <DEAD DATA9>
+ <PUSH ARGBITS10>
+ <DEAD ARGBITS10>
+ <CALL '\1aI$DO-JFNS 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aX$DEF-NAME>
+
+#WORD *14070754150*
+ <GFCN \1aI$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 \1aI$DO-JFNS>
+
+#WORD *421616144*
+ <GFCN \1aX$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 \1aX$DEF-FLUSH>
+
+#WORD *13224016071*
+ <GFCN \1aX$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 \1aX$DEF-HACK-DATE>
projects / pdp10-muddle.git / blobdiff