URL https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k

[/] [or1k/] [trunk/] [rc203soc/] [sw/] [uClinux/] [drivers/] [scsi/] [tmscsim.c] - Blame information for rev 1777

Go to most recent revision | Details | Compare with Previous | View Log

/***********************************************************************
 *      FILE NAME : TMSCSIM.C                                          *
 *           BY   : C.L. Huang,  ching@tekram.com.tw                   *
 *      Description: Device Driver for Tekram DC-390(T) PCI SCSI       *
 *                   Bus Master Host Adapter                           *
 * (C)Copyright 1995-1996 Tekram Technology Co., Ltd.                  *
 ***********************************************************************/
/* (C) Copyright: put under GNU GPL in 10/96                            *
*************************************************************************/
/* $Id: tmscsim.c,v 1.1 2005-12-20 10:17:45 jcastillo Exp $             */
/*      Enhancements and bugfixes by                                    *
 *      Kurt Garloff <kurt@garloff.de>                                  *
 ***********************************************************************/
/*      HISTORY:                                                        *
 *                                                                      *
 *      REV#    DATE    NAME    DESCRIPTION                             *
 *      1.00  96/04/24  CLH     First release                           *
 *      1.01  96/06/12  CLH     Fixed bug of Media Change for Removable *
 *                              Device, scan all LUN. Support Pre2.0.10 *
 *      1.02  96/06/18  CLH     Fixed bug of Command timeout ...        *
 *      1.03  96/09/25  KG      Added tmscsim_proc_info()               *
 *      1.04  96/10/11  CLH     Updating for support KV 2.0.x           *
 *      1.05  96/10/18  KG      Fixed bug in DC390_abort(null ptr deref)*
 *      1.06  96/10/25  KG      Fixed module support                    *
 *      1.07  96/11/09  KG      Fixed tmscsim_proc_info()               *
 *      1.08  96/11/18  KG      Fixed null ptr in DC390_Disconnect()    *
 *      1.09  96/11/30  KG      Added register the allocated IO space   *
 *      1.10  96/12/05  CLH     Modified tmscsim_proc_info(), and reset *
 *                              pending interrupt in DC390_detect()     *
 *      1.11  97/02/05  KG/CLH  Fixeds problem with partitions greater  *
 *                              than 1GB                                *
 *      1.12  98/02/15  MJ      Rewritten PCI probing                   *
 *      1.13  98/04/08  KG      Support for non DC390, __initfunc decls,*
 *                              changed max devs from 10 to 16          *
 *      1.14a 98/05/05  KG      Dynamic DCB allocation, add-single-dev  *
 *                              for LUNs if LUN_SCAN (BIOS) not set     *
 *                              runtime config using /proc interface    *
 *      1.14b 98/05/06  KG      eliminated cli (); sti (); spinlocks    *
 *      1.14c 98/05/07  KG      2.0.x compatibility                     *
 *      1.20a 98/05/07  KG      changed names of funcs to be consistent *
 *                              DC390_ (entry points), dc390_ (internal)*
 *                              reworked locking                        *
 *      1.20b 98/05/12  KG      bugs: version, kfree, _ctmp             *
 *                              debug output                            *
 *      1.20c 98/05/12  KG      bugs: kfree, parsing, EEpromDefaults    *
 *      1.20d 98/05/14  KG      bugs: list linkage, clear flag after    *
 *                              reset on startup, code cleanup          *
 *      1.20e 98/05/15  KG      spinlock comments, name space cleanup   *
 *                              pLastDCB now part of ACB structure      *
 *                              added stats, timeout for 2.1, TagQ bug  *
 *                              RESET and INQUIRY interface commands    *
 *      1.20f 98/05/18  KG      spinlocks fixes, max_lun fix, free DCBs *
 *                              for missing LUNs, pending int           *
 *      1.20g 98/05/19  KG      Clean up: Avoid short                   *
 *      1.20h 98/05/21  KG      Remove AdaptSCSIID, max_lun ...         *
 *      1.20i 98/05/21  KG      Aiiie: Bug with TagQMask                *
 *      1.20j 98/05/24  KG      Handle STAT_BUSY, handle pACB->pLinkDCB *
 *                              == 0 in remove_dev and DoingSRB_Done    *
 *      1.20k 98/05/25  KG      DMA_INT (experimental)                  *
 *      1.20l 98/05/27  KG      remove DMA_INT; DMA_IDLE cmds added;    *
 *      1.20m 98/06/10  KG      glitch configurable; made some global   *
 *                              vars part of ACB; use DC390_readX       *
 *      1.20n 98/06/11  KG      startup params                          *
 *      1.20o 98/06/15  KG      added TagMaxNum to boot/module params   *
 *                              Device Nr -> Idx, TagMaxNum power of 2  *
 *      1.20p 98/06/17  KG      Docu updates. Reset depends on settings *
 *                              pci_set_master added; 2.0.xx: pcibios_* *
 *                              used instead of MechNum things ...      *
 *      1.20q 98/06/23  KG      Changed defaults. Added debug code for  *
 *                              removable media and fixed it. TagMaxNum *
 *                              fixed for DC390. Locking: ACB, DRV for  *
 *                              better IRQ sharing. Spelling: Queueing  *
 *                              Parsing and glitch_cfg changes. Display *
 *                              real SyncSpeed value. Made DisConn      *
 *                              functional (!)                          *
 *      1.20r 98/06/30  KG      Debug macros, allow disabling DsCn, set *
 *                              BIT4 in CtrlR4, EN_PAGE_INT, 2.0 module *
 *                              param -1 fixed.                         *
 *      1.20s 98/08/20  KG      Debug info on abort(), try to check PCI,*
 *                              phys_to_bus instead of phys_to_virt,    *
 *                              fixed sel. process, fixed locking,      *
 *                              added MODULE_XXX infos, changed IRQ     *
 *                              request flags, disable DMA_INT          *
 *      1.20t 98/09/07  KG      TagQ report fixed; Write Erase DMA Stat;*
 *                              initfunc -> __init; better abort;       *
 *                              Timeout for XFER_DONE & BLAST_COMPLETE; *
 *                              Allow up to 33 commands being processed *
 *      2.0a  98/10/14  KG      Max Cmnds back to 17. DMA_Stat clearing *
 *                              all flags. Clear within while() loops   *
 *                              in DataIn_0/Out_0. Null ptr in dumpinfo *
 *                              for pSRB==0. Better locking during init.*
 *                              bios_param() now respects part. table.  *
 *      2.0b  98/10/24  KG      Docu fixes. Timeout Msg in DMA Blast.   *
 *                              Disallow illegal idx in INQUIRY/REMOVE  *
 *      2.0c  98/11/19  KG      Cleaned up detect/init for SMP boxes,   *
 *                              Write Erase DMA (1.20t) caused problems *
 *      2.0d  98/12/25  KG      Christmas release ;-) Message handling  *
 *                              competely reworked. Handle target ini-  *
 *                              tiated SDTR correctly.                  *
 ***********************************************************************/
 
/* Uncomment SA_INTERRUPT, if the driver refuses to share its IRQ with other devices */
#define DC390_IRQ SA_SHIRQ /* | SA_INTERRUPT */
 
/* DEBUG options */
//#define DC390_DEBUG0
//#define DC390_DEBUG1
//#define DC390_DCBDEBUG
//#define DC390_PARSEDEBUG
//#define DC390_REMOVABLEDEBUG
 
/* Debug definitions */
#ifdef DC390_DEBUG0
# define DEBUG0(x) x;
#else
# define DEBUG0(x)
#endif
#ifdef DC390_DEBUG1
# define DEBUG1(x) x;
#else
# define DEBUG1(x)
#endif
#ifdef DC390_DCBDEBUG
# define DCBDEBUG(x) x;
#else
# define DCBDEBUG(x)
#endif
#ifdef DC390_PARSEDEBUG
# define PARSEDEBUG(x) x;
#else
# define PARSEDEBUG(x)
#endif
#ifdef DC390_REMOVABLEDEBUG
# define REMOVABLEDEBUG(x) x;
#else
# define REMOVABLEDEBUG(x)
#endif
#define DCBDEBUG1(x)
 
/* Includes */
#ifdef MODULE
# include <linux/module.h>
#endif
 
#include <asm/dma.h>
#include <asm/io.h>
#include <asm/system.h>
#include <linux/delay.h>
#include <linux/signal.h>
#include <linux/sched.h>
#include <linux/errno.h>
#include <linux/kernel.h>
#include <linux/ioport.h>
#include <linux/pci.h>
#include <linux/proc_fs.h>
#include <linux/string.h>
#include <linux/ctype.h>
#include <linux/mm.h>
#include <linux/config.h>
#include <linux/version.h>
#include <linux/blk.h>
 
#include "scsi.h"
#include "hosts.h"
#include "constants.h"
#include "sd.h"
#include <linux/stat.h>
 
#include "dc390.h"
 
#define PCI_DEVICE_ID_AMD53C974         PCI_DEVICE_ID_AMD_SCSI
 
/* Locking */
 
/* Note: Starting from 2.1.9x, the mid-level scsi code issues a
 * spinlock_irqsave (&io_request_lock) before calling the driver's
 * routines, so we don't need to lock.
 * TODO: Verify, if we are locked in every case!
 * The policy 3, let the midlevel scsi code do the io_request_locks
 * and us locking on a driver specific lock, shouldn't hurt anybody; it
 * just causes a minor performance degradation for setting the locks.
 */
 
/* spinlock things
 * level 3: lock on both adapter specific locks and (global) io_request_lock
 * level 2: lock on adapter specific locks only
 * level 1: rely on the locking of the mid level code (io_request_lock)
 * undef  : traditional save_flags; cli; restore_flags;
 */
 
//#define DEBUG_SPINLOCKS 2     /* Set to 0, 1 or 2 in include/asm/spinlock.h */
 
#define LinuxVersionCode(v, p, s) (((v)<<16)+((p)<<8)+(s))
 
#if LINUX_VERSION_CODE >= LinuxVersionCode(2,1,30)
# include <linux/init.h>
# include <asm/spinlock.h>
#endif
 
 
#if LINUX_VERSION_CODE >= LinuxVersionCode(2,1,93) 
# define USE_SPINLOCKS 1
# define NEW_PCI 1
#else
# undef NEW_PCI
# if LINUX_VERSION_CODE >= LinuxVersionCode(2,1,30)
#  define USE_SPINLOCKS 2
# endif
#endif
 
#ifdef USE_SPINLOCKS
 
# if USE_SPINLOCKS == 3 /* both */
 
#  if defined (__SMP__) || DEBUG_SPINLOCKS > 0
#   define DC390_LOCKA_INIT { spinlock_t __unlocked = SPIN_LOCK_UNLOCKED; pACB->lock = __unlocked; };
#  else
#   define DC390_LOCKA_INIT
#  endif
   spinlock_t dc390_drvlock = SPIN_LOCK_UNLOCKED;
 
#  define DC390_AFLAGS unsigned long aflags;
#  define DC390_IFLAGS unsigned long iflags;
#  define DC390_DFLAGS unsigned long dflags; 
 
#  define DC390_LOCK_IO spin_lock_irqsave (&io_request_lock, iflags)
#  define DC390_UNLOCK_IO spin_unlock_irqrestore (&io_request_lock, iflags)
 
#  define DC390_LOCK_DRV spin_lock_irqsave (&dc390_drvlock, dflags)
#  define DC390_UNLOCK_DRV spin_unlock_irqrestore (&dc390_drvlock, dflags)
#  define DC390_LOCK_DRV_NI spin_lock (&dc390_drvlock)
#  define DC390_UNLOCK_DRV_NI spin_unlock (&dc390_drvlock)
 
#  define DC390_LOCK_ACB spin_lock_irqsave (&(pACB->lock), aflags)
#  define DC390_UNLOCK_ACB spin_unlock_irqrestore (&(pACB->lock), aflags)
#  define DC390_LOCK_ACB_NI spin_lock (&(pACB->lock))
#  define DC390_UNLOCK_ACB_NI spin_unlock (&(pACB->lock))
//#  define DC390_LOCKA_INIT spin_lock_init (&(pACB->lock))
 
# else
 
#  if USE_SPINLOCKS == 2 /* adapter specific locks */
 
#   if defined (__SMP__) || DEBUG_SPINLOCKS > 0
#    define DC390_LOCKA_INIT { spinlock_t __unlocked = SPIN_LOCK_UNLOCKED; pACB->lock = __unlocked; };
#   else
#    define DC390_LOCKA_INIT
#   endif
    spinlock_t dc390_drvlock = SPIN_LOCK_UNLOCKED;
#   define DC390_AFLAGS unsigned long aflags;
#   define DC390_IFLAGS 
#  define DC390_DFLAGS unsigned long dflags; 
#   define DC390_LOCK_IO /* spin_lock_irqsave (&io_request_lock, iflags) */
#   define DC390_UNLOCK_IO /* spin_unlock_irqrestore (&io_request_lock, iflags) */
#   define DC390_LOCK_DRV spin_lock_irqsave (&dc390_drvlock, dflags)
#   define DC390_UNLOCK_DRV spin_unlock_irqrestore (&dc390_drvlock, dflags)
#   define DC390_LOCK_DRV_NI spin_lock (&dc390_drvlock)
#   define DC390_UNLOCK_DRV_NI spin_unlock (&dc390_drvlock)
#   define DC390_LOCK_ACB spin_lock_irqsave (&(pACB->lock), aflags)
#   define DC390_UNLOCK_ACB spin_unlock_irqrestore (&(pACB->lock), aflags)
#   define DC390_LOCK_ACB_NI spin_lock (&(pACB->lock))
#   define DC390_UNLOCK_ACB_NI spin_unlock (&(pACB->lock))
//#   define DC390_LOCKA_INIT spin_lock_init (&(pACB->lock))
 
