[linux-block.git] / drivers / scsi / fdomain.c

// SPDX-License-Identifier: GPL-2.0
/*
 * Driver for Future Domain TMC-16x0 and TMC-3260 SCSI host adapters
 * Copyright 2019 Ondrej Zary
 *
 * Original driver by
 * Rickard E. Faith, faith@cs.unc.edu
 *
 * Future Domain BIOS versions supported for autodetect:
 *    2.0, 3.0, 3.2, 3.4 (1.0), 3.5 (2.0), 3.6, 3.61
 * Chips supported:
 *    TMC-1800, TMC-18C50, TMC-18C30, TMC-36C70
 * Boards supported:
 *    Future Domain TMC-1650, TMC-1660, TMC-1670, TMC-1680, TMC-1610M/MER/MEX
 *    Future Domain TMC-3260 (PCI)
 *    Quantum ISA-200S, ISA-250MG
 *    Adaptec AHA-2920A (PCI) [BUT *NOT* AHA-2920C -- use aic7xxx instead]
 *    IBM ?
 *
 * NOTE:
 *
 * The Adaptec AHA-2920C has an Adaptec AIC-7850 chip on it.
 * Use the aic7xxx driver for this board.
 *
 * The Adaptec AHA-2920A has a Future Domain chip on it, so this is the right
 * driver for that card.  Unfortunately, the boxes will probably just say
 * "2920", so you'll have to look on the card for a Future Domain logo, or a
 * letter after the 2920.
 *
 * If you have a TMC-8xx or TMC-9xx board, then this is not the driver for
 * your board.
 *
 * DESCRIPTION:
 *
 * This is the Linux low-level SCSI driver for Future Domain TMC-1660/1680
 * TMC-1650/1670, and TMC-3260 SCSI host adapters.  The 1650 and 1670 have a
 * 25-pin external connector, whereas the 1660 and 1680 have a SCSI-2 50-pin
 * high-density external connector.  The 1670 and 1680 have floppy disk
 * controllers built in.  The TMC-3260 is a PCI bus card.
 *
 * Future Domain's older boards are based on the TMC-1800 chip, and this
 * driver was originally written for a TMC-1680 board with the TMC-1800 chip.
 * More recently, boards are being produced with the TMC-18C50 and TMC-18C30
 * chips.
 *
 * Please note that the drive ordering that Future Domain implemented in BIOS
 * versions 3.4 and 3.5 is the opposite of the order (currently) used by the
 * rest of the SCSI industry.
 *
 *
 * REFERENCES USED:
 *
 * "TMC-1800 SCSI Chip Specification (FDC-1800T)", Future Domain Corporation,
 * 1990.
 *
 * "Technical Reference Manual: 18C50 SCSI Host Adapter Chip", Future Domain
 * Corporation, January 1992.
 *
 * "LXT SCSI Products: Specifications and OEM Technical Manual (Revision
 * B/September 1991)", Maxtor Corporation, 1991.
 *
 * "7213S product Manual (Revision P3)", Maxtor Corporation, 1992.
 *
 * "Draft Proposed American National Standard: Small Computer System
 * Interface - 2 (SCSI-2)", Global Engineering Documents. (X3T9.2/86-109,
 * revision 10h, October 17, 1991)
 *
 * Private communications, Drew Eckhardt (drew@cs.colorado.edu) and Eric
 * Youngdale (ericy@cais.com), 1992.
 *
 * Private communication, Tuong Le (Future Domain Engineering department),
 * 1994. (Disk geometry computations for Future Domain BIOS version 3.4, and
 * TMC-18C30 detection.)
 *
 * Hogan, Thom. The Programmer's PC Sourcebook. Microsoft Press, 1988. Page
 * 60 (2.39: Disk Partition Table Layout).
 *
 * "18C30 Technical Reference Manual", Future Domain Corporation, 1993, page
 * 6-1.
 */

#include <linux/module.h>
#include <linux/interrupt.h>
#include <linux/delay.h>
#include <linux/pci.h>
#include <linux/workqueue.h>
#include <scsi/scsicam.h>
#include <scsi/scsi_cmnd.h>
#include <scsi/scsi_device.h>
#include <scsi/scsi_host.h>
#include "fdomain.h"

/*
 * FIFO_COUNT: The host adapter has an 8K cache (host adapters based on the
 * 18C30 chip have a 2k cache).  When this many 512 byte blocks are filled by
 * the SCSI device, an interrupt will be raised.  Therefore, this could be as
 * low as 0, or as high as 16.  Note, however, that values which are too high
 * or too low seem to prevent any interrupts from occurring, and thereby lock
 * up the machine.
 */
#define FIFO_COUNT	2	/* Number of 512 byte blocks before INTR */
#define PARITY_MASK	ACTL_PAREN	/* Parity enabled, 0 = disabled */

enum chip_type {
	unknown		= 0x00,
	tmc1800		= 0x01,
	tmc18c50	= 0x02,
	tmc18c30	= 0x03,
};

struct fdomain {
	int base;
	struct scsi_cmnd *cur_cmd;
	enum chip_type chip;
	struct work_struct work;
};

static struct scsi_pointer *fdomain_scsi_pointer(struct scsi_cmnd *cmd)
{
	return scsi_cmd_priv(cmd);
}

static inline void fdomain_make_bus_idle(struct fdomain *fd)
{
	outb(0, fd->base + REG_BCTL);
	outb(0, fd->base + REG_MCTL);
	if (fd->chip == tmc18c50 || fd->chip == tmc18c30)
		/* Clear forced intr. */
		outb(ACTL_RESET | ACTL_CLRFIRQ | PARITY_MASK,
		     fd->base + REG_ACTL);
	else
		outb(ACTL_RESET | PARITY_MASK, fd->base + REG_ACTL);
}

static enum chip_type fdomain_identify(int port)
{
	u16 id = inb(port + REG_ID_LSB) | inb(port + REG_ID_MSB) << 8;

	switch (id) {
	case 0x6127:
		return tmc1800;
	case 0x60e9: /* 18c50 or 18c30 */
		break;
	default:
		return unknown;
	}

	/* Try to toggle 32-bit mode. This only works on an 18c30 chip. */
	outb(CFG2_32BIT, port + REG_CFG2);
	if ((inb(port + REG_CFG2) & CFG2_32BIT)) {
		outb(0, port + REG_CFG2);
		if ((inb(port + REG_CFG2) & CFG2_32BIT) == 0)
			return tmc18c30;
	}
	/* If that failed, we are an 18c50. */
	return tmc18c50;
}

static int fdomain_test_loopback(int base)
{
	int i;

	for (i = 0; i < 255; i++) {
		outb(i, base + REG_LOOPBACK);
		if (inb(base + REG_LOOPBACK) != i)
			return 1;
	}

	return 0;
}

