2 Open coding: X$DEF-GET-MODE
3 <GFCN X$DEF-GET-MODE ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
11 <NTHUV CHANNEL4 5 = DATA6> DMOVE A1* 0 CHANNEL4 (F*)
15 <NTHUV DATA6 1 = DATA6 (TYPE FIX)> DMOVE B1* 0 (B2*)
17 <AND DATA6 #WORD *000000777777* = TEMP11> ANDI B2* 262143
20 <SYSOP 'GTSTS TEMP11 (RETURN 2) = DATA6> MOVE A1* B2*
25 JS9 : MOVEI A1* 131072
34 <LESS? DATA6 0 + PHRASE16!-LB (TYPE FIX)> JUMPL A2* #REF [PHRASE16]
36 <RETURN "CLOSED"> DMOVE A1* 4 (M*)
39 <AND DATA6 #WORD *100000000000* = TEMP11> TLNN A2* 32768
42 <VEQUAL? TEMP11 0 + PHRASE19!-LB (TYPE FIX)>
44 <AND DATA6 #WORD *020000000000* = TEMP11> AND A2* #REF [2147483648]
47 <VEQUAL? TEMP11 0 - PHRASE24!-LB (TYPE FIX)> JUMPN A2* #REF [PHRASE24]
50 <RETURN "APPEND"> DMOVE A1* 6 (M*)
53 <RETURN "MODIFY"> DMOVE A1* 8 (M*)
56 <AND DATA6 #WORD *200000000000* = TEMP11> AND A2* #REF [17179869184]
59 <VEQUAL? TEMP11 0 - TAG29!-LB (TYPE FIX)> JUMPN A2* #REF [TAG29]
62 <RETURN %<>> MOVSI A1* 321
66 <RETURN "READ"> DMOVE A1* 10 (M*)
69 2 flushed temporaries.
71 Open coding: X$DEF-GET-BYTE-SIZE
72 <GFCN X$DEF-GET-BYTE-SIZE ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
80 <NTHUV CHANNEL4 5 = DATA6> DMOVE A1* 0 CHANNEL4 (F*)
84 <NTHUV DATA6 1 = DATA6 (TYPE FIX)> DMOVE B1* 0 (B2*)
86 <SYSOP 'RFBSZ DATA6 (RETURN 2) = DATA6> MOVE A1* B2*
91 JS15 : MOVEI A1* 131072
99 <SET TEMP11 DATA6> DMOVE B1* A1*
101 <TYPE? TEMP11 321 + PHRASE16!-LB> LDB O* #REF [19595788291]
102 DMOVEM A1* 0 DATA6 (F*)
103 DMOVEM B1* 0 TEMP11 (F*)
107 <EQUAL? DATA6 7 - PHRASE13!-LB> CAMN A1* #REF [16777216]
111 <RETURN "ASCII"> DMOVE A1* 12 (M*)
114 <EQUAL? DATA6 8 - PHRASE14!-LB> CAMN A1* #REF [16777216]
118 <RETURN "8BIT"> DMOVE A1* 14 (M*)
121 <EQUAL? DATA6 36 - PHRASE15!-LB> CAMN A1* #REF [16777216]
125 <RETURN "BINARY"> DMOVE A1* 16 (M*)
129 <DEAD DATA6> DMOVEM A1* 0 TEMP11 (F*)
131 <RETURN TEMP11> DMOVE A1* 0 TEMP11 (F*)
135 Open coding: X$DEF-SHORT-NAME
136 <GFCN X$DEF-SHORT-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
142 <NTHUV CHANNEL4 5 = DATA6> DMOVE A1* 0 CHANNEL4 (F*)
146 <FRAME ?FRM17!-LB I$DO-JFNS> PUSH TP* #REF [16777216]
149 <NTHUV DATA6 1 = STACK (TYPE FIX)> PUSH TP* 0 (B2*)
153 <PUSH 153092097> PUSH TP* #REF [16777216]
154 PUSH TP* #REF [153092097]
156 <CALL 'I$DO-JFNS 2 = DATA6 ?FRM17!-LB> #GCAL I$DO-JFNS T %<>
158 <RETURN DATA6> JRST @ 148
161 1 flushed temporaries.
163 Open coding: X$DEF-NM1
164 <GFCN X$DEF-NM1 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
170 <NTHUV CHANNEL4 5 = DATA6> DMOVE A1* 0 CHANNEL4 (F*)
174 <FRAME ?FRM22!-LB I$DO-JFNS> PUSH TP* #REF [16777216]
177 <NTHUV DATA6 1 = STACK (TYPE FIX)> PUSH TP* 0 (B2*)
181 <PUSH 134217728> PUSH TP* #REF [16777216]
182 PUSH TP* #REF [134217728]
184 <CALL 'I$DO-JFNS 2 = DATA6 ?FRM22!-LB> #GCAL I$DO-JFNS T %<>
186 <RETURN DATA6> JRST @ 148
189 1 flushed temporaries.
191 Open coding: X$DEF-NM2
192 <GFCN X$DEF-NM2 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
198 <NTHUV CHANNEL4 5 = DATA6> DMOVE A1* 0 CHANNEL4 (F*)
202 <FRAME ?FRM27!-LB I$DO-JFNS> PUSH TP* #REF [16777216]
205 <NTHUV DATA6 1 = STACK (TYPE FIX)> PUSH TP* 0 (B2*)
209 <PUSH 16777216> PUSH TP* #REF [16777216]
210 PUSH TP* #REF [16777216]
212 <CALL 'I$DO-JFNS 2 = DATA6 ?FRM27!-LB> #GCAL I$DO-JFNS T %<>
214 <RETURN DATA6> JRST @ 148
217 1 flushed temporaries.
219 Open coding: X$DEF-DEV
220 <GFCN X$DEF-DEV ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
226 <NTHUV CHANNEL4 5 = DATA6> DMOVE A1* 0 CHANNEL4 (F*)
230 <FRAME ?FRM32!-LB I$DO-JFNS> PUSH TP* #REF [16777216]
233 <NTHUV DATA6 1 = STACK (TYPE FIX)> PUSH TP* 0 (B2*)
237 <PUSH 8589934592> PUSH TP* #REF [16777216]
238 PUSH TP* #REF [8589934592]
240 <CALL 'I$DO-JFNS 2 = DATA6 ?FRM32!-LB> #GCAL I$DO-JFNS T %<>
242 <RETURN DATA6> JRST @ 148
245 1 flushed temporaries.
247 Open coding: X$DEF-SNM
248 <GFCN X$DEF-SNM ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
249 <TEMP DATA7 STR6 TEMP13>
258 <NTHUV CHANNEL4 5 = DATA7> DMOVE A1* 0 CHANNEL4 (F*)
262 <FRAME ?FRM37!-LB I$DO-JFNS> PUSH TP* #REF [16777216]
265 <NTHUV DATA7 1 = STACK (TYPE FIX)> PUSH TP* 0 (B2*)
268 <PUSH 1073741824> PUSH TP* #REF [16777216]
269 PUSH TP* #REF [1073741824]
271 <CALL 'I$DO-JFNS 2 = STR6 ?FRM37!-LB> DMOVEM B1* 0 DATA7 (F*)
272 #GCAL I$DO-JFNS T %<>
274 <NTHUV DATA7 1 = TEMP13 (TYPE FIX)> DMOVE B1* @ 1 DATA7 (F*)
276 <GETBITS TEMP13 18 18 = TEMP13> LDB B2* #REF [19629342724]
278 <VEQUAL? TEMP13 0 - BOOL12!-LB (TYPE FIX)> DMOVEM A1* 0 STR6 (F*)
279 JUMPN B2* #REF [BOOL12]
282 <FRAME 'T$GET-DEVICE-TYPE> JSP T* @ 144
284 <NTHUV DATA7 1 = STACK (TYPE FIX)> DMOVE A1* 0 DATA7 (F*)
289 <CALL 'T$GET-DEVICE-TYPE 1 = TEMP13> MOVE O1* 19 (M*)
293 <EQUAL? TEMP13 0 - PHRASE10!-LB> CAMN A1* #REF [16777216]
297 <DEAD TEMP13> BOOL12 :
298 <TYPE? STR6 321 + BOOL17!-LB> LDB O* #REF [(STR6 19599196160)]
302 <EMPUS? STR6 - PHRASE10!-LB (TYPE STRING)> HRRZ O* 0 STR6 (F*)
303 JUMPN O* #REF [PHRASE10]
305 <FRAME 'T$GET-CONNECTED-DIR> JSP T* @ 144
307 <CALL 'T$GET-CONNECTED-DIR 0 = TEMP13> MOVE O1* 21 (M*)
311 <RETURN TEMP13> JRST @ 148
313 <DEAD TEMP13> PHRASE10 :
314 <RETURN STR6> DMOVE A1* 0 STR6 (F*)
318 1 flushed temporaries.
320 Open coding: X$DEF-NAME
321 <GFCN X$DEF-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY "OPTIONAL" ANY)
322 CHANNEL6 OPER7 BITS8> ADDI O2* 157 (R*)
327 <PUSH 31> PUSH TP* #REF [16777216]
330 <TEMP DATA9 (ARGBITS10:FIX 1) TEMP13>
331 PUSH TP* #REF [16777216]
339 <NTHUV CHANNEL6 5 = DATA9> DMOVE A1* 0 CHANNEL6 (F*)
343 <AND BITS8 #WORD *000000000020* = TEMP13> DMOVE A1* 0 BITS8 (F*)
347 <VEQUAL? TEMP13 0 + PHRASE12!-LB (TYPE FIX)>
349 <OR ARGBITS10 #WORD *100000000000* = ARGBITS10>
350 DMOVE C1* 0 ARGBITS10 (F*)
352 MOVEM C2* 1 ARGBITS10 (F*)
354 <AND BITS8 #WORD *000000000010* = TEMP13> TRNN A2* 8
357 <VEQUAL? TEMP13 0 + PHRASE17!-LB (TYPE FIX)>
359 <OR ARGBITS10 #WORD *010000000000* = ARGBITS10>
360 DMOVE C1* 0 ARGBITS10 (F*)
362 MOVEM C2* 1 ARGBITS10 (F*)
364 <AND BITS8 #WORD *000000000004* = TEMP13> TRNN A2* 4
367 <VEQUAL? TEMP13 0 + PHRASE21!-LB (TYPE FIX)>
369 <OR ARGBITS10 #WORD *001000000000* = ARGBITS10>
370 DMOVE C1* 0 ARGBITS10 (F*)
372 MOVEM C2* 1 ARGBITS10 (F*)
374 <AND BITS8 #WORD *000000000002* = TEMP13> TRNN A2* 2
377 <VEQUAL? TEMP13 0 + PHRASE25!-LB (TYPE FIX)>
379 <OR ARGBITS10 #WORD *000100000000* = ARGBITS10>
380 DMOVE C1* 0 ARGBITS10 (F*)
382 MOVEM C2* 1 ARGBITS10 (F*)
384 <AND BITS8 #WORD *000000000001* = TEMP13> ANDI A2* 1
387 <VEQUAL? TEMP13 0 + PHRASE29!-LB (TYPE FIX)> JUMPE A2* #REF [PHRASE29]
390 <OR ARGBITS10 #WORD *000010000000* = ARGBITS10>
391 DMOVE A1* 0 ARGBITS10 (F*)
393 MOVEM A2* 1 ARGBITS10 (F*)
395 <FRAME ?FRM46!-LB I$DO-JFNS> PUSH TP* #REF [16777216]
398 <NTHUV DATA9 1 = STACK (TYPE FIX)> PUSH TP* 0 (B2*)
402 <PUSH ARGBITS10> PUSH TP* 0 ARGBITS10 (F*)
403 PUSH TP* 1 ARGBITS10 (F*)
406 <CALL 'I$DO-JFNS 2 = TEMP13 ?FRM46!-LB> #GCAL I$DO-JFNS T %<>
408 <RETURN TEMP13> JRST @ 148
411 2 flushed temporaries.
413 Open coding: I$DO-JFNS
414 <GFCN I$DO-JFNS ("VALUE" <OR FALSE STRING> FIX FIX) JFN4 BITS5>
415 <TEMP STR7:STRING TEMP14 CT6 OLD34 NEW35:STRING>
428 <GVAL 'I$NAMSTR = STR7> DMOVE A1* @ 23 (M*)
430 <AND JFN4 #WORD *000000777777* = JFN4> HRRZS B2* 1 JFN4 (TP*)
432 <VEQUAL? JFN4 65 + BOOL11!-LB (TYPE FIX)> CAIN B2* 65
435 <VEQUAL? JFN4 64 - PHRASE10!-LB (TYPE FIX)> CAIE B2* 64
438 <AND BITS5 #WORD *100000000000* = TEMP14> DMOVE C1* 0 BITS5 (TP*)
442 <VEQUAL? TEMP14 0 - PHRASE13!-LB (TYPE FIX)>
444 <RETURN ""> DMOVE A1* 24 (M*)
445 MOVE O* (TP*) <- 2 ,WINNING-VICTIM
447 SUBI TP* ,WINNING-VICTIM
450 <AND BITS5 #WORD *000000000001* = TEMP14> ANDI C2* 1
453 <VEQUAL? TEMP14 0 - PHRASE17!-LB (TYPE FIX)> JUMPN C2* #REF [PHRASE17]
456 <RETURN "TTY"> DMOVE A1* 26 (M*)
457 MOVE O* (TP*) <- 2 ,WINNING-VICTIM
459 SUBI TP* ,WINNING-VICTIM
462 <RETURN "TTY:"> DMOVE A1* 28 (M*)
463 MOVE O* (TP*) <- 2 ,WINNING-VICTIM
465 SUBI TP* ,WINNING-VICTIM
468 <SYSOP 'JFNS STR7 JFN4 BITS5 0 = CT6> DMOVEM A1* 0 STR7 (TP*)
471 MOVE B1* 1 BITS5 (TP*)
477 <SET TEMP14 CT6> DMOVE B1* A1*
479 <TYPE? TEMP14 321 + PHRASE22!-LB> LDB O* #REF [19595788291]
480 DMOVEM A1* 0 CT6 (TP*)
481 DMOVEM B1* 0 TEMP14 (TP*)
485 <UUBLOCK 453 CT6 = CT6 (TYPE STRING)> MOVEI O1* 453
489 <SET TEMP14 STR7 (TYPE STRING)> DMOVE B1* 0 STR7 (TP*)
492 <SET STR7 CT6 (TYPE STRING)> DMOVE C1* A1*
494 <LOOP> DMOVEM A1* 0 CT6 (TP*)
495 DMOVEM B1* 0 TEMP14 (TP*)
498 <EMPUS? TEMP14 + MAPAP27!-LB> HRRZ O* 0 TEMP14 (TP*)
499 JUMPE O* #REF [MAPAP27]
501 <EMPUS? STR7 + MAPAP27!-LB> TRNN C1* 262143
504 <SET OLD34 TEMP14> DMOVE B1* 0 TEMP14 (TP*)
506 <SET NEW35 STR7> DMOVE A1* C1*
508 <NTHUS OLD34 1 = OLD34 (TYPE CHARACTER)> ILDB B2* B2*
510 <PUTUS NEW35 1 OLD34> DMOVEM A1* 0 NEW35 (TP*)
514 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)> SOS O* 0 TEMP14 (TP*)
515 IBP O* 1 TEMP14 (TP*)
517 <RESTUS STR7 1 = STR7 (TYPE STRING)> SUBI C1* 1
520 <JUMP + MAP24!-LB> JRST #REF [MAP24]
522 <SET TEMP14 CT6> DMOVE A1* 0 CT6 (TP*)
524 <DEAD CT6> DMOVEM A1* 0 TEMP14 (TP*)
526 <RETURN TEMP14> DMOVE A1* 0 TEMP14 (TP*)
527 MOVE O* (TP*) <- 2 ,WINNING-VICTIM
529 SUBI TP* ,WINNING-VICTIM
533 Open coding: X$DEF-FLUSH
534 <GFCN X$DEF-FLUSH ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
540 <NTHUV CHANNEL4 5 = DATA6> DMOVE A1* 0 CHANNEL4 (F*)
544 <NTHUV DATA6 1 = DATA6 (TYPE FIX)> DMOVE B1* 0 (B2*)
546 <AND DATA6 #WORD *000000777777* = DATA6> ANDI B2* 262143
548 <OR DATA6 #WORD *004000000000* = DATA6> TLO B2* 2048
550 <SYSOP 'CLOSF DATA6 = DATA6> MOVE A1* B2*
556 JS64 : MOVEI A1* 131072
564 <TYPE? DATA6 321 + PHRASE9!-LB> LDB O* #REF [19595788289]
568 <RETURN DATA6> JRST @ 148
570 <DEAD DATA6> PHRASE9 :
571 <RETURN DATA6> JRST @ 148
574 1 flushed temporaries.
576 Open coding: X$DEF-HACK-DATE
577 <GFCN X$DEF-HACK-DATE ("VALUE" <OR FALSE FIX> CHANNEL ATOM "OPTIONAL" FIX)
578 CHANNEL6 OPR7 NEW8> ADDI O2* 292 (R*)
583 <PUSH #UNBOUND 0 > PUSH TP* #REF [0]
586 <TEMP DATA9 JFN11:FIX TEMP16>
587 PUSH TP* #REF [16777216]
595 <NTHUV CHANNEL6 5 = DATA9> DMOVE A1* 0 CHANNEL6 (F*)
599 <NTHUV DATA9 1 = DATA9 (TYPE FIX)> DMOVE B1* 0 (B2*)
601 <AND DATA9 #WORD *000000777777* = JFN11> ANDI B2* 262143
604 <NTHR 'DATEU 1 = DATA9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG15!-LB)>
606 MOVEM B2* 1 JFN11 (F*)
610 <TYPE? DATA9 <TYPE-CODE FALSE> + TAG15!-LB>
611 <NTHR DATA9 1 = DATA9 (RECORD-TYPE GBIND)> DMOVE A1* (A2*)
613 <TYPE? DATA9 0 - PHRASE14!-LB> LDB O* #REF [19595788289]
614 JUMPN O* #REF [PHRASE14]
617 <UUBLOCK 1990 3 = DATA9> MOVEI O1* 1990
621 <SET TEMP16 DATA9> DMOVE B1* A1*
623 <LOOP (TEMP16 VALUE LENGTH)> ISTR17 :
624 <EMPUU? TEMP16 + ISTRE18!-LB> TRNN B1* 262143
627 <PUTUU TEMP16 1 0> SETZM 0 (B2*)
629 <RESTUU TEMP16 1 = TEMP16> ADDI B2* 1
632 <JUMP + ISTR17!-LB> JRST #REF [ISTR17]
634 <SETG 'DATEU DATA9> DMOVEM A1* @ 33 (M*)
636 <DEAD DATA9> PHRASE14 :
637 <GVAL 'DATEU = TEMP16> DMOVE A1* @ 33 (M*)
639 <TYPE? NEW8 0 - PHRASE20!-LB> LDB O* #REF [(NEW8 19599196160)]
640 DMOVEM A1* 0 TEMP16 (F*)
641 JUMPN O* #REF [PHRASE20]
643 <SYSOP 'RFTAD JFN11 TEMP16 3 = DATA9> MOVE A1* 1 JFN11 (F*)
644 MOVE A2* 1 TEMP16 (F*)
649 <TYPE? DATA9 321 + PHRASE29!-LB> LDB O* #REF [19595788289]
650 DMOVEM A1* 0 DATA9 (F*)
654 <VEQUAL? OPR7 'T$READ-DATE - PHRASE24!-LB> DMOVE B1* 0 OPR7 (F*)
659 <NTHUU TEMP16 3 = DATA9 (TYPE FIX)> DMOVE B1* 0 TEMP16 (F*)
663 <RETURN DATA9> *TRQ*MOVSI A1* 64
666 <DEAD DATA9> PHRASE24 :
667 <NTHUU TEMP16 1 = DATA9 (TYPE FIX)> MOVE A2* @ 1 TEMP16 (F*)
670 <RETURN DATA9> *TRQ*MOVSI A1* 64
673 <DEAD DATA9> PHRASE20 :
674 <PUTUU TEMP16 1 -1> SETOM 0 (A2*)
676 <PUTUU TEMP16 2 -1> SETOM 1 (A2*)
678 <PUTUU TEMP16 3 -1> SETOM 2 (A2*)
680 <VEQUAL? OPR7 'T$READ-DATE - PHRASE27!-LB> DMOVE B1* 0 OPR7 (F*)
685 <PUTUU TEMP16 3 NEW8> DMOVE B1* 0 NEW8 (F*)
688 <JUMP + COND26!-LB> JRST #REF [COND26]
690 <PUTUU TEMP16 1 NEW8> DMOVE B1* 0 NEW8 (F*)
693 <SYSOP 'SFTAD JFN11 TEMP16 3 = DATA9> MOVE A1* 1 JFN11 (F*)
700 JS72 : MOVEI A1* 131072
709 <TYPE? DATA9 321 + PHRASE29!-LB> LDB O* #REF [19595788289]
710 DMOVEM A1* 0 DATA9 (F*)
714 <SET DATA9 NEW8> DMOVE B1* 0 NEW8 (F*)
716 <DEAD NEW8> DMOVEM B1* 0 DATA9 (F*)
718 <RETURN DATA9> DMOVE A1* 0 DATA9 (F*)
724 [Code: 414 / Vector: 36]