drivers/isdn/hisax/niccy.c

   1 /* $Id: niccy.c,v 1.21.2.4 2004/01/13 23:48:39 keil Exp $
   2  *
   3  * low level stuff for Dr. Neuhaus NICCY PnP and NICCY PCI and
   4  * compatible (SAGEM cybermodem)
   5  *
   6  * Author       Karsten Keil
   7  * Copyright    by Karsten Keil      <keil@isdn4linux.de>
   8  *
   9  * This software may be used and distributed according to the terms
  10  * of the GNU General Public License, incorporated herein by reference.
  11  *
  12  * Thanks to Dr. Neuhaus and SAGEM for information
  13  *
  14  */
  15
  16 #include <linux/init.h>
  17 #include "hisax.h"
  18 #include "isac.h"
  19 #include "hscx.h"
  20 #include "isdnl1.h"
  21 #include <linux/pci.h>
  22 #include <linux/isapnp.h>
  23
  24 extern const char *CardType[];
  25 static const char *niccy_revision = "$Revision: 1.21.2.4 $";
  26
  27 #define byteout(addr,val) outb(val,addr)
  28 #define bytein(addr) inb(addr)
  29
  30 #define ISAC_PCI_DATA   0
  31 #define HSCX_PCI_DATA   1
  32 #define ISAC_PCI_ADDR   2
  33 #define HSCX_PCI_ADDR   3
  34 #define ISAC_PNP        0
  35 #define HSCX_PNP        1
  36
  37 /* SUB Types */
  38 #define NICCY_PNP       1
  39 #define NICCY_PCI       2
  40
  41 /* PCI stuff */
  42 #define PCI_IRQ_CTRL_REG        0x38
  43 #define PCI_IRQ_ENABLE          0x1f00
  44 #define PCI_IRQ_DISABLE         0xff0000
  45 #define PCI_IRQ_ASSERT          0x800000
  46
  47 static inline u_char readreg(unsigned int ale, unsigned int adr, u_char off)
  48 {
  49         register u_char ret;
  50
  51         byteout(ale, off);
  52         ret = bytein(adr);
  53         return ret;
  54 }
  55
  56 static inline void readfifo(unsigned int ale, unsigned int adr, u_char off,
  57                 u_char *data, int size)
  58 {
  59         byteout(ale, off);
  60         insb(adr, data, size);
  61 }
  62
  63 static inline void writereg(unsigned int ale, unsigned int adr, u_char off,
  64                 u_char data)
  65 {
  66         byteout(ale, off);
  67         byteout(adr, data);
  68 }
  69
  70 static inline void writefifo(unsigned int ale, unsigned int adr, u_char off,
  71                 u_char *data, int size)
  72 {
  73         byteout(ale, off);
  74         outsb(adr, data, size);
  75 }
  76
  77 /* Interface functions */
  78
  79 static u_char ReadISAC(struct IsdnCardState *cs, u_char offset)
  80 {
  81         return readreg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, offset);
  82 }
  83
  84 static void WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value)
  85 {
  86         writereg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, offset, value);
  87 }
  88
  89 static void ReadISACfifo(struct IsdnCardState *cs, u_char * data, int size)
  90 {
  91         readfifo(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, 0, data, size);
  92 }
  93
  94 static void WriteISACfifo(struct IsdnCardState *cs, u_char * data, int size)
  95 {
  96         writefifo(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, 0, data, size);
  97 }
  98
  99 static u_char ReadHSCX(struct IsdnCardState *cs, int hscx, u_char offset)
 100 {
 101         return readreg(cs->hw.niccy.hscx_ale,
 102                         cs->hw.niccy.hscx, offset + (hscx ? 0x40 : 0));
 103 }
 104
 105 static void WriteHSCX(struct IsdnCardState *cs, int hscx, u_char offset,
 106                 u_char value)
 107 {
 108         writereg(cs->hw.niccy.hscx_ale,
 109                  cs->hw.niccy.hscx, offset + (hscx ? 0x40 : 0), value);
 110 }
 111
 112 #define READHSCX(cs, nr, reg) readreg(cs->hw.niccy.hscx_ale, \
 113                 cs->hw.niccy.hscx, reg + (nr ? 0x40 : 0))
 114 #define WRITEHSCX(cs, nr, reg, data) writereg(cs->hw.niccy.hscx_ale, \
 115                 cs->hw.niccy.hscx, reg + (nr ? 0x40 : 0), data)
 116
 117 #define READHSCXFIFO(cs, nr, ptr, cnt) readfifo(cs->hw.niccy.hscx_ale, \
 118                 cs->hw.niccy.hscx, (nr ? 0x40 : 0), ptr, cnt)
 119
 120 #define WRITEHSCXFIFO(cs, nr, ptr, cnt) writefifo(cs->hw.niccy.hscx_ale, \
 121                 cs->hw.niccy.hscx, (nr ? 0x40 : 0), ptr, cnt)
 122
 123 #include "hscx_irq.c"
 124
 125 static irqreturn_t niccy_interrupt(int intno, void *dev_id)
 126 {
 127         struct IsdnCardState *cs = dev_id;
 128         u_char val;
 129         u_long flags;
 130
 131         spin_lock_irqsave(&cs->lock, flags);
 132         if (cs->subtyp == NICCY_PCI) {
 133                 int ival;
 134                 ival = inl(cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
 135                 if (!(ival & PCI_IRQ_ASSERT)) { /* IRQ not for us (shared) */
 136                         spin_unlock_irqrestore(&cs->lock, flags);
 137                         return IRQ_NONE;
 138                 }
 139                 outl(ival, cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
 140         }
 141         val = readreg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx,
 142                         HSCX_ISTA + 0x40);
 143 Start_HSCX:
 144         if (val)
 145                 hscx_int_main(cs, val);
 146         val = readreg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_ISTA);
 147 Start_ISAC:
 148         if (val)
 149                 isac_interrupt(cs, val);
 150         val = readreg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx,
 151                         HSCX_ISTA + 0x40);
 152         if (val) {
 153                 if (cs->debug & L1_DEB_HSCX)
 154                         debugl1(cs, "HSCX IntStat after IntRoutine");
 155                 goto Start_HSCX;
 156         }
 157         val = readreg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_ISTA);
 158         if (val) {
 159                 if (cs->debug & L1_DEB_ISAC)
 160                         debugl1(cs, "ISAC IntStat after IntRoutine");
 161                 goto Start_ISAC;
 162         }
 163         writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK, 0xFF);
 164         writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK + 0x40,
 165                  0xFF);
 166         writereg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_MASK, 0xFF);
 167         writereg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_MASK, 0);
 168         writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK, 0);
 169         writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK + 0x40,0);
 170         spin_unlock_irqrestore(&cs->lock, flags);
 171         return IRQ_HANDLED;
 172 }
 173
 174 static void release_io_niccy(struct IsdnCardState *cs)
 175 {
 176         if (cs->subtyp == NICCY_PCI) {
 177                 int val;
 178
 179                 val = inl(cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
 180                 val &= PCI_IRQ_DISABLE;
 181                 outl(val, cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
 182                 release_region(cs->hw.niccy.cfg_reg, 0x40);
 183                 release_region(cs->hw.niccy.isac, 4);
 184         } else {
 185                 release_region(cs->hw.niccy.isac, 2);
 186                 release_region(cs->hw.niccy.isac_ale, 2);
 187         }
 188 }
 189
 190 static void niccy_reset(struct IsdnCardState *cs)
 191 {
 192         if (cs->subtyp == NICCY_PCI) {
 193                 int val;
 194
 195                 val = inl(cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
 196                 val |= PCI_IRQ_ENABLE;
 197                 outl(val, cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
 198         }
 199         inithscxisac(cs, 3);
 200 }
 201
 202 static int niccy_card_msg(struct IsdnCardState *cs, int mt, void *arg)
 203 {
 204         u_long flags;
 205
 206         switch (mt) {
 207         case CARD_RESET:
 208                 spin_lock_irqsave(&cs->lock, flags);
 209                 niccy_reset(cs);
 210                 spin_unlock_irqrestore(&cs->lock, flags);
 211                 return 0;
 212         case CARD_RELEASE:
 213                 release_io_niccy(cs);
 214                 return 0;
 215         case CARD_INIT:
 216                 spin_lock_irqsave(&cs->lock, flags);
 217                 niccy_reset(cs);
 218                 spin_unlock_irqrestore(&cs->lock, flags);
 219                 return 0;
 220         case CARD_TEST:
 221                 return 0;
 222         }
 223         return 0;
 224 }
 225
 226 #ifdef __ISAPNP__
 227 static struct pnp_card *pnp_c __devinitdata = NULL;
 228 #endif
 229
 230 int __devinit setup_niccy(struct IsdnCard *card)
 231 {
 232         struct IsdnCardState *cs = card->cs;
 233         char tmp[64];
 234
 235         strcpy(tmp, niccy_revision);
 236         printk(KERN_INFO "HiSax: Niccy driver Rev. %s\n", HiSax_getrev(tmp));
 237         if (cs->typ != ISDN_CTYPE_NICCY)
 238                 return 0;
 239 #ifdef __ISAPNP__
 240         if (!card->para[1] && isapnp_present()) {
 241                 struct pnp_dev *pnp_d = NULL;
 242                 int err;
 243
 244                 pnp_c = pnp_find_card(ISAPNP_VENDOR('S', 'D', 'A'),
 245                                 ISAPNP_FUNCTION(0x0150), pnp_c);
 246                 if (pnp_c) {
 247                         pnp_d = pnp_find_dev(pnp_c,
 248                                         ISAPNP_VENDOR('S', 'D', 'A'),
 249                                         ISAPNP_FUNCTION(0x0150), pnp_d);
 250                         if (!pnp_d) {
 251                                 printk(KERN_ERR "NiccyPnP: PnP error card "
 252                                         "found, no device\n");
 253                                 return 0;
 254                         }
 255                         pnp_disable_dev(pnp_d);
 256                         err = pnp_activate_dev(pnp_d);
 257                         if (err < 0) {
 258                                 printk(KERN_WARNING "%s: pnp_activate_dev "
 259                                         "ret(%d)\n", __FUNCTION__, err);
 260                                 return 0;
 261                         }
 262                         card->para[1] = pnp_port_start(pnp_d, 0);
 263                         card->para[2] = pnp_port_start(pnp_d, 1);
 264                         card->para[0] = pnp_irq(pnp_d, 0);
 265                         if (!card->para[0] || !card->para[1] ||
 266                                         !card->para[2]) {
 267                                 printk(KERN_ERR "NiccyPnP:some resources are "
 268                                         "missing %ld/%lx/%lx\n",
 269                                         card->para[0], card->para[1],
 270                                         card->para[2]);
 271                                 pnp_disable_dev(pnp_d);
 272                                 return 0;
 273                         }
 274                 } else
 275                         printk(KERN_INFO "NiccyPnP: no ISAPnP card found\n");
 276         }
 277 #endif
 278         if (card->para[1]) {
 279                 cs->hw.niccy.isac = card->para[1] + ISAC_PNP;
 280                 cs->hw.niccy.hscx = card->para[1] + HSCX_PNP;
 281                 cs->hw.niccy.isac_ale = card->para[2] + ISAC_PNP;
 282                 cs->hw.niccy.hscx_ale = card->para[2] + HSCX_PNP;
 283                 cs->hw.niccy.cfg_reg = 0;
 284                 cs->subtyp = NICCY_PNP;
 285                 cs->irq = card->para[0];
 286                 if (!request_region(cs->hw.niccy.isac, 2, "niccy data")) {
 287                         printk(KERN_WARNING "HiSax: %s data port %x-%x "
 288                                 "already in use\n", CardType[card->typ],
 289                                 cs->hw.niccy.isac, cs->hw.niccy.isac + 1);
 290                         return 0;
 291                 }
 292                 if (!request_region(cs->hw.niccy.isac_ale, 2, "niccy addr")) {
 293                         printk(KERN_WARNING "HiSax: %s address port %x-%x "
 294                                 "already in use\n", CardType[card->typ],
 295                                 cs->hw.niccy.isac_ale,
 296                                 cs->hw.niccy.isac_ale + 1);
 297                         release_region(cs->hw.niccy.isac, 2);
 298                         return 0;
 299                 }
 300         } else {
 301 #ifdef CONFIG_PCI_LEGACY
 302                 static struct pci_dev *niccy_dev __devinitdata;
 303
 304                 u_int pci_ioaddr;
 305                 cs->subtyp = 0;
 306                 if ((niccy_dev = pci_find_device(PCI_VENDOR_ID_SATSAGEM,
 307                                                  PCI_DEVICE_ID_SATSAGEM_NICCY,
 308                                                  niccy_dev))) {
 309                         if (pci_enable_device(niccy_dev))
 310                                 return 0;
 311                         /* get IRQ */
 312                         if (!niccy_dev->irq) {
 313                                 printk(KERN_WARNING
 314                                        "Niccy: No IRQ for PCI card found\n");
 315                                 return 0;
 316                         }
 317                         cs->irq = niccy_dev->irq;
 318                         cs->hw.niccy.cfg_reg = pci_resource_start(niccy_dev, 0);
 319                         if (!cs->hw.niccy.cfg_reg) {
 320                                 printk(KERN_WARNING
 321                                        "Niccy: No IO-Adr for PCI cfg found\n");
 322                                 return 0;
 323                         }
 324                         pci_ioaddr = pci_resource_start(niccy_dev, 1);
 325                         if (!pci_ioaddr) {
 326                                 printk(KERN_WARNING
 327                                        "Niccy: No IO-Adr for PCI card found\n");
 328                                 return 0;
 329                         }
 330                         cs->subtyp = NICCY_PCI;
 331                 } else {
 332                         printk(KERN_WARNING "Niccy: No PCI card found\n");
 333                         return 0;
 334                 }
 335                 cs->irq_flags |= IRQF_SHARED;
 336                 cs->hw.niccy.isac = pci_ioaddr + ISAC_PCI_DATA;
 337                 cs->hw.niccy.isac_ale = pci_ioaddr + ISAC_PCI_ADDR;
 338                 cs->hw.niccy.hscx = pci_ioaddr + HSCX_PCI_DATA;
 339                 cs->hw.niccy.hscx_ale = pci_ioaddr + HSCX_PCI_ADDR;
 340                 if (!request_region(cs->hw.niccy.isac, 4, "niccy")) {
 341                         printk(KERN_WARNING
 342                                "HiSax: %s data port %x-%x already in use\n",
 343                                CardType[card->typ],
 344                                cs->hw.niccy.isac, cs->hw.niccy.isac + 4);
 345                         return 0;
 346                 }
 347                 if (!request_region(cs->hw.niccy.cfg_reg, 0x40, "niccy pci")) {
 348                         printk(KERN_WARNING
 349                                "HiSax: %s pci port %x-%x already in use\n",
 350                                CardType[card->typ],
 351                                cs->hw.niccy.cfg_reg,
 352                                cs->hw.niccy.cfg_reg + 0x40);
 353                         release_region(cs->hw.niccy.isac, 4);
 354                         return 0;
 355                 }
 356 #else
 357                 printk(KERN_WARNING "Niccy: io0 0 and NO_PCI_BIOS\n");
 358                 printk(KERN_WARNING "Niccy: unable to config NICCY PCI\n");
 359                 return 0;
 360 #endif                          /* CONFIG_PCI_LEGACY */
 361         }
 362         printk(KERN_INFO "HiSax: %s %s config irq:%d data:0x%X ale:0x%X\n",
 363                 CardType[cs->typ], (cs->subtyp == 1) ? "PnP" : "PCI",
 364                 cs->irq, cs->hw.niccy.isac, cs->hw.niccy.isac_ale);
 365         setup_isac(cs);
 366         cs->readisac = &ReadISAC;
 367         cs->writeisac = &WriteISAC;
 368         cs->readisacfifo = &ReadISACfifo;
 369         cs->writeisacfifo = &WriteISACfifo;
 370         cs->BC_Read_Reg = &ReadHSCX;
 371         cs->BC_Write_Reg = &WriteHSCX;
 372         cs->BC_Send_Data = &hscx_fill_fifo;
 373         cs->cardmsg = &niccy_card_msg;
 374         cs->irq_func = &niccy_interrupt;
 375         ISACVersion(cs, "Niccy:");
 376         if (HscxVersion(cs, "Niccy:")) {
 377                 printk(KERN_WARNING "Niccy: wrong HSCX versions check IO "
 378                         "address\n");
 379                 release_io_niccy(cs);
 380                 return 0;
 381         }
 382         return 1;
 383 }