693 lines
17 KiB
C
693 lines
17 KiB
C
/* $NetBSD: sci.c,v 1.33 2005/11/26 13:54:18 tsutsui Exp $ */
|
|
|
|
/*
|
|
* Copyright (c) 1990 The Regents of the University of California.
|
|
* All rights reserved.
|
|
*
|
|
* This code is derived from software contributed to Berkeley by
|
|
* Van Jacobson of Lawrence Berkeley Laboratory.
|
|
*
|
|
* 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. 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.
|
|
*
|
|
* @(#)scsi.c 7.5 (Berkeley) 5/4/91
|
|
*/
|
|
|
|
/*
|
|
* Copyright (c) 1994 Michael L. Hitch
|
|
*
|
|
* This code is derived from software contributed to Berkeley by
|
|
* Van Jacobson of Lawrence Berkeley Laboratory.
|
|
*
|
|
* 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.
|
|
*
|
|
* 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.
|
|
*
|
|
* @(#)scsi.c 7.5 (Berkeley) 5/4/91
|
|
*/
|
|
|
|
/*
|
|
* AMIGA NCR 5380 scsi adaptor driver
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
__KERNEL_RCSID(0, "$NetBSD: sci.c,v 1.33 2005/11/26 13:54:18 tsutsui Exp $");
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/device.h>
|
|
#include <sys/disklabel.h>
|
|
#include <sys/buf.h>
|
|
#include <dev/scsipi/scsi_all.h>
|
|
#include <dev/scsipi/scsipi_all.h>
|
|
#include <dev/scsipi/scsiconf.h>
|
|
#include <uvm/uvm_extern.h>
|
|
#include <machine/pmap.h>
|
|
#include <machine/cpu.h>
|
|
#include <amiga/amiga/device.h>
|
|
#include <amiga/amiga/custom.h>
|
|
#include <amiga/amiga/isr.h>
|
|
#include <amiga/dev/scireg.h>
|
|
#include <amiga/dev/scivar.h>
|
|
|
|
/*
|
|
* SCSI delays
|
|
* In u-seconds, primarily for state changes on the SPC.
|
|
*/
|
|
#define SCI_CMD_WAIT 50000 /* wait per step of 'immediate' cmds */
|
|
#define SCI_DATA_WAIT 50000 /* wait per data in/out step */
|
|
#define SCI_INIT_WAIT 50000 /* wait per step (both) during init */
|
|
|
|
int sciicmd(struct sci_softc *, int, void *, int, void *, int,u_char);
|
|
int scigo(struct sci_softc *, struct scsipi_xfer *);
|
|
int sciselectbus(struct sci_softc *, u_char, u_char);
|
|
void sciabort(struct sci_softc *, const char *);
|
|
void scierror(struct sci_softc *, u_char);
|
|
void scisetdelay(int);
|
|
void sci_scsidone(struct sci_softc *, int);
|
|
void sci_donextcmd(struct sci_softc *);
|
|
int sci_ixfer_out(struct sci_softc *, int, register u_char *, int);
|
|
void sci_ixfer_in(struct sci_softc *, int, register u_char *, int);
|
|
|
|
int sci_cmd_wait = SCI_CMD_WAIT;
|
|
int sci_data_wait = SCI_DATA_WAIT;
|
|
int sci_init_wait = SCI_INIT_WAIT;
|
|
|
|
int sci_no_dma = 0;
|
|
|
|
#ifdef DEBUG
|
|
#define QPRINTF(a) if (sci_debug > 1) printf a
|
|
int sci_debug = 0;
|
|
#else
|
|
#define QPRINTF(a)
|
|
#endif
|
|
|
|
/*
|
|
* default minphys routine for sci based controllers
|
|
*/
|
|
void
|
|
sci_minphys(struct buf *bp)
|
|
{
|
|
|
|
/*
|
|
* No max transfer at this level.
|
|
*/
|
|
minphys(bp);
|
|
}
|
|
|
|
/*
|
|
* used by specific sci controller
|
|
*
|
|
* it appears that the higher level code does nothing with LUN's
|
|
* so I will too. I could plug it in, however so could they
|
|
* in scsi_scsipi_cmd().
|
|
*/
|
|
void
|
|
sci_scsipi_request(struct scsipi_channel *chan, scsipi_adapter_req_t req,
|
|
void *arg)
|
|
{
|
|
struct scsipi_xfer *xs;
|
|
struct scsipi_periph *periph;
|
|
struct sci_softc *dev = (void *)chan->chan_adapter->adapt_dev;
|
|
int flags, s;
|
|
|
|
switch (req) {
|
|
case ADAPTER_REQ_RUN_XFER:
|
|
xs = arg;
|
|
periph = xs->xs_periph;
|
|
flags = xs->xs_control;
|
|
|
|
if (flags & XS_CTL_DATA_UIO)
|
|
panic("sci: scsi data uio requested");
|
|
|
|
s = splbio();
|
|
|
|
if (dev->sc_xs && flags & XS_CTL_POLL)
|
|
panic("sci_scsicmd: busy");
|
|
|
|
#ifdef DIAGNOSTIC
|
|
/*
|
|
* This should never happen as we track the resources
|
|
* in the mid-layer.
|
|
*/
|
|
if (dev->sc_xs) {
|
|
scsipi_printaddr(periph);
|
|
printf("unable to allocate scb\n");
|
|
panic("sea_scsipi_request");
|
|
}
|
|
#endif
|
|
|
|
dev->sc_xs = xs;
|
|
splx(s);
|
|
|
|
/*
|
|
* nothing is pending do it now.
|
|
*/
|
|
sci_donextcmd(dev);
|
|
|
|
return;
|
|
|
|
case ADAPTER_REQ_GROW_RESOURCES:
|
|
return;
|
|
|
|
case ADAPTER_REQ_SET_XFER_MODE:
|
|
return;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* entered with dev->sc_xs pointing to the next xfer to perform
|
|
*/
|
|
void
|
|
sci_donextcmd(struct sci_softc *dev)
|
|
{
|
|
struct scsipi_xfer *xs;
|
|
struct scsipi_periph *periph;
|
|
int flags, phase, stat;
|
|
|
|
xs = dev->sc_xs;
|
|
periph = xs->xs_periph;
|
|
flags = xs->xs_control;
|
|
|
|
if (flags & XS_CTL_DATA_IN)
|
|
phase = DATA_IN_PHASE;
|
|
else if (flags & XS_CTL_DATA_OUT)
|
|
phase = DATA_OUT_PHASE;
|
|
else
|
|
phase = STATUS_PHASE;
|
|
|
|
if (flags & XS_CTL_RESET)
|
|
scireset(dev);
|
|
|
|
dev->sc_stat[0] = -1;
|
|
xs->cmd->bytes[0] |= periph->periph_lun << 5;
|
|
if (phase == STATUS_PHASE || flags & XS_CTL_POLL)
|
|
stat = sciicmd(dev, periph->periph_target, xs->cmd, xs->cmdlen,
|
|
xs->data, xs->datalen, phase);
|
|
else if (scigo(dev, xs) == 0)
|
|
return;
|
|
else
|
|
stat = dev->sc_stat[0];
|
|
|
|
sci_scsidone(dev, stat);
|
|
}
|
|
|
|
void
|
|
sci_scsidone(struct sci_softc *dev, int stat)
|
|
{
|
|
struct scsipi_xfer *xs;
|
|
|
|
xs = dev->sc_xs;
|
|
#ifdef DIAGNOSTIC
|
|
if (xs == NULL)
|
|
panic("sci_scsidone");
|
|
#endif
|
|
xs->status = stat;
|
|
if (stat == 0)
|
|
xs->resid = 0;
|
|
else {
|
|
switch(stat) {
|
|
case SCSI_CHECK:
|
|
xs->resid = 0;
|
|
/* FALLTHROUGH */
|
|
case SCSI_BUSY:
|
|
xs->error = XS_BUSY;
|
|
break;
|
|
default:
|
|
xs->error = XS_DRIVER_STUFFUP;
|
|
QPRINTF(("sci_scsicmd() bad %x\n", stat));
|
|
break;
|
|
}
|
|
}
|
|
|
|
scsipi_done(xs);
|
|
|
|
}
|
|
|
|
void
|
|
sciabort(struct sci_softc *dev, const char *where)
|
|
{
|
|
printf ("%s: abort %s: csr = 0x%02x, bus = 0x%02x\n",
|
|
dev->sc_dev.dv_xname, where, *dev->sci_csr, *dev->sci_bus_csr);
|
|
|
|
if (dev->sc_flags & SCI_SELECTED) {
|
|
|
|
/* lets just hope it worked.. */
|
|
dev->sc_flags &= ~SCI_SELECTED;
|
|
/* XXX */
|
|
scireset (dev);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* XXX Set/reset long delays.
|
|
*
|
|
* if delay == 0, reset default delays
|
|
* if delay < 0, set both delays to default long initialization values
|
|
* if delay > 0, set both delays to this value
|
|
*
|
|
* Used when a devices is expected to respond slowly (e.g. during
|
|
* initialization).
|
|
*/
|
|
void
|
|
scisetdelay(int del)
|
|
{
|
|
static int saved_cmd_wait, saved_data_wait;
|
|
|
|
if (del) {
|
|
saved_cmd_wait = sci_cmd_wait;
|
|
saved_data_wait = sci_data_wait;
|
|
if (del > 0)
|
|
sci_cmd_wait = sci_data_wait = del;
|
|
else
|
|
sci_cmd_wait = sci_data_wait = sci_init_wait;
|
|
} else {
|
|
sci_cmd_wait = saved_cmd_wait;
|
|
sci_data_wait = saved_data_wait;
|
|
}
|
|
}
|
|
|
|
void
|
|
scireset(struct sci_softc *dev)
|
|
{
|
|
u_int s;
|
|
u_char my_id;
|
|
|
|
dev->sc_flags &= ~SCI_SELECTED;
|
|
if (dev->sc_flags & SCI_ALIVE)
|
|
sciabort(dev, "reset");
|
|
|
|
printf("%s: ", dev->sc_dev.dv_xname);
|
|
|
|
s = splbio();
|
|
/* preserve our ID for now */
|
|
my_id = 7;
|
|
|
|
/*
|
|
* Reset the chip
|
|
*/
|
|
*dev->sci_icmd = SCI_ICMD_TEST;
|
|
*dev->sci_icmd = SCI_ICMD_TEST | SCI_ICMD_RST;
|
|
delay (25);
|
|
*dev->sci_icmd = 0;
|
|
|
|
/*
|
|
* Set up various chip parameters
|
|
*/
|
|
*dev->sci_icmd = 0;
|
|
*dev->sci_tcmd = 0;
|
|
*dev->sci_sel_enb = 0;
|
|
|
|
/* anything else was zeroed by reset */
|
|
|
|
splx (s);
|
|
|
|
printf("sci id %d\n", my_id);
|
|
dev->sc_flags |= SCI_ALIVE;
|
|
}
|
|
|
|
void
|
|
scierror(struct sci_softc *dev, u_char csr)
|
|
{
|
|
struct scsipi_xfer *xs;
|
|
|
|
xs = dev->sc_xs;
|
|
|
|
#ifdef DIAGNOSTIC
|
|
if (xs == NULL)
|
|
panic("scierror");
|
|
#endif
|
|
if (xs->xs_control & XS_CTL_SILENT)
|
|
return;
|
|
|
|
printf("%s: ", dev->sc_dev.dv_xname);
|
|
printf("csr == 0x%02i\n", csr); /* XXX */
|
|
}
|
|
|
|
/*
|
|
* select the bus, return when selected or error.
|
|
*/
|
|
int
|
|
sciselectbus(struct sci_softc *dev, u_char target, u_char our_addr)
|
|
{
|
|
register int timeo = 2500;
|
|
|
|
QPRINTF (("sciselectbus %d\n", target));
|
|
|
|
/* if we're already selected, return */
|
|
if (dev->sc_flags & SCI_SELECTED) /* XXXX */
|
|
return 1;
|
|
|
|
if ((*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)) &&
|
|
(*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)) &&
|
|
(*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)))
|
|
return 1;
|
|
|
|
*dev->sci_tcmd = 0;
|
|
*dev->sci_odata = 0x80 + (1 << target);
|
|
*dev->sci_icmd = SCI_ICMD_DATA|SCI_ICMD_SEL;
|
|
while ((*dev->sci_bus_csr & SCI_BUS_BSY) == 0) {
|
|
if (--timeo > 0) {
|
|
delay(100);
|
|
} else {
|
|
break;
|
|
}
|
|
}
|
|
if (timeo) {
|
|
*dev->sci_icmd = 0;
|
|
dev->sc_flags |= SCI_SELECTED;
|
|
return (0);
|
|
}
|
|
*dev->sci_icmd = 0;
|
|
return (1);
|
|
}
|
|
|
|
int
|
|
sci_ixfer_out(register struct sci_softc *dev, int len, register u_char *buf,
|
|
int phase)
|
|
{
|
|
register int wait = sci_data_wait;
|
|
u_char csr;
|
|
|
|
QPRINTF(("sci_ixfer_out {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
|
|
len, buf[0], buf[1], buf[2], buf[3], buf[4], buf[5],
|
|
buf[6], buf[7], buf[8], buf[9]));
|
|
|
|
*dev->sci_tcmd = phase;
|
|
*dev->sci_icmd = SCI_ICMD_DATA;
|
|
for (;len > 0; len--) {
|
|
csr = *dev->sci_bus_csr;
|
|
while (!(csr & SCI_BUS_REQ)) {
|
|
if ((csr & SCI_BUS_BSY) == 0 || --wait < 0) {
|
|
#ifdef DEBUG
|
|
if (sci_debug)
|
|
printf("sci_ixfer_out fail: l%d i%x w%d\n",
|
|
len, csr, wait);
|
|
#endif
|
|
return (len);
|
|
}
|
|
delay(1);
|
|
csr = *dev->sci_bus_csr;
|
|
}
|
|
|
|
if (!(*dev->sci_csr & SCI_CSR_PHASE_MATCH))
|
|
break;
|
|
*dev->sci_odata = *buf;
|
|
*dev->sci_icmd = SCI_ICMD_DATA|SCI_ICMD_ACK;
|
|
buf++;
|
|
while (*dev->sci_bus_csr & SCI_BUS_REQ);
|
|
*dev->sci_icmd = SCI_ICMD_DATA;
|
|
}
|
|
|
|
QPRINTF(("sci_ixfer_out done\n"));
|
|
return (0);
|
|
}
|
|
|
|
void
|
|
sci_ixfer_in(struct sci_softc *dev, int len, register u_char *buf, int phase)
|
|
{
|
|
int wait = sci_data_wait;
|
|
u_char csr;
|
|
volatile register u_char *sci_bus_csr = dev->sci_bus_csr;
|
|
volatile register u_char *sci_data = dev->sci_data;
|
|
volatile register u_char *sci_icmd = dev->sci_icmd;
|
|
#ifdef DEBUG
|
|
u_char *obp = buf;
|
|
#endif
|
|
|
|
csr = *sci_bus_csr;
|
|
|
|
QPRINTF(("sci_ixfer_in %d, csr=%02x\n", len, csr));
|
|
|
|
*dev->sci_tcmd = phase;
|
|
*sci_icmd = 0;
|
|
for (;len > 0; len--) {
|
|
csr = *sci_bus_csr;
|
|
while (!(csr & SCI_BUS_REQ)) {
|
|
if (!(csr & SCI_BUS_BSY) || --wait < 0) {
|
|
#ifdef DEBUG
|
|
if (sci_debug)
|
|
printf("sci_ixfer_in fail: l%d i%x w%d\n",
|
|
len, csr, wait);
|
|
#endif
|
|
return;
|
|
}
|
|
|
|
delay(1);
|
|
csr = *sci_bus_csr;
|
|
}
|
|
|
|
if (!(*dev->sci_csr & SCI_CSR_PHASE_MATCH))
|
|
break;
|
|
*buf = *sci_data;
|
|
*sci_icmd = SCI_ICMD_ACK;
|
|
buf++;
|
|
while (*sci_bus_csr & SCI_BUS_REQ);
|
|
*sci_icmd = 0;
|
|
}
|
|
|
|
QPRINTF(("sci_ixfer_in {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
|
|
len, obp[0], obp[1], obp[2], obp[3], obp[4], obp[5],
|
|
obp[6], obp[7], obp[8], obp[9]));
|
|
}
|
|
|
|
/*
|
|
* SCSI 'immediate' command: issue a command to some SCSI device
|
|
* and get back an 'immediate' response (i.e., do programmed xfer
|
|
* to get the response data). 'cbuf' is a buffer containing a scsi
|
|
* command of length clen bytes. 'buf' is a buffer of length 'len'
|
|
* bytes for data. The transfer direction is determined by the device
|
|
* (i.e., by the scsi bus data xfer phase). If 'len' is zero, the
|
|
* command must supply no data. 'xferphase' is the bus phase the
|
|
* caller expects to happen after the command is issued. It should
|
|
* be one of DATA_IN_PHASE, DATA_OUT_PHASE or STATUS_PHASE.
|
|
*/
|
|
int
|
|
sciicmd(struct sci_softc *dev, int target, void *cbuf, int clen, void *buf,
|
|
int len, u_char xferphase)
|
|
{
|
|
u_char phase;
|
|
register int wait;
|
|
|
|
/* select the SCSI bus (it's an error if bus isn't free) */
|
|
if (sciselectbus (dev, target, dev->sc_scsi_addr))
|
|
return -1;
|
|
/*
|
|
* Wait for a phase change (or error) then let the device
|
|
* sequence us through the various SCSI phases.
|
|
*/
|
|
dev->sc_stat[0] = 0xff;
|
|
dev->sc_msg[0] = 0xff;
|
|
phase = CMD_PHASE;
|
|
while (1) {
|
|
wait = sci_cmd_wait;
|
|
|
|
while ((*dev->sci_bus_csr & (SCI_BUS_REQ|SCI_BUS_BSY)) == SCI_BUS_BSY);
|
|
|
|
QPRINTF((">CSR:%02x<", *dev->sci_bus_csr));
|
|
if ((*dev->sci_bus_csr & SCI_BUS_REQ) == 0) {
|
|
return -1;
|
|
}
|
|
phase = SCI_PHASE(*dev->sci_bus_csr);
|
|
|
|
switch (phase) {
|
|
case CMD_PHASE:
|
|
if (sci_ixfer_out (dev, clen, cbuf, phase))
|
|
goto abort;
|
|
phase = xferphase;
|
|
break;
|
|
|
|
case DATA_IN_PHASE:
|
|
if (len <= 0)
|
|
goto abort;
|
|
wait = sci_data_wait;
|
|
sci_ixfer_in (dev, len, buf, phase);
|
|
phase = STATUS_PHASE;
|
|
break;
|
|
|
|
case DATA_OUT_PHASE:
|
|
if (len <= 0)
|
|
goto abort;
|
|
wait = sci_data_wait;
|
|
if (sci_ixfer_out (dev, len, buf, phase))
|
|
goto abort;
|
|
phase = STATUS_PHASE;
|
|
break;
|
|
|
|
case MESG_IN_PHASE:
|
|
dev->sc_msg[0] = 0xff;
|
|
sci_ixfer_in (dev, 1, dev->sc_msg,phase);
|
|
dev->sc_flags &= ~SCI_SELECTED;
|
|
while (*dev->sci_bus_csr & SCI_BUS_BSY);
|
|
goto out;
|
|
break;
|
|
|
|
case MESG_OUT_PHASE:
|
|
phase = STATUS_PHASE;
|
|
break;
|
|
|
|
case STATUS_PHASE:
|
|
sci_ixfer_in (dev, 1, dev->sc_stat, phase);
|
|
phase = MESG_IN_PHASE;
|
|
break;
|
|
|
|
case BUS_FREE_PHASE:
|
|
goto out;
|
|
|
|
default:
|
|
printf("sci: unexpected phase %d in icmd from %d\n",
|
|
phase, target);
|
|
goto abort;
|
|
}
|
|
#if 0
|
|
if (wait <= 0)
|
|
goto abort;
|
|
#endif
|
|
}
|
|
|
|
abort:
|
|
sciabort(dev, "icmd");
|
|
out:
|
|
QPRINTF(("=STS:%02x=", dev->sc_stat[0]));
|
|
return (dev->sc_stat[0]);
|
|
}
|
|
|
|
int
|
|
scigo(struct sci_softc *dev, struct scsipi_xfer *xs)
|
|
{
|
|
int count, target;
|
|
u_char phase, *addr;
|
|
|
|
target = xs->xs_periph->periph_target;
|
|
count = xs->datalen;
|
|
addr = xs->data;
|
|
|
|
if (sci_no_dma) {
|
|
sciicmd (dev, target, (u_char *) xs->cmd, xs->cmdlen,
|
|
addr, count,
|
|
xs->xs_control & XS_CTL_DATA_IN ? DATA_IN_PHASE : DATA_OUT_PHASE);
|
|
|
|
return (1);
|
|
}
|
|
|
|
/* select the SCSI bus (it's an error if bus isn't free) */
|
|
if (sciselectbus (dev, target, dev->sc_scsi_addr))
|
|
return -1;
|
|
/*
|
|
* Wait for a phase change (or error) then let the device
|
|
* sequence us through the various SCSI phases.
|
|
*/
|
|
dev->sc_stat[0] = 0xff;
|
|
dev->sc_msg[0] = 0xff;
|
|
phase = CMD_PHASE;
|
|
while (1) {
|
|
while ((*dev->sci_bus_csr & (SCI_BUS_REQ|SCI_BUS_BSY)) ==
|
|
SCI_BUS_BSY);
|
|
|
|
QPRINTF((">CSR:%02x<", *dev->sci_bus_csr));
|
|
if ((*dev->sci_bus_csr & SCI_BUS_REQ) == 0) {
|
|
goto abort;
|
|
}
|
|
phase = SCI_PHASE(*dev->sci_bus_csr);
|
|
|
|
switch (phase) {
|
|
case CMD_PHASE:
|
|
if (sci_ixfer_out (dev, xs->cmdlen, (u_char *) xs->cmd, phase))
|
|
goto abort;
|
|
phase = xs->xs_control & XS_CTL_DATA_IN ? DATA_IN_PHASE : DATA_OUT_PHASE;
|
|
break;
|
|
|
|
case DATA_IN_PHASE:
|
|
if (count <= 0)
|
|
goto abort;
|
|
/* XXX use psuedo DMA if available */
|
|
if (count >= 128 && dev->dma_xfer_in)
|
|
(*dev->dma_xfer_in)(dev, count, addr, phase);
|
|
else
|
|
sci_ixfer_in (dev, count, addr, phase);
|
|
phase = STATUS_PHASE;
|
|
break;
|
|
|
|
case DATA_OUT_PHASE:
|
|
if (count <= 0)
|
|
goto abort;
|
|
/* XXX use psuedo DMA if available */
|
|
if (count >= 128 && dev->dma_xfer_out)
|
|
(*dev->dma_xfer_out)(dev, count, addr, phase);
|
|
else
|
|
if (sci_ixfer_out (dev, count, addr, phase))
|
|
goto abort;
|
|
phase = STATUS_PHASE;
|
|
break;
|
|
|
|
case MESG_IN_PHASE:
|
|
dev->sc_msg[0] = 0xff;
|
|
sci_ixfer_in (dev, 1, dev->sc_msg,phase);
|
|
dev->sc_flags &= ~SCI_SELECTED;
|
|
while (*dev->sci_bus_csr & SCI_BUS_BSY);
|
|
goto out;
|
|
break;
|
|
|
|
case MESG_OUT_PHASE:
|
|
phase = STATUS_PHASE;
|
|
break;
|
|
|
|
case STATUS_PHASE:
|
|
sci_ixfer_in (dev, 1, dev->sc_stat, phase);
|
|
phase = MESG_IN_PHASE;
|
|
break;
|
|
|
|
case BUS_FREE_PHASE:
|
|
goto out;
|
|
|
|
default:
|
|
printf("sci: unexpected phase %d in icmd from %d\n",
|
|
phase, target);
|
|
goto abort;
|
|
}
|
|
}
|
|
|
|
abort:
|
|
sciabort(dev, "go");
|
|
out:
|
|
QPRINTF(("=STS:%02x=", dev->sc_stat[0]));
|
|
return (1);
|
|
}
|