4 <ENTRY TERM-MOVE? NORMAL-OUT IMAGE-OUT SET-IMAGE-MODE SET-ECHO-MODE CLEAR-SCREEN CLEAR-EOL CLEAR-EOS KILL-CHAR ERASE-CHAR HOME-CURSOR BOTTOM-CURSOR HOR-POS-CURSOR VER-POS-CURSOR MOVE-CURSOR BACK-CURSOR DOWN-CURSOR UP-CURSOR FORWARD-CURSOR SAVE-CURSOR RESTORE-CURSOR INSERT-LINE INSERT-CHAR GET-TYPE PAD TYPE-AHEAD? TYPE-CHAR SET-CURSOR-POSITION>
10 <NEW-CHANNEL-TYPE TTY (TWAY DEFAULT) GET-TYPE TTY-GET-TYPE QUERY TTY-QUERY OPEN TTY-OPEN TYPE-AHEAD? TTY-TYPE-AHEAD? READ-BYTE-IMMEDIATE TTY-READ-IMMEDIATE READ-BYTE TTY-READ-BYTE READ-BUFFER TTY-READ-BUFFER FILL-READ-BUFFER TTY-FILL-READ BUFLEN TTY-BUFLEN GET-READ-BUFFER TTY-GET-READ PRINT-DATA TTY-PRINT-DATA TERM-MOVE? TTY-TERM-MOVE? NORMAL-OUT TTY-NORMAL-OUT IMAGE-OUT TTY-IMAGE-OUT SET-IMAGE-MODE TTY-SET-IMAGE SET-ECHO-MODE TTY-SET-ECHO RESET TTY-RESET PAGE-WIDTH TTY-PARM PAGE-HEIGHT TTY-PARM PAGE-X TTY-PARM PAGE-Y TTY-PARM SET-CURSOR-POSITION TTY-SET-CURS CLEAR-SCREEN CLEAR-SCREEN CLEAR-EOL CLEAR-EOL CLEAR-EOS CLEAR-EOS FRESH-LINE FRESH-LINE KILL-CHAR KILL-CHAR ERASE-CHAR ERASE-CHAR HOME-CURSOR HOME-CURSOR BOTTOM-CURSOR BOTTOM-CURSOR HOR-POS-CURSOR HOR-POS-CURSOR VER-POS-CURSOR VER-POS-CURSOR MOVE-CURSOR MOVE-CURSOR BACK-CURSOR BACK-CURSOR DOWN-CURSOR DOWN-CURSOR UP-CURSOR UP-CURSOR FORWARD-CURSOR FORWARD-CURSOR SAVE-CURSOR SAVE-CURSOR RESTORE-CURSOR RESTORE-CURSOR INSERT-LINE INSERT-LINE INSERT-CHAR INSERT-CHAR PAD TTY-PAD TYPE-CHAR TTY-TYPE-CHAR>
12 "This must be patterned according to the definition of TWAY-CHANNEL, so the
13 TWAY code will work when it's wanted."
15 <SETG TT-RJFN %<OFFSET 1 TTY-CHANNEL FIX>>
19 <SETG TT-MODE %<OFFSET 2 TTY-CHANNEL FIX>>
23 <SETG TT-BSZ %<OFFSET 3 TTY-CHANNEL FIX>>
27 <SETG TT-RBUF %<OFFSET 4 TTY-CHANNEL '<OR FALSE STRING>>>
31 <SETG TT-RBC %<OFFSET 5 TTY-CHANNEL FIX>>
35 <SETG TT-WJFN %<OFFSET 6 TTY-CHANNEL FIX>>
39 <SETG TT-WBUF %<OFFSET 7 TTY-CHANNEL '<OR FALSE STRING>>>
43 <SETG TT-WBC %<OFFSET 8 TTY-CHANNEL FIX>>
47 <SETG TT-RFSAV %<OFFSET 9 TTY-CHANNEL FIX>>
51 <SETG TT-RFCUR %<OFFSET 10 TTY-CHANNEL FIX>>
55 <SETG TT-QUEUE %<OFFSET 11 TTY-CHANNEL '<OR STRING CHARACTER FALSE>>>
59 <SETG TT-QCT %<OFFSET 12 TTY-CHANNEL FIX>>
63 <NEWTYPE TTY-CHANNEL VECTOR '<<PRIMTYPE VECTOR> FIX FIX FIX <OR FALSE STRING> FIX FIX <OR FALSE STRING> FIX FIX FIX <OR STRING CHARACTER FALSE> FIX>>
65 <SETG TYPE-NAMES ["35" "37" "TI" "IMLAC" "DM2500" "HP2645" "NVT" "SYSTEM" "TVT" "VT05" "VT50" "LA30" "LINEPROCESSOR?" "LA36" "VT52" "GLASS" "FOX" "VT100V" "T1061" "H19" "C100" "VT100" "LA38" "LA120" "PTV" "SUPDUP" "HP2640" "AAA" "BBN"]>
68 <GFCN
\1aTTY-GET-TYPE ("VALUE" STRING CHANNEL ANY) CHANNEL4 OPER5>
69 <TEMP DATA6 VEC7:VECTOR TEMP11>
71 <NTHUV CHANNEL4 5 = DATA6 (TYPE TTY-CHANNEL)>
73 <GVAL 'TYPE-NAMES = VEC7>
74 <NTHUV DATA6 1 = TEMP11 (TYPE FIX)>
76 <SYSOP 'GTTYP TEMP11 (RETURN 2) = DATA6>
78 <LENUV VEC7 = TEMP11 (TYPE FIX)>
79 <GRTR? DATA6 TEMP11 - PHRASE13 (TYPE FIX)>
83 <NTHUV VEC7 DATA6 = TEMP11 (TYPE STRING)>
89 <GFCN
\1aTTY-TYPE-AHEAD? ("VALUE" <OR FALSE FIX> CHANNEL ANY) CHANNEL4 OPER5>
92 <NTHUV CHANNEL4 5 = DATA6 (TYPE TTY-CHANNEL)>
94 <NTHUV DATA6 12 = QC8 (TYPE FIX)>
95 <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
96 <SYSOP 'SIBE DATA6 (RETURN 2) = DATA6>
97 <TYPE? DATA6 <TYPE-CODE FALSE> + PHRASE10>
98 <VEQUAL? DATA6 0 + PHRASE10 (TYPE FIX)>
99 <ADD DATA6 QC8 = DATA6 (TYPE FIX)>
104 <GRTR? QC8 0 + TAG16 (TYPE FIX)>
109 <END
\1aTTY-TYPE-AHEAD?>
112 <FCN
\1aTTY-READ-IMMEDIATE ("VALUE" <OR CHARACTER FALSE> CHANNEL ANY "OPTIONAL" <OR ATOM FALSE>) CHANNEL6 OPER7 NOWAIT?8>
113 <OPT-DISPATCH 2 %<> OPT4 OPT5>
117 <TEMP DATA9:TTY-CHANNEL (TEMP16 0) ECHO?11 IMAGE?12 TEMP3:LBIND TEMP25 TEMP39>
119 <NTHUV CHANNEL6 5 = DATA9 (TYPE TTY-CHANNEL)>
120 <NTHUV DATA9 10 = TEMP16 (TYPE FIX)>
121 <AND TEMP16 #WORD *4000* = TEMP16>
122 <VEQUAL? TEMP16 0 - TAG14 (TYPE FIX)>
124 <SET ECHO?11 %<> (TYPE FALSE)>
127 <SET ECHO?11 'T (TYPE ATOM)>
129 <NTHUV DATA9 10 = TEMP16 (TYPE FIX)>
130 <AND TEMP16 #WORD *300* = TEMP16>
131 <VEQUAL? TEMP16 0 - TAG19 (TYPE FIX)>
133 <SET IMAGE?12 'T (TYPE ATOM)>
136 <SET IMAGE?12 %<> (TYPE FALSE)>
138 <GETS 'BIND = TEMP3 (TYPE LBIND)>
139 <LOCATION + TAG23 = TEMP16>
140 <CFRAME = TEMP25 (TYPE FRAME)>
141 <BBIND 'UNWIND TEMP16 'FIX TEMP25>
146 <FRAME '
\1aDUMP-WRITE-BUFFER>
148 <CALL '
\1aDUMP-WRITE-BUFFER 1>
149 <FRAME '
\1aGET-QUEUE-CHAR>
151 <CALL '
\1aGET-QUEUE-CHAR 1 = TEMP16>
152 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE33>
153 <VEQUAL? IMAGE?12 0 - PHRASE65>
155 <VEQUAL? ECHO?11 0 + PHRASE65>
157 <NTHUV DATA9 6 = TEMP25 (TYPE FIX)>
159 <CHTYPE TEMP16 <TYPE-CODE FIX> = TEMP39>
160 <SYSOP 'BOUT TEMP25 TEMP39>
164 <TYPE? NOWAIT?8 <TYPE-CODE FALSE> + TAG43>
165 <NTHUV DATA9 1 = TEMP39 (TYPE FIX)>
166 <SYSOP 'SIBE TEMP39 (RETURN 2) = TEMP25>
169 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE65>
170 <VEQUAL? TEMP25 0 - TAG43 (TYPE FIX)>
172 <SET TEMP16 %<> (TYPE FALSE)>
175 <VEQUAL? IMAGE?12 0 - PHRASE47>
176 <FRAME '
\1aTTY-SET-IMAGE>
181 <CALL '
\1aTTY-SET-IMAGE 4>
184 <NTHUV DATA9 1 = TEMP25 (TYPE FIX)>
185 <SYSOP 'BIN TEMP25 (RETURN 2) = TEMP16>
188 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE50>
189 <CHTYPE TEMP16 <TYPE-CODE CHARACTER> = TEMP16>
192 <NTHL TEMP16 1 = TEMP25>
194 <EQUAL? TEMP25 196752 - PHRASE54>
196 <SET TEMP16 'T (TYPE ATOM)>
199 <SET TEMP16 %<> (TYPE FALSE)>
201 <VEQUAL? IMAGE?12 0 - PHRASE60>
202 <FRAME '
\1aTTY-SET-IMAGE>
206 <CALL '
\1aTTY-SET-IMAGE 3>
207 <VEQUAL? ECHO?11 0 + PHRASE60>
208 <TYPE? TEMP16 <TYPE-CODE CHARACTER> - PHRASE60>
209 <NTHUV DATA9 6 = TEMP25 (TYPE FIX)>
210 <CHTYPE TEMP16 <TYPE-CODE FIX> = TEMP39>
211 <SYSOP 'BOUT TEMP25 TEMP39>
214 <TYPE? TEMP16 <TYPE-CODE ATOM> + AGAIN30>
215 <TYPE? TEMP16 <TYPE-CODE FIX> - PHRASE65>
216 <SET TEMP16 %<> (TYPE FALSE)>
218 <NTHR 'UNWIND 2 = TEMP39 (RECORD-TYPE ATOM) (TYPE LBIND)>
219 <PUTR TEMP39 1 0 (RECORD-TYPE LBIND)>
223 <VEQUAL? IMAGE?12 0 - UNWCONT>
224 <FRAME '
\1aTTY-SET-IMAGE>
228 <CALL '
\1aTTY-SET-IMAGE 3>
236 <END
\1aTTY-READ-IMMEDIATE>
238 <GFCN
\1aTTY-READ-BYTE ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
239 <TEMP DATA6:TTY-CHANNEL TEMP10>
241 <NTHUV CHANNEL4 5 = DATA6 (TYPE TTY-CHANNEL)>
242 <NTHUV DATA6 4 = TEMP10>
243 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
245 <NTHUV DATA6 5 = TEMP10 (TYPE FIX)>
247 <VEQUAL? TEMP10 0 - PHRASE8 (TYPE FIX)>
251 <FRAME '
\1aTWAY-READ-BYTE>
256 <CALL '
\1aTWAY-READ-BYTE 2 = TEMP10>
259 <END
\1aTTY-READ-BYTE>
261 <GFCN
\1aTTY-READ-BUFFER ("VALUE" ANY CHANNEL ANY STRING "OPTIONAL" FIX FIX) TTY7 OPER8 BUF9 LEN10 CONT11>
262 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
270 <TYPE? LEN10 <TYPE-CODE UNBOUND> - TAG13>
271 <LENUS BUF9 = LEN10 (TYPE FIX)>
273 <NTHUV TTY7 5 = DATA12 (TYPE TTY-CHANNEL)>
274 <NTHUV DATA12 4 = TEMP17>
275 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE16>
277 <FRAME '
\1aTWAY-READ-BUFFER>
288 <CALL '
\1aTWAY-READ-BUFFER 5 = TEMP17>
292 <NTHUV DATA12 1 = DATA12 (TYPE FIX)>
293 <LENUS BUF9 = TEMP17 (TYPE FIX)>
294 <GRTR? TEMP17 LEN10 - TAG22>
295 <SET TEMP17 LEN10 (TYPE FIX)>
298 <READ DATA12 BUF9 TEMP17 CONT11 = TEMP17>
299 <DEAD DATA12 BUF9 CONT11>
302 <END
\1aTTY-READ-BUFFER>
304 <GFCN
\1aTTY-GET-READ ("VALUE" <OR FALSE STRING> CHANNEL ANY "OPTIONAL" STRING) TTY6 OPER7 NEW8>
305 <OPT-DISPATCH 2 %<> OPT4 OPT5>
311 <NTHUV TTY6 5 = DATA9 (TYPE TTY-CHANNEL)>
313 <TYPE? NEW8 <TYPE-CODE UNBOUND> + PHRASE11>
319 <NTHUV DATA9 4 = DATA9>
322 <END
\1aTTY-GET-READ>
324 <GFCN
\1aTTY-BUFLEN ("VALUE" FIX CHANNEL ANY "OPTIONAL" FIX) TTY6 OPER7 NEW8>
325 <OPT-DISPATCH 2 %<> OPT4 OPT5>
331 <NTHUV TTY6 5 = DATA9 (TYPE TTY-CHANNEL)>
333 <TYPE? NEW8 <TYPE-CODE UNBOUND> + PHRASE11>
334 <PUTUV DATA9 5 NEW8 (TYPE FIX)>
339 <NTHUV DATA9 5 = DATA9 (TYPE FIX)>
344 <GFCN
\1aTTY-FILL-READ ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX <OR STRING FALSE> <OR STRING FALSE> <OR ATOM FALSE>) TTY9 OPER10 CONT11 RBUF12 END13 NOMORE14>
345 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
355 <TEMP DATA15:TTY-CHANNEL OB16 BUF17 TEMP25 TS19 PROMPT21 TEMP68 OLD73:STRING NEW74:STRING TEMP96>
357 <NTHUV TTY9 5 = DATA15 (TYPE TTY-CHANNEL)>
358 <NTHUV DATA15 4 = OB16 (TYPE STRING)>
360 <GEN-ASSIGNED? 'READ-PROMPT + TAG27>
361 <SET TEMP25 %<> (TYPE FALSE)>
364 <GEN-LVAL 'READ-PROMPT = TS19>
365 <TYPE? TS19 <TYPE-CODE STRING> + TAG32>
366 <SET TEMP25 %<> (TYPE FALSE)>
375 <TYPE? TEMP25 <TYPE-CODE FALSE> - BOOL35>
376 <SET TEMP25 "" (TYPE STRING)>
381 <SBLOCK <TYPE-CODE STRING> 2 = PROMPT21 (TYPE STRING)>
382 <LENUS PROMPT21 = TEMP25>
384 <ADD TEMP25 4 = TEMP25>
385 <DIV TEMP25 5 = TEMP25>
388 <ADD TEMP25 3 = TEMP25>
389 <DIV TEMP25 4 = TEMP25>
391 <SUB 0 TEMP25 = TEMP25>
392 <TYPE? TS19 <TYPE-CODE FALSE> - PHRASE37>
394 <SET PROMPT21 %<> (TYPE FALSE)>
396 <TYPE? END13 <TYPE-CODE FALSE> - PHRASE39>
397 <GEN-ASSIGNED? 'READ-BREAKS + TAG44>
398 <SET TS19 %<> (TYPE FALSE)>
401 <GEN-LVAL 'READ-BREAKS = TS19>
402 <TYPE? TS19 <TYPE-CODE STRING> + TAG49>
403 <SET TS19 %<> (TYPE FALSE)>
408 <TYPE? RBUF12 <TYPE-CODE FALSE> + PHRASE52>
414 <NTHUV DATA15 5 = TS19 (TYPE FIX)>
415 <VEQUAL? TS19 0 - PHRASE53 (TYPE FIX)>
417 <VEQUAL? CONT11 0 + COND51 (TYPE FIX)>
418 <BACKU OB16 CONT11 = OB16>
419 <VEQUAL? OB16 BUF17 + COND51>
420 <SET TS19 OB16 (TYPE STRING)>
422 <SET TEMP68 BUF17 (TYPE STRING)>
426 <EMPUS? TS19 + COND51>
427 <EMPUS? TEMP68 + COND51>
430 <NTHUS OLD73 1 = OB16 (TYPE CHARACTER)>
434 <RESTUS TS19 1 = TS19 (TYPE STRING)>
435 <RESTUS TEMP68 1 = TEMP68 (TYPE STRING)>
438 <SET CONT11 0 (TYPE FIX)>
440 <VEQUAL? CONT11 0 - PHRASE77 (TYPE FIX)>
441 <TYPE? PROMPT21 <TYPE-CODE FALSE> + PHRASE77>
442 <FRAME '
\1aTWAY-WRITE-BUFFER>
446 <LENUS PROMPT21 = TEMP68 (TYPE FIX)>
447 <SUB TEMP68 1 = STACK (TYPE FIX)>
449 <CALL '
\1aTWAY-WRITE-BUFFER 4>
451 <RESTUS BUF17 CONT11 = TEMP68 (TYPE STRING)>
455 <FRAME '
\1aGET-QUEUE-CHAR>
457 <CALL '
\1aGET-QUEUE-CHAR 1 = OB16>
458 <TYPE? OB16 <TYPE-CODE FALSE> + EXIT82>
459 <PUTUS TEMP68 1 OB16>
460 <RESTUS TEMP68 1 = TEMP68 (TYPE STRING)>
461 <ADD CONT11 1 = CONT11 (TYPE FIX)>
462 <FRAME '
\1aTWAY-WRITE-BYTE>
467 <CALL '
\1aTWAY-WRITE-BYTE 3>
470 <FRAME '
\1aDUMP-WRITE-BUFFER>
472 <CALL '
\1aDUMP-WRITE-BUFFER 1>
476 <NTHUV DATA15 1 = TEMP68 (TYPE FIX)>
477 <LENUS BUF17 = TS19 (TYPE FIX)>
479 <TYPE? OB16 <TYPE-CODE FALSE> - BOOL94>
480 <SET OB16 0 (TYPE FIX)>
482 <SET TEMP96 PROMPT21>
483 <TYPE? TEMP96 <TYPE-CODE FALSE> - BOOL95>
484 <SET TEMP96 0 (TYPE FIX)>
486 <READ TEMP68 BUF17 TS19 CONT11 OB16 TEMP96 = OB16>
487 <DEAD TEMP68 TS19 CONT11 TEMP96>
488 <TYPE? NOMORE14 <TYPE-CODE FALSE> - PHRASE98>
489 <LENUS BUF17 = TEMP68 (TYPE FIX)>
490 <EQUAL? TEMP68 OB16 - PHRASE98>
492 <LENUS BUF17 = TEMP68 (TYPE FIX)>
493 <ADD TEMP68 320 = TEMP68 (TYPE FIX)>
494 <UUBLOCK <TYPE-CODE STRING> TEMP68 = TEMP96 (TYPE STRING)>
496 <PUTUV DATA15 4 TEMP96>
498 <SET TEMP96 BUF17 (TYPE STRING)>
500 <NTHUV DATA15 4 = TEMP68 (TYPE STRING)>
504 <EMPUS? TEMP96 + MAPAP104>
505 <EMPUS? TEMP68 + MAPAP104>
508 <NTHUS OLD73 1 = BUF17 (TYPE CHARACTER)>
510 <PUTUS NEW74 1 BUF17>
512 <RESTUS TEMP96 1 = TEMP96 (TYPE STRING)>
513 <RESTUS TEMP68 1 = TEMP68 (TYPE STRING)>
516 <NTHUV DATA15 4 = BUF17 (TYPE STRING)>
521 <TYPE? RBUF12 <TYPE-CODE FALSE> - PHRASE113>
523 <PUTUV DATA15 4 BUF17>
525 <PUTUV DATA15 5 OB16>
528 <SUB TEMP25 2 = TEMP25 (TYPE FIX)>
533 <END
\1aTTY-FILL-READ>
535 <GFCN
\1aTTY-TERM-MOVE? ("VALUE" <OR ATOM !<FALSE>> CHANNEL ANY) TTY4 OPER5>
538 <NTHUV TTY4 5 = DATA6 (TYPE TTY-CHANNEL)>
540 <NTHUV DATA6 6 = DATA6 (TYPE FIX)>
541 <SYSOP 'RTCHR DATA6 (RETURN 2) = DATA6>
542 <AND DATA6 #WORD *400000000000* = DATA6>
543 <VEQUAL? DATA6 0 - TAG7 (TYPE FIX)>
548 <END
\1aTTY-TERM-MOVE?>
550 <GFCN
\1aTTY-NORMAL-OUT ("VALUE" <OR CHARACTER FALSE FIX> CHANNEL ANY <OR BYTES STRING CHARACTER> "OPTIONAL" ANY) TTY6 OPER7 CHRS8 LENGTH9>
551 <OPT-DISPATCH 3 %<> OPT4 OPT5>
557 <FRAME '
\1aTTY-SET-IMAGE>
559 <PUSH 'SET-IMAGE-MODE>
561 <CALL '
\1aTTY-SET-IMAGE 3>
562 <TYPE? CHRS8 <TYPE-CODE STRING> - PHRASE13>
563 <FRAME '
\1aTWAY-WRITE-BUFFER>
569 <TYPE? LENGTH9 <TYPE-CODE FALSE> + PHRASE16>
574 <LENUS CHRS8 = DATA10 (TYPE FIX)>
579 <CALL '
\1aTWAY-WRITE-BUFFER 4 = DATA10>
583 <FRAME '
\1aTWAY-WRITE-BYTE>
590 <CALL '
\1aTWAY-WRITE-BYTE 3 = DATA10>
593 <END
\1aTTY-NORMAL-OUT>
595 <GFCN
\1aTTY-IMAGE-OUT ("VALUE" FIX CHANNEL ANY <OR FIX CHARACTER STRING BYTES> "OPTIONAL" <OR FIX FALSE> "TUPLE" <TUPLE [REST <OR FIX BYTES STRING CHARACTER>]>) TTY6 OPER7 CHRS8 LENGTH9>
596 <OPT-DISPATCH 3 4 OPT4 OPT5>
600 <MAKTUP MORE10 DATA11 TEMP24:FIX X26 = MORE10>
602 <FRAME '
\1aTTY-SET-IMAGE>
604 <PUSH 'SET-IMAGE-MODE>
606 <CALL '
\1aTTY-SET-IMAGE 3>
607 <FRAME '
\1aWRITE-STUFF>
614 <CALL '
\1aWRITE-STUFF 4 = DATA11>
615 <SET TEMP24 0 (TYPE FIX)>
616 <CHTYPE MORE10 <TYPE-CODE VECTOR> = MORE10>
620 <EMPUV? MORE10 + MAPAP19>
621 <NTHUV MORE10 1 = X26>
622 <FRAME '
\1aWRITE-STUFF>
628 <CALL '
\1aWRITE-STUFF 4 = X26>
629 <ADD TEMP24 X26 = TEMP24>
631 <RESTUV MORE10 1 = MORE10 (TYPE VECTOR)>
634 <ADD DATA11 TEMP24 = DATA11 (TYPE FIX)>
638 <END
\1aTTY-IMAGE-OUT>
639 <SETG BUFSTR <ISTRING 12>>
642 <GFCN
\1aWRITE-STUFF ("VALUE" <OR FALSE FIX> CHANNEL ANY <OR STRING FIX CHARACTER> <OR FIX FALSE>) TTY4 OPER5 CHRS6 LENGTH7>
643 <TEMP BS8:STRING (NEG?9 %<>) TEMP20>
646 <TYPE? CHRS6 <TYPE-CODE STRING> + TAG12>
647 <TYPE? CHRS6 <TYPE-CODE BYTES> - PHRASE11>
649 <FRAME '
\1aTWAY-WRITE-BUFFER>
655 <TYPE? LENGTH7 <TYPE-CODE FALSE> + PHRASE15>
660 <LENUS CHRS6 = NEG?9 (TYPE FIX)>
665 <CALL '
\1aTWAY-WRITE-BUFFER 4 = NEG?9>
669 <TYPE? CHRS6 <TYPE-CODE CHARACTER> - PHRASE17>
670 <FRAME '
\1aTWAY-WRITE-BYTE>
677 <CALL '
\1aTWAY-WRITE-BYTE 3>
680 <LENUS BS8 = TEMP20 (TYPE FIX)>
681 <RESTUS BS8 TEMP20 = BS8 (TYPE STRING)>
683 <LESS? CHRS6 0 - PHRASE22 (TYPE FIX)>
684 <SET NEG?9 'T (TYPE ATOM)>
685 <SUB 0 CHRS6 = CHRS6 (TYPE FIX)>
687 <SET TEMP20 %<> (TYPE FALSE)>
691 <VEQUAL? CHRS6 0 - PHRASE30 (TYPE FIX)>
692 <VEQUAL? TEMP20 0 - PHRASE34>
698 <VEQUAL? NEG?9 0 + PHRASE35>
703 <FRAME '
\1aTWAY-WRITE-BUFFER>
709 <LENUS BS8 = STACK (TYPE FIX)>
710 <CALL '
\1aTWAY-WRITE-BUFFER 4>
711 <LENUS BS8 = NEG?9 (TYPE FIX)>
716 <MOD CHRS6 10 = TEMP20 (TYPE FIX)>
717 <DIV CHRS6 10 = CHRS6 (TYPE FIX)>
719 <ADD TEMP20 48 = TEMP20 (TYPE FIX)>
720 <CHTYPE TEMP20 <TYPE-CODE CHARACTER> = TEMP20>
723 <SET TEMP20 'T (TYPE ATOM)>
727 <GFCN
\1aTTY-OPEN ("VALUE" <OR FALSE TTY-CHANNEL> ANY ANY "OPTIONAL" ANY ANY ANY ANY ANY) STYPE10 OPR11 NAME12 MODE13 BSZ14 OBUF?15 IBUF?16>
728 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8 OPT9>
740 <TEMP TO21 IJFN18 VAL20>
742 <TYPE? IBUF?16 <TYPE-CODE UNBOUND> - COND24>
743 <TYPE? BSZ14 <TYPE-CODE STRING> - PHRASE25>
744 <SET IBUF?16 'T (TYPE ATOM)>
750 <TYPE? OBUF?15 <TYPE-CODE UNBOUND> - COND28>
751 <TYPE? MODE13 <TYPE-CODE STRING> - PHRASE29>
752 <SET OBUF?15 %<> (TYPE FALSE)>
758 <TYPE? NAME12 <TYPE-CODE FALSE> - PHRASE31>
759 <SET TO21 65 (TYPE FIX)>
760 <SET IJFN18 64 (TYPE FIX)>
769 <CALL '
\1aGET-JFN 4 = TO21>
770 <TYPE? TO21 <TYPE-CODE FALSE> + PHRASE32>
777 <SYSOP 'RFMOD TO21 (RETURN 2) = VAL20>
784 <TYPE? IJFN18 <TYPE-CODE FALSE> + PHRASE38>
785 <UUBLOCK <TYPE-CODE STRING> 320 = IJFN18 (TYPE STRING)>
794 <TYPE? IJFN18 <TYPE-CODE FALSE> + PHRASE41>
795 <UUBLOCK <TYPE-CODE STRING> 320 = IJFN18 (TYPE STRING)>
807 <UBLOCK <TYPE-CODE VECTOR> 14 = IJFN18>
808 <CHTYPE IJFN18 <TYPE-CODE TTY-CHANNEL> = IJFN18>
813 <GFCN
\1aTTY-SET-ECHO ("VALUE" CHANNEL CHANNEL ANY <OR ATOM FALSE>) TTY4 OPER5 ON?6>
816 <NTHUV TTY4 5 = DATA7 (TYPE TTY-CHANNEL)>
817 <NTHUV DATA7 10 = TEMP11 (TYPE FIX)>
818 <AND TEMP11 #WORD *4000* = TEMP11>
819 <VEQUAL? TEMP11 0 - TAG9 (TYPE FIX)>
821 <SET TEMP11 %<> (TYPE FALSE)>
824 <SET TEMP11 'T (TYPE ATOM)>
826 <VEQUAL? TEMP11 ON?6 + PHRASE15>
828 <NTHUV DATA7 10 = TEMP11 (TYPE FIX)>
829 <XOR TEMP11 #WORD *4000* = TEMP11>
830 <PUTUV DATA7 10 TEMP11 (TYPE FIX)>
832 <NTHUV DATA7 1 = TEMP11 (TYPE FIX)>
833 <NTHUV DATA7 10 = DATA7 (TYPE FIX)>
834 <SYSOP 'SFMOD TEMP11 DATA7>
839 <END
\1aTTY-SET-ECHO>
841 <GFCN
\1aTTY-SET-IMAGE ("VALUE" CHANNEL CHANNEL ANY <OR ATOM FALSE> "OPTIONAL" ANY) TTY6 OPER7 ON?8 SCREW?9>
842 <OPT-DISPATCH 3 %<> OPT4 OPT5>
846 <TEMP DATA10:TTY-CHANNEL TEMP12 TEMP27:FIX>
848 <NTHUV TTY6 5 = DATA10 (TYPE TTY-CHANNEL)>
849 <NTHUV DATA10 10 = TEMP12 (TYPE FIX)>
850 <AND TEMP12 #WORD *300* = TEMP12>
851 <VEQUAL? TEMP12 0 - TAG13 (TYPE FIX)>
853 <SET TEMP12 'T (TYPE ATOM)>
856 <SET TEMP12 %<> (TYPE FALSE)>
858 <VEQUAL? TEMP12 ON?8 + PHRASE18>
860 <FRAME '
\1aTWAY-BUFOUT>
864 <CALL '
\1aTWAY-BUFOUT 3>
865 <TYPE? ON?8 <TYPE-CODE FALSE> + PHRASE21>
866 <TYPE? SCREW?9 <TYPE-CODE FALSE> + PHRASE21>
868 <NTHUV DATA10 1 = TEMP12 (TYPE FIX)>
869 <SYSOP 'SFPOS TEMP12 -1>
872 <TYPE? ON?8 <TYPE-CODE FALSE> + PHRASE24>
874 <NTHUV DATA10 10 = TEMP12 (TYPE FIX)>
875 <AND TEMP12 #WORD *777777777477* = TEMP12>
878 <NTHUV DATA10 10 = TEMP12 (TYPE FIX)>
879 <NTHUV DATA10 9 = TEMP27 (TYPE FIX)>
880 <AND TEMP27 #WORD *300* = TEMP27>
881 <OR TEMP12 TEMP27 = TEMP12>
884 <PUTUV DATA10 10 TEMP12 (TYPE FIX)>
886 <NTHUV DATA10 1 = TEMP12 (TYPE FIX)>
887 <NTHUV DATA10 10 = TEMP27 (TYPE FIX)>
889 <SYSOP 'SFMOD TEMP12 TEMP27>
894 <END
\1aTTY-SET-IMAGE>
898 <GFCN
\1aTTY-RESET ("VALUE" CHANNEL CHANNEL ANY "OPTIONAL" ANY <OR ATOM FALSE>) TTY7 OPER8 NEW?9 FLUSH?10>
899 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
905 <TEMP DATA11:TTY-CHANNEL TEMP14 TEMP20>
907 <NTHUV TTY7 5 = DATA11 (TYPE TTY-CHANNEL)>
908 <TYPE? NEW?9 <TYPE-CODE FALSE> + PHRASE13>
910 <NTHUV DATA11 1 = TEMP14 (TYPE FIX)>
911 <SYSOP 'RFMOD TEMP14 (RETURN 2) = TEMP14>
912 <PUTUV DATA11 10 TEMP14>
914 <FRAME '
\1aTTY-SET-IMAGE>
918 <CALL '
\1aTTY-SET-IMAGE 3>
919 <FRAME '
\1aTTY-SET-ECHO>
924 <CALL '
\1aTTY-SET-ECHO 3>
925 <NTHUV DATA11 10 = TEMP14 (TYPE FIX)>
926 <PUTUV DATA11 9 TEMP14 (TYPE FIX)>
930 <NTHUV DATA11 10 = TEMP14 (TYPE FIX)>
931 <NTHUV DATA11 9 = TEMP20 (TYPE FIX)>
932 <VEQUAL? TEMP14 TEMP20 + PHRASE19 (TYPE FIX)>
934 <NTHUV DATA11 1 = TEMP20 (TYPE FIX)>
935 <NTHUV DATA11 9 = TEMP14 (TYPE FIX)>
936 <SYSOP 'SFMOD TEMP20 TEMP14>
938 <NTHUV DATA11 9 = TEMP20 (TYPE FIX)>
939 <PUTUV DATA11 10 TEMP20 (TYPE FIX)>
942 <TYPE? FLUSH?10 <TYPE-CODE FALSE> + PHRASE22>
944 <NTHUV DATA11 1 = TEMP20 (TYPE FIX)>
945 <SYSOP 'CFIBF TEMP20>
948 <NTHUV DATA11 4 = TEMP20>
949 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE24>
951 <PUTUV DATA11 5 0 (TYPE FIX)>
952 <NTHUV DATA11 4 = TEMP20 (TYPE STRING)>
953 <TOPU TEMP20 = TEMP20>
954 <PUTUV DATA11 4 TEMP20>
957 <NTHUV DATA11 7 = TEMP20>
958 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE26>
960 <PUTUV DATA11 8 0 (TYPE FIX)>
961 <NTHUV DATA11 7 = TEMP20 (TYPE STRING)>
962 <TOPU TEMP20 = TEMP20>
963 <PUTUV DATA11 7 TEMP20>
966 <PUTUV DATA11 12 0 (TYPE FIX)>
972 <GFCN
\1aTTY-QUERY ("VALUE" <OR ATOM FALSE> CHANNEL ANY FIX) CHANNEL4 OPER5 BIT6>
975 <NTHUV CHANNEL4 5 = DATA7 (TYPE TTY-CHANNEL)>
977 <VEQUAL? BIT6 2 + TAG11 (TYPE FIX)>
981 <NTHUV DATA7 4 = DATA7>
982 <TYPE? DATA7 <TYPE-CODE FALSE> + PHRASE13>
983 <SET DATA7 'T (TYPE ATOM)>
991 <GFCN
\1aTTY-SET-CURS ("VALUE" ATOM CHANNEL ANY FIX FIX) TTY4 OPER5 X6 Y7>
992 <TEMP DATA8 SU11 TEMP16:FIX>
994 <NTHUV TTY4 5 = DATA8 (TYPE TTY-CHANNEL)>
995 <NTHUV TTY4 6 = SU11>
997 <TYPE? SU11 <TYPE-CODE MUD-CHAN> - PHRASE14>
998 <PUTUV SU11 4 Y7 (TYPE FIX)>
999 <PUTUV SU11 2 X6 (TYPE FIX)>
1002 <NTHUV DATA8 1 = DATA8 (TYPE FIX)>
1004 <PUTBITS X6 16 16 Y7 = TEMP16>
1007 <PUTBITS X6 18 18 Y7 = TEMP16>
1010 <SYSOP 'SFPOS DATA8 TEMP16>
1013 <END
\1aTTY-SET-CURS>
1015 <GFCN
\1aTTY-PARM ("VALUE" ANY CHANNEL ATOM "OPTIONAL" FIX) TTY6 OPER7 NEW8>
1016 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1020 <TEMP DATA9 TEMP14 RN27:FIX TEMP29:FIX TEMP46:FIX>
1022 <NTHUV TTY6 5 = DATA9 (TYPE TTY-CHANNEL)>
1024 <VEQUAL? OPER7 'PAGE-WIDTH - PHRASE11>
1025 <TYPE? NEW8 <TYPE-CODE UNBOUND> + PHRASE13>
1026 <NTHUV DATA9 1 = TEMP14 (TYPE FIX)>
1028 <SYSOP 'MTOPR TEMP14 25 NEW8 (RETURN 3) = TEMP14>
1033 <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
1034 <SYSOP 'MTOPR DATA9 24 (RETURN 3) = TEMP14>
1039 <VEQUAL? OPER7 'PAGE-HEIGHT - PHRASE17>
1040 <TYPE? NEW8 <TYPE-CODE UNBOUND> + PHRASE19>
1041 <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
1042 <SYSOP 'MTOPR DATA9 27 NEW8 (RETURN 3) = TEMP14>
1047 <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
1048 <SYSOP 'MTOPR DATA9 26 (RETURN 3) = TEMP14>
1053 <VEQUAL? OPER7 'PAGE-X - PHRASE21>
1054 <TYPE? NEW8 <TYPE-CODE UNBOUND> + PHRASE23>
1055 <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
1056 <SYSOP 'RFPOS DATA9 (RETURN 2) = TEMP14>
1060 <PUTBITS TEMP14 16 0 RN27 = TEMP29>
1063 <PUTBITS TEMP14 18 0 RN27 = TEMP29>
1066 <SYSOP 'SFPOS DATA9 TEMP29 (RETURN 2) = TEMP14>
1072 <NTHUV DATA9 1 = TEMP14 (TYPE FIX)>
1073 <SYSOP 'RFPOS TEMP14 (RETURN 2) = TEMP14>
1074 <AND TEMP14 #WORD *177777* = TEMP14>
1077 <NTHUV DATA9 1 = TEMP14 (TYPE FIX)>
1079 <SYSOP 'RFPOS TEMP14 (RETURN 2) = TEMP14>
1080 <AND TEMP14 #WORD *777777* = TEMP14>
1085 <VEQUAL? OPER7 'PAGE-Y + TAG38>
1089 <TYPE? NEW8 <TYPE-CODE UNBOUND> + PHRASE40>
1090 <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
1091 <SYSOP 'RFPOS DATA9 (RETURN 2) = TEMP14>
1095 <PUTBITS TEMP14 16 16 RN27 = TEMP46>
1098 <PUTBITS TEMP14 18 18 RN27 = TEMP46>
1101 <SYSOP 'SFPOS DATA9 TEMP46 (RETURN 2) = TEMP14>
1107 <NTHUV DATA9 1 = TEMP14 (TYPE FIX)>
1108 <SYSOP 'RFPOS TEMP14 (RETURN 2) = TEMP14>
1109 <GETBITS TEMP14 16 16 = TEMP14>
1112 <NTHUV DATA9 1 = TEMP14 (TYPE FIX)>
1114 <SYSOP 'RFPOS TEMP14 (RETURN 2) = TEMP14>
1115 <GETBITS TEMP14 18 18 = TEMP14>
1123 <GFCN
\1aINSERT-LINE ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX <OR FIX FALSE> <OR FIX FALSE>) TTY8 OPER9 N10 TOP11 BOT12>
1124 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
1132 <TEMP DATA13 TEMP18 TEMP49:FIX>
1134 <NTHUV TTY8 5 = DATA13 (TYPE TTY-CHANNEL)>
1136 <VEQUAL? N10 0 - PHRASE15 (TYPE FIX)>
1139 <TYPE? TOP11 <TYPE-CODE FALSE> - PHRASE19>
1140 <TYPE? BOT12 <TYPE-CODE FALSE> - PHRASE19>
1141 <NTHUV DATA13 7 = TEMP18>
1142 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE25>
1144 <NTHUV DATA13 8 = TEMP18 (TYPE FIX)>
1145 <VEQUAL? TEMP18 0 + PHRASE25 (TYPE FIX)>
1147 <FRAME '
\1aDUMP-WRITE-BUFFER>
1149 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1151 <NTHUV DATA13 6 = TEMP18 (TYPE FIX)>
1153 <SYSOP 'VTSOP TEMP18 17179869202 N10 = TEMP18>
1158 <TYPE? TOP11 <TYPE-CODE FALSE> - EXIT34>
1160 <NTHUV DATA13 1 = TEMP18 (TYPE FIX)>
1161 <SYSOP 'RFPOS TEMP18 (RETURN 2) = TEMP18>
1162 <GETBITS TEMP18 16 16 = TOP11>
1166 <NTHUV DATA13 1 = TEMP18 (TYPE FIX)>
1167 <SYSOP 'RFPOS TEMP18 (RETURN 2) = TEMP18>
1168 <GETBITS TEMP18 18 18 = TOP11>
1172 <TYPE? BOT12 <TYPE-CODE FALSE> - PHRASE38>
1173 <NTHUV DATA13 1 = TEMP18 (TYPE FIX)>
1174 <SYSOP 'MTOPR TEMP18 26 (RETURN 3) = TEMP18>
1175 <SUB TEMP18 1 = BOT12 (TYPE FIX)>
1178 <NTHUV DATA13 7 = TEMP18>
1179 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE42>
1181 <NTHUV DATA13 8 = TEMP18 (TYPE FIX)>
1182 <VEQUAL? TEMP18 0 + PHRASE42 (TYPE FIX)>
1184 <FRAME '
\1aDUMP-WRITE-BUFFER>
1186 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1188 <NTHUV DATA13 6 = TEMP18 (TYPE FIX)>
1190 <LSH TOP11 18 = DATA13 (TYPE FIX)>
1192 <AND BOT12 #WORD *777777* = TEMP49>
1194 <OR DATA13 TEMP49 = DATA13>
1196 <SYSOP 'VTSOP TEMP18 25769803794 N10 DATA13 = TEMP18>
1200 <END
\1aINSERT-LINE>
1202 <GFCN
\1aINSERT-CHAR ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX <OR FIX FALSE> <OR FIX FALSE>) TTY8 OPER9 N10 LEFT11 RIGHT12>
1203 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
1211 <TEMP DATA13 TEMP24>
1213 <NTHUV TTY8 5 = DATA13>
1215 <TYPE? LEFT11 <TYPE-CODE FALSE> - PHRASE15>
1216 <TYPE? RIGHT12 <TYPE-CODE FALSE> - PHRASE15>
1217 <NTHUV DATA13 7 = TEMP24>
1218 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE22>
1220 <NTHUV DATA13 8 = TEMP24 (TYPE FIX)>
1221 <VEQUAL? TEMP24 0 + PHRASE22 (TYPE FIX)>
1223 <FRAME '
\1aDUMP-WRITE-BUFFER>
1225 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1227 <NTHUV DATA13 6 = TEMP24 (TYPE FIX)>
1229 <SYSOP 'VTSOP TEMP24 17179869203 N10 = DATA13>
1234 <TYPE? LEFT11 <TYPE-CODE FALSE> - EXIT31>
1236 <NTHUV DATA13 1 = TEMP24 (TYPE FIX)>
1237 <SYSOP 'RFPOS TEMP24 (RETURN 2) = TEMP24>
1238 <AND TEMP24 #WORD *177777* = LEFT11>
1242 <NTHUV DATA13 1 = TEMP24 (TYPE FIX)>
1243 <SYSOP 'RFPOS TEMP24 (RETURN 2) = TEMP24>
1244 <AND TEMP24 #WORD *777777* = LEFT11>
1248 <TYPE? RIGHT12 <TYPE-CODE FALSE> - PHRASE35>
1249 <NTHUV DATA13 1 = TEMP24 (TYPE FIX)>
1250 <SYSOP 'MTOPR TEMP24 24 (RETURN 3) = TEMP24>
1251 <SUB TEMP24 1 = RIGHT12 (TYPE FIX)>
1254 <NTHUV DATA13 7 = TEMP24>
1255 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE39>
1257 <NTHUV DATA13 8 = TEMP24 (TYPE FIX)>
1258 <VEQUAL? TEMP24 0 + PHRASE39 (TYPE FIX)>
1260 <FRAME '
\1aDUMP-WRITE-BUFFER>
1262 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1264 <NTHUV DATA13 6 = TEMP24 (TYPE FIX)>
1266 <AND RIGHT12 #WORD *777777000000* = DATA13>
1268 <OR DATA13 LEFT11 = DATA13>
1270 <SYSOP 'VTSOP TEMP24 25769803795 N10 DATA13 = DATA13>
1274 <END
\1aINSERT-CHAR>
1278 <GFCN
\1aCLEAR-SCREEN ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1281 <NTHUV TTY4 6 = SU9>
1282 <TYPE? SU9 <TYPE-CODE MUD-CHAN> - PHRASE12>
1283 <PUTUV SU9 4 0 (TYPE FIX)>
1284 <PUTUV SU9 2 0 (TYPE FIX)>
1287 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1289 <TYPE? SU9 <TYPE-CODE FALSE> + PHRASE18>
1291 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1292 <NTHUV SU9 8 = SU9 (TYPE FIX)>
1293 <VEQUAL? SU9 0 + PHRASE18 (TYPE FIX)>
1295 <FRAME '
\1aDUMP-WRITE-BUFFER>
1296 <NTHUV TTY4 5 = STACK>
1297 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1299 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1301 <NTHUV SU9 6 = SU9 (TYPE FIX)>
1302 <SYSOP 'VTSOP SU9 13 = SU9>
1305 <END
\1aCLEAR-SCREEN>
1307 <GFCN
\1aCLEAR-EOL ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1310 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1311 <NTHUV TEMP13 7 = TEMP13>
1312 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1314 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1315 <NTHUV TEMP13 8 = TEMP13 (TYPE FIX)>
1316 <VEQUAL? TEMP13 0 + PHRASE11 (TYPE FIX)>
1318 <FRAME '
\1aDUMP-WRITE-BUFFER>
1319 <NTHUV TTY4 5 = STACK>
1320 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1322 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1324 <NTHUV TEMP13 6 = TEMP13 (TYPE FIX)>
1325 <SYSOP 'VTSOP TEMP13 15 = TEMP13>
1330 <GFCN
\1aCLEAR-EOS ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1333 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1334 <NTHUV TEMP13 7 = TEMP13>
1335 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1337 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1338 <NTHUV TEMP13 8 = TEMP13 (TYPE FIX)>
1339 <VEQUAL? TEMP13 0 + PHRASE11 (TYPE FIX)>
1341 <FRAME '
\1aDUMP-WRITE-BUFFER>
1342 <NTHUV TTY4 5 = STACK>
1343 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1345 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1347 <NTHUV TEMP13 6 = TEMP13 (TYPE FIX)>
1348 <SYSOP 'VTSOP TEMP13 14 = TEMP13>
1353 <GFCN
\1aFRESH-LINE ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX) TTY6 OPER7 N8>
1354 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1360 <NTHUV TTY6 6 = SU11>
1361 <TYPE? SU11 <TYPE-CODE MUD-CHAN> - PHRASE14>
1362 <PUTUV SU11 2 0 (TYPE FIX)>
1365 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1366 <NTHUV SU11 7 = SU11>
1367 <TYPE? SU11 <TYPE-CODE FALSE> + PHRASE20>
1369 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1370 <NTHUV SU11 8 = SU11 (TYPE FIX)>
1371 <VEQUAL? SU11 0 + PHRASE20 (TYPE FIX)>
1373 <FRAME '
\1aDUMP-WRITE-BUFFER>
1374 <NTHUV TTY6 5 = STACK>
1375 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1377 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1379 <NTHUV SU11 6 = SU11 (TYPE FIX)>
1380 <SYSOP 'VTSOP SU11 17179869194 N8 = SU11>
1386 <GFCN
\1aKILL-CHAR ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1389 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1390 <NTHUV TEMP13 7 = TEMP13>
1391 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1393 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1394 <NTHUV TEMP13 8 = TEMP13 (TYPE FIX)>
1395 <VEQUAL? TEMP13 0 + PHRASE11 (TYPE FIX)>
1397 <FRAME '
\1aDUMP-WRITE-BUFFER>
1398 <NTHUV TTY4 5 = STACK>
1399 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1401 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1403 <NTHUV TEMP13 6 = TEMP13 (TYPE FIX)>
1404 <SYSOP 'VTSOP TEMP13 16 = TEMP13>
1409 <GFCN
\1aERASE-CHAR ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX) TTY6 OPER7 N8>
1410 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1416 <NTHUV TTY6 6 = SU9>
1417 <TYPE? SU9 <TYPE-CODE MUD-CHAN> - PHRASE15>
1418 <NTHUV SU9 2 = TEMP16 (TYPE FIX)>
1419 <SUB TEMP16 N8 = TEMP16 (TYPE FIX)>
1420 <PUTUV SU9 2 TEMP16 (TYPE FIX)>
1423 <NTHUV TTY6 5 = SU9 (TYPE TTY-CHANNEL)>
1425 <TYPE? SU9 <TYPE-CODE FALSE> + PHRASE21>
1427 <NTHUV TTY6 5 = SU9 (TYPE TTY-CHANNEL)>
1428 <NTHUV SU9 8 = SU9 (TYPE FIX)>
1429 <VEQUAL? SU9 0 + PHRASE21 (TYPE FIX)>
1431 <FRAME '
\1aDUMP-WRITE-BUFFER>
1432 <NTHUV TTY6 5 = STACK>
1433 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1435 <NTHUV TTY6 5 = SU9 (TYPE TTY-CHANNEL)>
1437 <NTHUV SU9 6 = SU9 (TYPE FIX)>
1438 <SYSOP 'VTSOP SU9 17179869201 N8 = TEMP16>
1445 "SUBTITLE Cursor movement of various sorts"
1448 <GFCN
\1aHOME-CURSOR ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1451 <NTHUV TTY4 6 = SU8>
1452 <TYPE? SU8 <TYPE-CODE MUD-CHAN> - PHRASE11>
1453 <PUTUV SU8 4 0 (TYPE FIX)>
1454 <PUTUV SU8 2 0 (TYPE FIX)>
1457 <NTHUV TTY4 5 = SU8 (TYPE TTY-CHANNEL)>
1459 <TYPE? SU8 <TYPE-CODE FALSE> + PHRASE17>
1461 <NTHUV TTY4 5 = SU8 (TYPE TTY-CHANNEL)>
1462 <NTHUV SU8 8 = SU8 (TYPE FIX)>
1463 <VEQUAL? SU8 0 + PHRASE17 (TYPE FIX)>
1465 <FRAME '
\1aDUMP-WRITE-BUFFER>
1466 <NTHUV TTY4 5 = STACK>
1467 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1469 <NTHUV TTY4 5 = SU8 (TYPE TTY-CHANNEL)>
1471 <NTHUV SU8 6 = SU8 (TYPE FIX)>
1472 <SYSOP 'VTSOP SU8 8 = SU8>
1475 <END
\1aHOME-CURSOR>
1477 <GFCN
\1aBOTTOM-CURSOR ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1480 <NTHUV TTY4 6 = SU8>
1481 <TYPE? SU8 <TYPE-CODE MUD-CHAN> - PHRASE11>
1482 <PUTUV SU8 2 0 (TYPE FIX)>
1485 <NTHUV TTY4 5 = SU8 (TYPE TTY-CHANNEL)>
1487 <TYPE? SU8 <TYPE-CODE FALSE> + PHRASE17>
1489 <NTHUV TTY4 5 = SU8 (TYPE TTY-CHANNEL)>
1490 <NTHUV SU8 8 = SU8 (TYPE FIX)>
1491 <VEQUAL? SU8 0 + PHRASE17 (TYPE FIX)>
1493 <FRAME '
\1aDUMP-WRITE-BUFFER>
1494 <NTHUV TTY4 5 = STACK>
1495 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1497 <NTHUV TTY4 5 = SU8 (TYPE TTY-CHANNEL)>
1499 <NTHUV SU8 6 = SU8 (TYPE FIX)>
1500 <SYSOP 'VTSOP SU8 9 = SU8>
1503 <END
\1aBOTTOM-CURSOR>
1505 <GFCN
\1aHOR-POS-CURSOR ("VALUE" ANY CHANNEL ANY ANY) TTY4 OPER5 X6>
1508 <NTHUV TTY4 6 = SU9>
1509 <TYPE? SU9 <TYPE-CODE MUD-CHAN> - PHRASE12>
1513 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1515 <TYPE? SU9 <TYPE-CODE FALSE> + PHRASE18>
1517 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1518 <NTHUV SU9 8 = SU9 (TYPE FIX)>
1519 <VEQUAL? SU9 0 + PHRASE18 (TYPE FIX)>
1521 <FRAME '
\1aDUMP-WRITE-BUFFER>
1522 <NTHUV TTY4 5 = STACK>
1523 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1525 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1527 <NTHUV SU9 6 = SU9 (TYPE FIX)>
1528 <SYSOP 'VTSOP SU9 17179869189 X6 = SU9>
1532 <END
\1aHOR-POS-CURSOR>
1534 <GFCN
\1aVER-POS-CURSOR ("VALUE" ANY CHANNEL ANY ANY) TTY4 OPER5 Y6>
1537 <NTHUV TTY4 6 = SU9>
1538 <TYPE? SU9 <TYPE-CODE MUD-CHAN> - PHRASE12>
1542 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1544 <TYPE? SU9 <TYPE-CODE FALSE> + PHRASE18>
1546 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1547 <NTHUV SU9 8 = SU9 (TYPE FIX)>
1548 <VEQUAL? SU9 0 + PHRASE18 (TYPE FIX)>
1550 <FRAME '
\1aDUMP-WRITE-BUFFER>
1551 <NTHUV TTY4 5 = STACK>
1552 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1554 <NTHUV TTY4 5 = SU9 (TYPE TTY-CHANNEL)>
1556 <NTHUV SU9 6 = SU9 (TYPE FIX)>
1557 <SYSOP 'VTSOP SU9 17179869190 Y6 = SU9>
1561 <END
\1aVER-POS-CURSOR>
1563 <GFCN
\1aMOVE-CURSOR ("VALUE" ANY CHANNEL ANY ANY ANY) TTY4 OPER5 X6 Y7>
1564 <TEMP CD8 SU11 TEMP27:FIX>
1566 <NTHUV TTY4 5 = CD8 (TYPE TTY-CHANNEL)>
1567 <NTHUV TTY4 6 = SU11>
1569 <TYPE? SU11 <TYPE-CODE MUD-CHAN> - PHRASE14>
1574 <NTHUV CD8 6 = SU11 (TYPE FIX)>
1575 <SYSOP 'SFPOS SU11 -1>
1577 <NTHUV CD8 7 = SU11>
1578 <TYPE? SU11 <TYPE-CODE FALSE> + PHRASE20>
1580 <NTHUV CD8 8 = SU11 (TYPE FIX)>
1581 <VEQUAL? SU11 0 + PHRASE20 (TYPE FIX)>
1583 <FRAME '
\1aDUMP-WRITE-BUFFER>
1585 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1587 <NTHUV CD8 6 = SU11 (TYPE FIX)>
1589 <LSH Y7 18 = CD8 (TYPE FIX)>
1591 <AND X6 #WORD *777777* = TEMP27>
1593 <OR CD8 TEMP27 = CD8>
1595 <SYSOP 'VTSOP SU11 17179869191 CD8 = SU11>
1599 <END
\1aMOVE-CURSOR>
1601 <GFCN
\1aBACK-CURSOR ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX) TTY6 OPER7 N8>
1602 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1608 <NTHUV TTY6 6 = SU11>
1609 <TYPE? SU11 <TYPE-CODE MUD-CHAN> - PHRASE14>
1610 <NTHUV SU11 2 = TEMP15 (TYPE FIX)>
1611 <SUB TEMP15 N8 = TEMP15 (TYPE FIX)>
1612 <PUTUV SU11 2 TEMP15 (TYPE FIX)>
1615 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1616 <NTHUV SU11 7 = SU11>
1617 <TYPE? SU11 <TYPE-CODE FALSE> + PHRASE20>
1619 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1620 <NTHUV SU11 8 = SU11 (TYPE FIX)>
1621 <VEQUAL? SU11 0 + PHRASE20 (TYPE FIX)>
1623 <FRAME '
\1aDUMP-WRITE-BUFFER>
1624 <NTHUV TTY6 5 = STACK>
1625 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1627 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1629 <NTHUV SU11 6 = SU11 (TYPE FIX)>
1630 <SYSOP 'VTSOP SU11 17179869186 N8 = TEMP15>
1634 <END
\1aBACK-CURSOR>
1636 <GFCN
\1aDOWN-CURSOR ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX) TTY6 OPER7 N8>
1637 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1643 <NTHUV TTY6 6 = SU11>
1644 <TYPE? SU11 <TYPE-CODE MUD-CHAN> - PHRASE14>
1645 <NTHUV SU11 4 = TEMP15 (TYPE FIX)>
1646 <ADD TEMP15 N8 = TEMP15 (TYPE FIX)>
1647 <PUTUV SU11 4 TEMP15 (TYPE FIX)>
1650 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1651 <NTHUV SU11 7 = SU11>
1652 <TYPE? SU11 <TYPE-CODE FALSE> + PHRASE20>
1654 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1655 <NTHUV SU11 8 = SU11 (TYPE FIX)>
1656 <VEQUAL? SU11 0 + PHRASE20 (TYPE FIX)>
1658 <FRAME '
\1aDUMP-WRITE-BUFFER>
1659 <NTHUV TTY6 5 = STACK>
1660 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1662 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1664 <NTHUV SU11 6 = SU11 (TYPE FIX)>
1665 <SYSOP 'VTSOP SU11 17179869188 N8 = TEMP15>
1669 <END
\1aDOWN-CURSOR>
1671 <GFCN
\1aUP-CURSOR ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX) TTY6 OPER7 N8>
1672 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1678 <NTHUV TTY6 6 = SU11>
1679 <TYPE? SU11 <TYPE-CODE MUD-CHAN> - PHRASE14>
1680 <NTHUV SU11 4 = TEMP15 (TYPE FIX)>
1681 <SUB TEMP15 N8 = TEMP15 (TYPE FIX)>
1682 <PUTUV SU11 4 TEMP15 (TYPE FIX)>
1685 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1686 <NTHUV SU11 7 = SU11>
1687 <TYPE? SU11 <TYPE-CODE FALSE> + PHRASE20>
1689 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1690 <NTHUV SU11 8 = SU11 (TYPE FIX)>
1691 <VEQUAL? SU11 0 + PHRASE20 (TYPE FIX)>
1693 <FRAME '
\1aDUMP-WRITE-BUFFER>
1694 <NTHUV TTY6 5 = STACK>
1695 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1697 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1699 <NTHUV SU11 6 = SU11 (TYPE FIX)>
1700 <SYSOP 'VTSOP SU11 17179869187 N8 = TEMP15>
1706 <GFCN
\1aFORWARD-CURSOR ("VALUE" ANY CHANNEL ANY "OPTIONAL" FIX) TTY6 OPER7 N8>
1707 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1713 <NTHUV TTY6 6 = SU11>
1714 <TYPE? SU11 <TYPE-CODE MUD-CHAN> - PHRASE14>
1715 <NTHUV SU11 2 = TEMP15 (TYPE FIX)>
1716 <ADD TEMP15 N8 = TEMP15 (TYPE FIX)>
1717 <PUTUV SU11 2 TEMP15 (TYPE FIX)>
1720 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1721 <NTHUV SU11 7 = SU11>
1722 <TYPE? SU11 <TYPE-CODE FALSE> + PHRASE20>
1724 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1725 <NTHUV SU11 8 = SU11 (TYPE FIX)>
1726 <VEQUAL? SU11 0 + PHRASE20 (TYPE FIX)>
1728 <FRAME '
\1aDUMP-WRITE-BUFFER>
1729 <NTHUV TTY6 5 = STACK>
1730 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1732 <NTHUV TTY6 5 = SU11 (TYPE TTY-CHANNEL)>
1734 <NTHUV SU11 6 = SU11 (TYPE FIX)>
1735 <SYSOP 'VTSOP SU11 17179869185 N8 = TEMP15>
1739 <END
\1aFORWARD-CURSOR>
1743 <GFCN
\1aSAVE-CURSOR ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1746 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1747 <NTHUV TEMP13 7 = TEMP13>
1748 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1750 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1751 <NTHUV TEMP13 8 = TEMP13 (TYPE FIX)>
1752 <VEQUAL? TEMP13 0 + PHRASE11 (TYPE FIX)>
1754 <FRAME '
\1aDUMP-WRITE-BUFFER>
1755 <NTHUV TTY4 5 = STACK>
1756 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1758 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1760 <NTHUV TEMP13 6 = TEMP13 (TYPE FIX)>
1761 <SYSOP 'VTSOP TEMP13 11 = TEMP13>
1764 <END
\1aSAVE-CURSOR>
1766 <GFCN
\1aRESTORE-CURSOR ("VALUE" ANY CHANNEL ANY) TTY4 OPER5>
1769 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1770 <NTHUV TEMP13 7 = TEMP13>
1771 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1773 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1774 <NTHUV TEMP13 8 = TEMP13 (TYPE FIX)>
1775 <VEQUAL? TEMP13 0 + PHRASE11 (TYPE FIX)>
1777 <FRAME '
\1aDUMP-WRITE-BUFFER>
1778 <NTHUV TTY4 5 = STACK>
1779 <CALL '
\1aDUMP-WRITE-BUFFER 1>
1781 <NTHUV TTY4 5 = TEMP13 (TYPE TTY-CHANNEL)>
1783 <NTHUV TEMP13 6 = TEMP13 (TYPE FIX)>
1784 <SYSOP 'VTSOP TEMP13 12 = TEMP13>
1787 <END
\1aRESTORE-CURSOR>
1789 <GFCN
\1aTTY-PAD ("VALUE" ATOM CHANNEL ANY FIX) TTY4 OPER5 AMT6>
1792 <NTHUV TTY4 5 = DATA7 (TYPE TTY-CHANNEL)>
1793 <NTHUV DATA7 6 = DATA7 (TYPE FIX)>
1794 <SYSOP 'MTOPR DATA7 23 (RETURN 3) = DATA7>
1795 <TYPE? DATA7 <TYPE-CODE FALSE> + BOOL11>
1796 <VEQUAL? DATA7 -1 - PHRASE10 (TYPE FIX)>
1798 <SET DATA7 9600 (TYPE FIX)>
1800 <AND DATA7 #WORD *777777* = DATA7>
1801 <MUL DATA7 AMT6 = DATA7 (TYPE FIX)>
1803 <FLOAT DATA7 = DATA7 (TYPE FLOAT)>
1804 <DIVF DATA7 7000.0 = DATA7 (TYPE FLOAT)>
1805 <FIX DATA7 = AMT6 (TYPE FIX)>
1807 <FRAME '
\1aTTY-SET-IMAGE>
1811 <CALL '
\1aTTY-SET-IMAGE 3>
1812 <GVAL 'BUFSTR = DATA7>
1817 <VEQUAL? AMT6 0 - PHRASE22 (TYPE FIX)>
1818 <VEQUAL? TB19 DATA7 + PHRASE26>
1819 <FRAME '
\1aTWAY-WRITE-BUFFER>
1825 <LENUS TB19 = TB19 (TYPE FIX)>
1826 <LENUS DATA7 = DATA7 (TYPE FIX)>
1827 <SUB TB19 DATA7 = STACK (TYPE FIX)>
1829 <CALL '
\1aTWAY-WRITE-BUFFER 4>
1833 <EMPUS? DATA7 - PHRASE31 (TYPE STRING)>
1834 <FRAME '
\1aTWAY-WRITE-BUFFER>
1838 <CALL '
\1aTWAY-WRITE-BUFFER 3>
1841 <PUTUS DATA7 1 !\
\0>
1842 <RESTUS DATA7 1 = DATA7 (TYPE STRING)>
1843 <SUB AMT6 1 = AMT6 (TYPE FIX)>
1847 <GFCN
\1aTTY-TYPE-CHAR ("VALUE" CHARACTER CHANNEL ANY CHARACTER) CHANNEL4 OPER5 CHAR6>
1848 <TEMP DATA7:TTY-CHANNEL Q8 QC9:FIX TEMP15>
1850 <NTHUV CHANNEL4 5 = DATA7 (TYPE TTY-CHANNEL)>
1852 <NTHUV DATA7 11 = Q8>
1853 <NTHUV DATA7 12 = QC9 (TYPE FIX)>
1854 <TYPE? Q8 <TYPE-CODE FALSE> - PHRASE11>
1855 <PUTUV DATA7 11 CHAR6>
1856 <PUTUV DATA7 12 1 (TYPE FIX)>
1861 <TYPE? Q8 <TYPE-CODE CHARACTER> - PHRASE12>
1866 <UBLOCK <TYPE-CODE STRING> 3 = Q8 (TYPE STRING)>
1869 <PUTUV DATA7 12 2 (TYPE FIX)>
1874 <LENUS Q8 = TEMP15 (TYPE FIX)>
1875 <VEQUAL? QC9 TEMP15 - PHRASE14 (TYPE FIX)>
1881 <UBLOCK <TYPE-CODE STRING> 3 = TEMP15 (TYPE STRING)>
1882 <PUTUV DATA7 11 TEMP15>
1884 <ADD QC9 1 = TEMP15 (TYPE FIX)>
1886 <PUTUV DATA7 12 TEMP15 (TYPE FIX)>
1891 <ADD QC9 1 = QC9 (TYPE FIX)>
1892 <PUTUS Q8 QC9 CHAR6>
1894 <PUTUV DATA7 12 QC9 (TYPE FIX)>
1898 <END
\1aTTY-TYPE-CHAR>
1900 <GFCN
\1aGET-QUEUE-CHAR ("VALUE" ANY TTY-CHANNEL) DATA4>
1903 <NTHUV DATA4 12 = CT6 (TYPE FIX)>
1904 <GRTR? CT6 0 + TAG10 (TYPE FIX)>
1907 <SUB CT6 1 = CT6 (TYPE FIX)>
1908 <PUTUV DATA4 12 CT6 (TYPE FIX)>
1909 <NTHUV DATA4 11 = TEMP9>
1910 <TYPE? TEMP9 <TYPE-CODE CHARACTER> - PHRASE14>
1911 <PUTUV DATA4 11 %<>>
1915 <NTH1 TEMP9 = TEMP9>
1916 <VEQUAL? CT6 0 - PHRASE17 (TYPE FIX)>
1918 <NTHUV DATA4 11 = CT6>
1920 <PUTUV DATA4 11 CT6>
1924 <NTHUV DATA4 11 = CT6>
1926 <PUTUV DATA4 11 CT6>
1931 <END
\1aGET-QUEUE-CHAR>
1935 <GFCN
\1aTTY-PRINT-DATA ("VALUE" CHARACTER CHANNEL ANY ANY) TTY4 OPER5 OUTCHAN6>
1936 <TEMP DATA7:TTY-CHANNEL TEMP13>
1938 <NTHUV TTY4 5 = DATA7 (TYPE TTY-CHANNEL)>
1941 <PUSH "#TTY-CHANNEL [">
1948 <NTHUV DATA7 1 = TEMP13 (TYPE FIX)>
1949 <VEQUAL? TEMP13 64 - PHRASE12 (TYPE FIX)>
1958 <NTHUV DATA7 1 = STACK (TYPE FIX)>
1962 <NTHUV DATA7 4 = TEMP13>
1963 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
1970 <TOPU TEMP13 = STACK>
1971 <CALL '
\1aLENGTH 1 = STACK>
1979 <LENUS TEMP13 = STACK (TYPE FIX)>
1988 <NTHUV DATA7 5 = STACK (TYPE FIX)>
1992 <NTHUV DATA7 7 = TEMP13>
1993 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE27>
2000 <TOPU TEMP13 = STACK>
2001 <CALL '
\1aLENGTH 1 = STACK>
2009 <LENUS TEMP13 = STACK (TYPE FIX)>
2018 <NTHUV DATA7 8 = STACK (TYPE FIX)>
2027 <NTHUV DATA7 10 = STACK (TYPE FIX)>
2035 <CALL '
\1aPRINC 2 = TEMP13>
2038 <END
\1aTTY-PRINT-DATA>