#  else /* USE_SPINLOCKS == 1: global lock io_request_lock */
 
#   define DC390_AFLAGS 
#   define DC390_IFLAGS unsigned long iflags;
#   define DC390_DFLAGS unsigned long dflags; 
    spinlock_t dc390_drvlock = SPIN_LOCK_UNLOCKED;
#   define DC390_LOCK_IO spin_lock_irqsave (&io_request_lock, iflags)
#   define DC390_UNLOCK_IO spin_unlock_irqrestore (&io_request_lock, iflags)
#   define DC390_LOCK_DRV spin_lock_irqsave (&dc390_drvlock, dflags)
#   define DC390_UNLOCK_DRV spin_unlock_irqrestore (&dc390_drvlock, dflags)
#   define DC390_LOCK_DRV_NI spin_lock (&dc390_drvlock)
#   define DC390_UNLOCK_DRV_NI spin_unlock (&dc390_drvlock)
#   define DC390_LOCK_ACB /* DC390_LOCK_IO */
#   define DC390_UNLOCK_ACB /* DC390_UNLOCK_IO */
#   define DC390_LOCK_ACB_NI /* spin_lock (&(pACB->lock)) */
#   define DC390_UNLOCK_ACB_NI /* spin_unlock (&(pACB->lock)) */
#   define DC390_LOCKA_INIT /* DC390_LOCKA_INIT */
 
#  endif /* 2 */
# endif /* 3 */
 
#else /* USE_SPINLOCKS undefined */
 
# define DC390_AFLAGS unsigned long aflags;
# define DC390_IFLAGS unsigned long iflags;
# define DC390_DFLAGS unsigned long dflags; 
# define DC390_LOCK_IO save_flags (iflags); cli ()
# define DC390_UNLOCK_IO restore_flags (iflags)
# define DC390_LOCK_DRV save_flags (dflags); cli ()
# define DC390_UNLOCK_DRV restore_flags (dflags)
# define DC390_LOCK_DRV_NI
# define DC390_UNLOCK_DRV_NI
# define DC390_LOCK_ACB save_flags (aflags); cli ()
# define DC390_UNLOCK_ACB restore_flags (aflags)
# define DC390_LOCK_ACB_NI
# define DC390_UNLOCK_ACB_NI
# define DC390_LOCKA_INIT
#endif /* def */
 
 
/* These macros are used for uniform access to 2.0.x and 2.1.x PCI config space*/
 
#ifdef NEW_PCI
# define PDEV pdev
# define PDEVDECL struct pci_dev *pdev
# define PDEVDECL0 struct pci_dev *pdev = NULL
# define PDEVDECL1 struct pci_dev *pdev
# define PDEVSET pACB->pdev=pdev
# define PDEVSET1 pdev=pACB->pdev
# define PCI_WRITE_CONFIG_BYTE(pd, rv, bv) pci_write_config_byte (pd, rv, bv)
# define PCI_READ_CONFIG_BYTE(pd, rv, bv) pci_read_config_byte (pd, rv, bv)
# define PCI_WRITE_CONFIG_WORD(pd, rv, bv) pci_write_config_word (pd, rv, bv)
# define PCI_READ_CONFIG_WORD(pd, rv, bv) pci_read_config_word (pd, rv, bv)
# define PCI_BUS_DEV pdev->bus->number, pdev->devfn
# define PCI_PRESENT pci_present ()
# define PCI_SET_MASTER pci_set_master (pdev)
# define PCI_FIND_DEVICE(vend, id) (pdev = pci_find_device (vend, id, pdev))
# define PCI_GET_IO_AND_IRQ io_port = pdev->base_address[0] & PCI_BASE_ADDRESS_IO_MASK; irq = pdev->irq
#else
# include <linux/bios32.h>
# define PDEV pbus, pdevfn
# define PDEVDECL UCHAR pbus, UCHAR pdevfn
# define PDEVDECL0 UCHAR pbus = 0; UCHAR pdevfn = 0; USHORT pci_index = 0; int error
# define PDEVDECL1 UCHAR pbus; UCHAR pdevfn /*; USHORT pci_index */
# define PDEVSET pACB->pbus=pbus; pACB->pdevfn=pdevfn /*; pACB->pci_index=pci_index */
# define PDEVSET1 pbus=pACB->pbus; pdevfn=pACB->pdevfn /*; pci_index=pACB->pci_index */
# define PCI_WRITE_CONFIG_BYTE(pd, rv, bv) pcibios_write_config_byte (pd, rv, bv)
# define PCI_READ_CONFIG_BYTE(pd, rv, bv) pcibios_read_config_byte (pd, rv, bv)
# define PCI_WRITE_CONFIG_WORD(pd, rv, bv) pcibios_write_config_word (pd, rv, bv)
# define PCI_READ_CONFIG_WORD(pd, rv, bv) pcibios_read_config_word (pd, rv, bv)
# define PCI_BUS_DEV pbus, pdevfn
# define PCI_PRESENT pcibios_present ()
# define PCI_SET_MASTER dc390_set_master (pbus, pdevfn)
# define PCI_FIND_DEVICE(vend, id) (!pcibios_find_device (vend, id, pci_index++, &pbus, &pdevfn))
# define PCI_GET_IO_AND_IRQ error = pcibios_read_config_dword (pbus, pdevfn, PCI_BASE_ADDRESS_0, &io_port);     \
 error |= pcibios_read_config_byte (pbus, pdevfn, PCI_INTERRUPT_LINE, &irq);    \
 io_port &= 0xfffe;     \
 if (error) { printk (KERN_ERR "DC390_detect: Error reading PCI config registers!\n"); continue; }
#endif 
 
#include "tmscsim.h"
 
#ifndef __init
# define __init
#endif
 
