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