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