UCHAR dc390_StartSCSI( PACB pACB, PDCB pDCB, PSRB pSRB );
void dc390_DataOut_0( PACB pACB, PSRB pSRB, PUCHAR psstatus);
void dc390_DataIn_0( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_Command_0( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_Status_0( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_MsgOut_0( PACB pACB, PSRB pSRB, PUCHAR psstatus);
void dc390_MsgIn_0( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_DataOutPhase( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_DataInPhase( PACB pACB, PSRB pSRB, PUCHAR psstatus);
void dc390_CommandPhase( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_StatusPhase( PACB pACB, PSRB pSRB, PUCHAR psstatus);
void dc390_MsgOutPhase( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_MsgInPhase( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_Nop_0( PACB pACB, PSRB pSRB, PUCHAR psstatus);
static void dc390_Nop_1( PACB pACB, PSRB pSRB, PUCHAR psstatus);
 
static void dc390_SetXferRate( PACB pACB, PDCB pDCB );
void dc390_Disconnect( PACB pACB );
void dc390_Reselect( PACB pACB );
void dc390_SRBdone( PACB pACB, PDCB pDCB, PSRB pSRB );
void dc390_DoingSRB_Done( PACB pACB );
static void dc390_ScsiRstDetect( PACB pACB );
static void dc390_ResetSCSIBus( PACB pACB );
static void __inline__ dc390_RequestSense( PACB pACB, PDCB pDCB, PSRB pSRB );
static void __inline__ dc390_InvalidCmd( PACB pACB );
static void __inline__ dc390_EnableMsgOut_Abort (PACB, PSRB);
static void dc390_remove_dev (PACB pACB, PDCB pDCB);
void do_DC390_Interrupt( int, void *, struct pt_regs *);
 
int    dc390_initAdapter( PSH psh, ULONG io_port, UCHAR Irq, UCHAR index );
void   dc390_initDCB( PACB pACB, PDCB *ppDCB, PSCSICMD cmd );
void   dc390_updateDCB (PACB pACB, PDCB pDCB);
 
#ifdef MODULE
 static int DC390_release(struct Scsi_Host *host);
 static int dc390_shutdown (struct Scsi_Host *host);
#endif
 
 
//static PSHT   dc390_pSHT_start = NULL;
//static PSH    dc390_pSH_start = NULL;
//static PSH    dc390_pSH_current = NULL;
static PACB     dc390_pACB_start= NULL;
static PACB     dc390_pACB_current = NULL;
static UCHAR    dc390_adapterCnt = 0;
static UCHAR    dc390_CurrSyncOffset = 0;
static ULONG    dc390_lastabortedpid = 0;
static ULONG    dc390_laststatus = 0;
 
#ifndef CONFIG_SCSI_DC390T_NOGENSUPP
/* Startup values, to be overriden on the commandline */
int tmscsim[] = {7, 1 /* 8MHz */,
                PARITY_CHK_ | SEND_START_ | EN_DISCONNECT_
                | SYNC_NEGO_ | TAG_QUEUEING_,
                MORE2_DRV | GREATER_1G | RST_SCSI_BUS | ACTIVE_NEGATION
                /* | NO_SEEK */
# ifdef CONFIG_SCSI_MULTI_LUN
                | LUN_CHECK
# endif
                , 3 /* 16 Tags per LUN */};
 
# if defined(MODULE) && LINUX_VERSION_CODE >= LinuxVersionCode(2,1,30)
MODULE_PARM(tmscsim, "1-5i");
MODULE_PARM_DESC(tmscsim, "Host SCSI ID, Speed (0=10MHz), Device Flags, Adapter Flags, Max Tags (log2(tags)-1)");
# endif
 
#endif /* CONFIG_SCSI_DC390T_NOGENSUPP */
 
#if defined(MODULE) && LINUX_VERSION_CODE >= LinuxVersionCode(2,1,30)
MODULE_AUTHOR("C.L. Huang / Kurt Garloff");
MODULE_DESCRIPTION("SCSI host adapter driver for Tekram DC390 and other AMD53C974A based PCI SCSI adapters");
MODULE_SUPPORTED_DEVICE("sd,sr,sg,st");
#endif
 
static PVOID dc390_phase0[]={
       dc390_DataOut_0,
       dc390_DataIn_0,
       dc390_Command_0,
       dc390_Status_0,
       dc390_Nop_0,
       dc390_Nop_0,
       dc390_MsgOut_0,
       dc390_MsgIn_0,
       dc390_Nop_1
       };
 
static PVOID dc390_phase1[]={
       dc390_DataOutPhase,
       dc390_DataInPhase,
       dc390_CommandPhase,
       dc390_StatusPhase,
       dc390_Nop_0,
       dc390_Nop_0,
       dc390_MsgOutPhase,
       dc390_MsgInPhase,
       dc390_Nop_1
       };
 
#ifdef DC390_DEBUG1
static char* dc390_p0_str[] = {
       "dc390_DataOut_0",
       "dc390_DataIn_0",
       "dc390_Command_0",
       "dc390_Status_0",
       "dc390_Nop_0",
       "dc390_Nop_0",
       "dc390_MsgOut_0",
       "dc390_MsgIn_0",
       "dc390_Nop_1"
       };
 
static char* dc390_p1_str[] = {
       "dc390_DataOutPhase",
       "dc390_DataInPhase",
       "dc390_CommandPhase",
       "dc390_StatusPhase",
       "dc390_Nop_0",
       "dc390_Nop_0",
       "dc390_MsgOutPhase",
       "dc390_MsgInPhase",
       "dc390_Nop_1"
       };
#endif   
 
/* Devices erroneously pretending to be able to do TagQ */
UCHAR  dc390_baddevname1[2][28] ={
       "SEAGATE ST3390N         9546",
       "HP      C3323-300       4269"};
#define BADDEVCNT       2
 
static char*  dc390_adapname = "DC390";
UCHAR  dc390_eepromBuf[MAX_ADAPTER_NUM][EE_LEN];
UCHAR  dc390_clock_period1[] = {4, 5, 6, 7, 8, 10, 13, 20};
 
struct proc_dir_entry   DC390_proc_scsi_tmscsim ={
       PROC_SCSI_DC390T, 7 ,"tmscsim",
       S_IFDIR | S_IRUGO | S_IXUGO, 2
       };
 
 
/***********************************************************************
 * Functions for access to DC390 EEPROM
 * and some to emulate it
 *
 **********************************************************************/
 
 
static void __init dc390_EnDisableCE( UCHAR mode, PDEVDECL, PUCHAR regval )
{
    UCHAR bval;
 
    bval = 0;
    if(mode == ENABLE_CE)
        *regval = 0xc0;
    else
        *regval = 0x80;
    PCI_WRITE_CONFIG_BYTE(PDEV, *regval, bval);
    if(mode == DISABLE_CE)
        PCI_WRITE_CONFIG_BYTE(PDEV, *regval, bval);
    udelay(160);
}
 
#ifndef CONFIG_SCSI_DC390T_NOGENSUPP
static void __init dc390_EEpromDefaults (UCHAR index)
{
    PUCHAR ptr;
    UCHAR  id;
    ptr = (PUCHAR) dc390_eepromBuf[index];
 
    /* Adapter Settings */
    ptr[EE_ADAPT_SCSI_ID] = (UCHAR)tmscsim[0]; /* Adapter ID */
    ptr[EE_MODE2] = (UCHAR)tmscsim[3];
    ptr[EE_DELAY] = 0; /* ?? */
    ptr[EE_TAG_CMD_NUM] = (UCHAR)tmscsim[4]; /* Tagged Comds */
 
    /* Device Settings */
    for (id = 0; id < MAX_SCSI_ID; id++)
    {
      ptr[id<<2] = (UCHAR)tmscsim[2]; /* EE_MODE1 */
      ptr[(id<<2) + 1] = (UCHAR)tmscsim[1]; /* EE_Speed */
    };
    dc390_adapname = "AM53C974";
}
 
static void __init dc390_checkparams (void)
{
        PARSEDEBUG(printk(KERN_INFO "DC390: setup %08x %08x %08x %08x %08x\n", tmscsim[0],\
                      tmscsim[1], tmscsim[2], tmscsim[3], tmscsim[4]);)
        if (tmscsim[0] < 0 || tmscsim[0] > 7) /* modules-2.0.0 passes -1 as string */
        {
                tmscsim[0] = 7; tmscsim[1] = 4;
                tmscsim[2] = 9; tmscsim[3] = 15;
                tmscsim[4] = 2;
                printk (KERN_INFO "DC390: Using safe settings.\n");
        }
        else
        {
                /* if (tmscsim[0] < 0 || tmscsim[0] > 7) tmscsim[0] = 7; */
                if (tmscsim[1] < 0 || tmscsim[1] > 7) tmscsim[1] = 4;
                if (tmscsim[4] < 0 || tmscsim[4] > 5) tmscsim[4] = 4;
        };
};
/* Override defaults on cmdline:
 * tmscsim: AdaptID, MaxSpeed (Index), DevMode (Bitmapped), AdaptMode (Bitmapped)
 */
void __init dc390_setup (char *str, int *ints)
{
        int i;
        for (i = 0; i < ints[0]; i++)
                tmscsim[i] = ints[i+1];
        if (ints[0] > 5)
                printk (KERN_NOTICE "DC390: ignore extra params!\n");
        /* dc390_checkparams (); */
};
#endif /* CONFIG_SCSI_DC390T_NOGENSUPP */
 
 
static void __init dc390_EEpromOutDI( PDEVDECL, PUCHAR regval, UCHAR Carry )
{
    UCHAR bval;
 
    bval = 0;
    if(Carry)
    {
        bval = 0x40;
        *regval = 0x80;
        PCI_WRITE_CONFIG_BYTE(PDEV, *regval, bval);
    }
    udelay(160);
    bval |= 0x80;
    PCI_WRITE_CONFIG_BYTE(PDEV, *regval, bval);
    udelay(160);
    bval = 0;
    PCI_WRITE_CONFIG_BYTE(PDEV, *regval, bval);
    udelay(160);
}
 
 
static UCHAR __init dc390_EEpromInDO( PDEVDECL )
{
    UCHAR bval;
 
    PCI_WRITE_CONFIG_BYTE(PDEV, 0x80, 0x80);
    udelay(160);
    PCI_WRITE_CONFIG_BYTE(PDEV, 0x80, 0x40);
    udelay(160);
    PCI_READ_CONFIG_BYTE(PDEV, 0x00, &bval);
    if(bval == 0x22)
        return(1);
    else
        return(0);
}
 
 
static USHORT __init dc390_EEpromGetData1( PDEVDECL )
{
    UCHAR i;
    UCHAR carryFlag;
    USHORT wval;
 
    wval = 0;
    for(i=0; i<16; i++)
    {
        wval <<= 1;
        carryFlag = dc390_EEpromInDO(PDEV);
        wval |= carryFlag;
    }
    return(wval);
}
 
 
static void __init dc390_Prepare( PDEVDECL, PUCHAR regval, UCHAR EEpromCmd )
{
    UCHAR i,j;
    UCHAR carryFlag;
 
    carryFlag = 1;
    j = 0x80;
    for(i=0; i<9; i++)
    {
        dc390_EEpromOutDI(PDEV,regval,carryFlag);
        carryFlag = (EEpromCmd & j) ? 1 : 0;
        j >>= 1;
    }
}
 
 
static void __init dc390_ReadEEprom( PDEVDECL, PUSHORT ptr)
{
    UCHAR   regval,cmd;
    UCHAR   i;
 
    cmd = EEPROM_READ;
    for(i=0; i<0x40; i++)
    {
        dc390_EnDisableCE(ENABLE_CE, PDEV, &regval);
        dc390_Prepare(PDEV, &regval, cmd++);
        *ptr++ = dc390_EEpromGetData1(PDEV);
        dc390_EnDisableCE(DISABLE_CE, PDEV, &regval);
    }
}
 
 
static UCHAR __init dc390_CheckEEpromCheckSum( PDEVDECL, UCHAR index )
{
    UCHAR  i;
    char  EEbuf[128];
    USHORT wval, *ptr = (PUSHORT)EEbuf;
 
    dc390_ReadEEprom( PDEV, ptr );
    memcpy (dc390_eepromBuf[index], EEbuf, EE_ADAPT_SCSI_ID);
    memcpy (&dc390_eepromBuf[index][EE_ADAPT_SCSI_ID],
            &EEbuf[REAL_EE_ADAPT_SCSI_ID], EE_LEN - EE_ADAPT_SCSI_ID);
    wval = 0;
    for(i=0; i<0x40; i++, ptr++)
        wval += *ptr;
    return (wval == 0x1234 ? 0 : 1);
}
 
 
/***********************************************************************
 * Functions for the management of the internal structures
 * (DCBs, SRBs, Queueing)
 *
 **********************************************************************/
static PDCB __inline__ dc390_findDCB ( PACB pACB, Scsi_Cmnd *cmd)
{
   PDCB pDCB = pACB->pLinkDCB; if (!pDCB) return 0;
   while (pDCB->UnitSCSIID != cmd->target || pDCB->UnitSCSILUN != cmd->lun)
     {
        pDCB = pDCB->pNextDCB;
        if (pDCB == pACB->pLinkDCB)
          {
             printk (KERN_WARNING "DC390: DCB not found (DCB=%08x, DCBmap[%2x]=%2x)\n",
                     (int)pDCB, cmd->target, pACB->DCBmap[cmd->target]);
             return 0;
          }
     };
   DCBDEBUG1( printk (KERN_DEBUG "DCB %08x (%02x,%02x) found.\n",       \
           (int)pDCB, pDCB->UnitSCSIID, pDCB->UnitSCSILUN);)
   return pDCB;
};
 
static void dc390_QLinkcmd( PSCSICMD cmd, PDCB pDCB )
{
    PSCSICMD  pcmd;
 
    if( !pDCB->QIORBCnt )
    {
        pDCB->pQIORBhead = cmd;
        pDCB->pQIORBtail = cmd;
        pDCB->QIORBCnt++;
        cmd->next = NULL;
    }
    else
    {
        pcmd = pDCB->pQIORBtail;
        pcmd->next = cmd;
        pDCB->pQIORBtail = cmd;
        pDCB->QIORBCnt++;
        cmd->next = NULL;
    }
 
}
 
 
static __inline__ PSCSICMD dc390_Getcmd( PDCB pDCB )
{
    PSCSICMD  pcmd;
 
    pcmd = pDCB->pQIORBhead;
    pDCB->pQIORBhead = pcmd->next;
    pcmd->next = NULL;
    pDCB->QIORBCnt--;
 
    return( pcmd );
}
 
 
static __inline__ PSRB dc390_GetSRB( PACB pACB )
{
    PSRB   pSRB;
 
    pSRB = pACB->pFreeSRB;
    if( pSRB )
    {
        pACB->pFreeSRB = pSRB->pNextSRB;
        pSRB->pNextSRB = NULL;
    }
 
    return( pSRB );
}
 
 
static __inline__ void dc390_RewaitSRB0( PDCB pDCB, PSRB pSRB )
{
    PSRB   psrb1;
 
    if( (psrb1 = pDCB->pWaitingSRB) )
    {
        pSRB->pNextSRB = psrb1;
    }
    else
    {
        pSRB->pNextSRB = NULL;
        pDCB->pWaitLast = pSRB;
    }
    pDCB->pWaitingSRB = pSRB;
}
 
 
static void dc390_RewaitSRB( PDCB pDCB, PSRB pSRB )
{
    PSRB   psrb1;
    UCHAR  bval;
 
    pDCB->GoingSRBCnt--; pDCB->pDCBACB->SelLost++;
    DEBUG0(printk(KERN_INFO "DC390: RewaitSRB (%p, %p) pid = %li\n", pDCB, pSRB, pSRB->pcmd->pid);)
    psrb1 = pDCB->pGoingSRB;
    if( pSRB == psrb1 )
    {
        pDCB->pGoingSRB = psrb1->pNextSRB;
    }
    else
    {
        while( pSRB != psrb1->pNextSRB )
            psrb1 = psrb1->pNextSRB;
        psrb1->pNextSRB = pSRB->pNextSRB;
        if( pSRB == pDCB->pGoingLast )
            pDCB->pGoingLast = psrb1;
    }
    if( (psrb1 = pDCB->pWaitingSRB) )
    {
        pSRB->pNextSRB = psrb1;
        pDCB->pWaitingSRB = pSRB;
    }
    else
    {
        pSRB->pNextSRB = NULL;
        pDCB->pWaitingSRB = pSRB;
        pDCB->pWaitLast = pSRB;
    }
 
    bval = pSRB->TagNumber;
    pDCB->TagMask &= (~(1 << bval));      /* Free TAG number */
}
 
 
static void dc390_DoWaitingSRB( PACB pACB )
{
    PDCB   ptr, ptr1;
    PSRB   pSRB;
 
    if( !(pACB->pActiveDCB) && !(pACB->ACBFlag & (RESET_DETECT+RESET_DONE+RESET_DEV) ) )
    {
        ptr = pACB->pDCBRunRobin;
        if( !ptr )
        {
            ptr = pACB->pLinkDCB;
            pACB->pDCBRunRobin = ptr;
        }
        ptr1 = ptr;
        for( ;ptr1; )
        {
            pACB->pDCBRunRobin = ptr1->pNextDCB;
            if( !( ptr1->MaxCommand > ptr1->GoingSRBCnt ) ||
                !( pSRB = ptr1->pWaitingSRB ) )
            {
                if(pACB->pDCBRunRobin == ptr)
                    break;
                ptr1 = ptr1->pNextDCB;
            }
            else
            {
                if( !dc390_StartSCSI(pACB, ptr1, pSRB) )
                {
                    ptr1->GoingSRBCnt++;
                    if( ptr1->pWaitLast == pSRB )
                    {
                        ptr1->pWaitingSRB = NULL;
                        ptr1->pWaitLast = NULL;
                    }
                    else
                    {
                        ptr1->pWaitingSRB = pSRB->pNextSRB;
                    }
                    pSRB->pNextSRB = NULL;
 
                    if( ptr1->pGoingSRB )
                        ptr1->pGoingLast->pNextSRB = pSRB;
                    else
                        ptr1->pGoingSRB = pSRB;
                    ptr1->pGoingLast = pSRB;
                }
                break;
            }
        }
    }
    return;
}
 
 
static __inline__ void dc390_SRBwaiting( PDCB pDCB, PSRB pSRB)
{
    if( pDCB->pWaitingSRB )
    {
        pDCB->pWaitLast->pNextSRB = pSRB;
        pSRB->pNextSRB = NULL;
    }
    else
    {
        pDCB->pWaitingSRB = pSRB;
    }
    pDCB->pWaitLast = pSRB;
}
 
 
/***********************************************************************
 * Function: static void dc390_SendSRB (PACB pACB, PSRB pSRB)
 *
 * Purpose: Send SCSI Request Block (pSRB) to adapter (pACB)
 *
 ***********************************************************************/
 
static void dc390_SendSRB( PACB pACB, PSRB pSRB )
{
    PDCB   pDCB;
 
    pDCB = pSRB->pSRBDCB;
    if( !(pDCB->MaxCommand > pDCB->GoingSRBCnt) || (pACB->pActiveDCB) ||
        (pACB->ACBFlag & (RESET_DETECT+RESET_DONE+RESET_DEV)) )
    {
        dc390_SRBwaiting(pDCB, pSRB);
        goto SND_EXIT;
    }
 
    if( pDCB->pWaitingSRB )
    {
        dc390_SRBwaiting(pDCB, pSRB);
/*      pSRB = GetWaitingSRB(pDCB); */  /* non-existent */
        pSRB = pDCB->pWaitingSRB;
        pDCB->pWaitingSRB = pSRB->pNextSRB;
        pSRB->pNextSRB = NULL;
    }
 
    if( !dc390_StartSCSI(pACB, pDCB, pSRB) )
    {
        pDCB->GoingSRBCnt++;
        if( pDCB->pGoingSRB )
        {
            pDCB->pGoingLast->pNextSRB = pSRB;
            pDCB->pGoingLast = pSRB;
        }
        else
        {
            pDCB->pGoingSRB = pSRB;
            pDCB->pGoingLast = pSRB;
        }
    }
    else
        dc390_RewaitSRB0( pDCB, pSRB );
 
SND_EXIT:
    return;
}
 
/***********************************************************************
 * Function: static void dc390_BuildSRB (Scsi_Cmd *pcmd, PDCB pDCB,
 *                                       PSRB pSRB)
 *
 * Purpose: Prepare SRB for being sent to Device DCB w/ command *pcmd
 *
 ***********************************************************************/
 
static void dc390_BuildSRB (Scsi_Cmnd* pcmd, PDCB pDCB, PSRB pSRB)
{
    pSRB->pSRBDCB = pDCB;
    pSRB->pcmd = pcmd;
    pSRB->ScsiCmdLen = pcmd->cmd_len;
    memcpy (pSRB->CmdBlock, pcmd->cmnd, pcmd->cmd_len);
 
    if( pcmd->use_sg )
    {
        pSRB->SGcount = (UCHAR) pcmd->use_sg;
        pSRB->pSegmentList = (PSGL) pcmd->request_buffer;
    }
    else if( pcmd->request_buffer )
    {
        pSRB->SGcount = 1;
        pSRB->pSegmentList = (PSGL) &pSRB->Segmentx;
        pSRB->Segmentx.address = (PUCHAR) pcmd->request_buffer;
        pSRB->Segmentx.length = pcmd->request_bufflen;
    }
    else
        pSRB->SGcount = 0;
 
    pSRB->SGIndex = 0;
    pSRB->AdaptStatus = 0;
    pSRB->TargetStatus = 0;
    pSRB->MsgCnt = 0;
    if( pDCB->DevType != TYPE_TAPE )
        pSRB->RetryCnt = 1;
    else
        pSRB->RetryCnt = 0;
    pSRB->SRBStatus = 0;
    pSRB->SRBFlag = 0;
    pSRB->SRBState = 0;
    pSRB->TotalXferredLen = 0;
    pSRB->SGBusAddr = 0;
    pSRB->SGToBeXferLen = 0;
    pSRB->ScsiPhase = 0;
    pSRB->EndMessage = 0;
};
 
 
/***********************************************************************
 * Function : static int DC390_queue_command (Scsi_Cmnd *cmd,
 *                                             void (*done)(Scsi_Cmnd *))
 *
 * Purpose : enqueues a SCSI command
 *
 * Inputs : cmd - SCSI command, done - callback function called on
 *          completion, with a pointer to the command descriptor.
 *
 * Returns : (depending on kernel version)
 * 2.0.x: always return 0
 * 2.1.x: old model: (use_new_eh_code == 0): like 2.0.x
 *        TO BE DONE:
 *        new model: return 0 if successful
 *                   return 1 if command cannot be queued (queue full)
 *                   command will be inserted in midlevel queue then ...
 *
 ***********************************************************************/
 
int DC390_queue_command (Scsi_Cmnd *cmd, void (* done)(Scsi_Cmnd *))
{
    Scsi_Cmnd *pcmd;
    PDCB   pDCB;
    PSRB   pSRB;
    DC390_AFLAGS
    PACB   pACB = (PACB) cmd->host->hostdata;
 
 
    DEBUG0(/*  if(pACB->scan_devices) */        \
        printk(KERN_INFO "DC390: Queue Cmd=%02x,ID=%d,LUN=%d (pid=%li)\n",\
                cmd->cmnd[0],cmd->target,cmd->lun,cmd->pid);)
 
    DC390_LOCK_ACB;
 
    /* Assume BAD_TARGET; will be cleared later */
    cmd->result = DID_BAD_TARGET << 16;
 
    /* TODO: Change the policy: Alway accept TEST_UNIT_READY or INQUIRY
     * commands and alloc a DCB for the device if not yet there. DCB will
     * be removed in dc390_SRBdone if SEL_TIMEOUT */
 
    if( (pACB->scan_devices == END_SCAN) && (cmd->cmnd[0] != INQUIRY) )
        pACB->scan_devices = 0;
 
    else if( (pACB->scan_devices) && (cmd->cmnd[0] == READ_6) )
        pACB->scan_devices = 0;
 
    if ( ( cmd->target >= pACB->pScsiHost->max_id ) ||
         (cmd->lun >= pACB->pScsiHost->max_lun) )
    {
/*      printk("DC390: Ignore target %d lun %d\n",
                cmd->target, cmd->lun); */
        DC390_UNLOCK_ACB;
        done(cmd);
        return( 0 );
    }
 
    if( (pACB->scan_devices || cmd->cmnd[0] == TEST_UNIT_READY) && !(pACB->DCBmap[cmd->target] & (1 << cmd->lun)) )
    {
        pACB->DCBmap[cmd->target] |= (1 << cmd->lun);
        pACB->scan_devices = 1;
 
        dc390_initDCB( pACB, &pDCB, cmd );
        if (!pDCB)
          {
            printk (KERN_ERR "DC390: kmalloc for DCB failed, ID=%2x\n", cmd->target);
            DC390_UNLOCK_ACB;
            done(cmd);
            return(0);
          };
 
    }
    else if( !(pACB->scan_devices) && !(pACB->DCBmap[cmd->target] & (1 << cmd->lun)) )
    {
        printk(KERN_INFO "DC390: Ignore target %02x lun %02x\n",
                cmd->target, cmd->lun);
        DC390_UNLOCK_ACB;
        done(cmd);
        return(0);
    }
    else
    {
        pDCB = dc390_findDCB (pACB, cmd);
        if (!pDCB)
         {  /* should never happen */
            DC390_UNLOCK_ACB;
            done(cmd);
            return(0);
         };
    }
 
    pACB->Cmds++;
    cmd->scsi_done = done;
    cmd->result = 0;
 
    if( pDCB->QIORBCnt ) /* Unsent commands ? */
    {
        dc390_QLinkcmd( cmd, pDCB );
        pcmd = dc390_Getcmd( pDCB ); /* Get first command */
        pACB->CmdInQ++;
    }
    else
        pcmd = cmd;
 
    pSRB = dc390_GetSRB( pACB );
 
    if( !pSRB )
    {
        dc390_QLinkcmd( pcmd, pDCB ); /* Queue command at the end */
        pACB->CmdOutOfSRB++;
        DC390_UNLOCK_ACB;
        return(0);
    }
 
    dc390_BuildSRB (pcmd, pDCB, pSRB);
    dc390_SendSRB( pACB, pSRB );
 
    DC390_UNLOCK_ACB;
    DEBUG1(printk (KERN_DEBUG " ... command (%02x) queued successfully.\n", pcmd->cmnd[0]);)
    return(0);
}
 
 
static void dc390_DoNextCmd( PACB pACB, PDCB pDCB )
{
    Scsi_Cmnd *pcmd;
    PSRB   pSRB;
 
    if( pACB->ACBFlag & (RESET_DETECT+RESET_DONE+RESET_DEV) )
        return;
 
    pcmd = dc390_Getcmd( pDCB );
    pSRB = dc390_GetSRB( pACB );
    if( !pSRB )
        dc390_QLinkcmd( pcmd, pDCB );
    else
      {
        dc390_BuildSRB (pcmd, pDCB, pSRB);
        dc390_SendSRB( pACB, pSRB );
      };
}
 
/* We ignore mapping problems, as we expect everybody to respect
 * valid partition tables. Waiting for complaints ;-) */
 
#ifdef CONFIG_SCSI_DC390T_TRADMAP
/*
 * The next function, partsize(), is copied from scsicam.c.
 *
 * This is ugly code duplication, but I didn't find another way to solve it:
 * We want to respect the partition table and if it fails, we apply the
 * DC390 BIOS heuristic. Too bad, just calling scsicam_bios_param() doesn't do
 * the job, because we don't know, whether the values returned are from
 * the part. table or determined by setsize(). Unfortunately the setsize()
 * values differ from the ones chosen by the DC390 BIOS.
 *
 * Looking forward to seeing suggestions for a better solution! KG, 98/10/14
 */
#include <asm/unaligned.h>
 
/*
 * Function : static int partsize(struct buffer_head *bh, unsigned long
 *     capacity,unsigned int *cyls, unsigned int *hds, unsigned int *secs);
 *
 * Purpose : to determine the BIOS mapping used to create the partition
 *      table, storing the results in *cyls, *hds, and *secs
 *
 * Returns : -1 on failure, 0 on success.
 *
 */
 
static int partsize(struct buffer_head *bh, unsigned long capacity,
    unsigned int  *cyls, unsigned int *hds, unsigned int *secs) {
    struct partition *p, *largest = NULL;
    int i, largest_cyl;
    int cyl, ext_cyl, end_head, end_cyl, end_sector;
    unsigned int logical_end, physical_end, ext_physical_end;
 
 
    if (*(unsigned short *) (bh->b_data+510) == 0xAA55) {
        for (largest_cyl = -1, p = (struct partition *)
            (0x1BE + bh->b_data), i = 0; i < 4; ++i, ++p) {
            if (!p->sys_ind)
                continue;
            cyl = p->cyl + ((p->sector & 0xc0) << 2);
            if (cyl > largest_cyl) {
                largest_cyl = cyl;
                largest = p;
            }
        }
    }
 
    if (largest) {
        end_cyl = largest->end_cyl + ((largest->end_sector & 0xc0) << 2);
        end_head = largest->end_head;
        end_sector = largest->end_sector & 0x3f;
 
        physical_end =  end_cyl * (end_head + 1) * end_sector +
            end_head * end_sector + end_sector;
 
        /* This is the actual _sector_ number at the end */
        logical_end = get_unaligned(&largest->start_sect)
                        + get_unaligned(&largest->nr_sects);
 
        /* This is for >1023 cylinders */
        ext_cyl= (logical_end-(end_head * end_sector + end_sector))
                                        /(end_head + 1) / end_sector;
        ext_physical_end = ext_cyl * (end_head + 1) * end_sector +
            end_head * end_sector + end_sector;
 
        if ((logical_end == physical_end) ||
            (end_cyl==1023 && ext_physical_end==logical_end)) {
            *secs = end_sector;
            *hds = end_head + 1;
            *cyls = capacity / ((end_head + 1) * end_sector);
            return 0;
        }
    }
    return -1;
}
 
/***********************************************************************
 * Function:
 *   DC390_bios_param
 *
 * Description:
 *   Return the disk geometry for the given SCSI device.
 *   Respect the partition table, otherwise try own heuristic
 *
 * Note:
 *   In contrary to other externally callable funcs (DC390_), we don't lock
 ***********************************************************************/
int DC390_bios_param (Disk *disk, kdev_t devno, int geom[])
{
    int heads, sectors, cylinders;
    PACB pACB = (PACB) disk->device->host->hostdata;
    struct buffer_head *bh;
    int ret_code = -1;
    int size = disk->capacity;
 
    if ((bh = bread(MKDEV(MAJOR(devno), MINOR(devno)&~0xf), 0, 1024)))
    {
        /* try to infer mapping from partition table */
        ret_code = partsize (bh, (unsigned long) size, (unsigned int *) geom + 2,
                             (unsigned int *) geom + 0, (unsigned int *) geom + 1);
        brelse (bh);
    }
    if (ret_code == -1)
    {
        heads = 64;
        sectors = 32;
        cylinders = size / (heads * sectors);
 
        if ( (pACB->Gmode2 & GREATER_1G) && (cylinders > 1024) )
        {
                heads = 255;
                sectors = 63;
                cylinders = size / (heads * sectors);
        }
 
        geom[0] = heads;
        geom[1] = sectors;
        geom[2] = cylinders;
    }
 
    return (0);
}
#else
int DC390_bios_param (Disk *disk, kdev_t devno, int geom[])
{
    return scsicam_bios_param (disk, devno, geom);
};
#endif
 
 
void dc390_dumpinfo (PACB pACB, PDCB pDCB, PSRB pSRB)
{
    USHORT pstat; PDEVDECL1;
 
    if (pSRB)
    {
        printk ("DC390: SRB: Xferred %08lx, Remain %08lx, State %08lx, Phase %02x\n",
                pSRB->TotalXferredLen, pSRB->SGToBeXferLen, pSRB->SRBState,
                pSRB->ScsiPhase);
        printk ("DC390: AdpaterStatus: %02x, SRB Status %02x\n", pSRB->AdaptStatus, pSRB->SRBStatus);
    };
    printk ("DC390: Status of last IRQ (DMA/SC/Int/IRQ): %08lx\n", dc390_laststatus);
    printk ("DC390: Register dump: SCSI block:\n");
    printk ("DC390: XferCnt  Cmd Stat IntS IRQS FFIS Ctl1 Ctl2 Ctl3 Ctl4\n");
    printk ("DC390:  %06x   %02x   %02x   %02x",
            DC390_read8(CtcReg_Low) + (DC390_read8(CtcReg_Mid) << 8) + (DC390_read8(CtcReg_High) << 16),
            DC390_read8(ScsiCmd), DC390_read8(Scsi_Status), DC390_read8(Intern_State));
    printk ("   %02x   %02x   %02x   %02x   %02x   %02x\n",
            DC390_read8(INT_Status), DC390_read8(Current_Fifo), DC390_read8(CtrlReg1),
            DC390_read8(CtrlReg2), DC390_read8(CtrlReg3), DC390_read8(CtrlReg4));
    DC390_write32 (DMA_ScsiBusCtrl, WRT_ERASE_DMA_STAT | EN_INT_ON_PCI_ABORT);
    printk ("DC390: Register dump: DMA engine:\n");
    printk ("DC390: Cmd   STrCnt    SBusA    WrkBC    WrkAC Stat SBusCtrl\n");
    printk ("DC390:  %02x %08x %08x %08x %08x   %02x %08x\n",
            DC390_read8(DMA_Cmd), DC390_read32(DMA_XferCnt), DC390_read32(DMA_XferAddr),
            DC390_read32(DMA_Wk_ByteCntr), DC390_read32(DMA_Wk_AddrCntr),
            DC390_read8(DMA_Status), DC390_read32(DMA_ScsiBusCtrl));
    DC390_write32 (DMA_ScsiBusCtrl, EN_INT_ON_PCI_ABORT);
    PDEVSET1; PCI_READ_CONFIG_WORD(PDEV, PCI_STATUS, &pstat);
    printk ("DC390: Register dump: PCI Status: %04x\n", pstat);
    printk ("DC390: In case of driver trouble read linux/drivers/scsi/README.tmscsim\n");
};
 
 
/***********************************************************************
 * Function : int DC390_abort (Scsi_Cmnd *cmd)
 *
 * Purpose : Abort an errant SCSI command
 *
 * Inputs : cmd - command to abort
 *
 * Returns : 0 on success, -1 on failure.
 *
 * Status: Buggy !
 ***********************************************************************/
 
int DC390_abort (Scsi_Cmnd *cmd)
{
    PDCB  pDCB;
    PSRB  pSRB, psrb;
    ULONG count, i;
    PSCSICMD  pcmd, pcmd1;
    int   status;
    ULONG sbac;
    DC390_AFLAGS
    PACB  pACB = (PACB) cmd->host->hostdata;
 
    DC390_LOCK_ACB;
 
    pDCB = dc390_findDCB (pACB, cmd);
    /* abort() is too buggy at the moment. If it's called we are in trouble anyway.
     * so let's dump some info into the syslog at least. (KG, 98/08/20) */
    if (pDCB) pSRB = pDCB->pActiveSRB; else pSRB = 0;
    printk ("DC390: Abort command (pid %li, DCB %p, SRB %p)\n",
            cmd->pid, pDCB, pSRB);
    dc390_dumpinfo (pACB, pDCB, pSRB);
 
    if( !pDCB ) goto  NOT_RUN;
 
    if( pDCB->QIORBCnt )
    {
        pcmd = pDCB->pQIORBhead;
        if( pcmd == cmd )
        {
            pDCB->pQIORBhead = pcmd->next;
            pcmd->next = NULL;
            pDCB->QIORBCnt--;
            status = SCSI_ABORT_SUCCESS;
            goto  ABO_X;
        }
        for( count = pDCB->QIORBCnt, i=0; i<count-1; i++)
        {
            if( pcmd->next == cmd )
            {
                pcmd1 = pcmd->next;
                pcmd->next = pcmd1->next;
                pcmd1->next = NULL;
                pDCB->QIORBCnt--;
                status = SCSI_ABORT_SUCCESS;
                goto  ABO_X;
            }
            else
            {
                pcmd = pcmd->next;
            }
        }
    }
 
    /* Added 98/07/02 KG */
    pSRB = pDCB->pActiveSRB;
    if (pSRB && pSRB->pcmd == cmd )
        goto ON_GOING;
 
    pSRB = pDCB->pWaitingSRB;
    if( !pSRB )
        goto  ON_GOING;
    if( pSRB->pcmd == cmd )
    {
        pDCB->pWaitingSRB = pSRB->pNextSRB;
        goto  IN_WAIT;
    }
    else
    {
        psrb = pSRB;
        if( !(psrb->pNextSRB) )
            goto ON_GOING;
        while( psrb->pNextSRB->pcmd != cmd )
        {
            psrb = psrb->pNextSRB;
            if( !(psrb->pNextSRB) || psrb == pSRB)
                goto ON_GOING;
        }
        pSRB = psrb->pNextSRB;
        psrb->pNextSRB = pSRB->pNextSRB;
        if( pSRB == pDCB->pWaitLast )
            pDCB->pWaitLast = psrb; /* No check for psrb == NULL ? */
IN_WAIT:
        pSRB->pNextSRB = pACB->pFreeSRB;
        pACB->pFreeSRB = pSRB;
        cmd->next = NULL;
        status = SCSI_ABORT_SUCCESS;
        goto  ABO_X;
    }
 
ON_GOING:
    pSRB = pDCB->pGoingSRB;
    pDCB->DCBFlag |= ABORT_DEV_;
    /* Now for the hard part: The command is currently processed */
    for( count = pDCB->GoingSRBCnt, i=0; i<count; i++)
    {
        if( pSRB->pcmd != cmd )
            pSRB = pSRB->pNextSRB;
        else
        {
            if( (pACB->pActiveDCB == pDCB) && (pDCB->pActiveSRB == pSRB) )
            {
                status = SCSI_ABORT_BUSY;
                printk ("DC390: Abort current command (pid %li, SRB %p)\n",
                        cmd->pid, pSRB);
                goto  ABO_X;
            }
            else
            {
                status = SCSI_ABORT_SNOOZE;
                goto  ABO_X;
            }
        }
    }
 
NOT_RUN:
    status = SCSI_ABORT_NOT_RUNNING;
 
ABO_X:
    cmd->result = DID_ABORT << 16;
    printk(KERN_INFO "DC390: Aborted pid %li with status %i\n", cmd->pid, status);
    if (cmd->pid == dc390_lastabortedpid) /* repeated failure ? */
        {
                /* Let's do something to help the bus getting clean again */
                DC390_write8 (DMA_Cmd, DMA_IDLE_CMD);
                DC390_write8 (ScsiCmd, DMA_COMMAND);
                        //DC390_write8 (ScsiCmd, CLEAR_FIFO_CMD);
                //DC390_write8 (ScsiCmd, RESET_ATN_CMD);
                DC390_write8 (ScsiCmd, NOP_CMD);
                //udelay (10000);
                //DC390_read8 (INT_Status);
                //DC390_write8 (ScsiCmd, EN_SEL_RESEL);
        };
    sbac = DC390_read32 (DMA_ScsiBusCtrl);
    if (sbac & SCSI_BUSY)
    {   /* clear BSY, SEL and ATN */
        printk (KERN_WARNING "DC390: Reset SCSI device: ");
        //DC390_write32 (DMA_ScsiBusCtrl, (sbac | SCAM) & ~SCSI_LINES);
        //udelay (250);
        //sbac = DC390_read32 (DMA_ScsiBusCtrl);
        //printk ("%08lx ", sbac);
        //DC390_write32 (DMA_ScsiBusCtrl, sbac & ~(SCSI_LINES | SCAM));
        //udelay (100);
        //sbac = DC390_read32 (DMA_ScsiBusCtrl);
        //printk ("%08lx ", sbac);
        DC390_write8 (ScsiCmd, RST_DEVICE_CMD);
        udelay (250);
        DC390_write8 (ScsiCmd, NOP_CMD);
        sbac = DC390_read32 (DMA_ScsiBusCtrl);
        printk ("%08lx\n", sbac);
    };
    dc390_lastabortedpid = cmd->pid;
    DC390_UNLOCK_ACB;
    //do_DC390_Interrupt (pACB->IRQLevel, 0, 0);
    cmd->scsi_done(cmd);
    return( status );
}
 
 
static void dc390_ResetDevParam( PACB pACB )
{
    PDCB   pDCB, pdcb;
 
    pDCB = pACB->pLinkDCB;
    if (! pDCB) return;
    pdcb = pDCB;
    do
    {
        pDCB->SyncMode &= ~SYNC_NEGO_DONE;
        pDCB->SyncPeriod = 0;
        pDCB->SyncOffset = 0;
        pDCB->CtrlR3 = FAST_CLK;
        pDCB->CtrlR4 &= NEGATE_REQACKDATA | CTRL4_RESERVED | NEGATE_REQACK;
        pDCB->CtrlR4 |= pACB->glitch_cfg;
        pDCB = pDCB->pNextDCB;
    }
    while( pdcb != pDCB );
}
 
 
static void dc390_RecoverSRB( PACB pACB )
{
    PDCB   pDCB, pdcb;
    PSRB   psrb, psrb2;
    ULONG  cnt, i;
 
    pDCB = pACB->pLinkDCB;
    if( !pDCB ) return;
    pdcb = pDCB;
    do
    {
        cnt = pdcb->GoingSRBCnt;
        psrb = pdcb->pGoingSRB;
        for (i=0; i<cnt; i++)
        {
            psrb2 = psrb;
            psrb = psrb->pNextSRB;
/*          dc390_RewaitSRB( pDCB, psrb ); */
            if( pdcb->pWaitingSRB )
            {
                psrb2->pNextSRB = pdcb->pWaitingSRB;
                pdcb->pWaitingSRB = psrb2;
            }
            else
            {
                pdcb->pWaitingSRB = psrb2;
                pdcb->pWaitLast = psrb2;
                psrb2->pNextSRB = NULL;
            }
        }
        pdcb->GoingSRBCnt = 0;
        pdcb->pGoingSRB = NULL;
        pdcb->TagMask = 0;
        pdcb = pdcb->pNextDCB;
    } while( pdcb != pDCB );
}
 
 
/***********************************************************************
 * Function : int DC390_reset (Scsi_Cmnd *cmd, ...)
 *
 * Purpose : perform a hard reset on the SCSI bus
 *
 * Inputs : cmd - command which caused the SCSI RESET
 *
 * Returns : 0 on success.
 ***********************************************************************/
 
int DC390_reset(Scsi_Cmnd *cmd, unsigned int resetFlags)
{
    UCHAR   bval;
    ULONG   i;
    DC390_AFLAGS
    PACB    pACB = (PACB) cmd->host->hostdata;
 
    printk(KERN_INFO "DC390: RESET ... ");
 
    DC390_LOCK_ACB;
    bval = DC390_read8 (CtrlReg1);
    bval |= DIS_INT_ON_SCSI_RST;
    DC390_write8 (CtrlReg1, bval);      /* disable interrupt */
 
    dc390_ResetSCSIBus( pACB );
    /* Unlock ? */
    for( i=0; i<600; i++ )
        udelay(1000);
 
    DC390_write8 (ScsiCmd, CLEAR_FIFO_CMD);
    DC390_read8 (INT_Status);           /* Reset Pending INT */
 
    dc390_ResetDevParam( pACB );
    dc390_DoingSRB_Done( pACB );
    /* dc390_RecoverSRB (pACB); */
    pACB->pActiveDCB = NULL;
 
    pACB->ACBFlag = 0;
    bval = DC390_read8 (CtrlReg1);
    bval &= ~DIS_INT_ON_SCSI_RST;
    DC390_write8 (CtrlReg1, bval);      /* re-enable interrupt */
 
    dc390_DoWaitingSRB( pACB );
 
    DC390_UNLOCK_ACB;
    printk("done\n");
    return( SCSI_RESET_SUCCESS );
}
 
#include "scsiiom.c"
 
 
/***********************************************************************
 * Function : static void dc390_initDCB()
 *
 * Purpose :  initialize the internal structures for a given DCB
 *
 * Inputs : cmd - pointer to this scsi cmd request block structure
 ***********************************************************************/
 
void dc390_initDCB( PACB pACB, PDCB *ppDCB, PSCSICMD cmd )
{
    PEEprom     prom;
    UCHAR       index;
    PDCB pDCB;
 
    pDCB = kmalloc (sizeof(DC390_DCB), GFP_ATOMIC);
    DCBDEBUG(printk (KERN_INFO "DC390: alloc mem for DCB (ID %i, LUN %i): 0x%08x\n",    \
            cmd->target, cmd->lun, (int)pDCB);)
 
    *ppDCB = pDCB;
    if (!pDCB) return;
    if( pACB->DCBCnt == 0 )
    {
        pACB->pLinkDCB = pDCB;
        pACB->pDCBRunRobin = pDCB;
    }
    else
    {
        pACB->pLastDCB->pNextDCB = pDCB;
    };
 
    pACB->DCBCnt++;
 
    pACB->pLastDCB = pDCB;
    pDCB->pNextDCB = pACB->pLinkDCB;
 
    pDCB->pDCBACB = pACB;
    pDCB->QIORBCnt = 0;
    pDCB->UnitSCSIID = cmd->target;
    pDCB->UnitSCSILUN = cmd->lun;
    pDCB->pWaitingSRB = NULL;
    pDCB->pGoingSRB = NULL;
    pDCB->GoingSRBCnt = 0;
    pDCB->pActiveSRB = NULL;
    pDCB->TagMask = 0;
    pDCB->MaxCommand = 1;
    index = pACB->AdapterIndex;
    pDCB->DCBFlag = 0;
 
    prom = (PEEprom) &dc390_eepromBuf[index][cmd->target << 2];
    pDCB->DevMode = prom->EE_MODE1;
 
    pDCB->SyncMode = 0;
    dc390_updateDCB(pACB, pDCB);
 
    pDCB->SyncPeriod = 0;
    pDCB->SyncOffset = 0;
    pDCB->NegoPeriod = (dc390_clock_period1[prom->EE_SPEED] * 25) >> 2;
 
    pDCB->CtrlR3 = FAST_CLK;
 
    pDCB->CtrlR4 = pACB->glitch_cfg | CTRL4_RESERVED;
    if( dc390_eepromBuf[index][EE_MODE2] & ACTIVE_NEGATION)
        pDCB->CtrlR4 |= NEGATE_REQACKDATA | NEGATE_REQACK;
}
 
/***********************************************************************
 * Function : static void dc390_updateDCB()
 *
 * Purpose :  Set the configuration dependent DCB parameters
 ***********************************************************************/
 
void dc390_updateDCB (PACB pACB, PDCB pDCB)
{
  pDCB->IdentifyMsg = IDENTIFY (pDCB->DevMode & EN_DISCONNECT_, pDCB->UnitSCSILUN);
 
  if (pDCB->DevMode & TAG_QUEUEING_) pDCB->SyncMode &= EN_TAG_QUEUEING | SYNC_NEGO_DONE | EN_ATN_STOP;
  else pDCB->SyncMode &= SYNC_NEGO_DONE | EN_ATN_STOP;
 
  if( pDCB->DevMode & SYNC_NEGO_ && (!(pDCB->UnitSCSILUN) || dc390_CurrSyncOffset) )
     pDCB->SyncMode |= SYNC_ENABLE;
  else
     {
        pDCB->SyncMode &= ~(SYNC_NEGO_DONE | SYNC_ENABLE);
        pDCB->SyncOffset &= ~0x0f;
     };
 
  if (! (pDCB->DevMode & EN_DISCONNECT_)) pDCB->SyncMode &= ~EN_ATN_STOP;
 
  pDCB->CtrlR1 = pACB->pScsiHost->this_id;
  if( pDCB->DevMode & PARITY_CHK_ )
    pDCB->CtrlR1 |= PARITY_ERR_REPO;
};
 
 
/***********************************************************************
 * Function : static void dc390_updateDCBs ()
 *
 * Purpose :  Set the configuration dependent DCB params for all DCBs
 ***********************************************************************/
 
static void dc390_updateDCBs (PACB pACB)
{
  int i;
  PDCB pDCB = pACB->pLinkDCB;
  for (i = 0; i < pACB->DeviceCnt; i++)
    {
      dc390_updateDCB (pACB, pDCB);
      pDCB = pDCB->pNextDCB;
    };
};
 
 
/***********************************************************************
 * Function : static void dc390_initSRB()
 *
 * Purpose :  initialize the internal structures for a given SRB
 *
 * Inputs : psrb - pointer to this scsi request block structure
 ***********************************************************************/
 
static void __inline__ dc390_initSRB( PSRB psrb )
{
  /* psrb->PhysSRB = virt_to_phys( psrb ); */
}
 
 
void dc390_linkSRB( PACB pACB )
{
    ULONG   count, i;
 
    count = pACB->SRBCount;
    for( i=0; i< count; i++)
    {
        if( i != count - 1)
            pACB->SRB_array[i].pNextSRB = &pACB->SRB_array[i+1];
        else
            pACB->SRB_array[i].pNextSRB = NULL;
        dc390_initSRB( &pACB->SRB_array[i] );
    }
}
 
 
/***********************************************************************
 * Function : static void dc390_initACB ()
 *
 * Purpose :  initialize the internal structures for a given SCSI host
 *
 * Inputs : psh - pointer to this host adapter's structure
 *          io_port, Irq, index: Resources and adapter index
 ***********************************************************************/
 
void __init dc390_initACB (PSH psh, ULONG io_port, UCHAR Irq, UCHAR index)
{
    PACB    pACB;
    UCHAR   i;
    DC390_AFLAGS
 
    psh->can_queue = MAX_CMD_QUEUE;
    psh->cmd_per_lun = MAX_CMD_PER_LUN;
    psh->this_id = (int) dc390_eepromBuf[index][EE_ADAPT_SCSI_ID];
    psh->io_port = io_port;
    psh->n_io_port = 0x80;
    psh->irq = Irq;
 
    pACB = (PACB) psh->hostdata;
    DC390_LOCKA_INIT;
    DC390_LOCK_ACB;
 
    pACB->pScsiHost = psh;
    pACB->IOPortBase = (USHORT) io_port;
    pACB->IRQLevel = Irq;
 
    DEBUG0(printk (KERN_INFO "DC390: Adapter index %i, ID %i, IO 0x%08x, IRQ 0x%02x\n", \
            index, psh->this_id, (int)io_port, Irq);)
 
    psh->max_id = 8;
 
    if( psh->max_id - 1 == dc390_eepromBuf[index][EE_ADAPT_SCSI_ID] )
        psh->max_id--;
    psh->max_lun = 1;
    if( dc390_eepromBuf[index][EE_MODE2] & LUN_CHECK )
        psh->max_lun = 8;
 
    pACB->pLinkDCB = NULL;
    pACB->pDCBRunRobin = NULL;
    pACB->pActiveDCB = NULL;
    pACB->pFreeSRB = pACB->SRB_array;
    pACB->SRBCount = MAX_SRB_CNT;
    pACB->AdapterIndex = index;
    pACB->status = 0;
    psh->this_id = dc390_eepromBuf[index][EE_ADAPT_SCSI_ID];
    pACB->DeviceCnt = 0;
    pACB->DCBCnt = 0;
    pACB->TagMaxNum = 2 << dc390_eepromBuf[index][EE_TAG_CMD_NUM];
    pACB->ACBFlag = 0;
    pACB->scan_devices = 1;
    pACB->MsgLen = 0;
    pACB->Ignore_IRQ = 0;
    pACB->Gmode2 = dc390_eepromBuf[index][EE_MODE2];
    dc390_linkSRB( pACB );
    pACB->pTmpSRB = &pACB->TmpSRB;
    dc390_initSRB( pACB->pTmpSRB );
    for(i=0; i<MAX_SCSI_ID; i++)
        pACB->DCBmap[i] = 0;
    pACB->sel_timeout = SEL_TIMEOUT;
    pACB->glitch_cfg = EATER_25NS;
    pACB->Cmds = pACB->CmdInQ = pACB->CmdOutOfSRB = pACB->SelLost = 0;
}
 
 
/***********************************************************************
 * Function : static int dc390_initAdapter ()
 *
 * Purpose :  initialize the SCSI chip ctrl registers
 *
 * Inputs : psh - pointer to this host adapter's structure
 *          io_port, Irq, index: Resources
 *
 * Outputs: 0 on success, -1 on error
 ***********************************************************************/
 
int __init dc390_initAdapter (PSH psh, ULONG io_port, UCHAR Irq, UCHAR index)
{
    PACB   pACB, pACB2;
    UCHAR  used_irq = 0, dstate;
    int    i;
 
    pACB = (PACB) psh->hostdata;
 
    for ( pACB2 = dc390_pACB_start; pACB2 ; )
      {
        if( pACB2->IRQLevel == Irq )
          {
            used_irq = 1;
            break;
          }
        else
          pACB2 = pACB2->pNextACB;
      }
 
    if (check_region (io_port, psh->n_io_port))
        {
            printk(KERN_ERR "DC390: register IO ports error!\n");
            return( -1 );
        }
    else
        request_region (io_port, psh->n_io_port, "tmscsim");
 
    DC390_read8_ (INT_Status, io_port);         /* Reset Pending INT */
 
    if( !used_irq )
    {
        if( (i = request_irq(Irq, do_DC390_Interrupt, DC390_IRQ, "tmscsim", NULL) ))
            {
                    printk(KERN_ERR "DC390: register IRQ error!\n");
                    return( -1 );
            }
    }
 
    if( !dc390_pACB_start )
      {
        pACB2 = NULL;
        dc390_pACB_start = pACB;
        dc390_pACB_current = pACB;
        pACB->pNextACB = NULL;
      }
    else
      {
        pACB2 = dc390_pACB_current;
        dc390_pACB_current->pNextACB = pACB;
        dc390_pACB_current = pACB;
        pACB->pNextACB = NULL;
      };
 
    DC390_write8 (CtrlReg1, DIS_INT_ON_SCSI_RST | psh->this_id);        /* Disable SCSI bus reset interrupt */
 
    if (pACB->Gmode2 & RST_SCSI_BUS)
    {
        dc390_ResetSCSIBus( pACB );
        /* Unlock before ? */
        for( i=0; i<600; i++ )
                udelay(1000);
    };
    pACB->ACBFlag = 0;
    DC390_read8 (INT_Status);                           /* Reset Pending INT */
 
    DC390_write8 (Scsi_TimeOut, SEL_TIMEOUT);           /* 250ms selection timeout */
    DC390_write8 (Clk_Factor, CLK_FREQ_40MHZ);          /* Conversion factor = 0 , 40MHz clock */
    DC390_write8 (ScsiCmd, NOP_CMD);                    /* NOP cmd - clear command register */
    DC390_write8 (CtrlReg2, EN_FEATURE+EN_SCSI2_CMD);   /* Enable Feature and SCSI-2 */
    DC390_write8 (CtrlReg3, FAST_CLK);                  /* fast clock */
    DC390_write8 (CtrlReg4, pACB->glitch_cfg |                  /* glitch eater */
                (dc390_eepromBuf[index][EE_MODE2] & ACTIVE_NEGATION) ? NEGATE_REQACKDATA : 0);   /* Negation */
    DC390_write8 (DMA_Cmd, DMA_IDLE_CMD);
    DC390_write8 (ScsiCmd, CLEAR_FIFO_CMD);
    DC390_write32 (DMA_ScsiBusCtrl, EN_INT_ON_PCI_ABORT);
    dstate = DC390_read8 (DMA_Status);
    DC390_write8 (DMA_Status, dstate);  /* clear */
 
    return(0);
}
 
 
/***********************************************************************
 * Function : static int DC390_init (struct Scsi_Host *host, ...)
 *
 * Purpose :  initialize the internal structures for a given SCSI host
 *
 * Inputs : host - pointer to this host adapter's structure
 *          io_port - IO ports mapped to this adapter
 *          Irq - IRQ assigned to this adpater
 *          PDEVDECL - PCI access handle
 *          index - Adapter index
 *
 * Outputs: 0 on success, -1 on error
 *
 * Note: written in capitals, because the locking is only done here,
 *      not in DC390_detect, called from outside
 ***********************************************************************/
 
static int __init DC390_init (PSHT psht, ULONG io_port, UCHAR Irq, PDEVDECL, UCHAR index)
{
    PSH   psh;
    PACB  pACB;
    DC390_AFLAGS
 
    if (dc390_CheckEEpromCheckSum (PDEV, index))
    {
#ifdef CONFIG_SCSI_DC390T_NOGENSUPP
        printk (KERN_ERR "DC390_init: No EEPROM found!\n");
        return( -1 );
#else
        int period;
        printk (KERN_INFO "DC390_init: No EEPROM found!\n");
        printk (KERN_INFO "DC390_init: Trying default EEPROM settings:\n");
        dc390_checkparams ();
        period = dc390_clock_period1[tmscsim[1]];
        printk (KERN_INFO "DC390: Used defaults: AdaptID=%i, SpeedIdx=%i (%i.%i MHz),"
                " DevMode=0x%02x, AdaptMode=0x%02x, TaggedCmnds=%i (%i)\n", tmscsim[0], tmscsim[1],
                40 / period, ((40%period)*10 + period/2) / period,
                (UCHAR)tmscsim[2], (UCHAR)tmscsim[3], tmscsim[4], 2 << (tmscsim[4]));
        dc390_EEpromDefaults (index);
#endif
    };
 
    psh = scsi_register( psht, sizeof(DC390_ACB) );
    if( !psh ) return( -1 );
 
    pACB = (PACB) psh->hostdata;
    DC390_LOCKA_INIT;
    DC390_LOCK_ACB;
 
#if 0
    if( !dc390_pSH_start )
    {
        dc390_pSH_start = psh;
        dc390_pSH_current = psh;
    }
    else
    {
        dc390_pSH_current->next = psh;
        dc390_pSH_current = psh;
    }
#endif
 
    DEBUG0(printk(KERN_INFO "DC390: pSH = %8x,", (UINT) psh);)
    DEBUG0(printk(" Index %02i,", index);)
 
    dc390_initACB( psh, io_port, Irq, index );
    pACB = (PACB) psh->hostdata;
 
    PDEVSET;
 
    if( !dc390_initAdapter( psh, io_port, Irq, index ) )
    {
        DEBUG0(printk("\nDC390: pACB = %8x, pDCBmap = %8x, pSRB_array = %8x\n",\
                (UINT) pACB, (UINT) pACB->DCBmap, (UINT) pACB->SRB_array);)
        DEBUG0(printk("DC390: ACB size= %4x, DCB size= %4x, SRB size= %4x\n",\
                sizeof(DC390_ACB), sizeof(DC390_DCB), sizeof(DC390_SRB) );)
 
        DC390_UNLOCK_ACB;
        return (0);
    }
    else
    {
        //dc390_pSH_start = NULL;
        scsi_unregister( psh );
        DC390_UNLOCK_ACB;
        return( -1 );
    }
}
 
 
/***********************************************************************
 * Function : int DC390_detect(Scsi_Host_Template *psht)
 *
 * Purpose : detects and initializes AMD53C974 SCSI chips
 *           that were autoprobed, overridden on the LILO command line,
 *           or specified at compile time.
 *
 * Inputs : psht - template for this SCSI adapter
 *
 * Returns : number of host adapters detected
 *
 ***********************************************************************/
 
#ifndef NEW_PCI
/* Acc. to PCI 2.1 spec it's up to the driver to enable Bus mastering:
 * We use pci_set_master () for 2.1.x and this func for 2.0.x:  */
static void __init dc390_set_master (PDEVDECL)
{
        USHORT cmd;
        UCHAR lat;
 
        PCI_READ_CONFIG_WORD (PDEV, PCI_COMMAND, &cmd);
 
        if (! (cmd & PCI_COMMAND_MASTER)) {
                printk("PCI: Enabling bus mastering for device %02x:%02x\n",
                       PCI_BUS_DEV);
                cmd |= PCI_COMMAND_MASTER;
                PCI_WRITE_CONFIG_WORD(PDEV, PCI_COMMAND, cmd);
        }
        PCI_READ_CONFIG_BYTE (PDEV, PCI_LATENCY_TIMER, &lat);
        if (lat < 16 /* || lat == 255 */) {
                printk("PCI: Setting latency timer of device %02x:%02x from %i to 64\n",
                       PCI_BUS_DEV, lat);
                PCI_WRITE_CONFIG_BYTE(PDEV, PCI_LATENCY_TIMER, 64);
        }
 
};
#endif /* ! NEW_PCI */
 
static void __init dc390_set_pci_cfg (PDEVDECL)
{
        USHORT cmd;
        PCI_READ_CONFIG_WORD (PDEV, PCI_COMMAND, &cmd);
        cmd |= PCI_COMMAND_SERR | PCI_COMMAND_PARITY | PCI_COMMAND_IO;
        PCI_WRITE_CONFIG_WORD (PDEV, PCI_COMMAND, cmd);
        PCI_WRITE_CONFIG_WORD (PDEV, PCI_STATUS, (PCI_STATUS_SIG_SYSTEM_ERROR | PCI_STATUS_DETECTED_PARITY));
};
 
 
int __init DC390_detect (Scsi_Host_Template *psht)
{
    PDEVDECL0;
    UCHAR   irq;
    UINT    io_port;
    DC390_IFLAGS DC390_DFLAGS
 
    DC390_LOCK_DRV;
    //dc390_pSHT_start = psht;
    dc390_pACB_start = NULL;
 
    if ( PCI_PRESENT )
        while (PCI_FIND_DEVICE (PCI_VENDOR_ID_AMD, PCI_DEVICE_ID_AMD53C974))
        {
            DC390_LOCK_IO;              /* Remove this when going to new eh */
            PCI_GET_IO_AND_IRQ;
            DEBUG0(printk(KERN_INFO "DC390(%i): IO_PORT=%04x,IRQ=%x\n", dc390_adapterCnt, (UINT) io_port, irq);)
 
            if( !DC390_init(psht, io_port, irq, PDEV, dc390_adapterCnt))
            {
                PCI_SET_MASTER;
                dc390_set_pci_cfg (PDEV);
                dc390_adapterCnt++;
            };
            DC390_UNLOCK_IO;            /* Remove when going to new eh */
        }
    else
        printk (KERN_ERR "DC390: No PCI BIOS found!\n");
 
    if (dc390_adapterCnt)
        psht->proc_dir = &DC390_proc_scsi_tmscsim;
 
    printk(KERN_INFO "DC390: %i adapters found\n", dc390_adapterCnt);
    DC390_UNLOCK_DRV;
    return( dc390_adapterCnt );
}
 
 
/***********************************************************************
 * Functions: dc390_inquiry(), dc390_inquiry_done()
 *
 * Purpose: When changing speed etc., we have to issue an INQUIRY
 *          command to make sure, we agree upon the nego parameters
 *          with the device
 ***********************************************************************/
 
static void dc390_inquiry_done (Scsi_Cmnd* cmd)
{
   printk (KERN_INFO "DC390: INQUIRY (ID %02x LUN %02x) returned %08x\n",
           cmd->target, cmd->lun, cmd->result);
   if (cmd->result)
   {
        PACB pACB = (PACB)cmd->host->hostdata;
        PDCB pDCB = dc390_findDCB (pACB, cmd);
        printk ("DC390: Unsetting DsCn, Sync and TagQ!\n");
        if (pDCB)
        {
                pDCB->DevMode &= ~(SYNC_NEGO_ | TAG_QUEUEING_ | EN_DISCONNECT_ );
                dc390_updateDCB (pACB, pDCB);
        };
   };
   kfree (cmd->buffer);
   kfree (cmd);
};
 
void dc390_inquiry (PACB pACB, PDCB pDCB)
{
   char* buffer;
   Scsi_Cmnd* cmd;
   buffer = kmalloc (256, GFP_ATOMIC);
   cmd = kmalloc (sizeof (Scsi_Cmnd), GFP_ATOMIC);
 
   memset (buffer, 0, 256);
   memset (cmd, 0, sizeof(Scsi_Cmnd));
   cmd->cmnd[0] = INQUIRY;
   cmd->cmnd[1] = (pDCB->UnitSCSILUN << 5) & 0xe0;
   cmd->cmnd[4] = 0xff;
 
   cmd->cmd_len = 6; cmd->old_cmd_len = 6;
   cmd->host = pACB->pScsiHost;
   cmd->target = pDCB->UnitSCSIID;
   cmd->lun = pDCB->UnitSCSILUN;
   cmd->serial_number = 1;
   cmd->bufflen = 128;
   cmd->buffer = buffer;
   cmd->request_bufflen = 128;
   cmd->request_buffer = &buffer[128];
   cmd->done = dc390_inquiry_done;
   cmd->scsi_done = dc390_inquiry_done;
   cmd->timeout_per_command = HZ;
 
   cmd->request.rq_status = RQ_SCSI_BUSY;
 
   printk (KERN_INFO "DC390: Queue INQUIRY command to dev ID %02x LUN %02x\n",
           pDCB->UnitSCSIID, pDCB->UnitSCSILUN);
   DC390_queue_command (cmd, dc390_inquiry_done);
};
 
/********************************************************************
 * Function: dc390_set_info()
 *
 * Purpose: Change adapter config
 *
 * Strings are parsed similar to the output of tmscsim_proc_info ()
 * '-' means no change
 *******************************************************************/
 
static int dc390_scanf (char** p1, char** p2, int* var)
{
   *p2 = *p1;
   *var = simple_strtoul (*p2, p1, 10);
   if (*p2 == *p1) return -1;
   *p1 = strtok (0, " \t\n:=,;.");
   return 0;
};
 
#define SCANF(p1, p2, var, min, max)            \
if (dc390_scanf (&p1, &p2, &var)) goto einv;    \
else if (var<min || var>max) goto einv2
 
static int dc390_yesno (char** p, char* var, char bmask)
{
   switch (**p)
     {
      case 'Y': *var |= bmask; break;
      case 'N': *var &= ~bmask; break;
      case '-': break;
      default: return -1;
     }
   *p = strtok (0, " \t\n:=,;");
   return 0;
};
 
#define YESNO(p, var, bmask)                    \
if (dc390_yesno (&p, &var, bmask)) goto einv;   \
else dc390_updateDCB (pACB, pDCB);              \
if (!p) goto ok
 
static int dc390_search (char **p1, char **p2, char *var, char* txt, int max, int scale, char* ign)
{
   int dum;
   if (! memcmp (*p1, txt, strlen(txt)))
     {
        *p2 = strtok (0, " \t\n:=,;");
        if (!*p2) return -1;
        dum = simple_strtoul (*p2, p1, 10);
        if (*p2 == *p1) return -1;
        if (dum >= 0 && dum <= max)
          { *var = (dum * 100) / scale; }
        else return -2;
        *p1 = strtok (0, " \t\n:=,;");
        if (*ign && *p1 && strlen(*p1) >= strlen(ign) &&
            !(memcmp (*p1, ign, strlen(ign))))
                *p1 = strtok (0, " \t\n:=,;");
 
     }
   return 0;
};
 
#define SEARCH(p1, p2, var, txt, max)                                           \
if (dc390_search (&p1, &p2, (PUCHAR)(&var), txt, max, 100, "")) goto einv2;     \
else if (!p1) goto ok2
 
#define SEARCH2(p1, p2, var, txt, max, scale)                                   \
if (dc390_search (&p1, &p2, &var, txt, max, scale, "")) goto einv2;             \
else if (!p1) goto ok2
 
#define SEARCH3(p1, p2, var, txt, max, scale, ign)                              \
if (dc390_search (&p1, &p2, &var, txt, max, scale, ign)) goto einv2;            \
else if (!p1) goto ok2
 
 
#ifdef DC390_PARSEDEBUG
static char _prstr[256];
char* prstr (char* p, char* e)
{
   char* c = _prstr;
   while (p < e)
     if (*p == 0) { *c++ = ':'; p++; }
     else if (*p == 10) { *c++ = '\\'; *c++ = 'n'; p++; }
     else *c++ = *p++;
   *c = 0;
   return _prstr;
};
#endif
 
int dc390_set_info (char *buffer, int length, PACB pACB)
{
  char *pos = buffer, *p0 = buffer;
  char needs_inquiry = 0;
  int dum = 0;
  char dev;
  PDCB pDCB = pACB->pLinkDCB;
  DC390_IFLAGS
  DC390_AFLAGS
  pos[length] = 0;
 
  DC390_LOCK_IO;
  DC390_LOCK_ACB;
  /* UPPERCASE */
  /* Don't use kernel toupper, because of 2.0.x bug: ctmp unexported */
  while (*pos)
    { if (*pos >='a' && *pos <= 'z') *pos = *pos + 'A' - 'a'; pos++; };
 
  /* We should protect __strtok ! */
  /* spin_lock (strtok_lock); */
 
  /* Remove WS */
  pos = strtok (buffer, " \t:\n=,;");
  if (!pos) goto ok;
 
 next:
  if (!memcmp (pos, "RESET", 5)) goto reset;
  else if (!memcmp (pos, "INQUIRY", 7)) goto inquiry;
  else if (!memcmp (pos, "REMOVE", 6)) goto remove;
 
  if (isdigit (*pos))
    {
      /* Device config line */
      int dev, id, lun; char* pdec;
      char olddevmode;
 
      SCANF (pos, p0, dev, 0, pACB->DCBCnt-1);
      if (pos) { SCANF (pos, p0, id, 0, 7); } else goto einv;
      if (pos) { SCANF (pos, p0, lun, 0, 7); } else goto einv;
      if (!pos) goto einv;
 
      PARSEDEBUG(printk (KERN_INFO "DC390: config line %i %i %i:\"%s\"\n", dev, id, lun, prstr (pos, &buffer[length]));)
      pDCB = pACB->pLinkDCB;
      for (dum = 0; dum < dev; dum++) pDCB = pDCB->pNextDCB;
      /* Sanity Check */
      if (pDCB->UnitSCSIID != id || pDCB->UnitSCSILUN != lun)
         {
            printk (KERN_ERR "DC390: no such device: Idx=%02i ID=%02i LUN=%02i\n",
                    dev, id, lun);
            goto einv2;
         };
 
      olddevmode = pDCB->DevMode;
      YESNO (pos, pDCB->DevMode, PARITY_CHK_);
      needs_inquiry++;
      YESNO (pos, pDCB->DevMode, SYNC_NEGO_);
      if ((olddevmode & SYNC_NEGO_) == (pDCB->DevMode & SYNC_NEGO_)) needs_inquiry--;
      needs_inquiry++;
      YESNO (pos, pDCB->DevMode, EN_DISCONNECT_);
      if ((olddevmode & EN_DISCONNECT_) == (pDCB->DevMode & EN_DISCONNECT_)) needs_inquiry--;
      YESNO (pos, pDCB->DevMode, SEND_START_);
      needs_inquiry++;
      YESNO (pos, pDCB->DevMode, TAG_QUEUEING_);
      if ((olddevmode & TAG_QUEUEING_) == (pDCB->DevMode & TAG_QUEUEING_)) needs_inquiry--;
      YESNO (pos, pDCB->SyncMode, EN_ATN_STOP);
 
      dc390_updateDCB (pACB, pDCB);
      if (!pos) goto ok;
 
      olddevmode = pDCB->NegoPeriod;
      /* Look for decimal point (Speed) */
      pdec = pos;
      while (pdec++ < &buffer[length]) if (*pdec == '.') break;
      /* NegoPeriod */
      if (*pos != '-')
        {
          SCANF (pos, p0, dum, 72, 800);
          pDCB->NegoPeriod = dum >> 2;
          if (pDCB->NegoPeriod != olddevmode) needs_inquiry++;
          if (!pos) goto ok;
          if (memcmp (pos, "NS", 2) == 0) pos = strtok (0, " \t\n:=,;.");
        }
      else pos = strtok (0, " \t\n:=,;.");
      if (!pos) goto ok;
 
      /* Speed: NegoPeriod */
      if (*pos != '-')
        {
          SCANF (pos, p0, dum, 1, 13);
          pDCB->NegoPeriod = (1000/dum) >> 2;
          if (pDCB->NegoPeriod != olddevmode && !pos) needs_inquiry++;
          if (!pos) goto ok;
          /* decimal */
          if (pos-1 == pdec)
             {
                int dumold = dum;
                dum = simple_strtoul (pos, &p0, 10) * 10;
                for (; p0-pos > 1; p0--) dum /= 10;
                pDCB->NegoPeriod = (100000/(100*dumold + dum)) >> 2;
                if (pDCB->NegoPeriod < 19) pDCB->NegoPeriod = 19;
                if (pDCB->NegoPeriod != olddevmode) needs_inquiry++;
                pos = strtok (0, " \t\n:=,;");
                if (!pos) goto ok;
             };
          if (*pos == 'M') pos = strtok (0, " \t\n:=,;");
        }
      else pos = strtok (0, " \t\n:=,;");
      /* dc390_updateDCB (pACB, pDCB); */
      if (!pos) goto ok;
 
      olddevmode = pDCB->SyncOffset;
      /* SyncOffs */
      if (*pos != '-')
        {
          SCANF (pos, p0, dum, 0, 0x0f);
          pDCB->SyncOffset = dum;
          if (pDCB->SyncOffset > olddevmode) needs_inquiry++;
        }
      else pos = strtok (0, " \t\n:=,;");
      dc390_updateDCB (pACB, pDCB);
    }
  else
    {
      char* p1 = pos; UCHAR dum;
      PARSEDEBUG(printk (KERN_INFO "DC390: chg adapt cfg \"%s\"\n", prstr (pos, &buffer[length]));)
      dum = GLITCH_TO_NS (pACB->glitch_cfg);
      /* Adapter setting */
      SEARCH (pos, p0, pACB->pScsiHost->max_id, "MAXID", 8);
      SEARCH (pos, p0, pACB->pScsiHost->max_lun, "MAXLUN", 8);
      SEARCH (pos, p0, pACB->pScsiHost->this_id, "ADAPTERID", 7);
      SEARCH (pos, p0, pACB->TagMaxNum, "TAGMAXNUM", 32);
      SEARCH (pos, p0, pACB->ACBFlag, "ACBFLAG", 255);
      SEARCH3 (pos, p0, dum, "GLITCHEATER", 40, 1000, "NS");
      SEARCH3 (pos, p0, pACB->sel_timeout, "SELTIMEOUT", 400, 163, "MS");
    ok2:
      pACB->glitch_cfg = NS_TO_GLITCH (dum);
      if (pACB->sel_timeout < 60) pACB->sel_timeout = 60;
      dum = 0; while (1 << dum <= pACB->TagMaxNum) dum ++;
      pACB->TagMaxNum &= (1 << --dum);
      if (pos == p1) goto einv;
      dc390_updateDCBs (pACB);
    }
  if (pos) goto next;
 
 ok:
  /* spin_unlock (strtok_lock); */
  DC390_UNLOCK_ACB;
  if (needs_inquiry)
     { dc390_updateDCB (pACB, pDCB); dc390_inquiry (pACB, pDCB); };
  DC390_UNLOCK_IO;
  return (length);
 
 einv2:
  pos = p0;
 einv:
  /* spin_unlock (strtok_lock); */
  DC390_UNLOCK_ACB;
  DC390_UNLOCK_IO;
  printk (KERN_WARNING "DC390: parse error near \"%s\"\n", (pos? pos: "NULL"));
  return (-EINVAL);
 
 reset:
     {
        Scsi_Cmnd cmd; cmd.host = pACB->pScsiHost;
        printk (KERN_WARNING "DC390: Driver reset requested!\n");
        DC390_UNLOCK_ACB;
        DC390_reset (&cmd, 0);
        DC390_UNLOCK_IO;
     };
  return (length);
 
 inquiry:
     {
        pos = strtok (0, " \t\n.:;="); if (!pos) goto einv;
        dev = simple_strtoul (pos, &p0, 10);
        if (dev >= pACB->DCBCnt) goto einv_dev;
        for (dum = 0; dum < dev; dum++) pDCB = pDCB->pNextDCB;
        printk (KERN_NOTICE " DC390: Issue INQUIRY command to Dev(Idx) %i SCSI ID %i LUN %i\n",
                dev, pDCB->UnitSCSIID, pDCB->UnitSCSILUN);
        DC390_UNLOCK_ACB;
        dc390_inquiry (pACB, pDCB);
        DC390_UNLOCK_IO;
     };
   return (length);
 
 remove:
     {
        pos = strtok (0, " \t\n.:;="); if (!pos) goto einv;
        dev = simple_strtoul (pos, &p0, 10);
        if (dev >= pACB->DCBCnt) goto einv_dev;
        for (dum = 0; dum < dev; dum++) pDCB = pDCB->pNextDCB;
        printk (KERN_NOTICE " DC390: Remove DCB for Dev(Idx) %i SCSI ID %i LUN %i\n",
                dev, pDCB->UnitSCSIID, pDCB->UnitSCSILUN);
        dc390_remove_dev (pACB, pDCB);
        DC390_UNLOCK_ACB;
        DC390_UNLOCK_IO;
     };
   return (length);
 
 einv_dev:
   printk (KERN_WARNING "DC390: Ignore cmnd to illegal Dev(Idx) %i. Valid range: 0 - %i.\n",
           dev, pACB->DCBCnt - 1);
   DC390_UNLOCK_ACB;
   DC390_UNLOCK_IO;
   return (-EINVAL);
 
 
}
 
#undef SEARCH
#undef YESNO
#undef SCANF
 
/********************************************************************
 * Function: DC390_proc_info(char* buffer, char **start,
 *                           off_t offset, int length, int hostno, int inout)
 *
 * Purpose: return SCSI Adapter/Device Info
 *
 * Input: buffer: Pointer to a buffer where to write info
 *        start :
 *        offset:
 *        hostno: Host adapter index
 *        inout : Read (=0) or set(!=0) info
 *
 * Output: buffer: contains info
 *         length; length of info in buffer
 *
 * return value: length
 *
 ********************************************************************/
 
#undef SPRINTF
#define SPRINTF(args...) pos += sprintf(pos, ## args)
 
#define YESNO(YN)               \
 if (YN) SPRINTF(" Yes ");      \
 else SPRINTF(" No  ")
 
 
int DC390_proc_info (char *buffer, char **start,
                     off_t offset, int length, int hostno, int inout)
{
  int dev, spd, spd1;
  char *pos = buffer;
  PSH shpnt;
  PACB pACB;
  PDCB pDCB;
  DC390_AFLAGS
 
  pACB = dc390_pACB_start;
 
  while(pACB != (PACB)-1)
     {
        shpnt = pACB->pScsiHost;
        if (shpnt->host_no == hostno) break;
        pACB = pACB->pNextACB;
     }
 
  if (pACB == (PACB)-1) return(-ESRCH);
  if(!shpnt) return(-ESRCH);
 
  if(inout) /* Has data been written to the file ? */
      return dc390_set_info(buffer, length, pACB);
 
  SPRINTF("Tekram DC390/AM53C974 PCI SCSI Host Adapter, ");
  SPRINTF("Driver Version %s\n", DC390_VERSION);
 
  DC390_LOCK_ACB;
 
  SPRINTF("SCSI Host Nr %i, ", shpnt->host_no);
  SPRINTF("%s Adapter Nr %i\n", dc390_adapname, pACB->AdapterIndex);
  SPRINTF("IOPortBase 0x%04x, ", pACB->IOPortBase);
  SPRINTF("IRQLevel 0x%02x\n", pACB->IRQLevel);
 
  SPRINTF("MaxID %i, MaxLUN %i, ", shpnt->max_id, shpnt->max_lun);
  SPRINTF("AdapterID %i, SelTimeout %i ms\n",
          shpnt->this_id, (pACB->sel_timeout*164)/100);
 
  SPRINTF("TagMaxNum %i, Status %i, ACBFlag %i, GlitchEater %i ns\n",
          pACB->TagMaxNum, pACB->status, pACB->ACBFlag, GLITCH_TO_NS(pACB->glitch_cfg)*12);
 
  SPRINTF("Statistics: Cmnds %li, Cmnds not sent directly %li, Out of SRB conds %li\n",
          pACB->Cmds, pACB->CmdInQ, pACB->CmdOutOfSRB);
  SPRINTF("            Lost arbitrations %li\n", pACB->SelLost);
 
  SPRINTF("Nr of attached devices: %i, Nr of DCBs: %i\n", pACB->DeviceCnt, pACB->DCBCnt);
 
  SPRINTF("Idx ID LUN Prty Sync DsCn SndS TagQ STOP NegoPeriod SyncSpeed SyncOffs\n");
 
  pDCB = pACB->pLinkDCB;
  for (dev = 0; dev < pACB->DCBCnt; dev++)
     {
      SPRINTF("%02i  %02i  %02i ", dev, pDCB->UnitSCSIID, pDCB->UnitSCSILUN);
      YESNO(pDCB->DevMode & PARITY_CHK_);
      YESNO(pDCB->SyncMode & SYNC_NEGO_DONE);
      YESNO(pDCB->DevMode & EN_DISCONNECT_);
      //YESNO(pDCB->SyncMode & EN_ATN_STOP);
      YESNO(pDCB->DevMode & SEND_START_);
      YESNO(pDCB->SyncMode & EN_TAG_QUEUEING);
      YESNO(pDCB->SyncMode & EN_ATN_STOP);
      if (pDCB->SyncOffset & 0x0f)
      {
         int sp = pDCB->SyncPeriod; if (! (pDCB->CtrlR3 & FAST_SCSI)) sp++;
         SPRINTF("  %03i ns ", (pDCB->NegoPeriod) << 2);
         spd = 40/(sp); spd1 = 40%(sp);
         spd1 = (spd1 * 10 + sp/2) / (sp);
         SPRINTF("   %2i.%1i M      %02i\n", spd, spd1, (pDCB->SyncOffset & 0x0f));
      }
      else SPRINTF(" (%03i ns)\n", (pDCB->NegoPeriod) << 2);
      /* Add more info ...*/
      pDCB = pDCB->pNextDCB;
     }
 
  DC390_UNLOCK_ACB;
  *start = buffer + offset;
 
  if (pos - buffer < offset)
    return 0;
  else if (pos - buffer - offset < length)
    return pos - buffer - offset;
  else
    return length;
}
 
#undef YESNO
#undef SPRINTF
 
#ifdef MODULE
 
/***********************************************************************
 * Function : static int dc390_shutdown (struct Scsi_Host *host)
 *
 * Purpose : does a clean (we hope) shutdown of the SCSI chip.
 *           Use prior to dumping core, unloading the driver, etc.
 *
 * Returns : 0 on success
 ***********************************************************************/
static int dc390_shutdown (struct Scsi_Host *host)
{
    UCHAR    bval;
    PACB pACB = (PACB)(host->hostdata);
 
/*  pACB->soft_reset(host); */
 
    printk(KERN_INFO "DC390: shutdown\n");
 
    pACB->ACBFlag = RESET_DONE;
    bval = DC390_read8 (CtrlReg1);
    bval |= DIS_INT_ON_SCSI_RST;
    DC390_write8 (CtrlReg1, bval);      /* disable interrupt */
    if (pACB->Gmode2 & RST_SCSI_BUS)
                dc390_ResetSCSIBus (pACB);
 
    return( 0 );
}
 
void dc390_freeDCBs (struct Scsi_Host *host)
{
    PDCB pDCB, nDCB;
    PACB pACB = (PACB)(host->hostdata);
 
    pDCB = pACB->pLinkDCB;
    if (!pDCB) return;
    do
    {
        nDCB = pDCB->pNextDCB;
        DCBDEBUG(printk (KERN_INFO "DC390: Free DCB (ID %i, LUN %i): 0x%08x\n",\
                pDCB->UnitSCSIID, pDCB->UnitSCSILUN, (int)pDCB);)
        kfree (pDCB);
        pDCB = nDCB;
    } while (pDCB && pDCB != pACB->pLinkDCB);
 
};
 
int DC390_release(struct Scsi_Host *host)
{
    int irq_count;
    PACB pACB;
    DC390_AFLAGS DC390_IFLAGS
#if USE_SPINLOCKS > 1
    PACB pACB = (PACB)(host->hostdata);
#endif
 
    DC390_LOCK_IO;
    DC390_LOCK_ACB;
 
    dc390_shutdown (host);
 
    if (host->irq != IRQ_NONE)
    {
        for (irq_count = 0, pACB = dc390_pACB_start;
             pACB; pACB = pACB->pNextACB)
        {
            if ( pACB->IRQLevel == host->irq )
                ++irq_count;
        }
        if (irq_count == 1)
         {
            DEBUG0(printk(KERN_INFO "DC390: Free IRQ %i\n",host->irq);)
            free_irq(host->irq,NULL);
         }
    }
 
    release_region(host->io_port,host->n_io_port);
    dc390_freeDCBs (host);
    DC390_UNLOCK_ACB;
    DC390_UNLOCK_IO;
    return( 1 );
}
 
Scsi_Host_Template driver_template = DC390_T;
#include "scsi_module.c"
#endif /* def MODULE */
Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [rc203soc/] [sw/] [uClinux/] [drivers/] [scsi/] [tmscsim.c] - Blame information for rev 1777

Line No.	Rev	Author	Line
1	1626	jcastillo	`/***********************************************************************`
2			`* FILE NAME : TMSCSIM.C *`
3			`* BY : C.L. Huang, ching@tekram.com.tw *`
4			`* Description: Device Driver for Tekram DC-390(T) PCI SCSI *`
5			`* Bus Master Host Adapter *`
6			`* (C)Copyright 1995-1996 Tekram Technology Co., Ltd. *`
7			`***********************************************************************/`
8			`/* (C) Copyright: put under GNU GPL in 10/96 *`
9			`*************************************************************************/`
10			`/* $Id: tmscsim.c,v 1.1 2005-12-20 10:17:45 jcastillo Exp $ */`
11			`/* Enhancements and bugfixes by *`
12			`* Kurt Garloff <kurt@garloff.de> *`
13			`***********************************************************************/`
14			`/* HISTORY: *`
15			`* *`
16			`* REV# DATE NAME DESCRIPTION *`
17			`* 1.00 96/04/24 CLH First release *`
18			`* 1.01 96/06/12 CLH Fixed bug of Media Change for Removable *`
19			`* Device, scan all LUN. Support Pre2.0.10 *`
20			`* 1.02 96/06/18 CLH Fixed bug of Command timeout ... *`
21			`* 1.03 96/09/25 KG Added tmscsim_proc_info() *`
22			`* 1.04 96/10/11 CLH Updating for support KV 2.0.x *`
23			`* 1.05 96/10/18 KG Fixed bug in DC390_abort(null ptr deref)*`
24			`* 1.06 96/10/25 KG Fixed module support *`
25			`* 1.07 96/11/09 KG Fixed tmscsim_proc_info() *`
26			`* 1.08 96/11/18 KG Fixed null ptr in DC390_Disconnect() *`
27			`* 1.09 96/11/30 KG Added register the allocated IO space *`
28			`* 1.10 96/12/05 CLH Modified tmscsim_proc_info(), and reset *`
29			`* pending interrupt in DC390_detect() *`
30			`* 1.11 97/02/05 KG/CLH Fixeds problem with partitions greater *`
31			`* than 1GB *`
32			`* 1.12 98/02/15 MJ Rewritten PCI probing *`
33			`* 1.13 98/04/08 KG Support for non DC390, __initfunc decls,*`
34			`* changed max devs from 10 to 16 *`
35			`* 1.14a 98/05/05 KG Dynamic DCB allocation, add-single-dev *`
36			`* for LUNs if LUN_SCAN (BIOS) not set *`
37			`* runtime config using /proc interface *`
38			`* 1.14b 98/05/06 KG eliminated cli (); sti (); spinlocks *`
39			`* 1.14c 98/05/07 KG 2.0.x compatibility *`
40			`* 1.20a 98/05/07 KG changed names of funcs to be consistent *`