/* $NetBSD: ptsc.c,v 1.2 1996/03/17 01:24:54 thorpej Exp $ */ /* * Copyright (c) 1995 Scott Stevens * Copyright (c) 1995 Daniel Widenfalk * Copyright (c) 1994 Christian E. Hopps * Copyright (c) 1982, 1990 The Regents of the University of California. * 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 by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University 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 REGENTS 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 REGENTS 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. * * @(#)ptsc.c */ /* * Power-tec SCSI-2 driver */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include int ptscprint __P((void *auxp, char *)); void ptscattach __P((struct device *, struct device *, void *)); int ptscmatch __P((struct device *, void *, void *)); int ptsc_scsicmd __P((struct scsi_xfer *)); struct scsi_adapter ptsc_scsiswitch = { ptsc_scsicmd, sfas_minphys, 0, /* no lun support */ 0, /* no lun support */ }; struct scsi_device ptsc_scsidev = { NULL, /* use default error handler */ NULL, /* do not have a start functio */ NULL, /* have no async handler */ NULL, /* Use default done routine */ }; struct cfattach ptsc_ca = { sizeof(struct ptsc_softc), ptscmatch, ptscattach }; struct cfdriver ptsc_cd = { NULL, "ptsc", DV_DULL, NULL, 0 }; int ptsc_intr __P((struct sfas_softc *dev)); int ptsc_setup_dma __P((struct sfas_softc *sc, void *ptr, int len, int mode)); int ptsc_build_dma_chain __P((struct sfas_softc *sc, struct sfas_dma_chain *chain, void *p, int l)); int ptsc_need_bump __P((struct sfas_softc *sc, void *ptr, int len)); void ptsc_led __P((struct sfas_softc *sc, int mode)); /* * if we are a Power-tec SCSI-2 card */ int ptscmatch(pdp, match, auxp) struct device *pdp; void *match, *auxp; { struct podule_attach_args *pa = (struct podule_attach_args *)auxp; int podule; podule = findpodule(0x5b, 0x107, pa->pa_podule_number); if (podule == -1) return(0); pa->pa_podule_number = podule; pa->pa_podule = &podules[podule]; return(1); } void ptscattach(pdp, dp, auxp) struct device *pdp; struct device *dp; void *auxp; { struct ptsc_softc *sc = (struct ptsc_softc *)dp; struct podule_attach_args *pa; ptsc_regmap_p rp = &sc->sc_regmap; vu_char *fas; pa = (struct podule_attach_args *)auxp; sc->sc_specific.sc_podule_number = pa->pa_podule_number; if (sc->sc_specific.sc_podule_number == -1) panic("Podule has disappeared !"); sc->sc_specific.sc_podule = &podules[sc->sc_specific.sc_podule_number]; sc->sc_specific.sc_iobase = (vu_char *)sc->sc_specific.sc_podule->fast_base; rp->chipreset = &sc->sc_specific.sc_iobase[PTSC_CONTROL_CHIPRESET]; rp->inten = &sc->sc_specific.sc_iobase[PTSC_CONTROL_INTEN]; rp->status = &sc->sc_specific.sc_iobase[PTSC_STATUS]; rp->term = &sc->sc_specific.sc_iobase[PTSC_CONTROL_TERM]; rp->led = &sc->sc_specific.sc_iobase[PTSC_CONTROL_LED]; fas = &sc->sc_specific.sc_iobase[PTSC_FASOFFSET_BASE]; rp->FAS216.sfas_tc_low = &fas[PTSC_FASOFFSET_TCL]; rp->FAS216.sfas_tc_mid = &fas[PTSC_FASOFFSET_TCM]; rp->FAS216.sfas_fifo = &fas[PTSC_FASOFFSET_FIFO]; rp->FAS216.sfas_command = &fas[PTSC_FASOFFSET_COMMAND]; rp->FAS216.sfas_dest_id = &fas[PTSC_FASOFFSET_DESTID]; rp->FAS216.sfas_timeout = &fas[PTSC_FASOFFSET_TIMEOUT]; rp->FAS216.sfas_syncper = &fas[PTSC_FASOFFSET_PERIOD]; rp->FAS216.sfas_syncoff = &fas[PTSC_FASOFFSET_OFFSET]; rp->FAS216.sfas_config1 = &fas[PTSC_FASOFFSET_CONFIG1]; rp->FAS216.sfas_clkconv = &fas[PTSC_FASOFFSET_CLOCKCONV]; rp->FAS216.sfas_test = &fas[PTSC_FASOFFSET_TEST]; rp->FAS216.sfas_config2 = &fas[PTSC_FASOFFSET_CONFIG2]; rp->FAS216.sfas_config3 = &fas[PTSC_FASOFFSET_CONFIG3]; rp->FAS216.sfas_tc_high = &fas[PTSC_FASOFFSET_TCH]; rp->FAS216.sfas_fifo_bot = &fas[PTSC_FASOFFSET_FIFOBOTTOM]; sc->sc_softc.sc_fas = (sfas_regmap_p)rp; sc->sc_softc.sc_spec = &sc->sc_specific; sc->sc_softc.sc_led = ptsc_led; sc->sc_softc.sc_setup_dma = ptsc_setup_dma; sc->sc_softc.sc_build_dma_chain = ptsc_build_dma_chain; sc->sc_softc.sc_need_bump = ptsc_need_bump; sc->sc_softc.sc_clock_freq = 8; /* Power-Tec runs at 8MHz */ sc->sc_softc.sc_timeout = 250; /* Set default timeout to 250ms */ sc->sc_softc.sc_config_flags = SFAS_NO_DMA /*| SFAS_NF_DEBUG*/; sc->sc_softc.sc_host_id = 7; /* Should check the jumpers */ sc->sc_softc.sc_bump_sz = NBPG; sc->sc_softc.sc_bump_pa = 0x0; sfasinitialize((struct sfas_softc *)sc); sc->sc_softc.sc_link.adapter_softc = sc; sc->sc_softc.sc_link.adapter_target = sc->sc_softc.sc_host_id; sc->sc_softc.sc_link.adapter = &ptsc_scsiswitch; sc->sc_softc.sc_link.device = &ptsc_scsidev; sc->sc_softc.sc_link.openings = 1; sc->sc_softc.sc_ih.ih_func = ptsc_intr; sc->sc_softc.sc_ih.ih_arg = &sc->sc_softc; sc->sc_softc.sc_ih.ih_level = IPL_BIO; /* initialise the card */ *rp->term = 0; *rp->inten = (PTSC_POLL?0:1); *rp->led = 0; #if PTSC_POLL == 0 if (irq_claim(IRQ_PODULE /*IRQ_EXPCARD0 + sc->sc_specific.sc_podule_number */, &sc->sc_softc.sc_ih)) panic("ptsc: Cannot install IRQ handler\n"); #endif printf("\n"); /* attach all scsi units on us */ config_found(dp, &sc->sc_softc.sc_link, ptscprint); } /* print diag if pnp is NULL else just extra */ int ptscprint(auxp, pnp) void *auxp; char *pnp; { if (pnp == NULL) return(UNCONF); return(QUIET); } int ptsc_intr(dev) struct sfas_softc *dev; { ptsc_regmap_p rp; int quickints; rp = (ptsc_regmap_p)dev->sc_fas; if (*rp->FAS216.sfas_status & SFAS_STAT_INTERRUPT_PENDING) { quickints = 16; do { dev->sc_status = *rp->FAS216.sfas_status; dev->sc_interrupt = *rp->FAS216.sfas_interrupt; if (dev->sc_interrupt & SFAS_INT_RESELECTED) { dev->sc_resel[0] = *rp->FAS216.sfas_fifo; dev->sc_resel[1] = *rp->FAS216.sfas_fifo; } sfasintr(dev); } while((*rp->FAS216.sfas_status & SFAS_STAT_INTERRUPT_PENDING) && --quickints); } return(1); } /* Load transfer address into dma register */ void ptsc_set_dma_adr(sc, ptr) struct sfas_softc *sc; void *ptr; { ptsc_regmap_p rp; unsigned int *p; unsigned int d; #if 0 printf("ptsc_set_dma_adr(sc = 0x%08x, ptr = 0x%08x)\n", (u_int)sc, (u_int)ptr); #endif return; #if 0 rp = (ptsc_regmap_p)sc->sc_fas; d = (unsigned int)ptr; p = (unsigned int *)((d & 0xFFFFFF) + (int)rp->dmabase); *rp->clear=0; *p = d; #endif } /* Set DMA transfer counter */ void ptsc_set_dma_tc(sc, len) struct sfas_softc *sc; unsigned int len; { printf("ptsc_set_dma_tc(sc, len = 0x%08x)", len); *sc->sc_fas->sfas_tc_low = len; len >>= 8; *sc->sc_fas->sfas_tc_mid = len; len >>= 8; *sc->sc_fas->sfas_tc_high = len; } /* Set DMA mode */ void ptsc_set_dma_mode(sc, mode) struct sfas_softc *sc; int mode; { struct csc_specific *spec; #if 0 spec = sc->sc_spec; spec->portbits = (spec->portbits & ~FLSC_PB_DMA_BITS) | mode; *((flsc_regmap_p)sc->sc_fas)->hardbits = spec->portbits; #endif } /* Initialize DMA for transfer */ int ptsc_setup_dma(sc, ptr, len, mode) struct sfas_softc *sc; void *ptr; int len; int mode; { int retval; retval = 0; #if 0 printf("ptsc_setup_dma(sc, ptr = 0x%08x, len = 0x%08x, mode = 0x%08x)\n", (u_int)ptr, len, mode); #endif return(0); #if 0 switch(mode) { case SFAS_DMA_READ: case SFAS_DMA_WRITE: flsc_set_dma_adr(sc, ptr); if (mode == SFAS_DMA_READ) flsc_set_dma_mode(sc,FLSC_PB_ENABLE_DMA | FLSC_PB_DMA_READ); else flsc_set_dma_mode(sc,FLSC_PB_ENABLE_DMA | FLSC_PB_DMA_WRITE); flsc_set_dma_tc(sc, len); break; case SFAS_DMA_CLEAR: default: flsc_set_dma_mode(sc, FLSC_PB_DISABLE_DMA); flsc_set_dma_adr(sc, 0); retval = (*sc->sc_fas->sfas_tc_high << 16) | (*sc->sc_fas->sfas_tc_mid << 8) | *sc->sc_fas->sfas_tc_low; flsc_set_dma_tc(sc, 0); break; } return(retval); #endif } /* Check if address and len is ok for DMA transfer */ int ptsc_need_bump(sc, ptr, len) struct sfas_softc *sc; void *ptr; int len; { int p; p = (int)ptr & 0x03; if (p) { p = 4-p; if (len < 256) p = len; } return(p); } /* Interrupt driven routines */ int ptsc_build_dma_chain(sc, chain, p, l) struct sfas_softc *sc; struct sfas_dma_chain *chain; void *p; int l; { vm_offset_t pa, lastpa; char *ptr; int len, prelen, postlen, max_t, n; #if 0 printf("ptsc_build_dma_chain()\n"); #endif return(0); #if 0 if (l == 0) return(0); #define set_link(n, p, l, f)\ do { chain[n].ptr = (p); chain[n].len = (l); chain[n++].flg = (f); } while(0) n = 0; if (l < 512) set_link(n, (vm_offset_t)p, l, SFAS_CHAIN_BUMP); else if ((p >= (void *)0xFF000000) #if M68040 && ((mmutype == MMU_68040) && (p >= (void *)0xFFFC0000)) #endif ) { while(l != 0) { len = ((l > sc->sc_bump_sz) ? sc->sc_bump_sz : l); set_link(n, (vm_offset_t)p, len, SFAS_CHAIN_BUMP); p += len; l -= len; } } else { ptr = p; len = l; pa = kvtop(ptr); prelen = ((int)ptr & 0x03); if (prelen) { prelen = 4-prelen; set_link(n, (vm_offset_t)ptr, prelen, SFAS_CHAIN_BUMP); ptr += prelen; len -= prelen; } lastpa = 0; while(len > 3) { pa = kvtop(ptr); max_t = NBPG - (pa & PGOFSET); if (max_t > len) max_t = len; max_t &= ~3; if (lastpa == pa) sc->sc_chain[n-1].len += max_t; else set_link(n, pa, max_t, SFAS_CHAIN_DMA); lastpa = pa+max_t; ptr += max_t; len -= max_t; } if (len) set_link(n, (vm_offset_t)ptr, len, SFAS_CHAIN_BUMP); } return(n); #endif } /* Turn on/off led */ void ptsc_led(sc, mode) struct sfas_softc *sc; int mode; { ptsc_regmap_p rp; rp = (ptsc_regmap_p)sc->sc_fas; if (mode) { sc->sc_led_status++; } else { if (sc->sc_led_status) sc->sc_led_status--; } *rp->led = (sc->sc_led_status?1:0); } int ptsc_scsicmd(xs) struct scsi_xfer *xs; { /* ensure command is polling for the moment */ #if PTSC_POLL > 0 xs->flags |= SCSI_POLL; #endif #if 0 printf("Opcode %d\n", (int)(xs->cmd->opcode)); #endif return(sfas_scsicmd(xs)); }