3 * linux/kernel/aha1740.c
5 * Based loosely on aha1542.c which is
6 * Copyright (C) 1992 Tommy Thorn and
7 * Modified by Eric Youngdale
9 * This file is aha1740.c, written and
10 * Copyright (C) 1992,1993 Brad McLean
11 * brad@saturn.gaylord.com or brad@bradpc.gaylord.com.
13 * Modifications to makecode and queuecommand
14 * for proper handling of multiple devices courteously
15 * provided by Michael Weller, March, 1993
17 * Multiple adapter support, extended translation detection,
18 * update to current scsi subsystem changes, proc fs support,
19 * working (!) module support based on patches from Andreas Arens,
20 * by Andreas Degert <ad@papyrus.hamburg.com>, 2/1997
22 * aha1740_makecode may still need even more work
23 * if it doesn't work for your devices, take a look.
25 * Reworked for new_eh and new locking by Alan Cox <alan@redhat.com>
27 * Converted to EISA and generic DMA APIs by Marc Zyngier
28 * <maz@wild-wind.fr.eu.org>, 4/2003.
30 * Shared interrupt support added by Rask Ingemann Lambertsen
31 * <rask@sygehus.dk>, 10/2003
33 * For the avoidance of doubt the "preferred form" of this code is one which
34 * is in an open non patent encumbered format. Where cryptographic key signing
35 * forms part of the process of creating an executable the information
36 * including keys needed to generate an equivalently functional executable
37 * are deemed to be part of the source code.
40 #include <linux/blkdev.h>
41 #include <linux/interrupt.h>
42 #include <linux/module.h>
43 #include <linux/kernel.h>
44 #include <linux/types.h>
45 #include <linux/string.h>
46 #include <linux/ioport.h>
47 #include <linux/proc_fs.h>
48 #include <linux/stat.h>
49 #include <linux/init.h>
50 #include <linux/device.h>
51 #include <linux/eisa.h>
52 #include <linux/dma-mapping.h>
55 #include <asm/system.h>
59 #include <scsi/scsi_host.h>
62 /* IF YOU ARE HAVING PROBLEMS WITH THIS DRIVER, AND WANT TO WATCH
72 struct aha1740_hostdata
{
73 struct eisa_device
*edev
;
74 unsigned int translation
;
75 unsigned int last_ecb_used
;
76 dma_addr_t ecb_dma_addr
;
77 struct ecb ecb
[AHA1740_ECBS
];
81 struct aha1740_chain sg_chain
[AHA1740_SCATTER
];
82 dma_addr_t sg_dma_addr
;
83 dma_addr_t buf_dma_addr
;
86 #define HOSTDATA(host) ((struct aha1740_hostdata *) &host->hostdata)
88 static inline struct ecb
*ecb_dma_to_cpu (struct Scsi_Host
*host
,
91 struct aha1740_hostdata
*hdata
= HOSTDATA (host
);
94 offset
= dma
- hdata
->ecb_dma_addr
;
96 return (struct ecb
*)(((char *) hdata
->ecb
) + (unsigned int) offset
);
99 static inline dma_addr_t
ecb_cpu_to_dma (struct Scsi_Host
*host
, void *cpu
)
101 struct aha1740_hostdata
*hdata
= HOSTDATA (host
);
104 offset
= (char *) cpu
- (char *) hdata
->ecb
;
106 return hdata
->ecb_dma_addr
+ offset
;
109 static int aha1740_proc_info(struct Scsi_Host
*shpnt
, char *buffer
,
110 char **start
, off_t offset
,
111 int length
, int inout
)
114 struct aha1740_hostdata
*host
;
119 host
= HOSTDATA(shpnt
);
121 len
= sprintf(buffer
, "aha174x at IO:%lx, IRQ %d, SLOT %d.\n"
122 "Extended translation %sabled.\n",
123 shpnt
->io_port
, shpnt
->irq
, host
->edev
->slot
,
124 host
->translation
? "en" : "dis");
131 *start
= buffer
+ offset
;
138 static int aha1740_makecode(unchar
*sense
, unchar
*status
)
142 ushort don
:1, /* Command Done - No Error */
143 du
:1, /* Data underrun */
144 :1, qf
:1, /* Queue full */
145 sc
:1, /* Specification Check */
146 dor
:1, /* Data overrun */
147 ch
:1, /* Chaining Halted */
148 intr
:1, /* Interrupt issued */
149 asa
:1, /* Additional Status Available */
150 sns
:1, /* Sense information Stored */
151 :1, ini
:1, /* Initialization Required */
152 me
:1, /* Major error or exception */
153 :1, eca
:1, /* Extended Contingent alliance */
158 status_word
= * (struct statusword
*) status
;
160 printk("makecode from %x,%x,%x,%x %x,%x,%x,%x",
161 status
[0], status
[1], status
[2], status
[3],
162 sense
[0], sense
[1], sense
[2], sense
[3]);
164 if (!status_word
.don
) { /* Anything abnormal was detected */
165 if ( (status
[1]&0x18) || status_word
.sc
) {
166 /*Additional info available*/
167 /* Use the supplied info for further diagnostics */
168 switch ( status
[2] ) {
170 if ( status_word
.dor
)
171 retval
=DID_ERROR
; /* It's an Overrun */
172 /* If not overrun, assume underrun and
174 case 0x00: /* No info, assume no error, should
182 retval
=DID_BAD_TARGET
;
187 /* Either by this driver or the
191 retval
=DID_ERROR
; /* No further
196 /* Michael suggests, and Brad concurs: */
197 if ( status_word
.qf
) {
198 retval
= DID_TIME_OUT
; /* forces a redo */
199 /* I think this specific one should
200 * not happen -Brad */
201 printk("aha1740.c: WARNING: AHA1740 queue overflow!\n");
203 if ( status
[0]&0x60 ) {
204 /* Didn't find a better error */
207 /* In any other case return DID_OK so for example
208 CONDITION_CHECKS make it through to the appropriate
212 /* Under all circumstances supply the target status -Michael */
213 return status
[3] | retval
<< 16;
216 static int aha1740_test_port(unsigned int base
)
218 if ( inb(PORTADR(base
)) & PORTADDR_ENH
)
219 return 1; /* Okay, we're all set */
221 printk("aha174x: Board detected, but not in enhanced mode, so disabled it.\n");
225 /* A "high" level interrupt handler */
226 static irqreturn_t
aha1740_intr_handle(int irq
, void *dev_id
,
227 struct pt_regs
*regs
)
229 struct Scsi_Host
*host
= (struct Scsi_Host
*) dev_id
;
230 void (*my_done
)(Scsi_Cmnd
*);
231 int errstatus
, adapstat
;
238 struct aha1740_sg
*sgptr
;
239 struct eisa_device
*edev
;
242 panic("aha1740.c: Irq from unknown host!\n");
243 spin_lock_irqsave(host
->host_lock
, flags
);
244 base
= host
->io_port
;
246 edev
= HOSTDATA(host
)->edev
;
248 while(inb(G2STAT(base
)) & G2STAT_INTPEND
) {
250 DEB(printk("aha1740_intr top of loop.\n"));
251 adapstat
= inb(G2INTST(base
));
252 ecbptr
= ecb_dma_to_cpu (host
, inl(MBOXIN0(base
)));
253 outb(G2CNTRL_IRST
,G2CNTRL(base
)); /* interrupt reset */
255 switch ( adapstat
& G2INTST_MASK
) {
256 case G2INTST_CCBRETRY
:
257 case G2INTST_CCBERROR
:
258 case G2INTST_CCBGOOD
:
259 /* Host Ready -> Mailbox in complete */
260 outb(G2CNTRL_HRDY
,G2CNTRL(base
));
262 printk("Aha1740 null ecbptr in interrupt (%x,%x,%x,%d)\n",
263 inb(G2STAT(base
)),adapstat
,
264 inb(G2INTST(base
)), number_serviced
++);
267 SCtmp
= ecbptr
->SCpnt
;
269 printk("Aha1740 null SCtmp in interrupt (%x,%x,%x,%d)\n",
270 inb(G2STAT(base
)),adapstat
,
271 inb(G2INTST(base
)), number_serviced
++);
274 sgptr
= (struct aha1740_sg
*) SCtmp
->host_scribble
;
276 /* We used scatter-gather.
277 Do the unmapping dance. */
278 dma_unmap_sg (&edev
->dev
,
279 (struct scatterlist
*) SCtmp
->request_buffer
,
281 SCtmp
->sc_data_direction
);
283 dma_unmap_single (&edev
->dev
,
285 SCtmp
->request_bufflen
,
289 /* Free the sg block */
290 dma_free_coherent (&edev
->dev
,
291 sizeof (struct aha1740_sg
),
292 SCtmp
->host_scribble
,
295 /* Fetch the sense data, and tuck it away, in
296 the required slot. The Adaptec
297 automatically fetches it, and there is no
298 guarantee that we will still have it in the
299 cdb when we come back */
300 if ( (adapstat
& G2INTST_MASK
) == G2INTST_CCBERROR
) {
301 memcpy(SCtmp
->sense_buffer
, ecbptr
->sense
,
302 sizeof(SCtmp
->sense_buffer
));
303 errstatus
= aha1740_makecode(ecbptr
->sense
,ecbptr
->status
);
307 printk("aha1740_intr_handle: returning %6x\n",
309 SCtmp
->result
= errstatus
;
310 my_done
= ecbptr
->done
;
311 memset(ecbptr
,0,sizeof(struct ecb
));
316 case G2INTST_HARDFAIL
:
317 printk(KERN_ALERT
"aha1740 hardware failure!\n");
318 panic("aha1740.c"); /* Goodbye */
320 case G2INTST_ASNEVENT
:
321 printk("aha1740 asynchronous event: %02x %02x %02x %02x %02x\n",
326 inb(MBOXIN3(base
))); /* Say What? */
327 /* Host Ready -> Mailbox in complete */
328 outb(G2CNTRL_HRDY
,G2CNTRL(base
));
331 case G2INTST_CMDGOOD
:
332 /* set immediate command success flag here: */
335 case G2INTST_CMDERROR
:
336 /* Set immediate command failure flag here: */
342 spin_unlock_irqrestore(host
->host_lock
, flags
);
343 return IRQ_RETVAL(handled
);
346 static int aha1740_queuecommand(Scsi_Cmnd
* SCpnt
, void (*done
)(Scsi_Cmnd
*))
349 unchar
*cmd
= (unchar
*) SCpnt
->cmnd
;
350 unchar target
= scmd_id(SCpnt
);
351 struct aha1740_hostdata
*host
= HOSTDATA(SCpnt
->device
->host
);
353 void *buff
= SCpnt
->request_buffer
;
354 int bufflen
= SCpnt
->request_bufflen
;
356 struct aha1740_sg
*sgptr
;
360 if(*cmd
== REQUEST_SENSE
) {
367 if (*cmd
== READ_10
|| *cmd
== WRITE_10
)
368 i
= xscsi2int(cmd
+2);
369 else if (*cmd
== READ_6
|| *cmd
== WRITE_6
)
373 printk("aha1740_queuecommand: dev %d cmd %02x pos %d len %d ",
374 target
, *cmd
, i
, bufflen
);
376 for (i
= 0; i
< SCpnt
->cmd_len
; i
++) printk("%02x ", cmd
[i
]);
380 /* locate an available ecb */
381 spin_lock_irqsave(SCpnt
->device
->host
->host_lock
, flags
);
382 ecbno
= host
->last_ecb_used
+ 1; /* An optimization */
383 if (ecbno
>= AHA1740_ECBS
)
386 if (!host
->ecb
[ecbno
].cmdw
)
389 if (ecbno
>= AHA1740_ECBS
)
391 } while (ecbno
!= host
->last_ecb_used
);
393 if (host
->ecb
[ecbno
].cmdw
)
394 panic("Unable to find empty ecb for aha1740.\n");
396 host
->ecb
[ecbno
].cmdw
= AHA1740CMD_INIT
; /* SCSI Initiator Command
397 doubles as reserved flag */
399 host
->last_ecb_used
= ecbno
;
400 spin_unlock_irqrestore(SCpnt
->device
->host
->host_lock
, flags
);
403 printk("Sending command (%d %x)...", ecbno
, done
);
406 host
->ecb
[ecbno
].cdblen
= SCpnt
->cmd_len
; /* SCSI Command
411 if (*cmd
== READ_10
|| *cmd
== READ_6
)
413 else if (*cmd
== WRITE_10
|| *cmd
== WRITE_6
)
416 memcpy(host
->ecb
[ecbno
].cdb
, cmd
, SCpnt
->cmd_len
);
418 SCpnt
->host_scribble
= dma_alloc_coherent (&host
->edev
->dev
,
419 sizeof (struct aha1740_sg
),
420 &sg_dma
, GFP_ATOMIC
);
421 if(SCpnt
->host_scribble
== NULL
) {
422 printk(KERN_WARNING
"aha1740: out of memory in queuecommand!\n");
425 sgptr
= (struct aha1740_sg
*) SCpnt
->host_scribble
;
426 sgptr
->sg_dma_addr
= sg_dma
;
429 struct scatterlist
* sgpnt
;
430 struct aha1740_chain
* cptr
;
432 DEB(unsigned char * ptr
);
434 host
->ecb
[ecbno
].sg
= 1; /* SCSI Initiator Command
436 sgpnt
= (struct scatterlist
*) SCpnt
->request_buffer
;
437 cptr
= sgptr
->sg_chain
;
438 count
= dma_map_sg (&host
->edev
->dev
, sgpnt
, SCpnt
->use_sg
,
439 SCpnt
->sc_data_direction
);
440 for(i
=0; i
< count
; i
++) {
441 cptr
[i
].datalen
= sg_dma_len (sgpnt
+ i
);
442 cptr
[i
].dataptr
= sg_dma_address (sgpnt
+ i
);
444 host
->ecb
[ecbno
].datalen
= count
*sizeof(struct aha1740_chain
);
445 host
->ecb
[ecbno
].dataptr
= sg_dma
;
447 printk("cptr %x: ",cptr
);
448 ptr
= (unsigned char *) cptr
;
449 for(i
=0;i
<24;i
++) printk("%02x ", ptr
[i
]);
452 host
->ecb
[ecbno
].datalen
= bufflen
;
453 sgptr
->buf_dma_addr
= dma_map_single (&host
->edev
->dev
,
456 host
->ecb
[ecbno
].dataptr
= sgptr
->buf_dma_addr
;
458 host
->ecb
[ecbno
].lun
= SCpnt
->device
->lun
;
459 host
->ecb
[ecbno
].ses
= 1; /* Suppress underrun errors */
460 host
->ecb
[ecbno
].dir
= direction
;
461 host
->ecb
[ecbno
].ars
= 1; /* Yes, get the sense on an error */
462 host
->ecb
[ecbno
].senselen
= 12;
463 host
->ecb
[ecbno
].senseptr
= ecb_cpu_to_dma (SCpnt
->device
->host
,
464 host
->ecb
[ecbno
].sense
);
465 host
->ecb
[ecbno
].statusptr
= ecb_cpu_to_dma (SCpnt
->device
->host
,
466 host
->ecb
[ecbno
].status
);
467 host
->ecb
[ecbno
].done
= done
;
468 host
->ecb
[ecbno
].SCpnt
= SCpnt
;
472 printk("aha1740_command: sending.. ");
473 for (i
= 0; i
< sizeof(host
->ecb
[ecbno
]) - 10; i
++)
474 printk("%02x ", ((unchar
*)&host
->ecb
[ecbno
])[i
]);
479 /* The Adaptec Spec says the card is so fast that the loops
480 will only be executed once in the code below. Even if this
481 was true with the fastest processors when the spec was
482 written, it doesn't seem to be true with todays fast
483 processors. We print a warning if the code is executed more
484 often than LOOPCNT_WARN. If this happens, it should be
485 investigated. If the count reaches LOOPCNT_MAX, we assume
486 something is broken; since there is no way to return an
487 error (the return value is ignored by the mid-level scsi
488 layer) we have to panic (and maybe that's the best thing we
489 can do then anyhow). */
491 #define LOOPCNT_WARN 10 /* excessive mbxout wait -> syslog-msg */
492 #define LOOPCNT_MAX 1000000 /* mbxout deadlock -> panic() after ~ 2 sec. */
494 unsigned int base
= SCpnt
->device
->host
->io_port
;
495 DEB(printk("aha1740[%d] critical section\n",ecbno
));
497 spin_lock_irqsave(SCpnt
->device
->host
->host_lock
, flags
);
498 for (loopcnt
= 0; ; loopcnt
++) {
499 if (inb(G2STAT(base
)) & G2STAT_MBXOUT
) break;
500 if (loopcnt
== LOOPCNT_WARN
) {
501 printk("aha1740[%d]_mbxout wait!\n",ecbno
);
503 if (loopcnt
== LOOPCNT_MAX
)
504 panic("aha1740.c: mbxout busy!\n");
506 outl (ecb_cpu_to_dma (SCpnt
->device
->host
, host
->ecb
+ ecbno
),
508 for (loopcnt
= 0; ; loopcnt
++) {
509 if (! (inb(G2STAT(base
)) & G2STAT_BUSY
)) break;
510 if (loopcnt
== LOOPCNT_WARN
) {
511 printk("aha1740[%d]_attn wait!\n",ecbno
);
513 if (loopcnt
== LOOPCNT_MAX
)
514 panic("aha1740.c: attn wait failed!\n");
516 outb(ATTN_START
| (target
& 7), ATTN(base
)); /* Start it up */
517 spin_unlock_irqrestore(SCpnt
->device
->host
->host_lock
, flags
);
518 DEB(printk("aha1740[%d] request queued.\n",ecbno
));
520 printk(KERN_ALERT
"aha1740_queuecommand: done can't be NULL\n");
524 /* Query the board for its irq_level and irq_type. Nothing else matters
525 in enhanced mode on an EISA bus. */
527 static void aha1740_getconfig(unsigned int base
, unsigned int *irq_level
,
528 unsigned int *irq_type
,
529 unsigned int *translation
)
531 static int intab
[] = { 9, 10, 11, 12, 0, 14, 15, 0 };
533 *irq_level
= intab
[inb(INTDEF(base
)) & 0x7];
534 *irq_type
= (inb(INTDEF(base
)) & 0x8) >> 3;
535 *translation
= inb(RESV1(base
)) & 0x1;
536 outb(inb(INTDEF(base
)) | 0x10, INTDEF(base
));
539 static int aha1740_biosparam(struct scsi_device
*sdev
,
540 struct block_device
*dev
,
541 sector_t capacity
, int* ip
)
544 int extended
= HOSTDATA(sdev
->host
)->translation
;
546 DEB(printk("aha1740_biosparam\n"));
547 if (extended
&& (ip
[2] > 1024)) {
550 ip
[2] = size
/ (255 * 63);
559 static int aha1740_eh_abort_handler (Scsi_Cmnd
*dummy
)
563 * The AHA1740 has firmware handled abort/reset handling. The "head in
564 * sand" kernel code is correct for once 8)
566 * So we define a dummy handler just to keep the kernel SCSI code as
567 * quiet as possible...
573 static struct scsi_host_template aha1740_template
= {
574 .module
= THIS_MODULE
,
575 .proc_name
= "aha1740",
576 .proc_info
= aha1740_proc_info
,
577 .name
= "Adaptec 174x (EISA)",
578 .queuecommand
= aha1740_queuecommand
,
579 .bios_param
= aha1740_biosparam
,
580 .can_queue
= AHA1740_ECBS
,
582 .sg_tablesize
= AHA1740_SCATTER
,
583 .cmd_per_lun
= AHA1740_CMDLUN
,
584 .use_clustering
= ENABLE_CLUSTERING
,
585 .eh_abort_handler
= aha1740_eh_abort_handler
,
588 static int aha1740_probe (struct device
*dev
)
591 unsigned int irq_level
, irq_type
, translation
;
592 struct Scsi_Host
*shpnt
;
593 struct aha1740_hostdata
*host
;
594 struct eisa_device
*edev
= to_eisa_device (dev
);
596 DEB(printk("aha1740_probe: \n"));
598 slotbase
= edev
->base_addr
+ EISA_VENDOR_ID_OFFSET
;
599 if (!request_region(slotbase
, SLOTSIZE
, "aha1740")) /* See if in use */
601 if (!aha1740_test_port(slotbase
))
602 goto err_release_region
;
603 aha1740_getconfig(slotbase
,&irq_level
,&irq_type
,&translation
);
604 if ((inb(G2STAT(slotbase
)) &
605 (G2STAT_MBXOUT
|G2STAT_BUSY
)) != G2STAT_MBXOUT
) {
606 /* If the card isn't ready, hard reset it */
607 outb(G2CNTRL_HRST
, G2CNTRL(slotbase
));
608 outb(0, G2CNTRL(slotbase
));
610 printk(KERN_INFO
"Configuring slot %d at IO:%x, IRQ %u (%s)\n",
611 edev
->slot
, slotbase
, irq_level
, irq_type
? "edge" : "level");
612 printk(KERN_INFO
"aha174x: Extended translation %sabled.\n",
613 translation
? "en" : "dis");
614 shpnt
= scsi_host_alloc(&aha1740_template
,
615 sizeof(struct aha1740_hostdata
));
617 goto err_release_region
;
620 shpnt
->io_port
= slotbase
;
621 shpnt
->n_io_port
= SLOTSIZE
;
622 shpnt
->irq
= irq_level
;
623 shpnt
->dma_channel
= 0xff;
624 host
= HOSTDATA(shpnt
);
626 host
->translation
= translation
;
627 host
->ecb_dma_addr
= dma_map_single (&edev
->dev
, host
->ecb
,
630 if (!host
->ecb_dma_addr
) {
631 printk (KERN_ERR
"aha1740_probe: Couldn't map ECB, giving up\n");
632 scsi_unregister (shpnt
);
636 DEB(printk("aha1740_probe: enable interrupt channel %d\n",irq_level
));
637 if (request_irq(irq_level
,aha1740_intr_handle
,irq_type
? 0 : SA_SHIRQ
,
639 printk(KERN_ERR
"aha1740_probe: Unable to allocate IRQ %d.\n",
644 eisa_set_drvdata (edev
, shpnt
);
645 scsi_add_host (shpnt
, dev
); /* XXX handle failure */
646 scsi_scan_host (shpnt
);
650 dma_unmap_single (&edev
->dev
, host
->ecb_dma_addr
,
651 sizeof (host
->ecb
), DMA_BIDIRECTIONAL
);
653 scsi_host_put (shpnt
);
655 release_region(slotbase
, SLOTSIZE
);
660 static __devexit
int aha1740_remove (struct device
*dev
)
662 struct Scsi_Host
*shpnt
= dev
->driver_data
;
663 struct aha1740_hostdata
*host
= HOSTDATA (shpnt
);
665 scsi_remove_host(shpnt
);
667 free_irq (shpnt
->irq
, shpnt
);
668 dma_unmap_single (dev
, host
->ecb_dma_addr
,
669 sizeof (host
->ecb
), DMA_BIDIRECTIONAL
);
670 release_region (shpnt
->io_port
, SLOTSIZE
);
672 scsi_host_put (shpnt
);
677 static struct eisa_device_id aha1740_ids
[] = {
678 { "ADP0000" }, /* 1740 */
679 { "ADP0001" }, /* 1740A */
680 { "ADP0002" }, /* 1742A */
681 { "ADP0400" }, /* 1744 */
685 static struct eisa_driver aha1740_driver
= {
686 .id_table
= aha1740_ids
,
689 .probe
= aha1740_probe
,
690 .remove
= __devexit_p (aha1740_remove
),
694 static __init
int aha1740_init (void)
696 return eisa_driver_register (&aha1740_driver
);
699 static __exit
void aha1740_exit (void)
701 eisa_driver_unregister (&aha1740_driver
);
704 module_init (aha1740_init
);
705 module_exit (aha1740_exit
);
707 MODULE_LICENSE("GPL");