Home | History | Annotate | Line # | Download | only in dev
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