/* $OpenBSD: dc.c,v 1.8 2002/03/14 03:16:02 millert Exp $ */ /* $NetBSD: dc.c,v 1.4 1996/10/13 03:36:10 christos 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. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. 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.2 (Berkeley) 11/30/93 */ /* * 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 "dc.h" #if NDC > 0 /* * DC7085 (DZ-11 look alike) Driver * * bertram 13-apr-1996: slightly modfied for DC367B in VS2000 */ #include #include #include #include #include #include #include #include #include #include #include #include /* * bertram 17-apr-1996: we could use most of the include files directly * from the pmax port, only some of the paddings need * to be changed. For now we use modified copies... * * #include * #include * * #include * #include */ #include "dc7085cons.h" /* this one is modified !!! */ #include #include #include #include /* * here follow some pmax specific includes which we don't need... */ #ifdef pmax #include #include #include #include #endif #ifdef vax #include #include #include #include /* we need to modify this for VAXen */ #define MachEmptyWriteBuffer() /* we don't need this for VAXstation */ #endif #include struct dc_softc { struct device sc_dv; struct pdma dc_pdma[4]; void *xmit_cfargs; void *recv_cfargs; }; /* * Autoconfiguration data for config. * * Use the statically-allocated softc until old autoconfig code and * config.old are completely gone. */ int dcmatch(struct device * parent, void *cfdata, void *aux); void dcattach(struct device *parent, struct device *self, void *aux); int dc_doprobe(void *addr, int unit, int flags, int pri); int dcintr(void * xxxunit); struct cfdriver dc_cd = { NULL, "dc", DV_TTY }; struct cfattach dc_ca = { sizeof(struct dc_softc), dcmatch, dcattach }; #define NDCLINE (NDC*4) void dcstart(struct tty *); void dcxint(struct tty *); void dcPutc(dev_t, int); void dcscan(void *); int dcGetc(dev_t); int dcparam(struct tty *, struct termios *); struct tty *dc_tty[NDCLINE]; int dc_cnt = NDCLINE; void (*dcDivertXInput)(); /* X windows keyboard input routine */ void (*dcMouseEvent)(); /* X windows mouse motion event routine */ void (*dcMouseButtons)(); /* X windows mouse buttons event routine */ #ifdef DEBUG int debugChar; #endif /* * Software copy of brk register since it isn't readable */ int dc_brk[NDC]; char dcsoftCAR[NDC]; /* mask of dc's with carrier on (DSR) */ /* * The DC7085 doesn't interrupt on carrier transitions, so * we have to use a timer to watch it. */ int dc_timer; /* true if timer started */ struct timeout dc_timeout; /* * Pdma structures for fast output code */ struct pdma dcpdma[NDCLINE]; 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, -1, -1 }; #ifndef PORTSELECTOR #define ISPEED TTYDEF_SPEED #define LFLAG TTYDEF_LFLAG #else #define ISPEED B4800 #define LFLAG (TTYDEF_LFLAG & ~ECHO) #endif static struct { void *xmit_cfargs; void *recv_cfargs; } vs2000_hack = { NULL, NULL }; /* * Match driver based on name */ int dcmatch(parent, match, aux) struct device *parent; void *match; void *aux; { struct cfdata *cf = match; struct confargs *ca = aux; static int nunits = 0; return (0); if (strcmp(ca->ca_name, "dc") != 0 && strcmp(ca->ca_name, "mdc") != 0 && strcmp(ca->ca_name, "dc367") != 0 && strcmp(ca->ca_name, "dc7085") != 0) return (0); /* * Use statically-allocated softc and attach code until * old config is completely gone. Don't over-run softc. */ if (nunits > NDC) { printf("dc: too many units for old config\n"); return (0); } nunits++; return (1); } void dcattach(parent, self, aux) struct device *parent; struct device *self; void *aux; { register struct confargs *ca = aux; u_long dcaddr; dcaddr = (u_long)ca->ca_ioaddr; (void) dc_doprobe((void *)uvax_phys2virt(dcaddr), self->dv_unit, self->dv_cfdata->cf_flags, ca->ca_intslot); /* tie pseudo-slot to device */ #ifdef notyet vsbus_intr_register(ca, dcintr, self); vsbus_intr_enable(ca); #endif printf("\n"); } /* * Is there a framebuffer console device using this serial driver? * XXX used for ugly special-cased console input that should be redone * more cleanly. */ static inline int raster_console() { return (cn_tab->cn_pri == CN_INTERNAL || cn_tab->cn_pri == CN_NORMAL); } /* * DC7085 (dz-11) probe routine from old-style config. * This is only here out of inertia. */ int dc_doprobe(addr, unit, flags, priority) void *addr; int unit, flags, priority; { register dcregs *dcaddr; register struct pdma *pdp; register struct tty *tp; register int cntr; int s; if (unit >= NDC) return (0); if (badaddr(addr, 2)) return (0); /* * For a remote console, wait a while for previous output to * complete. */ if (major(cn_tab->cn_dev) == DCDEV && unit == 0 && cn_tab->cn_pri == CN_REMOTE) DELAY(10000); /* reset chip */ dcaddr = (dcregs *)addr; dcaddr->dc_csr = CSR_CLR; MachEmptyWriteBuffer(); while (dcaddr->dc_csr & CSR_CLR) ; dcaddr->dc_csr = CSR_MSE | CSR_TIE | CSR_RIE; /* init pseudo DMA structures */ pdp = &dcpdma[unit * 4]; for (cntr = 0; cntr < 4; cntr++) { pdp->p_addr = (void *)dcaddr; tp = dc_tty[unit * 4 + cntr] = ttymalloc(); pdp->p_arg = (int) tp; pdp->p_fcn = dcxint; pdp++; } dcsoftCAR[unit] = flags | 0xB; if (dc_timer == 0) { dc_timer = 1; timeout_set(&dc_timeout, dcscan, NULL); timeout_add(&dc_timeout, hz); } /* * Special handling for consoles. */ if (unit == 0) { if (cn_tab->cn_pri == CN_INTERNAL || cn_tab->cn_pri == CN_NORMAL) { s = spltty(); dcaddr->dc_lpr = LPR_RXENAB | LPR_8_BIT_CHAR | LPR_B4800 | DCKBD_PORT; MachEmptyWriteBuffer(); dcaddr->dc_lpr = LPR_RXENAB | LPR_B4800 | LPR_OPAR | LPR_PARENB | LPR_8_BIT_CHAR | DCMOUSE_PORT; MachEmptyWriteBuffer(); DELAY(1000); KBDReset(makedev(DCDEV, DCKBD_PORT), dcPutc); MouseInit(makedev(DCDEV, DCMOUSE_PORT), dcPutc, dcGetc); splx(s); } else if (major(cn_tab->cn_dev) == DCDEV) { s = spltty(); dcaddr->dc_lpr = LPR_RXENAB | LPR_8_BIT_CHAR | LPR_B9600 | minor(cn_tab->cn_dev); MachEmptyWriteBuffer(); DELAY(1000); /*cn_tab.cn_disabled = 0;*/ /* FIXME */ splx(s); } } return (1); } dcopen(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { register struct tty *tp; register int unit; int s, error = 0; unit = minor(dev); if (unit >= dc_cnt || dcpdma[unit].p_addr == (void *)0) return (ENXIO); tp = dc_tty[unit]; if (tp == NULL) tp = dc_tty[unit] = ttymalloc(); tp->t_oproc = dcstart; tp->t_param = dcparam; tp->t_dev = dev; if ((tp->t_state & TS_ISOPEN) == 0) { tp->t_state |= TS_WOPEN; 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); (void) dcmctl(dev, DML_DTR, DMSET); s = spltty(); while (!(flag & O_NONBLOCK) && !(tp->t_cflag & CLOCAL) && !(tp->t_state & TS_CARR_ON)) { tp->t_state |= TS_WOPEN; if (error = ttysleep(tp, (caddr_t)&tp->t_rawq, TTIPRI | PCATCH, ttopen, 0)) break; } splx(s); if (error) return (error); return ((*linesw[tp->t_line].l_open)(dev, tp)); } /*ARGSUSED*/ dcclose(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { register struct tty *tp; register int unit, bit; unit = minor(dev); tp = dc_tty[unit]; bit = 1 << ((unit & 03) + 8); if (dc_brk[unit >> 2] & bit) { dc_brk[unit >> 2] &= ~bit; ttyoutput(0, tp); } (*linesw[tp->t_line].l_close)(tp, flag); if ((tp->t_cflag & HUPCL) || (tp->t_state & TS_WOPEN) || !(tp->t_state & TS_ISOPEN)) (void) dcmctl(dev, 0, DMSET); return (ttyclose(tp)); } dcread(dev, uio, flag) dev_t dev; struct uio *uio; { register struct tty *tp; tp = dc_tty[minor(dev)]; return ((*linesw[tp->t_line].l_read)(tp, uio, flag)); } dcwrite(dev, uio, flag) dev_t dev; struct uio *uio; { register struct tty *tp; tp = dc_tty[minor(dev)]; return ((*linesw[tp->t_line].l_write)(tp, uio, flag)); } struct tty * dctty(dev) dev_t dev; { struct tty *tp = dc_tty [minor (dev)]; return (tp); } /*ARGSUSED*/ dcioctl(dev, cmd, data, flag, p) dev_t dev; int cmd; caddr_t data; int flag; struct proc *p; { register struct tty *tp; register int unit = minor(dev); register int dc = unit >> 2; int error; tp = dc_tty[unit]; error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag, p); if (error >= 0) return (error); error = ttioctl(tp, cmd, data, flag, p); if (error >= 0) return (error); switch (cmd) { case TIOCSBRK: dc_brk[dc] |= 1 << ((unit & 03) + 8); ttyoutput(0, tp); break; case TIOCCBRK: dc_brk[dc] &= ~(1 << ((unit & 03) + 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 (ENOTTY); } return (0); } dcparam(tp, t) register struct tty *tp; register struct termios *t; { register dcregs *dcaddr; register int lpr; register int cflag = t->c_cflag; int unit = minor(tp->t_dev); int ospeed = ttspeedtab(t->c_ospeed, dcspeedtab); /* check requested parameters */ if (ospeed < 0 || (t->c_ispeed && t->c_ispeed != t->c_ospeed) || (cflag & CSIZE) == CS5 || (cflag & CSIZE) == CS6 || (vax_boardtype == -1 && t->c_ospeed == 19200)) return (EINVAL); /* and copy to tty */ tp->t_ispeed = t->c_ispeed; tp->t_ospeed = t->c_ospeed; tp->t_cflag = cflag; dcaddr = (dcregs *)dcpdma[unit].p_addr; /* * Handle console cases specially. */ if (raster_console()) { if (unit == DCKBD_PORT) { dcaddr->dc_lpr = LPR_RXENAB | LPR_8_BIT_CHAR | LPR_B4800 | DCKBD_PORT; MachEmptyWriteBuffer(); return (0); } else if (unit == DCMOUSE_PORT) { dcaddr->dc_lpr = LPR_RXENAB | LPR_B4800 | LPR_OPAR | LPR_PARENB | LPR_8_BIT_CHAR | DCMOUSE_PORT; MachEmptyWriteBuffer(); return (0); } } else if (tp->t_dev == cn_tab->cn_dev) { dcaddr->dc_lpr = LPR_RXENAB | LPR_8_BIT_CHAR | LPR_B9600 | unit; MachEmptyWriteBuffer(); return (0); } if (ospeed == 0) { (void) dcmctl(unit, 0, DMSET); /* hang up line */ return (0); } lpr = LPR_RXENAB | ospeed | (unit & 03); 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; dcaddr->dc_lpr = lpr; MachEmptyWriteBuffer(); DELAY(10); return (0); } /* * Check for interrupts from all devices. */ int dcintr(xxxunit) void *xxxunit; { register struct dc_softc *sc = xxxunit; register dcregs *dcaddr; register unsigned csr; register int unit = sc->sc_dv.dv_unit; unit <<= 2; dcaddr = (dcregs *)dcpdma[unit].p_addr; while ((csr = dcaddr->dc_csr) & (CSR_RDONE | CSR_TRDY)) { if (csr & CSR_RDONE) dcrint(unit); if (csr & CSR_TRDY) dcxint(dc_tty[unit + ((csr >> 8) & 03)]); } /* XXX check for spurious interrupts */ return 0; } dcrint(unit) register int unit; { register dcregs *dcaddr; register struct tty *tp; register int c, cc; int overrun = 0; dcaddr = (dcregs *)dcpdma[unit].p_addr; while ((c = dcaddr->dc_rbuf) < 0) { /* char present */ cc = c & 0xff; tp = dc_tty[unit + ((c >> 8) & 03)]; if ((c & RBUF_OERR) && overrun == 0) { log(LOG_WARNING, "dc%d,%d: silo overflow\n", unit >> 2, (c >> 8) & 03); overrun = 1; } /* the keyboard requires special translation */ if (tp == dc_tty[DCKBD_PORT] && raster_console()) { #ifdef KADB if (cc == LK_DO) { spl0(); kdbpanic(); return; } #endif #ifdef DEBUG debugChar = cc; #endif if (dcDivertXInput) { (*dcDivertXInput)(cc); return; } if ((cc = kbdMapChar(cc)) < 0) return; #ifdef notyet } else if (tp == dc_tty[DCMOUSE_PORT] && dcMouseButtons) { mouseInput(cc); return; #endif } if (!(tp->t_state & TS_ISOPEN)) { wakeup((caddr_t)&tp->t_rawq); #ifdef PORTSELECTOR if (!(tp->t_state & TS_WOPEN)) #endif return; } if (c & RBUF_FERR) cc |= TTY_FE; if (c & RBUF_PERR) cc |= TTY_PE; (*linesw[tp->t_line].l_rint)(cc, tp); } DELAY(10); } void dcxint(tp) register struct tty *tp; { register struct pdma *dp; register dcregs *dcaddr; int unit = minor(tp->t_dev); dp = &dcpdma[unit]; if (dp->p_mem < dp->p_end) { dcaddr = (dcregs *)dp->p_addr; dcaddr->dc_tdr = dc_brk[unit >> 2] | *dp->p_mem++; MachEmptyWriteBuffer(); 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; } if (tp->t_line) (*linesw[tp->t_line].l_start)(tp); else dcstart(tp); if (tp->t_outq.c_cc == 0 || !(tp->t_state & TS_BUSY)) { dcaddr = (dcregs *)dp->p_addr; dcaddr->dc_tcr &= ~(1 << (unit & 03)); MachEmptyWriteBuffer(); DELAY(10); } } void dcstart(tp) register struct tty *tp; { register struct pdma *dp; register dcregs *dcaddr; register int cc; int s; dp = &dcpdma[minor(tp->t_dev)]; 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((caddr_t)&tp->t_outq); } selwakeup(&tp->t_wsel); } if (tp->t_outq.c_cc == 0) goto out; /* handle console specially */ if (tp == dc_tty[DCKBD_PORT] && raster_console()) { while (tp->t_outq.c_cc > 0) { cc = getc(&tp->t_outq) & 0x7f; cnputc(cc); } /* * After we flush the output queue we may need to wake * up the process that made the output. */ if (tp->t_outq.c_cc <= tp->t_lowat) { if (tp->t_state & TS_ASLEEP) { tp->t_state &= ~TS_ASLEEP; wakeup((caddr_t)&tp->t_outq); } selwakeup(&tp->t_wsel); } 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 << (minor(tp->t_dev) & 03); MachEmptyWriteBuffer(); out: splx(s); } /* * Stop output on a line. */ /*ARGSUSED*/ void dcstop(tp, flag) register struct tty *tp; { register struct pdma *dp; register int s; dp = &dcpdma[minor(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); } dcmctl(dev, bits, how) dev_t dev; int bits, how; { register dcregs *dcaddr; register int unit, mbits; int b, s; register int msr; unit = minor(dev); b = 1 << (unit & 03); dcaddr = (dcregs *)dcpdma[unit].p_addr; s = spltty(); /* only channel 2 has modem control (what about line 3?) */ mbits = DML_DTR | DML_DSR | DML_CAR; switch (unit & 03) { case 2: mbits = 0; if (dcaddr->dc_tcr & TCR_DTR2) mbits |= DML_DTR; msr = dcaddr->dc_msr; if (msr & MSR_CD2) mbits |= DML_CAR; if (msr & MSR_DSR2) { if (vax_boardtype == -1) mbits |= DML_CAR | DML_DSR; else mbits |= DML_DSR; } break; case 3: if (vax_boardtype != -1) { mbits = 0; if (dcaddr->dc_tcr & TCR_DTR3) mbits |= DML_DTR; 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: splx(s); return (mbits); } switch (unit & 03) { case 2: if (mbits & DML_DTR) dcaddr->dc_tcr |= TCR_DTR2; else dcaddr->dc_tcr &= ~TCR_DTR2; break; case 3: if (vax_boardtype != -1) { if (mbits & DML_DTR) dcaddr->dc_tcr |= TCR_DTR3; else dcaddr->dc_tcr &= ~TCR_DTR3; } } if ((mbits & DML_DTR) && (dcsoftCAR[unit >> 2] & b)) dc_tty[unit]->t_state |= TS_CARR_ON; splx(s); return (mbits); } /* * This is called by timeout() periodically. * Check to see if modem status bits have changed. */ void dcscan(arg) void *arg; { register dcregs *dcaddr; register struct tty *tp; register int i, bit, car; int s; s = spltty(); /* only channel 2 has modem control (what about line 3?) */ dcaddr = (dcregs *)dcpdma[i = 2].p_addr; tp = dc_tty[i]; bit = TCR_DTR2; if (dcsoftCAR[i >> 2] & bit) car = 1; else car = dcaddr->dc_msr & MSR_DSR2; if (car) { /* carrier present */ if (!(tp->t_state & TS_CARR_ON)) (void)(*linesw[tp->t_line].l_modem)(tp, 1); } else if ((tp->t_state & TS_CARR_ON) && (*linesw[tp->t_line].l_modem)(tp, 0) == 0) dcaddr->dc_tcr &= ~bit; splx(s); timeout_add(&dc_timeout, hz); } /* * ---------------------------------------------------------------------------- * * 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; { register dcregs *dcaddr; register int c; int s; dcaddr = (dcregs *)dcpdma[minor(dev)].p_addr; if (!dcaddr) return (0); s = spltty(); for (;;) { if (!(dcaddr->dc_csr & CSR_RDONE)) continue; c = dcaddr->dc_rbuf; DELAY(10); if (((c >> 8) & 03) == (minor(dev) & 03)) break; } splx(s); return (c & 0xff); } /* * Send a char on a port, non interrupt driven. */ void dcPutc(dev, c) dev_t dev; int c; { register dcregs *dcaddr; register u_short tcr; register int timeout; int s, line; s = spltty(); dcaddr = (dcregs *)dcpdma[minor(dev)].p_addr; tcr = dcaddr->dc_tcr; dcaddr->dc_tcr = tcr | (1 << minor(dev)); MachEmptyWriteBuffer(); 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; } line = (dcaddr->dc_csr >> 8) & 3; /* * Check to be sure its the right port. */ if (line != minor(dev)) { tcr |= 1 << line; dcaddr->dc_tcr &= ~(1 << line); MachEmptyWriteBuffer(); DELAY(10); continue; } /* * Start sending the character. */ dcaddr->dc_tdr = dc_brk[0] | (c & 0xff); MachEmptyWriteBuffer(); 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--; line = (dcaddr->dc_csr >> 8) & 3; if (line != minor(dev)) { tcr |= 1 << line; dcaddr->dc_tcr &= ~(1 << line); MachEmptyWriteBuffer(); DELAY(10); continue; } dcaddr->dc_tcr &= ~(1 << minor(dev)); MachEmptyWriteBuffer(); DELAY(10); break; } break; } /* * Enable interrupts for other lines which became ready. */ if (tcr & 0xF) { dcaddr->dc_tcr = tcr; MachEmptyWriteBuffer(); DELAY(10); } splx(s); } #endif /* NDC */