]>
Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | /************************************************************ |
2 | * * | |
3 | * Linux EATA SCSI PIO driver * | |
4 | * * | |
5 | * based on the CAM document CAM/89-004 rev. 2.0c, * | |
6 | * DPT's driver kit, some internal documents and source, * | |
7 | * and several other Linux scsi drivers and kernel docs. * | |
8 | * * | |
9 | * The driver currently: * | |
10 | * -supports all EATA-PIO boards * | |
11 | * -only supports DASD devices * | |
12 | * * | |
13 | * (c)1993-96 Michael Neuffer, Alfred Arnold * | |
14 | * neuffer@goofy.zdv.uni-mainz.de * | |
15 | * a.arnold@kfa-juelich.de * | |
16 | * * | |
17 | * Updated 2002 by Alan Cox <alan@redhat.com> for Linux * | |
18 | * 2.5.x and the newer locking and error handling * | |
19 | * * | |
20 | * This program is free software; you can redistribute it * | |
21 | * and/or modify it under the terms of the GNU General * | |
22 | * Public License as published by the Free Software * | |
23 | * Foundation; either version 2 of the License, or * | |
24 | * (at your option) any later version. * | |
25 | * * | |
26 | * This program is distributed in the hope that it will be * | |
27 | * useful, but WITHOUT ANY WARRANTY; without even the * | |
28 | * implied warranty of MERCHANTABILITY or FITNESS FOR A * | |
29 | * PARTICULAR PURPOSE. See the GNU General Public License * | |
30 | * for more details. * | |
31 | * * | |
32 | * You should have received a copy of the GNU General * | |
33 | * Public License along with this kernel; if not, write to * | |
34 | * the Free Software Foundation, Inc., 675 Mass Ave, * | |
35 | * Cambridge, MA 02139, USA. * | |
36 | * * | |
37 | * For the avoidance of doubt the "preferred form" of this * | |
38 | * code is one which is in an open non patent encumbered * | |
39 | * format. Where cryptographic key signing forms part of * | |
40 | * the process of creating an executable the information * | |
41 | * including keys needed to generate an equivalently * | |
42 | * functional executable are deemed to be part of the * | |
43 | * source code are deemed to be part of the source code. * | |
44 | * * | |
45 | ************************************************************ | |
46 | * last change: 2002/11/02 OS: Linux 2.5.45 * | |
47 | ************************************************************/ | |
48 | ||
49 | #include <linux/config.h> | |
50 | #include <linux/module.h> | |
51 | #include <linux/kernel.h> | |
52 | #include <linux/sched.h> | |
53 | #include <linux/string.h> | |
54 | #include <linux/ioport.h> | |
55 | #include <linux/slab.h> | |
56 | #include <linux/in.h> | |
57 | #include <linux/pci.h> | |
58 | #include <linux/proc_fs.h> | |
59 | #include <linux/interrupt.h> | |
60 | #include <linux/blkdev.h> | |
61 | #include <linux/spinlock.h> | |
62 | #include <linux/delay.h> | |
63 | ||
64 | #include <asm/io.h> | |
65 | ||
66 | #include <scsi/scsi.h> | |
67 | #include <scsi/scsi_cmnd.h> | |
68 | #include <scsi/scsi_device.h> | |
69 | #include <scsi/scsi_host.h> | |
70 | ||
71 | #include "eata_generic.h" | |
72 | #include "eata_pio.h" | |
73 | ||
74 | ||
75 | static uint ISAbases[MAXISA] = { | |
76 | 0x1F0, 0x170, 0x330, 0x230 | |
77 | }; | |
78 | ||
79 | static uint ISAirqs[MAXISA] = { | |
80 | 14, 12, 15, 11 | |
81 | }; | |
82 | ||
83 | static unsigned char EISAbases[] = { | |
84 | 1, 1, 1, 1, 1, 1, 1, 1, | |
85 | 1, 1, 1, 1, 1, 1, 1, 1 | |
86 | }; | |
87 | ||
88 | static uint registered_HBAs; | |
89 | static struct Scsi_Host *last_HBA; | |
90 | static struct Scsi_Host *first_HBA; | |
91 | static unsigned char reg_IRQ[16]; | |
92 | static unsigned char reg_IRQL[16]; | |
93 | static unsigned long int_counter; | |
94 | static unsigned long queue_counter; | |
95 | ||
96 | static struct scsi_host_template driver_template; | |
97 | ||
98 | /* | |
99 | * eata_proc_info | |
100 | * inout : decides on the direction of the dataflow and the meaning of the | |
101 | * variables | |
102 | * buffer: If inout==FALSE data is being written to it else read from it | |
103 | * *start: If inout==FALSE start of the valid data in the buffer | |
104 | * offset: If inout==FALSE offset from the beginning of the imaginary file | |
105 | * from which we start writing into the buffer | |
106 | * length: If inout==FALSE max number of bytes to be written into the buffer | |
107 | * else number of bytes in the buffer | |
108 | */ | |
109 | static int eata_pio_proc_info(struct Scsi_Host *shost, char *buffer, char **start, off_t offset, | |
110 | int length, int rw) | |
111 | { | |
112 | static u8 buff[512]; | |
113 | int size, len = 0; | |
114 | off_t begin = 0, pos = 0; | |
115 | ||
116 | if (rw) | |
117 | return -ENOSYS; | |
118 | if (offset == 0) | |
119 | memset(buff, 0, sizeof(buff)); | |
120 | ||
121 | size = sprintf(buffer+len, "EATA (Extended Attachment) PIO driver version: " | |
122 | "%d.%d%s\n",VER_MAJOR, VER_MINOR, VER_SUB); | |
123 | len += size; pos = begin + len; | |
124 | size = sprintf(buffer + len, "queued commands: %10ld\n" | |
125 | "processed interrupts:%10ld\n", queue_counter, int_counter); | |
126 | len += size; pos = begin + len; | |
127 | ||
128 | size = sprintf(buffer + len, "\nscsi%-2d: HBA %.10s\n", | |
129 | shost->host_no, SD(shost)->name); | |
130 | len += size; | |
131 | pos = begin + len; | |
132 | size = sprintf(buffer + len, "Firmware revision: v%s\n", | |
133 | SD(shost)->revision); | |
134 | len += size; | |
135 | pos = begin + len; | |
136 | size = sprintf(buffer + len, "IO: PIO\n"); | |
137 | len += size; | |
138 | pos = begin + len; | |
139 | size = sprintf(buffer + len, "Base IO : %#.4x\n", (u32) shost->base); | |
140 | len += size; | |
141 | pos = begin + len; | |
142 | size = sprintf(buffer + len, "Host Bus: %s\n", | |
143 | (SD(shost)->bustype == 'P')?"PCI ": | |
144 | (SD(shost)->bustype == 'E')?"EISA":"ISA "); | |
145 | ||
146 | len += size; | |
147 | pos = begin + len; | |
148 | ||
149 | if (pos < offset) { | |
150 | len = 0; | |
151 | begin = pos; | |
152 | } | |
153 | if (pos > offset + length) | |
154 | goto stop_output; | |
155 | ||
156 | stop_output: | |
157 | DBG(DBG_PROC, printk("2pos: %ld offset: %ld len: %d\n", pos, offset, len)); | |
158 | *start=buffer+(offset-begin); /* Start of wanted data */ | |
159 | len-=(offset-begin); /* Start slop */ | |
160 | if(len>length) | |
161 | len = length; /* Ending slop */ | |
162 | DBG(DBG_PROC, printk("3pos: %ld offset: %ld len: %d\n", pos, offset, len)); | |
163 | ||
164 | return (len); | |
165 | } | |
166 | ||
167 | static int eata_pio_release(struct Scsi_Host *sh) | |
168 | { | |
169 | if (sh->irq && reg_IRQ[sh->irq] == 1) | |
170 | free_irq(sh->irq, NULL); | |
171 | else | |
172 | reg_IRQ[sh->irq]--; | |
173 | if (SD(sh)->channel == 0) { | |
174 | if (sh->io_port && sh->n_io_port) | |
175 | release_region(sh->io_port, sh->n_io_port); | |
176 | } | |
177 | return 1; | |
178 | } | |
179 | ||
180 | static void IncStat(struct scsi_pointer *SCp, uint Increment) | |
181 | { | |
182 | SCp->ptr += Increment; | |
183 | if ((SCp->this_residual -= Increment) == 0) { | |
184 | if ((--SCp->buffers_residual) == 0) | |
185 | SCp->Status = 0; | |
186 | else { | |
187 | SCp->buffer++; | |
188 | SCp->ptr = page_address(SCp->buffer->page) + SCp->buffer->offset; | |
189 | SCp->this_residual = SCp->buffer->length; | |
190 | } | |
191 | } | |
192 | } | |
193 | ||
194 | static void eata_pio_int_handler(int irq, void *dev_id, struct pt_regs *regs); | |
195 | ||
196 | static irqreturn_t do_eata_pio_int_handler(int irq, void *dev_id, | |
197 | struct pt_regs *regs) | |
198 | { | |
199 | unsigned long flags; | |
200 | struct Scsi_Host *dev = dev_id; | |
201 | ||
202 | spin_lock_irqsave(dev->host_lock, flags); | |
203 | eata_pio_int_handler(irq, dev_id, regs); | |
204 | spin_unlock_irqrestore(dev->host_lock, flags); | |
205 | return IRQ_HANDLED; | |
206 | } | |
207 | ||
208 | static void eata_pio_int_handler(int irq, void *dev_id, struct pt_regs *regs) | |
209 | { | |
210 | uint eata_stat = 0xfffff; | |
211 | struct scsi_cmnd *cmd; | |
212 | hostdata *hd; | |
213 | struct eata_ccb *cp; | |
214 | uint base; | |
215 | uint x, z; | |
216 | struct Scsi_Host *sh; | |
217 | unsigned short zwickel = 0; | |
218 | unsigned char stat, odd; | |
219 | ||
220 | for (x = 1, sh = first_HBA; x <= registered_HBAs; x++, sh = SD(sh)->prev) | |
221 | { | |
222 | if (sh->irq != irq) | |
223 | continue; | |
224 | if (inb((uint) sh->base + HA_RSTATUS) & HA_SBUSY) | |
225 | continue; | |
226 | ||
227 | int_counter++; | |
228 | ||
229 | hd = SD(sh); | |
230 | ||
231 | cp = &hd->ccb[0]; | |
232 | cmd = cp->cmd; | |
233 | base = (uint) cmd->device->host->base; | |
234 | ||
235 | do { | |
236 | stat = inb(base + HA_RSTATUS); | |
237 | if (stat & HA_SDRQ) { | |
238 | if (cp->DataIn) { | |
239 | z = 256; | |
240 | odd = 0; | |
241 | while ((cmd->SCp.Status) && ((z > 0) || (odd))) { | |
242 | if (odd) { | |
243 | *(cmd->SCp.ptr) = zwickel >> 8; | |
244 | IncStat(&cmd->SCp, 1); | |
245 | odd = 0; | |
246 | } | |
247 | x = min_t(unsigned int, z, cmd->SCp.this_residual / 2); | |
248 | insw(base + HA_RDATA, cmd->SCp.ptr, x); | |
249 | z -= x; | |
250 | IncStat(&cmd->SCp, 2 * x); | |
251 | if ((z > 0) && (cmd->SCp.this_residual == 1)) { | |
252 | zwickel = inw(base + HA_RDATA); | |
253 | *(cmd->SCp.ptr) = zwickel & 0xff; | |
254 | IncStat(&cmd->SCp, 1); | |
255 | z--; | |
256 | odd = 1; | |
257 | } | |
258 | } | |
259 | while (z > 0) { | |
260 | zwickel = inw(base + HA_RDATA); | |
261 | z--; | |
262 | } | |
263 | } else { /* cp->DataOut */ | |
264 | ||
265 | odd = 0; | |
266 | z = 256; | |
267 | while ((cmd->SCp.Status) && ((z > 0) || (odd))) { | |
268 | if (odd) { | |
269 | zwickel += *(cmd->SCp.ptr) << 8; | |
270 | IncStat(&cmd->SCp, 1); | |
271 | outw(zwickel, base + HA_RDATA); | |
272 | z--; | |
273 | odd = 0; | |
274 | } | |
275 | x = min_t(unsigned int, z, cmd->SCp.this_residual / 2); | |
276 | outsw(base + HA_RDATA, cmd->SCp.ptr, x); | |
277 | z -= x; | |
278 | IncStat(&cmd->SCp, 2 * x); | |
279 | if ((z > 0) && (cmd->SCp.this_residual == 1)) { | |
280 | zwickel = *(cmd->SCp.ptr); | |
281 | zwickel &= 0xff; | |
282 | IncStat(&cmd->SCp, 1); | |
283 | odd = 1; | |
284 | } | |
285 | } | |
286 | while (z > 0 || odd) { | |
287 | outw(zwickel, base + HA_RDATA); | |
288 | z--; | |
289 | odd = 0; | |
290 | } | |
291 | } | |
292 | } | |
293 | } | |
294 | while ((stat & HA_SDRQ) || ((stat & HA_SMORE) && hd->moresupport)); | |
295 | ||
296 | /* terminate handler if HBA goes busy again, i.e. transfers | |
297 | * more data */ | |
298 | ||
299 | if (stat & HA_SBUSY) | |
300 | break; | |
301 | ||
302 | /* OK, this is quite stupid, but I haven't found any correct | |
303 | * way to get HBA&SCSI status so far */ | |
304 | ||
305 | if (!(inb(base + HA_RSTATUS) & HA_SERROR)) { | |
306 | cmd->result = (DID_OK << 16); | |
307 | hd->devflags |= (1 << cp->cp_id); | |
308 | } else if (hd->devflags & 1 << cp->cp_id) | |
309 | cmd->result = (DID_OK << 16) + 0x02; | |
310 | else | |
311 | cmd->result = (DID_NO_CONNECT << 16); | |
312 | ||
313 | if (cp->status == LOCKED) { | |
314 | cp->status = FREE; | |
315 | eata_stat = inb(base + HA_RSTATUS); | |
316 | printk(KERN_CRIT "eata_pio: int_handler, freeing locked " "queueslot\n"); | |
317 | return; | |
318 | } | |
319 | #if DBG_INTR2 | |
320 | if (stat != 0x50) | |
321 | printk(KERN_DEBUG "stat: %#.2x, result: %#.8x\n", stat, cmd->result); | |
322 | #endif | |
323 | ||
324 | cp->status = FREE; /* now we can release the slot */ | |
325 | ||
326 | cmd->scsi_done(cmd); | |
327 | } | |
328 | ||
329 | return; | |
330 | } | |
331 | ||
332 | static inline uint eata_pio_send_command(uint base, unsigned char command) | |
333 | { | |
334 | uint loop = HZ / 2; | |
335 | ||
336 | while (inb(base + HA_RSTATUS) & HA_SBUSY) | |
337 | if (--loop == 0) | |
338 | return 1; | |
339 | ||
340 | /* Enable interrupts for HBA. It is not the best way to do it at this | |
341 | * place, but I hope that it doesn't interfere with the IDE driver | |
342 | * initialization this way */ | |
343 | ||
344 | outb(HA_CTRL_8HEADS, base + HA_CTRLREG); | |
345 | ||
346 | outb(command, base + HA_WCOMMAND); | |
347 | return 0; | |
348 | } | |
349 | ||
350 | static int eata_pio_queue(struct scsi_cmnd *cmd, | |
351 | void (*done)(struct scsi_cmnd *)) | |
352 | { | |
353 | uint x, y; | |
354 | uint base; | |
355 | ||
356 | hostdata *hd; | |
357 | struct Scsi_Host *sh; | |
358 | struct eata_ccb *cp; | |
359 | ||
360 | queue_counter++; | |
361 | ||
362 | hd = HD(cmd); | |
363 | sh = cmd->device->host; | |
364 | base = (uint) sh->base; | |
365 | ||
366 | /* use only slot 0, as 2001 can handle only one cmd at a time */ | |
367 | ||
368 | y = x = 0; | |
369 | ||
370 | if (hd->ccb[y].status != FREE) { | |
371 | ||
372 | DBG(DBG_QUEUE, printk(KERN_EMERG "can_queue %d, x %d, y %d\n", sh->can_queue, x, y)); | |
373 | #if DEBUG_EATA | |
374 | panic(KERN_EMERG "eata_pio: run out of queue slots cmdno:%ld " "intrno: %ld\n", queue_counter, int_counter); | |
375 | #else | |
376 | panic(KERN_EMERG "eata_pio: run out of queue slots....\n"); | |
377 | #endif | |
378 | } | |
379 | ||
380 | cp = &hd->ccb[y]; | |
381 | ||
382 | memset(cp, 0, sizeof(struct eata_ccb)); | |
383 | memset(cmd->sense_buffer, 0, sizeof(cmd->sense_buffer)); | |
384 | ||
385 | cp->status = USED; /* claim free slot */ | |
386 | ||
387 | DBG(DBG_QUEUE, printk(KERN_DEBUG "eata_pio_queue pid %ld, target: %x, lun:" " %x, y %d\n", cmd->pid, cmd->device->id, cmd->device->lun, y)); | |
388 | ||
389 | cmd->scsi_done = (void *) done; | |
390 | ||
391 | if (cmd->sc_data_direction == DMA_TO_DEVICE) | |
392 | cp->DataOut = 1; /* Output mode */ | |
393 | else | |
394 | cp->DataIn = 0; /* Input mode */ | |
395 | ||
396 | cp->Interpret = (cmd->device->id == hd->hostid); | |
397 | cp->cp_datalen = htonl((unsigned long) cmd->request_bufflen); | |
398 | cp->Auto_Req_Sen = 0; | |
399 | cp->cp_reqDMA = htonl(0); | |
400 | cp->reqlen = 0; | |
401 | ||
402 | cp->cp_id = cmd->device->id; | |
403 | cp->cp_lun = cmd->device->lun; | |
404 | cp->cp_dispri = 0; | |
405 | cp->cp_identify = 1; | |
406 | memcpy(cp->cp_cdb, cmd->cmnd, COMMAND_SIZE(*cmd->cmnd)); | |
407 | ||
408 | cp->cp_statDMA = htonl(0); | |
409 | ||
410 | cp->cp_viraddr = cp; | |
411 | cp->cmd = cmd; | |
412 | cmd->host_scribble = (char *) &hd->ccb[y]; | |
413 | ||
414 | if (cmd->use_sg == 0) { | |
415 | cmd->SCp.buffers_residual = 1; | |
416 | cmd->SCp.ptr = cmd->request_buffer; | |
417 | cmd->SCp.this_residual = cmd->request_bufflen; | |
418 | cmd->SCp.buffer = NULL; | |
419 | } else { | |
420 | cmd->SCp.buffer = cmd->request_buffer; | |
421 | cmd->SCp.buffers_residual = cmd->use_sg; | |
422 | cmd->SCp.ptr = page_address(cmd->SCp.buffer->page) + cmd->SCp.buffer->offset; | |
423 | cmd->SCp.this_residual = cmd->SCp.buffer->length; | |
424 | } | |
425 | cmd->SCp.Status = (cmd->SCp.this_residual != 0); /* TRUE as long as bytes | |
426 | * are to transfer */ | |
427 | ||
428 | if (eata_pio_send_command(base, EATA_CMD_PIO_SEND_CP)) { | |
429 | cmd->result = DID_BUS_BUSY << 16; | |
430 | printk(KERN_NOTICE "eata_pio_queue target %d, pid %ld, HBA busy, " "returning DID_BUS_BUSY, done.\n", cmd->device->id, cmd->pid); | |
431 | done(cmd); | |
432 | cp->status = FREE; | |
433 | return (0); | |
434 | } | |
435 | /* FIXME: timeout */ | |
436 | while (!(inb(base + HA_RSTATUS) & HA_SDRQ)) | |
437 | cpu_relax(); | |
438 | outsw(base + HA_RDATA, cp, hd->cplen); | |
439 | outb(EATA_CMD_PIO_TRUNC, base + HA_WCOMMAND); | |
440 | for (x = 0; x < hd->cppadlen; x++) | |
441 | outw(0, base + HA_RDATA); | |
442 | ||
443 | DBG(DBG_QUEUE, printk(KERN_DEBUG "Queued base %#.4lx pid: %ld target: %x " "lun: %x slot %d irq %d\n", (long) sh->base, cmd->pid, cmd->device->id, cmd->device->lun, y, sh->irq)); | |
444 | ||
445 | return (0); | |
446 | } | |
447 | ||
448 | static int eata_pio_abort(struct scsi_cmnd *cmd) | |
449 | { | |
450 | uint loop = HZ; | |
451 | ||
452 | DBG(DBG_ABNORM, printk(KERN_WARNING "eata_pio_abort called pid: %ld " "target: %x lun: %x reason %x\n", cmd->pid, cmd->device->id, cmd->device->lun, cmd->abort_reason)); | |
453 | ||
454 | ||
455 | while (inb(cmd->device->host->base + HA_RAUXSTAT) & HA_ABUSY) | |
456 | if (--loop == 0) { | |
457 | printk(KERN_WARNING "eata_pio: abort, timeout error.\n"); | |
458 | return FAILED; | |
459 | } | |
460 | if (CD(cmd)->status == FREE) { | |
461 | DBG(DBG_ABNORM, printk(KERN_WARNING "Returning: SCSI_ABORT_NOT_RUNNING\n")); | |
462 | return FAILED; | |
463 | } | |
464 | if (CD(cmd)->status == USED) { | |
465 | DBG(DBG_ABNORM, printk(KERN_WARNING "Returning: SCSI_ABORT_BUSY\n")); | |
466 | /* We want to sleep a bit more here */ | |
467 | return FAILED; /* SNOOZE */ | |
468 | } | |
469 | if (CD(cmd)->status == RESET) { | |
470 | printk(KERN_WARNING "eata_pio: abort, command reset error.\n"); | |
471 | return FAILED; | |
472 | } | |
473 | if (CD(cmd)->status == LOCKED) { | |
474 | DBG(DBG_ABNORM, printk(KERN_WARNING "eata_pio: abort, queue slot " "locked.\n")); | |
475 | return FAILED; | |
476 | } | |
477 | panic("eata_pio: abort: invalid slot status\n"); | |
478 | } | |
479 | ||
480 | static int eata_pio_host_reset(struct scsi_cmnd *cmd) | |
481 | { | |
482 | uint x, limit = 0; | |
483 | unsigned char success = 0; | |
484 | struct scsi_cmnd *sp; | |
485 | struct Scsi_Host *host = cmd->device->host; | |
486 | ||
487 | DBG(DBG_ABNORM, printk(KERN_WARNING "eata_pio_reset called pid:%ld target:" " %x lun: %x reason %x\n", cmd->pid, cmd->device->id, cmd->device->lun, cmd->abort_reason)); | |
488 | ||
489 | if (HD(cmd)->state == RESET) { | |
490 | printk(KERN_WARNING "eata_pio_reset: exit, already in reset.\n"); | |
491 | return FAILED; | |
492 | } | |
493 | ||
494 | /* force all slots to be free */ | |
495 | ||
496 | for (x = 0; x < cmd->device->host->can_queue; x++) { | |
497 | ||
498 | if (HD(cmd)->ccb[x].status == FREE) | |
499 | continue; | |
500 | ||
501 | sp = HD(cmd)->ccb[x].cmd; | |
502 | HD(cmd)->ccb[x].status = RESET; | |
503 | printk(KERN_WARNING "eata_pio_reset: slot %d in reset, pid %ld.\n", x, sp->pid); | |
504 | ||
505 | if (sp == NULL) | |
506 | panic("eata_pio_reset: slot %d, sp==NULL.\n", x); | |
507 | } | |
508 | ||
509 | /* hard reset the HBA */ | |
510 | outb(EATA_CMD_RESET, (uint) cmd->device->host->base + HA_WCOMMAND); | |
511 | ||
512 | DBG(DBG_ABNORM, printk(KERN_WARNING "eata_pio_reset: board reset done.\n")); | |
513 | HD(cmd)->state = RESET; | |
514 | ||
515 | spin_unlock_irq(host->host_lock); | |
516 | msleep(3000); | |
517 | spin_lock_irq(host->host_lock); | |
518 | ||
519 | DBG(DBG_ABNORM, printk(KERN_WARNING "eata_pio_reset: interrupts disabled, " "loops %d.\n", limit)); | |
520 | ||
521 | for (x = 0; x < cmd->device->host->can_queue; x++) { | |
522 | ||
523 | /* Skip slots already set free by interrupt */ | |
524 | if (HD(cmd)->ccb[x].status != RESET) | |
525 | continue; | |
526 | ||
527 | sp = HD(cmd)->ccb[x].cmd; | |
528 | sp->result = DID_RESET << 16; | |
529 | ||
530 | /* This mailbox is terminated */ | |
531 | printk(KERN_WARNING "eata_pio_reset: reset ccb %d.\n", x); | |
532 | HD(cmd)->ccb[x].status = FREE; | |
533 | ||
534 | sp->scsi_done(sp); | |
535 | } | |
536 | ||
537 | HD(cmd)->state = 0; | |
538 | ||
539 | if (success) { /* hmmm... */ | |
540 | DBG(DBG_ABNORM, printk(KERN_WARNING "eata_pio_reset: exit, success.\n")); | |
541 | return SUCCESS; | |
542 | } else { | |
543 | DBG(DBG_ABNORM, printk(KERN_WARNING "eata_pio_reset: exit, wakeup.\n")); | |
544 | return FAILED; | |
545 | } | |
546 | } | |
547 | ||
548 | static char *get_pio_board_data(unsigned long base, uint irq, uint id, unsigned long cplen, unsigned short cppadlen) | |
549 | { | |
550 | struct eata_ccb cp; | |
551 | static char buff[256]; | |
552 | int z; | |
553 | ||
554 | memset(&cp, 0, sizeof(struct eata_ccb)); | |
555 | memset(buff, 0, sizeof(buff)); | |
556 | ||
557 | cp.DataIn = 1; | |
558 | cp.Interpret = 1; /* Interpret command */ | |
559 | ||
560 | cp.cp_datalen = htonl(254); | |
561 | cp.cp_dataDMA = htonl(0); | |
562 | ||
563 | cp.cp_id = id; | |
564 | cp.cp_lun = 0; | |
565 | ||
566 | cp.cp_cdb[0] = INQUIRY; | |
567 | cp.cp_cdb[1] = 0; | |
568 | cp.cp_cdb[2] = 0; | |
569 | cp.cp_cdb[3] = 0; | |
570 | cp.cp_cdb[4] = 254; | |
571 | cp.cp_cdb[5] = 0; | |
572 | ||
573 | if (eata_pio_send_command((uint) base, EATA_CMD_PIO_SEND_CP)) | |
574 | return (NULL); | |
575 | while (!(inb(base + HA_RSTATUS) & HA_SDRQ)); | |
576 | outsw(base + HA_RDATA, &cp, cplen); | |
577 | outb(EATA_CMD_PIO_TRUNC, base + HA_WCOMMAND); | |
578 | for (z = 0; z < cppadlen; z++) | |
579 | outw(0, base + HA_RDATA); | |
580 | ||
581 | while (inb(base + HA_RSTATUS) & HA_SBUSY); | |
582 | if (inb(base + HA_RSTATUS) & HA_SERROR) | |
583 | return (NULL); | |
584 | else if (!(inb(base + HA_RSTATUS) & HA_SDRQ)) | |
585 | return (NULL); | |
586 | else { | |
587 | insw(base + HA_RDATA, &buff, 127); | |
588 | while (inb(base + HA_RSTATUS) & HA_SDRQ) | |
589 | inw(base + HA_RDATA); | |
590 | return (buff); | |
591 | } | |
592 | } | |
593 | ||
594 | static int get_pio_conf_PIO(u32 base, struct get_conf *buf) | |
595 | { | |
596 | unsigned long loop = HZ / 2; | |
597 | int z; | |
598 | unsigned short *p; | |
599 | ||
600 | if (!request_region(base, 9, "eata_pio")) | |
601 | return 0; | |
602 | ||
603 | memset(buf, 0, sizeof(struct get_conf)); | |
604 | ||
605 | while (inb(base + HA_RSTATUS) & HA_SBUSY) | |
606 | if (--loop == 0) | |
607 | goto fail; | |
608 | ||
609 | DBG(DBG_PIO && DBG_PROBE, printk(KERN_DEBUG "Issuing PIO READ CONFIG to HBA at %#x\n", base)); | |
610 | eata_pio_send_command(base, EATA_CMD_PIO_READ_CONFIG); | |
611 | ||
612 | loop = HZ / 2; | |
613 | for (p = (unsigned short *) buf; (long) p <= ((long) buf + (sizeof(struct get_conf) / 2)); p++) { | |
614 | while (!(inb(base + HA_RSTATUS) & HA_SDRQ)) | |
615 | if (--loop == 0) | |
616 | goto fail; | |
617 | ||
618 | loop = HZ / 2; | |
619 | *p = inw(base + HA_RDATA); | |
620 | } | |
621 | if (inb(base + HA_RSTATUS) & HA_SERROR) { | |
622 | DBG(DBG_PROBE, printk("eata_dma: get_conf_PIO, error during " | |
623 | "transfer for HBA at %x\n", base)); | |
624 | goto fail; | |
625 | } | |
626 | ||
627 | if (htonl(EATA_SIGNATURE) != buf->signature) | |
628 | goto fail; | |
629 | ||
630 | DBG(DBG_PIO && DBG_PROBE, printk(KERN_NOTICE "EATA Controller found " | |
631 | "at %#4x EATA Level: %x\n", | |
632 | base, (uint) (buf->version))); | |
633 | ||
634 | while (inb(base + HA_RSTATUS) & HA_SDRQ) | |
635 | inw(base + HA_RDATA); | |
636 | ||
637 | if (!ALLOW_DMA_BOARDS) { | |
638 | for (z = 0; z < MAXISA; z++) | |
639 | if (base == ISAbases[z]) { | |
640 | buf->IRQ = ISAirqs[z]; | |
641 | break; | |
642 | } | |
643 | } | |
644 | ||
645 | return 1; | |
646 | ||
647 | fail: | |
648 | release_region(base, 9); | |
649 | return 0; | |
650 | } | |
651 | ||
652 | static void print_pio_config(struct get_conf *gc) | |
653 | { | |
654 | printk("Please check values: (read config data)\n"); | |
655 | printk("LEN: %d ver:%d OCS:%d TAR:%d TRNXFR:%d MORES:%d\n", (uint) ntohl(gc->len), gc->version, gc->OCS_enabled, gc->TAR_support, gc->TRNXFR, gc->MORE_support); | |
656 | printk("HAAV:%d SCSIID0:%d ID1:%d ID2:%d QUEUE:%d SG:%d SEC:%d\n", gc->HAA_valid, gc->scsi_id[3], gc->scsi_id[2], gc->scsi_id[1], ntohs(gc->queuesiz), ntohs(gc->SGsiz), gc->SECOND); | |
657 | printk("IRQ:%d IRQT:%d FORCADR:%d MCH:%d RIDQ:%d\n", gc->IRQ, gc->IRQ_TR, gc->FORCADR, gc->MAX_CHAN, gc->ID_qest); | |
658 | } | |
659 | ||
660 | static uint print_selftest(uint base) | |
661 | { | |
662 | unsigned char buffer[512]; | |
663 | #ifdef VERBOSE_SETUP | |
664 | int z; | |
665 | #endif | |
666 | ||
667 | printk("eata_pio: executing controller self test & setup...\n"); | |
668 | while (inb(base + HA_RSTATUS) & HA_SBUSY); | |
669 | outb(EATA_CMD_PIO_SETUPTEST, base + HA_WCOMMAND); | |
670 | do { | |
671 | while (inb(base + HA_RSTATUS) & HA_SBUSY) | |
672 | /* nothing */ ; | |
673 | if (inb(base + HA_RSTATUS) & HA_SDRQ) { | |
674 | insw(base + HA_RDATA, &buffer, 256); | |
675 | #ifdef VERBOSE_SETUP | |
676 | /* no beeps please... */ | |
677 | for (z = 0; z < 511 && buffer[z]; z++) | |
678 | if (buffer[z] != 7) | |
679 | printk("%c", buffer[z]); | |
680 | #endif | |
681 | } | |
682 | } while (inb(base + HA_RSTATUS) & (HA_SBUSY | HA_SDRQ)); | |
683 | ||
684 | return (!(inb(base + HA_RSTATUS) & HA_SERROR)); | |
685 | } | |
686 | ||
687 | static int register_pio_HBA(long base, struct get_conf *gc) | |
688 | { | |
689 | unsigned long size = 0; | |
690 | char *buff; | |
691 | unsigned long cplen; | |
692 | unsigned short cppadlen; | |
693 | struct Scsi_Host *sh; | |
694 | hostdata *hd; | |
695 | ||
696 | DBG(DBG_REGISTER, print_pio_config(gc)); | |
697 | ||
698 | if (gc->DMA_support) { | |
699 | printk("HBA at %#.4lx supports DMA. Please use EATA-DMA driver.\n", base); | |
700 | if (!ALLOW_DMA_BOARDS) | |
701 | return 0; | |
702 | } | |
703 | ||
704 | if ((buff = get_pio_board_data((uint) base, gc->IRQ, gc->scsi_id[3], cplen = (htonl(gc->cplen) + 1) / 2, cppadlen = (htons(gc->cppadlen) + 1) / 2)) == NULL) { | |
705 | printk("HBA at %#lx didn't react on INQUIRY. Sorry.\n", (unsigned long) base); | |
706 | return 0; | |
707 | } | |
708 | ||
709 | if (!print_selftest(base) && !ALLOW_DMA_BOARDS) { | |
710 | printk("HBA at %#lx failed while performing self test & setup.\n", (unsigned long) base); | |
711 | return 0; | |
712 | } | |
713 | ||
714 | size = sizeof(hostdata) + (sizeof(struct eata_ccb) * ntohs(gc->queuesiz)); | |
715 | ||
716 | sh = scsi_register(&driver_template, size); | |
717 | if (sh == NULL) | |
718 | return 0; | |
719 | ||
720 | if (!reg_IRQ[gc->IRQ]) { /* Interrupt already registered ? */ | |
721 | if (!request_irq(gc->IRQ, do_eata_pio_int_handler, SA_INTERRUPT, "EATA-PIO", sh)) { | |
722 | reg_IRQ[gc->IRQ]++; | |
723 | if (!gc->IRQ_TR) | |
724 | reg_IRQL[gc->IRQ] = 1; /* IRQ is edge triggered */ | |
725 | } else { | |
726 | printk("Couldn't allocate IRQ %d, Sorry.\n", gc->IRQ); | |
727 | return 0; | |
728 | } | |
729 | } else { /* More than one HBA on this IRQ */ | |
730 | if (reg_IRQL[gc->IRQ]) { | |
731 | printk("Can't support more than one HBA on this IRQ,\n" " if the IRQ is edge triggered. Sorry.\n"); | |
732 | return 0; | |
733 | } else | |
734 | reg_IRQ[gc->IRQ]++; | |
735 | } | |
736 | ||
737 | hd = SD(sh); | |
738 | ||
739 | memset(hd->ccb, 0, (sizeof(struct eata_ccb) * ntohs(gc->queuesiz))); | |
740 | memset(hd->reads, 0, sizeof(unsigned long) * 26); | |
741 | ||
742 | strlcpy(SD(sh)->vendor, &buff[8], sizeof(SD(sh)->vendor)); | |
743 | strlcpy(SD(sh)->name, &buff[16], sizeof(SD(sh)->name)); | |
744 | SD(sh)->revision[0] = buff[32]; | |
745 | SD(sh)->revision[1] = buff[33]; | |
746 | SD(sh)->revision[2] = buff[34]; | |
747 | SD(sh)->revision[3] = '.'; | |
748 | SD(sh)->revision[4] = buff[35]; | |
749 | SD(sh)->revision[5] = 0; | |
750 | ||
751 | switch (ntohl(gc->len)) { | |
752 | case 0x1c: | |
753 | SD(sh)->EATA_revision = 'a'; | |
754 | break; | |
755 | case 0x1e: | |
756 | SD(sh)->EATA_revision = 'b'; | |
757 | break; | |
758 | case 0x22: | |
759 | SD(sh)->EATA_revision = 'c'; | |
760 | break; | |
761 | case 0x24: | |
762 | SD(sh)->EATA_revision = 'z'; | |
763 | default: | |
764 | SD(sh)->EATA_revision = '?'; | |
765 | } | |
766 | ||
767 | if (ntohl(gc->len) >= 0x22) { | |
768 | if (gc->is_PCI) | |
769 | hd->bustype = IS_PCI; | |
770 | else if (gc->is_EISA) | |
771 | hd->bustype = IS_EISA; | |
772 | else | |
773 | hd->bustype = IS_ISA; | |
774 | } else { | |
775 | if (buff[21] == '4') | |
776 | hd->bustype = IS_PCI; | |
777 | else if (buff[21] == '2') | |
778 | hd->bustype = IS_EISA; | |
779 | else | |
780 | hd->bustype = IS_ISA; | |
781 | } | |
782 | ||
783 | SD(sh)->cplen = cplen; | |
784 | SD(sh)->cppadlen = cppadlen; | |
785 | SD(sh)->hostid = gc->scsi_id[3]; | |
786 | SD(sh)->devflags = 1 << gc->scsi_id[3]; | |
787 | SD(sh)->moresupport = gc->MORE_support; | |
788 | sh->unique_id = base; | |
789 | sh->base = base; | |
790 | sh->io_port = base; | |
791 | sh->n_io_port = 9; | |
792 | sh->irq = gc->IRQ; | |
793 | sh->dma_channel = PIO; | |
794 | sh->this_id = gc->scsi_id[3]; | |
795 | sh->can_queue = 1; | |
796 | sh->cmd_per_lun = 1; | |
797 | sh->sg_tablesize = SG_ALL; | |
798 | ||
799 | hd->channel = 0; | |
800 | ||
801 | sh->max_id = 8; | |
802 | sh->max_lun = 8; | |
803 | ||
804 | if (gc->SECOND) | |
805 | hd->primary = 0; | |
806 | else | |
807 | hd->primary = 1; | |
808 | ||
809 | sh->unchecked_isa_dma = 0; /* We can only do PIO */ | |
810 | ||
811 | hd->next = NULL; /* build a linked list of all HBAs */ | |
812 | hd->prev = last_HBA; | |
813 | if (hd->prev != NULL) | |
814 | SD(hd->prev)->next = sh; | |
815 | last_HBA = sh; | |
816 | if (first_HBA == NULL) | |
817 | first_HBA = sh; | |
818 | registered_HBAs++; | |
819 | return (1); | |
820 | } | |
821 | ||
822 | static void find_pio_ISA(struct get_conf *buf) | |
823 | { | |
824 | int i; | |
825 | ||
826 | for (i = 0; i < MAXISA; i++) { | |
827 | if (!ISAbases[i]) | |
828 | continue; | |
829 | if (!get_pio_conf_PIO(ISAbases[i], buf)) | |
830 | continue; | |
831 | if (!register_pio_HBA(ISAbases[i], buf)) | |
832 | release_region(ISAbases[i], 9); | |
833 | else | |
834 | ISAbases[i] = 0; | |
835 | } | |
836 | return; | |
837 | } | |
838 | ||
839 | static void find_pio_EISA(struct get_conf *buf) | |
840 | { | |
841 | u32 base; | |
842 | int i; | |
843 | ||
844 | #ifdef CHECKPAL | |
845 | u8 pal1, pal2, pal3; | |
846 | #endif | |
847 | ||
848 | for (i = 0; i < MAXEISA; i++) { | |
849 | if (EISAbases[i]) { /* Still a possibility ? */ | |
850 | ||
851 | base = 0x1c88 + (i * 0x1000); | |
852 | #ifdef CHECKPAL | |
853 | pal1 = inb((u16) base - 8); | |
854 | pal2 = inb((u16) base - 7); | |
855 | pal3 = inb((u16) base - 6); | |
856 | ||
857 | if (((pal1 == 0x12) && (pal2 == 0x14)) || ((pal1 == 0x38) && (pal2 == 0xa3) && (pal3 == 0x82)) || ((pal1 == 0x06) && (pal2 == 0x94) && (pal3 == 0x24))) { | |
858 | DBG(DBG_PROBE, printk(KERN_NOTICE "EISA EATA id tags found: " "%x %x %x \n", (int) pal1, (int) pal2, (int) pal3)); | |
859 | #endif | |
860 | if (get_pio_conf_PIO(base, buf)) { | |
861 | DBG(DBG_PROBE && DBG_EISA, print_pio_config(buf)); | |
862 | if (buf->IRQ) { | |
863 | if (!register_pio_HBA(base, buf)) | |
864 | release_region(base, 9); | |
865 | } else { | |
866 | printk(KERN_NOTICE "eata_dma: No valid IRQ. HBA " "removed from list\n"); | |
867 | release_region(base, 9); | |
868 | } | |
869 | } | |
870 | /* Nothing found here so we take it from the list */ | |
871 | EISAbases[i] = 0; | |
872 | #ifdef CHECKPAL | |
873 | } | |
874 | #endif | |
875 | } | |
876 | } | |
877 | return; | |
878 | } | |
879 | ||
880 | static void find_pio_PCI(struct get_conf *buf) | |
881 | { | |
882 | #ifndef CONFIG_PCI | |
883 | printk("eata_dma: kernel PCI support not enabled. Skipping scan for PCI HBAs.\n"); | |
884 | #else | |
885 | struct pci_dev *dev = NULL; | |
886 | u32 base, x; | |
887 | ||
888 | while ((dev = pci_find_device(PCI_VENDOR_ID_DPT, PCI_DEVICE_ID_DPT, dev)) != NULL) { | |
889 | DBG(DBG_PROBE && DBG_PCI, printk("eata_pio: find_PCI, HBA at %s\n", pci_name(dev))); | |
890 | if (pci_enable_device(dev)) | |
891 | continue; | |
892 | pci_set_master(dev); | |
893 | base = pci_resource_flags(dev, 0); | |
894 | if (base & IORESOURCE_MEM) { | |
895 | printk("eata_pio: invalid base address of device %s\n", pci_name(dev)); | |
896 | continue; | |
897 | } | |
898 | base = pci_resource_start(dev, 0); | |
899 | /* EISA tag there ? */ | |
900 | if ((inb(base) == 0x12) && (inb(base + 1) == 0x14)) | |
901 | continue; /* Jep, it's forced, so move on */ | |
902 | base += 0x10; /* Now, THIS is the real address */ | |
903 | if (base != 0x1f8) { | |
904 | /* We didn't find it in the primary search */ | |
905 | if (get_pio_conf_PIO(base, buf)) { | |
906 | if (buf->FORCADR) { /* If the address is forced */ | |
907 | release_region(base, 9); | |
908 | continue; /* we'll find it later */ | |
909 | } | |
910 | ||
911 | /* OK. We made it till here, so we can go now | |
912 | * and register it. We only have to check and | |
913 | * eventually remove it from the EISA and ISA list | |
914 | */ | |
915 | ||
916 | if (!register_pio_HBA(base, buf)) { | |
917 | release_region(base, 9); | |
918 | continue; | |
919 | } | |
920 | ||
921 | if (base < 0x1000) { | |
922 | for (x = 0; x < MAXISA; ++x) { | |
923 | if (ISAbases[x] == base) { | |
924 | ISAbases[x] = 0; | |
925 | break; | |
926 | } | |
927 | } | |
928 | } else if ((base & 0x0fff) == 0x0c88) { | |
929 | x = (base >> 12) & 0x0f; | |
930 | EISAbases[x] = 0; | |
931 | } | |
932 | } | |
933 | #ifdef CHECK_BLINK | |
934 | else if (check_blink_state(base)) { | |
935 | printk("eata_pio: HBA is in BLINK state.\n" "Consult your HBAs manual to correct this.\n"); | |
936 | } | |
937 | #endif | |
938 | } | |
939 | } | |
940 | #endif /* #ifndef CONFIG_PCI */ | |
941 | } | |
942 | ||
943 | static int eata_pio_detect(struct scsi_host_template *tpnt) | |
944 | { | |
945 | struct Scsi_Host *HBA_ptr; | |
946 | struct get_conf gc; | |
947 | int i; | |
948 | ||
949 | find_pio_PCI(&gc); | |
950 | find_pio_EISA(&gc); | |
951 | find_pio_ISA(&gc); | |
952 | ||
953 | for (i = 0; i <= MAXIRQ; i++) | |
954 | if (reg_IRQ[i]) | |
955 | request_irq(i, do_eata_pio_int_handler, SA_INTERRUPT, "EATA-PIO", NULL); | |
956 | ||
957 | HBA_ptr = first_HBA; | |
958 | ||
959 | if (registered_HBAs != 0) { | |
960 | printk("EATA (Extended Attachment) PIO driver version: %d.%d%s\n" | |
961 | "(c) 1993-95 Michael Neuffer, neuffer@goofy.zdv.uni-mainz.de\n" " Alfred Arnold, a.arnold@kfa-juelich.de\n" "This release only supports DASD devices (harddisks)\n", VER_MAJOR, VER_MINOR, VER_SUB); | |
962 | ||
963 | printk("Registered HBAs:\n"); | |
964 | printk("HBA no. Boardtype: Revis: EATA: Bus: BaseIO: IRQ: Ch: ID: Pr:" " QS: SG: CPL:\n"); | |
965 | for (i = 1; i <= registered_HBAs; i++) { | |
966 | printk("scsi%-2d: %.10s v%s 2.0%c %s %#.4x %2d %d %d %c" | |
967 | " %2d %2d %2d\n", | |
968 | HBA_ptr->host_no, SD(HBA_ptr)->name, SD(HBA_ptr)->revision, | |
969 | SD(HBA_ptr)->EATA_revision, (SD(HBA_ptr)->bustype == 'P') ? | |
970 | "PCI " : (SD(HBA_ptr)->bustype == 'E') ? "EISA" : "ISA ", | |
971 | (uint) HBA_ptr->base, HBA_ptr->irq, SD(HBA_ptr)->channel, HBA_ptr->this_id, | |
972 | SD(HBA_ptr)->primary ? 'Y' : 'N', HBA_ptr->can_queue, | |
973 | HBA_ptr->sg_tablesize, HBA_ptr->cmd_per_lun); | |
974 | HBA_ptr = SD(HBA_ptr)->next; | |
975 | } | |
976 | } | |
977 | return (registered_HBAs); | |
978 | } | |
979 | ||
980 | static struct scsi_host_template driver_template = { | |
981 | .proc_name = "eata_pio", | |
982 | .name = "EATA (Extended Attachment) PIO driver", | |
983 | .proc_info = eata_pio_proc_info, | |
984 | .detect = eata_pio_detect, | |
985 | .release = eata_pio_release, | |
986 | .queuecommand = eata_pio_queue, | |
987 | .eh_abort_handler = eata_pio_abort, | |
988 | .eh_host_reset_handler = eata_pio_host_reset, | |
989 | .use_clustering = ENABLE_CLUSTERING, | |
990 | }; | |
991 | ||
992 | MODULE_AUTHOR("Michael Neuffer, Alfred Arnold"); | |
993 | MODULE_DESCRIPTION("EATA SCSI PIO driver"); | |
994 | MODULE_LICENSE("GPL"); | |
995 | ||
996 | #include "scsi_module.c" |