drivers/scsi/arm/cumana_1.c

   1 /*
   2  * Generic Generic NCR5380 driver
   3  *
   4  * Copyright 1995-2002, Russell King
   5  */
   6 #include <linux/module.h>
   7 #include <linux/signal.h>
   8 #include <linux/ioport.h>
   9 #include <linux/delay.h>
  10 #include <linux/blkdev.h>
  11 #include <linux/init.h>
  12
  13 #include <asm/ecard.h>
  14 #include <asm/io.h>
  15
  16 #include <scsi/scsi_host.h>
  17
  18 #include <scsi/scsicam.h>
  19
  20 #define PSEUDO_DMA
  21
  22 #define priv(host)                      ((struct NCR5380_hostdata *)(host)->hostdata)
  23 #define NCR5380_read(reg)               cumanascsi_read(instance, reg)
  24 #define NCR5380_write(reg, value)       cumanascsi_write(instance, reg, value)
  25
  26 #define NCR5380_dma_xfer_len(instance, cmd, phase)      (cmd->transfersize)
  27
  28 #define NCR5380_intr                    cumanascsi_intr
  29 #define NCR5380_queue_command           cumanascsi_queue_command
  30 #define NCR5380_info                    cumanascsi_info
  31
  32 #define NCR5380_implementation_fields   \
  33         unsigned ctrl;                  \
  34         void __iomem *base;             \
  35         void __iomem *dma
  36
  37 #include "../NCR5380.h"
  38
  39 void cumanascsi_setup(char *str, int *ints)
  40 {
  41 }
  42
  43 #define CTRL    0x16fc
  44 #define STAT    0x2004
  45 #define L(v)    (((v)<<16)|((v) & 0x0000ffff))
  46 #define H(v)    (((v)>>16)|((v) & 0xffff0000))
  47
  48 static inline int
  49 NCR5380_pwrite(struct Scsi_Host *host, unsigned char *addr, int len)
  50 {
  51   unsigned long *laddr;
  52   void __iomem *dma = priv(host)->dma + 0x2000;
  53
  54   if(!len) return 0;
  55
  56   writeb(0x02, priv(host)->base + CTRL);
  57   laddr = (unsigned long *)addr;
  58   while(len >= 32)
  59   {
  60     unsigned int status;
  61     unsigned long v;
  62     status = readb(priv(host)->base + STAT);
  63     if(status & 0x80)
  64       goto end;
  65     if(!(status & 0x40))
  66       continue;
  67     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  68     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  69     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  70     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  71     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  72     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  73     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  74     v=*laddr++; writew(L(v), dma); writew(H(v), dma);
  75     len -= 32;
  76     if(len == 0)
  77       break;
  78   }
  79
  80   addr = (unsigned char *)laddr;
  81   writeb(0x12, priv(host)->base + CTRL);
  82
  83   while(len > 0)
  84   {
  85     unsigned int status;
  86     status = readb(priv(host)->base + STAT);
  87     if(status & 0x80)
  88       goto end;
  89     if(status & 0x40)
  90     {
  91       writeb(*addr++, dma);
  92       if(--len == 0)
  93         break;
  94     }
  95
  96     status = readb(priv(host)->base + STAT);
  97     if(status & 0x80)
  98       goto end;
  99     if(status & 0x40)
 100     {
 101       writeb(*addr++, dma);
 102       if(--len == 0)
 103         break;
 104     }
 105   }
 106 end:
 107   writeb(priv(host)->ctrl | 0x40, priv(host)->base + CTRL);
 108   return len;
 109 }
 110
 111 static inline int
 112 NCR5380_pread(struct Scsi_Host *host, unsigned char *addr, int len)
 113 {
 114   unsigned long *laddr;
 115   void __iomem *dma = priv(host)->dma + 0x2000;
 116
 117   if(!len) return 0;
 118
 119   writeb(0x00, priv(host)->base + CTRL);
 120   laddr = (unsigned long *)addr;
 121   while(len >= 32)
 122   {
 123     unsigned int status;
 124     status = readb(priv(host)->base + STAT);
 125     if(status & 0x80)
 126       goto end;
 127     if(!(status & 0x40))
 128       continue;
 129     *laddr++ = readw(dma) | (readw(dma) << 16);
 130     *laddr++ = readw(dma) | (readw(dma) << 16);
 131     *laddr++ = readw(dma) | (readw(dma) << 16);
 132     *laddr++ = readw(dma) | (readw(dma) << 16);
 133     *laddr++ = readw(dma) | (readw(dma) << 16);
 134     *laddr++ = readw(dma) | (readw(dma) << 16);
 135     *laddr++ = readw(dma) | (readw(dma) << 16);
 136     *laddr++ = readw(dma) | (readw(dma) << 16);
 137     len -= 32;
 138     if(len == 0)
 139       break;
 140   }
 141
 142   addr = (unsigned char *)laddr;
 143   writeb(0x10, priv(host)->base + CTRL);
 144
 145   while(len > 0)
 146   {
 147     unsigned int status;
 148     status = readb(priv(host)->base + STAT);
 149     if(status & 0x80)
 150       goto end;
 151     if(status & 0x40)
 152     {
 153       *addr++ = readb(dma);
 154       if(--len == 0)
 155         break;
 156     }
 157
 158     status = readb(priv(host)->base + STAT);
 159     if(status & 0x80)
 160       goto end;
 161     if(status & 0x40)
 162     {
 163       *addr++ = readb(dma);
 164       if(--len == 0)
 165         break;
 166     }
 167   }
 168 end:
 169   writeb(priv(host)->ctrl | 0x40, priv(host)->base + CTRL);
 170   return len;
 171 }
 172
 173 static unsigned char cumanascsi_read(struct Scsi_Host *host, unsigned int reg)
 174 {
 175         void __iomem *base = priv(host)->base;
 176         unsigned char val;
 177
 178         writeb(0, base + CTRL);
 179
 180         val = readb(base + 0x2100 + (reg << 2));
 181
 182         priv(host)->ctrl = 0x40;
 183         writeb(0x40, base + CTRL);
 184
 185         return val;
 186 }
 187
 188 static void cumanascsi_write(struct Scsi_Host *host, unsigned int reg, unsigned int value)
 189 {
 190         void __iomem *base = priv(host)->base;
 191
 192         writeb(0, base + CTRL);
 193
 194         writeb(value, base + 0x2100 + (reg << 2));
 195
 196         priv(host)->ctrl = 0x40;
 197         writeb(0x40, base + CTRL);
 198 }
 199
 200 #include "../NCR5380.c"
 201
 202 static struct scsi_host_template cumanascsi_template = {
 203         .module                 = THIS_MODULE,
 204         .name                   = "Cumana 16-bit SCSI",
 205         .info                   = cumanascsi_info,
 206         .queuecommand           = cumanascsi_queue_command,
 207         .eh_abort_handler       = NCR5380_abort,
 208         .eh_bus_reset_handler   = NCR5380_bus_reset,
 209         .can_queue              = 16,
 210         .this_id                = 7,
 211         .sg_tablesize           = SG_ALL,
 212         .cmd_per_lun            = 2,
 213         .use_clustering         = DISABLE_CLUSTERING,
 214         .proc_name              = "CumanaSCSI-1",
 215 };
 216
 217 static int cumanascsi1_probe(struct expansion_card *ec,
 218                              const struct ecard_id *id)
 219 {
 220         struct Scsi_Host *host;
 221         int ret;
 222
 223         ret = ecard_request_resources(ec);
 224         if (ret)
 225                 goto out;
 226
 227         host = scsi_host_alloc(&cumanascsi_template, sizeof(struct NCR5380_hostdata));
 228         if (!host) {
 229                 ret = -ENOMEM;
 230                 goto out_release;
 231         }
 232
 233         priv(host)->base = ioremap(ecard_resource_start(ec, ECARD_RES_IOCSLOW),
 234                                    ecard_resource_len(ec, ECARD_RES_IOCSLOW));
 235         priv(host)->dma = ioremap(ecard_resource_start(ec, ECARD_RES_MEMC),
 236                                   ecard_resource_len(ec, ECARD_RES_MEMC));
 237         if (!priv(host)->base || !priv(host)->dma) {
 238                 ret = -ENOMEM;
 239                 goto out_unmap;
 240         }
 241
 242         host->irq = ec->irq;
 243
 244         ret = NCR5380_init(host, 0);
 245         if (ret)
 246                 goto out_unmap;
 247
 248         NCR5380_maybe_reset_bus(host);
 249
 250         priv(host)->ctrl = 0;
 251         writeb(0, priv(host)->base + CTRL);
 252
 253         ret = request_irq(host->irq, cumanascsi_intr, 0,
 254                           "CumanaSCSI-1", host);
 255         if (ret) {
 256                 printk("scsi%d: IRQ%d not free: %d\n",
 257                     host->host_no, host->irq, ret);
 258                 goto out_exit;
 259         }
 260
 261         ret = scsi_add_host(host, &ec->dev);
 262         if (ret)
 263                 goto out_free_irq;
 264
 265         scsi_scan_host(host);
 266         goto out;
 267
 268  out_free_irq:
 269         free_irq(host->irq, host);
 270  out_exit:
 271         NCR5380_exit(host);
 272  out_unmap:
 273         iounmap(priv(host)->base);
 274         iounmap(priv(host)->dma);
 275         scsi_host_put(host);
 276  out_release:
 277         ecard_release_resources(ec);
 278  out:
 279         return ret;
 280 }
 281
 282 static void cumanascsi1_remove(struct expansion_card *ec)
 283 {
 284         struct Scsi_Host *host = ecard_get_drvdata(ec);
 285
 286         ecard_set_drvdata(ec, NULL);
 287
 288         scsi_remove_host(host);
 289         free_irq(host->irq, host);
 290         NCR5380_exit(host);
 291         iounmap(priv(host)->base);
 292         iounmap(priv(host)->dma);
 293         scsi_host_put(host);
 294         ecard_release_resources(ec);
 295 }
 296
 297 static const struct ecard_id cumanascsi1_cids[] = {
 298         { MANU_CUMANA, PROD_CUMANA_SCSI_1 },
 299         { 0xffff, 0xffff }
 300 };
 301
 302 static struct ecard_driver cumanascsi1_driver = {
 303         .probe          = cumanascsi1_probe,
 304         .remove         = cumanascsi1_remove,
 305         .id_table       = cumanascsi1_cids,
 306         .drv = {
 307                 .name           = "cumanascsi1",
 308         },
 309 };
 310
 311 static int __init cumanascsi_init(void)
 312 {
 313         return ecard_register_driver(&cumanascsi1_driver);
 314 }
 315
 316 static void __exit cumanascsi_exit(void)
 317 {
 318         ecard_remove_driver(&cumanascsi1_driver);
 319 }
 320
 321 module_init(cumanascsi_init);
 322 module_exit(cumanascsi_exit);
 323
 324 MODULE_DESCRIPTION("Cumana SCSI-1 driver for Acorn machines");
 325 MODULE_LICENSE("GPL");