/* $NetBSD: isp_pci.c,v 1.12 1997/04/13 20:14:32 cgd Exp $ */ /* * PCI specific probe and attach routines for Qlogic ISP SCSI adapters. * * Copyright (c) 1997 by Matthew Jacob * NASA AMES Research Center * 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 immediately at the beginning of the file, without modification, * 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. 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 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 AUTHOR 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. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef __alpha__ /* XXX */ /* XXX XXX NEED REAL DMA MAPPING SUPPORT XXX XXX */ extern vm_offset_t alpha_XXX_dmamap(vm_offset_t); #undef vtophys #define vtophys(va) alpha_XXX_dmamap((vm_offset_t) va) #endif #define KVTOPHYS(x) vtophys(x) static u_int16_t isp_pci_rd_reg __P((struct ispsoftc *, int)); static void isp_pci_wr_reg __P((struct ispsoftc *, int, u_int16_t)); static vm_offset_t isp_pci_mbxdma __P((struct ispsoftc *, vm_offset_t, u_int32_t)); static int isp_pci_dmasetup __P((struct ispsoftc *, struct scsi_xfer *, ispreq_t *, u_int8_t *, u_int8_t)); static void isp_pci_reset1 __P((struct ispsoftc *)); static struct ispmdvec mdvec = { isp_pci_rd_reg, isp_pci_wr_reg, isp_pci_mbxdma, isp_pci_dmasetup, NULL, NULL, isp_pci_reset1, ISP_RISC_CODE, ISP_CODE_LENGTH, ISP_CODE_ORG, BIU_PCI_CONF1_FIFO_16 | BIU_BURST_ENABLE, 60 /* MAGIC- all known PCI card implementations are 60MHz */ }; #define PCI_QLOGIC_ISP \ ((PCI_PRODUCT_QLOGIC_ISP1020 << 16) | PCI_VENDOR_QLOGIC) #define IO_MAP_REG 0x10 #define MEM_MAP_REG 0x14 #ifdef __BROKEN_INDIRECT_CONFIG static int isp_pci_probe __P((struct device *, void *, void *)); #else static int isp_pci_probe __P((struct device *, struct cfdata *, void *)); #endif static void isp_pci_attach __P((struct device *, struct device *, void *)); struct isp_pcisoftc { struct ispsoftc pci_isp; bus_space_tag_t pci_st; bus_space_handle_t pci_sh; void * pci_ih; }; struct cfattach isp_pci_ca = { sizeof (struct isp_pcisoftc), isp_pci_probe, isp_pci_attach }; static int isp_pci_probe(parent, match, aux) struct device *parent; #ifdef __BROKEN_INDIRECT_CONFIG void *match, *aux; #else struct cfdata *match; void *aux; #endif { struct pci_attach_args *pa = aux; if (pa->pa_id == PCI_QLOGIC_ISP) { return (1); } else { return (0); } } static void isp_pci_attach(parent, self, aux) struct device *parent, *self; void *aux; { struct pci_attach_args *pa = aux; struct isp_pcisoftc *pcs = (struct isp_pcisoftc *) self; bus_space_tag_t st, iot, memt; bus_space_handle_t sh, ioh, memh; pci_intr_handle_t ih; const char *intrstr; int ioh_valid, memh_valid; ioh_valid = (pci_mapreg_map(pa, IO_MAP_REG, PCI_MAPREG_TYPE_IO, 0, &iot, &ioh, NULL, NULL) == 0); memh_valid = (pci_mapreg_map(pa, MEM_MAP_REG, PCI_MAPREG_TYPE_MEM | PCI_MAPREG_MEM_TYPE_32BIT, 0, &memt, &memh, NULL, NULL) == 0); if (memh_valid) { st = memt; sh = memh; } else if (ioh_valid) { st = iot; sh = ioh; } else { printf(": unable to map device registers\n"); return; } printf("\n"); pcs->pci_st = st; pcs->pci_sh = sh; pcs->pci_isp.isp_mdvec = &mdvec; isp_reset(&pcs->pci_isp); if (pcs->pci_isp.isp_state != ISP_RESETSTATE) { return; } isp_init(&pcs->pci_isp); if (pcs->pci_isp.isp_state != ISP_INITSTATE) { isp_uninit(&pcs->pci_isp); return; } if (pci_intr_map(pa->pa_pc, pa->pa_intrtag, pa->pa_intrpin, pa->pa_intrline, &ih)) { printf("%s: couldn't map interrupt\n", pcs->pci_isp.isp_name); isp_uninit(&pcs->pci_isp); return; } intrstr = pci_intr_string(pa->pa_pc, ih); if (intrstr == NULL) intrstr = ""; pcs->pci_ih = pci_intr_establish(pa->pa_pc, ih, IPL_BIO, isp_intr, &pcs->pci_isp); if (pcs->pci_ih == NULL) { printf("%s: couldn't establish interrupt at %s\n", pcs->pci_isp.isp_name, intrstr); isp_uninit(&pcs->pci_isp); return; } printf("%s: interrupting at %s\n", pcs->pci_isp.isp_name, intrstr); /* * Do Generic attach now. */ isp_attach(&pcs->pci_isp); if (pcs->pci_isp.isp_state != ISP_RUNSTATE) { isp_uninit(&pcs->pci_isp); } } #define PCI_BIU_REGS_OFF 0x00 #define PCI_MBOX_REGS_OFF 0x70 #define PCI_SXP_REGS_OFF 0x80 #define PCI_RISC_REGS_OFF 0x80 static u_int16_t isp_pci_rd_reg(isp, regoff) struct ispsoftc *isp; int regoff; { struct isp_pcisoftc *pcs = (struct isp_pcisoftc *) isp; int offset; if ((regoff & BIU_BLOCK) != 0) { offset = PCI_BIU_REGS_OFF; } else if ((regoff & MBOX_BLOCK) != 0) { offset = PCI_MBOX_REGS_OFF; } else if ((regoff & SXP_BLOCK) != 0) { offset = PCI_SXP_REGS_OFF; /* * XXX */ panic("SXP Registers not accessible yet!"); } else { offset = PCI_RISC_REGS_OFF; } regoff &= 0xff; offset += regoff; return bus_space_read_2(pcs->pci_st, pcs->pci_sh, offset); } static void isp_pci_wr_reg(isp, regoff, val) struct ispsoftc *isp; int regoff; u_int16_t val; { struct isp_pcisoftc *pcs = (struct isp_pcisoftc *) isp; int offset; if ((regoff & BIU_BLOCK) != 0) { offset = PCI_BIU_REGS_OFF; } else if ((regoff & MBOX_BLOCK) != 0) { offset = PCI_MBOX_REGS_OFF; } else if ((regoff & SXP_BLOCK) != 0) { offset = PCI_SXP_REGS_OFF; /* * XXX */ panic("SXP Registers not accessible yet!"); } else { offset = PCI_RISC_REGS_OFF; } regoff &= 0xff; offset += regoff; bus_space_write_2(pcs->pci_st, pcs->pci_sh, offset, val); } static vm_offset_t isp_pci_mbxdma(isp, kva, len) struct ispsoftc *isp; vm_offset_t kva; u_int32_t len; { vm_offset_t pg, start, s1; start = KVTOPHYS(kva); pg = kva + NBPG; s1 = (start >> PGSHIFT) + 1; len -= NBPG; while ((int32_t)len > 0) { if (s1 != (KVTOPHYS(pg) >> PGSHIFT)) { printf("%s: mailboxes across noncontiguous pages\n", isp->isp_name); return ((vm_offset_t) 0); } len -= NBPG; pg += NBPG; s1++; } return (start); } /* * TODO: reduce the number of segments by * cchecking for adjacent physical page. */ static int isp_pci_dmasetup(isp, xs, rq, iptrp, optr) struct ispsoftc *isp; struct scsi_xfer *xs; ispreq_t *rq; u_int8_t *iptrp; u_int8_t optr; { ispcontreq_t *crq; unsigned long thiskv, nextkv; int datalen, amt; if (xs->datalen == 0) { rq->req_seg_count = 1; rq->req_flags |= REQFLAG_DATA_IN; return (0); } if (xs->flags & SCSI_DATA_IN) { rq->req_flags |= REQFLAG_DATA_IN; } else { rq->req_flags |= REQFLAG_DATA_OUT; } datalen = xs->datalen; thiskv = (unsigned long) xs->data; while (datalen && rq->req_seg_count < ISP_RQDSEG) { nextkv = (thiskv + NBPG) & ~(NBPG-1); amt = nextkv - thiskv; if (amt > datalen) amt = datalen; rq->req_dataseg[rq->req_seg_count].ds_count = amt; rq->req_dataseg[rq->req_seg_count].ds_base = KVTOPHYS(thiskv); #if 0 printf("%s: seg%d: 0x%lx..0x%lx\n", isp->isp_name, rq->req_seg_count, thiskv, thiskv + (unsigned long) amt); #endif datalen -= amt; thiskv = nextkv; rq->req_seg_count++; } if (datalen == 0) { return (0); } do { int seg; crq = (ispcontreq_t *) &isp->isp_rquest[*iptrp][0]; *iptrp = (*iptrp + 1) & (RQUEST_QUEUE_LEN - 1); if (*iptrp == optr) { printf("%s: Request Queue Overflow++\n", isp->isp_name); return (1); } rq->req_header.rqs_entry_count++; bzero((void *)crq, sizeof (*crq)); crq->req_header.rqs_entry_count = 1; crq->req_header.rqs_entry_type = RQSTYPE_DATASEG; seg = 0; while (datalen && seg < ISP_CDSEG) { nextkv = (thiskv + NBPG) & ~(NBPG-1); amt = nextkv - thiskv; if (amt > datalen) amt = datalen; crq->req_dataseg[seg].ds_count = amt; crq->req_dataseg[seg].ds_base = KVTOPHYS(thiskv); #if 0 printf("%s: Cont%d seg%d: 0x%lx..0x%lx\n", isp->isp_name, rq->req_header.rqs_entry_count, seg, thiskv, thiskv + (unsigned long) amt); #endif datalen -= amt; thiskv = nextkv; rq->req_seg_count++; seg++; } } while (datalen > 0); return (0); } static void isp_pci_reset1(isp) struct ispsoftc *isp; { /* Make sure the BIOS is disabled */ isp_pci_wr_reg(isp, HCCR, PCI_HCCR_CMD_BIOS); }