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