static void fdomain_reset(int base)
{
	outb(BCTL_RST, base + REG_BCTL);
	mdelay(20);
	outb(0, base + REG_BCTL);
	mdelay(1150);
	outb(0, base + REG_MCTL);
	outb(PARITY_MASK, base + REG_ACTL);
}

static int fdomain_select(struct Scsi_Host *sh, int target)
{
	int status;
	unsigned long timeout;
	struct fdomain *fd = shost_priv(sh);

	outb(BCTL_BUSEN | BCTL_SEL, fd->base + REG_BCTL);
	outb(BIT(sh->this_id) | BIT(target), fd->base + REG_SCSI_DATA_NOACK);

	/* Stop arbitration and enable parity */
	outb(PARITY_MASK, fd->base + REG_ACTL);

	timeout = 350;	/* 350 msec */

	do {
		status = inb(fd->base + REG_BSTAT);
		if (status & BSTAT_BSY) {
			/* Enable SCSI Bus */
			/* (on error, should make bus idle with 0) */
			outb(BCTL_BUSEN, fd->base + REG_BCTL);
			return 0;
		}
		mdelay(1);
	} while (--timeout);
	fdomain_make_bus_idle(fd);
	return 1;
}

static void fdomain_finish_cmd(struct fdomain *fd)
{
	outb(0, fd->base + REG_ICTL);
	fdomain_make_bus_idle(fd);
	scsi_done(fd->cur_cmd);
	fd->cur_cmd = NULL;
}

static void fdomain_read_data(struct scsi_cmnd *cmd)
{
	struct fdomain *fd = shost_priv(cmd->device->host);
	unsigned char *virt, *ptr;
	size_t offset, len;

	while ((len = inw(fd->base + REG_FIFO_COUNT)) > 0) {
		offset = scsi_bufflen(cmd) - scsi_get_resid(cmd);
		virt = scsi_kmap_atomic_sg(scsi_sglist(cmd), scsi_sg_count(cmd),
					   &offset, &len);
		ptr = virt + offset;
		if (len & 1)
			*ptr++ = inb(fd->base + REG_FIFO);
		if (len > 1)
			insw(fd->base + REG_FIFO, ptr, len >> 1);
		scsi_set_resid(cmd, scsi_get_resid(cmd) - len);
		scsi_kunmap_atomic_sg(virt);
	}
}

static void fdomain_write_data(struct scsi_cmnd *cmd)
{
	struct fdomain *fd = shost_priv(cmd->device->host);
	/* 8k FIFO for pre-tmc18c30 chips, 2k FIFO for tmc18c30 */
	int FIFO_Size = fd->chip == tmc18c30 ? 0x800 : 0x2000;
	unsigned char *virt, *ptr;
	size_t offset, len;

	while ((len = FIFO_Size - inw(fd->base + REG_FIFO_COUNT)) > 512) {
		offset = scsi_bufflen(cmd) - scsi_get_resid(cmd);
		if (len + offset > scsi_bufflen(cmd)) {
			len = scsi_bufflen(cmd) - offset;
			if (len == 0)
				break;
		}
		virt = scsi_kmap_atomic_sg(scsi_sglist(cmd), scsi_sg_count(cmd),
					   &offset, &len);
		ptr = virt + offset;
		if (len & 1)
			outb(*ptr++, fd->base + REG_FIFO);
		if (len > 1)
			outsw(fd->base + REG_FIFO, ptr, len >> 1);
		scsi_set_resid(cmd, scsi_get_resid(cmd) - len);
		scsi_kunmap_atomic_sg(virt);
	}
}

static void fdomain_work(struct work_struct *work)
{
	struct fdomain *fd = container_of(work, struct fdomain, work);
	struct Scsi_Host *sh = container_of((void *)fd, struct Scsi_Host,
					    hostdata);
	struct scsi_cmnd *cmd = fd->cur_cmd;
	struct scsi_pointer *scsi_pointer = fdomain_scsi_pointer(cmd);
	unsigned long flags;
	int status;
	int done = 0;

	spin_lock_irqsave(sh->host_lock, flags);

	if (scsi_pointer->phase & in_arbitration) {
		status = inb(fd->base + REG_ASTAT);
		if (!(status & ASTAT_ARB)) {
			set_host_byte(cmd, DID_BUS_BUSY);
			fdomain_finish_cmd(fd);
			goto out;
		}
		scsi_pointer->phase = in_selection;

		outb(ICTL_SEL | FIFO_COUNT, fd->base + REG_ICTL);
		outb(BCTL_BUSEN | BCTL_SEL, fd->base + REG_BCTL);
		outb(BIT(cmd->device->host->this_id) | BIT(scmd_id(cmd)),
		     fd->base + REG_SCSI_DATA_NOACK);
		/* Stop arbitration and enable parity */
		outb(ACTL_IRQEN | PARITY_MASK, fd->base + REG_ACTL);
		goto out;
	} else if (scsi_pointer->phase & in_selection) {
		status = inb(fd->base + REG_BSTAT);
		if (!(status & BSTAT_BSY)) {
			/* Try again, for slow devices */
			if (fdomain_select(cmd->device->host, scmd_id(cmd))) {
				set_host_byte(cmd, DID_NO_CONNECT);
				fdomain_finish_cmd(fd);
				goto out;
			}
			/* Stop arbitration and enable parity */
			outb(ACTL_IRQEN | PARITY_MASK, fd->base + REG_ACTL);
		}
		scsi_pointer->phase = in_other;
		outb(ICTL_FIFO | ICTL_REQ | FIFO_COUNT, fd->base + REG_ICTL);
		outb(BCTL_BUSEN, fd->base + REG_BCTL);
		goto out;
	}

	/* fdomain_scsi_pointer(cur_cmd)->phase == in_other: this is the body of the routine */
	status = inb(fd->base + REG_BSTAT);

	if (status & BSTAT_REQ) {
		switch (status & (BSTAT_MSG | BSTAT_CMD | BSTAT_IO)) {
		case BSTAT_CMD:	/* COMMAND OUT */
			outb(cmd->cmnd[scsi_pointer->sent_command++],
			     fd->base + REG_SCSI_DATA);
			break;
		case 0:	/* DATA OUT -- tmc18c50/tmc18c30 only */
			if (fd->chip != tmc1800 && !scsi_pointer->have_data_in) {
				scsi_pointer->have_data_in = -1;
				outb(ACTL_IRQEN | ACTL_FIFOWR | ACTL_FIFOEN |
				     PARITY_MASK, fd->base + REG_ACTL);
			}
			break;
		case BSTAT_IO:	/* DATA IN -- tmc18c50/tmc18c30 only */
			if (fd->chip != tmc1800 && !scsi_pointer->have_data_in) {
				scsi_pointer->have_data_in = 1;
				outb(ACTL_IRQEN | ACTL_FIFOEN | PARITY_MASK,
				     fd->base + REG_ACTL);
			}
			break;
		case BSTAT_CMD | BSTAT_IO:	/* STATUS IN */
			scsi_pointer->Status = inb(fd->base + REG_SCSI_DATA);
			break;
		case BSTAT_MSG | BSTAT_CMD:	/* MESSAGE OUT */
			outb(MESSAGE_REJECT, fd->base + REG_SCSI_DATA);
			break;
		case BSTAT_MSG | BSTAT_CMD | BSTAT_IO:	/* MESSAGE IN */
			scsi_pointer->Message = inb(fd->base + REG_SCSI_DATA);
			if (scsi_pointer->Message == COMMAND_COMPLETE)
				++done;
			break;
		}
	}

	if (fd->chip == tmc1800 && !scsi_pointer->have_data_in &&
	    scsi_pointer->sent_command >= cmd->cmd_len) {
		if (cmd->sc_data_direction == DMA_TO_DEVICE) {
			scsi_pointer->have_data_in = -1;
			outb(ACTL_IRQEN | ACTL_FIFOWR | ACTL_FIFOEN |
			     PARITY_MASK, fd->base + REG_ACTL);
		} else {
			scsi_pointer->have_data_in = 1;
			outb(ACTL_IRQEN | ACTL_FIFOEN | PARITY_MASK,
			     fd->base + REG_ACTL);
		}
	}

	if (scsi_pointer->have_data_in == -1) /* DATA OUT */
		fdomain_write_data(cmd);

	if (scsi_pointer->have_data_in == 1) /* DATA IN */
		fdomain_read_data(cmd);

	if (done) {
		set_status_byte(cmd, scsi_pointer->Status);
		set_host_byte(cmd, DID_OK);
		scsi_msg_to_host_byte(cmd, scsi_pointer->Message);
		fdomain_finish_cmd(fd);
	} else {
		if (scsi_pointer->phase & disconnect) {
			outb(ICTL_FIFO | ICTL_SEL | ICTL_REQ | FIFO_COUNT,
			     fd->base + REG_ICTL);
			outb(0, fd->base + REG_BCTL);
		} else
			outb(ICTL_FIFO | ICTL_REQ | FIFO_COUNT,
			     fd->base + REG_ICTL);
	}
out:
	spin_unlock_irqrestore(sh->host_lock, flags);
}

