usr/src/sys/vax/vax/cons.c

/*
 * Copyright (c) 1982, 1986 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *      @(#)cons.c      7.12 (Berkeley) 5/16/91
 */

/*
 * VAX console driver (and floppy interface)
 */
#include "sys/param.h"
#include "sys/conf.h"
#include "sys/user.h"
#include "sys/proc.h"
#include "sys/ioctl.h"
#include "sys/tty.h"
#include "sys/systm.h"

#include "../include/cpu.h"
#include "cons.h"
#include "../include/mtpr.h"

/*
 * On some machines (e.g. MicroVAX), a secondary console
 * such as a display may supercede the standard serial console.
 * On such machines, consops will be set to point to the cdevsw
 * entry for the secondary console, and the standard console device
 * (minor number 0) will be redirected.  Other minor numbers still
 * refer to the standard console serial line.
 *
 * Also, console output may be redirected to another tty
 * (e.g. a window); if so, constty will point to the current
 * virtual console.
 */
struct  cdevsw *consops = 0;
struct  tty *constty = 0;
struct  tty cons;
int     cnstart();
int     ttrstrt();
char    partab[];

/*ARGSUSED*/
cnopen(dev, flag)
        dev_t dev;
{
        register struct tty *tp = &cons;

        if (consops && minor(dev) == 0)
                return ((*consops->d_open)(dev, flag));
        tp->t_oproc = cnstart;
        if ((tp->t_state&TS_ISOPEN) == 0) {
                ttychars(tp);
                tp->t_iflag = TTYDEF_IFLAG|ICRNL;
                tp->t_oflag = TTYDEF_OFLAG|OPOST|ONLCR;
                tp->t_lflag = TTYDEF_LFLAG;
                tp->t_cflag = CS8|CREAD;
                tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
                tp->t_state = TS_ISOPEN|TS_CARR_ON;
                ttsetwater(tp);
        }
        if (tp->t_state&TS_XCLUDE && u.u_uid != 0)
                return (EBUSY);
        mtpr(RXCS, mfpr(RXCS)|RXCS_IE);
        mtpr(TXCS, mfpr(TXCS)|TXCS_IE);
        return ((*linesw[tp->t_line].l_open)(dev, tp));
}

/*ARGSUSED*/
cnclose(dev, flag, mode, p)
        dev_t dev;
        int flag, mode;
        struct proc *p;
{
        register struct tty *tp = &cons;

        if (consops && minor(dev) == 0)
                return ((*consops->d_close)(dev, flag, mode, p));
        (*linesw[tp->t_line].l_close)(tp, flag);
        ttyclose(tp);
        return (0);
}

/*ARGSUSED*/
cnread(dev, uio, flag)
        dev_t dev;
        struct uio *uio;
        int flag;
{
        register struct tty *tp = &cons;

        if (consops && minor(dev) == 0)
                return ((*consops->d_read)(dev, uio, flag));
        return ((*linesw[tp->t_line].l_read)(tp, uio, flag));
}

/*ARGSUSED*/
cnwrite(dev, uio, flag)
        dev_t dev;
        struct uio *uio;
        int flag;
{
        register struct tty *tp = &cons;

        if (minor(dev) == 0) {
                if (constty && (constty->t_state & (TS_CARR_ON | TS_ISOPEN)) ==
                    (TS_CARR_ON | TS_ISOPEN))
                        tp = constty;
                else if (consops)
                        return ((*consops->d_write)(dev, uio, flag));
        }
        return ((*linesw[tp->t_line].l_write)(tp, uio, flag));
}

static  int cnpolling = 0;
/*
 * Got a level-20 receive interrupt -
 * the LSI wants to give us a character.
 * Catch the character, and see who it goes to.
 */
