1367 lines
28 KiB
C
1367 lines
28 KiB
C
/* $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 <sys/cdefs.h> /* 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 <sys/param.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/device.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/tty.h>
|
|
#include <sys/proc.h>
|
|
#include <sys/conf.h>
|
|
#include <sys/file.h>
|
|
#include <sys/kernel.h>
|
|
#include <sys/syslog.h>
|
|
|
|
#include <dev/cons.h>
|
|
#include <dev/dec/lk201.h>
|
|
|
|
#include <machine/dc7085cons.h>
|
|
#include <machine/locore.h> /* wbflush() */
|
|
#include <machine/pmioctl.h>
|
|
|
|
#include <pmax/dev/dcvar.h>
|
|
#include <pmax/dev/lk201var.h> /* XXX lk_reset and friends */
|
|
#include <pmax/dev/qvssvar.h> /* XXX mouseInput() */
|
|
#include <pmax/dev/rconsvar.h>
|
|
|
|
#include <pmax/pmax/pmaxtype.h>
|
|
|
|
#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<<line)) && (tcr & TCR_RTS2))
|
|
mbits |= DML_RTS;
|
|
msr = dcaddr->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
|
|
}
|
|
|