static irqreturn_t fdomain_irq(int irq, void *dev_id)
{
	struct fdomain *fd = dev_id;

	/* Is it our IRQ? */
	if ((inb(fd->base + REG_ASTAT) & ASTAT_IRQ) == 0)
		return IRQ_NONE;

	outb(0, fd->base + REG_ICTL);

	/* We usually have one spurious interrupt after each command. */
	if (!fd->cur_cmd)	/* Spurious interrupt */
		return IRQ_NONE;

	schedule_work(&fd->work);

	return IRQ_HANDLED;
}

static int fdomain_queue(struct Scsi_Host *sh, struct scsi_cmnd *cmd)
{
	struct scsi_pointer *scsi_pointer = fdomain_scsi_pointer(cmd);
	struct fdomain *fd = shost_priv(cmd->device->host);
	unsigned long flags;

	scsi_pointer->Status		= 0;
	scsi_pointer->Message		= 0;
	scsi_pointer->have_data_in	= 0;
	scsi_pointer->sent_command	= 0;
	scsi_pointer->phase		= in_arbitration;
	scsi_set_resid(cmd, scsi_bufflen(cmd));

	spin_lock_irqsave(sh->host_lock, flags);

	fd->cur_cmd = cmd;

	fdomain_make_bus_idle(fd);

	/* Start arbitration */
	outb(0, fd->base + REG_ICTL);
	outb(0, fd->base + REG_BCTL);	/* Disable data drivers */
	/* Set our id bit */
	outb(BIT(cmd->device->host->this_id), fd->base + REG_SCSI_DATA_NOACK);
	outb(ICTL_ARB, fd->base + REG_ICTL);
	/* Start arbitration */
	outb(ACTL_ARB | ACTL_IRQEN | PARITY_MASK, fd->base + REG_ACTL);

	spin_unlock_irqrestore(sh->host_lock, flags);

	return 0;
}

static int fdomain_abort(struct scsi_cmnd *cmd)
{
	struct Scsi_Host *sh = cmd->device->host;
	struct fdomain *fd = shost_priv(sh);
	unsigned long flags;

	if (!fd->cur_cmd)
		return FAILED;

	spin_lock_irqsave(sh->host_lock, flags);

	fdomain_make_bus_idle(fd);
	fdomain_scsi_pointer(fd->cur_cmd)->phase |= aborted;

	/* Aborts are not done well. . . */
	set_host_byte(fd->cur_cmd, DID_ABORT);
	fdomain_finish_cmd(fd);
	spin_unlock_irqrestore(sh->host_lock, flags);
	return SUCCESS;
}

static int fdomain_host_reset(struct scsi_cmnd *cmd)
{
	struct Scsi_Host *sh = cmd->device->host;
	struct fdomain *fd = shost_priv(sh);
	unsigned long flags;

	spin_lock_irqsave(sh->host_lock, flags);
	fdomain_reset(fd->base);
	spin_unlock_irqrestore(sh->host_lock, flags);
	return SUCCESS;
}

static int fdomain_biosparam(struct scsi_device *sdev,
			     struct block_device *bdev,	sector_t capacity,
			     int geom[])
{
	unsigned char *p = scsi_bios_ptable(bdev);

	if (p && p[65] == 0xaa && p[64] == 0x55 /* Partition table valid */
	    && p[4]) {	 /* Partition type */
		geom[0] = p[5] + 1;	/* heads */
		geom[1] = p[6] & 0x3f;	/* sectors */
	} else {
		if (capacity >= 0x7e0000) {
			geom[0] = 255;	/* heads */
			geom[1] = 63;	/* sectors */
		} else if (capacity >= 0x200000) {
			geom[0] = 128;	/* heads */
			geom[1] = 63;	/* sectors */
		} else {
			geom[0] = 64;	/* heads */
			geom[1] = 32;	/* sectors */
		}
	}
	geom[2] = sector_div(capacity, geom[0] * geom[1]);
	kfree(p);

	return 0;
}

