| 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 |