drivers/scsi/gvp11.c

   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
  22 struct gvp11_hostdata {
  23         struct WD33C93_hostdata wh;
  24         struct gvp11_scsiregs *regs;
  25 };
  26
  27 static 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
  43 static int gvp11_xfer_mask = 0;
  44
  45 void gvp11_setup(char *str, int *ints)
  46 {
  47         gvp11_xfer_mask = ints[1];
  48 }
  49
  50 static 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
 146 static 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
 174 static 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
 191 static 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
 208 static 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
 288 static 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 = (struct gvp11_scsiregs *)(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
 374 fail_host:
 375         free_irq(IRQ_AMIGA_PORTS, instance);
 376 fail_irq:
 377         scsi_host_put(instance);
 378 fail_check_or_alloc:
 379         release_mem_region(address, 256);
 380         return error;
 381 }
 382
 383 static 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
 401 static 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 };
 411 MODULE_DEVICE_TABLE(zorro, gvp11_zorro_tbl);
 412
 413 static struct zorro_driver gvp11_driver = {
 414         .name           = "gvp11",
 415         .id_table       = gvp11_zorro_tbl,
 416         .probe          = gvp11_probe,
 417         .remove         = gvp11_remove,
 418 };
 419
 420 static int __init gvp11_init(void)
 421 {
 422         return zorro_register_driver(&gvp11_driver);
 423 }
 424 module_init(gvp11_init);
 425
 426 static void __exit gvp11_exit(void)
 427 {
 428         zorro_unregister_driver(&gvp11_driver);
 429 }
 430 module_exit(gvp11_exit);
 431
 432 MODULE_DESCRIPTION("GVP Series II SCSI");
 433 MODULE_LICENSE("GPL");