FreeBSD/Linux Kernel Cross Reference
sys/dev/tc/tcds.c

     /* $NetBSD: tcds.c,v 1.10 2003/01/01 00:10:25 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 <sys/cdefs.h>
    __KERNEL_RCSID(0, "$NetBSD: tcds.c,v 1.10 2003/01/01 00:10:25 thorpej Exp $");
    
    #include <sys/param.h>
    #include <sys/kernel.h>
    #include <sys/systm.h>
    #include <sys/device.h>
    #include <sys/malloc.h>
    
    #ifdef __alpha__
    #include <machine/rpb.h>
    #endif /* __alpha__ */
    
    #include <dev/scsipi/scsi_all.h>
    #include <dev/scsipi/scsipi_all.h>
    #include <dev/scsipi/scsiconf.h>
    
    #include <dev/ic/ncr53c9xvar.h>
    
    #include <machine/bus.h>
    
    #include <dev/tc/tcvar.h>
    #include <dev/tc/tcdsreg.h>
    #include <dev/tc/tcdsvar.h>
    
    #include "locators.h"
    
    struct tcds_softc {
            struct  device sc_dv;
            bus_space_tag_t sc_bst;
            bus_space_handle_t sc_bsh;
            bus_dma_tag_t sc_dmat;
            void    *sc_cookie;
           int     sc_flags;
           struct tcds_slotconfig sc_slots[2];
   };
   
   /* sc_flags */
   #define TCDSF_BASEBOARD         0x01    /* baseboard on DEC 3000 */
   #define TCDSF_FASTSCSI          0x02    /* supports Fast SCSI */
   
   /* Definition of the driver for autoconfig. */
   int     tcdsmatch __P((struct device *, struct cfdata *, void *));
   void    tcdsattach __P((struct device *, struct device *, void *));
   int     tcdsprint __P((void *, const char *));
   int     tcdssubmatch __P((struct device *, struct cfdata *, void *));
   
   CFATTACH_DECL(tcds, sizeof(struct tcds_softc),
       tcdsmatch, tcdsattach, NULL, NULL);
   
   /*static*/ int  tcds_intr __P((void *));
   /*static*/ int  tcds_intrnull __P((void *));
   
   struct tcds_device {
           const char *td_name;
           int td_flags;
   } tcds_devices[] = {
   #ifdef __alpha__
           { "PMAZ-DS ",   TCDSF_BASEBOARD },
           { "PMAZ-FS ",   TCDSF_BASEBOARD|TCDSF_FASTSCSI },
   #endif /* __alpha__ */
           { "PMAZB-AA",   0 },
           { "PMAZC-AA",   TCDSF_FASTSCSI },
           { NULL,         0 },
   };
   
   struct tcds_device *tcds_lookup __P((const char *));
   void    tcds_params __P((struct tcds_softc *, int, int *, int *));
   
   struct tcds_device *
   tcds_lookup(modname)
           const char *modname;
   {
           struct tcds_device *td;
   
           for (td = tcds_devices; td->td_name != NULL; td++)
                   if (strncmp(td->td_name, modname, TC_ROM_LLEN) == 0)
                           return (td);
   
           return (NULL);
   }
   
   int
   tcdsmatch(parent, cfdata, aux)
           struct device *parent;
           struct cfdata *cfdata;
           void *aux;
   {
           struct tc_attach_args *ta = aux;
   
           return (tcds_lookup(ta->ta_modname) != NULL);
   }
   
   void
   tcdsattach(parent, self, aux)
           struct device *parent, *self;
           void *aux;
   {
           struct tcds_softc *sc = (struct tcds_softc *)self;
           struct tc_attach_args *ta = aux;
           struct tcdsdev_attach_args tcdsdev;
           struct tcds_slotconfig *slotc;
           struct tcds_device *td;
           bus_space_handle_t sbsh[2];
           int i, gpi2;
           const struct evcnt *pevcnt;
   
           td = tcds_lookup(ta->ta_modname);
           if (td == NULL)
                   panic("\ntcdsattach: impossible");
   
           printf(": TurboChannel Dual SCSI");
           if (td->td_flags & TCDSF_BASEBOARD)
                   printf(" (baseboard)");
           printf("\n");
   
           sc->sc_flags = td->td_flags;
   
           sc->sc_bst = ta->ta_memt;
           sc->sc_dmat = ta->ta_dmat;
   
           /*
            * Map the device.
            */
           if (bus_space_map(sc->sc_bst, ta->ta_addr,
               (TCDS_SCSI1_OFFSET + 0x100), 0, &sc->sc_bsh)) {
                   printf("%s: unable to map device\n", sc->sc_dv.dv_xname);
                   return;
           }
   
           /*
            * Now, slice off two subregions for the individual NCR SCSI chips.
            */
           if (bus_space_subregion(sc->sc_bst, sc->sc_bsh, TCDS_SCSI0_OFFSET,
               0x100, &sbsh[0]) ||
               bus_space_subregion(sc->sc_bst, sc->sc_bsh, TCDS_SCSI1_OFFSET,
               0x100, &sbsh[1])) {
                   printf("%s: unable to subregion SCSI chip space\n",
                       sc->sc_dv.dv_xname);
                   return;
           }
   
           sc->sc_cookie = ta->ta_cookie;
   
           pevcnt = tc_intr_evcnt(parent, sc->sc_cookie);
           tc_intr_establish(parent, sc->sc_cookie, TC_IPL_BIO, 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.
            */
           bus_space_write_4(sc->sc_bst, sc->sc_bsh, TCDS_IMER, 0);
   
           /* XXX Initial contents of CIR? */
   
           /*
            * Remember if GPI2 is set in the CIR; we'll need it later.
            */
           gpi2 = (bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR) &
               TCDS_CIR_GPI_2) != 0;
   
           /*
            * Set up the per-slot definitions for later use.
            */
   
           /* fill in common information first */
           for (i = 0; i < 2; i++) {
                   char *cp;
   
                   slotc = &sc->sc_slots[i];
                   bzero(slotc, sizeof *slotc);    /* clear everything */
   
                   cp = slotc->sc_name;
                   snprintf(cp, sizeof(slotc->sc_name), "chip %d", i);
                   evcnt_attach_dynamic(&slotc->sc_evcnt, EVCNT_TYPE_INTR,
                       pevcnt, sc->sc_dv.dv_xname, cp);
   
                   slotc->sc_slot = i;
                   slotc->sc_bst = sc->sc_bst;
                   slotc->sc_bsh = sc->sc_bsh;
                   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_SCSI0_DMA_ADDR;
           slotc->sc_dic = TCDS_SCSI0_DMA_INTR;
           slotc->sc_dud0 = TCDS_SCSI0_DMA_DUD0;
           slotc->sc_dud1 = 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_SCSI1_DMA_ADDR;
           slotc->sc_dic = TCDS_SCSI1_DMA_INTR;
           slotc->sc_dud0 = TCDS_SCSI1_DMA_DUD0;
           slotc->sc_dud1 = TCDS_SCSI1_DMA_DUD1;
   
           /* find the hardware attached to the TCDS ASIC */
           for (i = 0; i < 2; i++) {
                   tcds_params(sc, i, &tcdsdev.tcdsda_id,
                       &tcdsdev.tcdsda_fast);
   
                   tcdsdev.tcdsda_bst = sc->sc_bst;
                   tcdsdev.tcdsda_bsh = sbsh[i];
                   tcdsdev.tcdsda_dmat = sc->sc_dmat;
                   tcdsdev.tcdsda_chip = i;
                   tcdsdev.tcdsda_sc = &sc->sc_slots[i];
                   /*
                    * Determine the chip frequency.  TCDSF_FASTSCSI will be set
                    * for TC option cards.  For baseboard chips, GPI2 is set, for a
                    * 25MHz clock, else a 40MHz clock.
                    */
                   if ((sc->sc_flags & TCDSF_BASEBOARD && gpi2 == 0) ||
                       sc->sc_flags & TCDSF_FASTSCSI) {
                           tcdsdev.tcdsda_freq = 40000000;
                           tcdsdev.tcdsda_period = tcdsdev.tcdsda_fast ? 4 : 8;
                   } else {
                           tcdsdev.tcdsda_freq = 25000000;
                           tcdsdev.tcdsda_period = 5;
                   }
                   if (sc->sc_flags & TCDSF_BASEBOARD)
                           tcdsdev.tcdsda_variant = NCR_VARIANT_NCR53C94;
                   else
                           tcdsdev.tcdsda_variant = NCR_VARIANT_NCR53C96;
   
                   tcds_scsi_reset(tcdsdev.tcdsda_sc);
   
                   config_found_sm(self, &tcdsdev, tcdsprint, tcdssubmatch);
   #ifdef __alpha__
                   /*
                    * The second SCSI chip isn't present on the baseboard TCDS
                    * on the DEC Alpha 3000/300 series.
                    */
                   if (sc->sc_flags & TCDSF_BASEBOARD &&
                       cputype == ST_DEC_3000_300)
                           break;
   #endif /* __alpha__ */
           }
   }
   
   int
   tcdssubmatch(parent, cf, aux)
           struct device *parent;
           struct cfdata *cf;
           void *aux;
   {
           struct tcdsdev_attach_args *tcdsdev = aux;
   
           if (cf->cf_loc[TCDSCF_CHIP] != TCDSCF_CHIP_DEFAULT &&
               cf->cf_loc[TCDSCF_CHIP] != tcdsdev->tcdsda_chip)
                   return (0);
   
           return (config_match(parent, cf, aux));
   }
   
   int
   tcdsprint(aux, pnp)
           void *aux;
           const char *pnp;
   {
           struct tcdsdev_attach_args *tcdsdev = aux;
   
           /* Only ASCs can attach to TCDSs; easy. */
           if (pnp)
                   aprint_normal("asc at %s", pnp);
   
           aprint_normal(" chip %d", tcdsdev->tcdsda_chip);
   
           return (UNCONF);
   }
   
   void
   tcds_intr_establish(tcds, slot, func, arg)
           struct device *tcds;
           int slot;
           int (*func) __P((void *));
           void *arg;
   {
           struct tcds_softc *sc = (struct tcds_softc *)tcds;
   
           if (sc->sc_slots[slot].sc_intrhand != tcds_intrnull)
                   panic("tcds_intr_establish: chip %d twice", slot);
   
           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, slot)
           struct device *tcds;
           int slot;
   {
           struct tcds_softc *sc = (struct tcds_softc *)tcds;
   
           if (sc->sc_slots[slot].sc_intrhand == tcds_intrnull)
                   panic("tcds_intr_disestablish: chip %d missing intr",
                       slot);
   
           sc->sc_slots[slot].sc_intrhand = tcds_intrnull;
           sc->sc_slots[slot].sc_intrarg = (void *)(u_long)slot;
   
           tcds_dma_enable(&sc->sc_slots[slot], 0);
           tcds_scsi_enable(&sc->sc_slots[slot], 0);
   }
   
   int
   tcds_intrnull(val)
           void *val;
   {
   
           panic("tcds_intrnull: uncaught TCDS intr for chip %lu",
               (u_long)val);
   }
   
   void
   tcds_scsi_reset(sc)
           struct tcds_slotconfig *sc;
   {
           u_int32_t cir;
   
           tcds_dma_enable(sc, 0);
           tcds_scsi_enable(sc, 0);
   
           cir = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR);
           TCDS_CIR_CLR(cir, sc->sc_resetbits);
           bus_space_write_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR, cir);
   
           DELAY(1);
   
           cir = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR);
           TCDS_CIR_SET(cir, sc->sc_resetbits);
           bus_space_write_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR, cir);
   
           tcds_scsi_enable(sc, 1);
           tcds_dma_enable(sc, 1);
   }
   
   void
   tcds_scsi_enable(sc, on)
           struct tcds_slotconfig *sc;
           int on;
   {
           u_int32_t imer;
   
           imer = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_IMER);
   
           if (on)
                   imer |= sc->sc_intrmaskbits;
           else
                   imer &= ~sc->sc_intrmaskbits;
   
           bus_space_write_4(sc->sc_bst, sc->sc_bsh, TCDS_IMER, imer);
   }
   
   void
   tcds_dma_enable(sc, on)
           struct tcds_slotconfig *sc;
           int on;
   {
           u_int32_t cir;
   
           cir = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR);
   
           /* XXX Clear/set IOSLOT/PBS bits. */
           if (on) 
                   TCDS_CIR_SET(cir, sc->sc_dmabits);
           else
                   TCDS_CIR_CLR(cir, sc->sc_dmabits);
   
           bus_space_write_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR, cir);
   }
   
   int
   tcds_scsi_isintr(sc, clear)
           struct tcds_slotconfig *sc;
           int clear;
   {
           u_int32_t cir;
   
           cir = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR);
   
           if ((cir & sc->sc_intrbits) != 0) {
                   if (clear) {
                           TCDS_CIR_CLR(cir, sc->sc_intrbits);
                           bus_space_write_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR,
                               cir);
                   }
                   return (1);
           } else
                   return (0);
   }
   
   int
   tcds_scsi_iserr(sc)
           struct tcds_slotconfig *sc;
   {
           u_int32_t cir;
   
           cir = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR);
           return ((cir & sc->sc_errorbits) != 0);
   }
   
   int
   tcds_intr(arg)
           void *arg;
   {
           struct tcds_softc *sc = arg;
           u_int32_t ir, ir0;
   
           /*
            * XXX
            * Copy and clear (gag!) the interrupts.
            */
           ir = ir0 = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR);
           TCDS_CIR_CLR(ir0, TCDS_CIR_ALLINTR);
           bus_space_write_4(sc->sc_bst, sc->sc_bsh, TCDS_CIR, ir0);
           tc_syncbus();
   
   #define INCRINTRCNT(slot)       sc->sc_slots[slot].sc_evcnt.ev_count++
   
   #define CHECKINTR(slot)                                                 \
           if (ir & sc->sc_slots[slot].sc_intrbits) {                      \
                   INCRINTRCNT(slot);                                      \
                   (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("%s: %s", sc->sc_dv.dv_xname, 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);
   }
   
   void
   tcds_params(sc, chip, idp, fastp)
           struct tcds_softc *sc;
           int chip, *idp, *fastp;
   {
           int id, fast;
           u_int32_t ids;
   
   #ifdef __alpha__
           if (sc->sc_flags & TCDSF_BASEBOARD) {
                   extern u_int8_t dec_3000_scsiid[], dec_3000_scsifast[];
   
                   id = dec_3000_scsiid[chip];
                   fast = dec_3000_scsifast[chip];
           } else
   #endif /* __alpha__ */
           {
                   /*
                    * SCSI IDs are stored in the EEPROM, along with whether or
                    * not the device is "fast".  Chip 0 is the high nibble,
                    * chip 1 the low nibble.
                    */
                   ids = bus_space_read_4(sc->sc_bst, sc->sc_bsh, TCDS_EEPROM_IDS);
                   if (chip == 0)
                           ids >>= 4;
   
                   id = ids & 0x7;
                   fast = ids & 0x8;
           }
   
           if (id < 0 || id > 7) {
                   printf("%s: WARNING: bad SCSI ID %d for chip %d, using 7\n",
                       sc->sc_dv.dv_xname, id, chip);
                   id = 7;
           }
   
           if (fast)
                   printf("%s: fast mode set for chip %d\n",
                       sc->sc_dv.dv_xname, chip);
   
           *idp = id;
           *fastp = fast;
   }

Cache object: 1f6899aebfc9c98f45765782fe1a736d