/* $NetBSD: dc.c,v 1.78 2004/04/25 06:23:41 matt Exp $ */ /*- * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Ralph Campbell and Rick Macklem. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)dc.c 8.5 (Berkeley) 6/2/95 */ #include /* RCS ID & Copyright macro defns */ __KERNEL_RCSID(0, "$NetBSD: dc.c,v 1.78 2004/04/25 06:23:41 matt Exp $"); /* * devDC7085.c -- * * This file contains machine-dependent routines that handle the * output queue for the serial lines. * * Copyright (C) 1989 Digital Equipment Corporation. * Permission to use, copy, modify, and distribute this software and * its documentation for any purpose and without fee is hereby granted, * provided that the above copyright notice appears in all copies. * Digital Equipment Corporation makes no representations about the * suitability of this software for any purpose. It is provided "as is" * without express or implied warranty. * * from: Header: /sprite/src/kernel/dev/ds3100.md/RCS/devDC7085.c, * v 1.4 89/08/29 11:55:30 nelson Exp SPRITE (DECWRL)"; */ #include "opt_ddb.h" #include "rasterconsole.h" /* * DC7085 (DZ-11 look alike) Driver */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* wbflush() */ #include #include #include /* XXX lk_reset and friends */ #include /* XXX mouseInput() */ #include #include #define DCUNIT(dev) (minor(dev) >> 2) #define DCLINE(dev) (minor(dev) & 3) /* Autoconfiguration data for config. */ extern struct cfdriver dc_cd; dev_type_open(dcopen); dev_type_close(dcclose); dev_type_read(dcread); dev_type_write(dcwrite); dev_type_ioctl(dcioctl); dev_type_stop(dcstop); dev_type_tty(dctty); dev_type_poll(dcpoll); const struct cdevsw dc_cdevsw = { dcopen, dcclose, dcread, dcwrite, dcioctl, dcstop, dctty, dcpoll, nommap, ttykqfilter, D_TTY }; /* * Forward declarations */ static void dcstart __P((struct tty *)); static void dcrint __P((struct dc_softc *sc)); static void dcxint __P((struct tty *)); static int dcmctl __P((dev_t dev, int bits, int how)); static void dcscan __P((void *)); static int dcparam __P((struct tty *tp, struct termios *t)); static int cold_dcparam __P((struct tty *tp, struct termios *t, struct dc_softc *sc)); static void dc_reset __P((dcregs *dcaddr)); struct callout dcscan_ch = CALLOUT_INITIALIZER; void ttrstrt __P((void *)); /* console I/O */ static void dcPollc __P((dev_t, int)); static void dc_tty_init __P((struct dc_softc *sc, dev_t dev)); #if NRASTERCONSOLE > 0 static void dc_kbd_init __P((struct dc_softc *sc, dev_t dev)); static void dc_mouse_init __P((struct dc_softc *sc, dev_t dev)); #endif #ifdef DEBUG int debugChar; #endif /* * The DC7085 doesn't interrupt on carrier transitions, so * we have to use a timer to watch it. */ static int dc_timer; /* true if timer started */ /* * Pdma structures for fast output code */ const struct speedtab dcspeedtab[] = { { 0, 0, }, { 50, LPR_B50 }, { 75, LPR_B75 }, { 110, LPR_B110 }, { 134, LPR_B134 }, { 150, LPR_B150 }, { 300, LPR_B300 }, { 600, LPR_B600 }, { 1200, LPR_B1200 }, { 1800, LPR_B1800 }, { 2400, LPR_B2400 }, { 4800, LPR_B4800 }, { 9600, LPR_B9600 }, { 19200,LPR_B19200 }, #ifdef notyet { 19200,LPR_B38400 }, /* Overloaded with 19200, per chip. */ #endif { -1, -1 } }; #ifndef PORTSELECTOR #define ISPEED TTYDEF_SPEED #define LFLAG TTYDEF_LFLAG #else #define ISPEED B4800 #define LFLAG (TTYDEF_LFLAG & ~ECHO) #endif /* QVSS-compatible in-kernel X input event parser, pointer tracker */ void (*dcDivertXInput) __P((int)); void (*dcMouseEvent) __P((void *)); void (*dcMouseButtons) __P((void *)); /* * Console line variables, for use when cold */ dcregs *dc_cons_addr = 0; static struct dc_softc coldcons_softc; /* Test to see if active serial console on this unit. */ #define CONSOLE_ON_UNIT(unit) \ (major(cn_tab->cn_dev) == cdevsw_lookup_major(&dc_cdevsw) && \ SCCUNIT(cn_tab->cn_dev) == (unit)) /* XXX move back into dc_consinit when debugged */ static struct consdev dccons = { NULL, NULL, dcGetc, dcPutc, dcPollc, NULL, NULL, NULL, NODEV, CN_REMOTE }; static boolean_t dc_getc_dotimeout; void dc_cnattach(addr, line) paddr_t addr; int line; { void *v; dev_t dev; struct dc_softc *sc; if (line == 4) line = DCCOMM_PORT; else if (line == 0) line = 0; else line = DCPRINTER_PORT; dev = makedev(cdevsw_lookup_major(&dc_cdevsw), line); v = (void *)MIPS_PHYS_TO_KSEG1(addr); sc = &coldcons_softc; sc->dc_pdma[0].p_addr = v; sc->dc_pdma[1].p_addr = v; sc->dc_pdma[2].p_addr = v; sc->dc_pdma[3].p_addr = v; dc_cons_addr = v; dc_reset(v); dc_tty_init(sc, dev); cn_tab = &dccons; cn_tab->cn_pri = CN_REMOTE; cn_tab->cn_dev = dev; } #if NRASTERCONSOLE > 0 void dckbd_cnattach(addr) paddr_t addr; { void *v; dev_t dev; struct dc_softc *sc; dev = makedev(cdevsw_lookup_major(&dc_cdevsw), DCKBD_PORT); v = (void *)MIPS_PHYS_TO_KSEG1(addr); sc = &coldcons_softc; sc->dc_pdma[0].p_addr = v; sc->dc_pdma[1].p_addr = v; sc->dc_pdma[2].p_addr = v; sc->dc_pdma[3].p_addr = v; dc_cons_addr = v; dc_reset(v); dc_kbd_init(sc, dev); lk_divert(dcGetc, dev); cn_tab = &dccons; cn_tab->cn_pri = CN_NORMAL; cn_tab->cn_getc = lk_getc; rcons_indev(cn_tab); /* cn_dev & cn_putc */ } #endif /* * Attach DC7085 (dz-11) device. */ int dcattach(sc, addr, dtr_mask, rtscts_mask, speed, console_line) struct dc_softc *sc; void *addr; int dtr_mask, rtscts_mask, speed, console_line; { dcregs *dcaddr; struct pdma *pdp; struct tty *tp; int line, maj; #if NRASTERCONSOLE > 0 extern const struct cdevsw rcons_cdevsw; #endif dcaddr = (dcregs *)addr; maj = cdevsw_lookup_major(&dc_cdevsw); /* * For a remote console, wait a while for previous output to * complete. */ if (sc->sc_dv.dv_unit == 0 && major(cn_tab->cn_dev) == maj && cn_tab->cn_pri == CN_REMOTE) { DELAY(10000); } /* reset chip and enable interrupts */ dc_reset(dcaddr); dcaddr->dc_csr |= (CSR_MSE | CSR_TIE | CSR_RIE); wbflush(); DELAY(10); /* init pseudo DMA structures */ pdp = &sc->dc_pdma[0]; for (line = 0; line < 4; line++) { pdp->p_addr = (void *)dcaddr; tp = sc->dc_tty[line] = ttymalloc(); if (line != DCKBD_PORT && line != DCMOUSE_PORT) tty_attach(tp); tp->t_dev = makedev(maj, 4 * sc->sc_dv.dv_unit + line); pdp->p_arg = (int) tp; pdp->p_fcn = dcxint; pdp++; } sc->dcsoftCAR = sc->sc_dv.dv_cfdata->cf_flags | 0xB; if (dc_timer == 0) { dc_timer = 1; callout_reset(&dcscan_ch, hz, dcscan, NULL); } sc->dc_19200 = speed; sc->dc_modem = dtr_mask; sc->dc_rtscts = rtscts_mask; sc->dc_flags = 0; switch (systype) { case DS_PMAX: case DS_3MAX: sc->dc_flags |= DC_KBDMOUSE; break; case DS_MIPSMATE: break; default: /* XXX error?? */ break; } /* * Special handling for consoles. */ if (sc->sc_dv.dv_unit == 0) { if (major(cn_tab->cn_dev) == maj) { /* set params for serial console */ dc_tty_init(sc, cn_tab->cn_dev); } #if NRASTERCONSOLE > 0 if (cdevsw_lookup(cn_tab->cn_dev) == &rcons_cdevsw) { dc_kbd_init(sc, makedev(maj, DCKBD_PORT)); dc_mouse_init(sc, makedev(maj, DCMOUSE_PORT)); } #endif } return (1); } /* * Reset chip. Does not change modem control output bits * or modem state register. * Does not enable interrupts; caller must explicitly or * TIE and RIE on if desired (XXX not true yet) */ static void dc_reset(dcaddr) dcregs *dcaddr; { /* Reset CSR and wait until cleared. */ dcaddr->dc_csr = CSR_CLR; wbflush(); DELAY(10); while (dcaddr->dc_csr & CSR_CLR) ; /* Enable scanner. */ dcaddr->dc_csr = CSR_MSE; wbflush(); DELAY(10); } /* * Initialize line parameters for a serial console. */ static void dc_tty_init(sc, dev) struct dc_softc *sc; dev_t dev; { struct termios cterm; struct tty ctty; int s; s = spltty(); ctty.t_dev = dev; cterm.c_cflag = (TTYDEF_CFLAG & ~(CSIZE | PARENB)) | CS8; cterm.c_ospeed = cterm.c_ispeed = 9600; (void) cold_dcparam(&ctty, &cterm, sc); DELAY(1000); splx(s); } #if NRASTERCONSOLE > 0 static void dc_kbd_init(sc, dev) struct dc_softc *sc; dev_t dev; { struct termios cterm; struct tty ctty; int s; s = spltty(); ctty.t_dev = dev; cterm.c_cflag = CS8; cterm.c_ospeed = cterm.c_ispeed = 4800; (void) cold_dcparam(&ctty, &cterm, sc); DELAY(10000); lk_reset(ctty.t_dev, dcPutc); DELAY(10000); splx(s); } static void dc_mouse_init(sc, dev) struct dc_softc *sc; dev_t dev; { struct termios cterm; struct tty ctty; int s; s = spltty(); ctty.t_dev = dev; cterm.c_cflag = CS8 | PARENB | PARODD; cterm.c_ospeed = cterm.c_ispeed = 4800; (void) cold_dcparam(&ctty, &cterm, sc); /* * This is a hack. As Ted Lemon observed, we want bstreams, * or failing that, a line discipline to do the inkernel DEC * mouse tracking required by Xservers. */ DELAY(10000); dc_getc_dotimeout = TRUE; lk_mouseinit(ctty.t_dev, dcPutc, dcGetc); dc_getc_dotimeout = FALSE; DELAY(10000); splx(s); } #endif /* NRASTERCONSOLE */ /* * open tty */ int dcopen(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { struct tty *tp; struct dc_softc *sc; int unit, line; int s, error = 0; unit = DCUNIT(dev); line = DCLINE(dev); if (unit >= dc_cd.cd_ndevs || line > 4) return (ENXIO); sc = dc_cd.cd_devs[unit]; if (sc->dc_pdma[line].p_addr == (void *)0) return (ENXIO); tp = sc->dc_tty[line]; if (tp == NULL) { tp = sc->dc_tty[line] = ttymalloc(); tty_attach(tp); } tp->t_oproc = dcstart; tp->t_param = dcparam; tp->t_dev = dev; if ((tp->t_state & TS_ISOPEN) == 0 && tp->t_wopen == 0) { ttychars(tp); #ifndef PORTSELECTOR if (tp->t_ispeed == 0) { #endif tp->t_iflag = TTYDEF_IFLAG; tp->t_oflag = TTYDEF_OFLAG; tp->t_cflag = TTYDEF_CFLAG; tp->t_lflag = LFLAG; tp->t_ispeed = tp->t_ospeed = ISPEED; #ifdef PORTSELECTOR tp->t_cflag |= HUPCL; #else } #endif (void) dcparam(tp, &tp->t_termios); ttsetwater(tp); } else if ((tp->t_state & TS_XCLUDE) && curproc->p_ucred->cr_uid != 0) return (EBUSY); #ifdef HW_FLOW_CONTROL (void) dcmctl(dev, DML_DTR | DML_RTS, DMSET); #else (void) dcmctl(dev, DML_DTR, DMSET); #endif if ((sc->dcsoftCAR & (1 << line)) || (dcmctl(dev, 0, DMGET) & DML_CAR)) tp->t_state |= TS_CARR_ON; s = spltty(); while (!(flag & O_NONBLOCK) && !(tp->t_cflag & CLOCAL) && !(tp->t_state & TS_CARR_ON)) { tp->t_wopen++; error = ttysleep(tp, &tp->t_rawq, TTIPRI | PCATCH, ttopen, 0); tp->t_wopen--; if (error != 0) break; } splx(s); if (error) return (error); error = (*tp->t_linesw->l_open)(dev, tp); return (error); } /*ARGSUSED*/ int dcclose(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { struct dc_softc *sc; struct tty *tp; int line, bit; int s; sc = dc_cd.cd_devs[DCUNIT(dev)]; line = DCLINE(dev); tp = sc->dc_tty[line]; bit = 1 << (line + 8); s = spltty(); /* turn off the break bit if it is set */ if (sc->dc_brk & bit) { sc->dc_brk &= ~bit; ttyoutput(0, tp); } splx(s); (*tp->t_linesw->l_close)(tp, flag); if ((tp->t_cflag & HUPCL) || tp->t_wopen || !(tp->t_state & TS_ISOPEN)) (void) dcmctl(dev, 0, DMSET); return (ttyclose(tp)); } int dcread(dev, uio, flag) dev_t dev; struct uio *uio; { struct dc_softc *sc; struct tty *tp; sc = dc_cd.cd_devs[DCUNIT(dev)]; tp = sc->dc_tty[DCLINE(dev)]; #ifdef HW_FLOW_CONTROL if ((tp->t_cflag & CRTS_IFLOW) && (tp->t_state & TS_TBLOCK) && tp->t_rawq.c_cc < TTYHOG/5) { tp->t_state &= ~TS_TBLOCK; (void) dcmctl(dev, DML_RTS, DMBIS); } #endif /* HW_FLOW_CONTROL */ return ((*tp->t_linesw->l_read)(tp, uio, flag)); } int dcwrite(dev, uio, flag) dev_t dev; struct uio *uio; { struct dc_softc *sc; struct tty *tp; sc = dc_cd.cd_devs[DCUNIT(dev)]; tp = sc->dc_tty[DCLINE(dev)]; return ((*tp->t_linesw->l_write)(tp, uio, flag)); } int dcpoll(dev, events, p) dev_t dev; int events; struct proc *p; { struct dc_softc *sc; struct tty *tp; sc = dc_cd.cd_devs[DCUNIT(dev)]; tp = sc->dc_tty[DCLINE(dev)]; return ((*tp->t_linesw->l_poll)(tp, events, p)); } struct tty * dctty(dev) dev_t dev; { struct dc_softc *sc; struct tty *tp; sc = dc_cd.cd_devs[DCUNIT(dev)]; tp = sc->dc_tty[DCLINE(dev)]; return (tp); } /*ARGSUSED*/ int dcioctl(dev, cmd, data, flag, p) dev_t dev; u_long cmd; caddr_t data; int flag; struct proc *p; { struct dc_softc *sc; struct tty *tp; int unit; int line; int error; unit = DCUNIT(dev); line = DCLINE(dev); sc = dc_cd.cd_devs[unit]; tp = sc->dc_tty[line]; error = (*tp->t_linesw->l_ioctl)(tp, cmd, data, flag, p); if (error != EPASSTHROUGH) return (error); error = ttioctl(tp, cmd, data, flag, p); if (error != EPASSTHROUGH) return (error); switch (cmd) { case TIOCSBRK: sc->dc_brk |= 1 << (line + 8); ttyoutput(0, tp); break; case TIOCCBRK: sc->dc_brk &= ~(1 << (line + 8)); ttyoutput(0, tp); break; case TIOCSDTR: (void) dcmctl(dev, DML_DTR|DML_RTS, DMBIS); break; case TIOCCDTR: (void) dcmctl(dev, DML_DTR|DML_RTS, DMBIC); break; case TIOCMSET: (void) dcmctl(dev, *(int *)data, DMSET); break; case TIOCMBIS: (void) dcmctl(dev, *(int *)data, DMBIS); break; case TIOCMBIC: (void) dcmctl(dev, *(int *)data, DMBIC); break; case TIOCMGET: *(int *)data = dcmctl(dev, 0, DMGET); break; default: return (EPASSTHROUGH); } return (0); } /* * Set line parameters */ static int dcparam(tp, t) struct tty *tp; struct termios *t; { struct dc_softc *sc; /* * Extract softc data, and pass entire request onto * cold_dcparam() for argument checking and execution. */ sc = dc_cd.cd_devs[DCUNIT(tp->t_dev)]; return (cold_dcparam(tp, t, sc)); } /* * ttyparam entry point, but callable when very cold. */ static int cold_dcparam(tp, t, sc) struct tty *tp; struct termios *t; struct dc_softc *sc; { dcregs *dcaddr = (dcregs *)sc->dc_pdma[0].p_addr; int overload_exta_38400 = 0; int lpr; int cflag = t->c_cflag; int unit = minor(tp->t_dev); int ospeed = ttspeedtab(t->c_ospeed, dcspeedtab); int s; int line; line = DCLINE(tp->t_dev); /* check requested parameters */ if (ospeed < 0 || (t->c_ispeed && t->c_ispeed != t->c_ospeed) || (cflag & CSIZE) == CS5 || (cflag & CSIZE) == CS6 || (t->c_ospeed > 19200 && overload_exta_38400 != 1)) return (EINVAL); /* and copy to tty */ tp->t_ispeed = t->c_ispeed; tp->t_ospeed = t->c_ospeed; tp->t_cflag = cflag; if (ospeed == 0) { (void) dcmctl(unit, 0, DMSET); /* hang up line */ return (0); } lpr = LPR_RXENAB | ospeed | line; if ((cflag & CSIZE) == CS7) lpr |= LPR_7_BIT_CHAR; else lpr |= LPR_8_BIT_CHAR; if (cflag & PARENB) lpr |= LPR_PARENB; if (cflag & PARODD) lpr |= LPR_OPAR; if (cflag & CSTOPB) lpr |= LPR_2_STOP; s = spltty(); dcaddr->dc_lpr = lpr; wbflush(); splx(s); DELAY(10); return (0); } /* * Check for interrupts from all devices. */ int dcintr(xxxunit) void *xxxunit; { struct dc_softc *sc = xxxunit; dcregs *dcaddr; unsigned csr; dcaddr = (dcregs *)sc->dc_pdma[0].p_addr; while ((csr = dcaddr->dc_csr) & (CSR_RDONE | CSR_TRDY)) { if (csr & CSR_RDONE) dcrint(sc); if (csr & CSR_TRDY) dcxint(sc->dc_tty[((csr >> 8) & 03)]); } /* XXX check for spurious interrupts */ return 0; } static void dcrint(sc) struct dc_softc * sc; { dcregs *dcaddr; struct tty *tp; int c, cc; int overrun = 0; struct tty **dc_tty; #if NRASTERCONSOLE > 0 char *cp; int cl; #endif dc_tty = ((struct dc_softc*)dc_cd.cd_devs[0])->dc_tty; /* XXX */ dcaddr = (dcregs *)sc->dc_pdma[0].p_addr; /*XXX*/ while ((c = dcaddr->dc_rbuf) < 0) { /* char present */ cc = c & 0xff; tp = sc->dc_tty[((c >> 8) & 03)]; if ((c & RBUF_OERR) && overrun == 0) { log(LOG_WARNING, "%s,%d: silo overflow\n", sc->sc_dv.dv_xname, (c >> 8) & 03); overrun = 1; } if (sc->dc_flags & DC_KBDMOUSE) { /* the keyboard requires special translation */ if (tp == dc_tty[DCKBD_PORT]) { if (cc == LK_DO) { #ifdef DDB spl0(); Debugger(); return; #endif } #ifdef DEBUG debugChar = cc; #endif if (dcDivertXInput) { (*dcDivertXInput)(cc); return; } #if NRASTERCONSOLE > 0 if ((cp = lk_mapchar(cc, &cl)) == NULL) return; while (cl--) rcons_input(0, *cp++); #endif return; } else if (tp == dc_tty[DCMOUSE_PORT] && dcMouseButtons) { #if NRASTERCONSOLE > 0 mouseInput(cc); #endif return; } } if (!(tp->t_state & TS_ISOPEN)) { wakeup(&tp->t_rawq); #ifdef PORTSELECTOR if (tp->t_wopen == 0) #endif return; } #ifdef DDB if (c & RBUF_FERR && tp->t_dev == cn_tab->cn_dev) { console_debugger(); continue; } #endif if (c & RBUF_FERR) cc |= TTY_FE; if (c & RBUF_PERR) cc |= TTY_PE; #ifdef HW_FLOW_CONTROL if ((tp->t_cflag & CRTS_IFLOW) && !(tp->t_state & TS_TBLOCK) && tp->t_rawq.c_cc + tp->t_canq.c_cc >= TTYHOG) { tp->t_state &= ~TS_TBLOCK; (void) dcmctl(tp->t_dev, DML_RTS, DMBIC); } #endif /* HWW_FLOW_CONTROL */ (*tp->t_linesw->l_rint)(cc, tp); } DELAY(10); } static void dcxint(tp) struct tty *tp; { struct dc_softc *sc; struct pdma *dp; dcregs *dcaddr; int line, linemask; sc = dc_cd.cd_devs[DCUNIT(tp->t_dev)]; /* XXX */ line = DCLINE(tp->t_dev); linemask = 1 << line; dp = &sc->dc_pdma[line]; if (dp->p_mem < dp->p_end) { dcaddr = (dcregs *)dp->p_addr; #ifdef HW_FLOW_CONTROL /* check for hardware flow control of output */ if ((tp->t_cflag & CCTS_OFLOW) && (sc->dc_rtscts & linemask)) { switch (line) { case 2: if (dcaddr->dc_msr & MSR_CTS2) break; goto stop; case 3: if (dcaddr->dc_msr & MSR_CTS3) break; stop: tp->t_state &= ~TS_BUSY; tp->t_state |= TS_TTSTOP; ndflush(&tp->t_outq, dp->p_mem - (caddr_t)tp->t_outq.c_cf); dp->p_end = dp->p_mem = tp->t_outq.c_cf; dcaddr->dc_tcr &= ~(1 << line); wbflush(); DELAY(10); return; } } #endif /* HW_FLOW_CONTROL */ dcaddr->dc_tdr = sc->dc_brk | *(u_char *)dp->p_mem; dp->p_mem++; wbflush(); DELAY(10); return; } tp->t_state &= ~TS_BUSY; if (tp->t_state & TS_FLUSH) tp->t_state &= ~TS_FLUSH; else { ndflush(&tp->t_outq, dp->p_mem - (caddr_t) tp->t_outq.c_cf); dp->p_end = dp->p_mem = tp->t_outq.c_cf; } (*tp->t_linesw->l_start)(tp); if (tp->t_outq.c_cc == 0 || !(tp->t_state & TS_BUSY)) { dcaddr = (dcregs *)dp->p_addr; dcaddr->dc_tcr &= ~(1 << line); wbflush(); DELAY(10); } } static void dcstart(tp) struct tty *tp; { struct dc_softc *sc; struct pdma *dp; dcregs *dcaddr; int cc; int line, s; sc = dc_cd.cd_devs[DCUNIT(tp->t_dev)]; line = DCLINE(tp->t_dev); dp = &sc->dc_pdma[line]; dcaddr = (dcregs *)dp->p_addr; s = spltty(); if (tp->t_state & (TS_TIMEOUT|TS_BUSY|TS_TTSTOP)) goto out; if (tp->t_outq.c_cc <= tp->t_lowat) { if (tp->t_state & TS_ASLEEP) { tp->t_state &= ~TS_ASLEEP; wakeup(&tp->t_outq); } selwakeup(&tp->t_wsel); } if (tp->t_outq.c_cc == 0) goto out; cc = ndqb(&tp->t_outq, 0); if (cc == 0) goto out; tp->t_state |= TS_BUSY; dp->p_end = dp->p_mem = tp->t_outq.c_cf; dp->p_end += cc; dcaddr->dc_tcr |= 1 << line; wbflush(); out: splx(s); } /* * Stop output on a line. */ /*ARGSUSED*/ void dcstop(tp, flag) struct tty *tp; { struct dc_softc *sc; struct pdma *dp; int s; sc = dc_cd.cd_devs[DCUNIT(tp->t_dev)]; dp = &sc->dc_pdma[DCLINE(tp->t_dev)]; s = spltty(); if (tp->t_state & TS_BUSY) { dp->p_end = dp->p_mem; if (!(tp->t_state & TS_TTSTOP)) tp->t_state |= TS_FLUSH; } splx(s); } static int dcmctl(dev, bits, how) dev_t dev; int bits, how; { struct dc_softc *sc; dcregs *dcaddr; int line, mbits; int s; int tcr, msr; line = DCLINE(dev); sc = dc_cd.cd_devs[DCUNIT(dev)]; dcaddr = (dcregs *)sc->dc_pdma[line].p_addr; s = spltty(); /* only channel 2 has modem control on a DECstation 2100/3100 */ mbits = DML_DTR | DML_DSR | DML_CAR; #ifdef HW_FLOW_CONTROL mbits != DML_RTS; #endif /* HW_FLOW_CONTROL */ switch (line) { case 2: /* pmax partial-modem comms port, full-modem port on 3max */ mbits = 0; tcr = dcaddr->dc_tcr; if (tcr & TCR_DTR2) mbits |= DML_DTR; if ((sc->dc_rtscts & (1<dc_msr; if (msr & MSR_CD2) mbits |= DML_CAR; if (msr & MSR_DSR2) { /* * XXX really tests for DS_PMAX instead of DS_3MAX * but close enough for now. Vaxes? */ if ((sc->dc_rtscts & (1 << line )) == 0 && (sc->dc_modem & (1 << line ))) mbits |= DML_CAR | DML_DSR; else mbits |= DML_DSR; } break; case 3: /* no modem control on pmax, console port on 3max */ /* * XXX really tests for DS_3MAX instead of DS_PMAX * but close enough for now. Vaxes? */ if ( sc->dc_modem & (1 << line )) { mbits = 0; tcr = dcaddr->dc_tcr; if (tcr & TCR_DTR3) mbits |= DML_DTR; #ifdef HW_FLOW_CONTROL /* XXX OK for get, but not for set? */ /*if ( sc->dc_rtscts & (1 << line ))*/ if (tcr & TCR_RTS3) mbits |= DML_RTS; #endif /*HW_FLOW_CONTROL*/ msr = dcaddr->dc_msr; if (msr & MSR_CD3) mbits |= DML_CAR; if (msr & MSR_DSR3) mbits |= DML_DSR; } } switch (how) { case DMSET: mbits = bits; break; case DMBIS: mbits |= bits; break; case DMBIC: mbits &= ~bits; break; case DMGET: (void) splx(s); return (mbits); } switch (line) { case 2: /* 2 */ tcr = dcaddr->dc_tcr; if (mbits & DML_DTR) tcr |= TCR_DTR2; else tcr &= ~TCR_DTR2; /*if (systype != DS_PMAX)*/ if (sc->dc_rtscts & (1 << line)) { if (mbits & DML_RTS) tcr |= TCR_RTS2; else tcr &= ~TCR_RTS2; } dcaddr->dc_tcr = tcr; break; case 3: /* XXX DTR not supported on this line on 2100/3100 */ /*if (systype != DS_PMAX)*/ if (sc->dc_modem & (1 << line)) { tcr = dcaddr->dc_tcr; if (mbits & DML_DTR) tcr |= TCR_DTR3; else tcr &= ~TCR_DTR3; #ifdef HW_FLOW_CONTROL /*if (sc->dc_rtscts & (1 << line))*/ if (mbits & DML_RTS) tcr |= TCR_RTS3; else tcr &= ~TCR_RTS3; #endif /* HW_FLOW_CONTROL */ dcaddr->dc_tcr = tcr; } } (void) splx(s); return (mbits); } /* * This is called by timeout() periodically. * Check to see if modem status bits have changed. */ static void dcscan(arg) void *arg; { struct dc_softc *sc = dc_cd.cd_devs[0]; /* XXX */ dcregs *dcaddr; struct tty *tp; int unit, limit, dtr, dsr; int s; /* only channel 2 has modem control on a DECstation 2100/3100 */ dtr = TCR_DTR2; dsr = MSR_DSR2; #ifdef HW_FLOW_CONTROL /*limit = (systype == DS_PMAX) ? 2 : 3;*/ limit = (sc->dc_rtscts & (1 << 3)) :3 : 2; /*XXX*/ #else limit = 2; #endif s = spltty(); for (unit = 2; unit <= limit; unit++, dtr >>= 2, dsr >>= 8) { tp = sc->dc_tty[unit]; dcaddr = (dcregs *)sc->dc_pdma[unit].p_addr; if ((dcaddr->dc_msr & dsr) || (sc->dcsoftCAR & (1 << unit))) { /* carrier present */ if (!(tp->t_state & TS_CARR_ON)) (void)(*tp->t_linesw->l_modem)(tp, 1); } else if ((tp->t_state & TS_CARR_ON) && (*tp->t_linesw->l_modem)(tp, 0) == 0) dcaddr->dc_tcr &= ~dtr; #ifdef HW_FLOW_CONTROL /* * If we are using hardware flow control and output is stopped, * then resume transmit. */ if ((tp->t_cflag & CCTS_OFLOW) && (tp->t_state & TS_TTSTOP) && /*systype != DS_PMAX*/ (sc->dc_rtscts & (1 << unit)) ) { switch (unit) { case 2: if (dcaddr->dc_msr & MSR_CTS2) break; continue; case 3: if (dcaddr->dc_msr & MSR_CTS3) break; continue; } tp->t_state &= ~TS_TTSTOP; dcstart(tp); } #endif /* HW_FLOW_CONTROL */ } splx(s); callout_reset(&dcscan_ch, hz, dcscan, NULL); } /* * ---------------------------------------------------------------------------- * * dcGetc -- * * Read a character from a serial line. * * Results: * A character read from the serial port. * * Side effects: * None. * * ---------------------------------------------------------------------------- */ int dcGetc(dev) dev_t dev; { dcregs *dcaddr; int s, c, line, timeout; line = DCLINE(dev); if (cold && dc_cons_addr) { dcaddr = dc_cons_addr; } else { struct dc_softc *sc; sc = dc_cd.cd_devs[DCUNIT(dev)]; dcaddr = (dcregs *)sc->dc_pdma[line].p_addr; } if (!dcaddr) return (0); s = spltty(); timeout = 500000; for (;;) { if (!(dcaddr->dc_csr & CSR_RDONE)) { DELAY(10); if (dc_getc_dotimeout && --timeout == 0) { splx(s); return (-1); } continue; } c = dcaddr->dc_rbuf; DELAY(10); if (((c >> 8) & 03) == line) break; timeout = 500000; } splx(s); return (c & 0xff); } /* * Send a char on a port, non interrupt driven. */ void dcPutc(dev, c) dev_t dev; int c; { dcregs *dcaddr; u_short tcr; int timeout; int s, out_line, activeline; int brk; s = spltty(); out_line = DCLINE(dev); if (cold && dc_cons_addr) { brk = 0; dcaddr = dc_cons_addr; } else { struct dc_softc *sc; sc = dc_cd.cd_devs[DCUNIT(dev)]; dcaddr = (dcregs *)sc->dc_pdma[out_line].p_addr; brk = sc->dc_brk; } tcr = dcaddr->dc_tcr; dcaddr->dc_tcr = tcr | (1 << out_line); wbflush(); DELAY(10); while (1) { /* * Wait for transmitter to be not busy. */ timeout = 1000000; while (!(dcaddr->dc_csr & CSR_TRDY) && timeout > 0) timeout--; if (timeout == 0) { printf("dcPutc: timeout waiting for CSR_TRDY\n"); break; } activeline = (dcaddr->dc_csr >> 8) & 3; /* * Check to be sure its the right port. */ if (activeline != out_line) { tcr |= 1 << activeline; dcaddr->dc_tcr &= ~(1 << out_line); wbflush(); DELAY(10); continue; } /* * Start sending the character. */ dcaddr->dc_tdr = brk | (c & 0xff); wbflush(); DELAY(10); /* * Wait for character to be sent. */ while (1) { /* * cc -O bug: this code produces and infinite loop! * while (!(dcaddr->dc_csr & CSR_TRDY)) * ; */ timeout = 1000000; while (!(dcaddr->dc_csr & CSR_TRDY) && timeout > 0) timeout--; activeline = (dcaddr->dc_csr >> 8) & 3; if (activeline != out_line) { tcr |= 1 << activeline; dcaddr->dc_tcr &= ~(1 << activeline); wbflush(); DELAY(10); continue; } dcaddr->dc_tcr &= ~(1 << out_line); wbflush(); DELAY(10); break; } break; } /* * Enable interrupts for other lines which became ready. */ if (tcr & 0xF) { dcaddr->dc_tcr = tcr; wbflush(); DELAY(10); } splx(s); } /* * Enable/disable polling mode */ static void dcPollc(dev, on) dev_t dev; int on; { #if defined(DIAGNOSTIC) || defined(DEBUG) #ifndef DDB printf("dc_Pollc(%d, %d): not implemented\n", minor(dev), on); #endif #endif }