/*ARGSUSED*/
cnrint(dev)
        dev_t dev;
{
        register int c;
        register struct tty *tp;

        if (cnpolling)
                return;
        c = mfpr(RXDB);
        if (c&RXDB_ID) {
#if VAX780
                if (cpu == VAX_780)
                        cnrfl(c);
#endif
                return;
        }
        c &= 0xff;
        tp = &cons;
#ifdef KADB
        if (!kdbrintr(c, tp))
#endif
        if ((tp->t_cflag&CSIZE) == CS7) {
#ifdef notyet
                if (tp->t_cflag&PARENB) {
                        if ((tp->t_cflag&PARODD) &&
                            (partab[c&0177]&0200) == (c&0200))
                                c |= TTY_PE;
                        else if ((partab[c&0177]&0200) != (c&0200))
                                c |= TTY_PE;
                }
#endif
                c &= ~0200;
        }
        (*linesw[tp->t_line].l_rint)(c, tp);
}

/*ARGSUSED*/
cnioctl(dev, cmd, addr, flag)
        dev_t dev;
        caddr_t addr;
{
        register struct tty *tp = &cons;
        int error;

        if (consops && minor(dev) == 0)
                return ((*consops->d_ioctl)(dev, cmd, addr, flag));
        error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, addr);
        if (error >= 0)
                return (error);
        error = ttioctl(tp, cmd, addr, flag);
        if (error < 0)
                error = ENOTTY;
        return (error);
}

int     consdone = 1;
/*
 * Got a level-20 transmission interrupt -
 * the LSI wants another character.  First,
 * see if we can send something to the typewriter.
 * If not, try the floppy.
 */
/*ARGSUSED*/
cnxint(dev)
        dev_t dev;
{
        register struct tty *tp = &cons;

        consdone++;
        tp->t_state &= ~TS_BUSY;
        if (tp->t_line)
                (*linesw[tp->t_line].l_start)(tp);
        else
                cnstart(tp);
#if VAX780
        if (cpu==VAX_780 && (tp->t_state & TS_BUSY) == 0)
                conxfl();
#endif
}

cnstart(tp)
        register struct tty *tp;
{
        register int c, s;

        s = spl5();
        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);
                }
                if (tp->t_wsel) {
                        selwakeup(tp->t_wsel, tp->t_state & TS_WCOLL);
                        tp->t_wsel = 0;
                        tp->t_state &= ~TS_WCOLL;
                }
        }
        if (tp->t_outq.c_cc == 0)
                goto out;
        if (consdone == 0)
                goto out;
        c = getc(&tp->t_outq) & 0xff;
#ifdef notdef
        if (tp->t_cflag&PARENB && ((tp->t_cflag&CSIZE)==CS7)) {
                c &= 0177;
                c |= (tp->t_cflag&PARODD ? ~partab[c] : partab[c]) & 0200;
                }
#else
        if ((tp->t_cflag&CSIZE) == CS7) {
#ifdef notyet
                if (tp->t_cflag&PARENB) {
                        if (tp->t_cflag&PARODD)
                                c = (~(partab[c&0177])&0200)|(c&0177);
                        else
                                c = (partab[c&0177]&0200)|(c&0177);
                } else
#endif
                        c &= 0177;
        }
#endif
        mtpr(TXDB, c);
        consdone = 0;
        tp->t_state |= TS_BUSY;
out:
        splx(s);
}

/*
 * Print a character on console.
 * Attempts to save and restore device
 * status.
 */
cnputc(c)
        register int c;
{
        register int s, timo;

        timo = 30000;
        /*
         * Try waiting for the console tty to come ready,
         * otherwise give up after a reasonable time.
         */
        while ((mfpr(TXCS)&TXCS_RDY) == 0)
                if(--timo == 0)
                        break;
        if (c == 0)
                return;
        s = mfpr(TXCS);
        mtpr(TXCS, 0);
        mtpr(TXDB, c&0xff);
        if (c == '\n')
                cnputc('\r');
        cnputc(0);
        mtpr(TXCS, s);
}

#if (defined(KADB) || defined(GENERIC)) && !defined(lint)
/*
 * Get character from console.
 */
cngetc()
{
        register int c, s;

        s = splhigh();
        while ((mfpr(RXCS)&RXCS_DONE) == 0 || (c = mfpr(RXDB)&0177) <= 0)
                ;
        if (c == '\r')
                c = '\n';
        (void) splx(s);
        return (c);
}
#endif

#ifdef KADB
cnpoll(onoff)
        int onoff;
{

        cnpolling = onoff;
}
#endif