drivers/isdn/hardware/avm/t1isa.c

   1 /* $Id: t1isa.c,v 1.16.6.7 2001/09/23 22:24:34 kai Exp $
   2  *
   3  * Module for AVM T1 HEMA-card.
   4  *
   5  * Copyright 1999 by Carsten Paeth <calle@calle.de>
   6  *
   7  * This software may be used and distributed according to the terms
   8  * of the GNU General Public License, incorporated herein by reference.
   9  *
  10  */
  11
  12 #include <linux/module.h>
  13 #include <linux/kernel.h>
  14 #include <linux/skbuff.h>
  15 #include <linux/delay.h>
  16 #include <linux/mm.h>
  17 #include <linux/interrupt.h>
  18 #include <linux/ioport.h>
  19 #include <linux/capi.h>
  20 #include <linux/netdevice.h>
  21 #include <linux/kernelcapi.h>
  22 #include <linux/init.h>
  23 #include <linux/pci.h>
  24 #include <asm/io.h>
  25 #include <linux/isdn/capicmd.h>
  26 #include <linux/isdn/capiutil.h>
  27 #include <linux/isdn/capilli.h>
  28 #include "avmcard.h"
  29
  30 /* ------------------------------------------------------------- */
  31
  32 MODULE_DESCRIPTION("CAPI4Linux: Driver for AVM T1 HEMA ISA card");
  33 MODULE_AUTHOR("Carsten Paeth");
  34 MODULE_LICENSE("GPL");
  35
  36 /* ------------------------------------------------------------- */
  37
  38 static int hema_irq_table[16] =
  39 {0,
  40  0,
  41  0,
  42  0x80,                          /* irq 3 */
  43  0,
  44  0x90,                          /* irq 5 */
  45  0,
  46  0xA0,                          /* irq 7 */
  47  0,
  48  0xB0,                          /* irq 9 */
  49  0xC0,                          /* irq 10 */
  50  0xD0,                          /* irq 11 */
  51  0xE0,                          /* irq 12 */
  52  0,
  53  0,
  54  0xF0,                          /* irq 15 */
  55 };
  56
  57 static int t1_detectandinit(unsigned int base, unsigned irq, int cardnr)
  58 {
  59         unsigned char cregs[8];
  60         unsigned char reverse_cardnr;
  61         unsigned long flags;
  62         unsigned char dummy;
  63         int i;
  64
  65         reverse_cardnr =   ((cardnr & 0x01) << 3) | ((cardnr & 0x02) << 1)
  66                          | ((cardnr & 0x04) >> 1) | ((cardnr & 0x08) >> 3);
  67         cregs[0] = (HEMA_VERSION_ID << 4) | (reverse_cardnr & 0xf);
  68         cregs[1] = 0x00; /* fast & slow link connected to CON1 */
  69         cregs[2] = 0x05; /* fast link 20MBit, slow link 20 MBit */
  70         cregs[3] = 0;
  71         cregs[4] = 0x11; /* zero wait state */
  72         cregs[5] = hema_irq_table[irq & 0xf];
  73         cregs[6] = 0;
  74         cregs[7] = 0;
  75
  76         save_flags(flags);
  77         cli();
  78         /* board reset */
  79         t1outp(base, T1_RESETBOARD, 0xf);
  80         mdelay(100);
  81         dummy = t1inp(base, T1_FASTLINK+T1_OUTSTAT); /* first read */
  82
  83         /* write config */
  84         dummy = (base >> 4) & 0xff;
  85         for (i=1;i<=0xf;i++) t1outp(base, i, dummy);
  86         t1outp(base, HEMA_PAL_ID & 0xf, dummy);
  87         t1outp(base, HEMA_PAL_ID >> 4, cregs[0]);
  88         for(i=1;i<7;i++) t1outp(base, 0, cregs[i]);
  89         t1outp(base, ((base >> 4)) & 0x3, cregs[7]);
  90         restore_flags(flags);
  91
  92         mdelay(100);
  93         t1outp(base, T1_FASTLINK+T1_RESETLINK, 0);
  94         t1outp(base, T1_SLOWLINK+T1_RESETLINK, 0);
  95         mdelay(10);
  96         t1outp(base, T1_FASTLINK+T1_RESETLINK, 1);
  97         t1outp(base, T1_SLOWLINK+T1_RESETLINK, 1);
  98         mdelay(100);
  99         t1outp(base, T1_FASTLINK+T1_RESETLINK, 0);
 100         t1outp(base, T1_SLOWLINK+T1_RESETLINK, 0);
 101         mdelay(10);
 102         t1outp(base, T1_FASTLINK+T1_ANALYSE, 0);
 103         mdelay(5);
 104         t1outp(base, T1_SLOWLINK+T1_ANALYSE, 0);
 105
 106         if (t1inp(base, T1_FASTLINK+T1_OUTSTAT) != 0x1) /* tx empty */
 107                 return 1;
 108         if (t1inp(base, T1_FASTLINK+T1_INSTAT) != 0x0) /* rx empty */
 109                 return 2;
 110         if (t1inp(base, T1_FASTLINK+T1_IRQENABLE) != 0x0)
 111                 return 3;
 112         if ((t1inp(base, T1_FASTLINK+T1_FIFOSTAT) & 0xf0) != 0x70)
 113                 return 4;
 114         if ((t1inp(base, T1_FASTLINK+T1_IRQMASTER) & 0x0e) != 0)
 115                 return 5;
 116         if ((t1inp(base, T1_FASTLINK+T1_IDENT) & 0x7d) != 1)
 117                 return 6;
 118         if (t1inp(base, T1_SLOWLINK+T1_OUTSTAT) != 0x1) /* tx empty */
 119                 return 7;
 120         if ((t1inp(base, T1_SLOWLINK+T1_IRQMASTER) & 0x0e) != 0)
 121                 return 8;
 122         if ((t1inp(base, T1_SLOWLINK+T1_IDENT) & 0x7d) != 0)
 123                 return 9;
 124         return 0;
 125 }
 126
 127 static irqreturn_t t1isa_interrupt(int interrupt, void *devptr, struct pt_regs *regs)
 128 {
 129         avmcard *card = devptr;
 130         avmctrl_info *cinfo = &card->ctrlinfo[0];
 131         struct capi_ctr *ctrl = &cinfo->capi_ctrl;
 132         unsigned char b1cmd;
 133         struct sk_buff *skb;
 134
 135         unsigned ApplId;
 136         unsigned MsgLen;
 137         unsigned DataB3Len;
 138         unsigned NCCI;
 139         unsigned WindowSize;
 140
 141         while (b1_rx_full(card->port)) {
 142
 143                 b1cmd = b1_get_byte(card->port);
 144
 145                 switch (b1cmd) {
 146
 147                 case RECEIVE_DATA_B3_IND:
 148
 149                         ApplId = (unsigned) b1_get_word(card->port);
 150                         MsgLen = t1_get_slice(card->port, card->msgbuf);
 151                         DataB3Len = t1_get_slice(card->port, card->databuf);
 152
 153                         if (MsgLen < 30) { /* not CAPI 64Bit */
 154                                 memset(card->msgbuf+MsgLen, 0, 30-MsgLen);
 155                                 MsgLen = 30;
 156                                 CAPIMSG_SETLEN(card->msgbuf, 30);
 157                         }
 158                         if (!(skb = alloc_skb(DataB3Len+MsgLen, GFP_ATOMIC))) {
 159                                 printk(KERN_ERR "%s: incoming packet dropped\n",
 160                                         card->name);
 161                         } else {
 162                                 memcpy(skb_put(skb, MsgLen), card->msgbuf, MsgLen);
 163                                 memcpy(skb_put(skb, DataB3Len), card->databuf, DataB3Len);
 164                                 capi_ctr_handle_message(ctrl, ApplId, skb);
 165                         }
 166                         break;
 167
 168                 case RECEIVE_MESSAGE:
 169
 170                         ApplId = (unsigned) b1_get_word(card->port);
 171                         MsgLen = t1_get_slice(card->port, card->msgbuf);
 172                         if (!(skb = alloc_skb(MsgLen, GFP_ATOMIC))) {
 173                                 printk(KERN_ERR "%s: incoming packet dropped\n",
 174                                                 card->name);
 175                         } else {
 176                                 memcpy(skb_put(skb, MsgLen), card->msgbuf, MsgLen);
 177                                 if (CAPIMSG_CMD(skb->data) == CAPI_DATA_B3)
 178                                         capilib_data_b3_conf(&cinfo->ncci_head, ApplId,
 179                                                              CAPIMSG_NCCI(skb->data),
 180                                                              CAPIMSG_MSGID(skb->data));
 181
 182                                 capi_ctr_handle_message(ctrl, ApplId, skb);
 183                         }
 184                         break;
 185
 186                 case RECEIVE_NEW_NCCI:
 187
 188                         ApplId = b1_get_word(card->port);
 189                         NCCI = b1_get_word(card->port);
 190                         WindowSize = b1_get_word(card->port);
 191
 192                         capilib_new_ncci(&cinfo->ncci_head, ApplId, NCCI, WindowSize);
 193
 194                         break;
 195
 196                 case RECEIVE_FREE_NCCI:
 197
 198                         ApplId = b1_get_word(card->port);
 199                         NCCI = b1_get_word(card->port);
 200
 201                         if (NCCI != 0xffffffff)
 202                                 capilib_free_ncci(&cinfo->ncci_head, ApplId, NCCI);
 203
 204                         break;
 205
 206                 case RECEIVE_START:
 207                         b1_put_byte(card->port, SEND_POLLACK);
 208                         capi_ctr_resume_output(ctrl);
 209                         break;
 210
 211                 case RECEIVE_STOP:
 212                         capi_ctr_suspend_output(ctrl);
 213                         break;
 214
 215                 case RECEIVE_INIT:
 216
 217                         cinfo->versionlen = t1_get_slice(card->port, cinfo->versionbuf);
 218                         b1_parse_version(cinfo);
 219                         printk(KERN_INFO "%s: %s-card (%s) now active\n",
 220                                card->name,
 221                                cinfo->version[VER_CARDTYPE],
 222                                cinfo->version[VER_DRIVER]);
 223                         capi_ctr_ready(ctrl);
 224                         break;
 225
 226                 case RECEIVE_TASK_READY:
 227                         ApplId = (unsigned) b1_get_word(card->port);
 228                         MsgLen = t1_get_slice(card->port, card->msgbuf);
 229                         card->msgbuf[MsgLen] = 0;
 230                         while (    MsgLen > 0
 231                                && (   card->msgbuf[MsgLen-1] == '\n'
 232                                    || card->msgbuf[MsgLen-1] == '\r')) {
 233                                 card->msgbuf[MsgLen-1] = 0;
 234                                 MsgLen--;
 235                         }
 236                         printk(KERN_INFO "%s: task %d \"%s\" ready.\n",
 237                                         card->name, ApplId, card->msgbuf);
 238                         break;
 239
 240                 case RECEIVE_DEBUGMSG:
 241                         MsgLen = t1_get_slice(card->port, card->msgbuf);
 242                         card->msgbuf[MsgLen] = 0;
 243                         while (    MsgLen > 0
 244                                && (   card->msgbuf[MsgLen-1] == '\n'
 245                                    || card->msgbuf[MsgLen-1] == '\r')) {
 246                                 card->msgbuf[MsgLen-1] = 0;
 247                                 MsgLen--;
 248                         }
 249                         printk(KERN_INFO "%s: DEBUG: %s\n", card->name, card->msgbuf);
 250                         break;
 251
 252
 253                 case 0xff:
 254                         printk(KERN_ERR "%s: card reseted ?\n", card->name);
 255                         return IRQ_HANDLED;
 256                 default:
 257                         printk(KERN_ERR "%s: b1_interrupt: 0x%x ???\n",
 258                                         card->name, b1cmd);
 259                         return IRQ_NONE;
 260                 }
 261         }
 262         return IRQ_HANDLED;
 263 }
 264
 265 /* ------------------------------------------------------------- */
 266
 267 static int t1isa_load_firmware(struct capi_ctr *ctrl, capiloaddata *data)
 268 {
 269         avmctrl_info *cinfo = (avmctrl_info *)(ctrl->driverdata);
 270         avmcard *card = cinfo->card;
 271         unsigned int port = card->port;
 272         unsigned long flags;
 273         int retval;
 274
 275         t1_disable_irq(port);
 276         b1_reset(port);
 277
 278         if ((retval = b1_load_t4file(card, &data->firmware))) {
 279                 b1_reset(port);
 280                 printk(KERN_ERR "%s: failed to load t4file!!\n",
 281                                         card->name);
 282                 return retval;
 283         }
 284
 285         if (data->configuration.len > 0 && data->configuration.data) {
 286                 if ((retval = b1_load_config(card, &data->configuration))) {
 287                         b1_reset(port);
 288                         printk(KERN_ERR "%s: failed to load config!!\n",
 289                                         card->name);
 290                         return retval;
 291                 }
 292         }
 293
 294         if (!b1_loaded(card)) {
 295                 printk(KERN_ERR "%s: failed to load t4file.\n", card->name);
 296                 return -EIO;
 297         }
 298
 299         save_flags(flags);
 300         cli();
 301         b1_setinterrupt(port, card->irq, card->cardtype);
 302         b1_put_byte(port, SEND_INIT);
 303         b1_put_word(port, CAPI_MAXAPPL);
 304         b1_put_word(port, AVM_NCCI_PER_CHANNEL*30);
 305         b1_put_word(port, ctrl->cnr - 1);
 306         restore_flags(flags);
 307
 308         return 0;
 309 }
 310
 311 void t1isa_reset_ctr(struct capi_ctr *ctrl)
 312 {
 313         avmctrl_info *cinfo = (avmctrl_info *)(ctrl->driverdata);
 314         avmcard *card = cinfo->card;
 315         unsigned int port = card->port;
 316
 317         t1_disable_irq(port);
 318         b1_reset(port);
 319         b1_reset(port);
 320
 321         memset(cinfo->version, 0, sizeof(cinfo->version));
 322         capilib_release(&cinfo->ncci_head);
 323         capi_ctr_reseted(ctrl);
 324 }
 325
 326 static void t1isa_remove(struct pci_dev *pdev)
 327 {
 328         avmctrl_info *cinfo = pci_get_drvdata(pdev);
 329         avmcard *card;
 330
 331         if (!cinfo)
 332                 return;
 333
 334         card = cinfo->card;
 335
 336         t1_disable_irq(card->port);
 337         b1_reset(card->port);
 338         b1_reset(card->port);
 339         t1_reset(card->port);
 340
 341         detach_capi_ctr(&cinfo->capi_ctrl);
 342         free_irq(card->irq, card);
 343         release_region(card->port, AVMB1_PORTLEN);
 344         b1_free_card(card);
 345 }
 346
 347 /* ------------------------------------------------------------- */
 348
 349 static u16 t1isa_send_message(struct capi_ctr *ctrl, struct sk_buff *skb);
 350 static char *t1isa_procinfo(struct capi_ctr *ctrl);
 351
 352 static int __init t1isa_probe(struct pci_dev *pdev, int cardnr)
 353 {
 354         avmctrl_info *cinfo;
 355         avmcard *card;
 356         int retval;
 357
 358         card = b1_alloc_card(1);
 359         if (!card) {
 360                 printk(KERN_WARNING "t1isa: no memory.\n");
 361                 retval = -ENOMEM;
 362                 goto err;
 363         }
 364
 365         cinfo = card->ctrlinfo;
 366         card->port = pci_resource_start(pdev, 0);
 367         card->irq = pdev->irq;
 368         card->cardtype = avm_t1isa;
 369         card->cardnr = cardnr;
 370         sprintf(card->name, "t1isa-%x", card->port);
 371
 372         if (!(((card->port & 0x7) == 0) && ((card->port & 0x30) != 0x30))) {
 373                 printk(KERN_WARNING "t1isa: invalid port 0x%x.\n", card->port);
 374                 retval = -EINVAL;
 375                 goto err_free;
 376         }
 377         if (hema_irq_table[card->irq & 0xf] == 0) {
 378                 printk(KERN_WARNING "t1isa: irq %d not valid.\n", card->irq);
 379                 retval = -EINVAL;
 380                 goto err_free;
 381         }
 382         if (!request_region(card->port, AVMB1_PORTLEN, card->name)) {
 383                 printk(KERN_INFO "t1isa: ports 0x%03x-0x%03x in use.\n",
 384                        card->port, card->port + AVMB1_PORTLEN);
 385                 retval = -EBUSY;
 386                 goto err_free;
 387         }
 388         retval = request_irq(card->irq, t1isa_interrupt, 0, card->name, card);
 389         if (retval) {
 390                 printk(KERN_INFO "t1isa: unable to get IRQ %d.\n", card->irq);
 391                 retval = -EBUSY;
 392                 goto err_release_region;
 393         }
 394
 395         if ((retval = t1_detectandinit(card->port, card->irq, card->cardnr)) != 0) {
 396                 printk(KERN_INFO "t1isa: NO card at 0x%x (%d)\n",
 397                        card->port, retval);
 398                 retval = -ENODEV;
 399                 goto err_free_irq;
 400         }
 401         t1_disable_irq(card->port);
 402         b1_reset(card->port);
 403
 404         cinfo->capi_ctrl.driver_name   = "t1isa";
 405         cinfo->capi_ctrl.driverdata    = cinfo;
 406         cinfo->capi_ctrl.register_appl = b1_register_appl;
 407         cinfo->capi_ctrl.release_appl  = b1_release_appl;
 408         cinfo->capi_ctrl.send_message  = t1isa_send_message;
 409         cinfo->capi_ctrl.load_firmware = t1isa_load_firmware;
 410         cinfo->capi_ctrl.reset_ctr     = t1isa_reset_ctr;
 411         cinfo->capi_ctrl.procinfo      = t1isa_procinfo;
 412         cinfo->capi_ctrl.ctr_read_proc = b1ctl_read_proc;
 413         strcpy(cinfo->capi_ctrl.name, card->name);
 414         cinfo->capi_ctrl.owner = THIS_MODULE;
 415
 416         retval = attach_capi_ctr(&cinfo->capi_ctrl);
 417         if (retval) {
 418                 printk(KERN_INFO "t1isa: attach controller failed.\n");
 419                 goto err_free_irq;
 420         }
 421
 422         printk(KERN_INFO "t1isa: AVM T1 ISA at i/o %#x, irq %d, card %d\n",
 423                card->port, card->irq, card->cardnr);
 424
 425         pci_set_drvdata(pdev, cinfo);
 426         return 0;
 427
 428  err_free_irq:
 429         free_irq(card->irq, card);
 430  err_release_region:
 431         release_region(card->port, AVMB1_PORTLEN);
 432  err_free:
 433         b1_free_card(card);
 434  err:
 435         return retval;
 436 }
 437
 438 static u16 t1isa_send_message(struct capi_ctr *ctrl, struct sk_buff *skb)
 439 {
 440         avmctrl_info *cinfo = (avmctrl_info *)(ctrl->driverdata);
 441         avmcard *card = cinfo->card;
 442         unsigned int port = card->port;
 443         unsigned long flags;
 444         u16 len = CAPIMSG_LEN(skb->data);
 445         u8 cmd = CAPIMSG_COMMAND(skb->data);
 446         u8 subcmd = CAPIMSG_SUBCOMMAND(skb->data);
 447         u16 dlen, retval;
 448
 449         if (CAPICMD(cmd, subcmd) == CAPI_DATA_B3_REQ) {
 450                 retval = capilib_data_b3_req(&cinfo->ncci_head,
 451                                              CAPIMSG_APPID(skb->data),
 452                                              CAPIMSG_NCCI(skb->data),
 453                                              CAPIMSG_MSGID(skb->data));
 454                 if (retval != CAPI_NOERROR)
 455                         goto out;
 456
 457                 dlen = CAPIMSG_DATALEN(skb->data);
 458
 459                 save_flags(flags);
 460                 cli();
 461                 b1_put_byte(port, SEND_DATA_B3_REQ);
 462                 t1_put_slice(port, skb->data, len);
 463                 t1_put_slice(port, skb->data + len, dlen);
 464                 restore_flags(flags);
 465         } else {
 466                 retval = CAPI_NOERROR;
 467
 468                 save_flags(flags);
 469                 cli();
 470                 b1_put_byte(port, SEND_MESSAGE);
 471                 t1_put_slice(port, skb->data, len);
 472                 restore_flags(flags);
 473         }
 474  out:
 475         dev_kfree_skb_any(skb);
 476         return retval;
 477 }
 478 /* ------------------------------------------------------------- */
 479
 480 static char *t1isa_procinfo(struct capi_ctr *ctrl)
 481 {
 482         avmctrl_info *cinfo = (avmctrl_info *)(ctrl->driverdata);
 483
 484         if (!cinfo)
 485                 return "";
 486         sprintf(cinfo->infobuf, "%s %s 0x%x %d %d",
 487                 cinfo->cardname[0] ? cinfo->cardname : "-",
 488                 cinfo->version[VER_DRIVER] ? cinfo->version[VER_DRIVER] : "-",
 489                 cinfo->card ? cinfo->card->port : 0x0,
 490                 cinfo->card ? cinfo->card->irq : 0,
 491                 cinfo->card ? cinfo->card->cardnr : 0
 492                 );
 493         return cinfo->infobuf;
 494 }
 495
 496
 497 /* ------------------------------------------------------------- */
 498
 499 #define MAX_CARDS 4
 500 static struct pci_dev isa_dev[MAX_CARDS];
 501 static int io[MAX_CARDS];
 502 static int irq[MAX_CARDS];
 503 static int cardnr[MAX_CARDS];
 504
 505 MODULE_PARM(io, "1-" __MODULE_STRING(MAX_CARDS) "i");
 506 MODULE_PARM(irq, "1-" __MODULE_STRING(MAX_CARDS) "i");
 507 MODULE_PARM(cardnr, "1-" __MODULE_STRING(MAX_CARDS) "i");
 508 MODULE_PARM_DESC(io, "I/O base address(es)");
 509 MODULE_PARM_DESC(irq, "IRQ number(s) (assigned)");
 510 MODULE_PARM_DESC(cardnr, "Card number(s) (as jumpered)");
 511
 512 static int __init t1isa_init(void)
 513 {
 514         int i;
 515         int found = 0;
 516
 517         for (i = 0; i < MAX_CARDS; i++) {
 518                 if (!io[i])
 519                         break;
 520
 521                 isa_dev[i].resource[0].start = io[i];
 522                 isa_dev[i].irq_resource[0].start = irq[i];
 523
 524                 if (t1isa_probe(&isa_dev[i], cardnr[i]) == 0)
 525                         found++;
 526         }
 527         if (found == 0)
 528                 return -ENODEV;
 529
 530         return 0;
 531 }
 532
 533 static void __exit t1isa_exit(void)
 534 {
 535         int i;
 536
 537         for (i = 0; i < MAX_CARDS; i++) {
 538                 if (!io[i])
 539                         break;
 540
 541                 t1isa_remove(&isa_dev[i]);
 542         }
 543 }
 544
 545 module_init(t1isa_init);
 546 module_exit(t1isa_exit);