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