ser.c revision 1.44 1 1.44 is /* $NetBSD: ser.c,v 1.44 1998/04/11 19:30:56 is Exp $ */
2 1.23 cgd
3 1.1 mw /*
4 1.1 mw * Copyright (c) 1982, 1986, 1990 The Regents of the University of California.
5 1.1 mw * All rights reserved.
6 1.1 mw *
7 1.1 mw * Redistribution and use in source and binary forms, with or without
8 1.1 mw * modification, are permitted provided that the following conditions
9 1.1 mw * are met:
10 1.1 mw * 1. Redistributions of source code must retain the above copyright
11 1.1 mw * notice, this list of conditions and the following disclaimer.
12 1.1 mw * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 mw * notice, this list of conditions and the following disclaimer in the
14 1.1 mw * documentation and/or other materials provided with the distribution.
15 1.1 mw * 3. All advertising materials mentioning features or use of this software
16 1.1 mw * must display the following acknowledgement:
17 1.1 mw * This product includes software developed by the University of
18 1.1 mw * California, Berkeley and its contributors.
19 1.1 mw * 4. Neither the name of the University nor the names of its contributors
20 1.1 mw * may be used to endorse or promote products derived from this software
21 1.1 mw * without specific prior written permission.
22 1.1 mw *
23 1.1 mw * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 mw * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 mw * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 mw * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 mw * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 mw * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 mw * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 mw * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 mw * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 mw * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 mw * SUCH DAMAGE.
34 1.1 mw *
35 1.4 mw * @(#)ser.c 7.12 (Berkeley) 6/27/91
36 1.15 chopps */
37 1.15 chopps /*
38 1.32 is * XXX This file needs major cleanup it will never service more than one
39 1.15 chopps * XXX unit.
40 1.1 mw */
41 1.1 mw
42 1.10 chopps #include <sys/param.h>
43 1.10 chopps #include <sys/systm.h>
44 1.10 chopps #include <sys/ioctl.h>
45 1.15 chopps #include <sys/device.h>
46 1.10 chopps #include <sys/tty.h>
47 1.10 chopps #include <sys/proc.h>
48 1.10 chopps #include <sys/file.h>
49 1.10 chopps #include <sys/malloc.h>
50 1.10 chopps #include <sys/uio.h>
51 1.10 chopps #include <sys/kernel.h>
52 1.10 chopps #include <sys/syslog.h>
53 1.13 chopps #include <sys/queue.h>
54 1.15 chopps #include <machine/cpu.h>
55 1.15 chopps #include <amiga/amiga/device.h>
56 1.10 chopps #include <amiga/dev/serreg.h>
57 1.10 chopps #include <amiga/amiga/custom.h>
58 1.10 chopps #include <amiga/amiga/cia.h>
59 1.10 chopps #include <amiga/amiga/cc.h>
60 1.1 mw
61 1.14 chopps #include <dev/cons.h>
62 1.14 chopps
63 1.31 veego #include <sys/conf.h>
64 1.31 veego #include <machine/conf.h>
65 1.31 veego
66 1.15 chopps #include "ser.h"
67 1.15 chopps #if NSER > 0
68 1.14 chopps
69 1.15 chopps void serattach __P((struct device *, struct device *, void *));
70 1.39 veego int sermatch __P((struct device *, struct cfdata *, void *));
71 1.15 chopps
72 1.28 jtc struct ser_softc {
73 1.28 jtc struct device dev;
74 1.28 jtc struct tty *ser_tty;
75 1.28 jtc };
76 1.28 jtc
77 1.29 thorpej struct cfattach ser_ca = {
78 1.30 mhitch sizeof(struct ser_softc), sermatch, serattach
79 1.29 thorpej };
80 1.29 thorpej
81 1.43 thorpej extern struct cfdriver ser_cd;
82 1.15 chopps
83 1.26 chopps #ifndef SEROBUF_SIZE
84 1.15 chopps #define SEROBUF_SIZE 32
85 1.26 chopps #endif
86 1.26 chopps #ifndef SERIBUF_SIZE
87 1.15 chopps #define SERIBUF_SIZE 512
88 1.26 chopps #endif
89 1.26 chopps
90 1.26 chopps #define splser() spl5()
91 1.1 mw
92 1.31 veego void serstart __P((struct tty *));
93 1.44 is void ser_shutdown __P((struct ser_softc *));
94 1.31 veego int serparam __P((struct tty *, struct termios *));
95 1.44 is void serintr __P((void));
96 1.31 veego int serhwiflow __P((struct tty *, int));
97 1.31 veego int sermctl __P((dev_t dev, int, int));
98 1.31 veego void ser_fastint __P((void));
99 1.44 is void sereint __P((int));
100 1.31 veego static void ser_putchar __P((struct tty *, u_short));
101 1.31 veego void ser_outintr __P((void));
102 1.31 veego void sercnprobe __P((struct consdev *));
103 1.31 veego void sercninit __P((struct consdev *));
104 1.44 is void serinit __P((int));
105 1.31 veego int sercngetc __P((dev_t dev));
106 1.31 veego void sercnputc __P((dev_t, int));
107 1.31 veego void sercnpollc __P((dev_t, int));
108 1.31 veego
109 1.1 mw int nser = NSER;
110 1.1 mw #ifdef SERCONSOLE
111 1.1 mw int serconsole = SERCONSOLE;
112 1.1 mw #else
113 1.1 mw int serconsole = -1;
114 1.1 mw #endif
115 1.1 mw int serconsinit;
116 1.1 mw int serdefaultrate = TTYDEF_SPEED;
117 1.1 mw int sermajor;
118 1.14 chopps int serswflags;
119 1.14 chopps
120 1.44 is struct vbl_node ser_vbl_node;
121 1.1 mw struct tty ser_cons;
122 1.44 is struct tty *ser_tty;
123 1.44 is
124 1.44 is static u_short serbuf[SERIBUF_SIZE];
125 1.44 is static u_short *sbrpt = serbuf;
126 1.44 is static u_short *sbwpt = serbuf;
127 1.44 is static u_short sbcnt;
128 1.44 is static u_short sbovfl;
129 1.44 is static u_char serdcd;
130 1.1 mw
131 1.14 chopps /*
132 1.14 chopps * Since this UART is not particularly bright (to put it nicely), we'll
133 1.14 chopps * have to do parity stuff on our own. This table contains the 8th bit
134 1.14 chopps * in 7bit character mode, for even parity. If you want odd parity,
135 1.14 chopps * flip the bit. (for generation of the table, see genpar.c)
136 1.14 chopps */
137 1.14 chopps
138 1.14 chopps u_char even_parity[] = {
139 1.14 chopps 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
140 1.14 chopps 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1,
141 1.14 chopps 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1,
142 1.14 chopps 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
143 1.14 chopps 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1,
144 1.14 chopps 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
145 1.14 chopps 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
146 1.14 chopps 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1,
147 1.1 mw };
148 1.1 mw
149 1.14 chopps /*
150 1.14 chopps * Since we don't get interrupts for changes on the modem control line,
151 1.14 chopps * we'll have to fake them by comparing current settings to the settings
152 1.14 chopps * we remembered on last invocation.
153 1.14 chopps */
154 1.14 chopps
155 1.14 chopps u_char last_ciab_pra;
156 1.14 chopps
157 1.14 chopps extern struct tty *constty;
158 1.1 mw
159 1.42 mhitch extern int ser_open_speed; /* current speed of open serial device */
160 1.42 mhitch
161 1.1 mw #ifdef KGDB
162 1.10 chopps #include <machine/remote-sl.h>
163 1.1 mw
164 1.1 mw extern dev_t kgdb_dev;
165 1.1 mw extern int kgdb_rate;
166 1.1 mw extern int kgdb_debug_init;
167 1.1 mw #endif
168 1.1 mw
169 1.1 mw #ifdef DEBUG
170 1.1 mw long fifoin[17];
171 1.1 mw long fifoout[17];
172 1.1 mw long serintrcount[16];
173 1.1 mw long sermintcount[16];
174 1.1 mw #endif
175 1.1 mw
176 1.14 chopps void sermint __P((register int unit));
177 1.5 mw
178 1.5 mw int
179 1.39 veego sermatch(pdp, cfp, auxp)
180 1.15 chopps struct device *pdp;
181 1.39 veego struct cfdata *cfp;
182 1.39 veego void *auxp;
183 1.15 chopps {
184 1.29 thorpej
185 1.15 chopps if (matchname("ser", (char *)auxp) == 0 || cfp->cf_unit != 0)
186 1.15 chopps return(0);
187 1.15 chopps if (serconsole != 0 && amiga_realconfig == 0)
188 1.15 chopps return(0);
189 1.15 chopps return(1);
190 1.15 chopps }
191 1.15 chopps
192 1.15 chopps
193 1.15 chopps void
194 1.15 chopps serattach(pdp, dp, auxp)
195 1.15 chopps struct device *pdp, *dp;
196 1.15 chopps void *auxp;
197 1.1 mw {
198 1.44 is struct ser_softc *sc;
199 1.44 is struct tty *tp;
200 1.15 chopps u_short ir;
201 1.14 chopps
202 1.44 is sc = (struct ser_softc *)dp;
203 1.44 is
204 1.14 chopps ir = custom.intenar;
205 1.15 chopps if (serconsole == 0)
206 1.14 chopps DELAY(100000);
207 1.14 chopps
208 1.44 is ser_vbl_node.function = (void (*) (void *)) sermint;
209 1.44 is add_vbl_function(&ser_vbl_node, SER_VBL_PRIORITY, (void *) 0);
210 1.1 mw #ifdef KGDB
211 1.15 chopps if (kgdb_dev == makedev(sermajor, 0)) {
212 1.15 chopps if (serconsole == 0)
213 1.14 chopps kgdb_dev = NODEV; /* can't debug over console port */
214 1.14 chopps else {
215 1.44 is (void) serinit(kgdb_rate);
216 1.14 chopps serconsinit = 1; /* don't re-init in serputc */
217 1.14 chopps if (kgdb_debug_init == 0)
218 1.38 christos printf(" kgdb enabled\n");
219 1.14 chopps else {
220 1.14 chopps /*
221 1.14 chopps * Print prefix of device name,
222 1.14 chopps * let kgdb_connect print the rest.
223 1.14 chopps */
224 1.38 christos printf("ser0: ");
225 1.14 chopps kgdb_connect(1);
226 1.14 chopps }
227 1.14 chopps }
228 1.14 chopps }
229 1.5 mw #endif
230 1.14 chopps /*
231 1.14 chopps * Need to reset baud rate, etc. of next print so reset serconsinit.
232 1.14 chopps */
233 1.15 chopps if (0 == serconsole)
234 1.14 chopps serconsinit = 0;
235 1.44 is
236 1.44 is tp = ttymalloc();
237 1.44 is tp->t_oproc = (void (*) (struct tty *)) serstart;
238 1.44 is tp->t_param = serparam;
239 1.44 is tp->t_hwiflow = serhwiflow;
240 1.44 is tty_attach(tp);
241 1.44 is sc->ser_tty = ser_tty = tp;
242 1.44 is
243 1.15 chopps if (dp)
244 1.38 christos printf(": input fifo %d output fifo %d\n", SERIBUF_SIZE,
245 1.15 chopps SEROBUF_SIZE);
246 1.1 mw }
247 1.1 mw
248 1.14 chopps
249 1.1 mw /* ARGSUSED */
250 1.5 mw int
251 1.1 mw seropen(dev, flag, mode, p)
252 1.14 chopps dev_t dev;
253 1.14 chopps int flag, mode;
254 1.14 chopps struct proc *p;
255 1.1 mw {
256 1.44 is struct ser_softc *sc;
257 1.14 chopps struct tty *tp;
258 1.44 is int unit, error, s, s2;
259 1.14 chopps
260 1.14 chopps error = 0;
261 1.14 chopps unit = SERUNIT(dev);
262 1.14 chopps
263 1.44 is if (unit >= ser_cd.cd_ndevs)
264 1.44 is return (ENXIO);
265 1.44 is
266 1.44 is sc = ser_cd.cd_devs[unit];
267 1.44 is if (sc == 0)
268 1.14 chopps return (ENXIO);
269 1.14 chopps
270 1.44 is /* XXX com.c: insert KGDB check here */
271 1.44 is
272 1.44 is /* XXX ser.c had: s = spltty(); */
273 1.44 is
274 1.44 is tp = sc->ser_tty;
275 1.44 is
276 1.44 is if ((tp->t_state & TS_ISOPEN) &&
277 1.44 is (tp->t_state & TS_XCLUDE) &&
278 1.44 is p->p_ucred->cr_uid != 0)
279 1.44 is return (EBUSY);
280 1.44 is
281 1.14 chopps s = spltty();
282 1.14 chopps
283 1.44 is /*
284 1.44 is * If this is a first open...
285 1.44 is */
286 1.44 is
287 1.44 is if ((tp->t_state & TS_ISOPEN) == 0 && tp->t_wopen == 0) {
288 1.44 is struct termios t;
289 1.14 chopps
290 1.44 is tp->t_dev = dev;
291 1.14 chopps
292 1.44 is s2 = splser();
293 1.14 chopps /*
294 1.44 is * XXX here: hw enable,
295 1.44 is * fetch current modem control status
296 1.14 chopps */
297 1.44 is
298 1.44 is splx(s2);
299 1.44 is t.c_ispeed = 0;
300 1.44 is
301 1.44 is /* XXX serconsolerate? */
302 1.44 is t.c_ospeed = TTYDEF_SPEED;
303 1.44 is t.c_cflag = TTYDEF_CFLAG;
304 1.44 is
305 1.14 chopps if (serswflags & TIOCFLAG_CLOCAL)
306 1.44 is t.c_cflag |= CLOCAL;
307 1.14 chopps if (serswflags & TIOCFLAG_CRTSCTS)
308 1.44 is t.c_cflag |= CRTSCTS;
309 1.14 chopps if (serswflags & TIOCFLAG_MDMBUF)
310 1.44 is t.c_cflag |= MDMBUF;
311 1.44 is
312 1.44 is /* Make sure serparam() will do something. */
313 1.44 is tp->t_ospeed = 0;
314 1.44 is serparam(tp, &t);
315 1.44 is tp->t_iflag = TTYDEF_IFLAG;
316 1.44 is tp->t_oflag = TTYDEF_OFLAG;
317 1.44 is tp->t_lflag = TTYDEF_LFLAG;
318 1.44 is ttychars(tp);
319 1.14 chopps ttsetwater(tp);
320 1.44 is
321 1.44 is s2 = splser();
322 1.14 chopps (void)sermctl(dev, TIOCM_DTR | TIOCM_RTS, DMSET);
323 1.44 is /* clear input ring */
324 1.44 is sbrpt = sbwpt = serbuf;
325 1.44 is sbcnt = 0;
326 1.44 is splx(s2);
327 1.14 chopps }
328 1.14 chopps
329 1.44 is splx(s);
330 1.44 is
331 1.44 is error = ttyopen(tp, DIALOUT(dev), flag & O_NONBLOCK);
332 1.44 is if (error)
333 1.44 is goto bad;
334 1.44 is
335 1.44 is error = (*linesw[tp->t_line].l_open)(dev, tp);
336 1.44 is if (error)
337 1.44 is goto bad;
338 1.44 is
339 1.44 is return (0);
340 1.14 chopps
341 1.44 is bad:
342 1.44 is if (!(tp->t_state & TS_ISOPEN) && tp->t_wopen == 0) {
343 1.44 is ser_shutdown(sc);
344 1.22 chopps }
345 1.22 chopps
346 1.44 is return (error);
347 1.1 mw }
348 1.14 chopps
349 1.1 mw /*ARGSUSED*/
350 1.5 mw int
351 1.1 mw serclose(dev, flag, mode, p)
352 1.14 chopps dev_t dev;
353 1.14 chopps int flag, mode;
354 1.14 chopps struct proc *p;
355 1.14 chopps {
356 1.44 is struct ser_softc *sc;
357 1.14 chopps struct tty *tp;
358 1.14 chopps
359 1.44 is sc = ser_cd.cd_devs[0];
360 1.44 is tp = ser_tty;
361 1.44 is
362 1.44 is /* XXX This is for cons.c, according to com.c */
363 1.44 is if (!(tp->t_state & TS_ISOPEN))
364 1.44 is return (0);
365 1.14 chopps
366 1.14 chopps (*linesw[tp->t_line].l_close)(tp, flag);
367 1.44 is ttyclose(tp);
368 1.44 is
369 1.44 is if (!(tp->t_state & TS_ISOPEN) && tp->t_wopen == 0) {
370 1.44 is ser_shutdown(sc);
371 1.44 is }
372 1.44 is return (0);
373 1.44 is }
374 1.44 is
375 1.44 is void
376 1.44 is ser_shutdown(sc)
377 1.44 is struct ser_softc *sc;
378 1.44 is {
379 1.44 is struct tty *tp = sc->ser_tty;
380 1.44 is int s;
381 1.44 is
382 1.44 is s = splser();
383 1.44 is
384 1.14 chopps custom.adkcon = ADKCONF_UARTBRK; /* clear break */
385 1.44 is #if 0 /* XXX fix: #ifdef KGDB */
386 1.14 chopps /*
387 1.14 chopps * do not disable interrupts if debugging
388 1.14 chopps */
389 1.14 chopps if (dev != kgdb_dev)
390 1.1 mw #endif
391 1.44 is custom.intena = INTF_RBF | INTF_TBE; /* disable interrupts */
392 1.14 chopps custom.intreq = INTF_RBF | INTF_TBE; /* clear intr request */
393 1.14 chopps
394 1.14 chopps /*
395 1.41 is * If HUPCL is not set, leave DTR unchanged.
396 1.14 chopps */
397 1.44 is if (tp->t_cflag & HUPCL) {
398 1.44 is (void)sermctl(tp->t_dev, TIOCM_DTR, DMBIC);
399 1.44 is /*
400 1.44 is * Idea from dev/ic/com.c:
401 1.44 is * sleep a bit so that other side will notice, even if we
402 1.44 is * reopen immediately.
403 1.44 is */
404 1.44 is (void) tsleep(tp, TTIPRI, ttclos, hz);
405 1.44 is }
406 1.41 is
407 1.14 chopps #if not_yet
408 1.14 chopps if (tp != &ser_cons) {
409 1.44 is remove_vbl_function(&ser_vbl_node);
410 1.14 chopps ttyfree(tp);
411 1.44 is ser_tty = (struct tty *) NULL;
412 1.14 chopps }
413 1.3 mw #endif
414 1.42 mhitch ser_open_speed = tp->t_ispeed;
415 1.44 is return;
416 1.1 mw }
417 1.14 chopps
418 1.5 mw int
419 1.1 mw serread(dev, uio, flag)
420 1.14 chopps dev_t dev;
421 1.14 chopps struct uio *uio;
422 1.14 chopps int flag;
423 1.1 mw {
424 1.44 is /* ARGSUSED */
425 1.44 is
426 1.44 is return((*linesw[ser_tty->t_line].l_read)(ser_tty, uio, flag));
427 1.14 chopps }
428 1.1 mw
429 1.5 mw int
430 1.1 mw serwrite(dev, uio, flag)
431 1.14 chopps dev_t dev;
432 1.14 chopps struct uio *uio;
433 1.14 chopps int flag;
434 1.1 mw {
435 1.44 is /* ARGSUSED */
436 1.14 chopps
437 1.44 is return((*linesw[ser_tty->t_line].l_write)(ser_tty, uio, flag));
438 1.1 mw }
439 1.3 mw
440 1.27 chopps struct tty *
441 1.27 chopps sertty(dev)
442 1.27 chopps dev_t dev;
443 1.27 chopps {
444 1.44 is /* ARGSUSED */
445 1.44 is
446 1.44 is return (ser_tty);
447 1.27 chopps }
448 1.3 mw
449 1.14 chopps /*
450 1.14 chopps * We don't do any processing of data here, so we store the raw code
451 1.14 chopps * obtained from the uart register. In theory, 110kBaud gives you
452 1.14 chopps * 11kcps, so 16k buffer should be more than enough, interrupt
453 1.14 chopps * latency of 1s should never happen, or something is seriously
454 1.14 chopps * wrong..
455 1.44 is * buffers moved to above seropen() -is
456 1.14 chopps */
457 1.14 chopps
458 1.14 chopps /*
459 1.14 chopps * This is a replacement for the lack of a hardware fifo. 32k should be
460 1.14 chopps * enough (there's only one unit anyway, so this is not going to
461 1.14 chopps * accumulate).
462 1.14 chopps */
463 1.3 mw void
464 1.14 chopps ser_fastint()
465 1.3 mw {
466 1.14 chopps /*
467 1.14 chopps * We're at RBE-level, which is higher than VBL-level which is used
468 1.14 chopps * to periodically transmit contents of this buffer up one layer,
469 1.14 chopps * so no spl-raising is necessary.
470 1.14 chopps */
471 1.14 chopps register u_short ints, code;
472 1.14 chopps
473 1.44 is /* XXX should this ever happen? */
474 1.14 chopps ints = custom.intreqr & INTF_RBF;
475 1.14 chopps if (ints == 0)
476 1.14 chopps return;
477 1.14 chopps
478 1.40 mhitch /*
479 1.40 mhitch * this register contains both data and status bits!
480 1.40 mhitch */
481 1.40 mhitch code = custom.serdatr;
482 1.40 mhitch
483 1.14 chopps /*
484 1.14 chopps * clear interrupt
485 1.14 chopps */
486 1.44 is custom.intreq = INTF_RBF;
487 1.14 chopps
488 1.14 chopps /*
489 1.14 chopps * check for buffer overflow.
490 1.14 chopps */
491 1.22 chopps if (sbcnt == SERIBUF_SIZE) {
492 1.18 chopps ++sbovfl;
493 1.14 chopps return;
494 1.14 chopps }
495 1.14 chopps /*
496 1.14 chopps * store in buffer
497 1.14 chopps */
498 1.14 chopps *sbwpt++ = code;
499 1.14 chopps if (sbwpt == serbuf + SERIBUF_SIZE)
500 1.14 chopps sbwpt = serbuf;
501 1.22 chopps ++sbcnt;
502 1.26 chopps if (sbcnt > SERIBUF_SIZE - 20)
503 1.22 chopps CLRRTS(ciab.pra); /* drop RTS if buffer almost full */
504 1.3 mw }
505 1.3 mw
506 1.3 mw
507 1.31 veego void
508 1.44 is serintr()
509 1.1 mw {
510 1.18 chopps int s1, s2, ovfl;
511 1.44 is struct tty *tp = ser_tty;
512 1.1 mw
513 1.14 chopps /*
514 1.14 chopps * Make sure we're not interrupted by another
515 1.14 chopps * vbl, but allow level5 ints
516 1.14 chopps */
517 1.14 chopps s1 = spltty();
518 1.1 mw
519 1.14 chopps /*
520 1.14 chopps * pass along any acumulated information
521 1.14 chopps */
522 1.22 chopps while (sbcnt > 0 && (tp->t_state & TS_TBLOCK) == 0) {
523 1.14 chopps /*
524 1.14 chopps * no collision with ser_fastint()
525 1.14 chopps */
526 1.44 is sereint(*sbrpt++);
527 1.14 chopps
528 1.18 chopps ovfl = 0;
529 1.14 chopps /* lock against ser_fastint() */
530 1.26 chopps s2 = splser();
531 1.22 chopps sbcnt--;
532 1.14 chopps if (sbrpt == serbuf + SERIBUF_SIZE)
533 1.14 chopps sbrpt = serbuf;
534 1.18 chopps if (sbovfl != 0) {
535 1.18 chopps ovfl = sbovfl;
536 1.18 chopps sbovfl = 0;
537 1.18 chopps }
538 1.14 chopps splx(s2);
539 1.18 chopps if (ovfl != 0)
540 1.21 chopps log(LOG_WARNING, "ser0: %d ring buffer overflows.\n",
541 1.21 chopps ovfl);
542 1.14 chopps }
543 1.33 is s2 = splser();
544 1.22 chopps if (sbcnt == 0 && (tp->t_state & TS_TBLOCK) == 0)
545 1.22 chopps SETRTS(ciab.pra); /* start accepting data again */
546 1.33 is splx(s2);
547 1.14 chopps splx(s1);
548 1.1 mw }
549 1.1 mw
550 1.31 veego void
551 1.44 is sereint(stat)
552 1.44 is int stat;
553 1.1 mw {
554 1.14 chopps struct tty *tp;
555 1.14 chopps u_char ch;
556 1.14 chopps int c;
557 1.14 chopps
558 1.44 is tp = ser_tty;
559 1.14 chopps ch = stat & 0xff;
560 1.14 chopps c = ch;
561 1.14 chopps
562 1.14 chopps if ((tp->t_state & TS_ISOPEN) == 0) {
563 1.1 mw #ifdef KGDB
564 1.14 chopps /* we don't care about parity errors */
565 1.44 is if (kgdb_dev == makedev(sermajor, 0) && c == FRAME_END)
566 1.14 chopps kgdb_connect(0); /* trap into kgdb */
567 1.1 mw #endif
568 1.14 chopps return;
569 1.14 chopps }
570 1.14 chopps
571 1.14 chopps /*
572 1.14 chopps * Check for break and (if enabled) parity error.
573 1.14 chopps */
574 1.14 chopps if ((stat & 0x1ff) == 0)
575 1.14 chopps c |= TTY_FE;
576 1.14 chopps else if ((tp->t_cflag & PARENB) &&
577 1.14 chopps (((ch >> 7) + even_parity[ch & 0x7f]
578 1.14 chopps + !!(tp->t_cflag & PARODD)) & 1))
579 1.14 chopps c |= TTY_PE;
580 1.14 chopps
581 1.14 chopps if (stat & SERDATRF_OVRUN)
582 1.15 chopps log(LOG_WARNING, "ser0: silo overflow\n");
583 1.1 mw
584 1.14 chopps (*linesw[tp->t_line].l_rint)(c, tp);
585 1.14 chopps }
586 1.14 chopps
587 1.14 chopps /*
588 1.14 chopps * This interrupt is periodically invoked in the vertical blank
589 1.14 chopps * interrupt. It's used to keep track of the modem control lines
590 1.14 chopps * and (new with the fast_int code) to move accumulated data
591 1.14 chopps * up into the tty layer.
592 1.14 chopps */
593 1.3 mw void
594 1.14 chopps sermint(unit)
595 1.14 chopps int unit;
596 1.1 mw {
597 1.14 chopps struct tty *tp;
598 1.14 chopps u_char stat, last, istat;
599 1.14 chopps
600 1.44 is tp = ser_tty;
601 1.14 chopps if (!tp)
602 1.14 chopps return;
603 1.14 chopps
604 1.44 is /*
605 1.44 is if ((tp->t_state & TS_ISOPEN) == 0 || tp->t_wopen == 0) {
606 1.14 chopps sbrpt = sbwpt = serbuf;
607 1.14 chopps return;
608 1.14 chopps }
609 1.44 is */
610 1.14 chopps /*
611 1.14 chopps * empty buffer
612 1.14 chopps */
613 1.44 is serintr();
614 1.14 chopps
615 1.14 chopps stat = ciab.pra;
616 1.14 chopps last = last_ciab_pra;
617 1.14 chopps last_ciab_pra = stat;
618 1.14 chopps
619 1.14 chopps /*
620 1.14 chopps * check whether any interesting signal changed state
621 1.14 chopps */
622 1.14 chopps istat = stat ^ last;
623 1.1 mw
624 1.44 is if (istat & serdcd) {
625 1.44 is (*linesw[tp->t_line].l_modem)(tp, ISDCD(stat));
626 1.14 chopps }
627 1.44 is
628 1.14 chopps if ((istat & CIAB_PRA_CTS) && (tp->t_state & TS_ISOPEN) &&
629 1.14 chopps (tp->t_cflag & CRTSCTS)) {
630 1.5 mw #if 0
631 1.14 chopps /* the line is up and we want to do rts/cts flow control */
632 1.14 chopps if (ISCTS(stat)) {
633 1.14 chopps tp->t_state &= ~TS_TTSTOP;
634 1.14 chopps ttstart(tp);
635 1.14 chopps /* cause tbe-int if we were stuck there */
636 1.14 chopps custom.intreq = INTF_SETCLR | INTF_TBE;
637 1.14 chopps } else
638 1.14 chopps tp->t_state |= TS_TTSTOP;
639 1.5 mw #else
640 1.14 chopps /* do this on hardware level, not with tty driver */
641 1.14 chopps if (ISCTS(stat)) {
642 1.14 chopps tp->t_state &= ~TS_TTSTOP;
643 1.14 chopps /* cause TBE interrupt */
644 1.14 chopps custom.intreq = INTF_SETCLR | INTF_TBE;
645 1.14 chopps }
646 1.14 chopps #endif
647 1.5 mw }
648 1.1 mw }
649 1.1 mw
650 1.5 mw int
651 1.8 chopps serioctl(dev, cmd, data, flag, p)
652 1.24 chopps dev_t dev;
653 1.24 chopps u_long cmd;
654 1.8 chopps caddr_t data;
655 1.24 chopps int flag;
656 1.8 chopps struct proc *p;
657 1.1 mw {
658 1.14 chopps register struct tty *tp;
659 1.14 chopps register int error;
660 1.14 chopps
661 1.44 is tp = ser_tty;
662 1.14 chopps if (!tp)
663 1.14 chopps return ENXIO;
664 1.14 chopps
665 1.14 chopps error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag, p);
666 1.14 chopps if (error >= 0)
667 1.14 chopps return(error);
668 1.14 chopps
669 1.14 chopps error = ttioctl(tp, cmd, data, flag, p);
670 1.14 chopps if (error >= 0)
671 1.14 chopps return(error);
672 1.14 chopps
673 1.14 chopps switch (cmd) {
674 1.14 chopps case TIOCSBRK:
675 1.14 chopps custom.adkcon = ADKCONF_SETCLR | ADKCONF_UARTBRK;
676 1.14 chopps break;
677 1.14 chopps
678 1.14 chopps case TIOCCBRK:
679 1.14 chopps custom.adkcon = ADKCONF_UARTBRK;
680 1.14 chopps break;
681 1.14 chopps
682 1.14 chopps case TIOCSDTR:
683 1.44 is (void) sermctl(dev, TIOCM_DTR, DMBIS);
684 1.14 chopps break;
685 1.14 chopps
686 1.14 chopps case TIOCCDTR:
687 1.44 is (void) sermctl(dev, TIOCM_DTR, DMBIC);
688 1.14 chopps break;
689 1.14 chopps
690 1.14 chopps case TIOCMSET:
691 1.14 chopps (void) sermctl(dev, *(int *) data, DMSET);
692 1.14 chopps break;
693 1.14 chopps
694 1.14 chopps case TIOCMBIS:
695 1.14 chopps (void) sermctl(dev, *(int *) data, DMBIS);
696 1.14 chopps break;
697 1.14 chopps
698 1.14 chopps case TIOCMBIC:
699 1.14 chopps (void) sermctl(dev, *(int *) data, DMBIC);
700 1.14 chopps break;
701 1.14 chopps
702 1.14 chopps case TIOCMGET:
703 1.14 chopps *(int *)data = sermctl(dev, 0, DMGET);
704 1.14 chopps break;
705 1.14 chopps case TIOCGFLAGS:
706 1.44 is *(int *)data = serswflags;
707 1.14 chopps break;
708 1.14 chopps case TIOCSFLAGS:
709 1.14 chopps error = suser(p->p_ucred, &p->p_acflag);
710 1.14 chopps if (error != 0)
711 1.14 chopps return(EPERM);
712 1.14 chopps
713 1.14 chopps serswflags = *(int *)data;
714 1.14 chopps serswflags &= /* only allow valid flags */
715 1.14 chopps (TIOCFLAG_SOFTCAR | TIOCFLAG_CLOCAL | TIOCFLAG_CRTSCTS);
716 1.14 chopps break;
717 1.14 chopps default:
718 1.14 chopps return(ENOTTY);
719 1.14 chopps }
720 1.1 mw
721 1.14 chopps return(0);
722 1.1 mw }
723 1.1 mw
724 1.5 mw int
725 1.1 mw serparam(tp, t)
726 1.14 chopps struct tty *tp;
727 1.14 chopps struct termios *t;
728 1.1 mw {
729 1.44 is int cflag, ospeed = 0;
730 1.14 chopps
731 1.32 is if (t->c_ospeed > 0) {
732 1.32 is if (t->c_ospeed < 110)
733 1.32 is return(EINVAL);
734 1.32 is ospeed = SERBRD(t->c_ospeed);
735 1.32 is }
736 1.32 is
737 1.32 is if (t->c_ispeed && t->c_ispeed != t->c_ospeed)
738 1.14 chopps return(EINVAL);
739 1.14 chopps
740 1.44 is /* XXX missing here: console test */
741 1.44 is if (serswflags & TIOCFLAG_SOFTCAR) {
742 1.44 is t->c_cflag = (t->c_cflag & ~HUPCL) | CLOCAL;
743 1.44 is }
744 1.44 is
745 1.44 is /* if no changes, dont do anything. com.c explains why. */
746 1.44 is if (tp->t_ospeed == t->c_ospeed &&
747 1.44 is tp->t_cflag == t->c_cflag)
748 1.44 is return (0);
749 1.44 is
750 1.44 is cflag = t->c_cflag;
751 1.44 is
752 1.44 is if (cflag & (CLOCAL | MDMBUF))
753 1.44 is serdcd = 0;
754 1.44 is else
755 1.44 is serdcd = CIAB_PRA_CD;
756 1.44 is
757 1.44 is /* TODO: support multiple flow control protocols like com.c */
758 1.44 is
759 1.14 chopps /*
760 1.14 chopps * copy to tty
761 1.14 chopps */
762 1.14 chopps tp->t_ispeed = t->c_ispeed;
763 1.14 chopps tp->t_ospeed = t->c_ospeed;
764 1.14 chopps tp->t_cflag = cflag;
765 1.42 mhitch ser_open_speed = tp->t_ispeed;
766 1.14 chopps
767 1.14 chopps /*
768 1.14 chopps * enable interrupts
769 1.14 chopps */
770 1.14 chopps custom.intena = INTF_SETCLR | INTF_RBF | INTF_TBE;
771 1.14 chopps last_ciab_pra = ciab.pra;
772 1.14 chopps
773 1.32 is if (t->c_ospeed == 0)
774 1.14 chopps (void)sermctl(tp->t_dev, 0, DMSET); /* hang up line */
775 1.14 chopps else {
776 1.14 chopps /*
777 1.14 chopps * (re)enable DTR
778 1.14 chopps * and set baud rate. (8 bit mode)
779 1.14 chopps */
780 1.14 chopps (void)sermctl(tp->t_dev, TIOCM_DTR | TIOCM_RTS, DMSET);
781 1.14 chopps custom.serper = (0 << 15) | ospeed;
782 1.14 chopps }
783 1.14 chopps return(0);
784 1.1 mw }
785 1.3 mw
786 1.22 chopps int serhwiflow(tp, flag)
787 1.22 chopps struct tty *tp;
788 1.22 chopps int flag;
789 1.22 chopps {
790 1.22 chopps #if 0
791 1.38 christos printf ("serhwiflow %d\n", flag);
792 1.22 chopps #endif
793 1.22 chopps if (flag)
794 1.22 chopps CLRRTS(ciab.pra);
795 1.22 chopps else
796 1.22 chopps SETRTS(ciab.pra);
797 1.22 chopps return 1;
798 1.22 chopps }
799 1.3 mw
800 1.3 mw static void
801 1.14 chopps ser_putchar(tp, c)
802 1.14 chopps struct tty *tp;
803 1.14 chopps u_short c;
804 1.14 chopps {
805 1.14 chopps if ((tp->t_cflag & CSIZE) == CS7 || (tp->t_cflag & PARENB))
806 1.14 chopps c &= 0x7f;
807 1.14 chopps
808 1.14 chopps /*
809 1.14 chopps * handle parity if necessary
810 1.14 chopps */
811 1.14 chopps if (tp->t_cflag & PARENB) {
812 1.14 chopps if (even_parity[c])
813 1.14 chopps c |= 0x80;
814 1.14 chopps if (tp->t_cflag & PARODD)
815 1.14 chopps c ^= 0x80;
816 1.14 chopps }
817 1.14 chopps /*
818 1.14 chopps * add stop bit(s)
819 1.14 chopps */
820 1.14 chopps if (tp->t_cflag & CSTOPB)
821 1.14 chopps c |= 0x300;
822 1.14 chopps else
823 1.14 chopps c |= 0x100;
824 1.14 chopps
825 1.14 chopps custom.serdat = c;
826 1.3 mw }
827 1.3 mw
828 1.3 mw
829 1.3 mw static u_char ser_outbuf[SEROBUF_SIZE];
830 1.14 chopps static u_char *sob_ptr = ser_outbuf, *sob_end = ser_outbuf;
831 1.14 chopps
832 1.3 mw void
833 1.14 chopps ser_outintr()
834 1.3 mw {
835 1.44 is struct tty *tp;
836 1.14 chopps int s;
837 1.14 chopps
838 1.44 is tp = ser_tty;
839 1.14 chopps s = spltty();
840 1.14 chopps
841 1.14 chopps if (tp == 0)
842 1.14 chopps goto out;
843 1.14 chopps
844 1.14 chopps if ((custom.intreqr & INTF_TBE) == 0)
845 1.14 chopps goto out;
846 1.14 chopps
847 1.14 chopps /*
848 1.14 chopps * clear interrupt
849 1.14 chopps */
850 1.14 chopps custom.intreq = INTF_TBE;
851 1.14 chopps
852 1.14 chopps if (sob_ptr == sob_end) {
853 1.14 chopps tp->t_state &= ~(TS_BUSY | TS_FLUSH);
854 1.14 chopps if (tp->t_line)
855 1.14 chopps (*linesw[tp->t_line].l_start)(tp);
856 1.14 chopps else
857 1.14 chopps serstart(tp);
858 1.14 chopps goto out;
859 1.14 chopps }
860 1.14 chopps
861 1.14 chopps /*
862 1.14 chopps * Do hardware flow control here. if the CTS line goes down, don't
863 1.14 chopps * transmit anything. That way, we'll be restarted by the periodic
864 1.14 chopps * interrupt when CTS comes back up.
865 1.14 chopps */
866 1.14 chopps if (ISCTS(ciab.pra))
867 1.14 chopps ser_putchar(tp, *sob_ptr++);
868 1.22 chopps else
869 1.22 chopps CLRCTS(last_ciab_pra); /* Remember that CTS is off */
870 1.5 mw out:
871 1.14 chopps splx(s);
872 1.3 mw }
873 1.14 chopps
874 1.31 veego void
875 1.1 mw serstart(tp)
876 1.14 chopps struct tty *tp;
877 1.1 mw {
878 1.44 is int cc, s, hiwat;
879 1.44 is #ifdef DIAGNOSTIC
880 1.44 is int unit;
881 1.44 is #endif
882 1.14 chopps
883 1.14 chopps hiwat = 0;
884 1.14 chopps
885 1.14 chopps if ((tp->t_state & TS_ISOPEN) == 0)
886 1.14 chopps return;
887 1.14 chopps
888 1.44 is #ifdef DIAGNOSTIC
889 1.14 chopps unit = SERUNIT(tp->t_dev);
890 1.44 is if (unit)
891 1.44 is panic("serstart: unit is %d\n", unit);
892 1.44 is #endif
893 1.1 mw
894 1.14 chopps s = spltty();
895 1.14 chopps if (tp->t_state & (TS_TIMEOUT | TS_TTSTOP))
896 1.14 chopps goto out;
897 1.14 chopps
898 1.14 chopps cc = tp->t_outq.c_cc;
899 1.14 chopps if (cc <= tp->t_lowat) {
900 1.14 chopps if (tp->t_state & TS_ASLEEP) {
901 1.14 chopps tp->t_state &= ~TS_ASLEEP;
902 1.14 chopps wakeup((caddr_t) & tp->t_outq);
903 1.14 chopps }
904 1.14 chopps selwakeup(&tp->t_wsel);
905 1.14 chopps }
906 1.14 chopps if (cc == 0 || (tp->t_state & TS_BUSY))
907 1.14 chopps goto out;
908 1.14 chopps
909 1.14 chopps /*
910 1.14 chopps * We only do bulk transfers if using CTSRTS flow control, not for
911 1.14 chopps * (probably sloooow) ixon/ixoff devices.
912 1.14 chopps */
913 1.14 chopps if ((tp->t_cflag & CRTSCTS) == 0)
914 1.14 chopps cc = 1;
915 1.14 chopps
916 1.14 chopps /*
917 1.14 chopps * Limit the amount of output we do in one burst
918 1.14 chopps * to prevent hogging the CPU.
919 1.14 chopps */
920 1.14 chopps if (cc > SEROBUF_SIZE) {
921 1.14 chopps hiwat++;
922 1.14 chopps cc = SEROBUF_SIZE;
923 1.14 chopps }
924 1.14 chopps cc = q_to_b(&tp->t_outq, ser_outbuf, cc);
925 1.14 chopps if (cc > 0) {
926 1.14 chopps tp->t_state |= TS_BUSY;
927 1.14 chopps
928 1.14 chopps sob_ptr = ser_outbuf;
929 1.14 chopps sob_end = ser_outbuf + cc;
930 1.14 chopps
931 1.14 chopps /*
932 1.14 chopps * Get first character out, then have TBE-interrupts blow out
933 1.14 chopps * further characters, until buffer is empty, and TS_BUSY gets
934 1.14 chopps * cleared.
935 1.14 chopps */
936 1.14 chopps ser_putchar(tp, *sob_ptr++);
937 1.14 chopps }
938 1.14 chopps out:
939 1.14 chopps splx(s);
940 1.1 mw }
941 1.14 chopps
942 1.1 mw /*
943 1.1 mw * Stop output on a line.
944 1.1 mw */
945 1.1 mw /*ARGSUSED*/
946 1.36 mycroft void
947 1.1 mw serstop(tp, flag)
948 1.14 chopps struct tty *tp;
949 1.31 veego int flag;
950 1.1 mw {
951 1.14 chopps int s;
952 1.1 mw
953 1.14 chopps s = spltty();
954 1.14 chopps if (tp->t_state & TS_BUSY) {
955 1.14 chopps if ((tp->t_state & TS_TTSTOP) == 0)
956 1.14 chopps tp->t_state |= TS_FLUSH;
957 1.14 chopps }
958 1.14 chopps splx(s);
959 1.1 mw }
960 1.14 chopps
961 1.5 mw int
962 1.1 mw sermctl(dev, bits, how)
963 1.14 chopps dev_t dev;
964 1.14 chopps int bits, how;
965 1.1 mw {
966 1.44 is int s;
967 1.31 veego u_char ub = 0;
968 1.14 chopps
969 1.14 chopps /*
970 1.14 chopps * convert TIOCM* mask into CIA mask
971 1.14 chopps * which is active low
972 1.14 chopps */
973 1.14 chopps if (how != DMGET) {
974 1.14 chopps ub = 0;
975 1.14 chopps if (bits & TIOCM_DTR)
976 1.14 chopps ub |= CIAB_PRA_DTR;
977 1.14 chopps if (bits & TIOCM_RTS)
978 1.14 chopps ub |= CIAB_PRA_RTS;
979 1.14 chopps if (bits & TIOCM_CTS)
980 1.14 chopps ub |= CIAB_PRA_CTS;
981 1.14 chopps if (bits & TIOCM_CD)
982 1.14 chopps ub |= CIAB_PRA_CD;
983 1.14 chopps if (bits & TIOCM_RI)
984 1.14 chopps ub |= CIAB_PRA_SEL; /* collision with /dev/par ! */
985 1.14 chopps if (bits & TIOCM_DSR)
986 1.14 chopps ub |= CIAB_PRA_DSR;
987 1.14 chopps }
988 1.14 chopps s = spltty();
989 1.14 chopps switch (how) {
990 1.14 chopps case DMSET:
991 1.14 chopps /* invert and set */
992 1.14 chopps ciab.pra = ~ub;
993 1.14 chopps break;
994 1.14 chopps
995 1.14 chopps case DMBIC:
996 1.14 chopps ciab.pra |= ub;
997 1.14 chopps ub = ~ciab.pra;
998 1.14 chopps break;
999 1.14 chopps
1000 1.14 chopps case DMBIS:
1001 1.14 chopps ciab.pra &= ~ub;
1002 1.14 chopps ub = ~ciab.pra;
1003 1.14 chopps break;
1004 1.14 chopps
1005 1.14 chopps case DMGET:
1006 1.14 chopps ub = ~ciab.pra;
1007 1.14 chopps break;
1008 1.14 chopps }
1009 1.14 chopps (void)splx(s);
1010 1.14 chopps
1011 1.14 chopps bits = 0;
1012 1.14 chopps if (ub & CIAB_PRA_DTR)
1013 1.14 chopps bits |= TIOCM_DTR;
1014 1.14 chopps if (ub & CIAB_PRA_RTS)
1015 1.14 chopps bits |= TIOCM_RTS;
1016 1.14 chopps if (ub & CIAB_PRA_CTS)
1017 1.14 chopps bits |= TIOCM_CTS;
1018 1.14 chopps if (ub & CIAB_PRA_CD)
1019 1.14 chopps bits |= TIOCM_CD;
1020 1.14 chopps if (ub & CIAB_PRA_SEL)
1021 1.14 chopps bits |= TIOCM_RI;
1022 1.14 chopps if (ub & CIAB_PRA_DSR)
1023 1.14 chopps bits |= TIOCM_DSR;
1024 1.14 chopps
1025 1.14 chopps return(bits);
1026 1.1 mw }
1027 1.1 mw
1028 1.1 mw /*
1029 1.1 mw * Following are all routines needed for SER to act as console
1030 1.1 mw */
1031 1.31 veego void
1032 1.1 mw sercnprobe(cp)
1033 1.1 mw struct consdev *cp;
1034 1.1 mw {
1035 1.44 is int unit;
1036 1.14 chopps
1037 1.14 chopps /* locate the major number */
1038 1.14 chopps for (sermajor = 0; sermajor < nchrdev; sermajor++)
1039 1.14 chopps if (cdevsw[sermajor].d_open == (void *)seropen)
1040 1.14 chopps break;
1041 1.14 chopps
1042 1.14 chopps
1043 1.14 chopps unit = CONUNIT; /* XXX: ick */
1044 1.14 chopps
1045 1.14 chopps /*
1046 1.14 chopps * initialize required fields
1047 1.14 chopps */
1048 1.14 chopps cp->cn_dev = makedev(sermajor, unit);
1049 1.14 chopps if (serconsole == unit)
1050 1.14 chopps cp->cn_pri = CN_REMOTE;
1051 1.14 chopps else
1052 1.14 chopps cp->cn_pri = CN_NORMAL;
1053 1.1 mw #ifdef KGDB
1054 1.14 chopps if (major(kgdb_dev) == 1) /* XXX */
1055 1.14 chopps kgdb_dev = makedev(sermajor, minor(kgdb_dev));
1056 1.1 mw #endif
1057 1.1 mw }
1058 1.1 mw
1059 1.31 veego void
1060 1.1 mw sercninit(cp)
1061 1.1 mw struct consdev *cp;
1062 1.1 mw {
1063 1.14 chopps int unit;
1064 1.1 mw
1065 1.14 chopps unit = SERUNIT(cp->cn_dev);
1066 1.14 chopps
1067 1.44 is serinit(serdefaultrate);
1068 1.14 chopps serconsole = unit;
1069 1.14 chopps serconsinit = 1;
1070 1.1 mw }
1071 1.1 mw
1072 1.31 veego void
1073 1.44 is serinit(rate)
1074 1.44 is int rate;
1075 1.1 mw {
1076 1.14 chopps int s;
1077 1.1 mw
1078 1.26 chopps s = splser();
1079 1.14 chopps /*
1080 1.14 chopps * might want to fiddle with the CIA later ???
1081 1.14 chopps */
1082 1.32 is custom.serper = (rate>=110 ? SERBRD(rate) : 0);
1083 1.14 chopps splx(s);
1084 1.1 mw }
1085 1.1 mw
1086 1.31 veego int
1087 1.1 mw sercngetc(dev)
1088 1.31 veego dev_t dev;
1089 1.1 mw {
1090 1.14 chopps u_short stat;
1091 1.14 chopps int c, s;
1092 1.1 mw
1093 1.26 chopps s = splser();
1094 1.14 chopps /*
1095 1.14 chopps * poll
1096 1.14 chopps */
1097 1.14 chopps while (((stat = custom.serdatr & 0xffff) & SERDATRF_RBF) == 0)
1098 1.14 chopps ;
1099 1.14 chopps c = stat & 0xff;
1100 1.14 chopps /*
1101 1.14 chopps * clear interrupt
1102 1.14 chopps */
1103 1.14 chopps custom.intreq = INTF_RBF;
1104 1.14 chopps splx(s);
1105 1.14 chopps return(c);
1106 1.1 mw }
1107 1.1 mw
1108 1.1 mw /*
1109 1.1 mw * Console kernel output character routine.
1110 1.1 mw */
1111 1.31 veego void
1112 1.1 mw sercnputc(dev, c)
1113 1.14 chopps dev_t dev;
1114 1.14 chopps int c;
1115 1.1 mw {
1116 1.14 chopps register int timo;
1117 1.14 chopps int s;
1118 1.14 chopps
1119 1.14 chopps s = splhigh();
1120 1.1 mw
1121 1.14 chopps if (serconsinit == 0) {
1122 1.44 is (void)serinit(serdefaultrate);
1123 1.14 chopps serconsinit = 1;
1124 1.14 chopps }
1125 1.14 chopps
1126 1.14 chopps /*
1127 1.14 chopps * wait for any pending transmission to finish
1128 1.14 chopps */
1129 1.14 chopps timo = 50000;
1130 1.14 chopps while (!(custom.serdatr & SERDATRF_TBE) && --timo);
1131 1.14 chopps
1132 1.14 chopps /*
1133 1.14 chopps * transmit char.
1134 1.14 chopps */
1135 1.14 chopps custom.serdat = (c & 0xff) | 0x100;
1136 1.14 chopps
1137 1.14 chopps /*
1138 1.14 chopps * wait for this transmission to complete
1139 1.14 chopps */
1140 1.14 chopps timo = 1500000;
1141 1.14 chopps while (!(custom.serdatr & SERDATRF_TBE) && --timo)
1142 1.14 chopps ;
1143 1.14 chopps
1144 1.14 chopps /*
1145 1.14 chopps * Wait for the device (my vt100..) to process the data, since we
1146 1.14 chopps * don't do flow-control with cnputc
1147 1.14 chopps */
1148 1.14 chopps for (timo = 0; timo < 30000; timo++)
1149 1.14 chopps ;
1150 1.14 chopps
1151 1.14 chopps /*
1152 1.14 chopps * clear any interrupts generated by this transmission
1153 1.14 chopps */
1154 1.14 chopps custom.intreq = INTF_TBE;
1155 1.14 chopps splx(s);
1156 1.25 chopps }
1157 1.25 chopps
1158 1.25 chopps void
1159 1.25 chopps sercnpollc(dev, on)
1160 1.25 chopps dev_t dev;
1161 1.25 chopps int on;
1162 1.25 chopps {
1163 1.1 mw }
1164 1.1 mw #endif
1165