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