Merge branch 'upstream'
[pandora-kernel.git] / drivers / scsi / ultrastor.c
1 /*
2  *      ultrastor.c     Copyright (C) 1992 David B. Gentzel
3  *      Low-level SCSI driver for UltraStor 14F, 24F, and 34F
4  *      by David B. Gentzel, Whitfield Software Services, Carnegie, PA
5  *          (gentzel@nova.enet.dec.com)
6  *  scatter/gather added by Scott Taylor (n217cg@tamuts.tamu.edu)
7  *  24F and multiple command support by John F. Carr (jfc@athena.mit.edu)
8  *    John's work modified by Caleb Epstein (cae@jpmorgan.com) and 
9  *    Eric Youngdale (ericy@cais.com).
10  *      Thanks to UltraStor for providing the necessary documentation
11  *
12  *  This is an old driver, for the 14F and 34F you should be using the
13  *  u14-34f driver instead.
14  */
15
16 /*
17  * TODO:
18  *      1. Find out why scatter/gather is limited to 16 requests per command.
19  *         This is fixed, at least on the 24F, as of version 1.12 - CAE.
20  *      2. Look at command linking (mscp.command_link and
21  *         mscp.command_link_id).  (Does not work with many disks, 
22  *                              and no performance increase.  ERY).
23  *      3. Allow multiple adapters.
24  */
25
26 /*
27  * NOTES:
28  *    The UltraStor 14F, 24F, and 34F are a family of intelligent, high
29  *    performance SCSI-2 host adapters.  They all support command queueing
30  *    and scatter/gather I/O.  Some of them can also emulate the standard
31  *    WD1003 interface for use with OS's which don't support SCSI.  Here
32  *    is the scoop on the various models:
33  *      14F - ISA first-party DMA HA with floppy support and WD1003 emulation.
34  *      14N - ISA HA with floppy support.  I think that this is a non-DMA
35  *            HA.  Nothing further known.
36  *      24F - EISA Bus Master HA with floppy support and WD1003 emulation.
37  *      34F - VL-Bus Bus Master HA with floppy support (no WD1003 emulation).
38  *
39  *    The 14F, 24F, and 34F are supported by this driver.
40  *
41  *    Places flagged with a triple question-mark are things which are either
42  *    unfinished, questionable, or wrong.
43  */
44
45 /* Changes from version 1.11 alpha to 1.12
46  *
47  * Increased the size of the scatter-gather list to 33 entries for
48  * the 24F adapter (it was 16).  I don't have the specs for the 14F
49  * or the 34F, so they may support larger s-g lists as well.
50  *
51  * Caleb Epstein <cae@jpmorgan.com>
52  */
53
54 /* Changes from version 1.9 to 1.11
55  *
56  * Patches to bring this driver up to speed with the default kernel
57  * driver which supports only the 14F and 34F adapters.  This version
58  * should compile cleanly into 0.99.13, 0.99.12 and probably 0.99.11.
59  *
60  * Fixes from Eric Youngdale to fix a few possible race conditions and
61  * several problems with bit testing operations (insufficient
62  * parentheses).
63  *
64  * Removed the ultrastor_abort() and ultrastor_reset() functions
65  * (enclosed them in #if 0 / #endif).  These functions, at least on
66  * the 24F, cause the SCSI bus to do odd things and generally lead to
67  * kernel panics and machine hangs.  This is like the Adaptec code.
68  *
69  * Use check/snarf_region for 14f, 34f to avoid I/O space address conflicts.
70  */
71
72 /* Changes from version 1.8 to version 1.9
73  *
74  *  0.99.11 patches (cae@jpmorgan.com) */
75
76 /* Changes from version 1.7 to version 1.8
77  *
78  * Better error reporting.
79  */
80
81 /* Changes from version 1.6 to version 1.7
82  *
83  * Removed CSIR command code.
84  *
85  * Better race condition avoidance (xchgb function added).
86  *
87  * Set ICM and OGM status to zero at probe (24F)
88  *
89  * reset sends soft reset to UltraStor adapter
90  *
91  * reset adapter if adapter interrupts with an invalid MSCP address
92  *
93  * handle aborted command interrupt (24F)
94  *
95  */
96
97 /* Changes from version 1.5 to version 1.6:
98  *
99  * Read MSCP address from ICM _before_ clearing the interrupt flag.
100  * This fixes a race condition.
101  */
102
103 /* Changes from version 1.4 to version 1.5:
104  *
105  * Abort now calls done when multiple commands are enabled.
106  *
107  * Clear busy when aborted command finishes, not when abort is called.
108  *
109  * More debugging messages for aborts.
110  */
111
112 /* Changes from version 1.3 to version 1.4:
113  *
114  * Enable automatic request of sense data on error (requires newer version
115  * of scsi.c to be useful).
116  *
117  * Fix PORT_OVERRIDE for 14F.
118  *
119  * Fix abort and reset to work properly (config.aborted wasn't cleared
120  * after it was tested, so after a command abort no further commands would
121  * work).
122  *
123  * Boot time test to enable SCSI bus reset (defaults to not allowing reset).
124  *
125  * Fix test for OGM busy -- the busy bit is in different places on the 24F.
126  *
127  * Release ICM slot by clearing first byte on 24F.
128  */
129
130 #include <linux/module.h>
131 #include <linux/blkdev.h>
132 #include <linux/interrupt.h>
133 #include <linux/stddef.h>
134 #include <linux/string.h>
135 #include <linux/kernel.h>
136 #include <linux/ioport.h>
137 #include <linux/proc_fs.h>
138 #include <linux/spinlock.h>
139 #include <linux/stat.h>
140 #include <linux/bitops.h>
141
142 #include <asm/io.h>
143 #include <asm/system.h>
144 #include <asm/dma.h>
145
146 #define ULTRASTOR_PRIVATE       /* Get the private stuff from ultrastor.h */
147 #include "scsi.h"
148 #include <scsi/scsi_host.h>
149 #include "ultrastor.h"
150
151 #define FALSE 0
152 #define TRUE 1
153
154 #ifndef ULTRASTOR_DEBUG
155 #define ULTRASTOR_DEBUG (UD_ABORT|UD_CSIR|UD_RESET)
156 #endif
157
158 #define VERSION "1.12"
159
160 #define PACKED          __attribute__((packed))
161 #define ALIGNED(x)      __attribute__((aligned(x)))
162
163
164 /* The 14F uses an array of 4-byte ints for its scatter/gather list.
165    The data can be unaligned, but need not be.  It's easier to give
166    the list normal alignment since it doesn't need to fit into a
167    packed structure.  */
168
169 typedef struct {
170   u32 address;
171   u32 num_bytes;
172 } ultrastor_sg_list;
173
174
175 /* MailBox SCSI Command Packet.  Basic command structure for communicating
176    with controller. */
177 struct mscp {
178   unsigned char opcode: 3;              /* type of command */
179   unsigned char xdir: 2;                /* data transfer direction */
180   unsigned char dcn: 1;         /* disable disconnect */
181   unsigned char ca: 1;          /* use cache (if available) */
182   unsigned char sg: 1;          /* scatter/gather operation */
183   unsigned char target_id: 3;           /* target SCSI id */
184   unsigned char ch_no: 2;               /* SCSI channel (always 0 for 14f) */
185   unsigned char lun: 3;         /* logical unit number */
186   unsigned int transfer_data PACKED;    /* transfer data pointer */
187   unsigned int transfer_data_length PACKED;     /* length in bytes */
188   unsigned int command_link PACKED;     /* for linking command chains */
189   unsigned char scsi_command_link_id;   /* identifies command in chain */
190   unsigned char number_of_sg_list;      /* (if sg is set) 8 bytes per list */
191   unsigned char length_of_sense_byte;
192   unsigned char length_of_scsi_cdbs;    /* 6, 10, or 12 */
193   unsigned char scsi_cdbs[12];  /* SCSI commands */
194   unsigned char adapter_status; /* non-zero indicates HA error */
195   unsigned char target_status;  /* non-zero indicates target error */
196   u32 sense_data PACKED;
197   /* The following fields are for software only.  They are included in
198      the MSCP structure because they are associated with SCSI requests.  */
199   void (*done)(Scsi_Cmnd *);
200   Scsi_Cmnd *SCint;
201   ultrastor_sg_list sglist[ULTRASTOR_24F_MAX_SG]; /* use larger size for 24F */
202 };
203
204
205 /* Port addresses (relative to the base address) */
206 #define U14F_PRODUCT_ID(port) ((port) + 0x4)
207 #define CONFIG(port) ((port) + 0x6)
208
209 /* Port addresses relative to the doorbell base address.  */
210 #define LCL_DOORBELL_MASK(port) ((port) + 0x0)
211 #define LCL_DOORBELL_INTR(port) ((port) + 0x1)
212 #define SYS_DOORBELL_MASK(port) ((port) + 0x2)
213 #define SYS_DOORBELL_INTR(port) ((port) + 0x3)
214
215
216 /* Used to store configuration info read from config i/o registers.  Most of
217    this is not used yet, but might as well save it.
218    
219    This structure also holds port addresses that are not at the same offset
220    on the 14F and 24F.
221    
222    This structure holds all data that must be duplicated to support multiple
223    adapters.  */
224
225 static struct ultrastor_config
226 {
227   unsigned short port_address;          /* base address of card */
228   unsigned short doorbell_address;      /* base address of doorbell CSRs */
229   unsigned short ogm_address;           /* base address of OGM */
230   unsigned short icm_address;           /* base address of ICM */
231   const void *bios_segment;
232   unsigned char interrupt: 4;
233   unsigned char dma_channel: 3;
234   unsigned char bios_drive_number: 1;
235   unsigned char heads;
236   unsigned char sectors;
237   unsigned char ha_scsi_id: 3;
238   unsigned char subversion: 4;
239   unsigned char revision;
240   /* The slot number is used to distinguish the 24F (slot != 0) from
241      the 14F and 34F (slot == 0). */
242   unsigned char slot;
243
244 #ifdef PRINT_U24F_VERSION
245   volatile int csir_done;
246 #endif
247
248   /* A pool of MSCP structures for this adapter, and a bitmask of
249      busy structures.  (If ULTRASTOR_14F_MAX_CMDS == 1, a 1 byte
250      busy flag is used instead.)  */
251
252 #if ULTRASTOR_MAX_CMDS == 1
253   unsigned char mscp_busy;
254 #else
255   unsigned long mscp_free;
256 #endif
257   volatile unsigned char aborted[ULTRASTOR_MAX_CMDS];
258   struct mscp mscp[ULTRASTOR_MAX_CMDS];
259 } config = {0};
260
261 /* Set this to 1 to reset the SCSI bus on error.  */
262 static int ultrastor_bus_reset;
263
264
265 /* Allowed BIOS base addresses (NULL indicates reserved) */
266 static const void *const bios_segment_table[8] = {
267   NULL,      (void *)0xC4000, (void *)0xC8000, (void *)0xCC000,
268   (void *)0xD0000, (void *)0xD4000, (void *)0xD8000, (void *)0xDC000,
269 };
270
271 /* Allowed IRQs for 14f */
272 static const unsigned char interrupt_table_14f[4] = { 15, 14, 11, 10 };
273
274 /* Allowed DMA channels for 14f (0 indicates reserved) */
275 static const unsigned char dma_channel_table_14f[4] = { 5, 6, 7, 0 };
276
277 /* Head/sector mappings allowed by 14f */
278 static const struct {
279   unsigned char heads;
280   unsigned char sectors;
281 } mapping_table[4] = { { 16, 63 }, { 64, 32 }, { 64, 63 }, { 64, 32 } };
282
283 #ifndef PORT_OVERRIDE
284 /* ??? A probe of address 0x310 screws up NE2000 cards */
285 static const unsigned short ultrastor_ports_14f[] = {
286   0x330, 0x340, /*0x310,*/ 0x230, 0x240, 0x210, 0x130, 0x140,
287 };
288 #endif
289
290 static void ultrastor_interrupt(int, void *, struct pt_regs *);
291 static irqreturn_t do_ultrastor_interrupt(int, void *, struct pt_regs *);
292 static inline void build_sg_list(struct mscp *, Scsi_Cmnd *SCpnt);
293
294
295 /* Always called with host lock held */
296
297 static inline int find_and_clear_bit_16(unsigned long *field)
298 {
299   int rv;
300
301   if (*field == 0) panic("No free mscp");
302   asm("xorl %0,%0\n0:\tbsfw %1,%w0\n\tbtr %0,%1\n\tjnc 0b"
303       : "=&r" (rv), "=m" (*field) : "1" (*field));
304   return rv;
305 }
306
307 /* This has been re-implemented with the help of Richard Earnshaw,
308    <rwe@pegasus.esprit.ec.org> and works with gcc-2.5.8 and gcc-2.6.0.
309    The instability noted by jfc below appears to be a bug in
310    gcc-2.5.x when compiling w/o optimization.  --Caleb
311
312    This asm is fragile: it doesn't work without the casts and it may
313    not work without optimization.  Maybe I should add a swap builtin
314    to gcc.  --jfc  */
315 static inline unsigned char xchgb(unsigned char reg,
316                                   volatile unsigned char *mem)
317 {
318   __asm__ ("xchgb %0,%1" : "=q" (reg), "=m" (*mem) : "0" (reg));
319   return reg;
320 }
321
322 #if ULTRASTOR_DEBUG & (UD_COMMAND | UD_ABORT)
323
324 /* Always called with the host lock held */
325 static void log_ultrastor_abort(struct ultrastor_config *config,
326                                 int command)
327 {
328   static char fmt[80] = "abort %d (%x); MSCP free pool: %x;";
329   int i;
330
331   for (i = 0; i < ULTRASTOR_MAX_CMDS; i++)
332     {
333       fmt[20 + i*2] = ' ';
334       if (! (config->mscp_free & (1 << i)))
335         fmt[21 + i*2] = '0' + config->mscp[i].target_id;
336       else
337         fmt[21 + i*2] = '-';
338     }
339   fmt[20 + ULTRASTOR_MAX_CMDS * 2] = '\n';
340   fmt[21 + ULTRASTOR_MAX_CMDS * 2] = 0;
341   printk(fmt, command, &config->mscp[command], config->mscp_free);
342
343 }
344 #endif
345
346 static int ultrastor_14f_detect(struct scsi_host_template * tpnt)
347 {
348     size_t i;
349     unsigned char in_byte, version_byte = 0;
350     struct config_1 {
351       unsigned char bios_segment: 3;
352       unsigned char removable_disks_as_fixed: 1;
353       unsigned char interrupt: 2;
354     unsigned char dma_channel: 2;
355     } config_1;
356     struct config_2 {
357       unsigned char ha_scsi_id: 3;
358       unsigned char mapping_mode: 2;
359       unsigned char bios_drive_number: 1;
360       unsigned char tfr_port: 2;
361     } config_2;
362
363 #if (ULTRASTOR_DEBUG & UD_DETECT)
364     printk("US14F: detect: called\n");
365 #endif
366
367     /* If a 24F has already been configured, don't look for a 14F.  */
368     if (config.bios_segment)
369         return FALSE;
370
371 #ifdef PORT_OVERRIDE
372     if(!request_region(PORT_OVERRIDE, 0xc, "ultrastor")) {
373       printk("Ultrastor I/O space already in use\n");
374       return FALSE;
375     };
376     config.port_address = PORT_OVERRIDE;
377 #else
378     for (i = 0; i < ARRAY_SIZE(ultrastor_ports_14f); i++) {
379       if(!request_region(ultrastor_ports_14f[i], 0x0c, "ultrastor")) continue;
380       config.port_address = ultrastor_ports_14f[i];
381 #endif
382
383 #if (ULTRASTOR_DEBUG & UD_DETECT)
384         printk("US14F: detect: testing port address %03X\n", config.port_address);
385 #endif
386
387         in_byte = inb(U14F_PRODUCT_ID(config.port_address));
388         if (in_byte != US14F_PRODUCT_ID_0) {
389 #if (ULTRASTOR_DEBUG & UD_DETECT)
390 # ifdef PORT_OVERRIDE
391             printk("US14F: detect: wrong product ID 0 - %02X\n", in_byte);
392 # else
393             printk("US14F: detect: no adapter at port %03X\n", config.port_address);
394 # endif
395 #endif
396 #ifdef PORT_OVERRIDE
397             goto out_release_port;
398 #else
399             release_region(config.port_address, 0x0c);
400             continue;
401 #endif
402         }
403         in_byte = inb(U14F_PRODUCT_ID(config.port_address) + 1);
404         /* Only upper nibble is significant for Product ID 1 */
405         if ((in_byte & 0xF0) != US14F_PRODUCT_ID_1) {
406 #if (ULTRASTOR_DEBUG & UD_DETECT)
407 # ifdef PORT_OVERRIDE
408             printk("US14F: detect: wrong product ID 1 - %02X\n", in_byte);
409 # else
410             printk("US14F: detect: no adapter at port %03X\n", config.port_address);
411 # endif
412 #endif
413 #ifdef PORT_OVERRIDE
414             goto out_release_port;
415 #else
416             release_region(config.port_address, 0x0c);
417             continue;
418 #endif
419         }
420         version_byte = in_byte;
421 #ifndef PORT_OVERRIDE
422         break;
423     }
424     if (i == ARRAY_SIZE(ultrastor_ports_14f)) {
425 # if (ULTRASTOR_DEBUG & UD_DETECT)
426         printk("US14F: detect: no port address found!\n");
427 # endif
428         /* all ports probed already released - we can just go straight out */
429         return FALSE;
430     }
431 #endif
432
433 #if (ULTRASTOR_DEBUG & UD_DETECT)
434     printk("US14F: detect: adapter found at port address %03X\n",
435            config.port_address);
436 #endif
437
438     /* Set local doorbell mask to disallow bus reset unless
439        ultrastor_bus_reset is true.  */
440     outb(ultrastor_bus_reset ? 0xc2 : 0x82, LCL_DOORBELL_MASK(config.port_address));
441
442     /* All above tests passed, must be the right thing.  Get some useful
443        info. */
444
445     /* Register the I/O space that we use */
446
447     *(char *)&config_1 = inb(CONFIG(config.port_address + 0));
448     *(char *)&config_2 = inb(CONFIG(config.port_address + 1));
449     config.bios_segment = bios_segment_table[config_1.bios_segment];
450     config.doorbell_address = config.port_address;
451     config.ogm_address = config.port_address + 0x8;
452     config.icm_address = config.port_address + 0xC;
453     config.interrupt = interrupt_table_14f[config_1.interrupt];
454     config.ha_scsi_id = config_2.ha_scsi_id;
455     config.heads = mapping_table[config_2.mapping_mode].heads;
456     config.sectors = mapping_table[config_2.mapping_mode].sectors;
457     config.bios_drive_number = config_2.bios_drive_number;
458     config.subversion = (version_byte & 0x0F);
459     if (config.subversion == U34F)
460         config.dma_channel = 0;
461     else
462         config.dma_channel = dma_channel_table_14f[config_1.dma_channel];
463
464     if (!config.bios_segment) {
465 #if (ULTRASTOR_DEBUG & UD_DETECT)
466         printk("US14F: detect: not detected.\n");
467 #endif
468         goto out_release_port;
469     }
470
471     /* Final consistency check, verify previous info. */
472     if (config.subversion != U34F)
473         if (!config.dma_channel || !(config_2.tfr_port & 0x2)) {
474 #if (ULTRASTOR_DEBUG & UD_DETECT)
475             printk("US14F: detect: consistency check failed\n");
476 #endif
477            goto out_release_port;
478         }
479
480     /* If we were TRULY paranoid, we could issue a host adapter inquiry
481        command here and verify the data returned.  But frankly, I'm
482        exhausted! */
483
484     /* Finally!  Now I'm satisfied... */
485 #if (ULTRASTOR_DEBUG & UD_DETECT)
486     printk("US14F: detect: detect succeeded\n"
487            "  Port address: %03X\n"
488            "  BIOS segment: %05X\n"
489            "  Interrupt: %u\n"
490            "  DMA channel: %u\n"
491            "  H/A SCSI ID: %u\n"
492            "  Subversion: %u\n",
493            config.port_address, config.bios_segment, config.interrupt,
494            config.dma_channel, config.ha_scsi_id, config.subversion);
495 #endif
496     tpnt->this_id = config.ha_scsi_id;
497     tpnt->unchecked_isa_dma = (config.subversion != U34F);
498
499 #if ULTRASTOR_MAX_CMDS > 1
500     config.mscp_free = ~0;
501 #endif
502
503     /*
504      * Brrr, &config.mscp[0].SCint->host) it is something magical....
505      * XXX and FIXME
506      */
507     if (request_irq(config.interrupt, do_ultrastor_interrupt, 0, "Ultrastor", &config.mscp[0].SCint->device->host)) {
508         printk("Unable to allocate IRQ%u for UltraStor controller.\n",
509                config.interrupt);
510         goto out_release_port;
511     }
512     if (config.dma_channel && request_dma(config.dma_channel,"Ultrastor")) {
513         printk("Unable to allocate DMA channel %u for UltraStor controller.\n",
514                config.dma_channel);
515         free_irq(config.interrupt, NULL);
516         goto out_release_port;
517     }
518     tpnt->sg_tablesize = ULTRASTOR_14F_MAX_SG;
519     printk("UltraStor driver version" VERSION ".  Using %d SG lists.\n",
520            ULTRASTOR_14F_MAX_SG);
521
522     return TRUE;
523 out_release_port:
524     release_region(config.port_address, 0x0c);
525     return FALSE;
526 }
527
528 static int ultrastor_24f_detect(struct scsi_host_template * tpnt)
529 {
530   int i;
531   struct Scsi_Host * shpnt = NULL;
532
533 #if (ULTRASTOR_DEBUG & UD_DETECT)
534   printk("US24F: detect");
535 #endif
536
537   /* probe each EISA slot at slot address C80 */
538   for (i = 1; i < 15; i++)
539     {
540       unsigned char config_1, config_2;
541       unsigned short addr = (i << 12) | ULTRASTOR_24F_PORT;
542
543       if (inb(addr) != US24F_PRODUCT_ID_0 &&
544           inb(addr+1) != US24F_PRODUCT_ID_1 &&
545           inb(addr+2) != US24F_PRODUCT_ID_2)
546         continue;
547
548       config.revision = inb(addr+3);
549       config.slot = i;
550       if (! (inb(addr+4) & 1))
551         {
552 #if (ULTRASTOR_DEBUG & UD_DETECT)
553           printk("U24F: found disabled card in slot %u\n", i);
554 #endif
555           continue;
556         }
557 #if (ULTRASTOR_DEBUG & UD_DETECT)
558       printk("U24F: found card in slot %u\n", i);
559 #endif
560       config_1 = inb(addr + 5);
561       config.bios_segment = bios_segment_table[config_1 & 7];
562       switch(config_1 >> 4)
563         {
564         case 1:
565           config.interrupt = 15;
566           break;
567         case 2:
568           config.interrupt = 14;
569           break;
570         case 4:
571           config.interrupt = 11;
572           break;
573         case 8:
574           config.interrupt = 10;
575           break;
576         default:
577           printk("U24F: invalid IRQ\n");
578           return FALSE;
579         }
580
581       /* BIOS addr set */
582       /* base port set */
583       config.port_address = addr;
584       config.doorbell_address = addr + 12;
585       config.ogm_address = addr + 0x17;
586       config.icm_address = addr + 0x1C;
587       config_2 = inb(addr + 7);
588       config.ha_scsi_id = config_2 & 7;
589       config.heads = mapping_table[(config_2 >> 3) & 3].heads;
590       config.sectors = mapping_table[(config_2 >> 3) & 3].sectors;
591 #if (ULTRASTOR_DEBUG & UD_DETECT)
592       printk("US24F: detect: detect succeeded\n"
593              "  Port address: %03X\n"
594              "  BIOS segment: %05X\n"
595              "  Interrupt: %u\n"
596              "  H/A SCSI ID: %u\n",
597              config.port_address, config.bios_segment,
598              config.interrupt, config.ha_scsi_id);
599 #endif
600       tpnt->this_id = config.ha_scsi_id;
601       tpnt->unchecked_isa_dma = 0;
602       tpnt->sg_tablesize = ULTRASTOR_24F_MAX_SG;
603
604       shpnt = scsi_register(tpnt, 0);
605       if (!shpnt) {
606              printk(KERN_WARNING "(ultrastor:) Could not register scsi device. Aborting registration.\n");
607              free_irq(config.interrupt, do_ultrastor_interrupt);
608              return FALSE;
609       }
610       
611       if (request_irq(config.interrupt, do_ultrastor_interrupt, 0, "Ultrastor", shpnt))
612         {
613           printk("Unable to allocate IRQ%u for UltraStor controller.\n",
614                  config.interrupt);
615           return FALSE;
616         }
617
618       shpnt->irq = config.interrupt;
619       shpnt->dma_channel = config.dma_channel;
620       shpnt->io_port = config.port_address;
621
622 #if ULTRASTOR_MAX_CMDS > 1
623       config.mscp_free = ~0;
624 #endif
625       /* Mark ICM and OGM free */
626       outb(0, addr + 0x16);
627       outb(0, addr + 0x1B);
628
629       /* Set local doorbell mask to disallow bus reset unless
630          ultrastor_bus_reset is true.  */
631       outb(ultrastor_bus_reset ? 0xc2 : 0x82, LCL_DOORBELL_MASK(addr+12));
632       outb(0x02, SYS_DOORBELL_MASK(addr+12));
633       printk("UltraStor driver version " VERSION ".  Using %d SG lists.\n",
634              tpnt->sg_tablesize);
635       return TRUE;
636     }
637   return FALSE;
638 }
639
640 static int ultrastor_detect(struct scsi_host_template * tpnt)
641 {
642         tpnt->proc_name = "ultrastor";
643         return ultrastor_14f_detect(tpnt) || ultrastor_24f_detect(tpnt);
644 }
645
646 static int ultrastor_release(struct Scsi_Host *shost)
647 {
648         if (shost->irq)
649                 free_irq(shost->irq, NULL);
650         if (shost->dma_channel != 0xff)
651                 free_dma(shost->dma_channel);
652         if (shost->io_port && shost->n_io_port)
653                 release_region(shost->io_port, shost->n_io_port);
654         scsi_unregister(shost);
655         return 0;
656 }
657
658 static const char *ultrastor_info(struct Scsi_Host * shpnt)
659 {
660     static char buf[64];
661
662     if (config.slot)
663       sprintf(buf, "UltraStor 24F SCSI @ Slot %u IRQ%u",
664               config.slot, config.interrupt);
665     else if (config.subversion)
666       sprintf(buf, "UltraStor 34F SCSI @ Port %03X BIOS %05X IRQ%u",
667               config.port_address, (int)config.bios_segment,
668               config.interrupt);
669     else
670       sprintf(buf, "UltraStor 14F SCSI @ Port %03X BIOS %05X IRQ%u DMA%u",
671               config.port_address, (int)config.bios_segment,
672               config.interrupt, config.dma_channel);
673     return buf;
674 }
675
676 static inline void build_sg_list(struct mscp *mscp, Scsi_Cmnd *SCpnt)
677 {
678         struct scatterlist *sl;
679         long transfer_length = 0;
680         int i, max;
681
682         sl = (struct scatterlist *) SCpnt->request_buffer;
683         max = SCpnt->use_sg;
684         for (i = 0; i < max; i++) {
685                 mscp->sglist[i].address = isa_page_to_bus(sl[i].page) + sl[i].offset;
686                 mscp->sglist[i].num_bytes = sl[i].length;
687                 transfer_length += sl[i].length;
688         }
689         mscp->number_of_sg_list = max;
690         mscp->transfer_data = isa_virt_to_bus(mscp->sglist);
691         /* ??? May not be necessary.  Docs are unclear as to whether transfer
692            length field is ignored or whether it should be set to the total
693            number of bytes of the transfer.  */
694         mscp->transfer_data_length = transfer_length;
695 }
696
697 static int ultrastor_queuecommand(Scsi_Cmnd *SCpnt, void (*done)(Scsi_Cmnd *))
698 {
699     struct mscp *my_mscp;
700 #if ULTRASTOR_MAX_CMDS > 1
701     int mscp_index;
702 #endif
703     unsigned int status;
704
705     /* Next test is for debugging; "can't happen" */
706     if ((config.mscp_free & ((1U << ULTRASTOR_MAX_CMDS) - 1)) == 0)
707         panic("ultrastor_queuecommand: no free MSCP\n");
708     mscp_index = find_and_clear_bit_16(&config.mscp_free);
709
710     /* Has the command been aborted?  */
711     if (xchgb(0xff, &config.aborted[mscp_index]) != 0)
712       {
713         status = DID_ABORT << 16;
714         goto aborted;
715       }
716
717     my_mscp = &config.mscp[mscp_index];
718
719     *(unsigned char *)my_mscp = OP_SCSI | (DTD_SCSI << 3);
720
721     /* Tape drives don't work properly if the cache is used.  The SCSI
722        READ command for a tape doesn't have a block offset, and the adapter
723        incorrectly assumes that all reads from the tape read the same
724        blocks.  Results will depend on read buffer size and other disk
725        activity. 
726
727        ???  Which other device types should never use the cache?   */
728     my_mscp->ca = SCpnt->device->type != TYPE_TAPE;
729     my_mscp->target_id = SCpnt->device->id;
730     my_mscp->ch_no = 0;
731     my_mscp->lun = SCpnt->device->lun;
732     if (SCpnt->use_sg) {
733         /* Set scatter/gather flag in SCSI command packet */
734         my_mscp->sg = TRUE;
735         build_sg_list(my_mscp, SCpnt);
736     } else {
737         /* Unset scatter/gather flag in SCSI command packet */
738         my_mscp->sg = FALSE;
739         my_mscp->transfer_data = isa_virt_to_bus(SCpnt->request_buffer);
740         my_mscp->transfer_data_length = SCpnt->request_bufflen;
741     }
742     my_mscp->command_link = 0;          /*???*/
743     my_mscp->scsi_command_link_id = 0;  /*???*/
744     my_mscp->length_of_sense_byte = sizeof SCpnt->sense_buffer;
745     my_mscp->length_of_scsi_cdbs = SCpnt->cmd_len;
746     memcpy(my_mscp->scsi_cdbs, SCpnt->cmnd, my_mscp->length_of_scsi_cdbs);
747     my_mscp->adapter_status = 0;
748     my_mscp->target_status = 0;
749     my_mscp->sense_data = isa_virt_to_bus(&SCpnt->sense_buffer);
750     my_mscp->done = done;
751     my_mscp->SCint = SCpnt;
752     SCpnt->host_scribble = (unsigned char *)my_mscp;
753
754     /* Find free OGM slot.  On 24F, look for OGM status byte == 0.
755        On 14F and 34F, wait for local interrupt pending flag to clear. 
756        
757        FIXME: now we are using new_eh we should punt here and let the
758        midlayer sort it out */
759
760 retry:
761     if (config.slot)
762         while (inb(config.ogm_address - 1) != 0 && config.aborted[mscp_index] == 0xff)
763                 barrier();
764
765     /* else??? */
766
767     while ((inb(LCL_DOORBELL_INTR(config.doorbell_address)) & (config.slot ? 2 : 1))  && config.aborted[mscp_index] == 0xff)
768         barrier();
769
770     /* To avoid race conditions, keep the code to write to the adapter
771        atomic.  This simplifies the abort code.  Right now the
772        scsi mid layer has the host_lock already held
773      */
774
775     if (inb(LCL_DOORBELL_INTR(config.doorbell_address)) & (config.slot ? 2 : 1))
776       goto retry;
777
778     status = xchgb(0, &config.aborted[mscp_index]);
779     if (status != 0xff) {
780
781 #if ULTRASTOR_DEBUG & (UD_COMMAND | UD_ABORT)
782         printk("USx4F: queuecommand: aborted\n");
783 #if ULTRASTOR_MAX_CMDS > 1
784         log_ultrastor_abort(&config, mscp_index);
785 #endif
786 #endif
787         status <<= 16;
788
789       aborted:
790         set_bit(mscp_index, &config.mscp_free);
791         /* If the driver queues commands, call the done proc here.  Otherwise
792            return an error.  */
793 #if ULTRASTOR_MAX_CMDS > 1
794         SCpnt->result = status;
795         done(SCpnt);
796         return 0;
797 #else
798         return status;
799 #endif
800     }
801
802     /* Store pointer in OGM address bytes */
803     outl(isa_virt_to_bus(my_mscp), config.ogm_address);
804
805     /* Issue OGM interrupt */
806     if (config.slot) {
807         /* Write OGM command register on 24F */
808         outb(1, config.ogm_address - 1);
809         outb(0x2, LCL_DOORBELL_INTR(config.doorbell_address));
810     } else {
811         outb(0x1, LCL_DOORBELL_INTR(config.doorbell_address));
812     }
813
814 #if (ULTRASTOR_DEBUG & UD_COMMAND)
815     printk("USx4F: queuecommand: returning\n");
816 #endif
817
818     return 0;
819 }
820
821 /* This code must deal with 2 cases:
822
823    1. The command has not been written to the OGM.  In this case, set
824    the abort flag and return.
825
826    2. The command has been written to the OGM and is stuck somewhere in
827    the adapter.
828
829    2a.  On a 24F, ask the adapter to abort the command.  It will interrupt
830    when it does.
831
832    2b.  Call the command's done procedure.
833
834  */
835
836 static int ultrastor_abort(Scsi_Cmnd *SCpnt)
837 {
838 #if ULTRASTOR_DEBUG & UD_ABORT
839     char out[108];
840     unsigned char icm_status = 0, ogm_status = 0;
841     unsigned int icm_addr = 0, ogm_addr = 0;
842 #endif
843     unsigned int mscp_index;
844     unsigned char old_aborted;
845     unsigned long flags;
846     void (*done)(Scsi_Cmnd *);
847     struct Scsi_Host *host = SCpnt->device->host;
848
849     if(config.slot) 
850       return FAILED;  /* Do not attempt an abort for the 24f */
851       
852     /* Simple consistency checking */
853     if(!SCpnt->host_scribble)
854       return FAILED;
855
856     mscp_index = ((struct mscp *)SCpnt->host_scribble) - config.mscp;
857     if (mscp_index >= ULTRASTOR_MAX_CMDS)
858         panic("Ux4F aborting invalid MSCP");
859
860 #if ULTRASTOR_DEBUG & UD_ABORT
861     if (config.slot)
862       {
863         int port0 = (config.slot << 12) | 0xc80;
864         int i;
865         unsigned long flags;
866         
867         spin_lock_irqsave(host->host_lock, flags);
868         strcpy(out, "OGM %d:%x ICM %d:%x ports:  ");
869         for (i = 0; i < 16; i++)
870           {
871             unsigned char p = inb(port0 + i);
872             out[28 + i * 3] = "0123456789abcdef"[p >> 4];
873             out[29 + i * 3] = "0123456789abcdef"[p & 15];
874             out[30 + i * 3] = ' ';
875           }
876         out[28 + i * 3] = '\n';
877         out[29 + i * 3] = 0;
878         ogm_status = inb(port0 + 22);
879         ogm_addr = (unsigned int)isa_bus_to_virt(inl(port0 + 23));
880         icm_status = inb(port0 + 27);
881         icm_addr = (unsigned int)isa_bus_to_virt(inl(port0 + 28));
882         spin_unlock_irqrestore(host->host_lock, flags);
883       }
884
885     /* First check to see if an interrupt is pending.  I suspect the SiS
886        chipset loses interrupts.  (I also suspect is mangles data, but
887        one bug at a time... */
888     if (config.slot ? inb(config.icm_address - 1) == 2 :
889         (inb(SYS_DOORBELL_INTR(config.doorbell_address)) & 1))
890       {
891         printk("Ux4F: abort while completed command pending\n");
892         
893         spin_lock_irqsave(host->host_lock, flags);
894         /* FIXME: Ewww... need to think about passing host around properly */
895         ultrastor_interrupt(0, NULL, NULL);
896         spin_unlock_irqrestore(host->host_lock, flags);
897         return SUCCESS;
898       }
899 #endif
900
901     old_aborted = xchgb(DID_ABORT, &config.aborted[mscp_index]);
902
903     /* aborted == 0xff is the signal that queuecommand has not yet sent
904        the command.  It will notice the new abort flag and fail.  */
905     if (old_aborted == 0xff)
906         return SUCCESS;
907
908     /* On 24F, send an abort MSCP request.  The adapter will interrupt
909        and the interrupt handler will call done.  */
910     if (config.slot && inb(config.ogm_address - 1) == 0)
911       {
912         unsigned long flags;
913
914         spin_lock_irqsave(host->host_lock, flags);
915         outl(isa_virt_to_bus(&config.mscp[mscp_index]), config.ogm_address);
916         udelay(8);
917         outb(0x80, config.ogm_address - 1);
918         outb(0x2, LCL_DOORBELL_INTR(config.doorbell_address));
919 #if ULTRASTOR_DEBUG & UD_ABORT
920         log_ultrastor_abort(&config, mscp_index);
921         printk(out, ogm_status, ogm_addr, icm_status, icm_addr);
922 #endif
923         spin_unlock_irqrestore(host->host_lock, flags);
924         /* FIXME: add a wait for the abort to complete */
925         return SUCCESS;
926       }
927
928 #if ULTRASTOR_DEBUG & UD_ABORT
929     log_ultrastor_abort(&config, mscp_index);
930 #endif
931
932     /* Can't request a graceful abort.  Either this is not a 24F or
933        the OGM is busy.  Don't free the command -- the adapter might
934        still be using it.  Setting SCint = 0 causes the interrupt
935        handler to ignore the command.  */
936
937     /* FIXME - devices that implement soft resets will still be running
938        the command after a bus reset.  We would probably rather leave
939        the command in the queue.  The upper level code will automatically
940        leave the command in the active state instead of requeueing it. ERY */
941
942 #if ULTRASTOR_DEBUG & UD_ABORT
943     if (config.mscp[mscp_index].SCint != SCpnt)
944         printk("abort: command mismatch, %p != %p\n",
945                config.mscp[mscp_index].SCint, SCpnt);
946 #endif
947     if (config.mscp[mscp_index].SCint == 0)
948         return FAILED;
949
950     if (config.mscp[mscp_index].SCint != SCpnt) panic("Bad abort");
951     config.mscp[mscp_index].SCint = NULL;
952     done = config.mscp[mscp_index].done;
953     config.mscp[mscp_index].done = NULL;
954     SCpnt->result = DID_ABORT << 16;
955     
956     /* Take the host lock to guard against scsi layer re-entry */
957     done(SCpnt);
958
959     /* Need to set a timeout here in case command never completes.  */
960     return SUCCESS;
961 }
962
963 static int ultrastor_host_reset(Scsi_Cmnd * SCpnt)
964 {
965     unsigned long flags;
966     int i;
967     struct Scsi_Host *host = SCpnt->device->host;
968     
969 #if (ULTRASTOR_DEBUG & UD_RESET)
970     printk("US14F: reset: called\n");
971 #endif
972
973     if(config.slot)
974         return FAILED;
975
976     spin_lock_irqsave(host->host_lock, flags);
977     /* Reset the adapter and SCSI bus.  The SCSI bus reset can be
978        inhibited by clearing ultrastor_bus_reset before probe.  */
979     outb(0xc0, LCL_DOORBELL_INTR(config.doorbell_address));
980     if (config.slot)
981       {
982         outb(0, config.ogm_address - 1);
983         outb(0, config.icm_address - 1);
984       }
985
986 #if ULTRASTOR_MAX_CMDS == 1
987     if (config.mscp_busy && config.mscp->done && config.mscp->SCint)
988       {
989         config.mscp->SCint->result = DID_RESET << 16;
990         config.mscp->done(config.mscp->SCint);
991       }
992     config.mscp->SCint = 0;
993 #else
994     for (i = 0; i < ULTRASTOR_MAX_CMDS; i++)
995       {
996         if (! (config.mscp_free & (1 << i)) &&
997             config.mscp[i].done && config.mscp[i].SCint)
998           {
999             config.mscp[i].SCint->result = DID_RESET << 16;
1000             config.mscp[i].done(config.mscp[i].SCint);
1001             config.mscp[i].done = NULL;
1002           }
1003         config.mscp[i].SCint = NULL;
1004       }
1005 #endif
1006
1007     /* FIXME - if the device implements soft resets, then the command
1008        will still be running.  ERY  
1009        
1010        Even bigger deal with new_eh! 
1011      */
1012
1013     memset((unsigned char *)config.aborted, 0, sizeof config.aborted);
1014 #if ULTRASTOR_MAX_CMDS == 1
1015     config.mscp_busy = 0;
1016 #else
1017     config.mscp_free = ~0;
1018 #endif
1019
1020     spin_unlock_irqrestore(host->host_lock, flags);
1021     return SUCCESS;
1022
1023 }
1024
1025 int ultrastor_biosparam(struct scsi_device *sdev, struct block_device *bdev,
1026                 sector_t capacity, int * dkinfo)
1027 {
1028     int size = capacity;
1029     unsigned int s = config.heads * config.sectors;
1030
1031     dkinfo[0] = config.heads;
1032     dkinfo[1] = config.sectors;
1033     dkinfo[2] = size / s;       /* Ignore partial cylinders */
1034 #if 0
1035     if (dkinfo[2] > 1024)
1036         dkinfo[2] = 1024;
1037 #endif
1038     return 0;
1039 }
1040
1041 static void ultrastor_interrupt(int irq, void *dev_id, struct pt_regs *regs)
1042 {
1043     unsigned int status;
1044 #if ULTRASTOR_MAX_CMDS > 1
1045     unsigned int mscp_index;
1046 #endif
1047     struct mscp *mscp;
1048     void (*done)(Scsi_Cmnd *);
1049     Scsi_Cmnd *SCtmp;
1050
1051 #if ULTRASTOR_MAX_CMDS == 1
1052     mscp = &config.mscp[0];
1053 #else
1054     mscp = (struct mscp *)isa_bus_to_virt(inl(config.icm_address));
1055     mscp_index = mscp - config.mscp;
1056     if (mscp_index >= ULTRASTOR_MAX_CMDS) {
1057         printk("Ux4F interrupt: bad MSCP address %x\n", (unsigned int) mscp);
1058         /* A command has been lost.  Reset and report an error
1059            for all commands.  */
1060         ultrastor_host_reset(dev_id);
1061         return;
1062     }
1063 #endif
1064
1065     /* Clean ICM slot (set ICMINT bit to 0) */
1066     if (config.slot) {
1067         unsigned char icm_status = inb(config.icm_address - 1);
1068 #if ULTRASTOR_DEBUG & (UD_INTERRUPT|UD_ERROR|UD_ABORT)
1069         if (icm_status != 1 && icm_status != 2)
1070             printk("US24F: ICM status %x for MSCP %d (%x)\n", icm_status,
1071                    mscp_index, (unsigned int) mscp);
1072 #endif
1073         /* The manual says clear interrupt then write 0 to ICM status.
1074            This seems backwards, but I'll do it anyway.  --jfc */
1075         outb(2, SYS_DOORBELL_INTR(config.doorbell_address));
1076         outb(0, config.icm_address - 1);
1077         if (icm_status == 4) {
1078             printk("UltraStor abort command failed\n");
1079             return;
1080         }
1081         if (icm_status == 3) {
1082             void (*done)(Scsi_Cmnd *) = mscp->done;
1083             if (done) {
1084                 mscp->done = NULL;
1085                 mscp->SCint->result = DID_ABORT << 16;
1086                 done(mscp->SCint);
1087             }
1088             return;
1089         }
1090     } else {
1091         outb(1, SYS_DOORBELL_INTR(config.doorbell_address));
1092     }
1093
1094     SCtmp = mscp->SCint;
1095     mscp->SCint = NULL;
1096
1097     if (SCtmp == 0)
1098       {
1099 #if ULTRASTOR_DEBUG & (UD_ABORT|UD_INTERRUPT)
1100         printk("MSCP %d (%x): no command\n", mscp_index, (unsigned int) mscp);
1101 #endif  
1102 #if ULTRASTOR_MAX_CMDS == 1
1103         config.mscp_busy = FALSE;
1104 #else
1105         set_bit(mscp_index, &config.mscp_free);
1106 #endif
1107         config.aborted[mscp_index] = 0;
1108         return;
1109       }
1110
1111     /* Save done locally and zero before calling.  This is needed as
1112        once we call done, we may get another command queued before this
1113        interrupt service routine can return. */
1114     done = mscp->done;
1115     mscp->done = NULL;
1116
1117     /* Let the higher levels know that we're done */
1118     switch (mscp->adapter_status)
1119       {
1120       case 0:
1121         status = DID_OK << 16;
1122         break;
1123       case 0x01:        /* invalid command */
1124       case 0x02:        /* invalid parameters */
1125       case 0x03:        /* invalid data list */
1126       default:
1127         status = DID_ERROR << 16;
1128         break;
1129       case 0x84:        /* SCSI bus abort */
1130         status = DID_ABORT << 16;
1131         break;
1132       case 0x91:
1133         status = DID_TIME_OUT << 16;
1134         break;
1135       }
1136
1137     SCtmp->result = status | mscp->target_status;
1138
1139     SCtmp->host_scribble = NULL;
1140
1141     /* Free up mscp block for next command */
1142 #if ULTRASTOR_MAX_CMDS == 1
1143     config.mscp_busy = FALSE;
1144 #else
1145     set_bit(mscp_index, &config.mscp_free);
1146 #endif
1147
1148 #if ULTRASTOR_DEBUG & (UD_ABORT|UD_INTERRUPT)
1149     if (config.aborted[mscp_index])
1150         printk("Ux4 interrupt: MSCP %d (%x) aborted = %d\n",
1151                mscp_index, (unsigned int) mscp, config.aborted[mscp_index]);
1152 #endif
1153     config.aborted[mscp_index] = 0;
1154
1155     if (done)
1156         done(SCtmp);
1157     else
1158         printk("US14F: interrupt: unexpected interrupt\n");
1159
1160     if (config.slot ? inb(config.icm_address - 1) :
1161        (inb(SYS_DOORBELL_INTR(config.doorbell_address)) & 1))
1162 #if (ULTRASTOR_DEBUG & UD_MULTI_CMD)
1163       printk("Ux4F: multiple commands completed\n");
1164 #else
1165       ;
1166 #endif
1167
1168 #if (ULTRASTOR_DEBUG & UD_INTERRUPT)
1169     printk("USx4F: interrupt: returning\n");
1170 #endif
1171 }
1172
1173 static irqreturn_t do_ultrastor_interrupt(int irq, void *dev_id,
1174                                                 struct pt_regs *regs)
1175 {
1176     unsigned long flags;
1177     struct Scsi_Host *dev = dev_id;
1178     
1179     spin_lock_irqsave(dev->host_lock, flags);
1180     ultrastor_interrupt(irq, dev_id, regs);
1181     spin_unlock_irqrestore(dev->host_lock, flags);
1182     return IRQ_HANDLED;
1183 }
1184
1185 MODULE_LICENSE("GPL");
1186
1187 static struct scsi_host_template driver_template = {
1188         .name              = "UltraStor 14F/24F/34F",
1189         .detect            = ultrastor_detect,
1190         .release           = ultrastor_release,
1191         .info              = ultrastor_info,
1192         .queuecommand      = ultrastor_queuecommand,
1193         .eh_abort_handler  = ultrastor_abort,
1194         .eh_host_reset_handler  = ultrastor_host_reset, 
1195         .bios_param        = ultrastor_biosparam,
1196         .can_queue         = ULTRASTOR_MAX_CMDS,
1197         .sg_tablesize      = ULTRASTOR_14F_MAX_SG,
1198         .cmd_per_lun       = ULTRASTOR_MAX_CMDS_PER_LUN,
1199         .unchecked_isa_dma = 1,
1200         .use_clustering    = ENABLE_CLUSTERING,
1201 };
1202 #include "scsi_module.c"