static const struct scsi_host_template fdomain_template = {
	.module			= THIS_MODULE,
	.name			= "Future Domain TMC-16x0",
	.proc_name		= "fdomain",
	.queuecommand		= fdomain_queue,
	.eh_abort_handler	= fdomain_abort,
	.eh_host_reset_handler	= fdomain_host_reset,
	.bios_param		= fdomain_biosparam,
	.can_queue		= 1,
	.this_id		= 7,
	.sg_tablesize		= 64,
	.dma_boundary		= PAGE_SIZE - 1,
	.cmd_size		= sizeof(struct scsi_pointer),
};

struct Scsi_Host *fdomain_create(int base, int irq, int this_id,
				 struct device *dev)
{
	struct Scsi_Host *sh;
	struct fdomain *fd;
	enum chip_type chip;
	static const char * const chip_names[] = {
		"Unknown", "TMC-1800", "TMC-18C50", "TMC-18C30"
	};
	unsigned long irq_flags = 0;

	chip = fdomain_identify(base);
	if (!chip)
		return NULL;

	fdomain_reset(base);

	if (fdomain_test_loopback(base))
		return NULL;

	if (!irq) {
		dev_err(dev, "card has no IRQ assigned");
		return NULL;
	}

	sh = scsi_host_alloc(&fdomain_template, sizeof(struct fdomain));
	if (!sh)
		return NULL;

	if (this_id)
		sh->this_id = this_id & 0x07;

	sh->irq = irq;
	sh->io_port = base;
	sh->n_io_port = FDOMAIN_REGION_SIZE;

	fd = shost_priv(sh);
	fd->base = base;
	fd->chip = chip;
	INIT_WORK(&fd->work, fdomain_work);

	if (dev_is_pci(dev) || !strcmp(dev->bus->name, "pcmcia"))
		irq_flags = IRQF_SHARED;

	if (request_irq(irq, fdomain_irq, irq_flags, "fdomain", fd))
		goto fail_put;

	shost_printk(KERN_INFO, sh, "%s chip at 0x%x irq %d SCSI ID %d\n",
		     dev_is_pci(dev) ? "TMC-36C70 (PCI bus)" : chip_names[chip],
		     base, irq, sh->this_id);

	if (scsi_add_host(sh, dev))
		goto fail_free_irq;

	scsi_scan_host(sh);

	return sh;

fail_free_irq:
	free_irq(irq, fd);
fail_put:
	scsi_host_put(sh);
	return NULL;
}
EXPORT_SYMBOL_GPL(fdomain_create);

int fdomain_destroy(struct Scsi_Host *sh)
{
	struct fdomain *fd = shost_priv(sh);

	cancel_work_sync(&fd->work);
	scsi_remove_host(sh);
	if (sh->irq)
		free_irq(sh->irq, fd);
	scsi_host_put(sh);
	return 0;
}
EXPORT_SYMBOL_GPL(fdomain_destroy);

#ifdef CONFIG_PM_SLEEP
static int fdomain_resume(struct device *dev)
{
	struct fdomain *fd = shost_priv(dev_get_drvdata(dev));

	fdomain_reset(fd->base);
	return 0;
}

static SIMPLE_DEV_PM_OPS(fdomain_pm_ops, NULL, fdomain_resume);
#endif /* CONFIG_PM_SLEEP */

MODULE_AUTHOR("Ondrej Zary, Rickard E. Faith");
MODULE_DESCRIPTION("Future Domain TMC-16x0/TMC-3260 SCSI driver");
MODULE_LICENSE("GPL");
Commit	Line	Data
ebeb4665 OZ	1	// SPDX-License-Identifier: GPL-2.0
	2	/*
	3	* Driver for Future Domain TMC-16x0 and TMC-3260 SCSI host adapters
	4	* Copyright 2019 Ondrej Zary
	5	*
	6	* Original driver by
	7	* Rickard E. Faith, faith@cs.unc.edu
	8	*
	9	* Future Domain BIOS versions supported for autodetect:
	10	* 2.0, 3.0, 3.2, 3.4 (1.0), 3.5 (2.0), 3.6, 3.61
	11	* Chips supported:
	12	* TMC-1800, TMC-18C50, TMC-18C30, TMC-36C70
	13	* Boards supported:
	14	* Future Domain TMC-1650, TMC-1660, TMC-1670, TMC-1680, TMC-1610M/MER/MEX
	15	* Future Domain TMC-3260 (PCI)
	16	* Quantum ISA-200S, ISA-250MG
	17	* Adaptec AHA-2920A (PCI) [BUT NOT AHA-2920C -- use aic7xxx instead]
	18	* IBM ?
	19	*
	20	* NOTE:
	21	*
	22	* The Adaptec AHA-2920C has an Adaptec AIC-7850 chip on it.
	23	* Use the aic7xxx driver for this board.
	24	*
	25	* The Adaptec AHA-2920A has a Future Domain chip on it, so this is the right
	26	* driver for that card. Unfortunately, the boxes will probably just say
	27	* "2920", so you'll have to look on the card for a Future Domain logo, or a
	28	* letter after the 2920.
	29	*
	30	* If you have a TMC-8xx or TMC-9xx board, then this is not the driver for
	31	* your board.
	32	*
	33	* DESCRIPTION:
	34	*
	35	* This is the Linux low-level SCSI driver for Future Domain TMC-1660/1680
	36	* TMC-1650/1670, and TMC-3260 SCSI host adapters. The 1650 and 1670 have a
	37	* 25-pin external connector, whereas the 1660 and 1680 have a SCSI-2 50-pin
	38	* high-density external connector. The 1670 and 1680 have floppy disk
	39	* controllers built in. The TMC-3260 is a PCI bus card.
	40	*
	41	* Future Domain's older boards are based on the TMC-1800 chip, and this
	42	* driver was originally written for a TMC-1680 board with the TMC-1800 chip.
	43	* More recently, boards are being produced with the TMC-18C50 and TMC-18C30
	44	* chips.
	45	*
	46	* Please note that the drive ordering that Future Domain implemented in BIOS
	47	* versions 3.4 and 3.5 is the opposite of the order (currently) used by the
	48	* rest of the SCSI industry.
	49	*
	50	*
	51	* REFERENCES USED:
	52	*
	53	* "TMC-1800 SCSI Chip Specification (FDC-1800T)", Future Domain Corporation,
	54	* 1990.
	55	*
	56	* "Technical Reference Manual: 18C50 SCSI Host Adapter Chip", Future Domain
	57	* Corporation, January 1992.
	58	*
	59	* "LXT SCSI Products: Specifications and OEM Technical Manual (Revision
	60	* B/September 1991)", Maxtor Corporation, 1991.
	61	*
	62	* "7213S product Manual (Revision P3)", Maxtor Corporation, 1992.
	63	*
	64	* "Draft Proposed American National Standard: Small Computer System
65	* Interface - 2 (SCSI-2)", Global Engineering Documents. (X3T9.2/86-109,
66	* revision 10h, October 17, 1991)
67	*
68	* Private communications, Drew Eckhardt (drew@cs.colorado.edu) and Eric
69	* Youngdale (ericy@cais.com), 1992.
70	*
71	* Private communication, Tuong Le (Future Domain Engineering department),
72	* 1994. (Disk geometry computations for Future Domain BIOS version 3.4, and
73	* TMC-18C30 detection.)
74	*
75	* Hogan, Thom. The Programmer's PC Sourcebook. Microsoft Press, 1988. Page
76	* 60 (2.39: Disk Partition Table Layout).
77	*
78	* "18C30 Technical Reference Manual", Future Domain Corporation, 1993, page
79	* 6-1.
80	*/
81
82	#include <linux/module.h>
83	#include <linux/interrupt.h>
84	#include <linux/delay.h>
85	#include <linux/pci.h>
86	#include <linux/workqueue.h>
87	#include <scsi/scsicam.h>
88	#include <scsi/scsi_cmnd.h>
89	#include <scsi/scsi_device.h>
90	#include <scsi/scsi_host.h>
91	#include "fdomain.h"
92
93	/*
94	* FIFO_COUNT: The host adapter has an 8K cache (host adapters based on the
95	* 18C30 chip have a 2k cache). When this many 512 byte blocks are filled by
96	* the SCSI device, an interrupt will be raised. Therefore, this could be as
97	* low as 0, or as high as 16. Note, however, that values which are too high
98	* or too low seem to prevent any interrupts from occurring, and thereby lock
99	* up the machine.
100	*/
101	#define FIFO_COUNT 2 /* Number of 512 byte blocks before INTR */
1697c6a6	102	#define PARITY_MASK ACTL_PAREN /* Parity enabled, 0 = disabled */
ebeb4665 OZ	103
	104	enum chip_type {
	105	unknown = 0x00,
	106	tmc1800 = 0x01,
	107	tmc18c50 = 0x02,
	108	tmc18c30 = 0x03,
	109	};
	110
	111	struct fdomain {
	112	int base;
	113	struct scsi_cmnd *cur_cmd;
	114	enum chip_type chip;
	115	struct work_struct work;
	116	};
	117
