1 / VT50 HARD COPY OPTION HANDLER
9 / DIGITAL EQUIPMENT CORPORATION,MAYNARD, MASS.
14 / THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE
15 / ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED
16 / ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT
17 / NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES
18 / THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE
19 / AVAILABLE TO ANY OTHER PERSION EXCEPT FOR USE ON
20 / SUCH SYSTEM AND TO ONE WHO AGREES TO THESE
21 / LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
22 / SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
26 / THE INFORMATION IN THIS DOCUMENT IS SUBJECT
27 / TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE
28 / CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
33 / DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR
34 / RELIABILITY OF ITS SOFTWARE ON EQUIPMENT
35 / WHICH IS NOT SUPPLIED BY DEC.
47 *0 / LOCATION FOR BUILD
49 DEVICE VT50;DEVICE LST;0;AUTOPT&177;ZBLOCK 2
58 RDF / GET THE DATA FIELD
59 TAD TTYCIF / MAKE A CDF CIF INSTRUCTION
60 DCA TTYXIT / STORE IT FOR LATER
61 TAD I AUTOPT / GET FIELD OF BUFFER
63 TAD TTCDF / MAKE A CDF INST
65 TAD I AUTOPT / GET BUFFER COUNTER
68 DCA TTYWC / STORE IT IN WORD COUNT
70 TAD I AUTOPT /GET CURRENT ADDR.
72 ISZ AUTOPT / SKIP BLOCK #
73 ISZ AUTOPT / LOOKING AT ERROR RETURN
76 COOL, JMS CLSCRN / GO CLEAR SCREEN
78 JMS ESCAP / PRINT ESC CHAR
80 NXTCHR, TAD I TTYCA / PICK UP BUFFER ADDRESS
81 JMS TTYPCH /GO TO UNPACK + OUTPUT ROUTINE
82 DCA TTYGCH / SAVE HIGH ORDER BITS
83 ISZ TTYCA / BUMP BUFF. POINTER
85 JMS TTYIN / GO TO ABORT ROUTINE
86 TAD I TTYCA / GET NEXT CHAR.
93 JMS TTYPCH / OUTPUT THIRD
94 ISZ TTYCA / BUMP POINTER
97 TTKLG, ISZ TTYWC / BUMP THE COUNTR.
98 JMP NXTCHR / GO TO NEXT CHAR.
99 TTYRTN, TAD (137-33/ GET ESC CHARS.
100 JMS ESCAP / TURN ON COPYIER
101 ISZ AUTOPT / GET NORMAL RETURN ADDR
102 TTYXIT, HLT / AND RETURN FIELDS
103 DCA COOL / KILL THE CLEAR SCREEN FUNCTION
104 JMP I AUTOPT / AND LEAVE
106 DCA HOLD /SAVE CHAR FOR CHECKS
109 TAD (200-232 / END OF BUFF
111 JMP TTYRTN / ^Z MEANS END OF BUFFER
112 TAD HOLD / IF NOT, THEN LEGAL CHAR.
113 JMS TTYPRNT / OUTPUT CHAR
116 JMP I TTYPCH / SAVE HIGH BITS FOR 3RD CHAR.
119 TSF / WAIT FOR FLAG ????
121 JMP I TTYPRNT / RETURN
123 DCA TEM / TEMP. STORAGE
124 TAD (33 / GET ESC CHAR.
125 JMS TTYPRNT/ GO TO OUTPUT ROUTINE
127 JMS TTYPRNT / GO TO OUTPUT
129 JMP I ESCAP / GO BACK TO CALLING AGR.
131 HERE, TAD L7600 / SET A.C. FOR PARITY READ
133 TAD (-7603 / IS IS A ^C ?
135 JMP CTRLC / YES, GET OUT OF HERE
136 TAD (203-221 /IS IT A ^Q ?
138 JMP CTRLQ / YES, GO BACK TO PRINTING
139 TAD (221-223/ IS IT A ^S ?
141 JMP HERE / YES, STALL !!!!!
142 JMP I TTYIN / ANYTHING ELSE
143 CTRLC, JMS CLSCRN / CLEAR SCREEN
145 JMS ESCAP / OUTPUT ESC CHAR.
146 TAD (-16 / SET NULL COUNT
147 DCA TEM /TEMPORARY LOC. FOR COUNTING
148 JMS TTYPRNT / FORCE THE SCREEN TO LISTEN
150 JMP .-2 / DO IT 16 TIMES
151 TTCDF, CDF 0 / SET RETURN FIELD
152 KCC / FLUSH INPUT BUFFER
153 JMP I L7600 / RETURN TO OS/8 !!!!!!!!!!
155 TAD (110-33 / SET HOME CHAR
156 JMS ESCAP / GO TO OUTPUT ROUTINE
157 TAD (112-33 / SET CLEAR SCREEN CHAR
159 JMP I CLSCRN / RETURN
161 JMP I TTYIN / CLEAR CHAR BEFORE GOING BACK