Merge branch 'master'
[linux-2.6.git] / drivers / scsi / gvp11.c
1 #include <linux/types.h>
2 #include <linux/mm.h>
3 #include <linux/blkdev.h>
4 #include <linux/sched.h>
5 #include <linux/init.h>
6 #include <linux/interrupt.h>
7
8 #include <asm/setup.h>
9 #include <asm/page.h>
10 #include <asm/pgtable.h>
11 #include <asm/amigaints.h>
12 #include <asm/amigahw.h>
13 #include <linux/zorro.h>
14 #include <asm/irq.h>
15 #include <linux/spinlock.h>
16
17 #include "scsi.h"
18 #include <scsi/scsi_host.h>
19 #include "wd33c93.h"
20 #include "gvp11.h"
21
22 #include<linux/stat.h>
23
24 #define DMA(ptr) ((gvp11_scsiregs *)((ptr)->base))
25 #define HDATA(ptr) ((struct WD33C93_hostdata *)((ptr)->hostdata))
26
27 static irqreturn_t gvp11_intr (int irq, void *_instance, struct pt_regs *fp)
28 {
29     unsigned long flags;
30     unsigned int status;
31     struct Scsi_Host *instance = (struct Scsi_Host *)_instance;
32
33     status = DMA(instance)->CNTR;
34     if (!(status & GVP11_DMAC_INT_PENDING))
35         return IRQ_NONE;
36
37     spin_lock_irqsave(instance->host_lock, flags);
38     wd33c93_intr(instance);
39     spin_unlock_irqrestore(instance->host_lock, flags);
40     return IRQ_HANDLED;
41 }
42
43 static int gvp11_xfer_mask = 0;
44
45 void gvp11_setup (char *str, int *ints)
46 {
47     gvp11_xfer_mask = ints[1];
48 }
49
50 static int dma_setup (Scsi_Cmnd *cmd, int dir_in)
51 {
52     unsigned short cntr = GVP11_DMAC_INT_ENABLE;
53     unsigned long addr = virt_to_bus(cmd->SCp.ptr);
54     int bank_mask;
55     static int scsi_alloc_out_of_range = 0;
56
57     /* use bounce buffer if the physical address is bad */
58     if (addr & HDATA(cmd->device->host)->dma_xfer_mask ||
59         (!dir_in && mm_end_of_chunk (addr, cmd->SCp.this_residual)))
60     {
61         HDATA(cmd->device->host)->dma_bounce_len = (cmd->SCp.this_residual + 511)
62             & ~0x1ff;
63
64         if( !scsi_alloc_out_of_range ) {
65             HDATA(cmd->device->host)->dma_bounce_buffer =
66                 kmalloc (HDATA(cmd->device->host)->dma_bounce_len, GFP_KERNEL);
67             HDATA(cmd->device->host)->dma_buffer_pool = BUF_SCSI_ALLOCED;
68         }
69
70         if (scsi_alloc_out_of_range ||
71             !HDATA(cmd->device->host)->dma_bounce_buffer) {
72             HDATA(cmd->device->host)->dma_bounce_buffer =
73                 amiga_chip_alloc(HDATA(cmd->device->host)->dma_bounce_len,
74                                        "GVP II SCSI Bounce Buffer");
75
76             if(!HDATA(cmd->device->host)->dma_bounce_buffer)
77             {
78                 HDATA(cmd->device->host)->dma_bounce_len = 0;
79                 return 1;
80             }
81
82             HDATA(cmd->device->host)->dma_buffer_pool = BUF_CHIP_ALLOCED;
83         }
84
85         /* check if the address of the bounce buffer is OK */
86         addr = virt_to_bus(HDATA(cmd->device->host)->dma_bounce_buffer);
87
88         if (addr & HDATA(cmd->device->host)->dma_xfer_mask) {
89             /* fall back to Chip RAM if address out of range */
90             if( HDATA(cmd->device->host)->dma_buffer_pool == BUF_SCSI_ALLOCED) {
91                 kfree (HDATA(cmd->device->host)->dma_bounce_buffer);
92                 scsi_alloc_out_of_range = 1;
93             } else {
94                 amiga_chip_free (HDATA(cmd->device->host)->dma_bounce_buffer);
95             }
96                 
97             HDATA(cmd->device->host)->dma_bounce_buffer =
98                 amiga_chip_alloc(HDATA(cmd->device->host)->dma_bounce_len,
99                                        "GVP II SCSI Bounce Buffer");
100
101             if(!HDATA(cmd->device->host)->dma_bounce_buffer)
102             {
103                 HDATA(cmd->device->host)->dma_bounce_len = 0;
104                 return 1;
105             }
106
107             addr = virt_to_bus(HDATA(cmd->device->host)->dma_bounce_buffer);
108             HDATA(cmd->device->host)->dma_buffer_pool = BUF_CHIP_ALLOCED;
109         }
110             
111         if (!dir_in) {
112             /* copy to bounce buffer for a write */
113             memcpy (HDATA(cmd->device->host)->dma_bounce_buffer,
114                     cmd->SCp.ptr, cmd->SCp.this_residual);
115         }
116     }
117
118     /* setup dma direction */
119     if (!dir_in)
120         cntr |= GVP11_DMAC_DIR_WRITE;
121
122     HDATA(cmd->device->host)->dma_dir = dir_in;
123     DMA(cmd->device->host)->CNTR = cntr;
124
125     /* setup DMA *physical* address */
126     DMA(cmd->device->host)->ACR = addr;
127
128     if (dir_in)
129         /* invalidate any cache */
130         cache_clear (addr, cmd->SCp.this_residual);
131     else
132         /* push any dirty cache */
133         cache_push (addr, cmd->SCp.this_residual);
134
135     if ((bank_mask = (~HDATA(cmd->device->host)->dma_xfer_mask >> 18) & 0x01c0))
136             DMA(cmd->device->host)->BANK = bank_mask & (addr >> 18);
137
138     /* start DMA */
139     DMA(cmd->device->host)->ST_DMA = 1;
140
141     /* return success */
142     return 0;
143 }
144
145 static void dma_stop (struct Scsi_Host *instance, Scsi_Cmnd *SCpnt,
146                       int status)
147 {
148     /* stop DMA */
149     DMA(instance)->SP_DMA = 1;
150     /* remove write bit from CONTROL bits */
151     DMA(instance)->CNTR = GVP11_DMAC_INT_ENABLE;
152
153     /* copy from a bounce buffer, if necessary */
154     if (status && HDATA(instance)->dma_bounce_buffer) {
155         if (HDATA(instance)->dma_dir && SCpnt)
156             memcpy (SCpnt->SCp.ptr, 
157                     HDATA(instance)->dma_bounce_buffer,
158                     SCpnt->SCp.this_residual);
159         
160         if (HDATA(instance)->dma_buffer_pool == BUF_SCSI_ALLOCED)
161             kfree (HDATA(instance)->dma_bounce_buffer);
162         else
163             amiga_chip_free(HDATA(instance)->dma_bounce_buffer);
164         
165         HDATA(instance)->dma_bounce_buffer = NULL;
166         HDATA(instance)->dma_bounce_len = 0;
167     }
168 }
169
170 #define CHECK_WD33C93
171
172 int __init gvp11_detect(struct scsi_host_template *tpnt)
173 {
174     static unsigned char called = 0;
175     struct Scsi_Host *instance;
176     unsigned long address;
177     unsigned int epc;
178     struct zorro_dev *z = NULL;
179     unsigned int default_dma_xfer_mask;
180     wd33c93_regs regs;
181     int num_gvp11 = 0;
182 #ifdef CHECK_WD33C93
183     volatile unsigned char *sasr_3393, *scmd_3393;
184     unsigned char save_sasr;
185     unsigned char q, qq;
186 #endif
187
188     if (!MACH_IS_AMIGA || called)
189         return 0;
190     called = 1;
191
192     tpnt->proc_name = "GVP11";
193     tpnt->proc_info = &wd33c93_proc_info;
194
195     while ((z = zorro_find_device(ZORRO_WILDCARD, z))) {
196         /* 
197          * This should (hopefully) be the correct way to identify
198          * all the different GVP SCSI controllers (except for the
199          * SERIES I though).
200          */
201
202         if (z->id == ZORRO_PROD_GVP_COMBO_030_R3_SCSI ||
203             z->id == ZORRO_PROD_GVP_SERIES_II)
204             default_dma_xfer_mask = ~0x00ffffff;
205         else if (z->id == ZORRO_PROD_GVP_GFORCE_030_SCSI ||
206                  z->id == ZORRO_PROD_GVP_A530_SCSI ||
207                  z->id == ZORRO_PROD_GVP_COMBO_030_R4_SCSI)
208             default_dma_xfer_mask = ~0x01ffffff;
209         else if (z->id == ZORRO_PROD_GVP_A1291 ||
210                  z->id == ZORRO_PROD_GVP_GFORCE_040_SCSI_1)
211             default_dma_xfer_mask = ~0x07ffffff;
212         else
213             continue;
214
215         /*
216          * Rumors state that some GVP ram boards use the same product
217          * code as the SCSI controllers. Therefore if the board-size
218          * is not 64KB we asume it is a ram board and bail out.
219          */
220         if (z->resource.end-z->resource.start != 0xffff)
221                 continue;
222
223         address = z->resource.start;
224         if (!request_mem_region(address, 256, "wd33c93"))
225             continue;
226
227 #ifdef CHECK_WD33C93
228
229         /*
230          * These darn GVP boards are a problem - it can be tough to tell
231          * whether or not they include a SCSI controller. This is the
232          * ultimate Yet-Another-GVP-Detection-Hack in that it actually
233          * probes for a WD33c93 chip: If we find one, it's extremely
234          * likely that this card supports SCSI, regardless of Product_
235          * Code, Board_Size, etc. 
236          */
237
238     /* Get pointers to the presumed register locations and save contents */
239
240         sasr_3393 = &(((gvp11_scsiregs *)(ZTWO_VADDR(address)))->SASR);
241         scmd_3393 = &(((gvp11_scsiregs *)(ZTWO_VADDR(address)))->SCMD);
242         save_sasr = *sasr_3393;
243
244     /* First test the AuxStatus Reg */
245
246         q = *sasr_3393;         /* read it */
247         if (q & 0x08)           /* bit 3 should always be clear */
248                 goto release;
249         *sasr_3393 = WD_AUXILIARY_STATUS;        /* setup indirect address */
250         if (*sasr_3393 == WD_AUXILIARY_STATUS) { /* shouldn't retain the write */
251                 *sasr_3393 = save_sasr; /* Oops - restore this byte */
252                 goto release;
253                 }
254         if (*sasr_3393 != q) {  /* should still read the same */
255                 *sasr_3393 = save_sasr; /* Oops - restore this byte */
256                 goto release;
257                 }
258         if (*scmd_3393 != q)    /* and so should the image at 0x1f */
259                 goto release;
260
261
262     /* Ok, we probably have a wd33c93, but let's check a few other places
263      * for good measure. Make sure that this works for both 'A and 'B    
264      * chip versions.
265      */
266
267         *sasr_3393 = WD_SCSI_STATUS;
268         q = *scmd_3393;
269         *sasr_3393 = WD_SCSI_STATUS;
270         *scmd_3393 = ~q;
271         *sasr_3393 = WD_SCSI_STATUS;
272         qq = *scmd_3393;
273         *sasr_3393 = WD_SCSI_STATUS;
274         *scmd_3393 = q;
275         if (qq != q)                    /* should be read only */
276                 goto release;
277         *sasr_3393 = 0x1e;      /* this register is unimplemented */
278         q = *scmd_3393;
279         *sasr_3393 = 0x1e;
280         *scmd_3393 = ~q;
281         *sasr_3393 = 0x1e;
282         qq = *scmd_3393;
283         *sasr_3393 = 0x1e;
284         *scmd_3393 = q;
285         if (qq != q || qq != 0xff)      /* should be read only, all 1's */
286                 goto release;
287         *sasr_3393 = WD_TIMEOUT_PERIOD;
288         q = *scmd_3393;
289         *sasr_3393 = WD_TIMEOUT_PERIOD;
290         *scmd_3393 = ~q;
291         *sasr_3393 = WD_TIMEOUT_PERIOD;
292         qq = *scmd_3393;
293         *sasr_3393 = WD_TIMEOUT_PERIOD;
294         *scmd_3393 = q;
295         if (qq != (~q & 0xff))          /* should be read/write */
296                 goto release;
297 #endif
298
299         instance = scsi_register (tpnt, sizeof (struct WD33C93_hostdata));
300         if(instance == NULL)
301                 goto release;
302         instance->base = ZTWO_VADDR(address);
303         instance->irq = IRQ_AMIGA_PORTS;
304         instance->unique_id = z->slotaddr;
305
306         if (gvp11_xfer_mask)
307                 HDATA(instance)->dma_xfer_mask = gvp11_xfer_mask;
308         else
309                 HDATA(instance)->dma_xfer_mask = default_dma_xfer_mask;
310
311
312         DMA(instance)->secret2 = 1;
313         DMA(instance)->secret1 = 0;
314         DMA(instance)->secret3 = 15;
315         while (DMA(instance)->CNTR & GVP11_DMAC_BUSY) ;
316         DMA(instance)->CNTR = 0;
317
318         DMA(instance)->BANK = 0;
319
320         epc = *(unsigned short *)(ZTWO_VADDR(address) + 0x8000);
321
322         /*
323          * Check for 14MHz SCSI clock
324          */
325         regs.SASR = &(DMA(instance)->SASR);
326         regs.SCMD = &(DMA(instance)->SCMD);
327         wd33c93_init(instance, regs, dma_setup, dma_stop,
328                      (epc & GVP_SCSICLKMASK) ? WD33C93_FS_8_10
329                                              : WD33C93_FS_12_15);
330
331         request_irq(IRQ_AMIGA_PORTS, gvp11_intr, SA_SHIRQ, "GVP11 SCSI",
332                     instance);
333         DMA(instance)->CNTR = GVP11_DMAC_INT_ENABLE;
334         num_gvp11++;
335         continue;
336
337 release:
338         release_mem_region(address, 256);
339     }
340
341     return num_gvp11;
342 }
343
344 static int gvp11_bus_reset(Scsi_Cmnd *cmd)
345 {
346         /* FIXME perform bus-specific reset */
347
348         /* FIXME 2: shouldn't we no-op this function (return
349            FAILED), and fall back to host reset function,
350            wd33c93_host_reset ? */
351
352         spin_lock_irq(cmd->device->host->host_lock);
353         wd33c93_host_reset(cmd);
354         spin_unlock_irq(cmd->device->host->host_lock);
355
356         return SUCCESS;
357 }
358
359
360 #define HOSTS_C
361
362 #include "gvp11.h"
363
364 static struct scsi_host_template driver_template = {
365         .proc_name              = "GVP11",
366         .name                   = "GVP Series II SCSI",
367         .detect                 = gvp11_detect,
368         .release                = gvp11_release,
369         .queuecommand           = wd33c93_queuecommand,
370         .eh_abort_handler       = wd33c93_abort,
371         .eh_bus_reset_handler   = gvp11_bus_reset,
372         .eh_host_reset_handler  = wd33c93_host_reset,
373         .can_queue              = CAN_QUEUE,
374         .this_id                = 7,
375         .sg_tablesize           = SG_ALL,
376         .cmd_per_lun            = CMD_PER_LUN,
377         .use_clustering         = DISABLE_CLUSTERING
378 };
379
380
381 #include "scsi_module.c"
382
383 int gvp11_release(struct Scsi_Host *instance)
384 {
385 #ifdef MODULE
386     DMA(instance)->CNTR = 0;
387     release_mem_region(ZTWO_PADDR(instance->base), 256);
388     free_irq(IRQ_AMIGA_PORTS, instance);
389     wd33c93_release();
390 #endif
391     return 1;
392 }
393
394 MODULE_LICENSE("GPL");