linux/drivers/scsi/initio.c

3176 lines
94 KiB
C
Raw Normal View History

/**************************************************************************
* Initio 9100 device driver for Linux.
*
* Copyright (c) 1994-1998 Initio Corporation
* Copyright (c) 1998 Bas Vermeulen <bvermeul@blackstar.xs4all.nl>
* All rights reserved.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file COPYING. If not, write to
* the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
*
* --------------------------------------------------------------------------
*
* 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,
* without modification, immediately at the beginning of the file.
* 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.
*
* Where this Software is combined with software released under the terms of
* the GNU General Public License ("GPL") and the terms of the GPL would require the
* combined work to also be released under the terms of the GPL, the terms
* and conditions of this License will apply in addition to those of the
* GPL with the exception of any terms or conditions of this License that
* conflict with, or are expressly prohibited by, the GPL.
*
* 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.
*
*************************************************************************
*
* DESCRIPTION:
*
* This is the Linux low-level SCSI driver for Initio INI-9X00U/UW SCSI host
* adapters
*
* 08/06/97 hc - v1.01h
* - Support inic-940 and inic-935
* 09/26/97 hc - v1.01i
* - Make correction from J.W. Schultz suggestion
* 10/13/97 hc - Support reset function
* 10/21/97 hc - v1.01j
* - Support 32 LUN (SCSI 3)
* 01/14/98 hc - v1.01k
* - Fix memory allocation problem
* 03/04/98 hc - v1.01l
* - Fix tape rewind which will hang the system problem
* - Set can_queue to tul_num_scb
* 06/25/98 hc - v1.01m
* - Get it work for kernel version >= 2.1.75
* - Dynamic assign SCSI bus reset holding time in init_tulip()
* 07/02/98 hc - v1.01n
* - Support 0002134A
* 08/07/98 hc - v1.01o
* - Change the tul_abort_srb routine to use scsi_done. <01>
* 09/07/98 hl - v1.02
* - Change the INI9100U define and proc_dir_entry to
* reflect the newer Kernel 2.1.118, but the v1.o1o
* should work with Kernel 2.1.118.
* 09/20/98 wh - v1.02a
* - Support Abort command.
* - Handle reset routine.
* 09/21/98 hl - v1.03
* - remove comments.
* 12/09/98 bv - v1.03a
* - Removed unused code
* 12/13/98 bv - v1.03b
* - Remove cli() locking for kernels >= 2.1.95. This uses
* spinlocks to serialize access to the pSRB_head and
* pSRB_tail members of the HCS structure.
* 09/01/99 bv - v1.03d
* - Fixed a deadlock problem in SMP.
* 21/01/99 bv - v1.03e
* - Add support for the Domex 3192U PCI SCSI
* This is a slightly modified patch by
* Brian Macy <bmacy@sunshinecomputing.com>
* 22/02/99 bv - v1.03f
* - Didn't detect the INIC-950 in 2.0.x correctly.
* Now fixed.
* 05/07/99 bv - v1.03g
* - Changed the assumption that HZ = 100
* 10/17/03 mc - v1.04
* - added new DMA API support
* 06/01/04 jmd - v1.04a
* - Re-add reset_bus support
**************************************************************************/
#include <linux/module.h>
#include <linux/errno.h>
#include <linux/delay.h>
#include <linux/pci.h>
#include <linux/init.h>
#include <linux/blkdev.h>
#include <linux/spinlock.h>
#include <linux/stat.h>
#include <linux/kernel.h>
#include <linux/proc_fs.h>
#include <linux/string.h>
#include <linux/interrupt.h>
#include <linux/ioport.h>
#include <linux/sched.h>
#include <linux/slab.h>
#include <linux/jiffies.h>
#include <linux/dma-mapping.h>
#include <asm/io.h>
#include <scsi/scsi.h>
#include <scsi/scsi_cmnd.h>
#include <scsi/scsi_device.h>
#include <scsi/scsi_host.h>
#include <scsi/scsi_tcq.h>
#include "initio.h"
#define SENSE_SIZE 14
#define i91u_MAXQUEUE 2
#define i91u_REVID "Initio INI-9X00U/UW SCSI device driver; Revision: 1.04a"
#define I950_DEVICE_ID 0x9500 /* Initio's inic-950 product ID */
#define I940_DEVICE_ID 0x9400 /* Initio's inic-940 product ID */
#define I935_DEVICE_ID 0x9401 /* Initio's inic-935 product ID */
#define I920_DEVICE_ID 0x0002 /* Initio's other product ID */
#ifdef DEBUG_i91u
static unsigned int i91u_debug = DEBUG_DEFAULT;
#endif
#define TUL_RDWORD(x,y) (short)(inl((int)((ULONG)((ULONG)x+(UCHAR)y)) ))
typedef struct PCI_ID_Struc {
unsigned short vendor_id;
unsigned short device_id;
} PCI_ID;
static int tul_num_ch = 4; /* Maximum 4 adapters */
static int tul_num_scb;
static int tul_tag_enable = 1;
static SCB *tul_scb;
#ifdef DEBUG_i91u
static int setup_debug = 0;
#endif
static void i91uSCBPost(BYTE * pHcb, BYTE * pScb);
/* PCI Devices supported by this driver */
static struct pci_device_id i91u_pci_devices[] = {
{ PCI_VENDOR_ID_INIT, I950_DEVICE_ID, PCI_ANY_ID, PCI_ANY_ID, 0, 0, 0},
{ PCI_VENDOR_ID_INIT, I940_DEVICE_ID, PCI_ANY_ID, PCI_ANY_ID, 0, 0, 0},
{ PCI_VENDOR_ID_INIT, I935_DEVICE_ID, PCI_ANY_ID, PCI_ANY_ID, 0, 0, 0},
{ PCI_VENDOR_ID_INIT, I920_DEVICE_ID, PCI_ANY_ID, PCI_ANY_ID, 0, 0, 0},
{ PCI_VENDOR_ID_DOMEX, I920_DEVICE_ID, PCI_ANY_ID, PCI_ANY_ID, 0, 0, 0},
{ }
};
MODULE_DEVICE_TABLE(pci, i91u_pci_devices);
#define DEBUG_INTERRUPT 0
#define DEBUG_QUEUE 0
#define DEBUG_STATE 0
#define INT_DISC 0
/*--- external functions --*/
static void tul_se2_wait(void);
/*--- forward refrence ---*/
static SCB *tul_find_busy_scb(HCS * pCurHcb, WORD tarlun);
static SCB *tul_find_done_scb(HCS * pCurHcb);
static int tulip_main(HCS * pCurHcb);
static int tul_next_state(HCS * pCurHcb);
static int tul_state_1(HCS * pCurHcb);
static int tul_state_2(HCS * pCurHcb);
static int tul_state_3(HCS * pCurHcb);
static int tul_state_4(HCS * pCurHcb);
static int tul_state_5(HCS * pCurHcb);
static int tul_state_6(HCS * pCurHcb);
static int tul_state_7(HCS * pCurHcb);
static int tul_xfer_data_in(HCS * pCurHcb);
static int tul_xfer_data_out(HCS * pCurHcb);
static int tul_xpad_in(HCS * pCurHcb);
static int tul_xpad_out(HCS * pCurHcb);
static int tul_status_msg(HCS * pCurHcb);
static int tul_msgin(HCS * pCurHcb);
static int tul_msgin_sync(HCS * pCurHcb);
static int tul_msgin_accept(HCS * pCurHcb);
static int tul_msgout_reject(HCS * pCurHcb);
static int tul_msgin_extend(HCS * pCurHcb);
static int tul_msgout_ide(HCS * pCurHcb);
static int tul_msgout_abort_targ(HCS * pCurHcb);
static int tul_msgout_abort_tag(HCS * pCurHcb);
static int tul_bus_device_reset(HCS * pCurHcb);
static void tul_select_atn(HCS * pCurHcb, SCB * pCurScb);
static void tul_select_atn3(HCS * pCurHcb, SCB * pCurScb);
static void tul_select_atn_stop(HCS * pCurHcb, SCB * pCurScb);
static int int_tul_busfree(HCS * pCurHcb);
static int int_tul_scsi_rst(HCS * pCurHcb);
static int int_tul_bad_seq(HCS * pCurHcb);
static int int_tul_resel(HCS * pCurHcb);
static int tul_sync_done(HCS * pCurHcb);
static int wdtr_done(HCS * pCurHcb);
static int wait_tulip(HCS * pCurHcb);
static int tul_wait_done_disc(HCS * pCurHcb);
static int tul_wait_disc(HCS * pCurHcb);
static void tulip_scsi(HCS * pCurHcb);
static int tul_post_scsi_rst(HCS * pCurHcb);
static void tul_se2_ew_en(WORD CurBase);
static void tul_se2_ew_ds(WORD CurBase);
static int tul_se2_rd_all(WORD CurBase);
static void tul_se2_update_all(WORD CurBase); /* setup default pattern */
static void tul_read_eeprom(WORD CurBase);
/* ---- INTERNAL VARIABLES ---- */
static HCS tul_hcs[MAX_SUPPORTED_ADAPTERS];
static INI_ADPT_STRUCT i91u_adpt[MAX_SUPPORTED_ADAPTERS];
/*NVRAM nvram, *nvramp = &nvram; */
static NVRAM i91unvram;
static NVRAM *i91unvramp;
static UCHAR i91udftNvRam[64] =
{
/*----------- header -----------*/
0x25, 0xc9, /* Signature */
0x40, /* Size */
0x01, /* Revision */
/* -- Host Adapter Structure -- */
0x95, /* ModelByte0 */
0x00, /* ModelByte1 */
0x00, /* ModelInfo */
0x01, /* NumOfCh */
NBC1_DEFAULT, /* BIOSConfig1 */
0, /* BIOSConfig2 */
0, /* HAConfig1 */
0, /* HAConfig2 */
/* SCSI channel 0 and target Structure */
7, /* SCSIid */
NCC1_DEFAULT, /* SCSIconfig1 */
0, /* SCSIconfig2 */
0x10, /* NumSCSItarget */
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
/* SCSI channel 1 and target Structure */
7, /* SCSIid */
NCC1_DEFAULT, /* SCSIconfig1 */
0, /* SCSIconfig2 */
0x10, /* NumSCSItarget */
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT, NTC_DEFAULT,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0}; /* - CheckSum - */
static UCHAR tul_rate_tbl[8] = /* fast 20 */
{
/* nanosecond devide by 4 */
12, /* 50ns, 20M */
18, /* 75ns, 13.3M */
25, /* 100ns, 10M */
31, /* 125ns, 8M */
37, /* 150ns, 6.6M */
43, /* 175ns, 5.7M */
50, /* 200ns, 5M */
62 /* 250ns, 4M */
};
static void tul_do_pause(unsigned amount)
{ /* Pause for amount jiffies */
unsigned long the_time = jiffies + amount;
while (time_before_eq(jiffies, the_time));
}
/*-- forward reference --*/
/*******************************************************************
Use memeory refresh time ~ 15us * 2
********************************************************************/
void tul_se2_wait(void)
{
#if 1
udelay(30);
#else
UCHAR readByte;
readByte = TUL_RD(0, 0x61);
if ((readByte & 0x10) == 0x10) {
for (;;) {
readByte = TUL_RD(0, 0x61);
if ((readByte & 0x10) == 0x10)
break;
}
for (;;) {
readByte = TUL_RD(0, 0x61);
if ((readByte & 0x10) != 0x10)
break;
}
} else {
for (;;) {
readByte = TUL_RD(0, 0x61);
if ((readByte & 0x10) == 0x10)
break;
}
for (;;) {
readByte = TUL_RD(0, 0x61);
if ((readByte & 0x10) != 0x10)
break;
}
}
#endif
}
/******************************************************************
Input: instruction for Serial E2PROM
EX: se2_rd(0 call se2_instr() to send address and read command
StartBit OP_Code Address Data
--------- -------- ------------------ -------
1 1 , 0 A5,A4,A3,A2,A1,A0 D15-D0
+-----------------------------------------------------
|
CS -----+
+--+ +--+ +--+ +--+ +--+
^ | ^ | ^ | ^ | ^ |
| | | | | | | | | |
CLK -------+ +--+ +--+ +--+ +--+ +--
(leading edge trigger)
+--1-----1--+
| SB OP | OP A5 A4
DI ----+ +--0------------------
(address and cmd sent to nvram)
-------------------------------------------+
|
DO +---
(data sent from nvram)
******************************************************************/
static void tul_se2_instr(WORD CurBase, UCHAR instr)
{
int i;
UCHAR b;
TUL_WR(CurBase + TUL_NVRAM, SE2CS | SE2DO); /* cs+start bit */
tul_se2_wait();
TUL_WR(CurBase + TUL_NVRAM, SE2CS | SE2CLK | SE2DO); /* +CLK */
tul_se2_wait();
for (i = 0; i < 8; i++) {
if (instr & 0x80)
b = SE2CS | SE2DO; /* -CLK+dataBit */
else
b = SE2CS; /* -CLK */
TUL_WR(CurBase + TUL_NVRAM, b);
tul_se2_wait();
TUL_WR(CurBase + TUL_NVRAM, b | SE2CLK); /* +CLK */
tul_se2_wait();
instr <<= 1;
}
TUL_WR(CurBase + TUL_NVRAM, SE2CS); /* -CLK */
tul_se2_wait();
return;
}
/******************************************************************
Function name : tul_se2_ew_en
Description : Enable erase/write state of serial EEPROM
******************************************************************/
void tul_se2_ew_en(WORD CurBase)
{
tul_se2_instr(CurBase, 0x30); /* EWEN */
TUL_WR(CurBase + TUL_NVRAM, 0); /* -CS */
tul_se2_wait();
return;
}
/************************************************************************
Disable erase/write state of serial EEPROM
*************************************************************************/
void tul_se2_ew_ds(WORD CurBase)
{
tul_se2_instr(CurBase, 0); /* EWDS */
TUL_WR(CurBase + TUL_NVRAM, 0); /* -CS */
tul_se2_wait();
return;
}
/******************************************************************
Input :address of Serial E2PROM
Output :value stored in Serial E2PROM
*******************************************************************/
static USHORT tul_se2_rd(WORD CurBase, ULONG adr)
{
UCHAR instr, readByte;
USHORT readWord;
int i;
instr = (UCHAR) (adr | 0x80);
tul_se2_instr(CurBase, instr); /* READ INSTR */
readWord = 0;
for (i = 15; i >= 0; i--) {
TUL_WR(CurBase + TUL_NVRAM, SE2CS | SE2CLK); /* +CLK */
tul_se2_wait();
TUL_WR(CurBase + TUL_NVRAM, SE2CS); /* -CLK */
/* sample data after the following edge of clock */
readByte = TUL_RD(CurBase, TUL_NVRAM);
readByte &= SE2DI;
readWord += (readByte << i);
tul_se2_wait(); /* 6/20/95 */
}
TUL_WR(CurBase + TUL_NVRAM, 0); /* no chip select */
tul_se2_wait();
return readWord;
}
/******************************************************************
Input: new value in Serial E2PROM, address of Serial E2PROM
*******************************************************************/
static void tul_se2_wr(WORD CurBase, UCHAR adr, USHORT writeWord)
{
UCHAR readByte;
UCHAR instr;
int i;
instr = (UCHAR) (adr | 0x40);
tul_se2_instr(CurBase, instr); /* WRITE INSTR */
for (i = 15; i >= 0; i--) {
if (writeWord & 0x8000)
TUL_WR(CurBase + TUL_NVRAM, SE2CS | SE2DO); /* -CLK+dataBit 1 */
else
TUL_WR(CurBase + TUL_NVRAM, SE2CS); /* -CLK+dataBit 0 */
tul_se2_wait();
TUL_WR(CurBase + TUL_NVRAM, SE2CS | SE2CLK); /* +CLK */
tul_se2_wait();
writeWord <<= 1;
}
TUL_WR(CurBase + TUL_NVRAM, SE2CS); /* -CLK */
tul_se2_wait();
TUL_WR(CurBase + TUL_NVRAM, 0); /* -CS */
tul_se2_wait();
TUL_WR(CurBase + TUL_NVRAM, SE2CS); /* +CS */
tul_se2_wait();
for (;;) {
TUL_WR(CurBase + TUL_NVRAM, SE2CS | SE2CLK); /* +CLK */
tul_se2_wait();
TUL_WR(CurBase + TUL_NVRAM, SE2CS); /* -CLK */
tul_se2_wait();
if ((readByte = TUL_RD(CurBase, TUL_NVRAM)) & SE2DI)
break; /* write complete */
}
TUL_WR(CurBase + TUL_NVRAM, 0); /* -CS */
return;
}
/***********************************************************************
Read SCSI H/A configuration parameters from serial EEPROM
************************************************************************/
int tul_se2_rd_all(WORD CurBase)
{
int i;
ULONG chksum = 0;
USHORT *np;
i91unvramp = &i91unvram;
np = (USHORT *) i91unvramp;
for (i = 0; i < 32; i++) {
*np++ = tul_se2_rd(CurBase, i);
}
/*--------------------Is signature "ini" ok ? ----------------*/
if (i91unvramp->NVM_Signature != INI_SIGNATURE)
return -1;
/*---------------------- Is ckecksum ok ? ----------------------*/
np = (USHORT *) i91unvramp;
for (i = 0; i < 31; i++)
chksum += *np++;
if (i91unvramp->NVM_CheckSum != (USHORT) chksum)
return -1;
return 1;
}
/***********************************************************************
Update SCSI H/A configuration parameters from serial EEPROM
************************************************************************/
void tul_se2_update_all(WORD CurBase)
{ /* setup default pattern */
int i;
ULONG chksum = 0;
USHORT *np, *np1;
i91unvramp = &i91unvram;
/* Calculate checksum first */
np = (USHORT *) i91udftNvRam;
for (i = 0; i < 31; i++)
chksum += *np++;
*np = (USHORT) chksum;
tul_se2_ew_en(CurBase); /* Enable write */
np = (USHORT *) i91udftNvRam;
np1 = (USHORT *) i91unvramp;
for (i = 0; i < 32; i++, np++, np1++) {
if (*np != *np1) {
tul_se2_wr(CurBase, i, *np);
}
}
tul_se2_ew_ds(CurBase); /* Disable write */
return;
}
/*************************************************************************
Function name : read_eeprom
**************************************************************************/
void tul_read_eeprom(WORD CurBase)
{
UCHAR gctrl;
i91unvramp = &i91unvram;
/*------Enable EEProm programming ---*/
gctrl = TUL_RD(CurBase, TUL_GCTRL);
TUL_WR(CurBase + TUL_GCTRL, gctrl | TUL_GCTRL_EEPROM_BIT);
if (tul_se2_rd_all(CurBase) != 1) {
tul_se2_update_all(CurBase); /* setup default pattern */
tul_se2_rd_all(CurBase); /* load again */
}
/*------ Disable EEProm programming ---*/
gctrl = TUL_RD(CurBase, TUL_GCTRL);
TUL_WR(CurBase + TUL_GCTRL, gctrl & ~TUL_GCTRL_EEPROM_BIT);
} /* read_eeprom */
static int Addi91u_into_Adapter_table(WORD wBIOS, WORD wBASE, BYTE bInterrupt,
BYTE bBus, BYTE bDevice)
{
int i, j;
for (i = 0; i < MAX_SUPPORTED_ADAPTERS; i++) {
if (i91u_adpt[i].ADPT_BIOS < wBIOS)
continue;
if (i91u_adpt[i].ADPT_BIOS == wBIOS) {
if (i91u_adpt[i].ADPT_BASE == wBASE) {
if (i91u_adpt[i].ADPT_Bus != 0xFF)
return 1;
} else if (i91u_adpt[i].ADPT_BASE < wBASE)
continue;
}
for (j = MAX_SUPPORTED_ADAPTERS - 1; j > i; j--) {
i91u_adpt[j].ADPT_BASE = i91u_adpt[j - 1].ADPT_BASE;
i91u_adpt[j].ADPT_INTR = i91u_adpt[j - 1].ADPT_INTR;
i91u_adpt[j].ADPT_BIOS = i91u_adpt[j - 1].ADPT_BIOS;
i91u_adpt[j].ADPT_Bus = i91u_adpt[j - 1].ADPT_Bus;
i91u_adpt[j].ADPT_Device = i91u_adpt[j - 1].ADPT_Device;
}
i91u_adpt[i].ADPT_BASE = wBASE;
i91u_adpt[i].ADPT_INTR = bInterrupt;
i91u_adpt[i].ADPT_BIOS = wBIOS;
i91u_adpt[i].ADPT_Bus = bBus;
i91u_adpt[i].ADPT_Device = bDevice;
return 0;
}
return 1;
}
static void init_i91uAdapter_table(void)
{
int i;
for (i = 0; i < MAX_SUPPORTED_ADAPTERS; i++) { /* Initialize adapter structure */
i91u_adpt[i].ADPT_BIOS = 0xffff;
i91u_adpt[i].ADPT_BASE = 0xffff;
i91u_adpt[i].ADPT_INTR = 0xff;
i91u_adpt[i].ADPT_Bus = 0xff;
i91u_adpt[i].ADPT_Device = 0xff;
}
return;
}
static void tul_stop_bm(HCS * pCurHcb)
{
if (TUL_RD(pCurHcb->HCS_Base, TUL_XStatus) & XPEND) { /* if DMA xfer is pending, abort DMA xfer */
TUL_WR(pCurHcb->HCS_Base + TUL_XCmd, TAX_X_ABT | TAX_X_CLR_FIFO);
/* wait Abort DMA xfer done */
while ((TUL_RD(pCurHcb->HCS_Base, TUL_Int) & XABT) == 0);
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
}
/***************************************************************************/
static void get_tulipPCIConfig(HCS * pCurHcb, int ch_idx)
{
pCurHcb->HCS_Base = i91u_adpt[ch_idx].ADPT_BASE; /* Supply base address */
pCurHcb->HCS_BIOS = i91u_adpt[ch_idx].ADPT_BIOS; /* Supply BIOS address */
pCurHcb->HCS_Intr = i91u_adpt[ch_idx].ADPT_INTR; /* Supply interrupt line */
return;
}
/***************************************************************************/
static int tul_reset_scsi(HCS * pCurHcb, int seconds)
{
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_RST_BUS);
while (!((pCurHcb->HCS_JSInt = TUL_RD(pCurHcb->HCS_Base, TUL_SInt)) & TSS_SCSIRST_INT));
/* reset tulip chip */
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, 0);
/* Stall for a while, wait for target's firmware ready,make it 2 sec ! */
/* SONY 5200 tape drive won't work if only stall for 1 sec */
tul_do_pause(seconds * HZ);
TUL_RD(pCurHcb->HCS_Base, TUL_SInt);
return (SCSI_RESET_SUCCESS);
}
/***************************************************************************/
static int init_tulip(HCS * pCurHcb, SCB * scbp, int tul_num_scb,
BYTE * pbBiosAdr, int seconds)
{
int i;
BYTE *pwFlags;
BYTE *pbHeads;
SCB *pTmpScb, *pPrevScb = NULL;
pCurHcb->HCS_NumScbs = tul_num_scb;
pCurHcb->HCS_Semaph = 1;
spin_lock_init(&pCurHcb->HCS_SemaphLock);
pCurHcb->HCS_JSStatus0 = 0;
pCurHcb->HCS_Scb = scbp;
pCurHcb->HCS_NxtPend = scbp;
pCurHcb->HCS_NxtAvail = scbp;
for (i = 0, pTmpScb = scbp; i < tul_num_scb; i++, pTmpScb++) {
pTmpScb->SCB_TagId = i;
if (i != 0)
pPrevScb->SCB_NxtScb = pTmpScb;
pPrevScb = pTmpScb;
}
pPrevScb->SCB_NxtScb = NULL;
pCurHcb->HCS_ScbEnd = pTmpScb;
pCurHcb->HCS_FirstAvail = scbp;
pCurHcb->HCS_LastAvail = pPrevScb;
spin_lock_init(&pCurHcb->HCS_AvailLock);
pCurHcb->HCS_FirstPend = NULL;
pCurHcb->HCS_LastPend = NULL;
pCurHcb->HCS_FirstBusy = NULL;
pCurHcb->HCS_LastBusy = NULL;
pCurHcb->HCS_FirstDone = NULL;
pCurHcb->HCS_LastDone = NULL;
pCurHcb->HCS_ActScb = NULL;
pCurHcb->HCS_ActTcs = NULL;
tul_read_eeprom(pCurHcb->HCS_Base);
/*---------- get H/A configuration -------------*/
if (i91unvramp->NVM_SCSIInfo[0].NVM_NumOfTarg == 8)
pCurHcb->HCS_MaxTar = 8;
else
pCurHcb->HCS_MaxTar = 16;
pCurHcb->HCS_Config = i91unvramp->NVM_SCSIInfo[0].NVM_ChConfig1;
pCurHcb->HCS_SCSI_ID = i91unvramp->NVM_SCSIInfo[0].NVM_ChSCSIID;
pCurHcb->HCS_IdMask = ~(1 << pCurHcb->HCS_SCSI_ID);
#ifdef CHK_PARITY
/* Enable parity error response */
TUL_WR(pCurHcb->HCS_Base + TUL_PCMD, TUL_RD(pCurHcb->HCS_Base, TUL_PCMD) | 0x40);
#endif
/* Mask all the interrupt */
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x1F);
tul_stop_bm(pCurHcb);
/* --- Initialize the tulip --- */
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_RST_CHIP);
/* program HBA's SCSI ID */
TUL_WR(pCurHcb->HCS_Base + TUL_SScsiId, pCurHcb->HCS_SCSI_ID << 4);
/* Enable Initiator Mode ,phase latch,alternate sync period mode,
disable SCSI reset */
if (pCurHcb->HCS_Config & HCC_EN_PAR)
pCurHcb->HCS_SConf1 = (TSC_INITDEFAULT | TSC_EN_SCSI_PAR);
else
pCurHcb->HCS_SConf1 = (TSC_INITDEFAULT);
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, pCurHcb->HCS_SConf1);
/* Enable HW reselect */
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, TSC_HW_RESELECT);
TUL_WR(pCurHcb->HCS_Base + TUL_SPeriod, 0);
/* selection time out = 250 ms */
TUL_WR(pCurHcb->HCS_Base + TUL_STimeOut, 153);
/*--------- Enable SCSI terminator -----*/
TUL_WR(pCurHcb->HCS_Base + TUL_XCtrl, (pCurHcb->HCS_Config & (HCC_ACT_TERM1 | HCC_ACT_TERM2)));
TUL_WR(pCurHcb->HCS_Base + TUL_GCTRL1,
((pCurHcb->HCS_Config & HCC_AUTO_TERM) >> 4) | (TUL_RD(pCurHcb->HCS_Base, TUL_GCTRL1) & 0xFE));
for (i = 0,
pwFlags = & (i91unvramp->NVM_SCSIInfo[0].NVM_Targ0Config),
pbHeads = pbBiosAdr + 0x180;
i < pCurHcb->HCS_MaxTar;
i++, pwFlags++) {
pCurHcb->HCS_Tcs[i].TCS_Flags = *pwFlags & ~(TCF_SYNC_DONE | TCF_WDTR_DONE);
if (pCurHcb->HCS_Tcs[i].TCS_Flags & TCF_EN_255)
pCurHcb->HCS_Tcs[i].TCS_DrvFlags = TCF_DRV_255_63;
else
pCurHcb->HCS_Tcs[i].TCS_DrvFlags = 0;
pCurHcb->HCS_Tcs[i].TCS_JS_Period = 0;
pCurHcb->HCS_Tcs[i].TCS_SConfig0 = pCurHcb->HCS_SConf1;
pCurHcb->HCS_Tcs[i].TCS_DrvHead = *pbHeads++;
if (pCurHcb->HCS_Tcs[i].TCS_DrvHead == 255)
pCurHcb->HCS_Tcs[i].TCS_DrvFlags = TCF_DRV_255_63;
else
pCurHcb->HCS_Tcs[i].TCS_DrvFlags = 0;
pCurHcb->HCS_Tcs[i].TCS_DrvSector = *pbHeads++;
pCurHcb->HCS_Tcs[i].TCS_Flags &= ~TCF_BUSY;
pCurHcb->HCS_ActTags[i] = 0;
pCurHcb->HCS_MaxTags[i] = 0xFF;
} /* for */
printk("i91u: PCI Base=0x%04X, IRQ=%d, BIOS=0x%04X0, SCSI ID=%d\n",
pCurHcb->HCS_Base, pCurHcb->HCS_Intr,
pCurHcb->HCS_BIOS, pCurHcb->HCS_SCSI_ID);
/*------------------- reset SCSI Bus ---------------------------*/
if (pCurHcb->HCS_Config & HCC_SCSI_RESET) {
printk("i91u: Reset SCSI Bus ... \n");
tul_reset_scsi(pCurHcb, seconds);
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCFG1, 0x17);
TUL_WR(pCurHcb->HCS_Base + TUL_SIntEnable, 0xE9);
return (0);
}
/***************************************************************************/
static SCB *tul_alloc_scb(HCS * hcsp)
{
SCB *pTmpScb;
ULONG flags;
spin_lock_irqsave(&(hcsp->HCS_AvailLock), flags);
if ((pTmpScb = hcsp->HCS_FirstAvail) != NULL) {
#if DEBUG_QUEUE
printk("find scb at %08lx\n", (ULONG) pTmpScb);
#endif
if ((hcsp->HCS_FirstAvail = pTmpScb->SCB_NxtScb) == NULL)
hcsp->HCS_LastAvail = NULL;
pTmpScb->SCB_NxtScb = NULL;
pTmpScb->SCB_Status = SCB_RENT;
}
spin_unlock_irqrestore(&(hcsp->HCS_AvailLock), flags);
return (pTmpScb);
}
/***************************************************************************/
static void tul_release_scb(HCS * hcsp, SCB * scbp)
{
ULONG flags;
#if DEBUG_QUEUE
printk("Release SCB %lx; ", (ULONG) scbp);
#endif
spin_lock_irqsave(&(hcsp->HCS_AvailLock), flags);
scbp->SCB_Srb = NULL;
scbp->SCB_Status = 0;
scbp->SCB_NxtScb = NULL;
if (hcsp->HCS_LastAvail != NULL) {
hcsp->HCS_LastAvail->SCB_NxtScb = scbp;
hcsp->HCS_LastAvail = scbp;
} else {
hcsp->HCS_FirstAvail = scbp;
hcsp->HCS_LastAvail = scbp;
}
spin_unlock_irqrestore(&(hcsp->HCS_AvailLock), flags);
}
/***************************************************************************/
static void tul_append_pend_scb(HCS * pCurHcb, SCB * scbp)
{
#if DEBUG_QUEUE
printk("Append pend SCB %lx; ", (ULONG) scbp);
#endif
scbp->SCB_Status = SCB_PEND;
scbp->SCB_NxtScb = NULL;
if (pCurHcb->HCS_LastPend != NULL) {
pCurHcb->HCS_LastPend->SCB_NxtScb = scbp;
pCurHcb->HCS_LastPend = scbp;
} else {
pCurHcb->HCS_FirstPend = scbp;
pCurHcb->HCS_LastPend = scbp;
}
}
/***************************************************************************/
static void tul_push_pend_scb(HCS * pCurHcb, SCB * scbp)
{
#if DEBUG_QUEUE
printk("Push pend SCB %lx; ", (ULONG) scbp);
#endif
scbp->SCB_Status = SCB_PEND;
if ((scbp->SCB_NxtScb = pCurHcb->HCS_FirstPend) != NULL) {
pCurHcb->HCS_FirstPend = scbp;
} else {
pCurHcb->HCS_FirstPend = scbp;
pCurHcb->HCS_LastPend = scbp;
}
}
/***************************************************************************/
static SCB *tul_find_first_pend_scb(HCS * pCurHcb)
{
SCB *pFirstPend;
pFirstPend = pCurHcb->HCS_FirstPend;
while (pFirstPend != NULL) {
if (pFirstPend->SCB_Opcode != ExecSCSI) {
return (pFirstPend);
}
if (pFirstPend->SCB_TagMsg == 0) {
if ((pCurHcb->HCS_ActTags[pFirstPend->SCB_Target] == 0) &&
!(pCurHcb->HCS_Tcs[pFirstPend->SCB_Target].TCS_Flags & TCF_BUSY)) {
return (pFirstPend);
}
} else {
if ((pCurHcb->HCS_ActTags[pFirstPend->SCB_Target] >=
pCurHcb->HCS_MaxTags[pFirstPend->SCB_Target]) |
(pCurHcb->HCS_Tcs[pFirstPend->SCB_Target].TCS_Flags & TCF_BUSY)) {
pFirstPend = pFirstPend->SCB_NxtScb;
continue;
}
return (pFirstPend);
}
pFirstPend = pFirstPend->SCB_NxtScb;
}
return (pFirstPend);
}
/***************************************************************************/
static void tul_unlink_pend_scb(HCS * pCurHcb, SCB * pCurScb)
{
SCB *pTmpScb, *pPrevScb;
#if DEBUG_QUEUE
printk("unlink pend SCB %lx; ", (ULONG) pCurScb);
#endif
pPrevScb = pTmpScb = pCurHcb->HCS_FirstPend;
while (pTmpScb != NULL) {
if (pCurScb == pTmpScb) { /* Unlink this SCB */
if (pTmpScb == pCurHcb->HCS_FirstPend) {
if ((pCurHcb->HCS_FirstPend = pTmpScb->SCB_NxtScb) == NULL)
pCurHcb->HCS_LastPend = NULL;
} else {
pPrevScb->SCB_NxtScb = pTmpScb->SCB_NxtScb;
if (pTmpScb == pCurHcb->HCS_LastPend)
pCurHcb->HCS_LastPend = pPrevScb;
}
pTmpScb->SCB_NxtScb = NULL;
break;
}
pPrevScb = pTmpScb;
pTmpScb = pTmpScb->SCB_NxtScb;
}
return;
}
/***************************************************************************/
static void tul_append_busy_scb(HCS * pCurHcb, SCB * scbp)
{
#if DEBUG_QUEUE
printk("append busy SCB %lx; ", (ULONG) scbp);
#endif
if (scbp->SCB_TagMsg)
pCurHcb->HCS_ActTags[scbp->SCB_Target]++;
else
pCurHcb->HCS_Tcs[scbp->SCB_Target].TCS_Flags |= TCF_BUSY;
scbp->SCB_Status = SCB_BUSY;
scbp->SCB_NxtScb = NULL;
if (pCurHcb->HCS_LastBusy != NULL) {
pCurHcb->HCS_LastBusy->SCB_NxtScb = scbp;
pCurHcb->HCS_LastBusy = scbp;
} else {
pCurHcb->HCS_FirstBusy = scbp;
pCurHcb->HCS_LastBusy = scbp;
}
}
/***************************************************************************/
static SCB *tul_pop_busy_scb(HCS * pCurHcb)
{
SCB *pTmpScb;
if ((pTmpScb = pCurHcb->HCS_FirstBusy) != NULL) {
if ((pCurHcb->HCS_FirstBusy = pTmpScb->SCB_NxtScb) == NULL)
pCurHcb->HCS_LastBusy = NULL;
pTmpScb->SCB_NxtScb = NULL;
if (pTmpScb->SCB_TagMsg)
pCurHcb->HCS_ActTags[pTmpScb->SCB_Target]--;
else
pCurHcb->HCS_Tcs[pTmpScb->SCB_Target].TCS_Flags &= ~TCF_BUSY;
}
#if DEBUG_QUEUE
printk("Pop busy SCB %lx; ", (ULONG) pTmpScb);
#endif
return (pTmpScb);
}
/***************************************************************************/
static void tul_unlink_busy_scb(HCS * pCurHcb, SCB * pCurScb)
{
SCB *pTmpScb, *pPrevScb;
#if DEBUG_QUEUE
printk("unlink busy SCB %lx; ", (ULONG) pCurScb);
#endif
pPrevScb = pTmpScb = pCurHcb->HCS_FirstBusy;
while (pTmpScb != NULL) {
if (pCurScb == pTmpScb) { /* Unlink this SCB */
if (pTmpScb == pCurHcb->HCS_FirstBusy) {
if ((pCurHcb->HCS_FirstBusy = pTmpScb->SCB_NxtScb) == NULL)
pCurHcb->HCS_LastBusy = NULL;
} else {
pPrevScb->SCB_NxtScb = pTmpScb->SCB_NxtScb;
if (pTmpScb == pCurHcb->HCS_LastBusy)
pCurHcb->HCS_LastBusy = pPrevScb;
}
pTmpScb->SCB_NxtScb = NULL;
if (pTmpScb->SCB_TagMsg)
pCurHcb->HCS_ActTags[pTmpScb->SCB_Target]--;
else
pCurHcb->HCS_Tcs[pTmpScb->SCB_Target].TCS_Flags &= ~TCF_BUSY;
break;
}
pPrevScb = pTmpScb;
pTmpScb = pTmpScb->SCB_NxtScb;
}
return;
}
/***************************************************************************/
SCB *tul_find_busy_scb(HCS * pCurHcb, WORD tarlun)
{
SCB *pTmpScb, *pPrevScb;
WORD scbp_tarlun;
pPrevScb = pTmpScb = pCurHcb->HCS_FirstBusy;
while (pTmpScb != NULL) {
scbp_tarlun = (pTmpScb->SCB_Lun << 8) | (pTmpScb->SCB_Target);
if (scbp_tarlun == tarlun) { /* Unlink this SCB */
break;
}
pPrevScb = pTmpScb;
pTmpScb = pTmpScb->SCB_NxtScb;
}
#if DEBUG_QUEUE
printk("find busy SCB %lx; ", (ULONG) pTmpScb);
#endif
return (pTmpScb);
}
/***************************************************************************/
static void tul_append_done_scb(HCS * pCurHcb, SCB * scbp)
{
#if DEBUG_QUEUE
printk("append done SCB %lx; ", (ULONG) scbp);
#endif
scbp->SCB_Status = SCB_DONE;
scbp->SCB_NxtScb = NULL;
if (pCurHcb->HCS_LastDone != NULL) {
pCurHcb->HCS_LastDone->SCB_NxtScb = scbp;
pCurHcb->HCS_LastDone = scbp;
} else {
pCurHcb->HCS_FirstDone = scbp;
pCurHcb->HCS_LastDone = scbp;
}
}
/***************************************************************************/
SCB *tul_find_done_scb(HCS * pCurHcb)
{
SCB *pTmpScb;
if ((pTmpScb = pCurHcb->HCS_FirstDone) != NULL) {
if ((pCurHcb->HCS_FirstDone = pTmpScb->SCB_NxtScb) == NULL)
pCurHcb->HCS_LastDone = NULL;
pTmpScb->SCB_NxtScb = NULL;
}
#if DEBUG_QUEUE
printk("find done SCB %lx; ", (ULONG) pTmpScb);
#endif
return (pTmpScb);
}
/***************************************************************************/
static int tul_abort_srb(HCS * pCurHcb, struct scsi_cmnd *srbp)
{
ULONG flags;
SCB *pTmpScb, *pPrevScb;
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
if ((pCurHcb->HCS_Semaph == 0) && (pCurHcb->HCS_ActScb == NULL)) {
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x1F);
/* disable Jasmin SCSI Int */
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
tulip_main(pCurHcb);
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
pCurHcb->HCS_Semaph = 1;
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x0F);
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_ABORT_SNOOZE;
}
pPrevScb = pTmpScb = pCurHcb->HCS_FirstPend; /* Check Pend queue */
while (pTmpScb != NULL) {
/* 07/27/98 */
if (pTmpScb->SCB_Srb == srbp) {
if (pTmpScb == pCurHcb->HCS_ActScb) {
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_ABORT_BUSY;
} else if (pTmpScb == pCurHcb->HCS_FirstPend) {
if ((pCurHcb->HCS_FirstPend = pTmpScb->SCB_NxtScb) == NULL)
pCurHcb->HCS_LastPend = NULL;
} else {
pPrevScb->SCB_NxtScb = pTmpScb->SCB_NxtScb;
if (pTmpScb == pCurHcb->HCS_LastPend)
pCurHcb->HCS_LastPend = pPrevScb;
}
pTmpScb->SCB_HaStat = HOST_ABORTED;
pTmpScb->SCB_Flags |= SCF_DONE;
if (pTmpScb->SCB_Flags & SCF_POST)
(*pTmpScb->SCB_Post) ((BYTE *) pCurHcb, (BYTE *) pTmpScb);
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_ABORT_SUCCESS;
}
pPrevScb = pTmpScb;
pTmpScb = pTmpScb->SCB_NxtScb;
}
pPrevScb = pTmpScb = pCurHcb->HCS_FirstBusy; /* Check Busy queue */
while (pTmpScb != NULL) {
if (pTmpScb->SCB_Srb == srbp) {
if (pTmpScb == pCurHcb->HCS_ActScb) {
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_ABORT_BUSY;
} else if (pTmpScb->SCB_TagMsg == 0) {
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_ABORT_BUSY;
} else {
pCurHcb->HCS_ActTags[pTmpScb->SCB_Target]--;
if (pTmpScb == pCurHcb->HCS_FirstBusy) {
if ((pCurHcb->HCS_FirstBusy = pTmpScb->SCB_NxtScb) == NULL)
pCurHcb->HCS_LastBusy = NULL;
} else {
pPrevScb->SCB_NxtScb = pTmpScb->SCB_NxtScb;
if (pTmpScb == pCurHcb->HCS_LastBusy)
pCurHcb->HCS_LastBusy = pPrevScb;
}
pTmpScb->SCB_NxtScb = NULL;
pTmpScb->SCB_HaStat = HOST_ABORTED;
pTmpScb->SCB_Flags |= SCF_DONE;
if (pTmpScb->SCB_Flags & SCF_POST)
(*pTmpScb->SCB_Post) ((BYTE *) pCurHcb, (BYTE *) pTmpScb);
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_ABORT_SUCCESS;
}
}
pPrevScb = pTmpScb;
pTmpScb = pTmpScb->SCB_NxtScb;
}
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return (SCSI_ABORT_NOT_RUNNING);
}
/***************************************************************************/
static int tul_bad_seq(HCS * pCurHcb)
{
SCB *pCurScb;
printk("tul_bad_seg c=%d\n", pCurHcb->HCS_Index);
if ((pCurScb = pCurHcb->HCS_ActScb) != NULL) {
tul_unlink_busy_scb(pCurHcb, pCurScb);
pCurScb->SCB_HaStat = HOST_BAD_PHAS;
pCurScb->SCB_TaStat = 0;
tul_append_done_scb(pCurHcb, pCurScb);
}
tul_stop_bm(pCurHcb);
tul_reset_scsi(pCurHcb, 8); /* 7/29/98 */
return (tul_post_scsi_rst(pCurHcb));
}
#if 0
/************************************************************************/
static int tul_device_reset(HCS * pCurHcb, struct scsi_cmnd *pSrb,
unsigned int target, unsigned int ResetFlags)
{
ULONG flags;
SCB *pScb;
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
if (ResetFlags & SCSI_RESET_ASYNCHRONOUS) {
if ((pCurHcb->HCS_Semaph == 0) && (pCurHcb->HCS_ActScb == NULL)) {
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x1F);
/* disable Jasmin SCSI Int */
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
tulip_main(pCurHcb);
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
pCurHcb->HCS_Semaph = 1;
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x0F);
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_RESET_SNOOZE;
}
pScb = pCurHcb->HCS_FirstBusy; /* Check Busy queue */
while (pScb != NULL) {
if (pScb->SCB_Srb == pSrb)
break;
pScb = pScb->SCB_NxtScb;
}
if (pScb == NULL) {
printk("Unable to Reset - No SCB Found\n");
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_RESET_NOT_RUNNING;
}
}
if ((pScb = tul_alloc_scb(pCurHcb)) == NULL) {
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_RESET_NOT_RUNNING;
}
pScb->SCB_Opcode = BusDevRst;
pScb->SCB_Flags = SCF_POST;
pScb->SCB_Target = target;
pScb->SCB_Mode = 0;
pScb->SCB_Srb = NULL;
if (ResetFlags & SCSI_RESET_SYNCHRONOUS) {
pScb->SCB_Srb = pSrb;
}
tul_push_pend_scb(pCurHcb, pScb); /* push this SCB to Pending queue */
if (pCurHcb->HCS_Semaph == 1) {
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x1F);
/* disable Jasmin SCSI Int */
pCurHcb->HCS_Semaph = 0;
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
tulip_main(pCurHcb);
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
pCurHcb->HCS_Semaph = 1;
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x0F);
}
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return SCSI_RESET_PENDING;
}
static int tul_reset_scsi_bus(HCS * pCurHcb)
{
ULONG flags;
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x1F);
pCurHcb->HCS_Semaph = 0;
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
tul_stop_bm(pCurHcb);
tul_reset_scsi(pCurHcb, 2); /* 7/29/98 */
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
tul_post_scsi_rst(pCurHcb);
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
tulip_main(pCurHcb);
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
pCurHcb->HCS_Semaph = 1;
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x0F);
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return (SCSI_RESET_SUCCESS | SCSI_RESET_HOST_RESET);
}
#endif /* 0 */
/************************************************************************/
static void tul_exec_scb(HCS * pCurHcb, SCB * pCurScb)
{
ULONG flags;
pCurScb->SCB_Mode = 0;
pCurScb->SCB_SGIdx = 0;
pCurScb->SCB_SGMax = pCurScb->SCB_SGLen;
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
tul_append_pend_scb(pCurHcb, pCurScb); /* Append this SCB to Pending queue */
/* VVVVV 07/21/98 */
if (pCurHcb->HCS_Semaph == 1) {
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x1F);
/* disable Jasmin SCSI Int */
pCurHcb->HCS_Semaph = 0;
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
tulip_main(pCurHcb);
spin_lock_irqsave(&(pCurHcb->HCS_SemaphLock), flags);
pCurHcb->HCS_Semaph = 1;
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x0F);
}
spin_unlock_irqrestore(&(pCurHcb->HCS_SemaphLock), flags);
return;
}
/***************************************************************************/
static int tul_isr(HCS * pCurHcb)
{
/* Enter critical section */
if (TUL_RD(pCurHcb->HCS_Base, TUL_Int) & TSS_INT_PENDING) {
if (pCurHcb->HCS_Semaph == 1) {
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x1F);
/* Disable Tulip SCSI Int */
pCurHcb->HCS_Semaph = 0;
tulip_main(pCurHcb);
pCurHcb->HCS_Semaph = 1;
TUL_WR(pCurHcb->HCS_Base + TUL_Mask, 0x0F);
return (1);
}
}
return (0);
}
/***************************************************************************/
int tulip_main(HCS * pCurHcb)
{
SCB *pCurScb;
for (;;) {
tulip_scsi(pCurHcb); /* Call tulip_scsi */
while ((pCurScb = tul_find_done_scb(pCurHcb)) != NULL) { /* find done entry */
if (pCurScb->SCB_TaStat == INI_QUEUE_FULL) {
pCurHcb->HCS_MaxTags[pCurScb->SCB_Target] =
pCurHcb->HCS_ActTags[pCurScb->SCB_Target] - 1;
pCurScb->SCB_TaStat = 0;
tul_append_pend_scb(pCurHcb, pCurScb);
continue;
}
if (!(pCurScb->SCB_Mode & SCM_RSENS)) { /* not in auto req. sense mode */
if (pCurScb->SCB_TaStat == 2) {
/* clr sync. nego flag */
if (pCurScb->SCB_Flags & SCF_SENSE) {
BYTE len;
len = pCurScb->SCB_SenseLen;
if (len == 0)
len = 1;
pCurScb->SCB_BufLen = pCurScb->SCB_SenseLen;
pCurScb->SCB_BufPtr = pCurScb->SCB_SensePtr;
pCurScb->SCB_Flags &= ~(SCF_SG | SCF_DIR); /* for xfer_data_in */
/* pCurScb->SCB_Flags |= SCF_NO_DCHK; */
/* so, we won't report worng direction in xfer_data_in,
and won't report HOST_DO_DU in state_6 */
pCurScb->SCB_Mode = SCM_RSENS;
pCurScb->SCB_Ident &= 0xBF; /* Disable Disconnect */
pCurScb->SCB_TagMsg = 0;
pCurScb->SCB_TaStat = 0;
pCurScb->SCB_CDBLen = 6;
pCurScb->SCB_CDB[0] = SCSICMD_RequestSense;
pCurScb->SCB_CDB[1] = 0;
pCurScb->SCB_CDB[2] = 0;
pCurScb->SCB_CDB[3] = 0;
pCurScb->SCB_CDB[4] = len;
pCurScb->SCB_CDB[5] = 0;
tul_push_pend_scb(pCurHcb, pCurScb);
break;
}
}
} else { /* in request sense mode */
if (pCurScb->SCB_TaStat == 2) { /* check contition status again after sending
requset sense cmd 0x3 */
pCurScb->SCB_HaStat = HOST_BAD_PHAS;
}
pCurScb->SCB_TaStat = 2;
}
pCurScb->SCB_Flags |= SCF_DONE;
if (pCurScb->SCB_Flags & SCF_POST) {
(*pCurScb->SCB_Post) ((BYTE *) pCurHcb, (BYTE *) pCurScb);
}
} /* while */
/* find_active: */
if (TUL_RD(pCurHcb->HCS_Base, TUL_SStatus0) & TSS_INT_PENDING)
continue;
if (pCurHcb->HCS_ActScb) { /* return to OS and wait for xfer_done_ISR/Selected_ISR */
return 1; /* return to OS, enable interrupt */
}
/* Check pending SCB */
if (tul_find_first_pend_scb(pCurHcb) == NULL) {
return 1; /* return to OS, enable interrupt */
}
} /* End of for loop */
/* statement won't reach here */
}
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
/***************************************************************************/
/***************************************************************************/
/***************************************************************************/
/***************************************************************************/
/***************************************************************************/
void tulip_scsi(HCS * pCurHcb)
{
SCB *pCurScb;
TCS *pCurTcb;
/* make sure to service interrupt asap */
if ((pCurHcb->HCS_JSStatus0 = TUL_RD(pCurHcb->HCS_Base, TUL_SStatus0)) & TSS_INT_PENDING) {
pCurHcb->HCS_Phase = pCurHcb->HCS_JSStatus0 & TSS_PH_MASK;
pCurHcb->HCS_JSStatus1 = TUL_RD(pCurHcb->HCS_Base, TUL_SStatus1);
pCurHcb->HCS_JSInt = TUL_RD(pCurHcb->HCS_Base, TUL_SInt);
if (pCurHcb->HCS_JSInt & TSS_SCSIRST_INT) { /* SCSI bus reset detected */
int_tul_scsi_rst(pCurHcb);
return;
}
if (pCurHcb->HCS_JSInt & TSS_RESEL_INT) { /* if selected/reselected interrupt */
if (int_tul_resel(pCurHcb) == 0)
tul_next_state(pCurHcb);
return;
}
if (pCurHcb->HCS_JSInt & TSS_SEL_TIMEOUT) {
int_tul_busfree(pCurHcb);
return;
}
if (pCurHcb->HCS_JSInt & TSS_DISC_INT) { /* BUS disconnection */
int_tul_busfree(pCurHcb); /* unexpected bus free or sel timeout */
return;
}
if (pCurHcb->HCS_JSInt & (TSS_FUNC_COMP | TSS_BUS_SERV)) { /* func complete or Bus service */
if ((pCurScb = pCurHcb->HCS_ActScb) != NULL)
tul_next_state(pCurHcb);
return;
}
}
if (pCurHcb->HCS_ActScb != NULL)
return;
if ((pCurScb = tul_find_first_pend_scb(pCurHcb)) == NULL)
return;
/* program HBA's SCSI ID & target SCSI ID */
TUL_WR(pCurHcb->HCS_Base + TUL_SScsiId,
(pCurHcb->HCS_SCSI_ID << 4) | (pCurScb->SCB_Target & 0x0F));
if (pCurScb->SCB_Opcode == ExecSCSI) {
pCurTcb = &pCurHcb->HCS_Tcs[pCurScb->SCB_Target];
if (pCurScb->SCB_TagMsg)
pCurTcb->TCS_DrvFlags |= TCF_DRV_EN_TAG;
else
pCurTcb->TCS_DrvFlags &= ~TCF_DRV_EN_TAG;
TUL_WR(pCurHcb->HCS_Base + TUL_SPeriod, pCurTcb->TCS_JS_Period);
if ((pCurTcb->TCS_Flags & (TCF_WDTR_DONE | TCF_NO_WDTR)) == 0) { /* do wdtr negotiation */
tul_select_atn_stop(pCurHcb, pCurScb);
} else {
if ((pCurTcb->TCS_Flags & (TCF_SYNC_DONE | TCF_NO_SYNC_NEGO)) == 0) { /* do sync negotiation */
tul_select_atn_stop(pCurHcb, pCurScb);
} else {
if (pCurScb->SCB_TagMsg)
tul_select_atn3(pCurHcb, pCurScb);
else
tul_select_atn(pCurHcb, pCurScb);
}
}
if (pCurScb->SCB_Flags & SCF_POLL) {
while (wait_tulip(pCurHcb) != -1) {
if (tul_next_state(pCurHcb) == -1)
break;
}
}
} else if (pCurScb->SCB_Opcode == BusDevRst) {
tul_select_atn_stop(pCurHcb, pCurScb);
pCurScb->SCB_NxtStat = 8;
if (pCurScb->SCB_Flags & SCF_POLL) {
while (wait_tulip(pCurHcb) != -1) {
if (tul_next_state(pCurHcb) == -1)
break;
}
}
} else if (pCurScb->SCB_Opcode == AbortCmd) {
if (tul_abort_srb(pCurHcb, pCurScb->SCB_Srb) != 0) {
tul_unlink_pend_scb(pCurHcb, pCurScb);
tul_release_scb(pCurHcb, pCurScb);
} else {
pCurScb->SCB_Opcode = BusDevRst;
tul_select_atn_stop(pCurHcb, pCurScb);
pCurScb->SCB_NxtStat = 8;
}
/* 08/03/98 */
} else {
tul_unlink_pend_scb(pCurHcb, pCurScb);
pCurScb->SCB_HaStat = 0x16; /* bad command */
tul_append_done_scb(pCurHcb, pCurScb);
}
return;
}
/***************************************************************************/
int tul_next_state(HCS * pCurHcb)
{
int next;
next = pCurHcb->HCS_ActScb->SCB_NxtStat;
for (;;) {
switch (next) {
case 1:
next = tul_state_1(pCurHcb);
break;
case 2:
next = tul_state_2(pCurHcb);
break;
case 3:
next = tul_state_3(pCurHcb);
break;
case 4:
next = tul_state_4(pCurHcb);
break;
case 5:
next = tul_state_5(pCurHcb);
break;
case 6:
next = tul_state_6(pCurHcb);
break;
case 7:
next = tul_state_7(pCurHcb);
break;
case 8:
return (tul_bus_device_reset(pCurHcb));
default:
return (tul_bad_seq(pCurHcb));
}
if (next <= 0)
return next;
}
}
/***************************************************************************/
/* sTate after selection with attention & stop */
int tul_state_1(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
TCS *pCurTcb = pCurHcb->HCS_ActTcs;
#if DEBUG_STATE
printk("-s1-");
#endif
tul_unlink_pend_scb(pCurHcb, pCurScb);
tul_append_busy_scb(pCurHcb, pCurScb);
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, pCurTcb->TCS_SConfig0);
/* ATN on */
if (pCurHcb->HCS_Phase == MSG_OUT) {
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, (TSC_EN_BUS_IN | TSC_HW_RESELECT));
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_Ident);
if (pCurScb->SCB_TagMsg) {
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_TagMsg);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_TagId);
}
if ((pCurTcb->TCS_Flags & (TCF_WDTR_DONE | TCF_NO_WDTR)) == 0) {
pCurTcb->TCS_Flags |= TCF_WDTR_DONE;
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_EXTEND);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 2); /* Extended msg length */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 3); /* Sync request */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 1); /* Start from 16 bits */
} else if ((pCurTcb->TCS_Flags & (TCF_SYNC_DONE | TCF_NO_SYNC_NEGO)) == 0) {
pCurTcb->TCS_Flags |= TCF_SYNC_DONE;
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_EXTEND);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 3); /* extended msg length */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 1); /* sync request */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, tul_rate_tbl[pCurTcb->TCS_Flags & TCF_SCSI_RATE]);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MAX_OFFSET); /* REQ/ACK offset */
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if (wait_tulip(pCurHcb) == -1)
return (-1);
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, (TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)));
return (3);
}
/***************************************************************************/
/* state after selection with attention */
/* state after selection with attention3 */
int tul_state_2(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
TCS *pCurTcb = pCurHcb->HCS_ActTcs;
#if DEBUG_STATE
printk("-s2-");
#endif
tul_unlink_pend_scb(pCurHcb, pCurScb);
tul_append_busy_scb(pCurHcb, pCurScb);
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, pCurTcb->TCS_SConfig0);
if (pCurHcb->HCS_JSStatus1 & TSS_CMD_PH_CMP) {
return (4);
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, (TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)));
return (3);
}
/***************************************************************************/
/* state before CDB xfer is done */
int tul_state_3(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
TCS *pCurTcb = pCurHcb->HCS_ActTcs;
int i;
#if DEBUG_STATE
printk("-s3-");
#endif
for (;;) {
switch (pCurHcb->HCS_Phase) {
case CMD_OUT: /* Command out phase */
for (i = 0; i < (int) pCurScb->SCB_CDBLen; i++)
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_CDB[i]);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if (wait_tulip(pCurHcb) == -1)
return (-1);
if (pCurHcb->HCS_Phase == CMD_OUT) {
return (tul_bad_seq(pCurHcb));
}
return (4);
case MSG_IN: /* Message in phase */
pCurScb->SCB_NxtStat = 3;
if (tul_msgin(pCurHcb) == -1)
return (-1);
break;
case STATUS_IN: /* Status phase */
if (tul_status_msg(pCurHcb) == -1)
return (-1);
break;
case MSG_OUT: /* Message out phase */
if (pCurTcb->TCS_Flags & (TCF_SYNC_DONE | TCF_NO_SYNC_NEGO)) {
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_NOP); /* msg nop */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if (wait_tulip(pCurHcb) == -1)
return (-1);
} else {
pCurTcb->TCS_Flags |= TCF_SYNC_DONE;
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_EXTEND);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 3); /* ext. msg len */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 1); /* sync request */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, tul_rate_tbl[pCurTcb->TCS_Flags & TCF_SCSI_RATE]);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MAX_OFFSET); /* REQ/ACK offset */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if (wait_tulip(pCurHcb) == -1)
return (-1);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7));
}
break;
default:
return (tul_bad_seq(pCurHcb));
}
}
}
/***************************************************************************/
int tul_state_4(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
#if DEBUG_STATE
printk("-s4-");
#endif
if ((pCurScb->SCB_Flags & SCF_DIR) == SCF_NO_XF) {
return (6); /* Go to state 6 */
}
for (;;) {
if (pCurScb->SCB_BufLen == 0)
return (6); /* Go to state 6 */
switch (pCurHcb->HCS_Phase) {
case STATUS_IN: /* Status phase */
if ((pCurScb->SCB_Flags & SCF_DIR) != 0) { /* if direction bit set then report data underrun */
pCurScb->SCB_HaStat = HOST_DO_DU;
}
if ((tul_status_msg(pCurHcb)) == -1)
return (-1);
break;
case MSG_IN: /* Message in phase */
pCurScb->SCB_NxtStat = 0x4;
if (tul_msgin(pCurHcb) == -1)
return (-1);
break;
case MSG_OUT: /* Message out phase */
if (pCurHcb->HCS_JSStatus0 & TSS_PAR_ERROR) {
pCurScb->SCB_BufLen = 0;
pCurScb->SCB_HaStat = HOST_DO_DU;
if (tul_msgout_ide(pCurHcb) == -1)
return (-1);
return (6); /* Go to state 6 */
} else {
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_NOP); /* msg nop */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if (wait_tulip(pCurHcb) == -1)
return (-1);
}
break;
case DATA_IN: /* Data in phase */
return (tul_xfer_data_in(pCurHcb));
case DATA_OUT: /* Data out phase */
return (tul_xfer_data_out(pCurHcb));
default:
return (tul_bad_seq(pCurHcb));
}
}
}
/***************************************************************************/
/* state after dma xfer done or phase change before xfer done */
int tul_state_5(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
long cnt, xcnt; /* cannot use unsigned !! code: if (xcnt < 0) */
#if DEBUG_STATE
printk("-s5-");
#endif
/*------ get remaining count -------*/
cnt = TUL_RDLONG(pCurHcb->HCS_Base, TUL_SCnt0) & 0x0FFFFFF;
if (TUL_RD(pCurHcb->HCS_Base, TUL_XCmd) & 0x20) {
/* ----------------------- DATA_IN ----------------------------- */
/* check scsi parity error */
if (pCurHcb->HCS_JSStatus0 & TSS_PAR_ERROR) {
pCurScb->SCB_HaStat = HOST_DO_DU;
}
if (TUL_RD(pCurHcb->HCS_Base, TUL_XStatus) & XPEND) { /* DMA xfer pending, Send STOP */
/* tell Hardware scsi xfer has been terminated */
TUL_WR(pCurHcb->HCS_Base + TUL_XCtrl, TUL_RD(pCurHcb->HCS_Base, TUL_XCtrl) | 0x80);
/* wait until DMA xfer not pending */
while (TUL_RD(pCurHcb->HCS_Base, TUL_XStatus) & XPEND);
}
} else {
/*-------- DATA OUT -----------*/
if ((TUL_RD(pCurHcb->HCS_Base, TUL_SStatus1) & TSS_XFER_CMP) == 0) {
if (pCurHcb->HCS_ActTcs->TCS_JS_Period & TSC_WIDE_SCSI)
cnt += (TUL_RD(pCurHcb->HCS_Base, TUL_SFifoCnt) & 0x1F) << 1;
else
cnt += (TUL_RD(pCurHcb->HCS_Base, TUL_SFifoCnt) & 0x1F);
}
if (TUL_RD(pCurHcb->HCS_Base, TUL_XStatus) & XPEND) { /* if DMA xfer is pending, abort DMA xfer */
TUL_WR(pCurHcb->HCS_Base + TUL_XCmd, TAX_X_ABT);
/* wait Abort DMA xfer done */
while ((TUL_RD(pCurHcb->HCS_Base, TUL_Int) & XABT) == 0);
}
if ((cnt == 1) && (pCurHcb->HCS_Phase == DATA_OUT)) {
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if (wait_tulip(pCurHcb) == -1) {
return (-1);
}
cnt = 0;
} else {
if ((TUL_RD(pCurHcb->HCS_Base, TUL_SStatus1) & TSS_XFER_CMP) == 0)
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
}
}
if (cnt == 0) {
pCurScb->SCB_BufLen = 0;
return (6); /* Go to state 6 */
}
/* Update active data pointer */
xcnt = (long) pCurScb->SCB_BufLen - cnt; /* xcnt== bytes already xferred */
pCurScb->SCB_BufLen = (U32) cnt; /* cnt == bytes left to be xferred */
if (pCurScb->SCB_Flags & SCF_SG) {
register SG *sgp;
ULONG i;
sgp = &pCurScb->SCB_SGList[pCurScb->SCB_SGIdx];
for (i = pCurScb->SCB_SGIdx; i < pCurScb->SCB_SGMax; sgp++, i++) {
xcnt -= (long) sgp->SG_Len;
if (xcnt < 0) { /* this sgp xfer half done */
xcnt += (long) sgp->SG_Len; /* xcnt == bytes xferred in this sgp */
sgp->SG_Ptr += (U32) xcnt; /* new ptr to be xfer */
sgp->SG_Len -= (U32) xcnt; /* new len to be xfer */
pCurScb->SCB_BufPtr += ((U32) (i - pCurScb->SCB_SGIdx) << 3);
/* new SG table ptr */
pCurScb->SCB_SGLen = (BYTE) (pCurScb->SCB_SGMax - i);
/* new SG table len */
pCurScb->SCB_SGIdx = (WORD) i;
/* for next disc and come in this loop */
return (4); /* Go to state 4 */
}
/* else (xcnt >= 0 , i.e. this sgp already xferred */
} /* for */
return (6); /* Go to state 6 */
} else {
pCurScb->SCB_BufPtr += (U32) xcnt;
}
return (4); /* Go to state 4 */
}
/***************************************************************************/
/* state after Data phase */
int tul_state_6(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
#if DEBUG_STATE
printk("-s6-");
#endif
for (;;) {
switch (pCurHcb->HCS_Phase) {
case STATUS_IN: /* Status phase */
if ((tul_status_msg(pCurHcb)) == -1)
return (-1);
break;
case MSG_IN: /* Message in phase */
pCurScb->SCB_NxtStat = 6;
if ((tul_msgin(pCurHcb)) == -1)
return (-1);
break;
case MSG_OUT: /* Message out phase */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_NOP); /* msg nop */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if (wait_tulip(pCurHcb) == -1)
return (-1);
break;
case DATA_IN: /* Data in phase */
return (tul_xpad_in(pCurHcb));
case DATA_OUT: /* Data out phase */
return (tul_xpad_out(pCurHcb));
default:
return (tul_bad_seq(pCurHcb));
}
}
}
/***************************************************************************/
int tul_state_7(HCS * pCurHcb)
{
int cnt, i;
#if DEBUG_STATE
printk("-s7-");
#endif
/* flush SCSI FIFO */
cnt = TUL_RD(pCurHcb->HCS_Base, TUL_SFifoCnt) & 0x1F;
if (cnt) {
for (i = 0; i < cnt; i++)
TUL_RD(pCurHcb->HCS_Base, TUL_SFifo);
}
switch (pCurHcb->HCS_Phase) {
case DATA_IN: /* Data in phase */
case DATA_OUT: /* Data out phase */
return (tul_bad_seq(pCurHcb));
default:
return (6); /* Go to state 6 */
}
}
/***************************************************************************/
int tul_xfer_data_in(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
if ((pCurScb->SCB_Flags & SCF_DIR) == SCF_DOUT) {
return (6); /* wrong direction */
}
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, pCurScb->SCB_BufLen);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_DMA_IN); /* 7/25/95 */
if (pCurScb->SCB_Flags & SCF_SG) { /* S/G xfer */
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XCntH, ((ULONG) pCurScb->SCB_SGLen) << 3);
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XAddH, pCurScb->SCB_BufPtr);
TUL_WR(pCurHcb->HCS_Base + TUL_XCmd, TAX_SG_IN);
} else {
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XCntH, pCurScb->SCB_BufLen);
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XAddH, pCurScb->SCB_BufPtr);
TUL_WR(pCurHcb->HCS_Base + TUL_XCmd, TAX_X_IN);
}
pCurScb->SCB_NxtStat = 0x5;
return (0); /* return to OS, wait xfer done , let jas_isr come in */
}
/***************************************************************************/
int tul_xfer_data_out(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
if ((pCurScb->SCB_Flags & SCF_DIR) == SCF_DIN) {
return (6); /* wrong direction */
}
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, pCurScb->SCB_BufLen);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_DMA_OUT);
if (pCurScb->SCB_Flags & SCF_SG) { /* S/G xfer */
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XCntH, ((ULONG) pCurScb->SCB_SGLen) << 3);
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XAddH, pCurScb->SCB_BufPtr);
TUL_WR(pCurHcb->HCS_Base + TUL_XCmd, TAX_SG_OUT);
} else {
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XCntH, pCurScb->SCB_BufLen);
TUL_WRLONG(pCurHcb->HCS_Base + TUL_XAddH, pCurScb->SCB_BufPtr);
TUL_WR(pCurHcb->HCS_Base + TUL_XCmd, TAX_X_OUT);
}
pCurScb->SCB_NxtStat = 0x5;
return (0); /* return to OS, wait xfer done , let jas_isr come in */
}
/***************************************************************************/
int tul_xpad_in(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
TCS *pCurTcb = pCurHcb->HCS_ActTcs;
if ((pCurScb->SCB_Flags & SCF_DIR) != SCF_NO_DCHK) {
pCurScb->SCB_HaStat = HOST_DO_DU; /* over run */
}
for (;;) {
if (pCurTcb->TCS_JS_Period & TSC_WIDE_SCSI)
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 2);
else
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_IN);
if ((wait_tulip(pCurHcb)) == -1) {
return (-1);
}
if (pCurHcb->HCS_Phase != DATA_IN) {
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
return (6);
}
TUL_RD(pCurHcb->HCS_Base, TUL_SFifo);
}
}
int tul_xpad_out(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
TCS *pCurTcb = pCurHcb->HCS_ActTcs;
if ((pCurScb->SCB_Flags & SCF_DIR) != SCF_NO_DCHK) {
pCurScb->SCB_HaStat = HOST_DO_DU; /* over run */
}
for (;;) {
if (pCurTcb->TCS_JS_Period & TSC_WIDE_SCSI)
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 2);
else
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 0);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
if ((wait_tulip(pCurHcb)) == -1) {
return (-1);
}
if (pCurHcb->HCS_Phase != DATA_OUT) { /* Disable wide CPU to allow read 16 bits */
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, TSC_HW_RESELECT);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
return (6);
}
}
}
/***************************************************************************/
int tul_status_msg(HCS * pCurHcb)
{ /* status & MSG_IN */
SCB *pCurScb = pCurHcb->HCS_ActScb;
BYTE msg;
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_CMD_COMP);
if ((wait_tulip(pCurHcb)) == -1) {
return (-1);
}
/* get status */
pCurScb->SCB_TaStat = TUL_RD(pCurHcb->HCS_Base, TUL_SFifo);
if (pCurHcb->HCS_Phase == MSG_OUT) {
if (pCurHcb->HCS_JSStatus0 & TSS_PAR_ERROR) {
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_PARITY);
} else {
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_NOP);
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return (wait_tulip(pCurHcb));
}
if (pCurHcb->HCS_Phase == MSG_IN) {
msg = TUL_RD(pCurHcb->HCS_Base, TUL_SFifo);
if (pCurHcb->HCS_JSStatus0 & TSS_PAR_ERROR) { /* Parity error */
if ((tul_msgin_accept(pCurHcb)) == -1)
return (-1);
if (pCurHcb->HCS_Phase != MSG_OUT)
return (tul_bad_seq(pCurHcb));
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_PARITY);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return (wait_tulip(pCurHcb));
}
if (msg == 0) { /* Command complete */
if ((pCurScb->SCB_TaStat & 0x18) == 0x10) { /* No link support */
return (tul_bad_seq(pCurHcb));
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_MSG_ACCEPT);
return tul_wait_done_disc(pCurHcb);
}
if ((msg == MSG_LINK_COMP) || (msg == MSG_LINK_FLAG)) {
if ((pCurScb->SCB_TaStat & 0x18) == 0x10)
return (tul_msgin_accept(pCurHcb));
}
}
return (tul_bad_seq(pCurHcb));
}
/***************************************************************************/
/* scsi bus free */
int int_tul_busfree(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
if (pCurScb != NULL) {
if (pCurScb->SCB_Status & SCB_SELECT) { /* selection timeout */
tul_unlink_pend_scb(pCurHcb, pCurScb);
pCurScb->SCB_HaStat = HOST_SEL_TOUT;
tul_append_done_scb(pCurHcb, pCurScb);
} else { /* Unexpected bus free */
tul_unlink_busy_scb(pCurHcb, pCurScb);
pCurScb->SCB_HaStat = HOST_BUS_FREE;
tul_append_done_scb(pCurHcb, pCurScb);
}
pCurHcb->HCS_ActScb = NULL;
pCurHcb->HCS_ActTcs = NULL;
}
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO); /* Flush SCSI FIFO */
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, TSC_INITDEFAULT);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, TSC_HW_RESELECT); /* Enable HW reselect */
return (-1);
}
/***************************************************************************/
/* scsi bus reset */
static int int_tul_scsi_rst(HCS * pCurHcb)
{
SCB *pCurScb;
int i;
/* if DMA xfer is pending, abort DMA xfer */
if (TUL_RD(pCurHcb->HCS_Base, TUL_XStatus) & 0x01) {
TUL_WR(pCurHcb->HCS_Base + TUL_XCmd, TAX_X_ABT | TAX_X_CLR_FIFO);
/* wait Abort DMA xfer done */
while ((TUL_RD(pCurHcb->HCS_Base, TUL_Int) & 0x04) == 0);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
}
/* Abort all active & disconnected scb */
while ((pCurScb = tul_pop_busy_scb(pCurHcb)) != NULL) {
pCurScb->SCB_HaStat = HOST_BAD_PHAS;
tul_append_done_scb(pCurHcb, pCurScb);
}
pCurHcb->HCS_ActScb = NULL;
pCurHcb->HCS_ActTcs = NULL;
/* clr sync nego. done flag */
for (i = 0; i < pCurHcb->HCS_MaxTar; i++) {
pCurHcb->HCS_Tcs[i].TCS_Flags &= ~(TCF_SYNC_DONE | TCF_WDTR_DONE);
}
return (-1);
}
/***************************************************************************/
/* scsi reselection */
int int_tul_resel(HCS * pCurHcb)
{
SCB *pCurScb;
TCS *pCurTcb;
BYTE tag, msg = 0;
BYTE tar, lun;
if ((pCurScb = pCurHcb->HCS_ActScb) != NULL) {
if (pCurScb->SCB_Status & SCB_SELECT) { /* if waiting for selection complete */
pCurScb->SCB_Status &= ~SCB_SELECT;
}
pCurHcb->HCS_ActScb = NULL;
}
/* --------- get target id---------------------- */
tar = TUL_RD(pCurHcb->HCS_Base, TUL_SBusId);
/* ------ get LUN from Identify message----------- */
lun = TUL_RD(pCurHcb->HCS_Base, TUL_SIdent) & 0x0F;
/* 07/22/98 from 0x1F -> 0x0F */
pCurTcb = &pCurHcb->HCS_Tcs[tar];
pCurHcb->HCS_ActTcs = pCurTcb;
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, pCurTcb->TCS_SConfig0);
TUL_WR(pCurHcb->HCS_Base + TUL_SPeriod, pCurTcb->TCS_JS_Period);
/* ------------- tag queueing ? ------------------- */
if (pCurTcb->TCS_DrvFlags & TCF_DRV_EN_TAG) {
if ((tul_msgin_accept(pCurHcb)) == -1)
return (-1);
if (pCurHcb->HCS_Phase != MSG_IN)
goto no_tag;
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_IN);
if ((wait_tulip(pCurHcb)) == -1)
return (-1);
msg = TUL_RD(pCurHcb->HCS_Base, TUL_SFifo); /* Read Tag Message */
if ((msg < MSG_STAG) || (msg > MSG_OTAG)) /* Is simple Tag */
goto no_tag;
if ((tul_msgin_accept(pCurHcb)) == -1)
return (-1);
if (pCurHcb->HCS_Phase != MSG_IN)
goto no_tag;
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_IN);
if ((wait_tulip(pCurHcb)) == -1)
return (-1);
tag = TUL_RD(pCurHcb->HCS_Base, TUL_SFifo); /* Read Tag ID */
pCurScb = pCurHcb->HCS_Scb + tag;
if ((pCurScb->SCB_Target != tar) || (pCurScb->SCB_Lun != lun)) {
return tul_msgout_abort_tag(pCurHcb);
}
if (pCurScb->SCB_Status != SCB_BUSY) { /* 03/24/95 */
return tul_msgout_abort_tag(pCurHcb);
}
pCurHcb->HCS_ActScb = pCurScb;
if ((tul_msgin_accept(pCurHcb)) == -1)
return (-1);
} else { /* No tag */
no_tag:
if ((pCurScb = tul_find_busy_scb(pCurHcb, tar | (lun << 8))) == NULL) {
return tul_msgout_abort_targ(pCurHcb);
}
pCurHcb->HCS_ActScb = pCurScb;
if (!(pCurTcb->TCS_DrvFlags & TCF_DRV_EN_TAG)) {
if ((tul_msgin_accept(pCurHcb)) == -1)
return (-1);
}
}
return 0;
}
/***************************************************************************/
static int int_tul_bad_seq(HCS * pCurHcb)
{ /* target wrong phase */
SCB *pCurScb;
int i;
tul_reset_scsi(pCurHcb, 10);
while ((pCurScb = tul_pop_busy_scb(pCurHcb)) != NULL) {
pCurScb->SCB_HaStat = HOST_BAD_PHAS;
tul_append_done_scb(pCurHcb, pCurScb);
}
for (i = 0; i < pCurHcb->HCS_MaxTar; i++) {
pCurHcb->HCS_Tcs[i].TCS_Flags &= ~(TCF_SYNC_DONE | TCF_WDTR_DONE);
}
return (-1);
}
/***************************************************************************/
int tul_msgout_abort_targ(HCS * pCurHcb)
{
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, ((TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)) | TSC_SET_ATN));
if (tul_msgin_accept(pCurHcb) == -1)
return (-1);
if (pCurHcb->HCS_Phase != MSG_OUT)
return (tul_bad_seq(pCurHcb));
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_ABORT);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return tul_wait_disc(pCurHcb);
}
/***************************************************************************/
int tul_msgout_abort_tag(HCS * pCurHcb)
{
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, ((TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)) | TSC_SET_ATN));
if (tul_msgin_accept(pCurHcb) == -1)
return (-1);
if (pCurHcb->HCS_Phase != MSG_OUT)
return (tul_bad_seq(pCurHcb));
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_ABORT_TAG);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return tul_wait_disc(pCurHcb);
}
/***************************************************************************/
int tul_msgin(HCS * pCurHcb)
{
TCS *pCurTcb;
for (;;) {
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_IN);
if ((wait_tulip(pCurHcb)) == -1)
return (-1);
switch (TUL_RD(pCurHcb->HCS_Base, TUL_SFifo)) {
case MSG_DISC: /* Disconnect msg */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_MSG_ACCEPT);
return tul_wait_disc(pCurHcb);
case MSG_SDP:
case MSG_RESTORE:
case MSG_NOP:
tul_msgin_accept(pCurHcb);
break;
case MSG_REJ: /* Clear ATN first */
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal,
(TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)));
pCurTcb = pCurHcb->HCS_ActTcs;
if ((pCurTcb->TCS_Flags & (TCF_SYNC_DONE | TCF_NO_SYNC_NEGO)) == 0) { /* do sync nego */
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, ((TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)) | TSC_SET_ATN));
}
tul_msgin_accept(pCurHcb);
break;
case MSG_EXTEND: /* extended msg */
tul_msgin_extend(pCurHcb);
break;
case MSG_IGNOREWIDE:
tul_msgin_accept(pCurHcb);
break;
/* get */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_IN);
if (wait_tulip(pCurHcb) == -1)
return -1;
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 0); /* put pad */
TUL_RD(pCurHcb->HCS_Base, TUL_SFifo); /* get IGNORE field */
TUL_RD(pCurHcb->HCS_Base, TUL_SFifo); /* get pad */
tul_msgin_accept(pCurHcb);
break;
case MSG_COMP:
{
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_MSG_ACCEPT);
return tul_wait_done_disc(pCurHcb);
}
default:
tul_msgout_reject(pCurHcb);
break;
}
if (pCurHcb->HCS_Phase != MSG_IN)
return (pCurHcb->HCS_Phase);
}
/* statement won't reach here */
}
/***************************************************************************/
int tul_msgout_reject(HCS * pCurHcb)
{
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, ((TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)) | TSC_SET_ATN));
if ((tul_msgin_accept(pCurHcb)) == -1)
return (-1);
if (pCurHcb->HCS_Phase == MSG_OUT) {
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_REJ); /* Msg reject */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return (wait_tulip(pCurHcb));
}
return (pCurHcb->HCS_Phase);
}
/***************************************************************************/
int tul_msgout_ide(HCS * pCurHcb)
{
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_IDE); /* Initiator Detected Error */
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return (wait_tulip(pCurHcb));
}
/***************************************************************************/
int tul_msgin_extend(HCS * pCurHcb)
{
BYTE len, idx;
if (tul_msgin_accept(pCurHcb) != MSG_IN)
return (pCurHcb->HCS_Phase);
/* Get extended msg length */
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_IN);
if (wait_tulip(pCurHcb) == -1)
return (-1);
len = TUL_RD(pCurHcb->HCS_Base, TUL_SFifo);
pCurHcb->HCS_Msg[0] = len;
for (idx = 1; len != 0; len--) {
if ((tul_msgin_accept(pCurHcb)) != MSG_IN)
return (pCurHcb->HCS_Phase);
TUL_WRLONG(pCurHcb->HCS_Base + TUL_SCnt0, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_IN);
if (wait_tulip(pCurHcb) == -1)
return (-1);
pCurHcb->HCS_Msg[idx++] = TUL_RD(pCurHcb->HCS_Base, TUL_SFifo);
}
if (pCurHcb->HCS_Msg[1] == 1) { /* if it's synchronous data transfer request */
if (pCurHcb->HCS_Msg[0] != 3) /* if length is not right */
return (tul_msgout_reject(pCurHcb));
if (pCurHcb->HCS_ActTcs->TCS_Flags & TCF_NO_SYNC_NEGO) { /* Set OFFSET=0 to do async, nego back */
pCurHcb->HCS_Msg[3] = 0;
} else {
if ((tul_msgin_sync(pCurHcb) == 0) &&
(pCurHcb->HCS_ActTcs->TCS_Flags & TCF_SYNC_DONE)) {
tul_sync_done(pCurHcb);
return (tul_msgin_accept(pCurHcb));
}
}
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, ((TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)) | TSC_SET_ATN));
if ((tul_msgin_accept(pCurHcb)) != MSG_OUT)
return (pCurHcb->HCS_Phase);
/* sync msg out */
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO);
tul_sync_done(pCurHcb);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_EXTEND);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 3);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 1);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurHcb->HCS_Msg[2]);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurHcb->HCS_Msg[3]);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return (wait_tulip(pCurHcb));
}
if ((pCurHcb->HCS_Msg[0] != 2) || (pCurHcb->HCS_Msg[1] != 3))
return (tul_msgout_reject(pCurHcb));
/* if it's WIDE DATA XFER REQ */
if (pCurHcb->HCS_ActTcs->TCS_Flags & TCF_NO_WDTR) {
pCurHcb->HCS_Msg[2] = 0;
} else {
if (pCurHcb->HCS_Msg[2] > 2) /* > 32 bits */
return (tul_msgout_reject(pCurHcb));
if (pCurHcb->HCS_Msg[2] == 2) { /* == 32 */
pCurHcb->HCS_Msg[2] = 1;
} else {
if ((pCurHcb->HCS_ActTcs->TCS_Flags & TCF_NO_WDTR) == 0) {
wdtr_done(pCurHcb);
if ((pCurHcb->HCS_ActTcs->TCS_Flags & (TCF_SYNC_DONE | TCF_NO_SYNC_NEGO)) == 0)
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, ((TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)) | TSC_SET_ATN));
return (tul_msgin_accept(pCurHcb));
}
}
}
TUL_WR(pCurHcb->HCS_Base + TUL_SSignal, ((TUL_RD(pCurHcb->HCS_Base, TUL_SSignal) & (TSC_SET_ACK | 7)) | TSC_SET_ATN));
if (tul_msgin_accept(pCurHcb) != MSG_OUT)
return (pCurHcb->HCS_Phase);
/* WDTR msg out */
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_EXTEND);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 2);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, 3);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurHcb->HCS_Msg[2]);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return (wait_tulip(pCurHcb));
}
/***************************************************************************/
int tul_msgin_sync(HCS * pCurHcb)
{
char default_period;
default_period = tul_rate_tbl[pCurHcb->HCS_ActTcs->TCS_Flags & TCF_SCSI_RATE];
if (pCurHcb->HCS_Msg[3] > MAX_OFFSET) {
pCurHcb->HCS_Msg[3] = MAX_OFFSET;
if (pCurHcb->HCS_Msg[2] < default_period) {
pCurHcb->HCS_Msg[2] = default_period;
return 1;
}
if (pCurHcb->HCS_Msg[2] >= 59) { /* Change to async */
pCurHcb->HCS_Msg[3] = 0;
}
return 1;
}
/* offset requests asynchronous transfers ? */
if (pCurHcb->HCS_Msg[3] == 0) {
return 0;
}
if (pCurHcb->HCS_Msg[2] < default_period) {
pCurHcb->HCS_Msg[2] = default_period;
return 1;
}
if (pCurHcb->HCS_Msg[2] >= 59) {
pCurHcb->HCS_Msg[3] = 0;
return 1;
}
return 0;
}
/***************************************************************************/
int wdtr_done(HCS * pCurHcb)
{
pCurHcb->HCS_ActTcs->TCS_Flags &= ~TCF_SYNC_DONE;
pCurHcb->HCS_ActTcs->TCS_Flags |= TCF_WDTR_DONE;
pCurHcb->HCS_ActTcs->TCS_JS_Period = 0;
if (pCurHcb->HCS_Msg[2]) { /* if 16 bit */
pCurHcb->HCS_ActTcs->TCS_JS_Period |= TSC_WIDE_SCSI;
}
pCurHcb->HCS_ActTcs->TCS_SConfig0 &= ~TSC_ALT_PERIOD;
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, pCurHcb->HCS_ActTcs->TCS_SConfig0);
TUL_WR(pCurHcb->HCS_Base + TUL_SPeriod, pCurHcb->HCS_ActTcs->TCS_JS_Period);
return 1;
}
/***************************************************************************/
int tul_sync_done(HCS * pCurHcb)
{
int i;
pCurHcb->HCS_ActTcs->TCS_Flags |= TCF_SYNC_DONE;
if (pCurHcb->HCS_Msg[3]) {
pCurHcb->HCS_ActTcs->TCS_JS_Period |= pCurHcb->HCS_Msg[3];
for (i = 0; i < 8; i++) {
if (tul_rate_tbl[i] >= pCurHcb->HCS_Msg[2]) /* pick the big one */
break;
}
pCurHcb->HCS_ActTcs->TCS_JS_Period |= (i << 4);
pCurHcb->HCS_ActTcs->TCS_SConfig0 |= TSC_ALT_PERIOD;
}
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, pCurHcb->HCS_ActTcs->TCS_SConfig0);
TUL_WR(pCurHcb->HCS_Base + TUL_SPeriod, pCurHcb->HCS_ActTcs->TCS_JS_Period);
return (-1);
}
int tul_post_scsi_rst(HCS * pCurHcb)
{
SCB *pCurScb;
TCS *pCurTcb;
int i;
pCurHcb->HCS_ActScb = NULL;
pCurHcb->HCS_ActTcs = NULL;
pCurHcb->HCS_Flags = 0;
while ((pCurScb = tul_pop_busy_scb(pCurHcb)) != NULL) {
pCurScb->SCB_HaStat = HOST_BAD_PHAS;
tul_append_done_scb(pCurHcb, pCurScb);
}
/* clear sync done flag */
pCurTcb = &pCurHcb->HCS_Tcs[0];
for (i = 0; i < pCurHcb->HCS_MaxTar; pCurTcb++, i++) {
pCurTcb->TCS_Flags &= ~(TCF_SYNC_DONE | TCF_WDTR_DONE);
/* Initialize the sync. xfer register values to an asyn xfer */
pCurTcb->TCS_JS_Period = 0;
pCurTcb->TCS_SConfig0 = pCurHcb->HCS_SConf1;
pCurHcb->HCS_ActTags[0] = 0; /* 07/22/98 */
pCurHcb->HCS_Tcs[i].TCS_Flags &= ~TCF_BUSY; /* 07/22/98 */
} /* for */
return (-1);
}
/***************************************************************************/
void tul_select_atn_stop(HCS * pCurHcb, SCB * pCurScb)
{
pCurScb->SCB_Status |= SCB_SELECT;
pCurScb->SCB_NxtStat = 0x1;
pCurHcb->HCS_ActScb = pCurScb;
pCurHcb->HCS_ActTcs = &pCurHcb->HCS_Tcs[pCurScb->SCB_Target];
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_SELATNSTOP);
return;
}
/***************************************************************************/
void tul_select_atn(HCS * pCurHcb, SCB * pCurScb)
{
int i;
pCurScb->SCB_Status |= SCB_SELECT;
pCurScb->SCB_NxtStat = 0x2;
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_Ident);
for (i = 0; i < (int) pCurScb->SCB_CDBLen; i++)
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_CDB[i]);
pCurHcb->HCS_ActTcs = &pCurHcb->HCS_Tcs[pCurScb->SCB_Target];
pCurHcb->HCS_ActScb = pCurScb;
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_SEL_ATN);
return;
}
/***************************************************************************/
void tul_select_atn3(HCS * pCurHcb, SCB * pCurScb)
{
int i;
pCurScb->SCB_Status |= SCB_SELECT;
pCurScb->SCB_NxtStat = 0x2;
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_Ident);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_TagMsg);
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_TagId);
for (i = 0; i < (int) pCurScb->SCB_CDBLen; i++)
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, pCurScb->SCB_CDB[i]);
pCurHcb->HCS_ActTcs = &pCurHcb->HCS_Tcs[pCurScb->SCB_Target];
pCurHcb->HCS_ActScb = pCurScb;
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_SEL_ATN3);
return;
}
/***************************************************************************/
/* SCSI Bus Device Reset */
int tul_bus_device_reset(HCS * pCurHcb)
{
SCB *pCurScb = pCurHcb->HCS_ActScb;
TCS *pCurTcb = pCurHcb->HCS_ActTcs;
SCB *pTmpScb, *pPrevScb;
BYTE tar;
if (pCurHcb->HCS_Phase != MSG_OUT) {
return (int_tul_bad_seq(pCurHcb)); /* Unexpected phase */
}
tul_unlink_pend_scb(pCurHcb, pCurScb);
tul_release_scb(pCurHcb, pCurScb);
tar = pCurScb->SCB_Target; /* target */
pCurTcb->TCS_Flags &= ~(TCF_SYNC_DONE | TCF_WDTR_DONE | TCF_BUSY);
/* clr sync. nego & WDTR flags 07/22/98 */
/* abort all SCB with same target */
pPrevScb = pTmpScb = pCurHcb->HCS_FirstBusy; /* Check Busy queue */
while (pTmpScb != NULL) {
if (pTmpScb->SCB_Target == tar) {
/* unlink it */
if (pTmpScb == pCurHcb->HCS_FirstBusy) {
if ((pCurHcb->HCS_FirstBusy = pTmpScb->SCB_NxtScb) == NULL)
pCurHcb->HCS_LastBusy = NULL;
} else {
pPrevScb->SCB_NxtScb = pTmpScb->SCB_NxtScb;
if (pTmpScb == pCurHcb->HCS_LastBusy)
pCurHcb->HCS_LastBusy = pPrevScb;
}
pTmpScb->SCB_HaStat = HOST_ABORTED;
tul_append_done_scb(pCurHcb, pTmpScb);
}
/* Previous haven't change */
else {
pPrevScb = pTmpScb;
}
pTmpScb = pTmpScb->SCB_NxtScb;
}
TUL_WR(pCurHcb->HCS_Base + TUL_SFifo, MSG_DEVRST);
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_XF_FIFO_OUT);
return tul_wait_disc(pCurHcb);
}
/***************************************************************************/
int tul_msgin_accept(HCS * pCurHcb)
{
TUL_WR(pCurHcb->HCS_Base + TUL_SCmd, TSC_MSG_ACCEPT);
return (wait_tulip(pCurHcb));
}
/***************************************************************************/
int wait_tulip(HCS * pCurHcb)
{
while (!((pCurHcb->HCS_JSStatus0 = TUL_RD(pCurHcb->HCS_Base, TUL_SStatus0))
& TSS_INT_PENDING));
pCurHcb->HCS_JSInt = TUL_RD(pCurHcb->HCS_Base, TUL_SInt);
pCurHcb->HCS_Phase = pCurHcb->HCS_JSStatus0 & TSS_PH_MASK;
pCurHcb->HCS_JSStatus1 = TUL_RD(pCurHcb->HCS_Base, TUL_SStatus1);
if (pCurHcb->HCS_JSInt & TSS_RESEL_INT) { /* if SCSI bus reset detected */
return (int_tul_resel(pCurHcb));
}
if (pCurHcb->HCS_JSInt & TSS_SEL_TIMEOUT) { /* if selected/reselected timeout interrupt */
return (int_tul_busfree(pCurHcb));
}
if (pCurHcb->HCS_JSInt & TSS_SCSIRST_INT) { /* if SCSI bus reset detected */
return (int_tul_scsi_rst(pCurHcb));
}
if (pCurHcb->HCS_JSInt & TSS_DISC_INT) { /* BUS disconnection */
if (pCurHcb->HCS_Flags & HCF_EXPECT_DONE_DISC) {
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO); /* Flush SCSI FIFO */
tul_unlink_busy_scb(pCurHcb, pCurHcb->HCS_ActScb);
pCurHcb->HCS_ActScb->SCB_HaStat = 0;
tul_append_done_scb(pCurHcb, pCurHcb->HCS_ActScb);
pCurHcb->HCS_ActScb = NULL;
pCurHcb->HCS_ActTcs = NULL;
pCurHcb->HCS_Flags &= ~HCF_EXPECT_DONE_DISC;
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, TSC_INITDEFAULT);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, TSC_HW_RESELECT); /* Enable HW reselect */
return (-1);
}
if (pCurHcb->HCS_Flags & HCF_EXPECT_DISC) {
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO); /* Flush SCSI FIFO */
pCurHcb->HCS_ActScb = NULL;
pCurHcb->HCS_ActTcs = NULL;
pCurHcb->HCS_Flags &= ~HCF_EXPECT_DISC;
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, TSC_INITDEFAULT);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, TSC_HW_RESELECT); /* Enable HW reselect */
return (-1);
}
return (int_tul_busfree(pCurHcb));
}
if (pCurHcb->HCS_JSInt & (TSS_FUNC_COMP | TSS_BUS_SERV)) {
return (pCurHcb->HCS_Phase);
}
return (pCurHcb->HCS_Phase);
}
/***************************************************************************/
int tul_wait_disc(HCS * pCurHcb)
{
while (!((pCurHcb->HCS_JSStatus0 = TUL_RD(pCurHcb->HCS_Base, TUL_SStatus0))
& TSS_INT_PENDING));
pCurHcb->HCS_JSInt = TUL_RD(pCurHcb->HCS_Base, TUL_SInt);
if (pCurHcb->HCS_JSInt & TSS_SCSIRST_INT) { /* if SCSI bus reset detected */
return (int_tul_scsi_rst(pCurHcb));
}
if (pCurHcb->HCS_JSInt & TSS_DISC_INT) { /* BUS disconnection */
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO); /* Flush SCSI FIFO */
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, TSC_INITDEFAULT);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, TSC_HW_RESELECT); /* Enable HW reselect */
pCurHcb->HCS_ActScb = NULL;
return (-1);
}
return (tul_bad_seq(pCurHcb));
}
/***************************************************************************/
int tul_wait_done_disc(HCS * pCurHcb)
{
while (!((pCurHcb->HCS_JSStatus0 = TUL_RD(pCurHcb->HCS_Base, TUL_SStatus0))
& TSS_INT_PENDING));
pCurHcb->HCS_JSInt = TUL_RD(pCurHcb->HCS_Base, TUL_SInt);
if (pCurHcb->HCS_JSInt & TSS_SCSIRST_INT) { /* if SCSI bus reset detected */
return (int_tul_scsi_rst(pCurHcb));
}
if (pCurHcb->HCS_JSInt & TSS_DISC_INT) { /* BUS disconnection */
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl0, TSC_FLUSH_FIFO); /* Flush SCSI FIFO */
TUL_WR(pCurHcb->HCS_Base + TUL_SConfig, TSC_INITDEFAULT);
TUL_WR(pCurHcb->HCS_Base + TUL_SCtrl1, TSC_HW_RESELECT); /* Enable HW reselect */
tul_unlink_busy_scb(pCurHcb, pCurHcb->HCS_ActScb);
tul_append_done_scb(pCurHcb, pCurHcb->HCS_ActScb);
pCurHcb->HCS_ActScb = NULL;
return (-1);
}
return (tul_bad_seq(pCurHcb));
}
IRQ: Maintain regs pointer globally rather than passing to IRQ handlers Maintain a per-CPU global "struct pt_regs *" variable which can be used instead of passing regs around manually through all ~1800 interrupt handlers in the Linux kernel. The regs pointer is used in few places, but it potentially costs both stack space and code to pass it around. On the FRV arch, removing the regs parameter from all the genirq function results in a 20% speed up of the IRQ exit path (ie: from leaving timer_interrupt() to leaving do_IRQ()). Where appropriate, an arch may override the generic storage facility and do something different with the variable. On FRV, for instance, the address is maintained in GR28 at all times inside the kernel as part of general exception handling. Having looked over the code, it appears that the parameter may be handed down through up to twenty or so layers of functions. Consider a USB character device attached to a USB hub, attached to a USB controller that posts its interrupts through a cascaded auxiliary interrupt controller. A character device driver may want to pass regs to the sysrq handler through the input layer which adds another few layers of parameter passing. I've build this code with allyesconfig for x86_64 and i386. I've runtested the main part of the code on FRV and i386, though I can't test most of the drivers. I've also done partial conversion for powerpc and MIPS - these at least compile with minimal configurations. This will affect all archs. Mostly the changes should be relatively easy. Take do_IRQ(), store the regs pointer at the beginning, saving the old one: struct pt_regs *old_regs = set_irq_regs(regs); And put the old one back at the end: set_irq_regs(old_regs); Don't pass regs through to generic_handle_irq() or __do_IRQ(). In timer_interrupt(), this sort of change will be necessary: - update_process_times(user_mode(regs)); - profile_tick(CPU_PROFILING, regs); + update_process_times(user_mode(get_irq_regs())); + profile_tick(CPU_PROFILING); I'd like to move update_process_times()'s use of get_irq_regs() into itself, except that i386, alone of the archs, uses something other than user_mode(). Some notes on the interrupt handling in the drivers: (*) input_dev() is now gone entirely. The regs pointer is no longer stored in the input_dev struct. (*) finish_unlinks() in drivers/usb/host/ohci-q.c needs checking. It does something different depending on whether it's been supplied with a regs pointer or not. (*) Various IRQ handler function pointers have been moved to type irq_handler_t. Signed-Off-By: David Howells <dhowells@redhat.com> (cherry picked from 1b16e7ac850969f38b375e511e3fa2f474a33867 commit)
2006-10-05 13:55:46 +00:00
static irqreturn_t i91u_intr(int irqno, void *dev_id)
{
struct Scsi_Host *dev = dev_id;
unsigned long flags;
spin_lock_irqsave(dev->host_lock, flags);
tul_isr((HCS *)dev->base);
spin_unlock_irqrestore(dev->host_lock, flags);
return IRQ_HANDLED;
}
static int tul_NewReturnNumberOfAdapters(void)
{
struct pci_dev *pDev = NULL; /* Start from none */
int iAdapters = 0;
long dRegValue;
WORD wBIOS;
int i = 0;
init_i91uAdapter_table();
for (i = 0; i < ARRAY_SIZE(i91u_pci_devices); i++)
{
while ((pDev = pci_find_device(i91u_pci_devices[i].vendor, i91u_pci_devices[i].device, pDev)) != NULL) {
if (pci_enable_device(pDev))
continue;
pci_read_config_dword(pDev, 0x44, (u32 *) & dRegValue);
wBIOS = (UWORD) (dRegValue & 0xFF);
if (((dRegValue & 0xFF00) >> 8) == 0xFF)
dRegValue = 0;
wBIOS = (wBIOS << 8) + ((UWORD) ((dRegValue & 0xFF00) >> 8));
if (pci_set_dma_mask(pDev, DMA_32BIT_MASK)) {
printk(KERN_WARNING
"i91u: Could not set 32 bit DMA mask\n");
continue;
}
if (Addi91u_into_Adapter_table(wBIOS,
(pDev->resource[0].start),
pDev->irq,
pDev->bus->number,
(pDev->devfn >> 3)
) == 0)
iAdapters++;
}
}
return (iAdapters);
}
static int i91u_detect(struct scsi_host_template * tpnt)
{
HCS *pHCB;
struct Scsi_Host *hreg;
unsigned long i; /* 01/14/98 */
int ok = 0, iAdapters;
ULONG dBiosAdr;
BYTE *pbBiosAdr;
/* Get total number of adapters in the motherboard */
iAdapters = tul_NewReturnNumberOfAdapters();
if (iAdapters == 0) /* If no tulip founded, return */
return (0);
tul_num_ch = (iAdapters > tul_num_ch) ? tul_num_ch : iAdapters;
/* Update actually channel number */
if (tul_tag_enable) { /* 1.01i */
tul_num_scb = MAX_TARGETS * i91u_MAXQUEUE;
} else {
tul_num_scb = MAX_TARGETS + 3; /* 1-tape, 1-CD_ROM, 1- extra */
} /* Update actually SCBs per adapter */
/* Get total memory needed for HCS */
i = tul_num_ch * sizeof(HCS);
memset((unsigned char *) &tul_hcs[0], 0, i); /* Initialize tul_hcs 0 */
/* Get total memory needed for SCB */
for (; tul_num_scb >= MAX_TARGETS + 3; tul_num_scb--) {
i = tul_num_ch * tul_num_scb * sizeof(SCB);
if ((tul_scb = (SCB *) kmalloc(i, GFP_ATOMIC | GFP_DMA)) != NULL)
break;
}
if (tul_scb == NULL) {
printk("i91u: SCB memory allocation error\n");
return (0);
}
memset((unsigned char *) tul_scb, 0, i);
for (i = 0, pHCB = &tul_hcs[0]; /* Get pointer for control block */
i < tul_num_ch;
i++, pHCB++) {
get_tulipPCIConfig(pHCB, i);
dBiosAdr = pHCB->HCS_BIOS;
dBiosAdr = (dBiosAdr << 4);
pbBiosAdr = phys_to_virt(dBiosAdr);
init_tulip(pHCB, tul_scb + (i * tul_num_scb), tul_num_scb, pbBiosAdr, 10);
request_region(pHCB->HCS_Base, 256, "i91u"); /* Register */
pHCB->HCS_Index = i; /* 7/29/98 */
hreg = scsi_register(tpnt, sizeof(HCS));
if(hreg == NULL) {
release_region(pHCB->HCS_Base, 256);
return 0;
}
hreg->io_port = pHCB->HCS_Base;
hreg->n_io_port = 0xff;
hreg->can_queue = tul_num_scb; /* 03/05/98 */
hreg->unique_id = pHCB->HCS_Base;
hreg->max_id = pHCB->HCS_MaxTar;
hreg->max_lun = 32; /* 10/21/97 */
hreg->irq = pHCB->HCS_Intr;
hreg->this_id = pHCB->HCS_SCSI_ID; /* Assign HCS index */
hreg->base = (unsigned long)pHCB;
hreg->sg_tablesize = TOTAL_SG_ENTRY; /* Maximun support is 32 */
/* Initial tulip chip */
ok = request_irq(pHCB->HCS_Intr, i91u_intr, IRQF_DISABLED | IRQF_SHARED, "i91u", hreg);
if (ok < 0) {
printk(KERN_WARNING "i91u: unable to request IRQ %d\n\n", pHCB->HCS_Intr);
return 0;
}
}
tpnt->this_id = -1;
tpnt->can_queue = 1;
return 1;
}
static void i91uBuildSCB(HCS * pHCB, SCB * pSCB, struct scsi_cmnd * SCpnt)
{ /* Create corresponding SCB */
struct scatterlist *pSrbSG;
SG *pSG; /* Pointer to SG list */
int i;
long TotalLen;
dma_addr_t dma_addr;
pSCB->SCB_Post = i91uSCBPost; /* i91u's callback routine */
pSCB->SCB_Srb = SCpnt;
pSCB->SCB_Opcode = ExecSCSI;
pSCB->SCB_Flags = SCF_POST; /* After SCSI done, call post routine */
pSCB->SCB_Target = SCpnt->device->id;
pSCB->SCB_Lun = SCpnt->device->lun;
pSCB->SCB_Ident = SCpnt->device->lun | DISC_ALLOW;
pSCB->SCB_Flags |= SCF_SENSE; /* Turn on auto request sense */
dma_addr = dma_map_single(&pHCB->pci_dev->dev, SCpnt->sense_buffer,
SENSE_SIZE, DMA_FROM_DEVICE);
pSCB->SCB_SensePtr = cpu_to_le32((u32)dma_addr);
pSCB->SCB_SenseLen = cpu_to_le32(SENSE_SIZE);
SCpnt->SCp.ptr = (char *)(unsigned long)dma_addr;
pSCB->SCB_CDBLen = SCpnt->cmd_len;
pSCB->SCB_HaStat = 0;
pSCB->SCB_TaStat = 0;
memcpy(&pSCB->SCB_CDB[0], &SCpnt->cmnd, SCpnt->cmd_len);
if (SCpnt->device->tagged_supported) { /* Tag Support */
pSCB->SCB_TagMsg = SIMPLE_QUEUE_TAG; /* Do simple tag only */
} else {
pSCB->SCB_TagMsg = 0; /* No tag support */
}
/* todo handle map_sg error */
if (SCpnt->use_sg) {
dma_addr = dma_map_single(&pHCB->pci_dev->dev, &pSCB->SCB_SGList[0],
sizeof(struct SG_Struc) * TOTAL_SG_ENTRY,
DMA_BIDIRECTIONAL);
pSCB->SCB_BufPtr = cpu_to_le32((u32)dma_addr);
SCpnt->SCp.dma_handle = dma_addr;
pSrbSG = (struct scatterlist *) SCpnt->request_buffer;
pSCB->SCB_SGLen = dma_map_sg(&pHCB->pci_dev->dev, pSrbSG,
SCpnt->use_sg, SCpnt->sc_data_direction);
pSCB->SCB_Flags |= SCF_SG; /* Turn on SG list flag */
for (i = 0, TotalLen = 0, pSG = &pSCB->SCB_SGList[0]; /* 1.01g */
i < pSCB->SCB_SGLen; i++, pSG++, pSrbSG++) {
pSG->SG_Ptr = cpu_to_le32((u32)sg_dma_address(pSrbSG));
TotalLen += pSG->SG_Len = cpu_to_le32((u32)sg_dma_len(pSrbSG));
}
pSCB->SCB_BufLen = (SCpnt->request_bufflen > TotalLen) ?
TotalLen : SCpnt->request_bufflen;
} else if (SCpnt->request_bufflen) { /* Non SG */
dma_addr = dma_map_single(&pHCB->pci_dev->dev, SCpnt->request_buffer,
SCpnt->request_bufflen,
SCpnt->sc_data_direction);
SCpnt->SCp.dma_handle = dma_addr;
pSCB->SCB_BufPtr = cpu_to_le32((u32)dma_addr);
pSCB->SCB_BufLen = cpu_to_le32((u32)SCpnt->request_bufflen);
pSCB->SCB_SGLen = 0;
} else {
pSCB->SCB_BufLen = 0;
pSCB->SCB_SGLen = 0;
}
}
static int i91u_queuecommand(struct scsi_cmnd *cmd,
void (*done)(struct scsi_cmnd *))
{
HCS *pHCB = (HCS *) cmd->device->host->base;
register SCB *pSCB;
cmd->scsi_done = done;
pSCB = tul_alloc_scb(pHCB);
if (!pSCB)
return SCSI_MLQUEUE_HOST_BUSY;
i91uBuildSCB(pHCB, pSCB, cmd);
tul_exec_scb(pHCB, pSCB);
return 0;
}
#if 0 /* no new EH yet */
/*
* Abort a queued command
* (commands that are on the bus can't be aborted easily)
*/
static int i91u_abort(struct scsi_cmnd * SCpnt)
{
HCS *pHCB;
pHCB = (HCS *) SCpnt->device->host->base;
return tul_abort_srb(pHCB, SCpnt);
}
/*
* Reset registers, reset a hanging bus and
* kill active and disconnected commands for target w/o soft reset
*/
static int i91u_reset(struct scsi_cmnd * SCpnt, unsigned int reset_flags)
{ /* I need Host Control Block Information */
HCS *pHCB;
pHCB = (HCS *) SCpnt->device->host->base;
if (reset_flags & (SCSI_RESET_SUGGEST_BUS_RESET | SCSI_RESET_SUGGEST_HOST_RESET))
return tul_reset_scsi_bus(pHCB);
else
return tul_device_reset(pHCB, SCpnt, SCpnt->device->id, reset_flags);
}
#endif
static int i91u_bus_reset(struct scsi_cmnd * SCpnt)
{
HCS *pHCB;
pHCB = (HCS *) SCpnt->device->host->base;
spin_lock_irq(SCpnt->device->host->host_lock);
tul_reset_scsi(pHCB, 0);
spin_unlock_irq(SCpnt->device->host->host_lock);
return SUCCESS;
}
/*
* Return the "logical geometry"
*/
static int i91u_biosparam(struct scsi_device *sdev, struct block_device *dev,
sector_t capacity, int *info_array)
{
HCS *pHcb; /* Point to Host adapter control block */
TCS *pTcb;
pHcb = (HCS *) sdev->host->base;
pTcb = &pHcb->HCS_Tcs[sdev->id];
if (pTcb->TCS_DrvHead) {
info_array[0] = pTcb->TCS_DrvHead;
info_array[1] = pTcb->TCS_DrvSector;
info_array[2] = (unsigned long)capacity / pTcb->TCS_DrvHead / pTcb->TCS_DrvSector;
} else {
if (pTcb->TCS_DrvFlags & TCF_DRV_255_63) {
info_array[0] = 255;
info_array[1] = 63;
info_array[2] = (unsigned long)capacity / 255 / 63;
} else {
info_array[0] = 64;
info_array[1] = 32;
info_array[2] = (unsigned long)capacity >> 11;
}
}
#if defined(DEBUG_BIOSPARAM)
if (i91u_debug & debug_biosparam) {
printk("bios geometry: head=%d, sec=%d, cyl=%d\n",
info_array[0], info_array[1], info_array[2]);
printk("WARNING: check, if the bios geometry is correct.\n");
}
#endif
return 0;
}
static void i91u_unmap_cmnd(struct pci_dev *pci_dev, struct scsi_cmnd *cmnd)
{
/* auto sense buffer */
if (cmnd->SCp.ptr) {
dma_unmap_single(&pci_dev->dev,
(dma_addr_t)((unsigned long)cmnd->SCp.ptr),
SENSE_SIZE, DMA_FROM_DEVICE);
cmnd->SCp.ptr = NULL;
}
/* request buffer */
if (cmnd->use_sg) {
dma_unmap_single(&pci_dev->dev, cmnd->SCp.dma_handle,
sizeof(struct SG_Struc) * TOTAL_SG_ENTRY,
DMA_BIDIRECTIONAL);
dma_unmap_sg(&pci_dev->dev, cmnd->request_buffer,
cmnd->use_sg,
cmnd->sc_data_direction);
} else if (cmnd->request_bufflen) {
dma_unmap_single(&pci_dev->dev, cmnd->SCp.dma_handle,
cmnd->request_bufflen,
cmnd->sc_data_direction);
}
}
/*****************************************************************************
Function name : i91uSCBPost
Description : This is callback routine be called when tulip finish one
SCSI command.
Input : pHCB - Pointer to host adapter control block.
pSCB - Pointer to SCSI control block.
Output : None.
Return : None.
*****************************************************************************/
static void i91uSCBPost(BYTE * pHcb, BYTE * pScb)
{
struct scsi_cmnd *pSRB; /* Pointer to SCSI request block */
HCS *pHCB;
SCB *pSCB;
pHCB = (HCS *) pHcb;
pSCB = (SCB *) pScb;
if ((pSRB = pSCB->SCB_Srb) == 0) {
printk("i91uSCBPost: SRB pointer is empty\n");
tul_release_scb(pHCB, pSCB); /* Release SCB for current channel */
return;
}
switch (pSCB->SCB_HaStat) {
case 0x0:
case 0xa: /* Linked command complete without error and linked normally */
case 0xb: /* Linked command complete without error interrupt generated */
pSCB->SCB_HaStat = 0;
break;
case 0x11: /* Selection time out-The initiator selection or target
reselection was not complete within the SCSI Time out period */
pSCB->SCB_HaStat = DID_TIME_OUT;
break;
case 0x14: /* Target bus phase sequence failure-An invalid bus phase or bus
phase sequence was requested by the target. The host adapter
will generate a SCSI Reset Condition, notifying the host with
a SCRD interrupt */
pSCB->SCB_HaStat = DID_RESET;
break;
case 0x1a: /* SCB Aborted. 07/21/98 */
pSCB->SCB_HaStat = DID_ABORT;
break;
case 0x12: /* Data overrun/underrun-The target attempted to transfer more data
than was allocated by the Data Length field or the sum of the
Scatter / Gather Data Length fields. */
case 0x13: /* Unexpected bus free-The target dropped the SCSI BSY at an unexpected time. */
case 0x16: /* Invalid SCB Operation Code. */
default:
printk("ini9100u: %x %x\n", pSCB->SCB_HaStat, pSCB->SCB_TaStat);
pSCB->SCB_HaStat = DID_ERROR; /* Couldn't find any better */
break;
}
pSRB->result = pSCB->SCB_TaStat | (pSCB->SCB_HaStat << 16);
if (pSRB == NULL) {
printk("pSRB is NULL\n");
}
i91u_unmap_cmnd(pHCB->pci_dev, pSRB);
pSRB->scsi_done(pSRB); /* Notify system DONE */
tul_release_scb(pHCB, pSCB); /* Release SCB for current channel */
}
/*
* Release ressources
*/
static int i91u_release(struct Scsi_Host *hreg)
{
free_irq(hreg->irq, hreg);
release_region(hreg->io_port, 256);
return 0;
}
MODULE_LICENSE("Dual BSD/GPL");
static struct scsi_host_template driver_template = {
.proc_name = "INI9100U",
.name = i91u_REVID,
.detect = i91u_detect,
.release = i91u_release,
.queuecommand = i91u_queuecommand,
// .abort = i91u_abort,
// .reset = i91u_reset,
.eh_bus_reset_handler = i91u_bus_reset,
.bios_param = i91u_biosparam,
.can_queue = 1,
.this_id = 1,
.sg_tablesize = SG_ALL,
.cmd_per_lun = 1,
.use_clustering = ENABLE_CLUSTERING,
};
#include "scsi_module.c"