xref: /src/sys/arch/vax/vsa/dz_vsbus.c

/*	$NetBSD: dz_vsbus.c,v 1.4 1998/06/04 15:51:12 ragge Exp $ */
/*
 * Copyright (c) 1998 Ludd, University of Lule}, Sweden.
 * All rights reserved.
 *
 * 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 at Ludd, University of
 *      Lule}, Sweden and its contributors.
 * 4. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 */



#include <sys/param.h>
#include <sys/proc.h>
#include <sys/systm.h>
#include <sys/ioctl.h>
#include <sys/tty.h>
#include <sys/file.h>
#include <sys/conf.h>
#include <sys/device.h>
#include <sys/reboot.h>

#include <dev/cons.h>

#include <machine/mtpr.h>
#include <machine/sid.h>
#include <machine/uvax.h>
#include <machine/vsbus.h>
#include <machine/../vax/gencons.h>

#include <vax/uba/dzreg.h>
#include <vax/uba/dzvar.h>

#include "ioconf.h"
#include "lkc.h"

static  int     dz_vsbus_match __P((struct device *, struct cfdata *, void *));
static  void    dz_vsbus_attach __P((struct device *, struct device *, void *));
static	int	dz_print __P((void *, const char *));
static  void    txon __P((void));
static  void    rxon __P((void));

struct  cfattach dz_vsbus_ca = {
        sizeof(struct dz_softc), dz_vsbus_match, dz_vsbus_attach
};

static void
rxon()
{
        vsbus_intr_enable(INR_SR);
}

static void
txon()
{
        vsbus_intr_enable(INR_ST);
}

int
dz_print(aux, name)
	void *aux;
	const char *name;
{
	if (name)
		printf ("lkc at %s", name);
	return (UNCONF);
}

static int
dz_vsbus_match(parent, cf, aux)
        struct device *parent;
        struct cfdata *cf;
        void *aux;
{
        struct vsbus_attach_args *va = aux;
        if (va->va_type == INR_SR)
                return 1;
        return 0;
}

static void
dz_vsbus_attach(parent, self, aux)
        struct device *parent, *self;
        void *aux;
{
        struct  dz_softc *sc = (void *)self;

        sc->sc_dr.dr_csr = (void *)(dz_regs + 0);
        sc->sc_dr.dr_rbuf = (void *)(dz_regs + 4);
        sc->sc_dr.dr_dtr = (void *)(dz_regs + 9);
        sc->sc_dr.dr_break = (void *)(dz_regs + 13);
        sc->sc_dr.dr_tbuf = (void *)(dz_regs + 12);
        sc->sc_dr.dr_tcr = (void *)(dz_regs + 8);
        sc->sc_dr.dr_dcd = (void *)(dz_regs + 13);
        sc->sc_dr.dr_ring = (void *)(dz_regs + 13);

        sc->sc_type = DZ_DZV;

        sc->sc_txon = txon;
        sc->sc_rxon = rxon;
	sc->sc_dsr = 0x0f; /* XXX check if VS has modem ctrl bits */
        vsbus_intr_attach(INR_SR, dzrint, 0);
        vsbus_intr_attach(INR_ST, dzxint, 0);
        printf(": DC367");

        dzattach(sc);

	if ((vax_confdata & 0x80) == 0) /* workstation, have lkc */
		config_found(self, 0, dz_print);
}

/*----------------------------------------------------------------------*/

#define REG(name)     short name; short X##name##X;
static volatile struct {/* base address of DZ-controller: 0x200A0000 */
  REG(csr);           /* 00 Csr: control/status register */
  REG(rbuf);          /* 04 Rbuf/Lpr: receive buffer/line param reg. */
  REG(tcr);           /* 08 Tcr: transmit console register */
  REG(tdr);           /* 0C Msr/Tdr: modem status reg/transmit data reg */
  REG(lpr0);          /* 10 Lpr0: */
  REG(lpr1);          /* 14 Lpr0: */
  REG(lpr2);          /* 18 Lpr0: */
  REG(lpr3);          /* 1C Lpr0: */
} *dz  = (void*)0x200A0000;
#undef REG

cons_decl(dz);

int
dzcngetc(dev)
	dev_t dev;
{
	int c;
	u_char mask;

	mask = vs_cpu->vc_intmsk;	/* save old state */
	vs_cpu->vc_intmsk = 0;		/* disable all interrupts */

	do {
		while ((dz->csr & 0x80) == 0)
			; /* Wait for char */
		c = dz->rbuf & 0x7f;
	} while (c == 17 || c == 19);		/* ignore XON/XOFF */

	if (c == 13)
		c = 10;

	vs_cpu->vc_intclr = 0x80;	/* clear te interrupt request */
	vs_cpu->vc_intmsk = mask;	/* restore interrupt mask */

	return (c);
}

#define	DZMAJOR	1

void
dzcnprobe(cndev)
	struct	consdev *cndev;
{

	switch (vax_boardtype) {
	case VAX_BTYP_410:
	case VAX_BTYP_420:
	case VAX_BTYP_43:
		cndev->cn_dev = makedev(DZMAJOR, 3);
		cndev->cn_pri = CN_NORMAL;
		break;

	default:
		cndev->cn_pri = CN_DEAD;
		break;
	}

	return;
}

void
dzcninit(cndev)
	struct	consdev *cndev;
{
	dz = (void*)dz_regs;

	dz->csr = 0;    /* Disable scanning until initting is done */
	dz->tcr = 8;    /* Turn off all but line 3's xmitter */
	dz->csr = 0x20; /* Turn scanning back on */
}


void
dzcnputc(dev,ch)
	dev_t	dev;
	int	ch;
{
	int timeout = 1<<15;            /* don't hang the machine! */
	u_short tcr;
	u_char mask;

	if (mfpr(PR_MAPEN) == 0)
		return;

	mask = vs_cpu->vc_intmsk;	/* save old state */
	vs_cpu->vc_intmsk = 0;		/* disable all interrupts */
	tcr = dz->tcr;	/* remember which lines to scan */
	dz->tcr = 8; /* XXX */

	while ((dz->csr & 0x8000) == 0) /* Wait until ready */
		if (--timeout < 0)
			break;
	dz->tdr = ch;                    /* Put the  character */

	dz->tcr = tcr;
	vs_cpu->vc_intmsk = mask;	/* restore interrupt mask */
}

void
dzcnpollc(dev, pollflag)
	dev_t dev;
	int pollflag;
{
}

#if NLKC
cons_decl(lkc);

void
lkccninit(cndev)
	struct	consdev *cndev;
{
	dz = (void*)dz_regs;

	dz->csr = 0;    /* Disable scanning until initting is done */
	dz->tcr = 1;    /* Turn off all but line 0's xmitter */
	dz->rbuf = 0x1c18; /* XXX */
	dz->csr = 0x20; /* Turn scanning back on */
}

int
lkccngetc(dev)
	dev_t dev;
{
	int c;
	u_char mask;
	extern unsigned short q_key[];

	mask = vs_cpu->vc_intmsk;	/* save old state */
	vs_cpu->vc_intmsk = 0;		/* disable all interrupts */

loop:
	while ((dz->csr & 0x80) == 0)
		; /* Wait for char */

	c = q_key[dz->rbuf & 255];
	if (c == 0)
		goto loop;

	vs_cpu->vc_intclr = 0x80;	/* clear te interrupt request */
	vs_cpu->vc_intmsk = mask;	/* restore interrupt mask */

	return (c);
}
#endif