/* $NetBSD: dz_vsbus.c,v 1.5 1998/06/07 20:19: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 #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #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 lkc_decode(int); int c; u_char mask; 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 = lkc_decode(dz->rbuf & 255); if (c < 1) goto loop; vs_cpu->vc_intclr = 0x80; /* clear te interrupt request */ vs_cpu->vc_intmsk = mask; /* restore interrupt mask */ return (c); } #endif