software: Added more and more
[pdp8.git] / sw / os8 / v3d / sources / system / dectapes / dectape1 / ASR33.PA
CommitLineData
7af5ad59
PH
1/3 TTY HANDLER FOR BUILD
2/
3/
4/
5/
6/
7/
8/
9/
10/
11/COPYRIGHT (C) 1974,1975,1977 BY DIGITAL EQUIPMENT CORPORATION
12/
13/
14/
15/
16/
17/
18/
19/
20/
21/
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.
26/
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.
31/
32/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
33/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
34/DIGITAL.
35/
36/
37/
38/
39/
40/
41/
42/
43/
44/
45 *0
46 -1
47DEVICE AS33;DEVICE TTY;0;1;ZBLOCK 2
48
49 TTYVERSION="A&77
50
51/V3 FIXES:
52
53/1. NOW RECOGNIZES PARITY ^Z ON OUTPUT
54/2. NOW RECOGNIZES ^Z ON OUTPUT EVEN IF NOT
55/ FOLLOWED BY 0'S
56/3. VERSION # IS NOW 1.
57
58 *200
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.
64TTY360, 360 /MUST BE FIRST LOC ON PAGE!
65TTY, TTYVERSION
66TT7600, 7600
67 RDF
68 TAD TTYCIF
69 DCA TTYXIT /SAVE RETURN FIELD
70 TAD I TTY
71 AND TT70
72 TAD TTCDF
73 DCA TTYCDF /DATA FIELD OF BUFFER
74 CLA CLL CML RAR
75 TAD I TTY
76 AND TT3700
77 CMA
78 DCA TTYWC
79 ISZ TTY
80 TAD I TTY
81 DCA TTYCA /SAVE BUFFER ADDRESS
82 ISZ TTY
83 ISZ TTY
84 JMP TTKLG
85TTYLP, SNL CLA
86 JMP TTYGLP /ZER LINK MEANS READ
87 JMS TTYTST /TEST FOR ^C
88 TAD TTYM14 /-203-14=-217 =-"^O"
89 SNA CLA
90 JMP TTYCTO
91 TAD I TTYCA /CHARACTER 1 IS LOW ORDER 8 BITS OF WORD 1
92 JMS TTYPCH
93 DCA TTYGCH
94 ISZ TTYCA
95TT7400, 7400
96 TAD I TTYCA /CHARACTER 2 IS LOW ORDER 8 BITS OF WORD 2
97 JMS TTYPCH
98 CLL RTR
99 RTR
100 TAD TTYGCH
101 CLL RTR
102 RTR /CHARACTER 3 IS HIGH ORDER 4 BITS OF WORDS 1 AND 2
103 JMS TTYPCH /WILL SET LINK ON!
104TTLOOP, ISZ TTYCA /AC HAPPENS TO BE ZERO HERE
105TT70, 70
106TTKLG, ISZ TTYWC
107 JMP TTYLP
108TTYRTN, TAD TTYCDF
109 CLL CIA
110 SNL CLA
111 ISZ TTY /SKIP PAST ERROR RETURN
112TTYXIT, HLT /RESTORE CALLING FIELDS
113 RAL
114 JMP I TTY
115TTYPCH, 0 /MUST SET LINK ON!
116 DCA TTYTST
117 TAD TTYTST
118 TAD TTYM32 /ONLY CARE IF LOW ORDER 7 BITS ARE -32
119 AND TTY177 /SO ONLY LOOK AT THESE BITS
120 SNA CLA
121 JMP TTYRTN /WAS A ^Z
122 TAD TTYTST /GET BACK ALL 12 BITS
123 JMS TTPRNT
124 AND TT7400 /BUT RETURN ONLY LEFT THIRD
125 STL /**** CRUD
126 JMP I TTYPCH
127TTY212, 212
128 IFNZRO .-TTY360-100 <ER3700,QQQQ>
129TTYCA, 0
130TTYWC, 0
131TTYTST, 0
132TTYCDF, 0
133 TAD TTY200
134 KRS /TEST FOR ^C WITH FLAG UP
135 TAD TTM203
136 SNA
137 KSF
138 JMP I TTYTST
139TTYCIF, CDF CIF 0
140 JMP I TT7600
141TTPRNT, 0
142 TLS
143 TSF
144 JMP .-1
145 JMP I TTPRNT
146TTCDF, CDF 0
147
148/FOLLOWING CODE READS TTY AND PACKS IN BUFFER.
149TTYGLP, JMS TTYGCH
150 DCA I TTYCA
151TTYM32, JMS TTYGCH
152 DCA TTYPCH
153 JMS TTYGCH
154 RTL
155 RTL
156 DCA TTYGCH
157 TAD TTYGCH
158 AND TT7400
159 TAD I TTYCA
160TT3700, DCA I TTYCA
161 TAD TTYGCH
162TTY200, AND TTY360
163 CLL RTL
164 RTL /CLEARS LINK
165 TAD TTYPCH
166 ISZ TTYCA
167 DCA I TTYCA
168 JMP TTLOOP
169 IFNZRO .-TTY360-146 <TTYERR,QQQQQ>
170TTYGCH, 0 /MUST BE AT REL LOC 146
171 TAD TTYCDF
172TT7700, SMA CLA
173 JMP I TTYGCH
174 ISZ TTYTST
175 JMP TTYKSF
176 TAD TTY212
177 JMP TTECHO
178TTYKSF, KSF
179 JMP .-1
180 JMS TTYTST
181 TAD TTM27
182 SNA /IS IT A ^Z?
183 DCA TTYCDF /YES - SET END-OF-FILE FLAG
184 TAD TTY14
185 DCA TTYTST /TTYTST=-1 IF CARRIAGE RETURN
186 KRB
187TTECHO, JMS TTPRNT /ECHO THE INPUT CHARACTER
188 JMP I TTYGCH
189TTM203, -203
190TTM27, -27
191TTYM14, -14
192TTY177, 177
193 IFNZRO .-TTY360-175 <NICE,QQ>
194TTYCTO, 6032 /SHOULD BE AT REL LOC 175 FOR PATCHERS
195 JMP TTYRTN
196TTY14, 14
197 $
198\f