211134c4 BVA	118	static struct scsi_pointer fdomain_scsi_pointer(struct scsi_cmnd cmd)
	119	{
	120	return scsi_cmd_priv(cmd);
	121	}
	122
ebeb4665 OZ	123	static inline void fdomain_make_bus_idle(struct fdomain *fd)
ebeb4665 OZ	124	{
1697c6a6 OZ	125	outb(0, fd->base + REG_BCTL);
1697c6a6 OZ	126	outb(0, fd->base + REG_MCTL);
ebeb4665 OZ	127	if (fd->chip == tmc18c50 \|\| fd->chip == tmc18c30)
ebeb4665 OZ	128	/* Clear forced intr. */
1697c6a6 OZ	129	outb(ACTL_RESET \| ACTL_CLRFIRQ \| PARITY_MASK,
1697c6a6 OZ	130	fd->base + REG_ACTL);
ebeb4665	131	else
1697c6a6	132	outb(ACTL_RESET \| PARITY_MASK, fd->base + REG_ACTL);
ebeb4665 OZ	133	}
	134
	135	static enum chip_type fdomain_identify(int port)
	136	{
1697c6a6	137	u16 id = inb(port + REG_ID_LSB) \| inb(port + REG_ID_MSB) << 8;
ebeb4665 OZ	138
	139	switch (id) {
	140	case 0x6127:
	141	return tmc1800;
	142	case 0x60e9: /* 18c50 or 18c30 */
	143	break;
	144	default:
	145	return unknown;
	146	}
	147
	148	/* Try to toggle 32-bit mode. This only works on an 18c30 chip. */
1697c6a6 OZ	149	outb(CFG2_32BIT, port + REG_CFG2);
	150	if ((inb(port + REG_CFG2) & CFG2_32BIT)) {
	151	outb(0, port + REG_CFG2);
	152	if ((inb(port + REG_CFG2) & CFG2_32BIT) == 0)
ebeb4665 OZ	153	return tmc18c30;
	154	}
	155	/* If that failed, we are an 18c50. */
	156	return tmc18c50;
	157	}
	158
	159	static int fdomain_test_loopback(int base)
	160	{
	161	int i;
	162
	163	for (i = 0; i < 255; i++) {
1697c6a6 OZ	164	outb(i, base + REG_LOOPBACK);
1697c6a6 OZ	165	if (inb(base + REG_LOOPBACK) != i)
ebeb4665 OZ	166	return 1;
	167	}
	168
	169	return 0;
	170	}
	171
	172	static void fdomain_reset(int base)
	173	{
a9651be7	174	outb(BCTL_RST, base + REG_BCTL);
ebeb4665	175	mdelay(20);
1697c6a6	176	outb(0, base + REG_BCTL);
ebeb4665	177	mdelay(1150);
1697c6a6 OZ	178	outb(0, base + REG_MCTL);
1697c6a6 OZ	179	outb(PARITY_MASK, base + REG_ACTL);
ebeb4665 OZ	180	}
	181
	182	static int fdomain_select(struct Scsi_Host *sh, int target)
	183	{
	184	int status;
	185	unsigned long timeout;
	186	struct fdomain *fd = shost_priv(sh);
	187
1697c6a6 OZ	188	outb(BCTL_BUSEN \| BCTL_SEL, fd->base + REG_BCTL);
1697c6a6 OZ	189	outb(BIT(sh->this_id) \| BIT(target), fd->base + REG_SCSI_DATA_NOACK);
ebeb4665 OZ	190
ebeb4665 OZ	191	/* Stop arbitration and enable parity */
1697c6a6	192	outb(PARITY_MASK, fd->base + REG_ACTL);
ebeb4665 OZ	193
	194	timeout = 350; /* 350 msec */
	195
	196	do {
1697c6a6 OZ	197	status = inb(fd->base + REG_BSTAT);
1697c6a6 OZ	198	if (status & BSTAT_BSY) {
ebeb4665 OZ	199	/* Enable SCSI Bus */
ebeb4665 OZ	200	/* (on error, should make bus idle with 0) */
1697c6a6	201	outb(BCTL_BUSEN, fd->base + REG_BCTL);
ebeb4665 OZ	202	return 0;
	203	}
	204	mdelay(1);
	205	} while (--timeout);
	206	fdomain_make_bus_idle(fd);
	207	return 1;
	208	}
	209
