1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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>
53#include <linux/gfp.h>
54
55#include <asm/dma.h>
56#include <asm/system.h>
57#include <asm/io.h>
58
59#include "scsi.h"
60#include <scsi/scsi_host.h>
61#include "aha1740.h"
62
63
64
65
66
67#ifdef DEBUG
68#define DEB(x) x
69#else
70#define DEB(x)
71#endif
72
73struct aha1740_hostdata {
74 struct eisa_device *edev;
75 unsigned int translation;
76 unsigned int last_ecb_used;
77 dma_addr_t ecb_dma_addr;
78 struct ecb ecb[AHA1740_ECBS];
79};
80
81struct aha1740_sg {
82 struct aha1740_chain sg_chain[AHA1740_SCATTER];
83 dma_addr_t sg_dma_addr;
84 dma_addr_t buf_dma_addr;
85};
86
87#define HOSTDATA(host) ((struct aha1740_hostdata *) &host->hostdata)
88
89static inline struct ecb *ecb_dma_to_cpu (struct Scsi_Host *host,
90 dma_addr_t dma)
91{
92 struct aha1740_hostdata *hdata = HOSTDATA (host);
93 dma_addr_t offset;
94
95 offset = dma - hdata->ecb_dma_addr;
96
97 return (struct ecb *)(((char *) hdata->ecb) + (unsigned int) offset);
98}
99
100static inline dma_addr_t ecb_cpu_to_dma (struct Scsi_Host *host, void *cpu)
101{
102 struct aha1740_hostdata *hdata = HOSTDATA (host);
103 dma_addr_t offset;
104
105 offset = (char *) cpu - (char *) hdata->ecb;
106
107 return hdata->ecb_dma_addr + offset;
108}
109
110static int aha1740_proc_info(struct Scsi_Host *shpnt, char *buffer,
111 char **start, off_t offset,
112 int length, int inout)
113{
114 int len;
115 struct aha1740_hostdata *host;
116
117 if (inout)
118 return-ENOSYS;
119
120 host = HOSTDATA(shpnt);
121
122 len = sprintf(buffer, "aha174x at IO:%lx, IRQ %d, SLOT %d.\n"
123 "Extended translation %sabled.\n",
124 shpnt->io_port, shpnt->irq, host->edev->slot,
125 host->translation ? "en" : "dis");
126
127 if (offset > len) {
128 *start = buffer;
129 return 0;
130 }
131
132 *start = buffer + offset;
133 len -= offset;
134 if (len > length)
135 len = length;
136 return len;
137}
138
139static int aha1740_makecode(unchar *sense, unchar *status)
140{
141 struct statusword
142 {
143 ushort don:1,
144 du:1,
145 :1, qf:1,
146 sc:1,
147 dor:1,
148 ch:1,
149 intr:1,
150 asa:1,
151 sns:1,
152 :1, ini:1,
153 me:1,
154 :1, eca:1,
155 :1;
156 } status_word;
157 int retval = DID_OK;
158
159 status_word = * (struct statusword *) status;
160#ifdef DEBUG
161 printk("makecode from %x,%x,%x,%x %x,%x,%x,%x",
162 status[0], status[1], status[2], status[3],
163 sense[0], sense[1], sense[2], sense[3]);
164#endif
165 if (!status_word.don) {
166 if ( (status[1]&0x18) || status_word.sc ) {
167
168
169 switch ( status[2] ) {
170 case 0x12:
171 if ( status_word.dor )
172 retval=DID_ERROR;
173
174
175 case 0x00:
176
177 break;
178 case 0x11:
179 case 0x21:
180 retval=DID_TIME_OUT;
181 break;
182 case 0x0a:
183 retval=DID_BAD_TARGET;
184 break;
185 case 0x04:
186 case 0x05:
187 retval=DID_ABORT;
188
189
190 break;
191 default:
192 retval=DID_ERROR;
193
194
195 }
196 } else {
197
198 if ( status_word.qf ) {
199 retval = DID_TIME_OUT;
200
201
202 printk("aha1740.c: WARNING: AHA1740 queue overflow!\n");
203 } else
204 if ( status[0]&0x60 ) {
205
206 retval = DID_ERROR;
207 }
208
209
210
211 }
212 }
213
214 return status[3] | retval << 16;
215}
216
217static int aha1740_test_port(unsigned int base)
218{
219 if ( inb(PORTADR(base)) & PORTADDR_ENH )
220 return 1;
221
222 printk("aha174x: Board detected, but not in enhanced mode, so disabled it.\n");
223 return 0;
224}
225
226
227static irqreturn_t aha1740_intr_handle(int irq, void *dev_id)
228{
229 struct Scsi_Host *host = (struct Scsi_Host *) dev_id;
230 void (*my_done)(Scsi_Cmnd *);
231 int errstatus, adapstat;
232 int number_serviced;
233 struct ecb *ecbptr;
234 Scsi_Cmnd *SCtmp;
235 unsigned int base;
236 unsigned long flags;
237 int handled = 0;
238 struct aha1740_sg *sgptr;
239 struct eisa_device *edev;
240
241 if (!host)
242 panic("aha1740.c: Irq from unknown host!\n");
243 spin_lock_irqsave(host->host_lock, flags);
244 base = host->io_port;
245 number_serviced = 0;
246 edev = HOSTDATA(host)->edev;
247
248 while(inb(G2STAT(base)) & G2STAT_INTPEND) {
249 handled = 1;
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));
254
255 switch ( adapstat & G2INTST_MASK ) {
256 case G2INTST_CCBRETRY:
257 case G2INTST_CCBERROR:
258 case G2INTST_CCBGOOD:
259
260 outb(G2CNTRL_HRDY,G2CNTRL(base));
261 if (!ecbptr) {
262 printk("Aha1740 null ecbptr in interrupt (%x,%x,%x,%d)\n",
263 inb(G2STAT(base)),adapstat,
264 inb(G2INTST(base)), number_serviced++);
265 continue;
266 }
267 SCtmp = ecbptr->SCpnt;
268 if (!SCtmp) {
269 printk("Aha1740 null SCtmp in interrupt (%x,%x,%x,%d)\n",
270 inb(G2STAT(base)),adapstat,
271 inb(G2INTST(base)), number_serviced++);
272 continue;
273 }
274 sgptr = (struct aha1740_sg *) SCtmp->host_scribble;
275 scsi_dma_unmap(SCtmp);
276
277
278 dma_free_coherent (&edev->dev,
279 sizeof (struct aha1740_sg),
280 SCtmp->host_scribble,
281 sgptr->sg_dma_addr);
282
283
284
285
286
287
288 if ( (adapstat & G2INTST_MASK) == G2INTST_CCBERROR ) {
289 memcpy(SCtmp->sense_buffer, ecbptr->sense,
290 SCSI_SENSE_BUFFERSIZE);
291 errstatus = aha1740_makecode(ecbptr->sense,ecbptr->status);
292 } else
293 errstatus = 0;
294 DEB(if (errstatus)
295 printk("aha1740_intr_handle: returning %6x\n",
296 errstatus));
297 SCtmp->result = errstatus;
298 my_done = ecbptr->done;
299 memset(ecbptr,0,sizeof(struct ecb));
300 if ( my_done )
301 my_done(SCtmp);
302 break;
303
304 case G2INTST_HARDFAIL:
305 printk(KERN_ALERT "aha1740 hardware failure!\n");
306 panic("aha1740.c");
307
308 case G2INTST_ASNEVENT:
309 printk("aha1740 asynchronous event: %02x %02x %02x %02x %02x\n",
310 adapstat,
311 inb(MBOXIN0(base)),
312 inb(MBOXIN1(base)),
313 inb(MBOXIN2(base)),
314 inb(MBOXIN3(base)));
315
316 outb(G2CNTRL_HRDY,G2CNTRL(base));
317 break;
318
319 case G2INTST_CMDGOOD:
320
321 break;
322
323 case G2INTST_CMDERROR:
324
325 break;
326 }
327 number_serviced++;
328 }
329
330 spin_unlock_irqrestore(host->host_lock, flags);
331 return IRQ_RETVAL(handled);
332}
333
334static int aha1740_queuecommand_lck(Scsi_Cmnd * SCpnt, void (*done)(Scsi_Cmnd *))
335{
336 unchar direction;
337 unchar *cmd = (unchar *) SCpnt->cmnd;
338 unchar target = scmd_id(SCpnt);
339 struct aha1740_hostdata *host = HOSTDATA(SCpnt->device->host);
340 unsigned long flags;
341 dma_addr_t sg_dma;
342 struct aha1740_sg *sgptr;
343 int ecbno, nseg;
344 DEB(int i);
345
346 if(*cmd == REQUEST_SENSE) {
347 SCpnt->result = 0;
348 done(SCpnt);
349 return 0;
350 }
351
352#ifdef DEBUG
353 if (*cmd == READ_10 || *cmd == WRITE_10)
354 i = xscsi2int(cmd+2);
355 else if (*cmd == READ_6 || *cmd == WRITE_6)
356 i = scsi2int(cmd+2);
357 else
358 i = -1;
359 printk("aha1740_queuecommand: dev %d cmd %02x pos %d len %d ",
360 target, *cmd, i, bufflen);
361 printk("scsi cmd:");
362 for (i = 0; i < SCpnt->cmd_len; i++) printk("%02x ", cmd[i]);
363 printk("\n");
364#endif
365
366
367 spin_lock_irqsave(SCpnt->device->host->host_lock, flags);
368 ecbno = host->last_ecb_used + 1;
369 if (ecbno >= AHA1740_ECBS)
370 ecbno = 0;
371 do {
372 if (!host->ecb[ecbno].cmdw)
373 break;
374 ecbno++;
375 if (ecbno >= AHA1740_ECBS)
376 ecbno = 0;
377 } while (ecbno != host->last_ecb_used);
378
379 if (host->ecb[ecbno].cmdw)
380 panic("Unable to find empty ecb for aha1740.\n");
381
382 host->ecb[ecbno].cmdw = AHA1740CMD_INIT;
383
384
385 host->last_ecb_used = ecbno;
386 spin_unlock_irqrestore(SCpnt->device->host->host_lock, flags);
387
388#ifdef DEBUG
389 printk("Sending command (%d %x)...", ecbno, done);
390#endif
391
392 host->ecb[ecbno].cdblen = SCpnt->cmd_len;
393
394
395
396 direction = 0;
397 if (*cmd == READ_10 || *cmd == READ_6)
398 direction = 1;
399 else if (*cmd == WRITE_10 || *cmd == WRITE_6)
400 direction = 0;
401
402 memcpy(host->ecb[ecbno].cdb, cmd, SCpnt->cmd_len);
403
404 SCpnt->host_scribble = dma_alloc_coherent (&host->edev->dev,
405 sizeof (struct aha1740_sg),
406 &sg_dma, GFP_ATOMIC);
407 if(SCpnt->host_scribble == NULL) {
408 printk(KERN_WARNING "aha1740: out of memory in queuecommand!\n");
409 return 1;
410 }
411 sgptr = (struct aha1740_sg *) SCpnt->host_scribble;
412 sgptr->sg_dma_addr = sg_dma;
413
414 nseg = scsi_dma_map(SCpnt);
415 BUG_ON(nseg < 0);
416 if (nseg) {
417 struct scatterlist *sg;
418 struct aha1740_chain * cptr;
419 int i;
420 DEB(unsigned char * ptr);
421
422 host->ecb[ecbno].sg = 1;
423
424 cptr = sgptr->sg_chain;
425 scsi_for_each_sg(SCpnt, sg, nseg, i) {
426 cptr[i].datalen = sg_dma_len (sg);
427 cptr[i].dataptr = sg_dma_address (sg);
428 }
429 host->ecb[ecbno].datalen = nseg * sizeof(struct aha1740_chain);
430 host->ecb[ecbno].dataptr = sg_dma;
431#ifdef DEBUG
432 printk("cptr %x: ",cptr);
433 ptr = (unsigned char *) cptr;
434 for(i=0;i<24;i++) printk("%02x ", ptr[i]);
435#endif
436 } else {
437 host->ecb[ecbno].datalen = 0;
438 host->ecb[ecbno].dataptr = 0;
439 }
440 host->ecb[ecbno].lun = SCpnt->device->lun;
441 host->ecb[ecbno].ses = 1;
442 host->ecb[ecbno].dir = direction;
443 host->ecb[ecbno].ars = 1;
444 host->ecb[ecbno].senselen = 12;
445 host->ecb[ecbno].senseptr = ecb_cpu_to_dma (SCpnt->device->host,
446 host->ecb[ecbno].sense);
447 host->ecb[ecbno].statusptr = ecb_cpu_to_dma (SCpnt->device->host,
448 host->ecb[ecbno].status);
449 host->ecb[ecbno].done = done;
450 host->ecb[ecbno].SCpnt = SCpnt;
451#ifdef DEBUG
452 {
453 int i;
454 printk("aha1740_command: sending.. ");
455 for (i = 0; i < sizeof(host->ecb[ecbno]) - 10; i++)
456 printk("%02x ", ((unchar *)&host->ecb[ecbno])[i]);
457 }
458 printk("\n");
459#endif
460 if (done) {
461
462
463
464
465
466
467
468
469
470
471
472
473#define LOOPCNT_WARN 10
474#define LOOPCNT_MAX 1000000
475 int loopcnt;
476 unsigned int base = SCpnt->device->host->io_port;
477 DEB(printk("aha1740[%d] critical section\n",ecbno));
478
479 spin_lock_irqsave(SCpnt->device->host->host_lock, flags);
480 for (loopcnt = 0; ; loopcnt++) {
481 if (inb(G2STAT(base)) & G2STAT_MBXOUT) break;
482 if (loopcnt == LOOPCNT_WARN) {
483 printk("aha1740[%d]_mbxout wait!\n",ecbno);
484 }
485 if (loopcnt == LOOPCNT_MAX)
486 panic("aha1740.c: mbxout busy!\n");
487 }
488 outl (ecb_cpu_to_dma (SCpnt->device->host, host->ecb + ecbno),
489 MBOXOUT0(base));
490 for (loopcnt = 0; ; loopcnt++) {
491 if (! (inb(G2STAT(base)) & G2STAT_BUSY)) break;
492 if (loopcnt == LOOPCNT_WARN) {
493 printk("aha1740[%d]_attn wait!\n",ecbno);
494 }
495 if (loopcnt == LOOPCNT_MAX)
496 panic("aha1740.c: attn wait failed!\n");
497 }
498 outb(ATTN_START | (target & 7), ATTN(base));
499 spin_unlock_irqrestore(SCpnt->device->host->host_lock, flags);
500 DEB(printk("aha1740[%d] request queued.\n",ecbno));
501 } else
502 printk(KERN_ALERT "aha1740_queuecommand: done can't be NULL\n");
503 return 0;
504}
505
506static DEF_SCSI_QCMD(aha1740_queuecommand)
507
508
509
510
511static void aha1740_getconfig(unsigned int base, unsigned int *irq_level,
512 unsigned int *irq_type,
513 unsigned int *translation)
514{
515 static int intab[] = { 9, 10, 11, 12, 0, 14, 15, 0 };
516
517 *irq_level = intab[inb(INTDEF(base)) & 0x7];
518 *irq_type = (inb(INTDEF(base)) & 0x8) >> 3;
519 *translation = inb(RESV1(base)) & 0x1;
520 outb(inb(INTDEF(base)) | 0x10, INTDEF(base));
521}
522
523static int aha1740_biosparam(struct scsi_device *sdev,
524 struct block_device *dev,
525 sector_t capacity, int* ip)
526{
527 int size = capacity;
528 int extended = HOSTDATA(sdev->host)->translation;
529
530 DEB(printk("aha1740_biosparam\n"));
531 if (extended && (ip[2] > 1024)) {
532 ip[0] = 255;
533 ip[1] = 63;
534 ip[2] = size / (255 * 63);
535 } else {
536 ip[0] = 64;
537 ip[1] = 32;
538 ip[2] = size >> 11;
539 }
540 return 0;
541}
542
543static int aha1740_eh_abort_handler (Scsi_Cmnd *dummy)
544{
545
546
547
548
549
550
551
552
553
554 return 0;
555}
556
557static struct scsi_host_template aha1740_template = {
558 .module = THIS_MODULE,
559 .proc_name = "aha1740",
560 .proc_info = aha1740_proc_info,
561 .name = "Adaptec 174x (EISA)",
562 .queuecommand = aha1740_queuecommand,
563 .bios_param = aha1740_biosparam,
564 .can_queue = AHA1740_ECBS,
565 .this_id = 7,
566 .sg_tablesize = AHA1740_SCATTER,
567 .cmd_per_lun = AHA1740_CMDLUN,
568 .use_clustering = ENABLE_CLUSTERING,
569 .eh_abort_handler = aha1740_eh_abort_handler,
570};
571
572static int aha1740_probe (struct device *dev)
573{
574 int slotbase, rc;
575 unsigned int irq_level, irq_type, translation;
576 struct Scsi_Host *shpnt;
577 struct aha1740_hostdata *host;
578 struct eisa_device *edev = to_eisa_device (dev);
579
580 DEB(printk("aha1740_probe: \n"));
581
582 slotbase = edev->base_addr + EISA_VENDOR_ID_OFFSET;
583 if (!request_region(slotbase, SLOTSIZE, "aha1740"))
584 return -EBUSY;
585 if (!aha1740_test_port(slotbase))
586 goto err_release_region;
587 aha1740_getconfig(slotbase,&irq_level,&irq_type,&translation);
588 if ((inb(G2STAT(slotbase)) &
589 (G2STAT_MBXOUT|G2STAT_BUSY)) != G2STAT_MBXOUT) {
590
591 outb(G2CNTRL_HRST, G2CNTRL(slotbase));
592 outb(0, G2CNTRL(slotbase));
593 }
594 printk(KERN_INFO "Configuring slot %d at IO:%x, IRQ %u (%s)\n",
595 edev->slot, slotbase, irq_level, irq_type ? "edge" : "level");
596 printk(KERN_INFO "aha174x: Extended translation %sabled.\n",
597 translation ? "en" : "dis");
598 shpnt = scsi_host_alloc(&aha1740_template,
599 sizeof(struct aha1740_hostdata));
600 if(shpnt == NULL)
601 goto err_release_region;
602
603 shpnt->base = 0;
604 shpnt->io_port = slotbase;
605 shpnt->n_io_port = SLOTSIZE;
606 shpnt->irq = irq_level;
607 shpnt->dma_channel = 0xff;
608 host = HOSTDATA(shpnt);
609 host->edev = edev;
610 host->translation = translation;
611 host->ecb_dma_addr = dma_map_single (&edev->dev, host->ecb,
612 sizeof (host->ecb),
613 DMA_BIDIRECTIONAL);
614 if (!host->ecb_dma_addr) {
615 printk (KERN_ERR "aha1740_probe: Couldn't map ECB, giving up\n");
616 scsi_unregister (shpnt);
617 goto err_host_put;
618 }
619
620 DEB(printk("aha1740_probe: enable interrupt channel %d\n",irq_level));
621 if (request_irq(irq_level,aha1740_intr_handle,irq_type ? 0 : IRQF_SHARED,
622 "aha1740",shpnt)) {
623 printk(KERN_ERR "aha1740_probe: Unable to allocate IRQ %d.\n",
624 irq_level);
625 goto err_unmap;
626 }
627
628 eisa_set_drvdata (edev, shpnt);
629
630 rc = scsi_add_host (shpnt, dev);
631 if (rc)
632 goto err_irq;
633
634 scsi_scan_host (shpnt);
635 return 0;
636
637 err_irq:
638 free_irq(irq_level, shpnt);
639 err_unmap:
640 dma_unmap_single (&edev->dev, host->ecb_dma_addr,
641 sizeof (host->ecb), DMA_BIDIRECTIONAL);
642 err_host_put:
643 scsi_host_put (shpnt);
644 err_release_region:
645 release_region(slotbase, SLOTSIZE);
646
647 return -ENODEV;
648}
649
650static __devexit int aha1740_remove (struct device *dev)
651{
652 struct Scsi_Host *shpnt = dev_get_drvdata(dev);
653 struct aha1740_hostdata *host = HOSTDATA (shpnt);
654
655 scsi_remove_host(shpnt);
656
657 free_irq (shpnt->irq, shpnt);
658 dma_unmap_single (dev, host->ecb_dma_addr,
659 sizeof (host->ecb), DMA_BIDIRECTIONAL);
660 release_region (shpnt->io_port, SLOTSIZE);
661
662 scsi_host_put (shpnt);
663
664 return 0;
665}
666
667static struct eisa_device_id aha1740_ids[] = {
668 { "ADP0000" },
669 { "ADP0001" },
670 { "ADP0002" },
671 { "ADP0400" },
672 { "" }
673};
674MODULE_DEVICE_TABLE(eisa, aha1740_ids);
675
676static struct eisa_driver aha1740_driver = {
677 .id_table = aha1740_ids,
678 .driver = {
679 .name = "aha1740",
680 .probe = aha1740_probe,
681 .remove = __devexit_p (aha1740_remove),
682 },
683};
684
685static __init int aha1740_init (void)
686{
687 return eisa_driver_register (&aha1740_driver);
688}
689
690static __exit void aha1740_exit (void)
691{
692 eisa_driver_unregister (&aha1740_driver);
693}
694
695module_init (aha1740_init);
696module_exit (aha1740_exit);
697
698MODULE_LICENSE("GPL");
699