kernel/drivers/isdn/hisax/ix1_micro.c

   1 /* $Id: ix1_micro.c,v 2.12.2.4 2004/01/13 23:48:39 keil Exp $
   2  *
   3  * low level stuff for ITK ix1-micro Rev.2 isdn cards
   4  * derived from the original file teles3.c from Karsten Keil
   5  *
   6  * Author       Klaus-Peter Nischke
   7  * Copyright    by Klaus-Peter Nischke, ITK AG
   8  *                                   <klaus@nischke.do.eunet.de>
   9  *              by Karsten Keil      <keil@isdn4linux.de>
  10  *
  11  * This software may be used and distributed according to the terms
  12  * of the GNU General Public License, incorporated herein by reference.
  13  *
  14  * Klaus-Peter Nischke
  15  * Deusener Str. 287
  16  * 44369 Dortmund
  17  * Germany
  18  */
  19
  20 #include <linux/init.h>
  21 #include <linux/isapnp.h>
  22 #include "hisax.h"
  23 #include "isac.h"
  24 #include "hscx.h"
  25 #include "isdnl1.h"
  26
  27 static const char *ix1_revision = "$Revision: 2.12.2.4 $";
  28
  29 #define byteout(addr, val) outb(val, addr)
  30 #define bytein(addr) inb(addr)
  31
  32 #define SPECIAL_PORT_OFFSET 3
  33
  34 #define ISAC_COMMAND_OFFSET 2
  35 #define ISAC_DATA_OFFSET 0
  36 #define HSCX_COMMAND_OFFSET 2
  37 #define HSCX_DATA_OFFSET 1
  38
  39 #define TIMEOUT 50
  40
  41 static inline u_char
  42 readreg(unsigned int ale, unsigned int adr, u_char off)
  43 {
  44         register u_char ret;
  45
  46         byteout(ale, off);
  47         ret = bytein(adr);
  48         return (ret);
  49 }
  50
  51 static inline void
  52 readfifo(unsigned int ale, unsigned int adr, u_char off, u_char *data, int size)
  53 {
  54         byteout(ale, off);
  55         insb(adr, data, size);
  56 }
  57
  58
  59 static inline void
  60 writereg(unsigned int ale, unsigned int adr, u_char off, u_char data)
  61 {
  62         byteout(ale, off);
  63         byteout(adr, data);
  64 }
  65
  66 static inline void
  67 writefifo(unsigned int ale, unsigned int adr, u_char off, u_char *data, int size)
  68 {
  69         byteout(ale, off);
  70         outsb(adr, data, size);
  71 }
  72
  73 /* Interface functions */
  74
  75 static u_char
  76 ReadISAC(struct IsdnCardState *cs, u_char offset)
  77 {
  78         return (readreg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, offset));
  79 }
  80
  81 static void
  82 WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value)
  83 {
  84         writereg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, offset, value);
  85 }
  86
  87 static void
  88 ReadISACfifo(struct IsdnCardState *cs, u_char *data, int size)
  89 {
  90         readfifo(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, 0, data, size);
  91 }
  92
  93 static void
  94 WriteISACfifo(struct IsdnCardState *cs, u_char *data, int size)
  95 {
  96         writefifo(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, 0, data, size);
  97 }
  98
  99 static u_char
 100 ReadHSCX(struct IsdnCardState *cs, int hscx, u_char offset)
 101 {
 102         return (readreg(cs->hw.ix1.hscx_ale,
 103                         cs->hw.ix1.hscx, offset + (hscx ? 0x40 : 0)));
 104 }
 105
 106 static void
 107 WriteHSCX(struct IsdnCardState *cs, int hscx, u_char offset, u_char value)
 108 {
 109         writereg(cs->hw.ix1.hscx_ale,
 110                  cs->hw.ix1.hscx, offset + (hscx ? 0x40 : 0), value);
 111 }
 112
 113 #define READHSCX(cs, nr, reg) readreg(cs->hw.ix1.hscx_ale,              \
 114                                       cs->hw.ix1.hscx, reg + (nr ? 0x40 : 0))
 115 #define WRITEHSCX(cs, nr, reg, data) writereg(cs->hw.ix1.hscx_ale,      \
 116                                               cs->hw.ix1.hscx, reg + (nr ? 0x40 : 0), data)
 117
 118 #define READHSCXFIFO(cs, nr, ptr, cnt) readfifo(cs->hw.ix1.hscx_ale,    \
 119                                                 cs->hw.ix1.hscx, (nr ? 0x40 : 0), ptr, cnt)
 120
 121 #define WRITEHSCXFIFO(cs, nr, ptr, cnt) writefifo(cs->hw.ix1.hscx_ale,  \
 122                                                   cs->hw.ix1.hscx, (nr ? 0x40 : 0), ptr, cnt)
 123
 124 #include "hscx_irq.c"
 125
 126 static irqreturn_t
 127 ix1micro_interrupt(int intno, void *dev_id)
 128 {
 129         struct IsdnCardState *cs = dev_id;
 130         u_char val;
 131         u_long flags;
 132
 133         spin_lock_irqsave(&cs->lock, flags);
 134         val = readreg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_ISTA + 0x40);
 135 Start_HSCX:
 136         if (val)
 137                 hscx_int_main(cs, val);
 138         val = readreg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_ISTA);
 139 Start_ISAC:
 140         if (val)
 141                 isac_interrupt(cs, val);
 142         val = readreg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_ISTA + 0x40);
 143         if (val) {
 144                 if (cs->debug & L1_DEB_HSCX)
 145                         debugl1(cs, "HSCX IntStat after IntRoutine");
 146                 goto Start_HSCX;
 147         }
 148         val = readreg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_ISTA);
 149         if (val) {
 150                 if (cs->debug & L1_DEB_ISAC)
 151                         debugl1(cs, "ISAC IntStat after IntRoutine");
 152                 goto Start_ISAC;
 153         }
 154         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK, 0xFF);
 155         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK + 0x40, 0xFF);
 156         writereg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_MASK, 0xFF);
 157         writereg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_MASK, 0);
 158         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK, 0);
 159         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK + 0x40, 0);
 160         spin_unlock_irqrestore(&cs->lock, flags);
 161         return IRQ_HANDLED;
 162 }
 163
 164 static void
 165 release_io_ix1micro(struct IsdnCardState *cs)
 166 {
 167         if (cs->hw.ix1.cfg_reg)
 168                 release_region(cs->hw.ix1.cfg_reg, 4);
 169 }
 170
 171 static void
 172 ix1_reset(struct IsdnCardState *cs)
 173 {
 174         int cnt;
 175
 176         /* reset isac */
 177         cnt = 3 * (HZ / 10) + 1;
 178         while (cnt--) {
 179                 byteout(cs->hw.ix1.cfg_reg + SPECIAL_PORT_OFFSET, 1);
 180                 HZDELAY(1);     /* wait >=10 ms */
 181         }
 182         byteout(cs->hw.ix1.cfg_reg + SPECIAL_PORT_OFFSET, 0);
 183 }
 184
 185 static int
 186 ix1_card_msg(struct IsdnCardState *cs, int mt, void *arg)
 187 {
 188         u_long flags;
 189
 190         switch (mt) {
 191         case CARD_RESET:
 192                 spin_lock_irqsave(&cs->lock, flags);
 193                 ix1_reset(cs);
 194                 spin_unlock_irqrestore(&cs->lock, flags);
 195                 return (0);
 196         case CARD_RELEASE:
 197                 release_io_ix1micro(cs);
 198                 return (0);
 199         case CARD_INIT:
 200                 spin_lock_irqsave(&cs->lock, flags);
 201                 ix1_reset(cs);
 202                 inithscxisac(cs, 3);
 203                 spin_unlock_irqrestore(&cs->lock, flags);
 204                 return (0);
 205         case CARD_TEST:
 206                 return (0);
 207         }
 208         return (0);
 209 }
 210
 211 #ifdef __ISAPNP__
 212 static struct isapnp_device_id itk_ids[] = {
 213         { ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x25),
 214           ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x25),
 215           (unsigned long) "ITK micro 2" },
 216         { ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x29),
 217           ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x29),
 218           (unsigned long) "ITK micro 2." },
 219         { 0, }
 220 };
 221
 222 static struct isapnp_device_id *ipid = &itk_ids[0];
 223 static struct pnp_card *pnp_c = NULL;
 224 #endif
 225
 226
 227 int setup_ix1micro(struct IsdnCard *card)
 228 {
 229         struct IsdnCardState *cs = card->cs;
 230         char tmp[64];
 231
 232         strcpy(tmp, ix1_revision);
 233         printk(KERN_INFO "HiSax: ITK IX1 driver Rev. %s\n", HiSax_getrev(tmp));
 234         if (cs->typ != ISDN_CTYPE_IX1MICROR2)
 235                 return (0);
 236
 237 #ifdef __ISAPNP__
 238         if (!card->para[1] && isapnp_present()) {
 239                 struct pnp_dev *pnp_d;
 240                 while (ipid->card_vendor) {
 241                         if ((pnp_c = pnp_find_card(ipid->card_vendor,
 242                                                    ipid->card_device, pnp_c))) {
 243                                 pnp_d = NULL;
 244                                 if ((pnp_d = pnp_find_dev(pnp_c,
 245                                                           ipid->vendor, ipid->function, pnp_d))) {
 246                                         int err;
 247
 248                                         printk(KERN_INFO "HiSax: %s detected\n",
 249                                                (char *)ipid->driver_data);
 250                                         pnp_disable_dev(pnp_d);
 251                                         err = pnp_activate_dev(pnp_d);
 252                                         if (err < 0) {
 253                                                 printk(KERN_WARNING "%s: pnp_activate_dev ret(%d)\n",
 254                                                        __func__, err);
 255                                                 return (0);
 256                                         }
 257                                         card->para[1] = pnp_port_start(pnp_d, 0);
 258                                         card->para[0] = pnp_irq(pnp_d, 0);
 259                                         if (!card->para[0] || !card->para[1]) {
 260                                                 printk(KERN_ERR "ITK PnP:some resources are missing %ld/%lx\n",
 261                                                        card->para[0], card->para[1]);
 262                                                 pnp_disable_dev(pnp_d);
 263                                                 return (0);
 264                                         }
 265                                         break;
 266                                 } else {
 267                                         printk(KERN_ERR "ITK PnP: PnP error card found, no device\n");
 268                                 }
 269                         }
 270                         ipid++;
 271                         pnp_c = NULL;
 272                 }
 273                 if (!ipid->card_vendor) {
 274                         printk(KERN_INFO "ITK PnP: no ISAPnP card found\n");
 275                         return (0);
 276                 }
 277         }
 278 #endif
 279         /* IO-Ports */
 280         cs->hw.ix1.isac_ale = card->para[1] + ISAC_COMMAND_OFFSET;
 281         cs->hw.ix1.hscx_ale = card->para[1] + HSCX_COMMAND_OFFSET;
 282         cs->hw.ix1.isac = card->para[1] + ISAC_DATA_OFFSET;
 283         cs->hw.ix1.hscx = card->para[1] + HSCX_DATA_OFFSET;
 284         cs->hw.ix1.cfg_reg = card->para[1];
 285         cs->irq = card->para[0];
 286         if (cs->hw.ix1.cfg_reg) {
 287                 if (!request_region(cs->hw.ix1.cfg_reg, 4, "ix1micro cfg")) {
 288                         printk(KERN_WARNING
 289                                "HiSax: ITK ix1-micro Rev.2 config port "
 290                                "%x-%x already in use\n",
 291                                cs->hw.ix1.cfg_reg,
 292                                cs->hw.ix1.cfg_reg + 4);
 293                         return (0);
 294                 }
 295         }
 296         printk(KERN_INFO "HiSax: ITK ix1-micro Rev.2 config irq:%d io:0x%X\n",
 297                cs->irq, cs->hw.ix1.cfg_reg);
 298         setup_isac(cs);
 299         cs->readisac = &ReadISAC;
 300         cs->writeisac = &WriteISAC;
 301         cs->readisacfifo = &ReadISACfifo;
 302         cs->writeisacfifo = &WriteISACfifo;
 303         cs->BC_Read_Reg = &ReadHSCX;
 304         cs->BC_Write_Reg = &WriteHSCX;
 305         cs->BC_Send_Data = &hscx_fill_fifo;
 306         cs->cardmsg = &ix1_card_msg;
 307         cs->irq_func = &ix1micro_interrupt;
 308         ISACVersion(cs, "ix1-Micro:");
 309         if (HscxVersion(cs, "ix1-Micro:")) {
 310                 printk(KERN_WARNING
 311                        "ix1-Micro: wrong HSCX versions check IO address\n");
 312                 release_io_ix1micro(cs);
 313                 return (0);
 314         }
 315         return (1);
 316 }