b2e88c97	210	static void fdomain_finish_cmd(struct fdomain *fd)
ebeb4665	211	{
1697c6a6	212	outb(0, fd->base + REG_ICTL);
ebeb4665	213	fdomain_make_bus_idle(fd);
a0c22474	214	scsi_done(fd->cur_cmd);
ebeb4665 OZ	215	fd->cur_cmd = NULL;
	216	}
	217
	218	static void fdomain_read_data(struct scsi_cmnd *cmd)
	219	{
	220	struct fdomain *fd = shost_priv(cmd->device->host);
	221	unsigned char virt, ptr;
	222	size_t offset, len;
	223
1697c6a6	224	while ((len = inw(fd->base + REG_FIFO_COUNT)) > 0) {
ebeb4665 OZ	225	offset = scsi_bufflen(cmd) - scsi_get_resid(cmd);
	226	virt = scsi_kmap_atomic_sg(scsi_sglist(cmd), scsi_sg_count(cmd),
	227	&offset, &len);
	228	ptr = virt + offset;
	229	if (len & 1)
1697c6a6	230	*ptr++ = inb(fd->base + REG_FIFO);
ebeb4665	231	if (len > 1)
1697c6a6	232	insw(fd->base + REG_FIFO, ptr, len >> 1);
ebeb4665 OZ	233	scsi_set_resid(cmd, scsi_get_resid(cmd) - len);
	234	scsi_kunmap_atomic_sg(virt);
	235	}
	236	}
	237
	238	static void fdomain_write_data(struct scsi_cmnd *cmd)
	239	{
	240	struct fdomain *fd = shost_priv(cmd->device->host);
	241	/* 8k FIFO for pre-tmc18c30 chips, 2k FIFO for tmc18c30 */
	242	int FIFO_Size = fd->chip == tmc18c30 ? 0x800 : 0x2000;
	243	unsigned char virt, ptr;
	244	size_t offset, len;
	245
1697c6a6	246	while ((len = FIFO_Size - inw(fd->base + REG_FIFO_COUNT)) > 512) {
ebeb4665 OZ	247	offset = scsi_bufflen(cmd) - scsi_get_resid(cmd);
	248	if (len + offset > scsi_bufflen(cmd)) {
	249	len = scsi_bufflen(cmd) - offset;
	250	if (len == 0)
	251	break;
	252	}
	253	virt = scsi_kmap_atomic_sg(scsi_sglist(cmd), scsi_sg_count(cmd),
	254	&offset, &len);
	255	ptr = virt + offset;
	256	if (len & 1)
1697c6a6	257	outb(*ptr++, fd->base + REG_FIFO);
ebeb4665	258	if (len > 1)
1697c6a6	259	outsw(fd->base + REG_FIFO, ptr, len >> 1);
ebeb4665 OZ	260	scsi_set_resid(cmd, scsi_get_resid(cmd) - len);
	261	scsi_kunmap_atomic_sg(virt);
	262	}
	263	}
	264
	265	static void fdomain_work(struct work_struct *work)
	266	{
	267	struct fdomain *fd = container_of(work, struct fdomain, work);
	268	struct Scsi_Host sh = container_of((void )fd, struct Scsi_Host,
	269	hostdata);
	270	struct scsi_cmnd *cmd = fd->cur_cmd;
211134c4	271	struct scsi_pointer *scsi_pointer = fdomain_scsi_pointer(cmd);
ebeb4665 OZ	272	unsigned long flags;
	273	int status;
	274	int done = 0;
	275
	276	spin_lock_irqsave(sh->host_lock, flags);
	277
211134c4	278	if (scsi_pointer->phase & in_arbitration) {
1697c6a6 OZ	279	status = inb(fd->base + REG_ASTAT);
1697c6a6 OZ	280	if (!(status & ASTAT_ARB)) {
b2e88c97 HR	281	set_host_byte(cmd, DID_BUS_BUSY);
b2e88c97 HR	282	fdomain_finish_cmd(fd);
ebeb4665 OZ	283	goto out;
ebeb4665 OZ	284	}
211134c4	285	scsi_pointer->phase = in_selection;
ebeb4665	286
1697c6a6 OZ	287	outb(ICTL_SEL \| FIFO_COUNT, fd->base + REG_ICTL);
	288	outb(BCTL_BUSEN \| BCTL_SEL, fd->base + REG_BCTL);
	289	outb(BIT(cmd->device->host->this_id) \| BIT(scmd_id(cmd)),
	290	fd->base + REG_SCSI_DATA_NOACK);
ebeb4665	291	/* Stop arbitration and enable parity */
1697c6a6	292	outb(ACTL_IRQEN \| PARITY_MASK, fd->base + REG_ACTL);
ebeb4665	293	goto out;
211134c4	294	} else if (scsi_pointer->phase & in_selection) {
1697c6a6 OZ	295	status = inb(fd->base + REG_BSTAT);
1697c6a6 OZ	296	if (!(status & BSTAT_BSY)) {
ebeb4665 OZ	297	/* Try again, for slow devices */
ebeb4665 OZ	298	if (fdomain_select(cmd->device->host, scmd_id(cmd))) {
b2e88c97 HR	299	set_host_byte(cmd, DID_NO_CONNECT);
b2e88c97 HR	300	fdomain_finish_cmd(fd);
ebeb4665 OZ	301	goto out;
	302	}
	303	/* Stop arbitration and enable parity */
1697c6a6	304	outb(ACTL_IRQEN \| PARITY_MASK, fd->base + REG_ACTL);
ebeb4665	305	}
211134c4	306	scsi_pointer->phase = in_other;
1697c6a6 OZ	307	outb(ICTL_FIFO \| ICTL_REQ \| FIFO_COUNT, fd->base + REG_ICTL);
1697c6a6 OZ	308	outb(BCTL_BUSEN, fd->base + REG_BCTL);
ebeb4665 OZ	309	goto out;
	310	}
	311
211134c4	312	/* fdomain_scsi_pointer(cur_cmd)->phase == in_other: this is the body of the routine */
1697c6a6	313	status = inb(fd->base + REG_BSTAT);
ebeb4665	314
1697c6a6	315	if (status & BSTAT_REQ) {
7a1c0b79	316	switch (status & (BSTAT_MSG \| BSTAT_CMD \| BSTAT_IO)) {
1697c6a6	317	case BSTAT_CMD: /* COMMAND OUT */
211134c4	318	outb(cmd->cmnd[scsi_pointer->sent_command++],
1697c6a6	319	fd->base + REG_SCSI_DATA);
ebeb4665	320	break;
1697c6a6	321	case 0: /* DATA OUT -- tmc18c50/tmc18c30 only */
211134c4 BVA	322	if (fd->chip != tmc1800 && !scsi_pointer->have_data_in) {
211134c4 BVA	323	scsi_pointer->have_data_in = -1;
1697c6a6 OZ	324	outb(ACTL_IRQEN \| ACTL_FIFOWR \| ACTL_FIFOEN \|
1697c6a6 OZ	325	PARITY_MASK, fd->base + REG_ACTL);
ebeb4665 OZ	326	}
ebeb4665 OZ	327	break;
1697c6a6	328	case BSTAT_IO: /* DATA IN -- tmc18c50/tmc18c30 only */
211134c4 BVA	329	if (fd->chip != tmc1800 && !scsi_pointer->have_data_in) {
211134c4 BVA	330	scsi_pointer->have_data_in = 1;
1697c6a6 OZ	331	outb(ACTL_IRQEN \| ACTL_FIFOEN \| PARITY_MASK,
1697c6a6 OZ	332	fd->base + REG_ACTL);
ebeb4665 OZ	333	}
ebeb4665 OZ	334	break;
1697c6a6	335	case BSTAT_CMD \| BSTAT_IO: /* STATUS IN */
211134c4	336	scsi_pointer->Status = inb(fd->base + REG_SCSI_DATA);
ebeb4665	337	break;
1697c6a6 OZ	338	case BSTAT_MSG \| BSTAT_CMD: /* MESSAGE OUT */
1697c6a6 OZ	339	outb(MESSAGE_REJECT, fd->base + REG_SCSI_DATA);
ebeb4665	340	break;
7a1c0b79	341	case BSTAT_MSG \| BSTAT_CMD \| BSTAT_IO: /* MESSAGE IN */
211134c4 BVA	342	scsi_pointer->Message = inb(fd->base + REG_SCSI_DATA);
211134c4 BVA	343	if (scsi_pointer->Message == COMMAND_COMPLETE)
ebeb4665 OZ	344	++done;
	345	break;
	346	}
	347	}
	348
211134c4 BVA	349	if (fd->chip == tmc1800 && !scsi_pointer->have_data_in &&
211134c4 BVA	350	scsi_pointer->sent_command >= cmd->cmd_len) {
ebeb4665	351	if (cmd->sc_data_direction == DMA_TO_DEVICE) {
211134c4	352	scsi_pointer->have_data_in = -1;
1697c6a6 OZ	353	outb(ACTL_IRQEN \| ACTL_FIFOWR \| ACTL_FIFOEN \|
1697c6a6 OZ	354	PARITY_MASK, fd->base + REG_ACTL);
ebeb4665	355	} else {
211134c4	356	scsi_pointer->have_data_in = 1;
1697c6a6 OZ	357	outb(ACTL_IRQEN \| ACTL_FIFOEN \| PARITY_MASK,
1697c6a6 OZ	358	fd->base + REG_ACTL);
ebeb4665 OZ	359	}
	360	}
	361
211134c4	362	if (scsi_pointer->have_data_in == -1) /* DATA OUT */
ebeb4665 OZ	363	fdomain_write_data(cmd);
ebeb4665 OZ	364
211134c4	365	if (scsi_pointer->have_data_in == 1) /* DATA IN */
ebeb4665 OZ	366	fdomain_read_data(cmd);
	367
	368	if (done) {
211134c4	369	set_status_byte(cmd, scsi_pointer->Status);
b2e88c97	370	set_host_byte(cmd, DID_OK);
211134c4	371	scsi_msg_to_host_byte(cmd, scsi_pointer->Message);
b2e88c97	372	fdomain_finish_cmd(fd);
ebeb4665	373	} else {
211134c4	374	if (scsi_pointer->phase & disconnect) {
1697c6a6 OZ	375	outb(ICTL_FIFO \| ICTL_SEL \| ICTL_REQ \| FIFO_COUNT,
	376	fd->base + REG_ICTL);
	377	outb(0, fd->base + REG_BCTL);
ebeb4665	378	} else
1697c6a6 OZ	379	outb(ICTL_FIFO \| ICTL_REQ \| FIFO_COUNT,
1697c6a6 OZ	380	fd->base + REG_ICTL);
ebeb4665 OZ	381	}
	382	out:
	383	spin_unlock_irqrestore(sh->host_lock, flags);
	384	}
	385
	386	static irqreturn_t fdomain_irq(int irq, void *dev_id)
	387	{
	388	struct fdomain *fd = dev_id;
	389
	390	/* Is it our IRQ? */
1697c6a6	391	if ((inb(fd->base + REG_ASTAT) & ASTAT_IRQ) == 0)
ebeb4665 OZ	392	return IRQ_NONE;
ebeb4665 OZ	393
1697c6a6	394	outb(0, fd->base + REG_ICTL);
ebeb4665 OZ	395
	396	/* We usually have one spurious interrupt after each command. */
	397	if (!fd->cur_cmd) /* Spurious interrupt */
	398	return IRQ_NONE;
	399
	400	schedule_work(&fd->work);
	401
	402	return IRQ_HANDLED;
	403	}
	404
	405	static int fdomain_queue(struct Scsi_Host sh, struct scsi_cmnd cmd)
	406	{
211134c4	407	struct scsi_pointer *scsi_pointer = fdomain_scsi_pointer(cmd);
ebeb4665 OZ	408	struct fdomain *fd = shost_priv(cmd->device->host);
	409	unsigned long flags;
	410
211134c4 BVA	411	scsi_pointer->Status = 0;
	412	scsi_pointer->Message = 0;
	413	scsi_pointer->have_data_in = 0;
	414	scsi_pointer->sent_command = 0;
	415	scsi_pointer->phase = in_arbitration;
ebeb4665 OZ	416	scsi_set_resid(cmd, scsi_bufflen(cmd));
	417
	418	spin_lock_irqsave(sh->host_lock, flags);
	419
	420	fd->cur_cmd = cmd;
	421
	422	fdomain_make_bus_idle(fd);
	423
	424	/* Start arbitration */
1697c6a6 OZ	425	outb(0, fd->base + REG_ICTL);
	426	outb(0, fd->base + REG_BCTL); /* Disable data drivers */
	427	/* Set our id bit */
	428	outb(BIT(cmd->device->host->this_id), fd->base + REG_SCSI_DATA_NOACK);
	429	outb(ICTL_ARB, fd->base + REG_ICTL);
	430	/* Start arbitration */
	431	outb(ACTL_ARB \| ACTL_IRQEN \| PARITY_MASK, fd->base + REG_ACTL);
ebeb4665 OZ	432
	433	spin_unlock_irqrestore(sh->host_lock, flags);
	434
	435	return 0;
	436	}
	437
	438	static int fdomain_abort(struct scsi_cmnd *cmd)
	439	{
	440	struct Scsi_Host *sh = cmd->device->host;
	441	struct fdomain *fd = shost_priv(sh);
	442	unsigned long flags;
	443
	444	if (!fd->cur_cmd)
	445	return FAILED;
	446
	447	spin_lock_irqsave(sh->host_lock, flags);
	448
	449	fdomain_make_bus_idle(fd);
211134c4	450	fdomain_scsi_pointer(fd->cur_cmd)->phase \|= aborted;
ebeb4665 OZ	451
ebeb4665 OZ	452	/* Aborts are not done well. . . */
b2e88c97 HR	453	set_host_byte(fd->cur_cmd, DID_ABORT);
b2e88c97 HR	454	fdomain_finish_cmd(fd);
ebeb4665 OZ	455	spin_unlock_irqrestore(sh->host_lock, flags);
	456	return SUCCESS;
	457	}
	458
	459	static int fdomain_host_reset(struct scsi_cmnd *cmd)
	460	{
	461	struct Scsi_Host *sh = cmd->device->host;
	462	struct fdomain *fd = shost_priv(sh);
	463	unsigned long flags;
	464
	465	spin_lock_irqsave(sh->host_lock, flags);
	466	fdomain_reset(fd->base);
	467	spin_unlock_irqrestore(sh->host_lock, flags);
	468	return SUCCESS;
	469	}
	470
	471	static int fdomain_biosparam(struct scsi_device *sdev,
	472	struct block_device *bdev, sector_t capacity,
	473	int geom[])
	474	{
	475	unsigned char *p = scsi_bios_ptable(bdev);
	476
	477	if (p && p[65] == 0xaa && p[64] == 0x55 /* Partition table valid */
	478	&& p[4]) { /* Partition type */
	479	geom[0] = p[5] + 1; /* heads */
	480	geom[1] = p[6] & 0x3f; /* sectors */
	481	} else {
	482	if (capacity >= 0x7e0000) {
	483	geom[0] = 255; /* heads */
	484	geom[1] = 63; /* sectors */
	485	} else if (capacity >= 0x200000) {
	486	geom[0] = 128; /* heads */
	487	geom[1] = 63; /* sectors */
	488	} else {
	489	geom[0] = 64; /* heads */
	490	geom[1] = 32; /* sectors */
	491	}
	492	}
	493	geom[2] = sector_div(capacity, geom[0] * geom[1]);
	494	kfree(p);
	495
	496	return 0;
	497	}
	498
