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");

  1// SPDX-License-Identifier: GPL-2.0-only
  2#include <linux/types.h>
  3#include <linux/init.h>
  4#include <linux/interrupt.h>
  5#include <linux/mm.h>
  6#include <linux/slab.h>
  7#include <linux/spinlock.h>
  8#include <linux/zorro.h>
  9#include <linux/module.h>
 10
 11#include <asm/page.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 struct scsi_host_template gvp11_scsi_template = {
175	.module			= THIS_MODULE,
176	.name			= "GVP Series II SCSI",
177	.show_info		= wd33c93_show_info,
178	.write_info		= wd33c93_write_info,
179	.proc_name		= "GVP11",
180	.queuecommand		= wd33c93_queuecommand,
181	.eh_abort_handler	= wd33c93_abort,
 
182	.eh_host_reset_handler	= wd33c93_host_reset,
183	.can_queue		= CAN_QUEUE,
184	.this_id		= 7,
185	.sg_tablesize		= SG_ALL,
186	.cmd_per_lun		= CMD_PER_LUN,
187	.dma_boundary		= PAGE_SIZE - 1,
188};
189
190static int check_wd33c93(struct gvp11_scsiregs *regs)
191{
192#ifdef CHECK_WD33C93
193	volatile unsigned char *sasr_3393, *scmd_3393;
194	unsigned char save_sasr;
195	unsigned char q, qq;
196
197	/*
198	 * These darn GVP boards are a problem - it can be tough to tell
199	 * whether or not they include a SCSI controller. This is the
200	 * ultimate Yet-Another-GVP-Detection-Hack in that it actually
201	 * probes for a WD33c93 chip: If we find one, it's extremely
202	 * likely that this card supports SCSI, regardless of Product_
203	 * Code, Board_Size, etc.
204	 */
205
206	/* Get pointers to the presumed register locations and save contents */
207
208	sasr_3393 = &regs->SASR;
209	scmd_3393 = &regs->SCMD;
210	save_sasr = *sasr_3393;
211
212	/* First test the AuxStatus Reg */
213
214	q = *sasr_3393;	/* read it */
215	if (q & 0x08)	/* bit 3 should always be clear */
216		return -ENODEV;
217	*sasr_3393 = WD_AUXILIARY_STATUS;	/* setup indirect address */
218	if (*sasr_3393 == WD_AUXILIARY_STATUS) {	/* shouldn't retain the write */
219		*sasr_3393 = save_sasr;	/* Oops - restore this byte */
220		return -ENODEV;
221	}
222	if (*sasr_3393 != q) {	/* should still read the same */
223		*sasr_3393 = save_sasr;	/* Oops - restore this byte */
224		return -ENODEV;
225	}
226	if (*scmd_3393 != q)	/* and so should the image at 0x1f */
227		return -ENODEV;
228
229	/*
230	 * Ok, we probably have a wd33c93, but let's check a few other places
231	 * for good measure. Make sure that this works for both 'A and 'B
232	 * chip versions.
233	 */
234
235	*sasr_3393 = WD_SCSI_STATUS;
236	q = *scmd_3393;
237	*sasr_3393 = WD_SCSI_STATUS;
238	*scmd_3393 = ~q;
239	*sasr_3393 = WD_SCSI_STATUS;
240	qq = *scmd_3393;
241	*sasr_3393 = WD_SCSI_STATUS;
242	*scmd_3393 = q;
243	if (qq != q)	/* should be read only */
244		return -ENODEV;
245	*sasr_3393 = 0x1e;	/* this register is unimplemented */
246	q = *scmd_3393;
247	*sasr_3393 = 0x1e;
248	*scmd_3393 = ~q;
249	*sasr_3393 = 0x1e;
250	qq = *scmd_3393;
251	*sasr_3393 = 0x1e;
252	*scmd_3393 = q;
253	if (qq != q || qq != 0xff)	/* should be read only, all 1's */
254		return -ENODEV;
255	*sasr_3393 = WD_TIMEOUT_PERIOD;
256	q = *scmd_3393;
257	*sasr_3393 = WD_TIMEOUT_PERIOD;
258	*scmd_3393 = ~q;
259	*sasr_3393 = WD_TIMEOUT_PERIOD;
260	qq = *scmd_3393;
261	*sasr_3393 = WD_TIMEOUT_PERIOD;
262	*scmd_3393 = q;
263	if (qq != (~q & 0xff))	/* should be read/write */
264		return -ENODEV;
265#endif /* CHECK_WD33C93 */
266
267	return 0;
268}
269
270static int gvp11_probe(struct zorro_dev *z, const struct zorro_device_id *ent)
271{
272	struct Scsi_Host *instance;
273	unsigned long address;
274	int error;
275	unsigned int epc;
276	unsigned int default_dma_xfer_mask;
277	struct gvp11_hostdata *hdata;
278	struct gvp11_scsiregs *regs;
279	wd33c93_regs wdregs;
280
281	default_dma_xfer_mask = ent->driver_data;
282
283	/*
284	 * Rumors state that some GVP ram boards use the same product
285	 * code as the SCSI controllers. Therefore if the board-size
286	 * is not 64KB we assume it is a ram board and bail out.
287	 */
288	if (zorro_resource_len(z) != 0x10000)
289		return -ENODEV;
290
291	address = z->resource.start;
292	if (!request_mem_region(address, 256, "wd33c93"))
293		return -EBUSY;
294
295	regs = ZTWO_VADDR(address);
296
297	error = check_wd33c93(regs);
298	if (error)
299		goto fail_check_or_alloc;
300
301	instance = scsi_host_alloc(&gvp11_scsi_template,
302				   sizeof(struct gvp11_hostdata));
303	if (!instance) {
304		error = -ENOMEM;
305		goto fail_check_or_alloc;
306	}
307
308	instance->irq = IRQ_AMIGA_PORTS;
309	instance->unique_id = z->slotaddr;
310
311	regs->secret2 = 1;
312	regs->secret1 = 0;
313	regs->secret3 = 15;
314	while (regs->CNTR & GVP11_DMAC_BUSY)
315		;
316	regs->CNTR = 0;
317	regs->BANK = 0;
318
319	wdregs.SASR = &regs->SASR;
320	wdregs.SCMD = &regs->SCMD;
321
322	hdata = shost_priv(instance);
323	if (gvp11_xfer_mask)
324		hdata->wh.dma_xfer_mask = gvp11_xfer_mask;
325	else
326		hdata->wh.dma_xfer_mask = default_dma_xfer_mask;
327
328	hdata->wh.no_sync = 0xff;
329	hdata->wh.fast = 0;
330	hdata->wh.dma_mode = CTRL_DMA;
331	hdata->regs = regs;
332
333	/*
334	 * Check for 14MHz SCSI clock
335	 */
336	epc = *(unsigned short *)(ZTWO_VADDR(address) + 0x8000);
337	wd33c93_init(instance, wdregs, dma_setup, dma_stop,
338		     (epc & GVP_SCSICLKMASK) ? WD33C93_FS_8_10
339					     : WD33C93_FS_12_15);
340
341	error = request_irq(IRQ_AMIGA_PORTS, gvp11_intr, IRQF_SHARED,
342			    "GVP11 SCSI", instance);
343	if (error)
344		goto fail_irq;
345
346	regs->CNTR = GVP11_DMAC_INT_ENABLE;
347
348	error = scsi_add_host(instance, NULL);
349	if (error)
350		goto fail_host;
351
352	zorro_set_drvdata(z, instance);
353	scsi_scan_host(instance);
354	return 0;
355
356fail_host:
357	free_irq(IRQ_AMIGA_PORTS, instance);
358fail_irq:
359	scsi_host_put(instance);
360fail_check_or_alloc:
361	release_mem_region(address, 256);
362	return error;
363}
364
365static void gvp11_remove(struct zorro_dev *z)
366{
367	struct Scsi_Host *instance = zorro_get_drvdata(z);
368	struct gvp11_hostdata *hdata = shost_priv(instance);
369
370	hdata->regs->CNTR = 0;
371	scsi_remove_host(instance);
372	free_irq(IRQ_AMIGA_PORTS, instance);
373	scsi_host_put(instance);
374	release_mem_region(z->resource.start, 256);
375}
376
377	/*
378	 * This should (hopefully) be the correct way to identify
379	 * all the different GVP SCSI controllers (except for the
380	 * SERIES I though).
381	 */
382
383static struct zorro_device_id gvp11_zorro_tbl[] = {
384	{ ZORRO_PROD_GVP_COMBO_030_R3_SCSI,	~0x00ffffff },
385	{ ZORRO_PROD_GVP_SERIES_II,		~0x00ffffff },
386	{ ZORRO_PROD_GVP_GFORCE_030_SCSI,	~0x01ffffff },
387	{ ZORRO_PROD_GVP_A530_SCSI,		~0x01ffffff },
388	{ ZORRO_PROD_GVP_COMBO_030_R4_SCSI,	~0x01ffffff },
389	{ ZORRO_PROD_GVP_A1291,			~0x07ffffff },
390	{ ZORRO_PROD_GVP_GFORCE_040_SCSI_1,	~0x07ffffff },
391	{ 0 }
392};
393MODULE_DEVICE_TABLE(zorro, gvp11_zorro_tbl);
394
395static struct zorro_driver gvp11_driver = {
396	.name		= "gvp11",
397	.id_table	= gvp11_zorro_tbl,
398	.probe		= gvp11_probe,
399	.remove		= gvp11_remove,
400};
401
402static int __init gvp11_init(void)
403{
404	return zorro_register_driver(&gvp11_driver);
405}
406module_init(gvp11_init);
407
408static void __exit gvp11_exit(void)
409{
410	zorro_unregister_driver(&gvp11_driver);
411}
412module_exit(gvp11_exit);
413
414MODULE_DESCRIPTION("GVP Series II SCSI");
415MODULE_LICENSE("GPL");