1 /3 TTY HANDLER FOR BUILD
11 /COPYRIGHT (C) 1974,1975,1977 BY DIGITAL EQUIPMENT CORPORATION
22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
47 DEVICE AS33;DEVICE TTY;0;1;ZBLOCK 2
53 /1. NOW RECOGNIZES PARITY ^Z ON OUTPUT
54 /2. NOW RECOGNIZES ^Z ON OUTPUT EVEN IF NOT
56 /3. VERSION # IS NOW 1.
59 /TELETYPE HANDLER - NOT VERY INTELLEGENT.
60 /ONLY RECOGNIZES ^Z AND ^C ON INPUT
61 /AND ^C AND ^O ON OUTPUT
62 /OH WELL, WHAT CAN YOU EXPECT IN ONE PAGE.
63 / THE LOGIC IS VERY SIMILIAR TO THE PTR AND PTP HANDLERS.
64 TTY360, 360 /MUST BE FIRST LOC ON PAGE!
69 DCA TTYXIT /SAVE RETURN FIELD
73 DCA TTYCDF /DATA FIELD OF BUFFER
81 DCA TTYCA /SAVE BUFFER ADDRESS
86 JMP TTYGLP /ZER LINK MEANS READ
87 JMS TTYTST /TEST FOR ^C
88 TAD TTYM14 /-203-14=-217 =-"^O"
91 TAD I TTYCA /CHARACTER 1 IS LOW ORDER 8 BITS OF WORD 1
96 TAD I TTYCA /CHARACTER 2 IS LOW ORDER 8 BITS OF WORD 2
102 RTR /CHARACTER 3 IS HIGH ORDER 4 BITS OF WORDS 1 AND 2
103 JMS TTYPCH /WILL SET LINK ON!
104 TTLOOP, ISZ TTYCA /AC HAPPENS TO BE ZERO HERE
111 ISZ TTY /SKIP PAST ERROR RETURN
112 TTYXIT, HLT /RESTORE CALLING FIELDS
115 TTYPCH, 0 /MUST SET LINK ON!
118 TAD TTYM32 /ONLY CARE IF LOW ORDER 7 BITS ARE -32
119 AND TTY177 /SO ONLY LOOK AT THESE BITS
122 TAD TTYTST /GET BACK ALL 12 BITS
124 AND TT7400 /BUT RETURN ONLY LEFT THIRD
128 IFNZRO .-TTY360-100 <ER3700,QQQQ>
134 KRS /TEST FOR ^C WITH FLAG UP
148 /FOLLOWING CODE READS TTY AND PACKS IN BUFFER.
169 IFNZRO .-TTY360-146 <TTYERR,QQQQQ>
170 TTYGCH, 0 /MUST BE AT REL LOC 146
183 DCA TTYCDF /YES - SET END-OF-FILE FLAG
185 DCA TTYTST /TTYTST=-1 IF CARRIAGE RETURN
187 TTECHO, JMS TTPRNT /ECHO THE INPUT CHARACTER
193 IFNZRO .-TTY360-175 <NICE,QQ>
194 TTYCTO, 6032 /SHOULD BE AT REL LOC 175 FOR PATCHERS