Commit | Line | Data |
---|---|---|
7af5ad59 PH |
1 | / VT50 HARD COPY OPTION HANDLER |
2 | / | |
3 | / | |
4 | / | |
5 | / | |
6 | / | |
7 | / | |
8 | / COPYRIGHT (C) 1975 | |
9 | / DIGITAL EQUIPMENT CORPORATION,MAYNARD, MASS. | |
10 | / | |
11 | / | |
12 | / | |
13 | / | |
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. | |
23 | / | |
24 | / | |
25 | / | |
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 | |
29 | / CORPORATION. | |
30 | / | |
31 | / | |
32 | / | |
33 | / DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR | |
34 | / RELIABILITY OF ITS SOFTWARE ON EQUIPMENT | |
35 | / WHICH IS NOT SUPPLIED BY DEC. | |
36 | / | |
37 | / | |
38 | / | |
39 | // | |
40 | / | |
41 | / | |
42 | / | |
43 | / | |
44 | / SR,JG DATE 4/8/75 | |
45 | / | |
46 | / | |
47 | *0 / LOCATION FOR BUILD | |
48 | -1 | |
49 | DEVICE VT50;DEVICE LST;0;AUTOPT&177;ZBLOCK 2 | |
50 | / | |
51 | / | |
52 | *200 | |
53 | AUTVERSION="A&77 | |
54 | / | |
55 | / | |
56 | / | |
57 | AUTOPT, AUTVERSION | |
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 | |
62 | AND TT70 | |
63 | TAD TTCDF / MAKE A CDF INST | |
64 | DCA TTYCDF / SAVE IT | |
65 | TAD I AUTOPT / GET BUFFER COUNTER | |
66 | AND (3700 | |
67 | CMA | |
68 | DCA TTYWC / STORE IT IN WORD COUNT | |
69 | ISZ AUTOPT / | |
70 | TAD I AUTOPT /GET CURRENT ADDR. | |
71 | DCA TTYCA / STORE IT | |
72 | ISZ AUTOPT / SKIP BLOCK # | |
73 | ISZ AUTOPT / LOOKING AT ERROR RETURN | |
74 | TEM, | |
75 | TTYCDF, 0 | |
76 | COOL, JMS CLSCRN / GO CLEAR SCREEN | |
77 | TAD (136-33 | |
78 | JMS ESCAP / PRINT ESC CHAR | |
79 | JMP TTKLG / START | |
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 | |
84 | TT7400, 7400 | |
85 | JMS TTYIN / GO TO ABORT ROUTINE | |
86 | TAD I TTYCA / GET NEXT CHAR. | |
87 | JMS TTYPCH | |
88 | CLL RTR | |
89 | RTR / FORM THE | |
90 | TAD TTYGCH / THIRD | |
91 | CLL RTR / CHARACTER | |
92 | RTR | |
93 | JMS TTYPCH / OUTPUT THIRD | |
94 | ISZ TTYCA / BUMP POINTER | |
95 | TT70, 70 | |
96 | L7600, 7600 / CLA | |
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 | |
105 | TTYPCH, 0 | |
106 | DCA HOLD /SAVE CHAR FOR CHECKS | |
107 | TAD HOLD | |
108 | AND (177 / | |
109 | TAD (200-232 / END OF BUFF | |
110 | SNA CLA | |
111 | JMP TTYRTN / ^Z MEANS END OF BUFFER | |
112 | TAD HOLD / IF NOT, THEN LEGAL CHAR. | |
113 | JMS TTYPRNT / OUTPUT CHAR | |
114 | AND TT7400 | |
115 | STL | |
116 | JMP I TTYPCH / SAVE HIGH BITS FOR 3RD CHAR. | |
117 | TTYPRN, 0 | |
118 | TLS / SEND CHAR. | |
119 | TSF / WAIT FOR FLAG ???? | |
120 | JMP .-1 | |
121 | JMP I TTYPRNT / RETURN | |
122 | ESCAP, 0 | |
123 | DCA TEM / TEMP. STORAGE | |
124 | TAD (33 / GET ESC CHAR. | |
125 | JMS TTYPRNT/ GO TO OUTPUT ROUTINE | |
126 | TAD TEM / GET CHAR. | |
127 | JMS TTYPRNT / GO TO OUTPUT | |
128 | CLA | |
129 | JMP I ESCAP / GO BACK TO CALLING AGR. | |
130 | TTYIN, 0 | |
131 | HERE, TAD L7600 / SET A.C. FOR PARITY READ | |
132 | KRS / PARITY READ | |
133 | TAD (-7603 / IS IS A ^C ? | |
134 | SNA / NO | |
135 | JMP CTRLC / YES, GET OUT OF HERE | |
136 | TAD (203-221 /IS IT A ^Q ? | |
137 | SNA / NO | |
138 | JMP CTRLQ / YES, GO BACK TO PRINTING | |
139 | TAD (221-223/ IS IT A ^S ? | |
140 | SNA CLA | |
141 | JMP HERE / YES, STALL !!!!! | |
142 | JMP I TTYIN / ANYTHING ELSE | |
143 | CTRLC, JMS CLSCRN / CLEAR SCREEN | |
144 | TAD (137-33 | |
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 | |
149 | ISZ TEM /COUNT NULLS | |
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 !!!!!!!!!! | |
154 | CLSCRN, 0 | |
155 | TAD (110-33 / SET HOME CHAR | |
156 | JMS ESCAP / GO TO OUTPUT ROUTINE | |
157 | TAD (112-33 / SET CLEAR SCREEN CHAR | |
158 | JMS ESCAP | |
159 | JMP I CLSCRN / RETURN | |
160 | CTRLQ, KCC | |
161 | JMP I TTYIN / CLEAR CHAR BEFORE GOING BACK | |
162 | TTYCIF, CDF CIF 0 | |
163 | TTYWC, 0 | |
164 | TTYCA, 0 | |
165 | TTYGCH, 0 | |
166 | HOLD, 0 | |
167 | $$$$$ | |
168 | \f\0\0\0\0 |