drivers/scsi/gvp11.c

   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
  26 static 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
  42 static int gvp11_xfer_mask = 0;
  43
  44 void gvp11_setup (char *str, int *ints)
  45 {
  46     gvp11_xfer_mask = ints[1];
  47 }
  48
  49 static 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
 144 static 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
 171 int __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
 336 release:
 337         release_mem_region(address, 256);
 338     }
 339
 340     return num_gvp11;
 341 }
 342
 343 static int gvp11_bus_reset(struct scsi_cmnd *cmd)
 344 {
 345         /* FIXME perform bus-specific reset */
 346
 347         /* FIXME 2: shouldn't we no-op this function (return
 348            FAILED), and fall back to host reset function,
 349            wd33c93_host_reset ? */
 350
 351         spin_lock_irq(cmd->device->host->host_lock);
 352         wd33c93_host_reset(cmd);
 353         spin_unlock_irq(cmd->device->host->host_lock);
 354
 355         return SUCCESS;
 356 }
 357
 358
 359 #define HOSTS_C
 360
 361 #include "gvp11.h"
 362
 363 static struct scsi_host_template driver_template = {
 364         .proc_name              = "GVP11",
 365         .name                   = "GVP Series II SCSI",
 366         .detect                 = gvp11_detect,
 367         .release                = gvp11_release,
 368         .queuecommand           = wd33c93_queuecommand,
 369         .eh_abort_handler       = wd33c93_abort,
 370         .eh_bus_reset_handler   = gvp11_bus_reset,
 371         .eh_host_reset_handler  = wd33c93_host_reset,
 372         .can_queue              = CAN_QUEUE,
 373         .this_id                = 7,
 374         .sg_tablesize           = SG_ALL,
 375         .cmd_per_lun            = CMD_PER_LUN,
 376         .use_clustering         = DISABLE_CLUSTERING
 377 };
 378
 379
 380 #include "scsi_module.c"
 381
 382 int gvp11_release(struct Scsi_Host *instance)
 383 {
 384 #ifdef MODULE
 385     DMA(instance)->CNTR = 0;
 386     release_mem_region(ZTWO_PADDR(instance->base), 256);
 387     free_irq(IRQ_AMIGA_PORTS, instance);
 388     wd33c93_release();
 389 #endif
 390     return 1;
 391 }
 392
 393 MODULE_LICENSE("GPL");