Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " s7 |
2 | ||
3 | pibreak: | |
4 | ||
5 | dpsf | |
6 | jmp 1f | |
7 | ||
8 | dpcf | |
9 | dprs | |
10 | dac dpstat | |
11 | sma ral | |
12 | jmp 2f | |
13 | dprc | |
14 | dac dpchar | |
15 | -1 | |
16 | dac dpread | |
17 | lac dpstat | |
18 | ral | |
19 | 2: | |
20 | sma | |
21 | jmp piret | |
22 | -1 | |
23 | dac dpwrite | |
24 | ||
25 | 1: clsf | |
26 | jmp 1f | |
27 | ||
28 | lpb | |
29 | dac pbsflgs | |
30 | isz s.tim+1 | |
31 | skp | |
32 | isz s.tim | |
33 | isz uquant | |
34 | cnop: | |
35 | nop | |
36 | -1 | |
37 | dac 7 | |
38 | clon | |
39 | lac ttydelay | |
40 | spa | |
41 | isz ttydelay | |
42 | skp | |
43 | jms ttyrestart | |
44 | sna | |
45 | jmp piret | |
46 | isz .dsptm | |
47 | skp | |
48 | jmp dsprestart | |
49 | sad d3 | |
50 | jmp piret | |
51 | isz .dspb | |
52 | jmp piret | |
53 | ||
54 | 1: dssf | |
55 | jmp 1f | |
56 | ||
57 | -1 | |
58 | dac .dskb | |
59 | ||
60 | ||
61 | dsrs | |
62 | dac .dske | |
63 | dscs | |
64 | jmp piret | |
65 | ||
66 | sma ral | |
67 | jmp 1f | |
68 | cdf | |
69 | lac .dspb | |
70 | sna | |
71 | jmp piret | |
72 | tad dm3 | |
73 | sna | |
74 | jmp dsprestart | |
75 | dac .dspb | |
76 | jmp piret | |
77 | dsprestart: | |
78 | lac d1 | |
79 | dac .dspb | |
80 | lac dspbufp | |
81 | beg | |
82 | -10 | |
83 | dac .dsptm | |
84 | jmp piret | |
85 | ||
86 | 1: sna ral | |
87 | jmp .+3 | |
88 | dpcf | |
89 | jmp piret | |
90 | sma | |
91 | jmp 1f | |
92 | lda | |
93 | dac .lpba | |
94 | rlpd | |
95 | jmp piret | |
96 | ||
97 | 1: ksf | |
98 | jmp 1f | |
99 | ||
100 | lac ttydelay | |
101 | sma | |
102 | isz ttydelay | |
103 | krb | |
104 | dac char | |
105 | sad o375 | |
106 | jmp intrp1 | |
107 | lac d1 | |
108 | jms putchar | |
109 | dzm char | |
110 | lac sfiles+0 | |
111 | jms wakeup | |
112 | dac sfiles+0 | |
113 | lac char | |
114 | sad o212 | |
115 | skp | |
116 | jmp piret | |
117 | lac sfiles+1 | |
118 | sma | |
119 | xor o400000 | |
120 | dac sfiles+1 | |
121 | ||
122 | ||
123 | jms putcr | |
124 | jms ttyrestart | |
125 | jmp piret | |
126 | ||
127 | 1: tsf | |
128 | jmp 1f | |
129 | ||
130 | tcf | |
131 | jms ttyrestart | |
132 | jmp piret | |
133 | ||
134 | ttyrestart: 0 | |
135 | lac ttydelay | |
136 | spa | |
137 | jmp ttyrestart i | |
138 | lac nttychar | |
139 | dzm nttychar | |
140 | sza | |
141 | jmp 3f | |
142 | isz ttydelay | |
143 | lac d2 | |
144 | jms getchar | |
145 | jmp 2f | |
146 | 3: | |
147 | tls | |
148 | sad o12 | |
149 | jms putcr | |
150 | sad o15 | |
151 | skp | |
152 | jmp ttyrestart i | |
153 | lac ttydelay | |
154 | tad o20 | |
155 | rcr | |
156 | cma | |
157 | dac ttydelay | |
158 | jmp ttyrestart i | |
159 | 2: | |
160 | lac sfiles+1 | |
161 | jms wakeup | |
162 | dac sfiles+1 | |
163 | ||
164 | jmp 1f | |
165 | ||
166 | cck | |
167 | lck | |
168 | dac char | |
169 | sad o33 | |
170 | jmp intrp2 | |
171 | lac d3 | |
172 | jms putchar | |
173 | nop | |
174 | lac sfiles+2 | |
175 | jms wakeup | |
176 | dac sfiles+2 | |
177 | jmp piret | |
178 | ||
179 | 1: rsf | |
180 | jmp 1f | |
181 | ||
182 | ||
183 | ||
184 | lac npptchar | |
185 | sna | |
186 | jmp .+5 | |
187 | dac char | |
188 | rrb | |
189 | dac npptchar | |
190 | jmp .+3 | |
191 | rrb | |
192 | dac char | |
193 | 3: | |
194 | lac char | |
195 | sna | |
196 | jmp 2f | |
197 | lac d4 | |
198 | jms putchar | |
199 | jmp 3f | |
200 | lac char | |
201 | sad d4 | |
202 | jmp 4f | |
203 | 2: | |
204 | lac npptchar | |
205 | sna | |
206 | jmp .+4 | |
207 | dac char | |
208 | dzm npptchar | |
209 | jmp 3b | |
210 | rsa | |
211 | lac sfiles+3 | |
212 | jms wakeup | |
213 | xor o400000 | |
214 | dac sfiles+3 | |
215 | jmp piret | |
216 | 3: | |
217 | lac char | |
218 | dac npptchar | |
219 | 4: | |
220 | lac sfiles+3 | |
221 | jms wakeup | |
222 | dac sfiles+3 | |
223 | jmp piret | |
224 | ||
225 | 1: psf | |
226 | jmp 1f | |
227 | ||
228 | pcf | |
229 | lac d5 | |
230 | jms getchar | |
231 | jmp .+3 | |
232 | psa | |
233 | jmp piret | |
234 | lac sfiles+4 | |
235 | jms wakeup | |
236 | dac sfiles+4 | |
237 | jmp piret | |
238 | ||
239 | jmp 1f | |
240 | ||
241 | cpb | |
242 | lpb | |
243 | dac pbsflgs+1 | |
244 | ||
245 | ||
246 | and o2000 | |
247 | sna | |
248 | jmp piret | |
249 | jms dspinit | |
250 | lac sfiles+6 | |
251 | jms wakeup | |
252 | dac sfiles+6 | |
253 | cla | |
254 | wbl | |
255 | ||
256 | 1: crsf | |
257 | jmp 1f | |
258 | ||
259 | crrb | |
260 | dac crchar | |
261 | -1 | |
262 | dac crread | |
263 | jmp piret | |
264 | ||
265 | 1: crrb | |
266 | ||
267 | piret: | |
268 | lac 0 | |
269 | ral | |
270 | lac .ac | |
271 | ion | |
272 | jmp 0 i | |
273 | ||
274 | wakeup: 0 | |
275 | dac 9f+t | |
276 | -mnproc | |
277 | dac 9f+t+1 | |
278 | lac tadu | |
279 | dac 2f | |
280 | lac dacu | |
281 | dac 2f+1 | |
282 | 1: | |
283 | lac 9f+t | |
284 | ral | |
285 | dac 9f+t | |
286 | sma | |
287 | jmp 2f+2 | |
288 | lac o700000 | |
289 | 2: tad .. | |
290 | dac .. | |
291 | lac 2b | |
292 | tad d4 | |
293 | dac 2b | |
294 | lac 2b+1 | |
295 | tad d4 | |
296 | dac 2b+1 | |
297 | isz 9f+t+1 | |
298 | jmp 1b | |
299 | cla | |
300 | jmp wakeup i | |
301 | t = t+2 | |
302 | ||
303 | putcr: 0 | |
304 | lac o15 | |
305 | dac nttychar | |
306 | ||
307 | ||
308 | cla | |
309 | jmp putcr i | |
310 | ||
311 | intrp1: | |
312 | lac d6 | |
313 | dac .int1 | |
314 | lac d1 | |
315 | jms getchar | |
316 | skp | |
317 | jmp .-3 | |
318 | lac d2 | |
319 | jms getchar | |
320 | skp | |
321 | jmp .-3 | |
322 | lac sfiles+0 | |
323 | jms wakeup | |
324 | dac sfiles+0 | |
325 | lac sfiles+1 | |
326 | jms wakeup | |
327 | dac sfiles+1 | |
328 | jms chkint | |
329 | jmp piret | |
330 | jmp 1f | |
331 | intrp2: | |
332 | lac d7 | |
333 | dac .int2 | |
334 | lac d3 | |
335 | jms getchar | |
336 | skp | |
337 | jmp .-3 | |
338 | lac sfiles+2 | |
339 | jms wakeup | |
340 | dac sfiles+2 | |
341 | lac sfiles+6 | |
342 | jms wakeup | |
343 | dac sfiles+6 | |
344 | jms chkint | |
345 | jmp piret | |
346 | 1: | |
347 | lac 0 | |
348 | dac 020 | |
349 | lac .ac | |
350 | jmp 021 |