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