8e6a87aa	499	static const struct scsi_host_template fdomain_template = {
ebeb4665 OZ	500	.module = THIS_MODULE,
	501	.name = "Future Domain TMC-16x0",
	502	.proc_name = "fdomain",
	503	.queuecommand = fdomain_queue,
	504	.eh_abort_handler = fdomain_abort,
	505	.eh_host_reset_handler = fdomain_host_reset,
	506	.bios_param = fdomain_biosparam,
	507	.can_queue = 1,
	508	.this_id = 7,
	509	.sg_tablesize = 64,
	510	.dma_boundary = PAGE_SIZE - 1,
211134c4	511	.cmd_size = sizeof(struct scsi_pointer),
ebeb4665 OZ	512	};
	513
	514	struct Scsi_Host *fdomain_create(int base, int irq, int this_id,
	515	struct device *dev)
	516	{
	517	struct Scsi_Host *sh;
	518	struct fdomain *fd;
	519	enum chip_type chip;
	520	static const char * const chip_names[] = {
	521	"Unknown", "TMC-1800", "TMC-18C50", "TMC-18C30"
	522	};
8674a8aa	523	unsigned long irq_flags = 0;
ebeb4665 OZ	524
	525	chip = fdomain_identify(base);
	526	if (!chip)
	527	return NULL;
	528
	529	fdomain_reset(base);
	530
	531	if (fdomain_test_loopback(base))
	532	return NULL;
	533
	534	if (!irq) {
	535	dev_err(dev, "card has no IRQ assigned");
	536	return NULL;
	537	}
	538
	539	sh = scsi_host_alloc(&fdomain_template, sizeof(struct fdomain));
	540	if (!sh)
	541	return NULL;
	542
	543	if (this_id)
	544	sh->this_id = this_id & 0x07;
	545
	546	sh->irq = irq;
	547	sh->io_port = base;
	548	sh->n_io_port = FDOMAIN_REGION_SIZE;
	549
	550	fd = shost_priv(sh);
	551	fd->base = base;
	552	fd->chip = chip;
	553	INIT_WORK(&fd->work, fdomain_work);
	554
8674a8aa OZ	555	if (dev_is_pci(dev) \|\| !strcmp(dev->bus->name, "pcmcia"))
	556	irq_flags = IRQF_SHARED;
	557
	558	if (request_irq(irq, fdomain_irq, irq_flags, "fdomain", fd))
ebeb4665 OZ	559	goto fail_put;
	560
	561	shost_printk(KERN_INFO, sh, "%s chip at 0x%x irq %d SCSI ID %d\n",
	562	dev_is_pci(dev) ? "TMC-36C70 (PCI bus)" : chip_names[chip],
	563	base, irq, sh->this_id);
	564
	565	if (scsi_add_host(sh, dev))
	566	goto fail_free_irq;
	567
	568	scsi_scan_host(sh);
	569
	570	return sh;
	571
	572	fail_free_irq:
	573	free_irq(irq, fd);
	574	fail_put:
	575	scsi_host_put(sh);
	576	return NULL;
	577	}
	578	EXPORT_SYMBOL_GPL(fdomain_create);
	579
	580	int fdomain_destroy(struct Scsi_Host *sh)
	581	{
	582	struct fdomain *fd = shost_priv(sh);
	583
	584	cancel_work_sync(&fd->work);
	585	scsi_remove_host(sh);
	586	if (sh->irq)
	587	free_irq(sh->irq, fd);
	588	scsi_host_put(sh);
	589	return 0;
	590	}
	591	EXPORT_SYMBOL_GPL(fdomain_destroy);
	592
	593	#ifdef CONFIG_PM_SLEEP
	594	static int fdomain_resume(struct device *dev)
	595	{
	596	struct fdomain *fd = shost_priv(dev_get_drvdata(dev));
	597
	598	fdomain_reset(fd->base);
	599	return 0;
	600	}
	601
	602	static SIMPLE_DEV_PM_OPS(fdomain_pm_ops, NULL, fdomain_resume);
	603	#endif /* CONFIG_PM_SLEEP */
	604
	605	MODULE_AUTHOR("Ondrej Zary, Rickard E. Faith");
	606	MODULE_DESCRIPTION("Future Domain TMC-16x0/TMC-3260 SCSI driver");
	607	MODULE_LICENSE("GPL");