1 /**************************************************************************
2 * Initio A100 device driver for Linux.
3 *
4 * Copyright (c) 1994-1998 Initio Corporation
5 * All rights reserved.
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2, or (at your option)
10 * any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; see the file COPYING. If not, write to
19 * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20 *
21 * --------------------------------------------------------------------------
22 *
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
25 * are met:
26 * 1. Redistributions of source code must retain the above copyright
27 * notice, this list of conditions, and the following disclaimer,
28 * without modification, immediately at the beginning of the file.
29 * 2. Redistributions in binary form must reproduce the above copyright
30 * notice, this list of conditions and the following disclaimer in the
31 * documentation and/or other materials provided with the distribution.
32 * 3. The name of the author may not be used to endorse or promote products
33 * derived from this software without specific prior written permission.
34 *
35 * Where this Software is combined with software released under the terms of
36 * the GNU General Public License ("GPL") and the terms of the GPL would require the
37 * combined work to also be released under the terms of the GPL, the terms
38 * and conditions of this License will apply in addition to those of the
39 * GPL with the exception of any terms or conditions of this License that
40 * conflict with, or are expressly prohibited by, the GPL.
41 *
42 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
43 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
44 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
45 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
46 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
47 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
48 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
49 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
50 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
51 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
52 * SUCH DAMAGE.
53 *
54 **************************************************************************
55 *
56 * module: inia100.c
57 * DESCRIPTION:
58 * This is the Linux low-level SCSI driver for Initio INIA100 SCSI host
59 * adapters
60 * 09/24/98 hl - v1.02 initial production release.
61 * 12/19/98 bv - v1.02a Use spinlocks for 2.1.95 and up.
62 **************************************************************************/
63
64 #define CVT_LINUX_VERSION(V,P,S) (V * 65536 + P * 256 + S)
65
66 #ifndef LINUX_VERSION_CODE
67 #include <linux/version.h>
68 #endif
69
70 #include <linux/module.h>
71
72 #include <stdarg.h>
73 #include <asm/irq.h>
74 #include <linux/errno.h>
75 #include <linux/delay.h>
76 #include <linux/pci.h>
77 #include <linux/init.h>
78 #include <linux/blk.h>
79 #include <linux/spinlock.h>
80 #include <linux/stat.h>
81 #include <linux/kernel.h>
82 #include <linux/string.h>
83 #include <linux/ioport.h>
84 #include <linux/sched.h>
85 #include <linux/proc_fs.h>
86 #include <asm/io.h>
87 #include "scsi.h"
88 #include "sd.h"
89 #include "hosts.h"
90 #include <linux/slab.h>
91 #include "inia100.h"
92
93 static Scsi_Host_Template driver_template = INIA100;
94 #include "scsi_module.c"
95
96 #define ORC_RDWORD(x,y) (short)(inl((int)((ULONG)((ULONG)x+(UCHAR)y)) ))
97
98 char *inia100_Copyright = "Copyright (C) 1998-99";
99 char *inia100_InitioName = "by Initio Corporation";
100 char *inia100_ProductName = "INI-A100U2W";
101 char *inia100_Version = "v1.02c";
102
103 /* set by inia100_setup according to the command line */
104 static int setup_called = 0;
105 static int orc_num_ch = MAX_SUPPORTED_ADAPTERS; /* Maximum 4 adapters */
106
107 /* ---- INTERNAL VARIABLES ---- */
108 #define NUMBER(arr) (sizeof(arr) / sizeof(arr[0]))
109 static char *setup_str = (char *) NULL;
110
111 static void inia100_intr0(int irq, void *dev_id, struct pt_regs *);
112 static void inia100_intr1(int irq, void *dev_id, struct pt_regs *);
113 static void inia100_intr2(int irq, void *dev_id, struct pt_regs *);
114 static void inia100_intr3(int irq, void *dev_id, struct pt_regs *);
115 static void inia100_intr4(int irq, void *dev_id, struct pt_regs *);
116 static void inia100_intr5(int irq, void *dev_id, struct pt_regs *);
117 static void inia100_intr6(int irq, void *dev_id, struct pt_regs *);
118 static void inia100_intr7(int irq, void *dev_id, struct pt_regs *);
119
120 static void inia100_panic(char *msg);
121 void inia100SCBPost(BYTE * pHcb, BYTE * pScb);
122
123 /* ---- EXTERNAL VARIABLES ---- */
124 extern int Addinia100_into_Adapter_table(WORD, WORD, BYTE, BYTE, BYTE);
125 extern void init_inia100Adapter_table(void);
126 extern ORC_SCB *orc_alloc_scb(ORC_HCS * hcsp);
127 extern void orc_exec_scb(ORC_HCS * hcsp, ORC_SCB * scbp);
128 extern void orc_release_scb(ORC_HCS * hcsp, ORC_SCB * scbp);
129 extern void orc_interrupt(ORC_HCS * hcsp);
130 extern int orc_device_reset(ORC_HCS * pHCB, ULONG SCpnt, unsigned int target, unsigned int ResetFlags);
131 extern int orc_reset_scsi_bus(ORC_HCS * pHCB);
132 extern int abort_SCB(ORC_HCS * hcsp, ORC_SCB * pScb);
133 extern int orc_abort_srb(ORC_HCS * hcsp, ULONG SCpnt);
134 extern void get_orcPCIConfig(ORC_HCS * pCurHcb, int ch_idx);
135 extern int init_orchid(ORC_HCS * hcsp);
136
137 extern int orc_num_scb;
138 extern ORC_HCS orc_hcs[];
139
140 /*****************************************************************************
141 Function name : inia100AppendSRBToQueue
142 Description : This function will push current request into save list
143 Input : pSRB - Pointer to SCSI request block.
144 pHCB - Pointer to host adapter structure
145 Output : None.
146 Return : None.
147 *****************************************************************************/
inia100AppendSRBToQueue(ORC_HCS * pHCB,Scsi_Cmnd * pSRB)148 static void inia100AppendSRBToQueue(ORC_HCS * pHCB, Scsi_Cmnd * pSRB)
149 {
150 ULONG flags;
151
152 spin_lock_irqsave(&(pHCB->pSRB_lock), flags);
153
154 pSRB->next = NULL; /* Pointer to next */
155 if (pHCB->pSRB_head == NULL)
156 pHCB->pSRB_head = pSRB;
157 else
158 pHCB->pSRB_tail->next = pSRB; /* Pointer to next */
159 pHCB->pSRB_tail = pSRB;
160 spin_unlock_irqrestore(&(pHCB->pSRB_lock), flags);
161 return;
162 }
163
164 /*****************************************************************************
165 Function name : inia100PopSRBFromQueue
166 Description : This function will pop current request from save list
167 Input : pHCB - Pointer to host adapter structure
168 Output : None.
169 Return : pSRB - Pointer to SCSI request block.
170 *****************************************************************************/
inia100PopSRBFromQueue(ORC_HCS * pHCB)171 static Scsi_Cmnd *inia100PopSRBFromQueue(ORC_HCS * pHCB)
172 {
173 Scsi_Cmnd *pSRB;
174 ULONG flags;
175 spin_lock_irqsave(&(pHCB->pSRB_lock), flags);
176 if ((pSRB = (Scsi_Cmnd *) pHCB->pSRB_head) != NULL) {
177 pHCB->pSRB_head = pHCB->pSRB_head->next;
178 pSRB->next = NULL;
179 }
180 spin_unlock_irqrestore(&(pHCB->pSRB_lock), flags);
181 return (pSRB);
182 }
183
184 /*****************************************************************************
185 Function name : inia100_setup
186 Description :
187 Input : pHCB - Pointer to host adapter structure
188 Output : None.
189 Return : pSRB - Pointer to SCSI request block.
190 *****************************************************************************/
inia100_setup(char * str,int * ints)191 void inia100_setup(char *str, int *ints)
192 {
193 if (setup_called)
194 inia100_panic("inia100: inia100_setup called twice.\n");
195
196 setup_called = ints[0];
197 setup_str = str;
198 }
199
200 /*****************************************************************************
201 Function name : orc_ReturnNumberOfAdapters
202 Description : This function will scan PCI bus to get all Orchid card
203 Input : None.
204 Output : None.
205 Return : SUCCESSFUL - Successful scan
206 ohterwise - No drives founded
207 *****************************************************************************/
orc_ReturnNumberOfAdapters(void)208 int orc_ReturnNumberOfAdapters(void)
209 {
210 unsigned int i, iAdapters;
211
212 iAdapters = 0;
213 /*
214 * PCI-bus probe.
215 */
216 if (pcibios_present()) {
217 struct {
218 unsigned short vendor_id;
219 unsigned short device_id;
220 } const inia100_pci_devices[] =
221 {
222 {ORC_VENDOR_ID, I920_DEVICE_ID},
223 {ORC_VENDOR_ID, ORC_DEVICE_ID}
224 };
225
226 unsigned int dRegValue;
227 WORD wBIOS, wBASE;
228 BYTE bPCIBusNum, bInterrupt, bPCIDeviceNum;
229
230 #ifdef MMAPIO
231 unsigned long page_offset, base;
232 #endif
233
234 struct pci_dev *pdev = NULL;
235
236 bPCIBusNum = 0;
237 bPCIDeviceNum = 0;
238 init_inia100Adapter_table();
239 for (i = 0; i < NUMBER(inia100_pci_devices); i++) {
240 pdev = NULL;
241 while ((pdev = pci_find_device(inia100_pci_devices[i].vendor_id,
242 inia100_pci_devices[i].device_id,
243 pdev)))
244 {
245 if (pci_enable_device(pdev))
246 continue;
247 if (iAdapters >= MAX_SUPPORTED_ADAPTERS)
248 break; /* Never greater than maximum */
249
250 if (i == 0) {
251 /*
252 printk("inia100: The RAID controller is not supported by\n");
253 printk("inia100: this driver, we are ignoring it.\n");
254 */
255 } else {
256 /*
257 * Read sundry information from PCI BIOS.
258 */
259 bPCIBusNum = pdev->bus->number;
260 bPCIDeviceNum = pdev->devfn;
261 dRegValue = pci_resource_start(pdev, 0);
262 if (dRegValue == -1) { /* Check return code */
263 printk("\n\rinia100: orchid read configuration error.\n");
264 return (0); /* Read configuration space error */
265 }
266
267 /* <02> read from base address + 0x50 offset to get the wBIOS balue. */
268 wBASE = (WORD) dRegValue;
269
270 /* Now read the interrupt line value */
271 dRegValue = pdev->irq;
272 bInterrupt = dRegValue; /* Assign interrupt line */
273
274 wBIOS = ORC_RDWORD(wBASE, 0x50);
275
276 pci_set_master(pdev);
277
278 #ifdef MMAPIO
279 base = wBASE & PAGE_MASK;
280 page_offset = wBASE - base;
281
282 /*
283 * replace the next line with this one if you are using 2.1.x:
284 * temp_p->maddr = ioremap(base, page_offset + 256);
285 */
286 wBASE = ioremap(base, page_offset + 256);
287 if (wBASE) {
288 wBASE += page_offset;
289 }
290 #endif
291
292 if (Addinia100_into_Adapter_table(wBIOS, wBASE, bInterrupt, bPCIBusNum,
293 bPCIDeviceNum) == SUCCESSFUL)
294 iAdapters++;
295 }
296 } /* while(pdev=....) */
297 } /* for PCI_DEVICES */
298 } /* PCI BIOS present */
299 return (iAdapters);
300 }
301
302 /*****************************************************************************
303 Function name : inia100_detect
304 Description :
305 Input : pHCB - Pointer to host adapter structure
306 Output : None.
307 Return : pSRB - Pointer to SCSI request block.
308 *****************************************************************************/
inia100_detect(Scsi_Host_Template * tpnt)309 int inia100_detect(Scsi_Host_Template * tpnt)
310 {
311 ORC_HCS *pHCB;
312 struct Scsi_Host *hreg;
313 U32 sz;
314 U32 i; /* 01/14/98 */
315 int ok = 0, iAdapters;
316 ULONG dBiosAdr;
317 BYTE *pbBiosAdr;
318
319 tpnt->proc_name = "INIA100";
320 if (setup_called) {
321 /* Setup by inia100_setup */
322 printk("inia100: processing commandline: ");
323 }
324 /* Get total number of adapters in the motherboard */
325 iAdapters = orc_ReturnNumberOfAdapters();
326
327 /* printk("inia100: Total Initio Adapters = %d\n", iAdapters); */
328 if (iAdapters == 0) /* If no orc founded, return */
329 return (0);
330
331 orc_num_ch = (iAdapters > orc_num_ch) ? orc_num_ch : iAdapters;
332 orc_num_scb = ORC_MAXQUEUE;
333
334 /* clear the memory needed for HCS */
335 i = orc_num_ch * sizeof(ORC_HCS);
336 memset((unsigned char *) &orc_hcs[0], 0, i); /* Initialize orc_hcs 0 */
337
338 #if 0
339 printk("orc_num_scb= %x orc_num_ch= %x hcsize= %x scbsize= %x escbsize= %x\n",
340 orc_num_scb, orc_num_ch, sizeof(ORC_HCS), sizeof(ORC_SCB), sizeof(ESCB));
341 #endif
342
343 for (i = 0, pHCB = &orc_hcs[0]; /* Get pointer for control block */
344 i < orc_num_ch;
345 i++, pHCB++) {
346
347 pHCB->pSRB_head = NULL; /* Initial SRB save queue */
348 pHCB->pSRB_tail = NULL; /* Initial SRB save queue */
349 pHCB->pSRB_lock = SPIN_LOCK_UNLOCKED; /* SRB save queue lock */
350 pHCB->BitAllocFlagLock = SPIN_LOCK_UNLOCKED;
351 /* Get total memory needed for SCB */
352 sz = orc_num_scb * sizeof(ORC_SCB);
353 if ((pHCB->HCS_virScbArray = (PVOID) kmalloc(sz, GFP_ATOMIC | GFP_DMA)) == NULL) {
354 printk("inia100: SCB memory allocation error\n");
355 return (0);
356 }
357 memset((unsigned char *) pHCB->HCS_virScbArray, 0, sz);
358 pHCB->HCS_physScbArray = (U32) VIRT_TO_BUS(pHCB->HCS_virScbArray);
359
360 /* Get total memory needed for ESCB */
361 sz = orc_num_scb * sizeof(ESCB);
362 if ((pHCB->HCS_virEscbArray = (PVOID) kmalloc(sz, GFP_ATOMIC | GFP_DMA)) == NULL) {
363 printk("inia100: ESCB memory allocation error\n");
364 /* ?? does pHCB->HCS_virtScbArray leak ??*/
365 return (0);
366 }
367 memset((unsigned char *) pHCB->HCS_virEscbArray, 0, sz);
368 pHCB->HCS_physEscbArray = (U32) VIRT_TO_BUS(pHCB->HCS_virEscbArray);
369
370 get_orcPCIConfig(pHCB, i);
371
372 dBiosAdr = pHCB->HCS_BIOS;
373 dBiosAdr = (dBiosAdr << 4);
374
375 pbBiosAdr = phys_to_virt(dBiosAdr);
376
377 if (init_orchid(pHCB)) { /* Initial orchid chip */
378 printk("inia100: initial orchid fail!!\n");
379 return (0);
380 }
381 request_region(pHCB->HCS_Base, 256, "inia100"); /* Register */
382
383 hreg = scsi_register(tpnt, sizeof(ORC_HCS));
384 if (hreg == NULL) {
385 release_region(pHCB->HCS_Base, 256); /* Register */
386 return 0;
387 }
388 hreg->io_port = pHCB->HCS_Base;
389 hreg->n_io_port = 0xff;
390 hreg->can_queue = orc_num_scb; /* 03/05/98 */
391
392 hreg->unique_id = pHCB->HCS_Base;
393 hreg->max_id = pHCB->HCS_MaxTar;
394
395 hreg->max_lun = 32; /* 10/21/97 */
396 /*
397 hreg->max_lun = 8;
398 hreg->max_channel = 1;
399 */
400 hreg->irq = pHCB->HCS_Intr;
401 hreg->this_id = pHCB->HCS_SCSI_ID; /* Assign HCS index */
402 hreg->base = (unsigned long)pHCB;
403
404 #if 1
405 hreg->sg_tablesize = TOTAL_SG_ENTRY; /* Maximun support is 32 */
406 #else
407 hreg->sg_tablesize = SG_NONE; /* No SG */
408 #endif
409
410 /* Initial orc chip */
411 switch (i) {
412 case 0:
413 ok = request_irq(pHCB->HCS_Intr, inia100_intr0, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
414 break;
415 case 1:
416 ok = request_irq(pHCB->HCS_Intr, inia100_intr1, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
417 break;
418 case 2:
419 ok = request_irq(pHCB->HCS_Intr, inia100_intr2, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
420 break;
421 case 3:
422 ok = request_irq(pHCB->HCS_Intr, inia100_intr3, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
423 break;
424 case 4:
425 ok = request_irq(pHCB->HCS_Intr, inia100_intr4, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
426 break;
427 case 5:
428 ok = request_irq(pHCB->HCS_Intr, inia100_intr5, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
429 break;
430 case 6:
431 ok = request_irq(pHCB->HCS_Intr, inia100_intr6, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
432 break;
433 case 7:
434 ok = request_irq(pHCB->HCS_Intr, inia100_intr7, SA_INTERRUPT | SA_SHIRQ, "inia100", hreg);
435 break;
436 default:
437 inia100_panic("inia100: Too many host adapters\n");
438 break;
439 }
440
441 if (ok < 0) {
442 if (ok == -EINVAL) {
443 printk("inia100: bad IRQ %d.\n", pHCB->HCS_Intr);
444 printk(" Contact author.\n");
445 } else {
446 if (ok == -EBUSY)
447 printk("inia100: IRQ %d already in use. Configure another.\n", pHCB->HCS_Intr);
448 else {
449 printk("\ninia100: Unexpected error code on requesting IRQ %d.\n",
450 pHCB->HCS_Intr);
451 printk(" Contact author.\n");
452 }
453 }
454 inia100_panic("inia100: driver needs an IRQ.\n");
455 }
456 }
457
458 tpnt->this_id = -1;
459 tpnt->can_queue = 1;
460 return 1;
461 }
462
463 /*****************************************************************************
464 Function name : inia100BuildSCB
465 Description :
466 Input : pHCB - Pointer to host adapter structure
467 Output : None.
468 Return : pSRB - Pointer to SCSI request block.
469 *****************************************************************************/
inia100BuildSCB(ORC_HCS * pHCB,ORC_SCB * pSCB,Scsi_Cmnd * SCpnt)470 static void inia100BuildSCB(ORC_HCS * pHCB, ORC_SCB * pSCB, Scsi_Cmnd * SCpnt)
471 { /* Create corresponding SCB */
472 struct scatterlist *pSrbSG;
473 ORC_SG *pSG; /* Pointer to SG list */
474 int i;
475 U32 TotalLen;
476 ESCB *pEScb;
477
478 pEScb = pSCB->SCB_EScb;
479 pEScb->SCB_Srb = SCpnt;
480 pSG = NULL;
481
482 pSCB->SCB_Opcode = ORC_EXECSCSI;
483 pSCB->SCB_Flags = SCF_NO_DCHK; /* Clear done bit */
484 pSCB->SCB_Target = SCpnt->target;
485 pSCB->SCB_Lun = SCpnt->lun;
486 pSCB->SCB_Reserved0 = 0;
487 pSCB->SCB_Reserved1 = 0;
488 pSCB->SCB_SGLen = 0;
489
490 if ((pSCB->SCB_XferLen = (U32) SCpnt->request_bufflen)) {
491 pSG = (ORC_SG *) & pEScb->ESCB_SGList[0];
492 if (SCpnt->use_sg) {
493 TotalLen = 0;
494 pSCB->SCB_SGLen = (U32) (SCpnt->use_sg * 8);
495 pSrbSG = (struct scatterlist *) SCpnt->request_buffer;
496 for (i = 0; i < SCpnt->use_sg; i++, pSG++, pSrbSG++) {
497 pSG->SG_Ptr = (U32) (VIRT_TO_BUS(pSrbSG->address));
498 pSG->SG_Len = (U32) pSrbSG->length;
499 TotalLen += (U32) pSrbSG->length;
500 }
501 } else { /* Non SG */
502 pSCB->SCB_SGLen = 0x8;
503 pSG->SG_Ptr = (U32) (VIRT_TO_BUS(SCpnt->request_buffer));
504 pSG->SG_Len = (U32) SCpnt->request_bufflen;
505 }
506 }
507 pSCB->SCB_SGPAddr = (U32) pSCB->SCB_SensePAddr;
508 pSCB->SCB_HaStat = 0;
509 pSCB->SCB_TaStat = 0;
510 pSCB->SCB_Link = 0xFF;
511 pSCB->SCB_SenseLen = SENSE_SIZE;
512 pSCB->SCB_CDBLen = SCpnt->cmd_len;
513 if (pSCB->SCB_CDBLen >= IMAX_CDB) {
514 printk("max cdb length= %x\b", SCpnt->cmd_len);
515 pSCB->SCB_CDBLen = IMAX_CDB;
516 }
517 pSCB->SCB_Ident = SCpnt->lun | DISC_ALLOW;
518 if (SCpnt->device->tagged_supported) { /* Tag Support */
519 pSCB->SCB_TagMsg = SIMPLE_QUEUE_TAG; /* Do simple tag only */
520 } else {
521 pSCB->SCB_TagMsg = 0; /* No tag support */
522 }
523 memcpy(&pSCB->SCB_CDB[0], &SCpnt->cmnd, pSCB->SCB_CDBLen);
524 return;
525 }
526
527 /*****************************************************************************
528 Function name : inia100_queue
529 Description : Queue a command and setup interrupts for a free bus.
530 Input : pHCB - Pointer to host adapter structure
531 Output : None.
532 Return : pSRB - Pointer to SCSI request block.
533 *****************************************************************************/
inia100_queue(Scsi_Cmnd * SCpnt,void (* done)(Scsi_Cmnd *))534 int inia100_queue(Scsi_Cmnd * SCpnt, void (*done) (Scsi_Cmnd *))
535 {
536 register ORC_SCB *pSCB;
537 ORC_HCS *pHCB; /* Point to Host adapter control block */
538
539 if (SCpnt->lun > 16) {
540 SCpnt->result = (DID_TIME_OUT << 16);
541 done(SCpnt); /* Notify system DONE */
542 return (0);
543 }
544 pHCB = (ORC_HCS *) SCpnt->host->base;
545 SCpnt->scsi_done = done;
546 /* Get free SCSI control block */
547 if ((pSCB = orc_alloc_scb(pHCB)) == NULL) {
548 inia100AppendSRBToQueue(pHCB, SCpnt); /* Buffer this request */
549 /* printk("inia100_entry: can't allocate SCB\n"); */
550 return (0);
551 }
552 inia100BuildSCB(pHCB, pSCB, SCpnt);
553 orc_exec_scb(pHCB, pSCB); /* Start execute SCB */
554
555 return (0);
556 }
557
558 /*****************************************************************************
559 Function name : inia100_command
560 Description : We only support command in interrupt-driven fashion
561 Input : pHCB - Pointer to host adapter structure
562 Output : None.
563 Return : pSRB - Pointer to SCSI request block.
564 *****************************************************************************/
inia100_command(Scsi_Cmnd * SCpnt)565 int inia100_command(Scsi_Cmnd * SCpnt)
566 {
567 printk("inia100: interrupt driven driver; use inia100_queue()\n");
568 return -1;
569 }
570
571 /*****************************************************************************
572 Function name : inia100_abort
573 Description : Abort a queued command.
574 (commands that are on the bus can't be aborted easily)
575 Input : pHCB - Pointer to host adapter structure
576 Output : None.
577 Return : pSRB - Pointer to SCSI request block.
578 *****************************************************************************/
inia100_abort(Scsi_Cmnd * SCpnt)579 int inia100_abort(Scsi_Cmnd * SCpnt)
580 {
581 ORC_HCS *hcsp;
582
583 hcsp = (ORC_HCS *) SCpnt->host->base;
584 return orc_abort_srb(hcsp, (ULONG) SCpnt);
585 }
586
587 /*****************************************************************************
588 Function name : inia100_reset
589 Description : Reset registers, reset a hanging bus and
590 kill active and disconnected commands for target w/o soft reset
591 Input : pHCB - Pointer to host adapter structure
592 Output : None.
593 Return : pSRB - Pointer to SCSI request block.
594 *****************************************************************************/
inia100_reset(Scsi_Cmnd * SCpnt,unsigned int reset_flags)595 int inia100_reset(Scsi_Cmnd * SCpnt, unsigned int reset_flags)
596 { /* I need Host Control Block Information */
597 ORC_HCS *pHCB;
598 pHCB = (ORC_HCS *) SCpnt->host->base;
599
600 if (reset_flags & (SCSI_RESET_SUGGEST_BUS_RESET | SCSI_RESET_SUGGEST_HOST_RESET))
601 return orc_reset_scsi_bus(pHCB);
602 else
603 return orc_device_reset(pHCB, (ULONG) SCpnt, SCpnt->target, reset_flags);
604
605 }
606
607 /*****************************************************************************
608 Function name : inia100SCBPost
609 Description : This is callback routine be called when orc finish one
610 SCSI command.
611 Input : pHCB - Pointer to host adapter control block.
612 pSCB - Pointer to SCSI control block.
613 Output : None.
614 Return : None.
615 *****************************************************************************/
inia100SCBPost(BYTE * pHcb,BYTE * pScb)616 void inia100SCBPost(BYTE * pHcb, BYTE * pScb)
617 {
618 Scsi_Cmnd *pSRB; /* Pointer to SCSI request block */
619 ORC_HCS *pHCB;
620 ORC_SCB *pSCB;
621 ESCB *pEScb;
622
623 pHCB = (ORC_HCS *) pHcb;
624 pSCB = (ORC_SCB *) pScb;
625 pEScb = pSCB->SCB_EScb;
626 if ((pSRB = (Scsi_Cmnd *) pEScb->SCB_Srb) == 0) {
627 printk("inia100SCBPost: SRB pointer is empty\n");
628 orc_release_scb(pHCB, pSCB); /* Release SCB for current channel */
629 return;
630 }
631 pEScb->SCB_Srb = NULL;
632
633 switch (pSCB->SCB_HaStat) {
634 case 0x0:
635 case 0xa: /* Linked command complete without error and linked normally */
636 case 0xb: /* Linked command complete without error interrupt generated */
637 pSCB->SCB_HaStat = 0;
638 break;
639
640 case 0x11: /* Selection time out-The initiator selection or target
641 reselection was not complete within the SCSI Time out period */
642 pSCB->SCB_HaStat = DID_TIME_OUT;
643 break;
644
645 case 0x14: /* Target bus phase sequence failure-An invalid bus phase or bus
646 phase sequence was requested by the target. The host adapter
647 will generate a SCSI Reset Condition, notifying the host with
648 a SCRD interrupt */
649 pSCB->SCB_HaStat = DID_RESET;
650 break;
651
652 case 0x1a: /* SCB Aborted. 07/21/98 */
653 pSCB->SCB_HaStat = DID_ABORT;
654 break;
655
656 case 0x12: /* Data overrun/underrun-The target attempted to transfer more data
657 than was allocated by the Data Length field or the sum of the
658 Scatter / Gather Data Length fields. */
659 case 0x13: /* Unexpected bus free-The target dropped the SCSI BSY at an unexpected time. */
660 case 0x16: /* Invalid CCB Operation Code-The first byte of the CCB was invalid. */
661
662 default:
663 printk("inia100: %x %x\n", pSCB->SCB_HaStat, pSCB->SCB_TaStat);
664 pSCB->SCB_HaStat = DID_ERROR; /* Couldn't find any better */
665 break;
666 }
667
668 if (pSCB->SCB_TaStat == 2) { /* Check condition */
669 memcpy((unsigned char *) &pSRB->sense_buffer[0],
670 (unsigned char *) &pEScb->ESCB_SGList[0], SENSE_SIZE);
671 }
672 pSRB->result = pSCB->SCB_TaStat | (pSCB->SCB_HaStat << 16);
673 pSRB->scsi_done(pSRB); /* Notify system DONE */
674
675 /* Find the next pending SRB */
676 if ((pSRB = inia100PopSRBFromQueue(pHCB)) != NULL) { /* Assume resend will success */
677 /* Reuse old SCB */
678 inia100BuildSCB(pHCB, pSCB, pSRB); /* Create corresponding SCB */
679 orc_exec_scb(pHCB, pSCB); /* Start execute SCB */
680 } else { /* No Pending SRB */
681 orc_release_scb(pHCB, pSCB); /* Release SCB for current channel */
682 }
683 return;
684 }
685
686 /*****************************************************************************
687 Function name : inia100_biosparam
688 Description : Return the "logical geometry"
689 Input : pHCB - Pointer to host adapter structure
690 Output : None.
691 Return : pSRB - Pointer to SCSI request block.
692 *****************************************************************************/
inia100_biosparam(Scsi_Disk * disk,kdev_t dev,int * info_array)693 int inia100_biosparam(Scsi_Disk * disk, kdev_t dev, int *info_array)
694 {
695 ORC_HCS *pHcb; /* Point to Host adapter control block */
696 ORC_TCS *pTcb;
697
698 pHcb = (ORC_HCS *) disk->device->host->base;
699 pTcb = &pHcb->HCS_Tcs[disk->device->id];
700
701 if (pTcb->TCS_DrvHead) {
702 info_array[0] = pTcb->TCS_DrvHead;
703 info_array[1] = pTcb->TCS_DrvSector;
704 info_array[2] = disk->capacity / pTcb->TCS_DrvHead / pTcb->TCS_DrvSector;
705 } else {
706 if (pTcb->TCS_DrvFlags & TCF_DRV_255_63) {
707 info_array[0] = 255;
708 info_array[1] = 63;
709 info_array[2] = disk->capacity / 255 / 63;
710 } else {
711 info_array[0] = 64;
712 info_array[1] = 32;
713 info_array[2] = disk->capacity >> 11;
714 }
715 }
716 return 0;
717 }
718
719
subIntr(ORC_HCS * pHCB,int irqno)720 static void subIntr(ORC_HCS * pHCB, int irqno)
721 {
722 unsigned long flags;
723
724 spin_lock_irqsave(&io_request_lock, flags);
725
726 if (pHCB->HCS_Intr != irqno) {
727 spin_unlock_irqrestore(&io_request_lock, flags);
728 return;
729 }
730 orc_interrupt(pHCB);
731
732 spin_unlock_irqrestore(&io_request_lock, flags);
733 }
734
735 /*
736 * Interrupts handler (main routine of the driver)
737 */
inia100_intr0(int irqno,void * dev_id,struct pt_regs * regs)738 static void inia100_intr0(int irqno, void *dev_id, struct pt_regs *regs)
739 {
740 subIntr(&orc_hcs[0], irqno);
741 }
742
inia100_intr1(int irqno,void * dev_id,struct pt_regs * regs)743 static void inia100_intr1(int irqno, void *dev_id, struct pt_regs *regs)
744 {
745 subIntr(&orc_hcs[1], irqno);
746 }
747
inia100_intr2(int irqno,void * dev_id,struct pt_regs * regs)748 static void inia100_intr2(int irqno, void *dev_id, struct pt_regs *regs)
749 {
750 subIntr(&orc_hcs[2], irqno);
751 }
752
inia100_intr3(int irqno,void * dev_id,struct pt_regs * regs)753 static void inia100_intr3(int irqno, void *dev_id, struct pt_regs *regs)
754 {
755 subIntr(&orc_hcs[3], irqno);
756 }
757
inia100_intr4(int irqno,void * dev_id,struct pt_regs * regs)758 static void inia100_intr4(int irqno, void *dev_id, struct pt_regs *regs)
759 {
760 subIntr(&orc_hcs[4], irqno);
761 }
762
inia100_intr5(int irqno,void * dev_id,struct pt_regs * regs)763 static void inia100_intr5(int irqno, void *dev_id, struct pt_regs *regs)
764 {
765 subIntr(&orc_hcs[5], irqno);
766 }
767
inia100_intr6(int irqno,void * dev_id,struct pt_regs * regs)768 static void inia100_intr6(int irqno, void *dev_id, struct pt_regs *regs)
769 {
770 subIntr(&orc_hcs[6], irqno);
771 }
772
inia100_intr7(int irqno,void * dev_id,struct pt_regs * regs)773 static void inia100_intr7(int irqno, void *dev_id, struct pt_regs *regs)
774 {
775 subIntr(&orc_hcs[7], irqno);
776 }
777
778 /*
779 * Dump the current driver status and panic...
780 */
inia100_panic(char * msg)781 static void inia100_panic(char *msg)
782 {
783 printk("\ninia100_panic: %s\n", msg);
784 panic("inia100 panic");
785 }
786
787 /*
788 * Release ressources
789 */
inia100_release(struct Scsi_Host * hreg)790 int inia100_release(struct Scsi_Host *hreg)
791 {
792 free_irq(hreg->irq, hreg);
793 release_region(hreg->io_port, 256);
794 return 0;
795 }
796
797 MODULE_LICENSE("Dual BSD/GPL");
798 /*#include "inia100scsi.c" */
799