NetBSD/sys/arch/atari/dev/ncr5380.c

1943 lines
45 KiB
C

/* $NetBSD: ncr5380.c,v 1.2 1995/04/28 11:33:01 leo Exp $ */
/*
* Copyright (c) 1995 Leo Weppelman.
* 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 Leo Weppelman.
* 4. 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 ``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.
*/
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/device.h>
#include <sys/buf.h>
#include <scsi/scsi_all.h>
#include <scsi/scsi_message.h>
#include <scsi/scsiconf.h>
#include <machine/iomap.h>
#include <machine/mfp.h>
#include <atari/dev/ncr5380reg.h>
/*
* This is crap, but because the interrupts now run at MFP spl-level (6),
* splbio() is not enough at some places. The code should be checked to
* find out where splhigh() is needed and where splbio() should be used.
* Now that I use this interrupt sceme, the spl values are fake!
*/
#undef splbio()
#define splbio() splhigh()
/*
* SCSI completion status codes, should move to sys/scsi/????
*/
#define SCSMASK 0x1e /* status code mask */
#define SCSGOOD 0x00 /* good status */
#define SCSCHKC 0x02 /* check condition */
#define SCSBUSY 0x08 /* busy status */
#define SCSCMET 0x04 /* condition met / good */
/********************************************************************/
#define NREQ 18 /* Size of issue queue */
#define AUTO_SENSE 1 /* Automatically issue a request-sense */
#undef DBG_SEL /* Show the selection process */
#undef DBG_REQ /* Show enqueued/ready requests */
#undef DBG_NOWRITE /* Do not allow writes to the targets */
#undef DBG_PIO /* Show the polled-I/O process */
#undef DBG_INF /* Show information transfer process */
#undef DBG_NOSTATIC /* No static functions, all in DDB trace*/
#define DBG_PID /* Keep track of driver */
#define REAL_DMA /* Use DMA if sensible */
#define REAL_DMA_POLL 0 /* 1: Poll for end of DMA-transfer */
#undef NO_TTRAM_DMA /* Do not use DMA to TT-ram. This */
/* fails on older atari's */
#ifdef DBG_NOSTATIC
# define static
#endif
#ifdef DBG_SEL
# define DBG_SELPRINT(a,b) printf(a,b)
#else
# define DBG_SELPRINT(a,b)
#endif
#ifdef DBG_PIO
# define DBG_PIOPRINT(a,b,c) printf(a,b,c)
#else
# define DBG_PIOPRINT(a,b,c)
#endif
#ifdef DBG_INF
# define DBG_INFPRINT(a,b,c) a(b,c)
#else
# define DBG_INFPRINT(a,b,c)
#endif
#ifdef DBG_PID
static char *last_hit = NULL;
# define PID(a) last_hit = a
#else
# define PID(a)
#endif
#ifdef NO_TTRAM_DMA
int no_ttram_dma = 1;
#else
int no_ttram_dma = 0;
#endif
/*
* Return values of check_intr()
*/
#define INTR_SPURIOUS 0
#define INTR_RESEL 2
#define INTR_DMA 3
/*
* Set bit for target when parity checking must be disabled.
* My (LWP) Maxtor 7245S seems to generate parity errors on about 50%
* of all transfers while the data is correct!?
*/
u_char ncr5380_no_parchk = 0;
/*
* This is the default sense-command we send.
*/
static u_char sense_cmd[] = {
REQUEST_SENSE, 0, 0, 0, sizeof(struct scsi_sense), 0
};
/*
* True if the main co-routine is running
*/
static volatile int main_running = 0;
/*
* True if callback to softint scheduled.
*/
static volatile int callback_scheduled = 0;
/*
* Mask of targets selected
*/
u_char busy;
struct ncr_softc {
struct device sc_dev;
struct scsi_link sc_link;
};
static void ncr5380_minphys(struct buf *bp);
static int ncr5380_scsi_cmd(struct scsi_xfer *xs);
static int ncr5380_show_scsi_cmd(struct scsi_xfer *xs);
struct scsi_adapter ncr5380_switch = {
ncr5380_scsi_cmd, /* scsi_cmd() */
ncr5380_minphys, /* scsi_minphys() */
0, /* open_target_lu() */
0 /* close_target_lu() */
};
struct scsi_device ncr5380_dev = {
NULL, /* use default error handler */
NULL, /* do not have a start functio */
NULL, /* have no async handler */
NULL /* Use default done routine */
};
/*
* Max. number of dma-chains per request
*/
#define MAXDMAIO (MAXPHYS/NBPG + 1)
/*
* Some requests are not contiguous in physical memory. We need to break them
* up into contiguous parts for DMA.
*/
struct dma_chain {
u_int dm_count;
u_long dm_addr;
};
/*
* Define our issue, free and disconnect queue's.
*/
typedef struct req_q {
struct req_q *next; /* next in free, issue or discon queue */
struct req_q *link; /* next linked command to execute */
struct scsi_xfer *xs; /* request from high-level driver */
u_char dr_flag; /* driver state */
u_char phase; /* current SCSI phase */
u_char msgout; /* message to send when requested */
u_char targ_id; /* target for command */
u_char status; /* returned status byte */
u_char message; /* returned message byte */
struct dma_chain dm_chain[MAXDMAIO];
struct dma_chain *dm_cur; /* current dma-request */
struct dma_chain *dm_last; /* last dma-request */
long xdata_len; /* length of transfer */
u_char *xdata_ptr; /* physical address of transfer */
struct scsi_generic xcmd; /* command to execute */
} SC_REQ;
/*
* Values for dr_flag:
*/
#define DRIVER_IN_DMA 1 /* Non-polled DMA activated */
#define DRIVER_AUTOSEN 2 /* Doing automatic sense */
#define DRIVER_NOINT 4 /* We are booting: no interrupts */
#define DRIVER_DMAOK 8 /* DMA can be used on this request */
static SC_REQ req_queue[NREQ];
static SC_REQ *free_head = NULL; /* Free request structures */
static SC_REQ *issue_q = NULL; /* Commands waiting to be issued*/
static SC_REQ *discon_q = NULL; /* Commands disconnected */
static SC_REQ *connected = NULL; /* Command currently connected */
/*
* Function decls:
*/
static int transfer_pio __P((u_char *, u_char *, u_long *));
static int wait_req_true __P((void));
static int wait_req_false __P((void));
static int scsi_select __P((SC_REQ *, int));
static int handle_message __P((SC_REQ *, u_int));
static int information_transfer __P((void));
static void reselect __P((void));
static int dma_ready __P((int, int));
static void transfer_dma __P((SC_REQ *, u_int, int));
static int check_autosense __P((SC_REQ *, int));
static int reach_msg_out __P((u_long));
static void timer __P((void));
static int check_intr __P((void));
static void scsi_reset __P((void));
static void scsi_main __P((void));
static int scsi_dmaok __P((SC_REQ *));
static void run_main __P((void));
static void show_request __P((SC_REQ *, char *));
static void show_phase __P((SC_REQ *, int));
static void show_signals __P((void));
/*
* Inline functions:
*/
extern __inline__ void scsi_ienable()
{
MFP2->mf_ierb |= IB_SCDM;
MFP2->mf_iera |= IA_SCSI;
MFP2->mf_imra |= IA_SCSI;
}
extern __inline__ scsi_idisable()
{
int sps = splbio();
MFP2->mf_ierb &= ~IB_SCDM;
MFP2->mf_iera &= ~IA_SCSI;
splx(sps);
}
/*
* Determine the size of a SCSI command.
*/
extern __inline__ int command_size(opcode)
u_char opcode;
{
switch((opcode >> 4) & 0xf) {
case 0:
case 1:
return(6);
case 2:
case 3:
return(10);
}
return(12);
}
/*
* Wait for request-line to become active. When it doesn't return 0.
* Otherwise return != 0.
* The timeouts in the 'wait_req_*' functions are arbitrary and rather
* large. In 99% of the invocations nearly no timeout is needed but in
* some cases (especially when using my tapedrive, a Tandberg 3600) the
* device is busy internally and the first SCSI-phase will be delayed.
*/
extern __inline__ int wait_req_true(void)
{
int timeout = 25000;
while(!(SCSI_5380->scsi_idstat & SC_S_REQ) && --timeout)
delay(1);
return(SCSI_5380->scsi_idstat & SC_S_REQ);
}
/*
* Wait for request-line to become inactive. When it doesn't return 0.
* Otherwise return != 0.
*/
extern __inline__ int wait_req_false(void)
{
int timeout = 25000;
while((SCSI_5380->scsi_idstat & SC_S_REQ) && --timeout)
delay(1);
return(!(SCSI_5380->scsi_idstat & SC_S_REQ));
}
extern __inline__ void finish_req(SC_REQ *reqp)
{
int sps;
struct scsi_xfer *xs = reqp->xs;
/*
* Return request to free-q
*/
sps = splbio();
reqp->next = free_head;
free_head = reqp;
splx(sps);
xs->flags |= ITSDONE;
scsi_done(xs);
}
/*
* Auto config stuff....
*/
int ncr_print __P((void *auxp, char *));
void ncr_attach __P((struct device *, struct device *, void *));
int ncr_match __P((struct device *, struct cfdata *, void *));
struct cfdriver ncrscsicd = {
NULL, "ncrscsi", (cfmatch_t)ncr_match, ncr_attach,
DV_DULL, sizeof(struct ncr_softc), NULL, 0 };
int
ncr_match(pdp, cdp, auxp)
struct device *pdp;
struct cfdata *cdp;
void *auxp;
{
if(strcmp(auxp, ncrscsicd.cd_name))
return(0);
if(cdp->cf_unit != 0) /* Only one unit */
return(0);
return(1);
}
void
ncr_attach(pdp, dp, auxp)
struct device *pdp, *dp;
void *auxp;
{
struct ncr_softc *sc;
int i;
sc = (struct ncr_softc *)dp;
sc->sc_link.adapter_softc = sc;
sc->sc_link.adapter_target = 7;
sc->sc_link.adapter = &ncr5380_switch;
sc->sc_link.device = &ncr5380_dev;
sc->sc_link.openings = NREQ - 1;
/*
* Enable SCSI-related interrupts
*/
MFP2->mf_aer |= 0x80; /* SCSI IRQ goes HIGH!!!!! */
MFP2->mf_ierb |= IB_SCDM; /* SCSI-dma interrupts */
MFP2->mf_iprb &= ~IB_SCDM;
MFP2->mf_imrb |= IB_SCDM;
MFP2->mf_iera |= IA_SCSI; /* SCSI-5380 interrupts */
MFP2->mf_ipra &= ~IA_SCSI;
MFP2->mf_imra |= IA_SCSI;
/*
* Initialize request queue freelist.
*/
for(i = 0; i < NREQ; i++) {
req_queue[i].next = free_head;
free_head = &req_queue[i];
}
/*
* Initialize the host adapter
*/
scsi_idisable();
SCSI_5380->scsi_icom = 0;
SCSI_5380->scsi_mode = IMODE_BASE;
SCSI_5380->scsi_tcom = 0;
SCSI_5380->scsi_idstat = 0;
printf("\n");
if(no_ttram_dma)
printf("DMA to TT-RAM is disabled!\n");
/*
* attach all scsi units on us
*/
config_found(dp, &sc->sc_link, ncr_print);
}
/*
* print diag if name is NULL else just extra
*/
int
ncr_print(auxp, name)
void *auxp;
char *name;
{
if(name == NULL)
return(UNCONF);
return(QUIET);
}
/*
* End of auto config stuff....
*/
/*
* Carry out a request from the high level driver.
*/
static int
ncr5380_scsi_cmd(struct scsi_xfer *xs)
{
int sps;
SC_REQ *reqp;
int flags = xs->flags;
/*
* Sanity check on flags...
*/
if(flags & ITSDONE) {
printf("ncr5380_scsi_cmd: command already done.....\n");
xs->flags &= ~ITSDONE;
}
if(!(flags & INUSE)) {
printf("ncr5380_scsi_cmd: command not in use.....\n");
xs->flags |= ~INUSE;
}
/*
* LWP: No lun support yet XXX
*/
if(xs->sc_link->lun != 0) {
xs->error = XS_DRIVER_STUFFUP; /* XXX */
return(COMPLETE);
}
/*
* We do not queue RESET commands
*/
if(flags & SCSI_RESET) {
scsi_reset();
return(COMPLETE);
}
/*
* Get a request block
*/
sps = splbio();
if((reqp = free_head) == 0) {
splx(sps);
return(TRY_AGAIN_LATER);
}
free_head = reqp->next;
reqp->next = NULL;
splx(sps);
/*
* Initialize our private fields
*/
reqp->dr_flag = (xs->flags & SCSI_POLL) ? DRIVER_NOINT : 0;
reqp->phase = NR_PHASE;
reqp->msgout = MSG_NOOP;
reqp->status = SCSGOOD;
reqp->link = NULL;
reqp->xs = xs;
reqp->targ_id = xs->sc_link->target;
reqp->xdata_ptr = (u_char*)xs->data;
reqp->xdata_len = xs->datalen;
memcpy(&reqp->xcmd, xs->cmd, sizeof(struct scsi_generic));
/*
* Check if DMA can be used on this request
*/
if(!(xs->flags & SCSI_POLL) && scsi_dmaok(reqp))
reqp->dr_flag |= DRIVER_DMAOK;
/*
* Insert the command into the issue queue. Note that 'REQUEST SENSE'
* commands are inserted at the head of the queue since any command
* will clear the existing contingent allegience condition and the sense
* data is only valid while the condition exists.
* When possible, link the command to a previous command to the same
* target. This is not very sensible when AUTO_SENSE is not defined!
* Interrupts are disabled while we are fiddling with the issue-queue.
*/
sps = splbio();
if((issue_q == NULL) || (reqp->xcmd.opcode == REQUEST_SENSE)) {
reqp->next = issue_q;
issue_q = reqp;
}
else {
SC_REQ *tmp, *link;
tmp = issue_q;
link = NULL;
do {
if(!link && (tmp->targ_id == reqp->targ_id) && !tmp->link)
link = tmp;
} while(tmp->next && (tmp = tmp->next));
tmp->next = reqp;
#ifdef AUTO_SENSE
if(link) {
link->link = reqp;
link->xcmd.bytes[link->xs->cmdlen-1] |= 1;
}
#endif
}
splx(sps);
#ifdef DBG_REQ
show_request(reqp,(reqp->xcmd.opcode == REQUEST_SENSE) ? "HEAD":"TAIL");
#endif
run_main();
if(xs->flags & SCSI_POLL)
return(COMPLETE); /* We're booting */
return(SUCCESSFULLY_QUEUED);
}
#define MIN_PHYS 65536 /*BARF!!!!*/
static void
ncr5380_minphys(struct buf *bp)
{
if(bp->b_bcount > MIN_PHYS) {
printf("Uh-oh... ncr5380_minphys setting bp->b_bcount=%x.\n",MIN_PHYS);
bp->b_bcount = MIN_PHYS;
}
}
#undef MIN_PHYS
static int
ncr5380_show_scsi_cmd(struct scsi_xfer *xs)
{
u_char *b = (u_char *) xs->cmd;
int i = 0;
if(!(xs->flags & SCSI_RESET)) {
printf("ncr5380(%d:%d:%d,0x%x)-", xs->sc_link->scsibus,
xs->sc_link->target, xs->sc_link->lun, xs->sc_link->flags);
while(i < xs->cmdlen) {
if(i)
printf(",");
printf("%x",b[i++]);
}
printf("-\n");
}
else {
printf("ncr5380(%d:%d:%d)-RESET-\n",
xs->sc_link->scsibus,xs->sc_link->target, xs->sc_link->lun);
}
}
/*
* The body of the driver.
*/
static void
scsi_main()
{
SC_REQ *req, *prev;
int itype;
int sps;
/*
* While running in the driver SCSI-interrupts are disabled.
*/
scsi_idisable();
PID(")");
for(;;) {
sps = splbio();
if(!connected) {
/*
* Search through the issue-queue for a command
* destined for a target that isn't busy.
*/
prev = NULL;
for(req=issue_q; req != NULL; prev = req, req = req->next) {
if(!(busy & (1 << req->targ_id))) {
/*
* Found one, remove it from the issue queue
*/
if(prev == NULL)
issue_q = req->next;
else prev->next = req->next;
req->next = NULL;
break;
}
}
/*
* When a request has just ended, we get here before an other
* device detects that the bus is free and that it can
* reconnect. The problem is that when this happens, we always
* baffle the device because our (initiator) id is higher. This
* can cause a sort of starvation on slow devices. So we check
* for a pending reselection here.
* Note that 'connected' will be non-null if the reselection
* succeeds.
*/
if((SCSI_5380->scsi_idstat&(SC_S_SEL|SC_S_IO))
== (SC_S_SEL|SC_S_IO)){
if(req != NULL) {
req->next = issue_q;
issue_q = req;
}
splx(sps);
reselect();
SC_CLINT;
goto connected;
}
/*
* The host is not connected and there is no request
* pending, exit.
*/
if(req == NULL) {
PID("{");
goto main_exit;
}
/*
* Re-enable interrupts before handling the request.
*/
splx(sps);
#ifdef DBG_REQ
show_request(req, "TARGET");
#endif
/*
* We found a request. Try to connect to the target. If the
* initiator fails arbitration, the command is put back in the
* issue queue.
*/
if(scsi_select(req, 0)) {
sps = splbio();
req->next = issue_q;
issue_q = req;
splx(sps);
#ifdef DBG_REQ
printf("Select failed on target %d\n", req->targ_id);
#endif
}
}
else splx(sps);
connected:
if(connected) {
/*
* If the host is currently connected but a 'real-dma' transfer
* is in progress, the 'end-of-dma' interrupt restarts main.
* So quit.
*/
sps = splbio();
if(connected && (connected->dr_flag & DRIVER_IN_DMA)) {
PID("[");
goto main_exit;
}
splx(sps);
/*
* Let the target guide us through the bus-phases
*/
while(information_transfer() == -1)
;
}
}
/* NEVER TO REACH HERE */
panic("TTSCSI: not designed to come here");
main_exit:
/*
* We enter here with interrupts disabled. We are about to exit main
* so interrupts should be re-enabled. Because interrupts are edge
* triggered, we could already have missed the interrupt. Therefore
* we check the IRQ-line here and re-enter when we really missed a
* valid interrupt.
*/
PID("S");
scsi_ienable();
SCSI_5380->scsi_idstat = SC_HOST_ID;
if(SCSI_5380->scsi_dmstat & SC_IRQ_SET) {
if((itype = check_intr()) != INTR_SPURIOUS) {
scsi_idisable();
splx(sps);
if(itype == INTR_RESEL)
reselect();
else dma_ready(0, 0);
SC_CLINT;
goto connected;
}
}
main_running = 0;
splx(sps);
PID("R");
}
/*
* The SCSI-DMA interrupt.
* This interrupt can only be triggered when running in non-polled DMA
* mode. When DMA is not active, it will be silently ignored, it is usually
* to late because the EOP interrupt of the controller happens just a tiny
* bit earlier. It might become usefull when scatter/gather is implemented,
* because in that case only part of the DATAIN/DATAOUT transfer is taken
* out of a single buffer.
*/
scsi_dma(sr)
int sr; /* sr at time of interrupt */
{
SC_REQ *reqp;
int dma_done;
PID("9");
if((reqp = connected) && (reqp->dr_flag & DRIVER_IN_DMA)) {
scsi_idisable();
if(!(dma_done = dma_ready(0, 0))) {
scsi_ienable();
transfer_dma(reqp, reqp->phase, 0);
return;
}
PID("!");
if(!BASEPRI(sr)) {
if(!callback_scheduled++)
add_sicallback(run_main, 0, 0);
}
else {
spl1();
run_main();
}
}
/* PID("#"); */
}
/*
* The SCSI-controller interrupt. This interrupt occurs on reselections and
* at the end of non-polled DMA-interrupts.
*/
scsi_ctrl(sr)
int sr; /* sr at time of interrupt */
{
int itype;
int dma_done;
/* PID("$"); */
while(SCSI_5380->scsi_dmstat & SC_IRQ_SET) {
scsi_idisable();
/* PID("&"); */
if((itype = check_intr()) != INTR_SPURIOUS) {
/* PID("o"); */
if(itype == INTR_RESEL)
reselect();
else {
if(!(dma_done = dma_ready(0, 0))) {
scsi_ienable();
transfer_dma(connected, connected->phase, 0);
return;
}
}
SC_CLINT;
}
/* PID("*"); */
if(!BASEPRI(sr)) {
if(!callback_scheduled++)
add_sicallback(run_main, 0, 0);
}
else {
spl1();
run_main();
}
return;
}
PID("(");
}
/*
* Initiate a connection path between the host and the target. The function
* first goes into arbitration for the SCSI-bus. When this succeeds, the target
* is selected and an 'IDENTIFY' message is send.
* Returns -1 when the arbitration failed. Otherwise 0 is returned. When
* the target does not respond (to either selection or 'MESSAGE OUT') the
* 'done' function is executed.
* The result code given by the driver can be influenced by setting 'code'
* to a non-zero value. This is the case when 'select' is called by abort.
*/
static int
scsi_select(reqp, code)
SC_REQ *reqp;
{
u_long timeout;
u_char tmp[1];
u_char phase;
u_long cnt;
int sps;
DBG_SELPRINT ("Starting arbitration\n", 0);
PID("T");
sps = splbio();
/*
* Prevent a race condition here. If a reslection interrupt occurred
* between the decision to pick a new request and the call to select,
* we abort the selection.
* Interrupts are lowered when the 5380 is setup to arbitrate for the
* bus.
*/
if(connected || (SCSI_5380->scsi_idstat & SC_S_BSY)) {
splx(sps);
PID("Y");
return(-1);
}
/*
* Set phase bits to 0, otherwise the 5380 won't drive the bus during
* selection.
*/
SCSI_5380->scsi_tcom = 0;
SCSI_5380->scsi_icom = 0;
/*
* Arbitrate for the bus.
*/
SCSI_5380->scsi_data = SC_HOST_ID;
SCSI_5380->scsi_mode = SC_ARBIT;
splx(sps);
cnt = 10000;
while(!(SCSI_5380->scsi_icom & SC_AIP) && --cnt)
delay(1);
if(!(SCSI_5380->scsi_icom & SC_AIP)) {
SCSI_5380->scsi_mode = IMODE_BASE;
delay(1);
PID("U");
if(SCSI_5380->scsi_idstat & SC_S_BSY) {
/*
* Damn, we have a connected target that we don't know
* of. Some targets seem to respond to a selection
* AFTER the selection-timeout. Try to get the target
* into the Message-out phase so we can send an ABORT
* message. We try to avoid resetting the SCSI-bus!
*/
if(!reach_msg_out(sizeof(struct scsi_generic))) {
u_long len = 1;
u_char phase = PH_MSGOUT;
u_char msg = MSG_ABORT;
transfer_pio(&phase, &msg, &len);
}
else if(SCSI_5380->scsi_idstat & SC_S_BSY)
scsi_reset();
}
PID("I");
return(-1);
}
/* The arbitration delay is 2.2 usecs */
delay(3);
/*
* Check the result of the arbitration. If we failed, return -1.
*/
if(SCSI_5380->scsi_icom & SC_LA) {
/*
* The spec requires that we should read the data register to
* check for higher id's and check the SC_LA again.
*/
tmp[0] = SCSI_5380->scsi_data;
if(SCSI_5380->scsi_icom & SC_LA) {
SCSI_5380->scsi_mode = IMODE_BASE;
SCSI_5380->scsi_icom = 0;
DBG_SELPRINT ("Arbitration lost,deassert SC_ARBIT\n",0);
PID("O");
return(-1);
}
}
SCSI_5380->scsi_icom = SC_A_SEL | SC_A_BSY;
if(SCSI_5380->scsi_icom & SC_LA) {
SCSI_5380->scsi_mode = IMODE_BASE;
SCSI_5380->scsi_icom = 0;
DBG_SELPRINT ("Arbitration lost, deassert SC_A_SEL\n", 0);
PID("P");
return(-1);
}
/* Bus settle delay + Bus clear delay = 1.2 usecs */
delay(2);
DBG_SELPRINT ("Arbitration complete\n", 0);
/*
* Now that we won the arbitration, start the selection.
*/
SCSI_5380->scsi_data = SC_HOST_ID | (1 << reqp->targ_id);
/*
* Raise ATN while SEL is true before BSY goes false from arbitration,
* since this is the only way to guarantee that we'll get a MESSAGE OUT
* phase immediately after the selection.
*/
SCSI_5380->scsi_icom = SC_A_BSY | SC_A_SEL | SC_A_ATN | SC_ADTB;
SCSI_5380->scsi_mode = IMODE_BASE;
/*
* Turn off reselection interrupts
*/
SCSI_5380->scsi_idstat = 0;
/*
* Reset BSY. The delay following it, surpresses a glitch in the
* 5380 which causes us to see our own BSY signal instead of that of
* the target.
*/
SCSI_5380->scsi_icom = SC_A_SEL | SC_A_ATN | SC_ADTB;
delay(1);
/*
* Wait for the target to react, the specs call for a timeout of
* 250 ms.
*/
cnt = 250000 /* 250 */;
while(!(SCSI_5380->scsi_idstat & SC_S_BSY) && --cnt)
delay(1);
if(!(SCSI_5380->scsi_idstat & SC_S_BSY)) {
/*
* There is no reaction from the target, start the selection
* timeout procedure. We release the databus but keep SEL
* asserted. After that we wait a 'selection abort time' (200
* usecs) and 2 deskew delays (90 ns) and check BSY again.
* When BSY is asserted, we assume the selection succeeded,
* otherwise we release the bus.
*/
SCSI_5380->scsi_icom = SC_A_SEL | SC_A_ATN;
delay(201);
if(!(SCSI_5380->scsi_idstat & SC_S_BSY)) {
SCSI_5380->scsi_icom = 0;
reqp->xs->error = code ? code : XS_SELTIMEOUT;
DBG_SELPRINT ("Target %d not responding to sel\n",
reqp->targ_id);
finish_req(reqp);
PID("A");
return(0);
}
}
SCSI_5380->scsi_icom = SC_A_ATN;
DBG_SELPRINT ("Target %d responding to select.\n", reqp->targ_id);
/*
* The SCSI-interrupts are disabled while a request is being handled.
*/
scsi_idisable();
/*
* Since we followed the SCSI-spec and raised ATN while SEL was true
* but before BSY was false during the selection, a 'MESSAGE OUT'
* phase should follow. Here we send an 'IDENTIFY' message.
* Allow disconnect only when interrups are allowed.
*/
tmp[0] = MSG_IDENTIFY(0, (reqp->dr_flag & DRIVER_NOINT) ? 0 : 1);
cnt = 1;
phase = PH_MSGOUT;
if(transfer_pio(&phase, tmp, &cnt) || cnt) {
DBG_SELPRINT ("Target %d: failed to send identify\n",
reqp->targ_id);
/*
* Try to disconnect from the target. We cannot leave it just
* hanging here.
*/
if(!reach_msg_out(sizeof(struct scsi_generic))) {
u_long len = 1;
u_char phase = PH_MSGOUT;
u_char msg = MSG_ABORT;
transfer_pio(&phase, &msg, &len);
}
else scsi_reset();
SCSI_5380->scsi_icom = 0;
reqp->xs->error = code ? code : XS_DRIVER_STUFFUP;
finish_req(reqp);
PID("S");
return(0);
}
reqp->phase = PH_MSGOUT;
#ifdef notyet /* LWP: Do we need timeouts in the driver? */
/*
* Command is connected, start timer ticking.
*/
ccb_p->xtimeout = ccb_p->timeout + Lbolt;
#endif
connected = reqp;
busy |= 1 << reqp->targ_id;
PID("D");
return(0);
}
/*
* Return codes:
* -1: quit main, trigger on interrupt
* 0: keep on running main.
*/
static int
information_transfer()
{
SC_REQ *reqp = connected;
u_char tmp, phase;
u_long len;
PID("F");
/*
* Clear pending interrupts from 5380-chip.
*/
SC_CLINT;
/*
* We only have a valid SCSI-phase when REQ is asserted. Something
* is deadly wrong when BSY has dropped.
*/
tmp = SCSI_5380->scsi_idstat;
if(!(tmp & SC_S_BSY)) {
busy &= ~(1 << reqp->targ_id);
connected = NULL;
reqp->xs->error = XS_BUSY;
finish_req(reqp);
PID("G");
return(0);
}
if(tmp & SC_S_REQ) {
phase = (tmp >> 2) & 7;
if(phase != reqp->phase) {
reqp->phase = phase;
DBG_INFPRINT(show_phase, reqp, phase);
}
}
else return(-1);
switch(phase) {
case PH_DATAOUT:
#ifdef DBG_NOWRITE
printf("NOWRITE set -- write attempt aborted.");
reqp->msgout = MSG_ABORT;
SCSI_5380->scsi_icom = SC_A_ATN;
return(-1);
#endif /* DBG_NOWRITE */
case PH_DATAIN:
#ifdef REAL_DMA
if(reqp->dr_flag & DRIVER_DMAOK) {
int poll = REAL_DMA_POLL|(reqp->dr_flag & DRIVER_NOINT);
transfer_dma(reqp, phase, poll);
if(!poll)
return(0);
}
else
#endif
{
PID("H");
len = reqp->xdata_len;
transfer_pio(&phase, reqp->xdata_ptr, &len);
reqp->xdata_ptr += reqp->xdata_len - len;
reqp->xdata_len = len;
}
return(-1);
case PH_MSGIN:
/*
* We only expect single byte messages here.
*/
len = 1;
transfer_pio(&phase, &tmp, &len);
reqp->message = tmp;
return(handle_message(reqp, tmp));
case PH_MSGOUT:
len = 1;
transfer_pio(&phase, &reqp->msgout, &len);
if(reqp->msgout == MSG_ABORT) {
busy &= ~(1 << reqp->targ_id);
connected = NULL;
reqp->xs->error = XS_DRIVER_STUFFUP;
finish_req(reqp);
PID("J");
return(0);
}
reqp->msgout = MSG_NOOP;
return(-1);
case PH_CMD :
len = command_size(reqp->xcmd.opcode);
transfer_pio(&phase, (u_char *)&reqp->xcmd, &len);
PID("K");
return(-1);
case PH_STATUS:
len = 1;
transfer_pio(&phase, &tmp, &len);
reqp->status = tmp;
PID("L");
return(-1);
default :
printf("SCSI: unknown phase on target %d\n", reqp->targ_id);
}
PID(":");
return(-1);
}
/*
* Handle the message 'msg' send to us by the target.
* Return values:
* 0 : The current command has completed.
* -1 : Get on to the next phase.
*/
static int
handle_message(reqp, msg)
SC_REQ *reqp;
u_int msg;
{
int sps;
PID(";");
switch(msg) {
/*
* Linking lets us reduce the time required to get
* the next command to the device, skipping the arbitration
* and selection time. In the current implementation,
* we merely have to start the next command pointed
* to by 'next_link'.
*/
case MSG_LINK_CMD_COMPLETE:
case MSG_LINK_CMD_COMPLETEF:
if(reqp->link == NULL) {
printf("SCSI: no link for linked command"
"on target %d\n", reqp->targ_id);
reqp->msgout = MSG_ABORT;
SCSI_5380->scsi_icom = SC_A_ATN;
PID("@");
return(-1);
}
reqp->xs->error = 0;
#ifdef AUTO_SENSE
if(check_autosense(reqp, 0) == -1)
return(-1);
#endif /* AUTO_SENSE */
#ifdef DBG_REQ
show_request(reqp->link, "LINK");
#endif
connected = reqp->link;
finish_req(reqp);
PID("'");
return(-1);
case MSG_ABORT:
case MSG_CMDCOMPLETE:
#ifdef DBG_REQ
show_request(reqp, "DONE");
#endif
connected = NULL;
busy &= ~(1 << reqp->targ_id);
if(!(reqp->dr_flag & DRIVER_AUTOSEN))
reqp->xs->resid = reqp->xdata_len;
reqp->xs->error = 0;
#ifdef AUTO_SENSE
if(check_autosense(reqp, 0) == -1) {
PID("Z");
return(0);
}
#endif /* AUTO_SENSE */
finish_req(reqp);
PID("X");
return(0);
case MSG_MESSAGE_REJECT:
PID("C");
return(-1);
case MSG_DISCONNECT:
#ifdef DBG_REQ
show_request(reqp, "DISCON");
#endif
sps = splbio();
connected = NULL;
reqp->next = discon_q;
discon_q = reqp;
splx(sps);
PID("V");
return(0);
case MSG_SAVEDATAPOINTER:
case MSG_RESTOREPOINTERS:
/*
* We save pointers implicitely at disconnect.
* So we can ignore these messages.
*/
PID("B");
return(-1);
default:
printf("SCSI: unkown message %x on target %d\n", msg,
reqp->targ_id);
return(-1);
}
PID("N");
return(-1);
}
/*
* Handle reselection. If a valid reconnection occurs, connected
* points at the reconnected command. The command is removed from the
* disconnected queue.
*/
static void
reselect()
{
u_char phase;
u_long len;
u_char msg;
u_char target_mask;
int abort = 0;
SC_REQ *tmp, *prev;
PID("M");
target_mask = SCSI_5380->scsi_data & ~SC_HOST_ID;
/*
* At this point, we have detected that our SCSI-id is on the bus,
* SEL is true and BSY was false for at least one bus settle
* delay (400 ns.).
* We must assert BSY ourselves, until the target drops the SEL signal.
*/
SCSI_5380->scsi_icom = SC_A_BSY;
while(SCSI_5380->scsi_idstat & SC_S_SEL)
;
SCSI_5380->scsi_icom = 0;
/*
* Get the expected identify message.
*/
phase = PH_MSGIN;
len = 1;
transfer_pio(&phase, &msg, &len);
if(len || !MSG_ISIDENTIFY(msg)) {
printf("SCSI: expecting IDENTIFY, got 0x%x\n", msg);
abort = 1;
}
else {
/*
* Find the command reconnecting
*/
for(tmp = discon_q, prev = NULL; tmp; prev = tmp, tmp = tmp->next){
if(target_mask == (1 << tmp->targ_id)) {
if(prev)
prev->next = tmp->next;
else discon_q = tmp->next;
tmp->next = NULL;
break;
}
}
if(tmp == NULL) {
printf("SCSI: no disconnected job for targetmask %x\n",
target_mask);
abort = 1;
}
}
if(abort) {
msg = MSG_ABORT;
len = 1;
phase = PH_MSGOUT;
SCSI_5380->scsi_icom = SC_A_ATN;
transfer_pio(&phase, &msg, &len);
}
else {
connected = tmp;
#ifdef DBG_REQ
show_request(tmp, "RECON");
#endif
}
PID("<");
}
/*
* Transfer data in a given phase using polled I/O.
* Returns -1 when a different phase is entered without transferring the
* maximum number of bytes, 0 if all bytes or exit is in the same
* phase.
*/
static int
transfer_pio(phase, data, len)
u_char *phase;
u_char *data;
u_long *len;
{
u_int cnt = *len;
u_char ph = *phase;
u_char tmp;
DBG_PIOPRINT ("SCSI: transfer_pio start: phase: %d, len: %d\n", ph,cnt);
PID(",");
SCSI_5380->scsi_tcom = ph;
do {
if(!wait_req_true()) {
DBG_PIOPRINT ("SCSI: transfer_pio: missing REQ\n", 0, 0);
break;
}
if(((SCSI_5380->scsi_idstat >> 2) & 7) != ph) {
DBG_PIOPRINT ("SCSI: transfer_pio: phase mismatch\n", 0, 0);
break;
}
if(PH_IN(ph)) {
*data++ = SCSI_5380->scsi_data;
SCSI_5380->scsi_icom = SC_A_ACK;
}
else {
SCSI_5380->scsi_data = *data++;
/*
* The SCSI-standard suggests that in the 'MESSAGE OUT' phase,
* the initiator should drop ATN on the last byte of the
* message phase after REQ has been asserted for the handshake
* but before the initiator raises ACK.
*/
if(!( (ph == PH_MSGOUT) && (cnt > 1) )) {
SCSI_5380->scsi_icom = SC_ADTB;
SCSI_5380->scsi_icom = SC_ADTB | SC_A_ACK;
}
else {
SCSI_5380->scsi_icom = SC_ADTB | SC_A_ATN;
SCSI_5380->scsi_icom = SC_ADTB | SC_A_ATN | SC_A_ACK;
}
}
if(!wait_req_false()) {
DBG_PIOPRINT ("SCSI: transfer_pio - REQ not dropping\n", 0, 0);
break;
}
if(!( (ph == PH_MSGOUT) && (cnt > 1) ))
SCSI_5380->scsi_icom = 0;
else SCSI_5380->scsi_icom = SC_A_ATN;
} while(--cnt);
if((tmp = SCSI_5380->scsi_idstat) & SC_S_REQ)
*phase = (tmp >> 2) & 7;
else *phase = NR_PHASE;
*len = cnt;
DBG_PIOPRINT ("SCSI: transfer_pio done: phase: %d, len: %d\n",
*phase, cnt);
PID(">");
if(!cnt || (*phase == ph))
return(0);
return(-1);
}
/*
* Start a DMA-transfer on the device using the current pointers.
* If 'poll' is true, the function waits until DMA-has completed.
*/
static void
transfer_dma(reqp, phase, poll)
SC_REQ *reqp;
u_int phase;
int poll;
{
int dmastat;
u_char mbase = 0;
int sps;
again:
PID("?");
/*
* We should be in phase, otherwise we are not allowed to
* drive the bus.
*/
SCSI_5380->scsi_tcom = phase;
/*
* Defer interrupts until DMA is fully running.
*/
sps = splbio();
/*
* Clear pending interrupts and parity errors.
*/
SCSI_DMA->s_dma_ctrl = 0;
SC_CLINT;
if(!poll) {
/*
* Enable SCSI interrupts and set IN_DMA flag, set 'mbase'
* to the interrupts we want enabled.
*/
scsi_ienable();
reqp->dr_flag |= DRIVER_IN_DMA;
mbase = SC_E_EOPI | SC_MON_BSY;
}
if(PH_IN(phase)) {
SCSI_DMA->s_dma_ctrl = SD_IN;
set_scsi_dma(&(SCSI_DMA->s_dma_ptr), reqp->dm_cur->dm_addr);
set_scsi_dma(&(SCSI_DMA->s_dma_cnt), reqp->dm_cur->dm_count);
SCSI_5380->scsi_icom = 0;
SCSI_5380->scsi_mode = IMODE_BASE | mbase | SC_M_DMA;
SCSI_DMA->s_dma_ctrl = SD_ENABLE;
SCSI_5380->scsi_ircv = 0;
}
else {
SCSI_DMA->s_dma_ctrl = SD_OUT;
set_scsi_dma(&(SCSI_DMA->s_dma_ptr), reqp->dm_cur->dm_addr);
set_scsi_dma(&(SCSI_DMA->s_dma_cnt), reqp->dm_cur->dm_count);
SCSI_5380->scsi_mode = IMODE_BASE | mbase | SC_M_DMA;
SCSI_5380->scsi_icom = SC_ADTB;
SCSI_5380->scsi_dmstat = 0;
SCSI_DMA->s_dma_ctrl = SD_ENABLE|SD_OUT;
}
splx(sps);
if(poll) {
/*
* We wait here until the DMA has finished. This can be
* achieved by checking the following conditions:
* - 5380:
* - End of DMA flag is set
* - We lost BSY (error!!)
* - A phase mismatch has occured (partial transfer)
* - DMA-controller:
* - A bus error occurred (Kernel error!!)
* - All bytes are transferred
* We one of the terminating conditions was met, we call
* 'dma_ready' to check errors and perform the bookkeeping.
*/
u_char dmstat, dmastat;
int dma_done;
PID("/");
for(;;) {
dmstat = SCSI_5380->scsi_dmstat;
dmastat = SCSI_DMA->s_dma_ctrl;
if(dmstat & (SC_END_DMA|SC_BSY_ERR|SC_IRQ_SET))
break;
if(!(dmstat & SC_PHS_MTCH))
break;
if(dmastat & (SD_BUSERR|SD_ZERO))
break;
}
PID("q");
if(dmastat & (SD_BUSERR|SD_ZERO))
dma_done = dma_ready(1, dmastat);
else dma_done = dma_ready(0, 0);
if(!dma_done)
goto again;
}
PID("w");
}
/*
* Check results of a DMA data-transfer.
*/
static int
dma_ready(has_dmastat, dmastat)
int has_dmastat, dmastat;
{
int dmstat, phase;
long tmp, bytes_left, bytes_done;
int i;
SC_REQ *reqp = connected;
/*
* Get values of the status registers of the 5380 & DMA-controller.
*/
dmstat = SCSI_5380->scsi_dmstat;
if(!has_dmastat)
dmastat = SCSI_DMA->s_dma_ctrl;
/*
* Check if the call is sensible and not caused by any spurious
* interrupt.
*/
if( !(dmastat & (SD_BUSERR|SD_ZERO))
&& !(dmstat & (SC_END_DMA|SC_BSY_ERR))
&& (dmstat & SC_PHS_MTCH) ) {
printf("dma_ready: spurious call (dma:%x,dm:%x,last_hit: %s)\n",
dmastat, dmstat, last_hit);
return(0);
}
/*
* If end of a DMA transfer, check it's results.
*/
get_scsi_dma(SCSI_DMA->s_dma_cnt, bytes_left);
if(dmastat & SD_BUSERR) {
/*
* The DMA-controller seems to access 8 bytes beyond
* it's limits on output. Therefore check also the byte
* count. If it's zero, ignore the bus error.
*/
if(bytes_left != 0) {
get_scsi_dma(SCSI_DMA->s_dma_ptr, tmp);
printf("SCSI-DMA buserror - accessing 0x%x\n", tmp);
panic("SCSI");
}
}
if(bytes_left != 0) {
/*
* The byte-count is not zero. This is not always an error,on
* tape drives this usually means EOF. We check that the
* residu is a multiple of 512-bytes, when we know the device
* type it should be included in the check.
* A severe complication is that if a device wants to
* disconnect in the middle of a DMA-transfer, the 5380 has
* already prefetched the next byte from the DMA-controller
* before the phase mismatch occurs. I don't know how this
* fact can be uniquely identified. For the moment, we round
* up the residual if it is odd.
*/
if(PH_OUT(reqp->phase) && (bytes_left & 1))
bytes_left++;
}
else {
if(PH_IN(reqp->phase)) {
/*
* Check for bytes not transfered. This should never occur
* because the buffer-pool is aligned on a 4-byte boundary.
*/
u_char *p, *q;
if(bytes_left > 3) {
scsi_show();
printf("SCSI: %d bytes not transferred\n", bytes_left);
panic("SCSI");
}
p = (u_char*)(bytes_left & ~3);
q = (u_char*)&(SCSI_DMA->s_dma_res);
switch(bytes_left & 3) {
case 3: *p++ = *q++;
case 2: *p++ = *q++;
case 1: *p++ = *q++;
printf("SCSI: dma residue count != 0, ");
printf("Check buffer alignment\n");
}
}
}
/*
* Update various transfer-pointers/lengths
*/
bytes_done = reqp->dm_cur->dm_count - bytes_left;
reqp->xdata_ptr = &reqp->xdata_ptr[bytes_done]; /* XXX */
reqp->xdata_len -= bytes_done; /* XXX */
if((reqp->dm_cur->dm_count -= bytes_done) == 0)
reqp->dm_cur++;
else reqp->dm_cur->dm_addr += bytes_done;
if(PH_IN(reqp->phase) && (dmstat & SC_PAR_ERR)) {
if(!(ncr5380_no_parchk & (1 << reqp->targ_id)))
/* XXX: Should be parity error ???? */
reqp->xs->error = XS_DRIVER_STUFFUP;
}
/*
* DMA mode should always be reset even when we will continue with the
* next chain.
*/
SCSI_5380->scsi_mode &= ~SC_M_DMA;
if((dmstat & SC_BSY_ERR) || !(dmstat & SC_PHS_MTCH)
|| (reqp->dm_cur > reqp->dm_last)) {
/*
* Tell interrupt functions DMA mode has ended.
*/
reqp->dr_flag &= ~DRIVER_IN_DMA;
/*
* Turn off DMA-mode and clear icom
*/
SCSI_5380->scsi_mode &=
~(SC_M_DMA|SC_E_EOPI|SC_MON_BSY|SC_E_PARI);
SCSI_5380->scsi_icom = 0;
/*
* Clear all (pending) interrupts.
*/
SCSI_DMA->s_dma_ctrl = 0;
SC_CLINT;
if(dmstat & SC_BSY_ERR) {
if(!reqp->xs->error)
reqp->xs->error = XS_BUSY;
finish_req(reqp);
PID("r");
return(1);
}
if(reqp->xs->error != 0) {
printf("dma-ready: code = %d\n", reqp->xs->error); /* LWP */
reqp->msgout = MSG_ABORT;
SCSI_5380->scsi_icom = SC_A_ATN;
}
PID("t");
return(1);
}
return(0);
}
static int
check_autosense(reqp, linked)
SC_REQ *reqp;
int linked;
{
int sps;
/*
* If we not executing an auto-sense and the status code
* is request-sense, we automatically issue a request
* sense command.
*/
PID("y");
if(!(reqp->dr_flag & DRIVER_AUTOSEN)) {
if(reqp->status == SCSCHKC) {
memcpy(&reqp->xcmd, sense_cmd, sizeof(sense_cmd));
reqp->xdata_ptr = (u_char *)&reqp->xs->sense;
reqp->xdata_len = sizeof(reqp->xs->sense);
reqp->dr_flag |= DRIVER_AUTOSEN;
reqp->dr_flag &= ~DRIVER_DMAOK;
if(!linked) {
sps = splbio();
reqp->next = issue_q;
issue_q = reqp;
splx(sps);
}
else reqp->xcmd.bytes[4] |= 1;
#ifdef DBG_REQ
show_request(reqp, "AUTO-SENSE");
#endif
PID("u");
return(-1);
}
}
else {
/*
* An auto-sense has finished
*/
if((reqp->status & SCSMASK) != SCSGOOD)
reqp->xs->error = XS_DRIVER_STUFFUP; /* SC_E_AUTOSEN; */
else reqp->xs->error = XS_SENSE;
reqp->status = SCSCHKC;
}
PID("i");
return(0);
}
static int
reach_msg_out(len)
u_long len;
{
u_char phase;
u_char data;
printf("SCSI: Trying to reach Message-out phase\n");
if((phase = SCSI_5380->scsi_idstat) & SC_S_REQ)
phase = (phase >> 2) & 7;
else return(-1);
printf("SCSI: Trying to reach Message-out phase, now: %d\n", phase);
if(phase == PH_MSGOUT)
return(0);
SCSI_5380->scsi_tcom = phase;
do {
if(!wait_req_true()) {
break;
}
if(((SCSI_5380->scsi_idstat >> 2) & 7) != phase) {
break;
}
if(PH_IN(phase)) {
data = SCSI_5380->scsi_data;
SCSI_5380->scsi_icom = SC_A_ACK | SC_A_ATN;
}
else {
SCSI_5380->scsi_data = 0;
SCSI_5380->scsi_icom = SC_ADTB | SC_A_ATN | SC_A_ACK;
}
if(!wait_req_false()) {
break;
}
SCSI_5380->scsi_icom = SC_A_ATN;
} while(--len);
if((phase = SCSI_5380->scsi_idstat) & SC_S_REQ) {
phase = (phase >> 2) & 7;
if(phase == PH_MSGOUT) {
printf("SCSI: Message-out phase reached.\n");
return(0);
}
}
return(-1);
}
static void
scsi_reset()
{
SC_REQ *tmp, *next;
int sps;
printf("SCSI: resetting SCSI-bus\n");
PID("7");
sps = splbio();
SCSI_5380->scsi_icom = SC_A_RST;
delay(1);
SCSI_5380->scsi_icom = 0;
/*
* None of the jobs in the discon_q will ever be reconnected,
* notify this to the higher level code.
*/
for(tmp = discon_q; tmp ;) {
next = tmp->next;
tmp->next = NULL;
tmp->xs->error = XS_TIMEOUT;
busy &= ~(1 << tmp->targ_id);
finish_req(tmp);
tmp = next;
}
discon_q = NULL;
/*
* The current job will never finish either.
* The problem is that we can't finish the job because an instance
* of main is running on it. Our best guess is that the job is currently
* doing REAL-DMA. In that case 'dma_ready()' should correctly finish
* the job because it detects BSY-loss.
*/
if(tmp = connected) {
if(tmp->dr_flag & DRIVER_IN_DMA) {
tmp->xs->error = XS_DRIVER_STUFFUP;
dma_ready(0, 0);
}
}
splx(sps);
PID("8");
}
/*
* Check validity of the IRQ set by the 5380. If the interrupt is valid,
* the appropriate action is carried out (reselection or DMA ready) and
* INTR_RESEL or INTR_DMA is returned. Otherwise a console notice is written
* and INTR_SPURIOUS is returned.
*/
static int
check_intr()
{
SC_REQ *reqp;
if((SCSI_5380->scsi_idstat & (SC_S_SEL|SC_S_IO))==(SC_S_SEL|SC_S_IO))
return(INTR_RESEL);
else {
if((reqp = connected) && (reqp->dr_flag & DRIVER_IN_DMA)){
reqp->dr_flag &= ~DRIVER_IN_DMA;
return(INTR_DMA);
}
}
SC_CLINT;
printf("-->");
scsi_show();
printf("SCSI: spurious interrupt.\n");
return(INTR_SPURIOUS);
}
/*
* Check if DMA can be used for this request. This function also builds
* the dma-chain.
*/
static int
scsi_dmaok(reqp)
SC_REQ *reqp;
{
u_long phy_buf;
u_long phy_len;
void *req_addr;
u_long req_len;
struct dma_chain *dm;
/*
* Initialize locals and requests' DMA-chain.
*/
req_len = reqp->xdata_len;
req_addr = (void*)reqp->xdata_ptr;
dm = reqp->dm_cur = reqp->dm_last = reqp->dm_chain;
dm->dm_count = dm->dm_addr = 0;
/*
* Do not accept zero length DMA.
*/
if(req_len == 0)
return(0);
/*
* LWP: I think that this restriction is not strictly nessecary.
*/
if((req_len & 0x1) || ((u_int)req_addr & 0x3))
return(0);
/*
* Build the DMA-chain.
*/
dm->dm_addr = phy_buf = kvtop(req_addr);
while(req_len) {
if(req_len < (phy_len = NBPG - ((u_long)req_addr & PGOFSET)))
phy_len = req_len;
req_addr += phy_len;
req_len -= phy_len;
dm->dm_count += phy_len;
/*
* LWP: DMA transfers to TT-ram causes data to be garbeled
* without notice on some revisons of the TT-mainboard.
* When program's generate misterious Segmentations faults,
* try turning on no_ttram_dma.
*/
if(no_ttram_dma && (dm->dm_addr > 0x1000000))
return(0);
if(req_len) {
u_long tmp = kvtop(req_addr);
if((phy_buf + phy_len) != tmp) {
if(++dm >= &reqp->dm_chain[MAXDMAIO]) {
printf("ncr5380_dmaok: DMA chain too long!\n");
return(0);
}
dm->dm_count = 0;
dm->dm_addr = tmp;
}
phy_buf = tmp;
}
}
reqp->dm_last = dm;
return(1);
}
static void
run_main(void)
{
int sps = splbio();
callback_scheduled = 0;
if(!main_running) {
main_running = 1;
splx(sps);
scsi_main();
}
else splx(sps);
}
/****************************************************************************
* Start Debugging Functions *
****************************************************************************/
static void
show_data_sense(xs)
struct scsi_xfer *xs;
{
u_char *b;
int i;
int sz;
b = (u_char *) xs->cmd;
printf("cmd[%d,%d]: ", xs->cmdlen, sz = command_size(*b));
for(i = 0; i < sz; i++)
printf("%x ", b[i]);
printf("\nsense: ");
b = (u_char *)&xs->sense;
for(i = 0; i < sizeof(xs->sense); i++)
printf("%x ", b[i]);
printf("\n");
}
static void
show_request(reqp, qtxt)
SC_REQ *reqp;
char *qtxt;
{
printf("REQ-%s: %d %x[%d] cmd[0]=%x S=%x M=%x R=%x %s\n", qtxt,
reqp->targ_id, reqp->xdata_ptr, reqp->xdata_len,
reqp->xcmd.opcode, reqp->status, reqp->message,
reqp->xs->error, reqp->link ? "L" : "");
if(reqp->status == SCSCHKC)
show_data_sense(reqp->xs);
}
scsi_show()
{
SC_REQ *tmp;
int sps = splhigh();
#ifndef DBG_PID
#define last_hit ""
#endif
for(tmp = issue_q; tmp; tmp = tmp->next)
show_request(tmp, "ISSUED");
for(tmp = discon_q; tmp; tmp = tmp->next)
show_request(tmp, "DISCONNECTED");
if(connected)
show_request(connected, "CONNECTED");
/* show_signals(); */
if(connected)
printf("phase = %d, ", connected->phase);
printf("busy:%x, last_hit:%s, spl:%04x\n", busy, last_hit, sps);
splx(sps);
}