drivers/scsi/gvp11.c

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