patch-2.1.16 linux/drivers/scsi/qlogicpti.c
Next file: linux/drivers/scsi/qlogicpti.h
Previous file: linux/drivers/scsi/ibmmca.c
Back to the patch index
Back to the overall index
- Lines: 1119
- Date:
Fri Dec 13 11:37:37 1996
- Orig file:
v2.1.15/linux/drivers/scsi/qlogicpti.c
- Orig date:
Thu Jan 1 02:00:00 1970
diff -u --recursive --new-file v2.1.15/linux/drivers/scsi/qlogicpti.c linux/drivers/scsi/qlogicpti.c
@@ -0,0 +1,1118 @@
+/* qlogicpti.c: Performance Technologies QlogicISP sbus card driver.
+ *
+ * Copyright (C) 1996 David S. Miller (davem@caipfs.rutgers.edu)
+ *
+ * A lot of this driver was directly stolen from Erik H. Moe's PCI
+ * Qlogic ISP driver. Mucho kudos to him for this code.
+ *
+ * An even bigger kudos to John Grana at Performance Technologies
+ * for providing me with the hardware to write this driver, you rule
+ * John you really do.
+ */
+
+#include <linux/kernel.h>
+#include <linux/delay.h>
+#include <linux/types.h>
+#include <linux/string.h>
+#include <linux/malloc.h>
+#include <linux/blk.h>
+#include <linux/proc_fs.h>
+#include <linux/stat.h>
+
+#include <asm/byteorder.h>
+
+#include "scsi.h"
+#include "hosts.h"
+#include "qlogicpti.h"
+
+#include <asm/sbus.h>
+#include <asm/dma.h>
+#include <asm/system.h>
+#include <asm/machines.h>
+#include <asm/ptrace.h>
+#include <asm/pgtable.h>
+#include <asm/oplib.h>
+#include <asm/vaddrs.h>
+#include <asm/io.h>
+
+#include <linux/module.h>
+
+#define MAX_TARGETS 16
+#define MAX_LUNS 8
+
+#define DEFAULT_LOOP_COUNT 1000000
+
+#include "qlogicpti_asm.c"
+
+static struct qlogicpti *qptichain;
+static int qptis_running = 0;
+
+#define PACKB(a, b) (((a)<<4)|(b))
+
+const u_char mbox_param[] = {
+ PACKB(1, 1), /* MBOX_NO_OP */
+ PACKB(5, 5), /* MBOX_LOAD_RAM */
+ PACKB(2, 0), /* MBOX_EXEC_FIRMWARE */
+ PACKB(5, 5), /* MBOX_DUMP_RAM */
+ PACKB(3, 3), /* MBOX_WRITE_RAM_WORD */
+ PACKB(2, 3), /* MBOX_READ_RAM_WORD */
+ PACKB(6, 6), /* MBOX_MAILBOX_REG_TEST */
+ PACKB(2, 3), /* MBOX_VERIFY_CHECKSUM */
+ PACKB(1, 3), /* MBOX_ABOUT_FIRMWARE */
+ PACKB(0, 0), /* 0x0009 */
+ PACKB(0, 0), /* 0x000a */
+ PACKB(0, 0), /* 0x000b */
+ PACKB(0, 0), /* 0x000c */
+ PACKB(0, 0), /* 0x000d */
+ PACKB(1, 2), /* MBOX_CHECK_FIRMWARE */
+ PACKB(0, 0), /* 0x000f */
+ PACKB(5, 5), /* MBOX_INIT_REQ_QUEUE */
+ PACKB(6, 6), /* MBOX_INIT_RES_QUEUE */
+ PACKB(4, 4), /* MBOX_EXECUTE_IOCB */
+ PACKB(2, 2), /* MBOX_WAKE_UP */
+ PACKB(1, 6), /* MBOX_STOP_FIRMWARE */
+ PACKB(4, 4), /* MBOX_ABORT */
+ PACKB(2, 2), /* MBOX_ABORT_DEVICE */
+ PACKB(3, 3), /* MBOX_ABORT_TARGET */
+ PACKB(2, 2), /* MBOX_BUS_RESET */
+ PACKB(2, 3), /* MBOX_STOP_QUEUE */
+ PACKB(2, 3), /* MBOX_START_QUEUE */
+ PACKB(2, 3), /* MBOX_SINGLE_STEP_QUEUE */
+ PACKB(2, 3), /* MBOX_ABORT_QUEUE */
+ PACKB(2, 4), /* MBOX_GET_DEV_QUEUE_STATUS */
+ PACKB(0, 0), /* 0x001e */
+ PACKB(1, 3), /* MBOX_GET_FIRMWARE_STATUS */
+ PACKB(1, 2), /* MBOX_GET_INIT_SCSI_ID */
+ PACKB(1, 2), /* MBOX_GET_SELECT_TIMEOUT */
+ PACKB(1, 3), /* MBOX_GET_RETRY_COUNT */
+ PACKB(1, 2), /* MBOX_GET_TAG_AGE_LIMIT */
+ PACKB(1, 2), /* MBOX_GET_CLOCK_RATE */
+ PACKB(1, 2), /* MBOX_GET_ACT_NEG_STATE */
+ PACKB(1, 2), /* MBOX_GET_ASYNC_DATA_SETUP_TIME */
+ PACKB(1, 3), /* MBOX_GET_SBUS_PARAMS */
+ PACKB(2, 4), /* MBOX_GET_TARGET_PARAMS */
+ PACKB(2, 4), /* MBOX_GET_DEV_QUEUE_PARAMS */
+ PACKB(0, 0), /* 0x002a */
+ PACKB(0, 0), /* 0x002b */
+ PACKB(0, 0), /* 0x002c */
+ PACKB(0, 0), /* 0x002d */
+ PACKB(0, 0), /* 0x002e */
+ PACKB(0, 0), /* 0x002f */
+ PACKB(2, 2), /* MBOX_SET_INIT_SCSI_ID */
+ PACKB(2, 2), /* MBOX_SET_SELECT_TIMEOUT */
+ PACKB(3, 3), /* MBOX_SET_RETRY_COUNT */
+ PACKB(2, 2), /* MBOX_SET_TAG_AGE_LIMIT */
+ PACKB(2, 2), /* MBOX_SET_CLOCK_RATE */
+ PACKB(2, 2), /* MBOX_SET_ACTIVE_NEG_STATE */
+ PACKB(2, 2), /* MBOX_SET_ASYNC_DATA_SETUP_TIME */
+ PACKB(3, 3), /* MBOX_SET_SBUS_CONTROL_PARAMS */
+ PACKB(4, 4), /* MBOX_SET_TARGET_PARAMS */
+ PACKB(4, 4), /* MBOX_SET_DEV_QUEUE_PARAMS */
+ PACKB(0, 0), /* 0x003a */
+ PACKB(0, 0), /* 0x003b */
+ PACKB(0, 0), /* 0x003c */
+ PACKB(0, 0), /* 0x003d */
+ PACKB(0, 0), /* 0x003e */
+ PACKB(0, 0), /* 0x003f */
+ PACKB(0, 0), /* 0x0040 */
+ PACKB(0, 0), /* 0x0041 */
+ PACKB(0, 0) /* 0x0042 */
+};
+
+#define MAX_MBOX_COMMAND (sizeof(mbox_param)/sizeof(u_short))
+
+/* queue length's _must_ be power of two: */
+#define QUEUE_DEPTH(in, out, ql) ((in - out) & (ql))
+#define REQ_QUEUE_DEPTH(in, out) QUEUE_DEPTH(in, out, \
+ QLOGICISP_REQ_QUEUE_LEN)
+#define RES_QUEUE_DEPTH(in, out) QUEUE_DEPTH(in, out, RES_QUEUE_LEN)
+
+static struct proc_dir_entry proc_scsi_qlogicpti = {
+ PROC_SCSI_QLOGICPTI, 7, "qlogicpti",
+ S_IFDIR | S_IRUGO | S_IXUGO, 2
+};
+
+static inline void qlogicpti_enable_irqs(struct qlogicpti_regs *qregs)
+{
+ qregs->sbus_ctrl = SBUS_CTRL_ERIRQ | SBUS_CTRL_GENAB;
+}
+
+
+static inline void qlogicpti_disable_irqs(struct qlogicpti_regs *qregs)
+{
+ qregs->sbus_ctrl = 0;
+}
+
+static inline void set_sbus_cfg1(struct qlogicpti_regs *qregs, unsigned char bursts)
+{
+ if(bursts & DMA_BURST32) {
+ qregs->sbus_cfg1 = (SBUS_CFG1_BENAB | SBUS_CFG1_B32);
+ } else if(bursts & DMA_BURST16) {
+ qregs->sbus_cfg1 = (SBUS_CFG1_BENAB | SBUS_CFG1_B16);
+ } else if(bursts & DMA_BURST8) {
+ qregs->sbus_cfg1 = (SBUS_CFG1_BENAB | SBUS_CFG1_B8);
+ } else {
+ qregs->sbus_cfg1 = 0; /* No sbus bursts for you... */
+ }
+}
+
+static int qlogicpti_mbox_command(struct qlogicpti *qpti, u_short param[], int force)
+{
+ struct qlogicpti_regs *qregs = qpti->qregs;
+ int loop_count;
+
+ if(mbox_param[param[0]] == 0)
+ return 1;
+
+ loop_count = DEFAULT_LOOP_COUNT;
+ while(--loop_count && (qregs->hcctrl & HCCTRL_HIRQ))
+ barrier();
+ if(!loop_count)
+ printk(KERN_EMERG "qlogicpti: mbox_command loop timeout #1\n");
+
+ switch(mbox_param[param[0]] >> 4) {
+ case 6: qregs->mbox5 = param[5];
+ case 5: qregs->mbox4 = param[4];
+ case 4: qregs->mbox3 = param[3];
+ case 3: qregs->mbox2 = param[2];
+ case 2: qregs->mbox1 = param[1];
+ case 1: qregs->mbox0 = param[0];
+ }
+
+ qregs->hcctrl |= HCCTRL_SHIRQ;
+
+ loop_count = DEFAULT_LOOP_COUNT;
+ while(--loop_count && !(qregs->sbus_semaphore & SBUS_SEMAPHORE_LCK))
+ udelay(20);
+ if(!loop_count)
+ printk(KERN_EMERG "qlogicpti: mbox_command loop timeout #2\n");
+
+ loop_count = DEFAULT_LOOP_COUNT;
+ while(--loop_count && (qregs->mbox0 == 0x04))
+ udelay(20);
+ if(!loop_count)
+ printk(KERN_EMERG "qlogicpti: mbox_command loop timeout #3\n");
+
+ if(force) {
+ qregs->hcctrl = HCCTRL_CRIRQ;
+ } else {
+ if((qregs->mbox5 - qpti->res_out_ptr) == 0)
+ qregs->hcctrl = HCCTRL_CRIRQ;
+ }
+
+ switch(mbox_param[param[0]] & 0xf) {
+ case 6: param[5] = qregs->mbox5;
+ case 5: param[4] = qregs->mbox4;
+ case 4: param[3] = qregs->mbox3;
+ case 3: param[2] = qregs->mbox2;
+ case 2: param[1] = qregs->mbox1;
+ case 1: param[0] = qregs->mbox0;
+ }
+
+ qregs->sbus_semaphore &= ~(SBUS_SEMAPHORE_LCK);
+ return 0;
+}
+
+static int qlogicpti_reset_hardware(struct Scsi_Host *host)
+{
+ struct qlogicpti *qpti = (struct qlogicpti *) host->hostdata;
+ struct qlogicpti_regs *qregs = qpti->qregs;
+ u_short param[6];
+ int loop_count, i;
+ unsigned long flags;
+
+ save_flags(flags); cli();
+
+ qregs->hcctrl = HCCTRL_PAUSE;
+
+ /* Only reset the scsi bus if it is not free. */
+ if(qregs->cpu_pctrl & CPU_PCTRL_BSY) {
+ qregs->cpu_oride = CPU_ORIDE_RMOD;
+ qregs->cpu_cmd = CPU_CMD_BRESET;
+ udelay(400);
+ }
+
+ qregs->sbus_ctrl = SBUS_CTRL_RESET;
+ qregs->cmd_dma_ctrl = (DMA_CTRL_CCLEAR | DMA_CTRL_CIRQ);
+ qregs->data_dma_ctrl = (DMA_CTRL_CCLEAR | DMA_CTRL_CIRQ);
+
+ loop_count = DEFAULT_LOOP_COUNT;
+ while(--loop_count && ((qregs->mbox0 & 0xff) == 0x04))
+ udelay(20);
+ if(!loop_count)
+ printk(KERN_EMERG "qlogicpti: reset_hardware loop timeout\n");
+
+ qregs->hcctrl = HCCTRL_PAUSE;
+ set_sbus_cfg1(qregs, qpti->bursts);
+ qlogicpti_enable_irqs(qregs);
+
+ if(qregs->risc_psr & RISC_PSR_ULTRA) {
+ qpti->ultra = 1;
+ qregs->risc_mtreg = (RISC_MTREG_P0ULTRA | RISC_MTREG_P1ULTRA);
+ } else {
+ qpti->ultra = 0;
+ qregs->risc_mtreg = (RISC_MTREG_P0DFLT | RISC_MTREG_P1DFLT);
+ }
+
+ /* Release the RISC processor. */
+ qregs->hcctrl = HCCTRL_REL;
+
+ /* Get RISC to start executing the firmware code. */
+ param[0] = MBOX_EXEC_FIRMWARE;
+ param[1] = risc_code_addr01;
+ if(qlogicpti_mbox_command(qpti, param, 1)) {
+ printk(KERN_EMERG "qlogicpti%d: Cannot execute ISP firmware.\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+
+ /* Set initiator scsi ID. */
+ param[0] = MBOX_SET_INIT_SCSI_ID;
+ param[1] = qpti->host_param.initiator_scsi_id;
+ if(qlogicpti_mbox_command(qpti, param, 1) ||
+ (param[0] != MBOX_COMMAND_COMPLETE)) {
+ printk(KERN_EMERG "qlogicpti%d: Cannot set initiator SCSI ID.\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+
+ /* Initialize state of the queues, both hw and sw. */
+ qpti->req_in_ptr = qpti->res_out_ptr = 0;
+
+ param[0] = MBOX_INIT_RES_QUEUE;
+ param[1] = RES_QUEUE_LEN + 1;
+ param[2] = (u_short) (((u_int) qpti->res)>>16);
+ param[3] = (u_short) (((u_int) qpti->res) & 0xffff);
+ param[4] = param[5] = 0;
+ if(qlogicpti_mbox_command(qpti, param, 1)) {
+ printk(KERN_EMERG "qlogicpti%d: Cannot init response queue.\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+
+ param[0] = MBOX_INIT_REQ_QUEUE;
+ param[1] = QLOGICISP_REQ_QUEUE_LEN + 1;
+ param[2] = (u_short) (((u_int) qpti->req)>>16);
+ param[3] = (u_short) (((u_int) qpti->req) & 0xffff);
+ param[4] = param[5] = 0;
+ if(qlogicpti_mbox_command(qpti, param, 1)) {
+ printk(KERN_EMERG "qlogicpti%d: Cannot init request queue.\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+
+ param[0] = MBOX_SET_RETRY_COUNT;
+ param[1] = qpti->host_param.retry_count;
+ param[2] = qpti->host_param.retry_delay;
+ qlogicpti_mbox_command(qpti, param, 0);
+
+ param[0] = MBOX_SET_TAG_AGE_LIMIT;
+ param[1] = qpti->host_param.tag_aging;
+ qlogicpti_mbox_command(qpti, param, 0);
+
+ for(i = 0; i < MAX_TARGETS; i++) {
+ param[0] = MBOX_GET_DEV_QUEUE_PARAMS;
+ param[1] = (i << 8);
+ qlogicpti_mbox_command(qpti, param, 0);
+ }
+
+ param[0] = MBOX_GET_FIRMWARE_STATUS;
+ qlogicpti_mbox_command(qpti, param, 0);
+
+ param[0] = MBOX_SET_SELECT_TIMEOUT;
+ param[1] = qpti->host_param.selection_timeout;
+ qlogicpti_mbox_command(qpti, param, 0);
+
+ for(i = 0; i < MAX_TARGETS; i++) {
+ param[0] = MBOX_SET_TARGET_PARAMS;
+ param[1] = (i << 8);
+ param[2] = (qpti->dev_param[i].device_flags << 8);
+ param[3] = (qpti->dev_param[i].synchronous_offset << 8) |
+ qpti->dev_param[i].synchronous_period;
+ qlogicpti_mbox_command(qpti, param, 0);
+ }
+
+ restore_flags(flags);
+ return 0;
+}
+
+#define PTI_RESET_LIMIT 400
+
+static int qlogicpti_load_firmware(struct qlogicpti *qpti)
+{
+ struct qlogicpti_regs *qregs = qpti->qregs;
+ unsigned short csum = 0;
+ unsigned short param[6];
+ unsigned long flags;
+#ifndef MODULE
+ unsigned long dvma_addr;
+#endif
+ int i, timeout;
+
+ save_flags(flags); cli();
+
+ /* Verify the checksum twice, one before loading it, and once
+ * afterwards via the mailbox commands.
+ */
+ for(i = 0; i < risc_code_length01; i++)
+ csum += risc_code01[i];
+ if(csum) {
+ printk(KERN_EMERG "qlogicpti%d: AIeee, firmware checksum failed!",
+ qpti->qpti_id);
+ return 1;
+ }
+ qregs->sbus_ctrl = SBUS_CTRL_RESET;
+ qregs->cmd_dma_ctrl = (DMA_CTRL_CCLEAR | DMA_CTRL_CIRQ);
+ qregs->data_dma_ctrl = (DMA_CTRL_CCLEAR | DMA_CTRL_CIRQ);
+ timeout = PTI_RESET_LIMIT;
+ while(--timeout && (qregs->sbus_ctrl & SBUS_CTRL_RESET))
+ udelay(20);
+ if(!timeout) {
+ printk(KERN_EMERG "qlogicpti%d: Cannot reset the ISP.", qpti->qpti_id);
+ return 1;
+ }
+
+ qregs->hcctrl = HCCTRL_RESET;
+ udelay(1000);
+
+ qregs->sbus_ctrl = (SBUS_CTRL_GENAB | SBUS_CTRL_ERIRQ);
+ set_sbus_cfg1(qregs, qpti->bursts);
+ qregs->sbus_semaphore = 0;
+
+ if(qregs->risc_psr & RISC_PSR_ULTRA) {
+ qpti->ultra = 1;
+ qregs->risc_mtreg = (RISC_MTREG_P0ULTRA | RISC_MTREG_P1ULTRA);
+ } else {
+ qpti->ultra = 0;
+ qregs->risc_mtreg = (RISC_MTREG_P0DFLT | RISC_MTREG_P1DFLT);
+ }
+
+ qregs->hcctrl = HCCTRL_REL;
+
+ /* Pin lines are only stable while RISC is paused. */
+ qregs->hcctrl = HCCTRL_PAUSE;
+ if(qregs->cpu_pdiff & CPU_PDIFF_MODE)
+ qpti->differential = 1;
+ else
+ qpti->differential = 0;
+ qregs->hcctrl = HCCTRL_REL;
+
+ /* XXX Talk to PTI engineer about the following, ISP always
+ * XXX returns 0x4001 return status for stop firmware command,
+ * XXX documentation claims this means the cmd is unsupported
+ * XXX on this ISP. I think something fishy is going on.
+ */
+ param[0] = MBOX_STOP_FIRMWARE;
+ param[1] = param[2] = param[3] = param[4] = param[5] = 0;
+ if(qlogicpti_mbox_command(qpti, param, 1)) {
+ printk(KERN_EMERG "qlogicpti%d: Cannot stop firmware for reload.\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+
+ /* Load the firmware. */
+#ifndef MODULE
+ dvma_addr = (unsigned long) mmu_lockarea((char *)&risc_code01[0],
+ (sizeof(u_short) * risc_code_length01));
+ param[0] = MBOX_LOAD_RAM;
+ param[1] = risc_code_addr01;
+ param[2] = (dvma_addr >> 16);
+ param[3] = (dvma_addr & 0xffff);
+ param[4] = (sizeof(u_short) * risc_code_length01);
+ if(qlogicpti_mbox_command(qpti, param, 1) ||
+ (param[0] != MBOX_COMMAND_COMPLETE)) {
+ printk(KERN_EMERG "qlogicpti%d: Firmware dload failed, I'm bolixed!\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+ mmu_unlockarea((char *)dvma_addr, (sizeof(u_short) * risc_code_length01));
+#else
+ for(i = 0; i < risc_code_length01; i++) {
+ param[0] = MBOX_WRITE_RAM_WORD;
+ param[1] = risc_code_addr01 + i;
+ param[2] = risc_code01[i];
+ if(qlogicpti_mbox_command(qpti, param, 1) ||
+ param[0] != MBOX_COMMAND_COMPLETE) {
+ printk("qlogicpti%d: Firmware dload failed, I'm bolixed!\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+ }
+#endif
+
+ /* Reset the ISP again. */
+ qregs->hcctrl = HCCTRL_RESET;
+ udelay(1000);
+
+ qlogicpti_enable_irqs(qregs);
+ qregs->sbus_semaphore = 0;
+ qregs->hcctrl = HCCTRL_REL;
+
+ /* Ask ISP to verify the checksum of the new code. */
+ param[0] = MBOX_VERIFY_CHECKSUM;
+ param[1] = risc_code_addr01;
+ if(qlogicpti_mbox_command(qpti, param, 1) ||
+ (param[0] != MBOX_COMMAND_COMPLETE)) {
+ printk(KERN_EMERG "qlogicpti%d: New firmware csum failure!\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+
+ /* Start using newly downloaded firmware. */
+ param[0] = MBOX_EXEC_FIRMWARE;
+ param[1] = risc_code_addr01;
+ qlogicpti_mbox_command(qpti, param, 1);
+
+ param[0] = MBOX_ABOUT_FIRMWARE;
+ if(qlogicpti_mbox_command(qpti, param, 1) ||
+ (param[0] != MBOX_COMMAND_COMPLETE)) {
+ printk(KERN_EMERG "qlogicpti%d: AboutFirmware cmd fails.\n",
+ qpti->qpti_id);
+ restore_flags(flags);
+ return 1;
+ }
+
+ /* Snag the major and minor revisions from the result. */
+ qpti->fware_majrev = param[1];
+ qpti->fware_minrev = param[2];
+
+ /* Load scsi initiator ID and interrupt level into sbus static ram. */
+ param[0] = MBOX_WRITE_RAM_WORD;
+ param[1] = 0xff80;
+ param[2] = (unsigned short) qpti->scsi_id;
+ qlogicpti_mbox_command(qpti, param, 1);
+
+ param[0] = MBOX_WRITE_RAM_WORD;
+ param[1] = 0xff00;
+ param[2] = (unsigned short) 3;
+ qlogicpti_mbox_command(qpti, param, 1);
+
+ restore_flags(flags);
+ return 0;
+}
+
+static int qlogicpti_verify_tmon(struct qlogicpti *qpti)
+{
+ int curstat = *qpti->sreg;
+
+ curstat &= 0xf0;
+ if(!(curstat & SREG_FUSE) && (qpti->swsreg & SREG_FUSE))
+ printk("qlogicpti%d: Fuse returned to normal state.\n", qpti->qpti_id);
+ if(!(curstat & SREG_TPOWER) && (qpti->swsreg & SREG_TPOWER))
+ printk("qlogicpti%d: termpwr back to normal state.\n", qpti->qpti_id);
+ if(curstat != qpti->swsreg) {
+ int error = 0;
+ if(curstat & SREG_FUSE) {
+ error++;
+ printk("qlogicpti%d: Fuse is open!\n", qpti->qpti_id);
+ }
+ if(curstat & SREG_TPOWER) {
+ error++;
+ printk("qlogicpti%d: termpwr failure\n", qpti->qpti_id);
+ }
+ if(qpti->differential &&
+ (curstat & SREG_DSENSE) != SREG_DSENSE) {
+ error++;
+ printk("qlogicpti%d: You have a single ended device on a "
+ "differential bus! Please fix!\n", qpti->qpti_id);
+ }
+ qpti->swsreg = curstat;
+ return error;
+ }
+ return 0;
+}
+
+static inline void qlogicpti_set_hostdev_defaults(struct qlogicpti *qpti)
+{
+ int i;
+
+ qpti->host_param.initiator_scsi_id = qpti->scsi_id;
+ qpti->host_param.bus_reset_delay = 3;
+ qpti->host_param.retry_count = 0;
+ qpti->host_param.retry_delay = 5;
+ qpti->host_param.async_data_setup_time = 3;
+ qpti->host_param.req_ack_active_negation = 1;
+ qpti->host_param.data_line_active_negation = 1;
+ qpti->host_param.data_dma_burst_enable = 1;
+ qpti->host_param.command_dma_burst_enable = 1;
+ qpti->host_param.tag_aging = 8;
+ qpti->host_param.selection_timeout = 250;
+ qpti->host_param.max_queue_depth = 256;
+
+ for(i = 0; i < MAX_TARGETS; i++) {
+ qpti->dev_param[i].device_flags = 0xf9;
+ qpti->dev_param[i].execution_throttle = 16;
+ qpti->dev_param[i].synchronous_period = 16;
+ qpti->dev_param[i].synchronous_offset = 12;
+ qpti->dev_param[i].device_enable = 1;
+ }
+}
+
+static void qlogicpti_intr_handler(int irq, void *dev_id, struct pt_regs *regs);
+
+/* Detect all PTI Qlogic ISP's in the machine. */
+int qlogicpti_detect(Scsi_Host_Template *tpnt)
+{
+ struct qlogicpti *qpti, *qlink;
+ struct Scsi_Host *qpti_host;
+ struct linux_sbus *sbus;
+ struct linux_sbus_device *qpti_dev, *sbdev_iter;
+ struct qlogicpti_regs *qregs;
+ volatile unsigned char *sreg;
+ unsigned char bsizes, bsizes_more;
+ int nqptis = 0, nqptis_in_use = 0;
+ int qpti_node;
+
+ tpnt->proc_dir = &proc_scsi_qlogicpti;
+ qptichain = 0;
+ if(!SBus_chain)
+ panic("No SBUS in qlogicpti_detect()");
+ for_each_sbus(sbus) {
+ for_each_sbusdev(sbdev_iter, sbus) {
+ qpti_dev = sbdev_iter;
+
+ /* Is this a red snapper? */
+ if(strcmp(qpti_dev->prom_name, "ptisp") &&
+ strcmp(qpti_dev->prom_name, "PTI,ptisp"))
+ continue;
+
+ /* Yep, register and allocate software state. */
+ qpti_host = scsi_register(tpnt, sizeof(struct qlogicpti));
+ if(!qpti_host)
+ panic("Cannot register PTI Qlogic ISP SCSI host");
+ qpti = (struct qlogicpti *) qpti_host->hostdata;
+ if(!qpti)
+ panic("No qpti in hostdata");
+
+ /* We are wide capable, 16 targets. */
+ qpti_host->max_id = MAX_TARGETS;
+
+ /* Setup back pointers and misc. state. */
+ qpti->qhost = qpti_host;
+ qpti->qdev = qpti_dev;
+ qpti->qpti_id = nqptis++;
+
+ /* Insert this one into the global interrupt service chain. */
+ if(qptichain) {
+ qlink = qptichain;
+ while(qlink->next) qlink = qlink->next;
+ qlink->next = qpti;
+ } else {
+ qptichain = qpti;
+ }
+ qpti->next = 0;
+
+ /* More misc. prom information. */
+ qpti_node = qpti_dev->prom_node;
+ prom_getstring(qpti_node, "name", qpti->prom_name,
+ sizeof(qpti->prom_name));
+ qpti->prom_node = qpti_node;
+
+ /* Setup the reg property for this device. */
+ prom_apply_sbus_ranges(qpti->qdev->my_bus,
+ qpti->qdev->reg_addrs, 1);
+
+ /* Map in Qlogic,ISP regs and the PTI status reg. */
+ qpti->qregs = qregs = (struct qlogicpti_regs *)
+ sparc_alloc_io(qpti->qdev->reg_addrs[0].phys_addr, 0,
+ qpti->qdev->reg_addrs[0].reg_size,
+ "PTI Qlogic/ISP Registers",
+ qpti->qdev->reg_addrs[0].which_io, 0x0);
+ if(!qregs)
+ panic("PTI Qlogic/ISP registers unmappable");
+
+ /* Map this one read only. */
+ qpti->sreg = sreg = (volatile unsigned char *)
+ sparc_alloc_io((qpti->qdev->reg_addrs[0].phys_addr +
+ (16 * PAGE_SIZE)), 0,
+ sizeof(unsigned char),
+ "PTI Qlogic/ISP Status Reg",
+ qpti->qdev->reg_addrs[0].which_io, 1);
+ if(!sreg)
+ panic("PTI Qlogic/ISP status reg unmappable");
+ qpti->swsreg = 0;
+
+ qpti_host->base = (unsigned char *)qregs;
+ qpti_host->io_port = (unsigned int) qregs;
+ qpti_host->n_io_port = (unsigned char)
+ qpti->qdev->reg_addrs[0].reg_size;
+
+ qpti_host->irq = qpti->irq = qpti->qdev->irqs[0].pri;
+
+ /* Allocate the irq only if necessary. */
+ for_each_qlogicpti(qlink) {
+ if((qlink != qpti) && (qpti->irq == qlink->irq)) {
+ goto qpti_irq_acquired; /* BASIC rulez */
+ }
+ }
+ if(request_irq(qpti->qhost->irq, qlogicpti_intr_handler,
+ SA_SHIRQ, "PTI Qlogic/ISP SCSI", NULL)) {
+ printk("Cannot acquire PTI Qlogic/ISP irq line\n");
+ /* XXX Unmap regs, unregister scsi host, free things. */
+ continue;
+ }
+qpti_irq_acquired:
+ printk("qpti%d: IRQ %d ", qpti->qpti_id, qpti->qhost->irq);
+
+ /* Figure out our scsi ID on the bus */
+ qpti->scsi_id = prom_getintdefault(qpti->prom_node,
+ "initiator-id",
+ -1);
+ if(qpti->scsi_id == -1)
+ qpti->scsi_id = prom_getintdefault(qpti->prom_node,
+ "scsi-initiator-id",
+ -1);
+ if(qpti->scsi_id == -1)
+ qpti->scsi_id =
+ prom_getintdefault(qpti->qdev->my_bus->prom_node,
+ "scsi-initiator-id", 7);
+ qpti->qhost->this_id = qpti->scsi_id;
+ printk("SCSI ID %d ", qpti->scsi_id);
+
+ /* Check for what the best SBUS burst we can use happens
+ * to be on this machine.
+ */
+ bsizes = prom_getintdefault(qpti->prom_node,"burst-sizes",0xff);
+ bsizes &= 0xff;
+ bsizes_more = prom_getintdefault(qpti->qdev->my_bus->prom_node,
+ "burst-sizes", 0xff);
+ if(bsizes_more != 0xff)
+ bsizes &= bsizes_more;
+ if(bsizes == 0xff || (bsizes & DMA_BURST16)==0 ||
+ (bsizes & DMA_BURST32) == 0)
+ bsizes = (DMA_BURST32 - 1);
+ qpti->bursts = bsizes;
+
+ /* The request and response queues must each be aligned
+ * on a page boundry.
+ */
+
+#define QSIZE(entries) (((entries) + 1) * QUEUE_ENTRY_LEN)
+
+ qpti->res = sparc_dvma_malloc(QSIZE(RES_QUEUE_LEN),
+ "PTISP Response Queue");
+ qpti->req = sparc_dvma_malloc(QSIZE(QLOGICISP_REQ_QUEUE_LEN),
+ "PTISP Request Queue");
+
+#undef QSIZE
+
+
+ /* Set adapter and per-device default values. */
+ qlogicpti_set_hostdev_defaults(qpti);
+
+ /* Load the firmware. */
+ if(qlogicpti_load_firmware(qpti))
+ panic("PTI Qlogic/ISP firmware load failed");
+
+ /* Check the PTI status reg. */
+ if(qlogicpti_verify_tmon(qpti))
+ panic("PTI Qlogic/ISP tmon verification failed");
+
+ /* Reset the ISP and init res/req queues. */
+ if(qlogicpti_reset_hardware(qpti_host))
+ panic("PTI Qlogic/ISP cannot be reset");
+
+ printk("(Firmware v%d.%d) [%s Wide, using %s interface]\n",
+ qpti->fware_majrev, qpti->fware_minrev,
+ (qpti->ultra ? "Ultra" : "Fast"),
+ (qpti->differential ? "differential" : "single ended"));
+
+ nqptis_in_use++;
+ }
+ }
+ printk("QPTI: Total of %d PTI Qlogic/ISP hosts found, %d actually in use.\n",
+ nqptis, nqptis_in_use);
+ qptis_running = nqptis_in_use;
+ return nqptis;
+}
+
+int qlogicpti_release(struct Scsi_Host *host)
+{
+ struct qlogicpti *qpti = (struct qlogicpti *) host->hostdata;
+ struct qlogicpti_regs *qregs = qpti->qregs;
+
+ /* Shut up the card. */
+ qregs->sbus_ctrl = 0;
+
+ /* Free IRQ handler and unmap Qlogic,ISP and PTI status regs. */
+ free_irq(host->irq, NULL);
+ unmapioaddr((unsigned long)qregs);
+ unmapioaddr((unsigned long)qpti->sreg);
+
+ return 0;
+}
+
+const char *qlogicpti_info(struct Scsi_Host *host)
+{
+ static char buf[80];
+ struct qlogicpti *qpti = (struct qlogicpti *) host->hostdata;
+
+ sprintf(buf, "PTI Qlogic,ISP SBUS SCSI irq %d regs at %08lx",
+ host->irq, (unsigned long) qpti->qregs);
+ return buf;
+}
+
+/* I am a certified frobtronicist. */
+static inline void marker_frob(struct Command_Entry *cmd)
+{
+ struct Marker_Entry *marker = (struct Marker_Entry *) cmd;
+
+ memset(marker, 0, sizeof(struct Marker_Entry));
+ marker->hdr.entry_cnt = 1;
+ marker->hdr.entry_type = ENTRY_MARKER;
+ marker->modifier = SYNC_ALL;
+ marker->rsvd = 0;
+}
+
+static inline void cmd_frob(struct Command_Entry *cmd, Scsi_Cmnd *Cmnd,
+ struct qlogicpti *qpti)
+{
+ memset(cmd, 0, sizeof(struct Command_Entry));
+ cmd->hdr.entry_cnt = 1;
+ cmd->hdr.entry_type = ENTRY_COMMAND;
+ cmd->handle = (u_int) Cmnd; /* magic mushroom */
+ cmd->target_id = Cmnd->target;
+ cmd->target_lun = Cmnd->lun;
+ cmd->cdb_length = Cmnd->cmd_len;
+ cmd->control_flags = 0;
+ if(Cmnd->device->tagged_supported) {
+ if(qpti->cmd_count[Cmnd->target] == 0)
+ qpti->tag_ages[Cmnd->target] = jiffies;
+ if((jiffies - qpti->tag_ages[Cmnd->target]) > (5*HZ)) {
+ cmd->control_flags = CFLAG_ORDERED_TAG;
+ qpti->tag_ages[Cmnd->target] = jiffies;
+ } else
+ cmd->control_flags = CFLAG_SIMPLE_TAG;
+ }
+ if((Cmnd->cmnd[0] == WRITE_6) ||
+ (Cmnd->cmnd[0] == WRITE_10) ||
+ (Cmnd->cmnd[0] == WRITE_12))
+ cmd->control_flags |= CFLAG_WRITE;
+ else
+ cmd->control_flags |= CFLAG_READ;
+ cmd->time_out = 30;
+ memcpy(cmd->cdb, Cmnd->cmnd, Cmnd->cmd_len);
+}
+
+/* Do it to it baby. */
+static inline u_int load_cmd(Scsi_Cmnd *Cmnd, struct Command_Entry *cmd,
+ struct qlogicpti *qpti, struct qlogicpti_regs *qregs,
+ u_int in_ptr, u_int out_ptr)
+{
+ struct dataseg * ds;
+ struct scatterlist *sg;
+ int sg_count = Cmnd->use_sg;
+ int i, n;
+
+ if(sg_count) {
+ mmu_get_scsi_sgl((struct mmu_sglist *)Cmnd->buffer, (Cmnd->use_sg - 1),
+ qpti->qdev->my_bus);
+
+ cmd->segment_cnt = sg_count;
+ sg = (struct scatterlist *) Cmnd->request_buffer;
+ ds = cmd->dataseg;
+
+ /* Fill in first four sg entries: */
+ n = sg_count;
+ if(n > 4)
+ n = 4;
+ for(i = 0; i < n; i++, sg++) {
+ ds[i].d_base = (u_int) sg->dvma_address;
+ ds[i].d_count = (u_int) sg->length;
+ }
+ sg_count -= 4;
+ while(sg_count > 0) {
+ struct Continuation_Entry *cont;
+
+ ++cmd->hdr.entry_cnt;
+ cont = (struct Continuation_Entry *) &qpti->req[in_ptr];
+ in_ptr = NEXT_REQ_PTR(in_ptr);
+ if(in_ptr == out_ptr) {
+ printk(KERN_EMERG "qlogicpti: Unexpected request queue overflow\n");
+ return -1;
+ }
+ cont->hdr.entry_type = ENTRY_CONTINUATION;
+ cont->hdr.entry_cnt = 0;
+ cont->hdr.sys_def_1 = 0;
+ cont->hdr.flags = 0;
+ cont->reserved = 0;
+ ds = cont->dataseg;
+ n = sg_count;
+ if(n > 7)
+ n = 7;
+ for(i = 0; i < n; i++, sg++) {
+ ds[i].d_base = (u_int) sg->dvma_address;
+ ds[i].d_count = (u_int) sg->length;
+ }
+ sg_count -= n;
+ }
+ } else {
+ Cmnd->SCp.ptr = mmu_get_scsi_one((char *)Cmnd->request_buffer,
+ Cmnd->request_bufflen,
+ qpti->qdev->my_bus);
+
+ cmd->dataseg[0].d_base = (u_int) Cmnd->SCp.ptr;
+ cmd->dataseg[0].d_count = Cmnd->request_bufflen;
+ cmd->segment_cnt = 1;
+ }
+ qpti->cmd_count[Cmnd->target]++;
+ qregs->mbox4 = in_ptr;
+ qpti->req_in_ptr = in_ptr;
+ return in_ptr;
+}
+
+static inline void update_can_queue(struct Scsi_Host *host, u_int in_ptr, u_int out_ptr)
+{
+ int num_free = QLOGICISP_REQ_QUEUE_LEN - REQ_QUEUE_DEPTH(in_ptr, out_ptr);
+ host->can_queue = host->host_busy + num_free;
+ host->sg_tablesize = QLOGICISP_MAX_SG(num_free);
+}
+
+/*
+ * The middle SCSI layer ensures that queuecommand never gets invoked
+ * concurrently with itself or the interrupt handler (though the
+ * interrupt handler may call this routine as part of
+ * request-completion handling).
+ *
+ * "This code must fly." -davem
+ */
+int qlogicpti_queuecommand(Scsi_Cmnd *Cmnd, void (*done)(Scsi_Cmnd *))
+{
+ struct Scsi_Host *host = Cmnd->host;
+ struct qlogicpti *qpti = (struct qlogicpti *) host->hostdata;
+ struct qlogicpti_regs *qregs = qpti->qregs;
+ u_int in_ptr = qpti->req_in_ptr;
+ u_int out_ptr = qregs->mbox4;
+ struct Command_Entry *cmd = (struct Command_Entry *) &qpti->req[in_ptr];
+
+ Cmnd->scsi_done = done;
+ in_ptr = NEXT_REQ_PTR(in_ptr);
+ if(in_ptr == out_ptr) {
+ printk(KERN_EMERG "qlogicpti%d: request queue overflow\n", qpti->qpti_id);
+ return 1;
+ }
+ if(qpti->send_marker) {
+ marker_frob(cmd);
+ qpti->send_marker = 0;
+ if(NEXT_REQ_PTR(in_ptr) == out_ptr) {
+ qregs->mbox4 = in_ptr;
+ qpti->req_in_ptr = in_ptr;
+ printk(KERN_EMERG "qlogicpti%d: request queue overflow\n", qpti->qpti_id);
+ return 1;
+ }
+ cmd = (struct Command_Entry *) &qpti->req[in_ptr];
+ in_ptr = NEXT_REQ_PTR(in_ptr);
+ }
+ cmd_frob(cmd, Cmnd, qpti);
+ if((in_ptr = load_cmd(Cmnd, cmd, qpti, qregs, in_ptr, out_ptr)) == -1)
+ return 1;
+ update_can_queue(host, in_ptr, out_ptr);
+ return 0;
+}
+
+static int qlogicpti_return_status(struct Status_Entry *sts)
+{
+ int host_status = DID_ERROR;
+
+ switch(sts->completion_status) {
+ case CS_COMPLETE:
+ host_status = DID_OK;
+ break;
+ case CS_INCOMPLETE:
+ if (!(sts->state_flags & SF_GOT_BUS))
+ host_status = DID_NO_CONNECT;
+ else if (!(sts->state_flags & SF_GOT_TARGET))
+ host_status = DID_BAD_TARGET;
+ else if (!(sts->state_flags & SF_SENT_CDB))
+ host_status = DID_ERROR;
+ else if (!(sts->state_flags & SF_TRANSFERRED_DATA))
+ host_status = DID_ERROR;
+ else if (!(sts->state_flags & SF_GOT_STATUS))
+ host_status = DID_ERROR;
+ else if (!(sts->state_flags & SF_GOT_SENSE))
+ host_status = DID_ERROR;
+ break;
+ case CS_DMA_ERROR:
+ case CS_TRANSPORT_ERROR:
+ host_status = DID_ERROR;
+ break;
+ case CS_RESET_OCCURRED:
+ host_status = DID_RESET;
+ break;
+ case CS_ABORTED:
+ host_status = DID_ABORT;
+ break;
+ case CS_TIMEOUT:
+ host_status = DID_TIME_OUT;
+ break;
+ case CS_DATA_OVERRUN:
+ case CS_COMMAND_OVERRUN:
+ case CS_STATUS_OVERRUN:
+ case CS_BAD_MESSAGE:
+ case CS_NO_MESSAGE_OUT:
+ case CS_EXT_ID_FAILED:
+ case CS_IDE_MSG_FAILED:
+ case CS_ABORT_MSG_FAILED:
+ case CS_NOP_MSG_FAILED:
+ case CS_PARITY_ERROR_MSG_FAILED:
+ case CS_DEVICE_RESET_MSG_FAILED:
+ case CS_ID_MSG_FAILED:
+ case CS_UNEXP_BUS_FREE:
+ host_status = DID_ERROR;
+ break;
+ case CS_DATA_UNDERRUN:
+ host_status = DID_OK;
+ break;
+ default:
+ printk(KERN_EMERG "qlogicpti : unknown completion status 0x%04x\n",
+ sts->completion_status);
+ host_status = DID_ERROR;
+ break;
+ }
+
+ return (sts->scsi_status & STATUS_MASK) | (host_status << 16);
+}
+
+static void qlogicpti_intr_handler(int irq, void *dev_id, struct pt_regs *regs)
+{
+ static int running = 0;
+ Scsi_Cmnd *Cmnd;
+ struct Status_Entry *sts;
+ struct qlogicpti *qpti;
+ u_int in_ptr, out_ptr;
+ int again;
+
+ /* It is ok to take irq's on one qpti while the other
+ * is amidst the processing of a reset.
+ */
+ running++;
+
+#if 0 /* XXX Investigate why resets cause this with one controller. */
+ if(running > qptis_running)
+ printk("qlogicpti_intr_handler: yieee, recursive interrupt!\n");
+#endif
+
+ /* Handle all ISP interrupts showing */
+repeat:
+ again = 0;
+ for_each_qlogicpti(qpti) {
+ if(qpti->qregs->sbus_stat & SBUS_STAT_RINT) {
+ struct qlogicpti_regs *qregs = qpti->qregs;
+
+ again = 1;
+ in_ptr = qregs->mbox5;
+ qregs->hcctrl = HCCTRL_CRIRQ;
+ if(qregs->sbus_semaphore & SBUS_SEMAPHORE_LCK) {
+ switch(qregs->mbox0) {
+ case ASYNC_SCSI_BUS_RESET:
+ case EXECUTION_TIMEOUT_RESET:
+ qpti->send_marker = 1;
+ break;
+ case INVALID_COMMAND:
+ case HOST_INTERFACE_ERROR:
+ case COMMAND_ERROR:
+ case COMMAND_PARAM_ERROR:
+ break;
+ }
+ qregs->sbus_semaphore = 0;
+ }
+
+ /* This looks like a network driver! */
+ out_ptr = qpti->res_out_ptr;
+ while(out_ptr != in_ptr) {
+ sts = (struct Status_Entry *) &qpti->res[out_ptr];
+ out_ptr = NEXT_RES_PTR(out_ptr);
+ Cmnd = (Scsi_Cmnd *) sts->handle; /* but_to_virt?!?! */
+ if(sts->completion_status == CS_RESET_OCCURRED ||
+ sts->completion_status == CS_ABORTED ||
+ (sts->status_flags & STF_BUS_RESET))
+ qpti->send_marker = 1;
+
+ if(sts->state_flags & SF_GOT_SENSE)
+ memcpy(Cmnd->sense_buffer, sts->req_sense_data,
+ sizeof(Cmnd->sense_buffer));
+
+ if(sts->hdr.entry_type == ENTRY_STATUS)
+ Cmnd->result = qlogicpti_return_status(sts);
+ else
+ Cmnd->result = DID_ERROR << 16;
+
+ if(Cmnd->use_sg)
+ mmu_release_scsi_sgl((struct mmu_sglist *)
+ Cmnd->buffer,
+ Cmnd->use_sg - 1,
+ qpti->qdev->my_bus);
+ else
+ mmu_release_scsi_one((char *)
+ Cmnd->SCp.ptr,
+ Cmnd->request_bufflen,
+ qpti->qdev->my_bus);
+
+ qpti->cmd_count[Cmnd->target]--;
+ qregs->mbox5 = out_ptr;
+ Cmnd->scsi_done(Cmnd);
+ }
+ qpti->res_out_ptr = out_ptr;
+ }
+ }
+ if(again)
+ goto repeat;
+ running--;
+}
+
+int qlogicpti_abort(Scsi_Cmnd *Cmnd)
+{
+ u_short param[6];
+ struct Scsi_Host *host = Cmnd->host;
+ struct qlogicpti *qpti = (struct qlogicpti *) host->hostdata;
+ int return_status = SCSI_ABORT_SUCCESS;
+
+ printk(KERN_EMERG "qlogicpti : Aborting cmd for tgt[%d] lun[%d]\n",
+ (int)Cmnd->target, (int)Cmnd->lun);
+ qlogicpti_disable_irqs(qpti->qregs);
+ param[0] = MBOX_ABORT;
+ param[1] = (((u_short) Cmnd->target) << 8) | Cmnd->lun;
+ param[2] = ((unsigned int)Cmnd) >> 16;
+ param[3] = ((unsigned int)Cmnd) & 0xffff;
+ if(qlogicpti_mbox_command(qpti, param, 0) ||
+ (param[0] != MBOX_COMMAND_COMPLETE)) {
+ printk(KERN_EMERG "qlogicpti : scsi abort failure: %x\n", param[0]);
+ return_status = SCSI_ABORT_ERROR;
+ }
+ qlogicpti_enable_irqs(qpti->qregs);
+ return return_status;
+}
+
+int qlogicpti_reset(Scsi_Cmnd *Cmnd, unsigned int reset_flags)
+{
+ u_short param[6];
+ struct Scsi_Host *host = Cmnd->host;
+ struct qlogicpti *qpti = (struct qlogicpti *) host->hostdata;
+ int return_status = SCSI_RESET_SUCCESS;
+
+ printk(KERN_EMERG "qlogicpti : Resetting SCSI bus!\n");
+ qlogicpti_disable_irqs(qpti->qregs);
+ param[0] = MBOX_BUS_RESET;
+ param[1] = qpti->host_param.bus_reset_delay;
+ if(qlogicpti_mbox_command(qpti, param, 0) ||
+ (param[0] != MBOX_COMMAND_COMPLETE)) {
+ printk(KERN_EMERG "qlogicisp : scsi bus reset failure: %x\n", param[0]);
+ return_status = SCSI_RESET_ERROR;
+ }
+ qlogicpti_enable_irqs(qpti->qregs);
+ return return_status;
+}
+
+#ifdef MODULE
+Scsi_Host_Template driver_template = QLOGICPTI;
+
+#include "scsi_module.c"
+#endif /* MODULE */
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen, slshen@lbl.gov