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