458 lines
12 KiB
C
458 lines
12 KiB
C
/* $NetBSD: cosc.c,v 1.3 1996/12/10 21:27:32 thorpej Exp $ */
|
|
|
|
/*
|
|
* Copyright (c) 1996 Mark Brinicombe
|
|
* 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 Mark Brinicombe
|
|
* for the NetBSD Project.
|
|
* 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 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.
|
|
*
|
|
* from: asc.c,v 1.8 1996/06/12 20:46:58 mark Exp
|
|
*/
|
|
|
|
/*
|
|
* Driver for the MCS Connect 32 SCSI 2 card with AM53C94 SCSI controller.
|
|
*
|
|
* Thanks to Mike <mcsmike@knipp.de> at MCS for loaning a card.
|
|
* Thanks to Andreas Gandor <andi@knipp.de> for some technical information
|
|
*/
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/kernel.h>
|
|
#include <sys/device.h>
|
|
#include <scsi/scsi_all.h>
|
|
#include <scsi/scsiconf.h>
|
|
#include <machine/bootconfig.h>
|
|
#include <machine/io.h>
|
|
#include <machine/irqhandler.h>
|
|
#include <machine/katelib.h>
|
|
#include <arm32/podulebus/podulebus.h>
|
|
#include <arm32/podulebus/escreg.h>
|
|
#include <arm32/podulebus/escvar.h>
|
|
#include <arm32/podulebus/coscreg.h>
|
|
#include <arm32/podulebus/coscvar.h>
|
|
#include <arm32/podulebus/podules.h>
|
|
|
|
void coscattach __P((struct device *, struct device *, void *));
|
|
int coscmatch __P((struct device *, void *, void *));
|
|
int cosc_scsicmd __P((struct scsi_xfer *));
|
|
|
|
struct scsi_adapter cosc_scsiswitch = {
|
|
cosc_scsicmd, /* Eventually call esc_scsicmd directly */
|
|
esc_minphys,
|
|
0, /* no lun support */
|
|
0, /* no lun support */
|
|
};
|
|
|
|
struct scsi_device cosc_scsidev = {
|
|
NULL, /* use default error handler */
|
|
NULL, /* do not have a start function */
|
|
NULL, /* have no async handler */
|
|
NULL, /* Use default done routine */
|
|
};
|
|
|
|
struct cfattach cosc_ca = {
|
|
sizeof(struct cosc_softc), coscmatch, coscattach
|
|
};
|
|
|
|
struct cfdriver cosc_cd = {
|
|
NULL, "cosc", DV_DULL, NULL, 0
|
|
};
|
|
|
|
int cosc_intr __P((struct esc_softc *dev));
|
|
int cosc_setup_dma __P((struct esc_softc *sc, void *ptr, int len,
|
|
int mode));
|
|
int cosc_build_dma_chain __P((struct esc_softc *sc,
|
|
struct esc_dma_chain *chain, void *p, int l));
|
|
int cosc_need_bump __P((struct esc_softc *sc, void *ptr, int len));
|
|
|
|
void cosc_led __P((struct esc_softc *sc, int mode));
|
|
|
|
#if COSC_POLL > 0
|
|
int cosc_poll = 1;
|
|
#endif
|
|
|
|
|
|
int
|
|
coscmatch(pdp, match, auxp)
|
|
struct device *pdp;
|
|
void *match, *auxp;
|
|
{
|
|
struct podule_attach_args *pa = (struct podule_attach_args *)auxp;
|
|
|
|
/* Look for the card */
|
|
|
|
if (matchpodule(pa, MANUFACTURER_MCS, PODULE_MCS_SCSI, -1) != 0)
|
|
return(1);
|
|
|
|
/* Old versions of the ROM on this card could have the wrong ID */
|
|
|
|
if (matchpodule(pa, MANUFACTURER_ACORN, PODULE_ACORN_SCSI, -1) == 0)
|
|
return(0);
|
|
|
|
if (strncmp(pa->pa_podule->description, "MCS", 3) != 0)
|
|
return(0);
|
|
|
|
return(1);
|
|
}
|
|
|
|
static int dummy[6];
|
|
|
|
void
|
|
coscattach(pdp, dp, auxp)
|
|
struct device *pdp, *dp;
|
|
void *auxp;
|
|
{
|
|
struct cosc_softc *sc = (struct cosc_softc *)dp;
|
|
struct podule_attach_args *pa;
|
|
cosc_regmap_p rp = &sc->sc_regmap;
|
|
vu_char *esc;
|
|
|
|
pa = (struct podule_attach_args *)auxp;
|
|
|
|
if (pa->pa_podule_number == -1)
|
|
panic("Podule has disappeared !");
|
|
|
|
sc->sc_podule_number = pa->pa_podule_number;
|
|
sc->sc_podule = pa->pa_podule;
|
|
podules[sc->sc_podule_number].attached = 1;
|
|
|
|
if (pa->pa_podule->manufacturer == MANUFACTURER_ACORN
|
|
&& pa->pa_podule->product == PODULE_ACORN_SCSI)
|
|
printf(" Faulty expansion card identity\n");
|
|
|
|
sc->sc_iobase = (vu_char *)sc->sc_podule->fast_base;
|
|
|
|
/* Select page zero (so we can see the config info) */
|
|
|
|
sc->sc_iobase[COSC_PAGE_REGISTER] = 0;
|
|
|
|
rp->chipreset = (vu_char *)&dummy[0];
|
|
rp->inten = (vu_char *)&dummy[1];
|
|
rp->status = (vu_char *)&dummy[2];
|
|
rp->term = &sc->sc_iobase[COSC_TERMINATION_CONTROL];
|
|
rp->led = (vu_char *)&dummy[4];
|
|
esc = &sc->sc_iobase[COSC_ESCOFFSET_BASE];
|
|
|
|
rp->esc.esc_tc_low = &esc[COSC_ESCOFFSET_TCL];
|
|
rp->esc.esc_tc_mid = &esc[COSC_ESCOFFSET_TCM];
|
|
rp->esc.esc_fifo = &esc[COSC_ESCOFFSET_FIFO];
|
|
rp->esc.esc_command = &esc[COSC_ESCOFFSET_COMMAND];
|
|
rp->esc.esc_dest_id = &esc[COSC_ESCOFFSET_DESTID];
|
|
rp->esc.esc_timeout = &esc[COSC_ESCOFFSET_TIMEOUT];
|
|
rp->esc.esc_syncper = &esc[COSC_ESCOFFSET_PERIOD];
|
|
rp->esc.esc_syncoff = &esc[COSC_ESCOFFSET_OFFSET];
|
|
rp->esc.esc_config1 = &esc[COSC_ESCOFFSET_CONFIG1];
|
|
rp->esc.esc_clkconv = &esc[COSC_ESCOFFSET_CLOCKCONV];
|
|
rp->esc.esc_test = &esc[COSC_ESCOFFSET_TEST];
|
|
rp->esc.esc_config2 = &esc[COSC_ESCOFFSET_CONFIG2];
|
|
rp->esc.esc_config3 = &esc[COSC_ESCOFFSET_CONFIG3];
|
|
rp->esc.esc_config4 = &esc[COSC_ESCOFFSET_CONFIG4];
|
|
rp->esc.esc_tc_high = &esc[COSC_ESCOFFSET_TCH];
|
|
rp->esc.esc_fifo_bot = &esc[COSC_ESCOFFSET_FIFOBOTTOM];
|
|
|
|
*rp->esc.esc_command = ESC_CMD_RESET_CHIP;
|
|
delay(1000);
|
|
*rp->esc.esc_command = ESC_CMD_NOP;
|
|
|
|
/* See if we recognise the controller */
|
|
|
|
switch (*rp->esc.esc_tc_high) {
|
|
case 0x12:
|
|
printf(" AM53CF94");
|
|
break;
|
|
default:
|
|
printf(" Unknown controller (%02x)", *rp->esc.esc_tc_high);
|
|
break;
|
|
}
|
|
|
|
/* Set termination power */
|
|
|
|
if (sc->sc_iobase[COSC_CONFIG_TERMINATION] & COSC_CONFIG_TERMINATION_ON) {
|
|
printf(" termpwr on");
|
|
sc->sc_iobase[COSC_TERMINATION_CONTROL] = COSC_TERMINATION_ON;
|
|
} else {
|
|
printf(" termpwr off");
|
|
sc->sc_iobase[COSC_TERMINATION_CONTROL] = COSC_TERMINATION_OFF;
|
|
}
|
|
|
|
/* Don't know what this is for */
|
|
|
|
{
|
|
int byte;
|
|
int loop;
|
|
|
|
byte = sc->sc_iobase[COSC_REGISTER_01];
|
|
byte = 0;
|
|
for (loop = 0; loop < 8; ++loop) {
|
|
if (sc->sc_iobase[COSC_REGISTER_00] & 0x01)
|
|
byte |= (1 << loop);
|
|
}
|
|
printf(" byte=%02x", byte);
|
|
}
|
|
|
|
/*
|
|
* Control register 4 is an AMD special (not on FAS216)
|
|
*
|
|
* The powerdown and glitch eater facilities could be useful
|
|
* Use the podule configuration for this register
|
|
*/
|
|
|
|
sc->sc_softc.sc_config4 = sc->sc_iobase[COSC_CONFIG_CONTROL_REG4];
|
|
|
|
sc->sc_softc.sc_esc = (esc_regmap_p)rp;
|
|
/* sc->sc_softc.sc_spec = &sc->sc_specific;*/
|
|
|
|
sc->sc_softc.sc_led = cosc_led;
|
|
sc->sc_softc.sc_setup_dma = cosc_setup_dma;
|
|
sc->sc_softc.sc_build_dma_chain = cosc_build_dma_chain;
|
|
sc->sc_softc.sc_need_bump = cosc_need_bump;
|
|
|
|
sc->sc_softc.sc_clock_freq = 40; /* Connect32 runs at 40MHz */
|
|
sc->sc_softc.sc_timeout = 250; /* Set default timeout to 250ms */
|
|
sc->sc_softc.sc_config_flags = ESC_NO_DMA;
|
|
sc->sc_softc.sc_host_id = sc->sc_iobase[COSC_CONFIG_CONTROL_REG1] & ESC_DEST_ID_MASK;
|
|
|
|
printf(" hostid=%d", sc->sc_softc.sc_host_id);
|
|
|
|
#if COSC_POLL > 0
|
|
if (boot_args) {
|
|
char *ptr;
|
|
|
|
ptr = strstr(boot_args, "nocoscpoll");
|
|
if (ptr)
|
|
cosc_poll = 0;
|
|
}
|
|
|
|
if (cosc_poll)
|
|
printf(" polling");
|
|
#endif
|
|
|
|
sc->sc_softc.sc_bump_sz = NBPG;
|
|
sc->sc_softc.sc_bump_pa = 0x0;
|
|
|
|
escinitialize((struct esc_softc *)sc);
|
|
|
|
sc->sc_softc.sc_link.channel = SCSI_CHANNEL_ONLY_ONE;
|
|
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 = &cosc_scsiswitch;
|
|
sc->sc_softc.sc_link.device = &cosc_scsidev;
|
|
sc->sc_softc.sc_link.openings = 1;
|
|
sc->sc_softc.sc_link.max_target = 7;
|
|
|
|
/* initialise the card */
|
|
#if 0
|
|
*rp->inten = (COSC_POLL?0:1);
|
|
*rp->led = 0;
|
|
#endif
|
|
|
|
sc->sc_softc.sc_ih.ih_func = cosc_intr;
|
|
sc->sc_softc.sc_ih.ih_arg = &sc->sc_softc;
|
|
sc->sc_softc.sc_ih.ih_level = IPL_BIO;
|
|
sc->sc_softc.sc_ih.ih_name = "scsi: cosc";
|
|
sc->sc_softc.sc_ih.ih_maskaddr = sc->sc_podule->irq_addr;
|
|
sc->sc_softc.sc_ih.ih_maskbits = sc->sc_podule->irq_mask;
|
|
|
|
#if COSC_POLL > 0
|
|
if (!cosc_poll)
|
|
#endif
|
|
if (irq_claim(IRQ_PODULE, &sc->sc_softc.sc_ih))
|
|
panic("%s: Cannot install IRQ handler\n", dp->dv_xname);
|
|
|
|
printf("\n");
|
|
|
|
/* attach all scsi units on us */
|
|
config_found(dp, &sc->sc_softc.sc_link, scsiprint);
|
|
}
|
|
|
|
|
|
/* Turn on/off led */
|
|
|
|
void
|
|
cosc_led(sc, mode)
|
|
struct esc_softc *sc;
|
|
int mode;
|
|
{
|
|
cosc_regmap_p rp;
|
|
|
|
rp = (cosc_regmap_p)sc->sc_esc;
|
|
|
|
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
|
|
cosc_intr(dev)
|
|
struct esc_softc *dev;
|
|
{
|
|
cosc_regmap_p rp;
|
|
int quickints;
|
|
|
|
rp = (cosc_regmap_p)dev->sc_esc;
|
|
|
|
printf("cosc_intr:%08x %02x\n", (u_int)rp->esc.esc_status, *rp->esc.esc_status);
|
|
|
|
if (*rp->esc.esc_status & ESC_STAT_INTERRUPT_PENDING) {
|
|
quickints = 16;
|
|
do {
|
|
dev->sc_status = *rp->esc.esc_status;
|
|
dev->sc_interrupt = *rp->esc.esc_interrupt;
|
|
|
|
if (dev->sc_interrupt & ESC_INT_RESELECTED) {
|
|
dev->sc_resel[0] = *rp->esc.esc_fifo;
|
|
dev->sc_resel[1] = *rp->esc.esc_fifo;
|
|
}
|
|
|
|
escintr(dev);
|
|
|
|
} while((*rp->esc.esc_status & ESC_STAT_INTERRUPT_PENDING)
|
|
&& --quickints);
|
|
}
|
|
|
|
return(0); /* Pass interrupt on down the chain */
|
|
}
|
|
|
|
|
|
/* Load transfer address into dma register */
|
|
|
|
void
|
|
cosc_set_dma_adr(sc, ptr)
|
|
struct esc_softc *sc;
|
|
void *ptr;
|
|
{
|
|
printf("cosc_set_dma_adr(sc = 0x%08x, ptr = 0x%08x)\n", (u_int)sc, (u_int)ptr);
|
|
return;
|
|
}
|
|
|
|
|
|
/* Set DMA transfer counter */
|
|
|
|
void
|
|
cosc_set_dma_tc(sc, len)
|
|
struct esc_softc *sc;
|
|
unsigned int len;
|
|
{
|
|
printf("cosc_set_dma_tc(sc, len = 0x%08x)", len);
|
|
|
|
/* Set the transfer size on the SCSI controller */
|
|
|
|
*sc->sc_esc->esc_tc_low = len; len >>= 8;
|
|
*sc->sc_esc->esc_tc_mid = len; len >>= 8;
|
|
*sc->sc_esc->esc_tc_high = len;
|
|
}
|
|
|
|
|
|
/* Set DMA mode */
|
|
|
|
void
|
|
cosc_set_dma_mode(sc, mode)
|
|
struct esc_softc *sc;
|
|
int mode;
|
|
{
|
|
printf("cosc_set_dma_mode(sc, mode = %d)", mode);
|
|
}
|
|
|
|
|
|
/* Initialize DMA for transfer */
|
|
|
|
int
|
|
cosc_setup_dma(sc, ptr, len, mode)
|
|
struct esc_softc *sc;
|
|
void *ptr;
|
|
int len;
|
|
int mode;
|
|
{
|
|
/* printf("cosc_setup_dma(sc, ptr = 0x%08x, len = 0x%08x, mode = 0x%08x)\n", (u_int)ptr, len, mode);*/
|
|
return(0);
|
|
|
|
}
|
|
|
|
|
|
/* Check if address and len is ok for DMA transfer */
|
|
|
|
int
|
|
cosc_need_bump(sc, ptr, len)
|
|
struct esc_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
|
|
cosc_build_dma_chain(sc, chain, p, l)
|
|
struct esc_softc *sc;
|
|
struct esc_dma_chain *chain;
|
|
void *p;
|
|
int l;
|
|
{
|
|
printf("cosc_build_dma_chain()\n");
|
|
return(0);
|
|
}
|
|
|
|
|
|
int
|
|
cosc_scsicmd(xs)
|
|
struct scsi_xfer *xs;
|
|
{
|
|
/* struct scsi_link *sc_link = xs->sc_link;*/
|
|
|
|
#if COSC_POLL > 0
|
|
if (cosc_poll)
|
|
xs->flags |= SCSI_POLL;
|
|
#endif
|
|
#if 0
|
|
if (sc_link->lun == 0)
|
|
printf("id=%d lun=%d cmdlen=%d datalen=%d opcode=%02x flags=%08x status=%02x blk=%02x %02x\n",
|
|
sc_link->target, sc_link->lun, xs->cmdlen, xs->datalen, xs->cmd->opcode,
|
|
xs->flags, xs->status, xs->cmd->bytes[0], xs->cmd->bytes[1]);
|
|
#endif
|
|
return(esc_scsicmd(xs));
|
|
}
|