diff options
Diffstat (limited to 'sys/alpha/tc/tcds.c')
-rw-r--r-- | sys/alpha/tc/tcds.c | 459 |
1 files changed, 459 insertions, 0 deletions
diff --git a/sys/alpha/tc/tcds.c b/sys/alpha/tc/tcds.c new file mode 100644 index 0000000..37a3da9 --- /dev/null +++ b/sys/alpha/tc/tcds.c @@ -0,0 +1,459 @@ +/* $Id$ */ +/* from $NetBSD: tcds.c,v 1.25 1998/05/26 23:43:05 thorpej Exp $ */ + +/*- + * Copyright (c) 1998 The NetBSD Foundation, Inc. + * All rights reserved. + * + * This code is derived from software contributed to The NetBSD Foundation + * by Jason R. Thorpe of the Numerical Aerospace Simulation Facility, + * NASA Ames Research Center. + * + * 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 NetBSD + * Foundation, Inc. and its contributors. + * 4. Neither the name of The NetBSD Foundation 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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. + */ + +/* + * Copyright (c) 1994, 1995, 1996 Carnegie-Mellon University. + * All rights reserved. + * + * Author: Keith Bostic, Chris G. Demetriou + * + * Permission to use, copy, modify and distribute this software and + * its documentation is hereby granted, provided that both the copyright + * notice and this permission notice appear in all copies of the + * software, derivative works or modified versions, and any portions + * thereof, and that both notices appear in supporting documentation. + * + * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS" + * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND + * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. + * + * Carnegie Mellon requests users of this software to return to + * + * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU + * School of Computer Science + * Carnegie Mellon University + * Pittsburgh PA 15213-3890 + * + * any improvements or extensions that they make and grant Carnegie the + * rights to redistribute these changes. + */ + +#include "opt_cpu.h" + +#include <sys/param.h> +#include <sys/systm.h> +#include <sys/kernel.h> +#include <sys/module.h> +#include <sys/bus.h> +#include <sys/malloc.h> +#include <vm/vm.h> +#include <vm/vm_extern.h> +#include <vm/pmap.h> + +#include <machine/rpb.h> +#include <machine/clock.h> +#include <alpha/tc/tcreg.h> +#include <alpha/tc/tcvar.h> +#include <alpha/tc/tcdevs.h> +#include <alpha/tc/tcdsreg.h> +#include <alpha/tc/tcdsvar.h> + + +#define KV(pa) ALPHA_PHYS_TO_K0SEG(pa) + +static devclass_t tcds_devclass; +static device_t tcds0; /* there can be only one */ + +struct tcds_softc { + device_t sc_dv; + vm_offset_t sc_base; + void *sc_cookie; + volatile u_int32_t *sc_cir; + volatile u_int32_t *sc_imer; + struct tcds_slotconfig sc_slots[2]; +}; + +#define TCDS_SOFTC(dev) (struct tcds_softc*) device_get_softc(dev) + +static int tcds_probe(device_t dev); +static int tcds_attach(device_t dev); +static void tcds_intrnull __P((void *)); +static void tcds_print_child(device_t bus, device_t dev); +static void tcds_lance_dma_setup(void *v); +static int tcds_intr __P((void *)); + + + +static device_method_t tcds_methods[] = { + /* Device interface */ + DEVMETHOD(device_probe, tcds_probe), + DEVMETHOD(device_attach, tcds_attach), + DEVMETHOD(bus_print_child, tcds_print_child), + + { 0, 0 } +}; + +static driver_t tcds_driver = { + "tcds", + tcds_methods, + DRIVER_TYPE_MISC, + sizeof(struct tcds_softc), +}; + + +extern device_t tc0; +static int +tcds_probe(device_t dev) +{ + if((hwrpb->rpb_type != ST_DEC_3000_300) && + (hwrpb->rpb_type != ST_DEC_3000_500)) + return ENXIO; + if(strcmp(device_get_name(dev),"tcds")){ + return ENXIO; + } + tcds0 = dev; + device_set_desc(dev, "Turbochannel Dual Scsi"); + return 0; +} + +struct tcdsdev_attach_args tcdsdev; + + +static int +tcds_attach(device_t dev) +{ + struct tcds_softc* sc = TCDS_SOFTC(dev); + struct tc_attach_args *ta = device_get_ivars(dev); + device_t parent = device_get_parent(dev); + vm_offset_t regs,va; + u_long i; + struct tcds_slotconfig *slotc; + struct tcdsdev_attach_args *tcdsdev; + tcds0 = dev; + +/* + XXXXXX + + */ + sc->sc_base = ta->ta_addr; + sc->sc_cookie = ta->ta_cookie; + sc->sc_cir = TCDS_REG(sc->sc_base, TCDS_CIR); + sc->sc_imer = TCDS_REG(sc->sc_base, TCDS_IMER); + + tc_intr_establish(device_get_parent(dev), sc->sc_cookie, 0, tcds_intr, sc); + + /* + * XXX + * IMER apparently has some random (or, not so random, but still + * not useful) bits set in it when the system boots. Clear it. + */ + *sc->sc_imer = 0; + alpha_wmb(); + /* fill in common information first */ + for (i = 0; i < 2; i++) { + slotc = &sc->sc_slots[i]; + + bzero(slotc, sizeof *slotc); /* clear everything */ + + slotc->sc_slot = i; + slotc->sc_tcds = sc; + slotc->sc_esp = NULL; + slotc->sc_intrhand = tcds_intrnull; + slotc->sc_intrarg = (void *)(long)i; + } + + /* information for slot 0 */ + slotc = &sc->sc_slots[0]; + slotc->sc_resetbits = TCDS_CIR_SCSI0_RESET; + slotc->sc_intrmaskbits = + TCDS_IMER_SCSI0_MASK | TCDS_IMER_SCSI0_ENB; + slotc->sc_intrbits = TCDS_CIR_SCSI0_INT; + slotc->sc_dmabits = TCDS_CIR_SCSI0_DMAENA; + slotc->sc_errorbits = 0; /* XXX */ + slotc->sc_sda = TCDS_REG(sc->sc_base, TCDS_SCSI0_DMA_ADDR); + slotc->sc_dic = TCDS_REG(sc->sc_base, TCDS_SCSI0_DMA_INTR); + slotc->sc_dud0 = TCDS_REG(sc->sc_base, TCDS_SCSI0_DMA_DUD0); + slotc->sc_dud1 = TCDS_REG(sc->sc_base, TCDS_SCSI0_DMA_DUD1); + + /* information for slot 1 */ + slotc = &sc->sc_slots[1]; + slotc->sc_resetbits = TCDS_CIR_SCSI1_RESET; + slotc->sc_intrmaskbits = + TCDS_IMER_SCSI1_MASK | TCDS_IMER_SCSI1_ENB; + slotc->sc_intrbits = TCDS_CIR_SCSI1_INT; + slotc->sc_dmabits = TCDS_CIR_SCSI1_DMAENA; + slotc->sc_errorbits = 0; /* XXX */ + slotc->sc_sda = TCDS_REG(sc->sc_base, TCDS_SCSI1_DMA_ADDR); + slotc->sc_dic = TCDS_REG(sc->sc_base, TCDS_SCSI1_DMA_INTR); + slotc->sc_dud0 = TCDS_REG(sc->sc_base, TCDS_SCSI1_DMA_DUD0); + slotc->sc_dud1 = TCDS_REG(sc->sc_base, TCDS_SCSI1_DMA_DUD1); + + + /* find the hardware attached to the TCDS ASIC */ + tcdsdev = malloc(sizeof(struct tcdsdev_attach_args), + M_DEVBUF, M_NOWAIT); + if (tcdsdev) { + strncpy(tcdsdev->tcdsda_modname, "PMAZ-AA ", TC_ROM_LLEN); + tcdsdev->tcdsda_slot = 0; + tcdsdev->tcdsda_offset = 0; + tcdsdev->tcdsda_addr = (tc_addr_t) + TC_DENSE_TO_SPARSE(sc->sc_base + TCDS_SCSI0_OFFSET); + tcdsdev->tcdsda_cookie = (void *)(long)0; + tcdsdev->tcdsda_sc = &sc->sc_slots[0]; + tcdsdev->tcdsda_id = 7; /* XXX */ + tcdsdev->tcdsda_freq = 25000000; /* XXX */ + + tcds_scsi_reset(tcdsdev->tcdsda_sc); + device_probe_and_attach(device_add_child(dev, "esp", -1, tcdsdev)); + } + + /* the second SCSI chip isn't present on the 3000/300 series. */ + if (hwrpb->rpb_type != ST_DEC_3000_300) { + tcdsdev = malloc(sizeof(struct tcdsdev_attach_args), + M_DEVBUF, M_NOWAIT); + if (tcdsdev) { + strncpy(tcdsdev->tcdsda_modname, "PMAZ-AA ", + TC_ROM_LLEN); + tcdsdev->tcdsda_slot = 1; + tcdsdev->tcdsda_offset = 0; + tcdsdev->tcdsda_addr = (tc_addr_t) + TC_DENSE_TO_SPARSE(sc->sc_base + TCDS_SCSI1_OFFSET); + tcdsdev->tcdsda_cookie = (void *)(long)1; + tcdsdev->tcdsda_sc = &sc->sc_slots[1]; + tcdsdev->tcdsda_id = 7; /* XXX */ + tcdsdev->tcdsda_freq = 25000000; /* XXX */ + tcds_scsi_reset(tcdsdev->tcdsda_sc); + device_probe_and_attach(device_add_child(dev, "esp", -1, tcdsdev)); + } + } + return 0; +} + +void +tcds_scsi_reset(sc) + struct tcds_slotconfig *sc; +{ + tcds_dma_enable(sc, 0); + tcds_scsi_enable(sc, 0); + + TCDS_CIR_CLR(*sc->sc_tcds->sc_cir, sc->sc_resetbits); + alpha_mb(); + DELAY(1); + TCDS_CIR_SET(*sc->sc_tcds->sc_cir, sc->sc_resetbits); + alpha_mb(); + + tcds_scsi_enable(sc, 1); + tcds_dma_enable(sc, 1); +} + + +void +tcds_scsi_enable(sc, on) + struct tcds_slotconfig *sc; + int on; +{ + + if (on) + *sc->sc_tcds->sc_imer |= sc->sc_intrmaskbits; + else + *sc->sc_tcds->sc_imer &= ~sc->sc_intrmaskbits; + alpha_mb(); +} + +void +tcds_dma_enable(sc, on) + struct tcds_slotconfig *sc; + int on; +{ + + /* XXX Clear/set IOSLOT/PBS bits. */ + if (on) + TCDS_CIR_SET(*sc->sc_tcds->sc_cir, sc->sc_dmabits); + else + TCDS_CIR_CLR(*sc->sc_tcds->sc_cir, sc->sc_dmabits); + alpha_mb(); +} + +int +tcds_scsi_isintr(sc, clear) + struct tcds_slotconfig *sc; + int clear; +{ + + if ((*sc->sc_tcds->sc_cir & sc->sc_intrbits) != 0) { + if (clear) { + TCDS_CIR_CLR(*sc->sc_tcds->sc_cir, sc->sc_intrbits); + alpha_mb(); + } + return (1); + } else + return (0); +} + + +int +tcds_scsi_iserr(sc) + struct tcds_slotconfig *sc; +{ + + return ((*sc->sc_tcds->sc_cir & sc->sc_errorbits) != 0); +} + +static void +tcds_intrnull(void *val) +{ + + panic("tcds_intrnull: uncaught IOASIC intr for cookie %ld\n", + (u_long)val); +} + +void +tcds_intr_establish(tcds, cookie, level, func, arg) + struct device *tcds; + void *cookie, *arg; + tc_intrlevel_t level; + int (*func) __P((void *)); +{ + struct tcds_softc *sc = device_get_softc(tcds); + u_long slot; + + slot = (u_long)cookie; +#ifdef DIAGNOSTIC + /* XXX check cookie. */ +#endif + if (sc->sc_slots[slot].sc_intrhand != tcds_intrnull){ + panic("tcds_intr_establish: cookie %d twice, intrhdlr = 0x%lx", + slot,sc->sc_slots[slot].sc_intrhand ); + } + sc->sc_slots[slot].sc_intrhand = func; + sc->sc_slots[slot].sc_intrarg = arg; + tcds_scsi_reset(&sc->sc_slots[slot]); +} +void +tcds_intr_disestablish(tcds, cookie) + struct device *tcds; + void *cookie; +{ + struct tcds_softc *sc = device_get_softc(tcds); + u_long slot; + + slot = (u_long)cookie; +#ifdef DIAGNOSTIC + /* XXX check cookie. */ +#endif + + if (sc->sc_slots[slot].sc_intrhand == tcds_intrnull) + panic("tcds_intr_disestablish: cookie %d missing intr", + slot); + + sc->sc_slots[slot].sc_intrhand = tcds_intrnull; + sc->sc_slots[slot].sc_intrarg = (void *)slot; + + tcds_dma_enable(&sc->sc_slots[slot], 0); + tcds_scsi_enable(&sc->sc_slots[slot], 0); +} + +static int +tcds_intr(val) + void *val; +{ + struct tcds_softc *sc; + u_int32_t ir; + + sc = val; + + /* + * XXX + * Copy and clear (gag!) the interrupts. + */ + ir = *sc->sc_cir; + alpha_mb(); + TCDS_CIR_CLR(*sc->sc_cir, TCDS_CIR_ALLINTR); + alpha_mb(); + tc_syncbus(); + alpha_mb(); + +#define CHECKINTR(slot) \ + if (ir & sc->sc_slots[slot].sc_intrbits) { \ + (void)(*sc->sc_slots[slot].sc_intrhand) \ + (sc->sc_slots[slot].sc_intrarg); \ + } + CHECKINTR(0); + CHECKINTR(1); +#undef CHECKINTR + +#ifdef DIAGNOSTIC + /* + * Interrupts not currently handled, but would like to know if they + * occur. + * + * XXX + * Don't know if we have to set the interrupt mask and enable bits + * in the IMER to allow some of them to happen? + */ +#define PRINTINTR(msg, bits) \ + if (ir & bits) \ + printf(msg); + PRINTINTR("SCSI0 DREQ interrupt.\n", TCDS_CIR_SCSI0_DREQ); + PRINTINTR("SCSI1 DREQ interrupt.\n", TCDS_CIR_SCSI1_DREQ); + PRINTINTR("SCSI0 prefetch interrupt.\n", TCDS_CIR_SCSI0_PREFETCH); + PRINTINTR("SCSI1 prefetch interrupt.\n", TCDS_CIR_SCSI1_PREFETCH); + PRINTINTR("SCSI0 DMA error.\n", TCDS_CIR_SCSI0_DMA); + PRINTINTR("SCSI1 DMA error.\n", TCDS_CIR_SCSI1_DMA); + PRINTINTR("SCSI0 DB parity error.\n", TCDS_CIR_SCSI0_DB); + PRINTINTR("SCSI1 DB parity error.\n", TCDS_CIR_SCSI1_DB); + PRINTINTR("SCSI0 DMA buffer parity error.\n", TCDS_CIR_SCSI0_DMAB_PAR); + PRINTINTR("SCSI1 DMA buffer parity error.\n", TCDS_CIR_SCSI1_DMAB_PAR); + PRINTINTR("SCSI0 DMA read parity error.\n", TCDS_CIR_SCSI0_DMAR_PAR); + PRINTINTR("SCSI1 DMA read parity error.\n", TCDS_CIR_SCSI1_DMAR_PAR); + PRINTINTR("TC write parity error.\n", TCDS_CIR_TCIOW_PAR); + PRINTINTR("TC I/O address parity error.\n", TCDS_CIR_TCIOA_PAR); +#undef PRINTINTR +#endif + + /* + * XXX + * The MACH source had this, with the comment: + * This is wrong, but machine keeps dying. + */ + DELAY(1); + return 1; +} + +static void +tcds_print_child(device_t bus, device_t dev) +{ + struct tcds_dev *ioasic = device_get_ivars(dev); + printf(" at %s%d", device_get_name(bus), device_get_unit(bus)); +} + + +DRIVER_MODULE(tcds, tc, tcds_driver, tcds_devclass, 0, 0); + |