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