3 <GFCN
\1aX$DEF-GET-MODE ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
6 <NTHUV CHANNEL4 5 = DATA6>
8 <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
10 <AND DATA6 #WORD *177777* = TEMP11>
13 <AND DATA6 #WORD *777777* = TEMP11>
16 <SYSOP 'GTSTS TEMP11 (RETURN 2) = DATA6>
18 <LESS? DATA6 0 + PHRASE16 (TYPE FIX)>
21 <AND DATA6 #WORD *100000000000* = TEMP11>
22 <VEQUAL? TEMP11 0 + PHRASE19 (TYPE FIX)>
24 <AND DATA6 #WORD *20000000000* = TEMP11>
26 <VEQUAL? TEMP11 0 - PHRASE24 (TYPE FIX)>
32 <AND DATA6 #WORD *200000000000* = TEMP11>
34 <VEQUAL? TEMP11 0 - TAG29 (TYPE FIX)>
39 <END
\1aX$DEF-GET-MODE>
42 <GFCN
\1aX$DEF-GET-BYTE-SIZE ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
45 <NTHUV CHANNEL4 5 = DATA6>
47 <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
48 <SYSOP 'RFBSZ DATA6 (RETURN 2) = DATA6>
50 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE16>
51 <EQUAL? DATA6 7 - PHRASE13>
54 <EQUAL? DATA6 8 - PHRASE14>
57 <EQUAL? DATA6 36 - PHRASE15>
65 <END
\1aX$DEF-GET-BYTE-SIZE>
68 <GFCN
\1aX$DEF-SHORT-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
71 <NTHUV CHANNEL4 5 = DATA6>
74 <NTHUV DATA6 1 = STACK (TYPE FIX)>
77 <CALL '
\1aI$DO-JFNS 2 = DATA6>
80 <END
\1aX$DEF-SHORT-NAME>
83 <GFCN
\1aX$DEF-NM1 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
86 <NTHUV CHANNEL4 5 = DATA6>
89 <NTHUV DATA6 1 = STACK (TYPE FIX)>
92 <CALL '
\1aI$DO-JFNS 2 = DATA6>
98 <GFCN
\1aX$DEF-NM2 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
101 <NTHUV CHANNEL4 5 = DATA6>
103 <FRAME '
\1aI$DO-JFNS>
104 <NTHUV DATA6 1 = STACK (TYPE FIX)>
107 <CALL '
\1aI$DO-JFNS 2 = DATA6>
113 <GFCN
\1aX$DEF-DEV ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
116 <NTHUV CHANNEL4 5 = DATA6>
118 <FRAME '
\1aI$DO-JFNS>
119 <NTHUV DATA6 1 = STACK (TYPE FIX)>
122 <CALL '
\1aI$DO-JFNS 2 = DATA6>
128 <GFCN
\1aX$DEF-SNM ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
129 <TEMP DATA7 STR6 TEMP13>
131 <NTHUV CHANNEL4 5 = DATA7>
133 <FRAME '
\1aI$DO-JFNS>
134 <NTHUV DATA7 1 = STACK (TYPE FIX)>
136 <CALL '
\1aI$DO-JFNS 2 = STR6>
137 <NTHUV DATA7 1 = TEMP13 (TYPE FIX)>
138 <GETBITS TEMP13 18 18 = TEMP13>
139 <VEQUAL? TEMP13 0 - BOOL12 (TYPE FIX)>
141 <FRAME '
\1aT$GET-DEVICE-TYPE>
142 <NTHUV DATA7 1 = STACK (TYPE FIX)>
144 <CALL '
\1aT$GET-DEVICE-TYPE 1 = TEMP13>
145 <EQUAL? TEMP13 0 - PHRASE10>
148 <TYPE? STR6 <TYPE-CODE FALSE> + BOOL17>
149 <EMPUS? STR6 - PHRASE10 (TYPE STRING)>
151 <FRAME '
\1aT$GET-CONNECTED-DIR>
152 <CALL '
\1aT$GET-CONNECTED-DIR 0 = TEMP13>
161 <GFCN
\1aX$DEF-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY "OPTIONAL" ANY) CHANNEL6 OPER7 BITS8>
162 <OPT-DISPATCH 2 %<> OPT4 OPT5>
166 <TEMP DATA9 (ARGBITS10:FIX 1) TEMP13>
168 <NTHUV CHANNEL6 5 = DATA9>
170 <AND BITS8 #WORD *20* = TEMP13>
171 <VEQUAL? TEMP13 0 + PHRASE12 (TYPE FIX)>
173 <OR ARGBITS10 #WORD *100000000000* = ARGBITS10>
175 <AND BITS8 #WORD *10* = TEMP13>
176 <VEQUAL? TEMP13 0 + PHRASE17 (TYPE FIX)>
178 <OR ARGBITS10 #WORD *10000000000* = ARGBITS10>
180 <AND BITS8 #WORD *4* = TEMP13>
181 <VEQUAL? TEMP13 0 + PHRASE21 (TYPE FIX)>
183 <OR ARGBITS10 #WORD *1000000000* = ARGBITS10>
185 <AND BITS8 #WORD *2* = TEMP13>
186 <VEQUAL? TEMP13 0 + PHRASE25 (TYPE FIX)>
188 <OR ARGBITS10 #WORD *100000000* = ARGBITS10>
190 <AND BITS8 #WORD *1* = TEMP13>
192 <VEQUAL? TEMP13 0 + PHRASE29 (TYPE FIX)>
194 <OR ARGBITS10 #WORD *10000000* = ARGBITS10>
196 <FRAME '
\1aI$DO-JFNS>
197 <NTHUV DATA9 1 = STACK (TYPE FIX)>
201 <CALL '
\1aI$DO-JFNS 2 = TEMP13>
207 <GFCN
\1aI$DO-JFNS ("VALUE" <OR FALSE STRING> FIX FIX) JFN4 BITS5>
208 <TEMP STR7:STRING TEMP14 CT6 OLD34 NEW35:STRING>
210 <GVAL 'I$NAMSTR = STR7>
211 <AND JFN4 #WORD *777777* = JFN4>
212 <VEQUAL? JFN4 65 + BOOL11 (TYPE FIX)>
213 <VEQUAL? JFN4 64 - PHRASE10 (TYPE FIX)>
215 <AND BITS5 #WORD *100000000000* = TEMP14>
216 <VEQUAL? TEMP14 0 - PHRASE13 (TYPE FIX)>
220 <AND BITS5 #WORD *1* = TEMP14>
222 <VEQUAL? TEMP14 0 - PHRASE17 (TYPE FIX)>
228 <SYSOP 'JFNS STR7 JFN4 BITS5 0 = CT6>
231 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
232 <UUBLOCK <TYPE-CODE STRING> CT6 = CT6 (TYPE STRING)>
233 <SET TEMP14 STR7 (TYPE STRING)>
235 <SET STR7 CT6 (TYPE STRING)>
239 <EMPUS? TEMP14 + MAPAP27>
240 <EMPUS? STR7 + MAPAP27>
243 <NTHUS OLD34 1 = OLD34 (TYPE CHARACTER)>
244 <PUTUS NEW35 1 OLD34>
246 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
247 <RESTUS STR7 1 = STR7 (TYPE STRING)>
258 <GFCN
\1aX$DEF-FLUSH ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
261 <NTHUV CHANNEL4 5 = DATA6>
263 <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
264 <AND DATA6 #WORD *777777* = DATA6>
265 <OR DATA6 #WORD *4000000000* = DATA6>
266 <SYSOP 'CLOSF DATA6 = DATA6>
267 <TYPE? DATA6 <TYPE-CODE FALSE> + PHRASE9>
276 <GFCN
\1aX$DEF-HACK-DATE ("VALUE" <OR FALSE FIX> CHANNEL ATOM "OPTIONAL" FIX) CHANNEL6 OPR7 NEW8>
277 <OPT-DISPATCH 2 %<> OPT4 OPT5>
281 <TEMP DATA9 JFN11:FIX TEMP16>
283 <NTHUV CHANNEL6 5 = DATA9>
285 <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
286 <AND DATA9 #WORD *777777* = JFN11>
288 <NTHR 'DATEU 1 = DATA9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG15)>
289 <TYPE? DATA9 <TYPE-CODE FALSE> + TAG15>
290 <NTHR DATA9 1 = DATA9 (RECORD-TYPE GBIND)>
291 <TYPE? DATA9 <TYPE-CODE UNBOUND> - PHRASE14>
294 <UUBLOCK <TYPE-CODE UVECTOR> 3 = DATA9>
296 <LOOP (TEMP16 VALUE LENGTH)>
298 <EMPUU? TEMP16 + ISTRE18>
300 <RESTUU TEMP16 1 = TEMP16>
306 <GVAL 'DATEU = TEMP16>
307 <TYPE? NEW8 <TYPE-CODE UNBOUND> - PHRASE20>
308 <SYSOP 'RFTAD JFN11 TEMP16 3 = DATA9>
310 <TYPE? DATA9 <TYPE-CODE FALSE> + PHRASE29>
311 <VEQUAL? OPR7 'T$READ-DATE - PHRASE24>
313 <NTHUU TEMP16 3 = DATA9 (TYPE FIX)>
318 <NTHUU TEMP16 1 = DATA9 (TYPE FIX)>
326 <VEQUAL? OPR7 'T$READ-DATE - PHRASE27>
328 <PUTUU TEMP16 3 NEW8>
331 <PUTUU TEMP16 1 NEW8>
333 <SYSOP 'SFTAD JFN11 TEMP16 3 = DATA9>
335 <TYPE? DATA9 <TYPE-CODE FALSE> + PHRASE29>
341 <END
\1aX$DEF-HACK-DATE>