1 /* 2 * NETJet mISDN driver 3 * 4 * Author Karsten Keil <keil@isdn4linux.de> 5 * 6 * Copyright 2009 by Karsten Keil <keil@isdn4linux.de> 7 * 8 * This program is free software; you can redistribute it and/or modify 9 * it under the terms of the GNU General Public License version 2 as 10 * published by the Free Software Foundation. 11 * 12 * This program is distributed in the hope that it will be useful, 13 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * GNU General Public License for more details. 16 * 17 * You should have received a copy of the GNU General Public License 18 * along with this program; if not, write to the Free Software 19 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 20 * 21 */ 22 23 #include <linux/interrupt.h> 24 #include <linux/module.h> 25 #include <linux/pci.h> 26 #include <linux/delay.h> 27 #include <linux/mISDNhw.h> 28 #include <linux/slab.h> 29 #include "ipac.h" 30 #include "iohelper.h" 31 #include "netjet.h" 32 #include <linux/isdn/hdlc.h> 33 34 #define NETJET_REV "2.0" 35 36 enum nj_types { 37 NETJET_S_TJ300, 38 NETJET_S_TJ320, 39 ENTERNOW__TJ320, 40 }; 41 42 struct tiger_dma { 43 size_t size; 44 u32 *start; 45 int idx; 46 u32 dmastart; 47 u32 dmairq; 48 u32 dmaend; 49 u32 dmacur; 50 }; 51 52 struct tiger_hw; 53 54 struct tiger_ch { 55 struct bchannel bch; 56 struct tiger_hw *nj; 57 int idx; 58 int free; 59 int lastrx; 60 u16 rxstate; 61 u16 txstate; 62 struct isdnhdlc_vars hsend; 63 struct isdnhdlc_vars hrecv; 64 u8 *hsbuf; 65 u8 *hrbuf; 66 }; 67 68 #define TX_INIT 0x0001 69 #define TX_IDLE 0x0002 70 #define TX_RUN 0x0004 71 #define TX_UNDERRUN 0x0100 72 #define RX_OVERRUN 0x0100 73 74 #define LOG_SIZE 64 75 76 struct tiger_hw { 77 struct list_head list; 78 struct pci_dev *pdev; 79 char name[MISDN_MAX_IDLEN]; 80 enum nj_types typ; 81 int irq; 82 u32 irqcnt; 83 u32 base; 84 size_t base_s; 85 dma_addr_t dma; 86 void *dma_p; 87 spinlock_t lock; /* lock HW */ 88 struct isac_hw isac; 89 struct tiger_dma send; 90 struct tiger_dma recv; 91 struct tiger_ch bc[2]; 92 u8 ctrlreg; 93 u8 dmactrl; 94 u8 auxd; 95 u8 last_is0; 96 u8 irqmask0; 97 char log[LOG_SIZE]; 98 }; 99 100 static LIST_HEAD(Cards); 101 static DEFINE_RWLOCK(card_lock); /* protect Cards */ 102 static u32 debug; 103 static int nj_cnt; 104 105 static void 106 _set_debug(struct tiger_hw *card) 107 { 108 card->isac.dch.debug = debug; 109 card->bc[0].bch.debug = debug; 110 card->bc[1].bch.debug = debug; 111 } 112 113 static int 114 set_debug(const char *val, struct kernel_param *kp) 115 { 116 int ret; 117 struct tiger_hw *card; 118 119 ret = param_set_uint(val, kp); 120 if (!ret) { 121 read_lock(&card_lock); 122 list_for_each_entry(card, &Cards, list) 123 _set_debug(card); 124 read_unlock(&card_lock); 125 } 126 return ret; 127 } 128 129 MODULE_AUTHOR("Karsten Keil"); 130 MODULE_LICENSE("GPL v2"); 131 MODULE_VERSION(NETJET_REV); 132 module_param_call(debug, set_debug, param_get_uint, &debug, S_IRUGO | S_IWUSR); 133 MODULE_PARM_DESC(debug, "Netjet debug mask"); 134 135 static void 136 nj_disable_hwirq(struct tiger_hw *card) 137 { 138 outb(0, card->base + NJ_IRQMASK0); 139 outb(0, card->base + NJ_IRQMASK1); 140 } 141 142 143 static u8 144 ReadISAC_nj(void *p, u8 offset) 145 { 146 struct tiger_hw *card = p; 147 u8 ret; 148 149 card->auxd &= 0xfc; 150 card->auxd |= (offset >> 4) & 3; 151 outb(card->auxd, card->base + NJ_AUXDATA); 152 ret = inb(card->base + NJ_ISAC_OFF + ((offset & 0x0f) << 2)); 153 return ret; 154 } 155 156 static void 157 WriteISAC_nj(void *p, u8 offset, u8 value) 158 { 159 struct tiger_hw *card = p; 160 161 card->auxd &= 0xfc; 162 card->auxd |= (offset >> 4) & 3; 163 outb(card->auxd, card->base + NJ_AUXDATA); 164 outb(value, card->base + NJ_ISAC_OFF + ((offset & 0x0f) << 2)); 165 } 166 167 static void 168 ReadFiFoISAC_nj(void *p, u8 offset, u8 *data, int size) 169 { 170 struct tiger_hw *card = p; 171 172 card->auxd &= 0xfc; 173 outb(card->auxd, card->base + NJ_AUXDATA); 174 insb(card->base + NJ_ISAC_OFF, data, size); 175 } 176 177 static void 178 WriteFiFoISAC_nj(void *p, u8 offset, u8 *data, int size) 179 { 180 struct tiger_hw *card = p; 181 182 card->auxd &= 0xfc; 183 outb(card->auxd, card->base + NJ_AUXDATA); 184 outsb(card->base + NJ_ISAC_OFF, data, size); 185 } 186 187 static void 188 fill_mem(struct tiger_ch *bc, u32 idx, u32 cnt, u32 fill) 189 { 190 struct tiger_hw *card = bc->bch.hw; 191 u32 mask = 0xff, val; 192 193 pr_debug("%s: B%1d fill %02x len %d idx %d/%d\n", card->name, 194 bc->bch.nr, fill, cnt, idx, card->send.idx); 195 if (bc->bch.nr & 2) { 196 fill <<= 8; 197 mask <<= 8; 198 } 199 mask ^= 0xffffffff; 200 while (cnt--) { 201 val = card->send.start[idx]; 202 val &= mask; 203 val |= fill; 204 card->send.start[idx++] = val; 205 if (idx >= card->send.size) 206 idx = 0; 207 } 208 } 209 210 static int 211 mode_tiger(struct tiger_ch *bc, u32 protocol) 212 { 213 struct tiger_hw *card = bc->bch.hw; 214 215 pr_debug("%s: B%1d protocol %x-->%x\n", card->name, 216 bc->bch.nr, bc->bch.state, protocol); 217 switch (protocol) { 218 case ISDN_P_NONE: 219 if (bc->bch.state == ISDN_P_NONE) 220 break; 221 fill_mem(bc, 0, card->send.size, 0xff); 222 bc->bch.state = protocol; 223 /* only stop dma and interrupts if both channels NULL */ 224 if ((card->bc[0].bch.state == ISDN_P_NONE) && 225 (card->bc[1].bch.state == ISDN_P_NONE)) { 226 card->dmactrl = 0; 227 outb(card->dmactrl, card->base + NJ_DMACTRL); 228 outb(0, card->base + NJ_IRQMASK0); 229 } 230 test_and_clear_bit(FLG_HDLC, &bc->bch.Flags); 231 test_and_clear_bit(FLG_TRANSPARENT, &bc->bch.Flags); 232 bc->txstate = 0; 233 bc->rxstate = 0; 234 bc->lastrx = -1; 235 break; 236 case ISDN_P_B_RAW: 237 test_and_set_bit(FLG_TRANSPARENT, &bc->bch.Flags); 238 bc->bch.state = protocol; 239 bc->idx = 0; 240 bc->free = card->send.size / 2; 241 bc->rxstate = 0; 242 bc->txstate = TX_INIT | TX_IDLE; 243 bc->lastrx = -1; 244 if (!card->dmactrl) { 245 card->dmactrl = 1; 246 outb(card->dmactrl, card->base + NJ_DMACTRL); 247 outb(0x0f, card->base + NJ_IRQMASK0); 248 } 249 break; 250 case ISDN_P_B_HDLC: 251 test_and_set_bit(FLG_HDLC, &bc->bch.Flags); 252 bc->bch.state = protocol; 253 bc->idx = 0; 254 bc->free = card->send.size / 2; 255 bc->rxstate = 0; 256 bc->txstate = TX_INIT | TX_IDLE; 257 isdnhdlc_rcv_init(&bc->hrecv, 0); 258 isdnhdlc_out_init(&bc->hsend, 0); 259 bc->lastrx = -1; 260 if (!card->dmactrl) { 261 card->dmactrl = 1; 262 outb(card->dmactrl, card->base + NJ_DMACTRL); 263 outb(0x0f, card->base + NJ_IRQMASK0); 264 } 265 break; 266 default: 267 pr_info("%s: %s protocol %x not handled\n", card->name, 268 __func__, protocol); 269 return -ENOPROTOOPT; 270 } 271 card->send.dmacur = inl(card->base + NJ_DMA_READ_ADR); 272 card->recv.dmacur = inl(card->base + NJ_DMA_WRITE_ADR); 273 card->send.idx = (card->send.dmacur - card->send.dmastart) >> 2; 274 card->recv.idx = (card->recv.dmacur - card->recv.dmastart) >> 2; 275 pr_debug("%s: %s ctrl %x irq %02x/%02x idx %d/%d\n", 276 card->name, __func__, 277 inb(card->base + NJ_DMACTRL), 278 inb(card->base + NJ_IRQMASK0), 279 inb(card->base + NJ_IRQSTAT0), 280 card->send.idx, 281 card->recv.idx); 282 return 0; 283 } 284 285 static void 286 nj_reset(struct tiger_hw *card) 287 { 288 outb(0xff, card->base + NJ_CTRL); /* Reset On */ 289 mdelay(1); 290 291 /* now edge triggered for TJ320 GE 13/07/00 */ 292 /* see comment in IRQ function */ 293 if (card->typ == NETJET_S_TJ320) /* TJ320 */ 294 card->ctrlreg = 0x40; /* Reset Off and status read clear */ 295 else 296 card->ctrlreg = 0x00; /* Reset Off and status read clear */ 297 outb(card->ctrlreg, card->base + NJ_CTRL); 298 mdelay(10); 299 300 /* configure AUX pins (all output except ISAC IRQ pin) */ 301 card->auxd = 0; 302 card->dmactrl = 0; 303 outb(~NJ_ISACIRQ, card->base + NJ_AUXCTRL); 304 outb(NJ_ISACIRQ, card->base + NJ_IRQMASK1); 305 outb(card->auxd, card->base + NJ_AUXDATA); 306 } 307 308 static int 309 inittiger(struct tiger_hw *card) 310 { 311 int i; 312 313 card->dma_p = pci_alloc_consistent(card->pdev, NJ_DMA_SIZE, 314 &card->dma); 315 if (!card->dma_p) { 316 pr_info("%s: No DMA memory\n", card->name); 317 return -ENOMEM; 318 } 319 if ((u64)card->dma > 0xffffffff) { 320 pr_info("%s: DMA outside 32 bit\n", card->name); 321 return -ENOMEM; 322 } 323 for (i = 0; i < 2; i++) { 324 card->bc[i].hsbuf = kmalloc(NJ_DMA_TXSIZE, GFP_ATOMIC); 325 if (!card->bc[i].hsbuf) { 326 pr_info("%s: no B%d send buffer\n", card->name, i + 1); 327 return -ENOMEM; 328 } 329 card->bc[i].hrbuf = kmalloc(NJ_DMA_RXSIZE, GFP_ATOMIC); 330 if (!card->bc[i].hrbuf) { 331 pr_info("%s: no B%d recv buffer\n", card->name, i + 1); 332 return -ENOMEM; 333 } 334 } 335 memset(card->dma_p, 0xff, NJ_DMA_SIZE); 336 337 card->send.start = card->dma_p; 338 card->send.dmastart = (u32)card->dma; 339 card->send.dmaend = card->send.dmastart + 340 (4 * (NJ_DMA_TXSIZE - 1)); 341 card->send.dmairq = card->send.dmastart + 342 (4 * ((NJ_DMA_TXSIZE / 2) - 1)); 343 card->send.size = NJ_DMA_TXSIZE; 344 345 if (debug & DEBUG_HW) 346 pr_notice("%s: send buffer phy %#x - %#x - %#x virt %p" 347 " size %zu u32\n", card->name, 348 card->send.dmastart, card->send.dmairq, 349 card->send.dmaend, card->send.start, card->send.size); 350 351 outl(card->send.dmastart, card->base + NJ_DMA_READ_START); 352 outl(card->send.dmairq, card->base + NJ_DMA_READ_IRQ); 353 outl(card->send.dmaend, card->base + NJ_DMA_READ_END); 354 355 card->recv.start = card->dma_p + (NJ_DMA_SIZE / 2); 356 card->recv.dmastart = (u32)card->dma + (NJ_DMA_SIZE / 2); 357 card->recv.dmaend = card->recv.dmastart + 358 (4 * (NJ_DMA_RXSIZE - 1)); 359 card->recv.dmairq = card->recv.dmastart + 360 (4 * ((NJ_DMA_RXSIZE / 2) - 1)); 361 card->recv.size = NJ_DMA_RXSIZE; 362 363 if (debug & DEBUG_HW) 364 pr_notice("%s: recv buffer phy %#x - %#x - %#x virt %p" 365 " size %zu u32\n", card->name, 366 card->recv.dmastart, card->recv.dmairq, 367 card->recv.dmaend, card->recv.start, card->recv.size); 368 369 outl(card->recv.dmastart, card->base + NJ_DMA_WRITE_START); 370 outl(card->recv.dmairq, card->base + NJ_DMA_WRITE_IRQ); 371 outl(card->recv.dmaend, card->base + NJ_DMA_WRITE_END); 372 return 0; 373 } 374 375 static void 376 read_dma(struct tiger_ch *bc, u32 idx, int cnt) 377 { 378 struct tiger_hw *card = bc->bch.hw; 379 int i, stat; 380 u32 val; 381 u8 *p, *pn; 382 383 if (bc->lastrx == idx) { 384 bc->rxstate |= RX_OVERRUN; 385 pr_info("%s: B%1d overrun at idx %d\n", card->name, 386 bc->bch.nr, idx); 387 } 388 bc->lastrx = idx; 389 if (!bc->bch.rx_skb) { 390 bc->bch.rx_skb = mI_alloc_skb(bc->bch.maxlen, GFP_ATOMIC); 391 if (!bc->bch.rx_skb) { 392 pr_info("%s: B%1d receive out of memory\n", 393 card->name, bc->bch.nr); 394 return; 395 } 396 } 397 398 if (test_bit(FLG_TRANSPARENT, &bc->bch.Flags)) { 399 if ((bc->bch.rx_skb->len + cnt) > bc->bch.maxlen) { 400 pr_debug("%s: B%1d overrun %d\n", card->name, 401 bc->bch.nr, bc->bch.rx_skb->len + cnt); 402 skb_trim(bc->bch.rx_skb, 0); 403 return; 404 } 405 p = skb_put(bc->bch.rx_skb, cnt); 406 } else 407 p = bc->hrbuf; 408 409 for (i = 0; i < cnt; i++) { 410 val = card->recv.start[idx++]; 411 if (bc->bch.nr & 2) 412 val >>= 8; 413 if (idx >= card->recv.size) 414 idx = 0; 415 p[i] = val & 0xff; 416 } 417 pn = bc->hrbuf; 418 next_frame: 419 if (test_bit(FLG_HDLC, &bc->bch.Flags)) { 420 stat = isdnhdlc_decode(&bc->hrecv, pn, cnt, &i, 421 bc->bch.rx_skb->data, bc->bch.maxlen); 422 if (stat > 0) /* valid frame received */ 423 p = skb_put(bc->bch.rx_skb, stat); 424 else if (stat == -HDLC_CRC_ERROR) 425 pr_info("%s: B%1d receive frame CRC error\n", 426 card->name, bc->bch.nr); 427 else if (stat == -HDLC_FRAMING_ERROR) 428 pr_info("%s: B%1d receive framing error\n", 429 card->name, bc->bch.nr); 430 else if (stat == -HDLC_LENGTH_ERROR) 431 pr_info("%s: B%1d receive frame too long (> %d)\n", 432 card->name, bc->bch.nr, bc->bch.maxlen); 433 } else 434 stat = cnt; 435 436 if (stat > 0) { 437 if (debug & DEBUG_HW_BFIFO) { 438 snprintf(card->log, LOG_SIZE, "B%1d-recv %s %d ", 439 bc->bch.nr, card->name, stat); 440 print_hex_dump_bytes(card->log, DUMP_PREFIX_OFFSET, 441 p, stat); 442 } 443 recv_Bchannel(&bc->bch, 0); 444 } 445 if (test_bit(FLG_HDLC, &bc->bch.Flags)) { 446 pn += i; 447 cnt -= i; 448 if (!bc->bch.rx_skb) { 449 bc->bch.rx_skb = mI_alloc_skb(bc->bch.maxlen, 450 GFP_ATOMIC); 451 if (!bc->bch.rx_skb) { 452 pr_info("%s: B%1d receive out of memory\n", 453 card->name, bc->bch.nr); 454 return; 455 } 456 } 457 if (cnt > 0) 458 goto next_frame; 459 } 460 } 461 462 static void 463 recv_tiger(struct tiger_hw *card, u8 irq_stat) 464 { 465 u32 idx; 466 int cnt = card->recv.size / 2; 467 468 /* Note receive is via the WRITE DMA channel */ 469 card->last_is0 &= ~NJ_IRQM0_WR_MASK; 470 card->last_is0 |= (irq_stat & NJ_IRQM0_WR_MASK); 471 472 if (irq_stat & NJ_IRQM0_WR_END) 473 idx = cnt - 1; 474 else 475 idx = card->recv.size - 1; 476 477 if (test_bit(FLG_ACTIVE, &card->bc[0].bch.Flags)) 478 read_dma(&card->bc[0], idx, cnt); 479 if (test_bit(FLG_ACTIVE, &card->bc[1].bch.Flags)) 480 read_dma(&card->bc[1], idx, cnt); 481 } 482 483 /* sync with current DMA address at start or after exception */ 484 static void 485 resync(struct tiger_ch *bc, struct tiger_hw *card) 486 { 487 card->send.dmacur = inl(card->base | NJ_DMA_READ_ADR); 488 card->send.idx = (card->send.dmacur - card->send.dmastart) >> 2; 489 if (bc->free > card->send.size / 2) 490 bc->free = card->send.size / 2; 491 /* currently we simple sync to the next complete free area 492 * this hast the advantage that we have always maximum time to 493 * handle TX irq 494 */ 495 if (card->send.idx < ((card->send.size / 2) - 1)) 496 bc->idx = (card->recv.size / 2) - 1; 497 else 498 bc->idx = card->recv.size - 1; 499 bc->txstate = TX_RUN; 500 pr_debug("%s: %s B%1d free %d idx %d/%d\n", card->name, 501 __func__, bc->bch.nr, bc->free, bc->idx, card->send.idx); 502 } 503 504 static int bc_next_frame(struct tiger_ch *); 505 506 static void 507 fill_hdlc_flag(struct tiger_ch *bc) 508 { 509 struct tiger_hw *card = bc->bch.hw; 510 int count, i; 511 u32 m, v; 512 u8 *p; 513 514 if (bc->free == 0) 515 return; 516 pr_debug("%s: %s B%1d %d state %x idx %d/%d\n", card->name, 517 __func__, bc->bch.nr, bc->free, bc->txstate, 518 bc->idx, card->send.idx); 519 if (bc->txstate & (TX_IDLE | TX_INIT | TX_UNDERRUN)) 520 resync(bc, card); 521 count = isdnhdlc_encode(&bc->hsend, NULL, 0, &i, 522 bc->hsbuf, bc->free); 523 pr_debug("%s: B%1d hdlc encoded %d flags\n", card->name, 524 bc->bch.nr, count); 525 bc->free -= count; 526 p = bc->hsbuf; 527 m = (bc->bch.nr & 1) ? 0xffffff00 : 0xffff00ff; 528 for (i = 0; i < count; i++) { 529 if (bc->idx >= card->send.size) 530 bc->idx = 0; 531 v = card->send.start[bc->idx]; 532 v &= m; 533 v |= (bc->bch.nr & 1) ? (u32)(p[i]) : ((u32)(p[i])) << 8; 534 card->send.start[bc->idx++] = v; 535 } 536 if (debug & DEBUG_HW_BFIFO) { 537 snprintf(card->log, LOG_SIZE, "B%1d-send %s %d ", 538 bc->bch.nr, card->name, count); 539 print_hex_dump_bytes(card->log, DUMP_PREFIX_OFFSET, p, count); 540 } 541 } 542 543 static void 544 fill_dma(struct tiger_ch *bc) 545 { 546 struct tiger_hw *card = bc->bch.hw; 547 int count, i; 548 u32 m, v; 549 u8 *p; 550 551 if (bc->free == 0) 552 return; 553 count = bc->bch.tx_skb->len - bc->bch.tx_idx; 554 if (count <= 0) 555 return; 556 pr_debug("%s: %s B%1d %d/%d/%d/%d state %x idx %d/%d\n", card->name, 557 __func__, bc->bch.nr, count, bc->free, bc->bch.tx_idx, 558 bc->bch.tx_skb->len, bc->txstate, bc->idx, card->send.idx); 559 if (bc->txstate & (TX_IDLE | TX_INIT | TX_UNDERRUN)) 560 resync(bc, card); 561 p = bc->bch.tx_skb->data + bc->bch.tx_idx; 562 if (test_bit(FLG_HDLC, &bc->bch.Flags)) { 563 count = isdnhdlc_encode(&bc->hsend, p, count, &i, 564 bc->hsbuf, bc->free); 565 pr_debug("%s: B%1d hdlc encoded %d in %d\n", card->name, 566 bc->bch.nr, i, count); 567 bc->bch.tx_idx += i; 568 bc->free -= count; 569 p = bc->hsbuf; 570 } else { 571 if (count > bc->free) 572 count = bc->free; 573 bc->bch.tx_idx += count; 574 bc->free -= count; 575 } 576 m = (bc->bch.nr & 1) ? 0xffffff00 : 0xffff00ff; 577 for (i = 0; i < count; i++) { 578 if (bc->idx >= card->send.size) 579 bc->idx = 0; 580 v = card->send.start[bc->idx]; 581 v &= m; 582 v |= (bc->bch.nr & 1) ? (u32)(p[i]) : ((u32)(p[i])) << 8; 583 card->send.start[bc->idx++] = v; 584 } 585 if (debug & DEBUG_HW_BFIFO) { 586 snprintf(card->log, LOG_SIZE, "B%1d-send %s %d ", 587 bc->bch.nr, card->name, count); 588 print_hex_dump_bytes(card->log, DUMP_PREFIX_OFFSET, p, count); 589 } 590 if (bc->free) 591 bc_next_frame(bc); 592 } 593 594 595 static int 596 bc_next_frame(struct tiger_ch *bc) 597 { 598 if (bc->bch.tx_skb && bc->bch.tx_idx < bc->bch.tx_skb->len) 599 fill_dma(bc); 600 else { 601 if (bc->bch.tx_skb) { 602 /* send confirm, on trans, free on hdlc. */ 603 if (test_bit(FLG_TRANSPARENT, &bc->bch.Flags)) 604 confirm_Bsend(&bc->bch); 605 dev_kfree_skb(bc->bch.tx_skb); 606 } 607 if (get_next_bframe(&bc->bch)) 608 fill_dma(bc); 609 else 610 return 0; 611 } 612 return 1; 613 } 614 615 static void 616 send_tiger_bc(struct tiger_hw *card, struct tiger_ch *bc) 617 { 618 int ret; 619 620 bc->free += card->send.size / 2; 621 if (bc->free >= card->send.size) { 622 if (!(bc->txstate & (TX_UNDERRUN | TX_INIT))) { 623 pr_info("%s: B%1d TX underrun state %x\n", card->name, 624 bc->bch.nr, bc->txstate); 625 bc->txstate |= TX_UNDERRUN; 626 } 627 bc->free = card->send.size; 628 } 629 ret = bc_next_frame(bc); 630 if (!ret) { 631 if (test_bit(FLG_HDLC, &bc->bch.Flags)) { 632 fill_hdlc_flag(bc); 633 return; 634 } 635 pr_debug("%s: B%1d TX no data free %d idx %d/%d\n", card->name, 636 bc->bch.nr, bc->free, bc->idx, card->send.idx); 637 if (!(bc->txstate & (TX_IDLE | TX_INIT))) { 638 fill_mem(bc, bc->idx, bc->free, 0xff); 639 if (bc->free == card->send.size) 640 bc->txstate |= TX_IDLE; 641 } 642 } 643 } 644 645 static void 646 send_tiger(struct tiger_hw *card, u8 irq_stat) 647 { 648 int i; 649 650 /* Note send is via the READ DMA channel */ 651 if ((irq_stat & card->last_is0) & NJ_IRQM0_RD_MASK) { 652 pr_info("%s: tiger warn write double dma %x/%x\n", 653 card->name, irq_stat, card->last_is0); 654 return; 655 } else { 656 card->last_is0 &= ~NJ_IRQM0_RD_MASK; 657 card->last_is0 |= (irq_stat & NJ_IRQM0_RD_MASK); 658 } 659 for (i = 0; i < 2; i++) { 660 if (test_bit(FLG_ACTIVE, &card->bc[i].bch.Flags)) 661 send_tiger_bc(card, &card->bc[i]); 662 } 663 } 664 665 static irqreturn_t 666 nj_irq(int intno, void *dev_id) 667 { 668 struct tiger_hw *card = dev_id; 669 u8 val, s1val, s0val; 670 671 spin_lock(&card->lock); 672 s0val = inb(card->base | NJ_IRQSTAT0); 673 s1val = inb(card->base | NJ_IRQSTAT1); 674 if ((s1val & NJ_ISACIRQ) && (s0val == 0)) { 675 /* shared IRQ */ 676 spin_unlock(&card->lock); 677 return IRQ_NONE; 678 } 679 pr_debug("%s: IRQSTAT0 %02x IRQSTAT1 %02x\n", card->name, s0val, s1val); 680 card->irqcnt++; 681 if (!(s1val & NJ_ISACIRQ)) { 682 val = ReadISAC_nj(card, ISAC_ISTA); 683 if (val) 684 mISDNisac_irq(&card->isac, val); 685 } 686 687 if (s0val) 688 /* write to clear */ 689 outb(s0val, card->base | NJ_IRQSTAT0); 690 else 691 goto end; 692 s1val = s0val; 693 /* set bits in sval to indicate which page is free */ 694 card->recv.dmacur = inl(card->base | NJ_DMA_WRITE_ADR); 695 card->recv.idx = (card->recv.dmacur - card->recv.dmastart) >> 2; 696 if (card->recv.dmacur < card->recv.dmairq) 697 s0val = 0x08; /* the 2nd write area is free */ 698 else 699 s0val = 0x04; /* the 1st write area is free */ 700 701 card->send.dmacur = inl(card->base | NJ_DMA_READ_ADR); 702 card->send.idx = (card->send.dmacur - card->send.dmastart) >> 2; 703 if (card->send.dmacur < card->send.dmairq) 704 s0val |= 0x02; /* the 2nd read area is free */ 705 else 706 s0val |= 0x01; /* the 1st read area is free */ 707 708 pr_debug("%s: DMA Status %02x/%02x/%02x %d/%d\n", card->name, 709 s1val, s0val, card->last_is0, 710 card->recv.idx, card->send.idx); 711 /* test if we have a DMA interrupt */ 712 if (s0val != card->last_is0) { 713 if ((s0val & NJ_IRQM0_RD_MASK) != 714 (card->last_is0 & NJ_IRQM0_RD_MASK)) 715 /* got a write dma int */ 716 send_tiger(card, s0val); 717 if ((s0val & NJ_IRQM0_WR_MASK) != 718 (card->last_is0 & NJ_IRQM0_WR_MASK)) 719 /* got a read dma int */ 720 recv_tiger(card, s0val); 721 } 722 end: 723 spin_unlock(&card->lock); 724 return IRQ_HANDLED; 725 } 726 727 static int 728 nj_l2l1B(struct mISDNchannel *ch, struct sk_buff *skb) 729 { 730 int ret = -EINVAL; 731 struct bchannel *bch = container_of(ch, struct bchannel, ch); 732 struct tiger_ch *bc = container_of(bch, struct tiger_ch, bch); 733 struct tiger_hw *card = bch->hw; 734 struct mISDNhead *hh = mISDN_HEAD_P(skb); 735 u32 id; 736 u_long flags; 737 738 switch (hh->prim) { 739 case PH_DATA_REQ: 740 spin_lock_irqsave(&card->lock, flags); 741 ret = bchannel_senddata(bch, skb); 742 if (ret > 0) { /* direct TX */ 743 id = hh->id; /* skb can be freed */ 744 fill_dma(bc); 745 ret = 0; 746 spin_unlock_irqrestore(&card->lock, flags); 747 if (!test_bit(FLG_TRANSPARENT, &bch->Flags)) 748 queue_ch_frame(ch, PH_DATA_CNF, id, NULL); 749 } else 750 spin_unlock_irqrestore(&card->lock, flags); 751 return ret; 752 case PH_ACTIVATE_REQ: 753 spin_lock_irqsave(&card->lock, flags); 754 if (!test_and_set_bit(FLG_ACTIVE, &bch->Flags)) 755 ret = mode_tiger(bc, ch->protocol); 756 else 757 ret = 0; 758 spin_unlock_irqrestore(&card->lock, flags); 759 if (!ret) 760 _queue_data(ch, PH_ACTIVATE_IND, MISDN_ID_ANY, 0, 761 NULL, GFP_KERNEL); 762 break; 763 case PH_DEACTIVATE_REQ: 764 spin_lock_irqsave(&card->lock, flags); 765 mISDN_clear_bchannel(bch); 766 mode_tiger(bc, ISDN_P_NONE); 767 spin_unlock_irqrestore(&card->lock, flags); 768 _queue_data(ch, PH_DEACTIVATE_IND, MISDN_ID_ANY, 0, 769 NULL, GFP_KERNEL); 770 ret = 0; 771 break; 772 } 773 if (!ret) 774 dev_kfree_skb(skb); 775 return ret; 776 } 777 778 static int 779 channel_bctrl(struct tiger_ch *bc, struct mISDN_ctrl_req *cq) 780 { 781 int ret = 0; 782 struct tiger_hw *card = bc->bch.hw; 783 784 switch (cq->op) { 785 case MISDN_CTRL_GETOP: 786 cq->op = 0; 787 break; 788 /* Nothing implemented yet */ 789 case MISDN_CTRL_FILL_EMPTY: 790 default: 791 pr_info("%s: %s unknown Op %x\n", card->name, __func__, cq->op); 792 ret = -EINVAL; 793 break; 794 } 795 return ret; 796 } 797 798 static int 799 nj_bctrl(struct mISDNchannel *ch, u32 cmd, void *arg) 800 { 801 struct bchannel *bch = container_of(ch, struct bchannel, ch); 802 struct tiger_ch *bc = container_of(bch, struct tiger_ch, bch); 803 struct tiger_hw *card = bch->hw; 804 int ret = -EINVAL; 805 u_long flags; 806 807 pr_debug("%s: %s cmd:%x %p\n", card->name, __func__, cmd, arg); 808 switch (cmd) { 809 case CLOSE_CHANNEL: 810 test_and_clear_bit(FLG_OPEN, &bch->Flags); 811 if (test_bit(FLG_ACTIVE, &bch->Flags)) { 812 spin_lock_irqsave(&card->lock, flags); 813 mISDN_freebchannel(bch); 814 test_and_clear_bit(FLG_TX_BUSY, &bch->Flags); 815 test_and_clear_bit(FLG_ACTIVE, &bch->Flags); 816 mode_tiger(bc, ISDN_P_NONE); 817 spin_unlock_irqrestore(&card->lock, flags); 818 } 819 ch->protocol = ISDN_P_NONE; 820 ch->peer = NULL; 821 module_put(THIS_MODULE); 822 ret = 0; 823 break; 824 case CONTROL_CHANNEL: 825 ret = channel_bctrl(bc, arg); 826 break; 827 default: 828 pr_info("%s: %s unknown prim(%x)\n", card->name, __func__, cmd); 829 } 830 return ret; 831 } 832 833 static int 834 channel_ctrl(struct tiger_hw *card, struct mISDN_ctrl_req *cq) 835 { 836 int ret = 0; 837 838 switch (cq->op) { 839 case MISDN_CTRL_GETOP: 840 cq->op = MISDN_CTRL_LOOP | MISDN_CTRL_L1_TIMER3; 841 break; 842 case MISDN_CTRL_LOOP: 843 /* cq->channel: 0 disable, 1 B1 loop 2 B2 loop, 3 both */ 844 if (cq->channel < 0 || cq->channel > 3) { 845 ret = -EINVAL; 846 break; 847 } 848 ret = card->isac.ctrl(&card->isac, HW_TESTLOOP, cq->channel); 849 break; 850 case MISDN_CTRL_L1_TIMER3: 851 ret = card->isac.ctrl(&card->isac, HW_TIMER3_VALUE, cq->p1); 852 break; 853 default: 854 pr_info("%s: %s unknown Op %x\n", card->name, __func__, cq->op); 855 ret = -EINVAL; 856 break; 857 } 858 return ret; 859 } 860 861 static int 862 open_bchannel(struct tiger_hw *card, struct channel_req *rq) 863 { 864 struct bchannel *bch; 865 866 if (rq->adr.channel == 0 || rq->adr.channel > 2) 867 return -EINVAL; 868 if (rq->protocol == ISDN_P_NONE) 869 return -EINVAL; 870 bch = &card->bc[rq->adr.channel - 1].bch; 871 if (test_and_set_bit(FLG_OPEN, &bch->Flags)) 872 return -EBUSY; /* b-channel can be only open once */ 873 test_and_clear_bit(FLG_FILLEMPTY, &bch->Flags); 874 bch->ch.protocol = rq->protocol; 875 rq->ch = &bch->ch; 876 return 0; 877 } 878 879 /* 880 * device control function 881 */ 882 static int 883 nj_dctrl(struct mISDNchannel *ch, u32 cmd, void *arg) 884 { 885 struct mISDNdevice *dev = container_of(ch, struct mISDNdevice, D); 886 struct dchannel *dch = container_of(dev, struct dchannel, dev); 887 struct tiger_hw *card = dch->hw; 888 struct channel_req *rq; 889 int err = 0; 890 891 pr_debug("%s: %s cmd:%x %p\n", card->name, __func__, cmd, arg); 892 switch (cmd) { 893 case OPEN_CHANNEL: 894 rq = arg; 895 if (rq->protocol == ISDN_P_TE_S0) 896 err = card->isac.open(&card->isac, rq); 897 else 898 err = open_bchannel(card, rq); 899 if (err) 900 break; 901 if (!try_module_get(THIS_MODULE)) 902 pr_info("%s: cannot get module\n", card->name); 903 break; 904 case CLOSE_CHANNEL: 905 pr_debug("%s: dev(%d) close from %p\n", card->name, dch->dev.id, 906 __builtin_return_address(0)); 907 module_put(THIS_MODULE); 908 break; 909 case CONTROL_CHANNEL: 910 err = channel_ctrl(card, arg); 911 break; 912 default: 913 pr_debug("%s: %s unknown command %x\n", 914 card->name, __func__, cmd); 915 return -EINVAL; 916 } 917 return err; 918 } 919 920 static int 921 nj_init_card(struct tiger_hw *card) 922 { 923 u_long flags; 924 int ret; 925 926 spin_lock_irqsave(&card->lock, flags); 927 nj_disable_hwirq(card); 928 spin_unlock_irqrestore(&card->lock, flags); 929 930 card->irq = card->pdev->irq; 931 if (request_irq(card->irq, nj_irq, IRQF_SHARED, card->name, card)) { 932 pr_info("%s: couldn't get interrupt %d\n", 933 card->name, card->irq); 934 card->irq = -1; 935 return -EIO; 936 } 937 938 spin_lock_irqsave(&card->lock, flags); 939 nj_reset(card); 940 ret = card->isac.init(&card->isac); 941 if (ret) 942 goto error; 943 ret = inittiger(card); 944 if (ret) 945 goto error; 946 mode_tiger(&card->bc[0], ISDN_P_NONE); 947 mode_tiger(&card->bc[1], ISDN_P_NONE); 948 error: 949 spin_unlock_irqrestore(&card->lock, flags); 950 return ret; 951 } 952 953 954 static void 955 nj_release(struct tiger_hw *card) 956 { 957 u_long flags; 958 int i; 959 960 if (card->base_s) { 961 spin_lock_irqsave(&card->lock, flags); 962 nj_disable_hwirq(card); 963 mode_tiger(&card->bc[0], ISDN_P_NONE); 964 mode_tiger(&card->bc[1], ISDN_P_NONE); 965 card->isac.release(&card->isac); 966 spin_unlock_irqrestore(&card->lock, flags); 967 release_region(card->base, card->base_s); 968 card->base_s = 0; 969 } 970 if (card->irq > 0) 971 free_irq(card->irq, card); 972 if (card->isac.dch.dev.dev.class) 973 mISDN_unregister_device(&card->isac.dch.dev); 974 975 for (i = 0; i < 2; i++) { 976 mISDN_freebchannel(&card->bc[i].bch); 977 kfree(card->bc[i].hsbuf); 978 kfree(card->bc[i].hrbuf); 979 } 980 if (card->dma_p) 981 pci_free_consistent(card->pdev, NJ_DMA_SIZE, 982 card->dma_p, card->dma); 983 write_lock_irqsave(&card_lock, flags); 984 list_del(&card->list); 985 write_unlock_irqrestore(&card_lock, flags); 986 pci_clear_master(card->pdev); 987 pci_disable_device(card->pdev); 988 pci_set_drvdata(card->pdev, NULL); 989 kfree(card); 990 } 991 992 993 static int 994 nj_setup(struct tiger_hw *card) 995 { 996 card->base = pci_resource_start(card->pdev, 0); 997 card->base_s = pci_resource_len(card->pdev, 0); 998 if (!request_region(card->base, card->base_s, card->name)) { 999 pr_info("%s: NETjet config port %#x-%#x already in use\n", 1000 card->name, card->base, 1001 (u32)(card->base + card->base_s - 1)); 1002 card->base_s = 0; 1003 return -EIO; 1004 } 1005 ASSIGN_FUNC(nj, ISAC, card->isac); 1006 return 0; 1007 } 1008 1009 1010 static int __devinit 1011 setup_instance(struct tiger_hw *card) 1012 { 1013 int i, err; 1014 u_long flags; 1015 1016 snprintf(card->name, MISDN_MAX_IDLEN - 1, "netjet.%d", nj_cnt + 1); 1017 write_lock_irqsave(&card_lock, flags); 1018 list_add_tail(&card->list, &Cards); 1019 write_unlock_irqrestore(&card_lock, flags); 1020 1021 _set_debug(card); 1022 card->isac.name = card->name; 1023 spin_lock_init(&card->lock); 1024 card->isac.hwlock = &card->lock; 1025 mISDNisac_init(&card->isac, card); 1026 1027 card->isac.dch.dev.Bprotocols = (1 << (ISDN_P_B_RAW & ISDN_P_B_MASK)) | 1028 (1 << (ISDN_P_B_HDLC & ISDN_P_B_MASK)); 1029 card->isac.dch.dev.D.ctrl = nj_dctrl; 1030 for (i = 0; i < 2; i++) { 1031 card->bc[i].bch.nr = i + 1; 1032 set_channelmap(i + 1, card->isac.dch.dev.channelmap); 1033 mISDN_initbchannel(&card->bc[i].bch, MAX_DATA_MEM); 1034 card->bc[i].bch.hw = card; 1035 card->bc[i].bch.ch.send = nj_l2l1B; 1036 card->bc[i].bch.ch.ctrl = nj_bctrl; 1037 card->bc[i].bch.ch.nr = i + 1; 1038 list_add(&card->bc[i].bch.ch.list, 1039 &card->isac.dch.dev.bchannels); 1040 card->bc[i].bch.hw = card; 1041 } 1042 err = nj_setup(card); 1043 if (err) 1044 goto error; 1045 err = mISDN_register_device(&card->isac.dch.dev, &card->pdev->dev, 1046 card->name); 1047 if (err) 1048 goto error; 1049 err = nj_init_card(card); 1050 if (!err) { 1051 nj_cnt++; 1052 pr_notice("Netjet %d cards installed\n", nj_cnt); 1053 return 0; 1054 } 1055 error: 1056 nj_release(card); 1057 return err; 1058 } 1059 1060 static int __devinit 1061 nj_probe(struct pci_dev *pdev, const struct pci_device_id *ent) 1062 { 1063 int err = -ENOMEM; 1064 int cfg; 1065 struct tiger_hw *card; 1066 1067 if (pdev->subsystem_vendor == 0x8086 && 1068 pdev->subsystem_device == 0x0003) { 1069 pr_notice("Netjet: Digium X100P/X101P not handled\n"); 1070 return -ENODEV; 1071 } 1072 1073 if (pdev->subsystem_vendor == 0x55 && 1074 pdev->subsystem_device == 0x02) { 1075 pr_notice("Netjet: Enter!Now not handled yet\n"); 1076 return -ENODEV; 1077 } 1078 1079 if (pdev->subsystem_vendor == 0xb100 && 1080 pdev->subsystem_device == 0x0003) { 1081 pr_notice("Netjet: Digium TDM400P not handled yet\n"); 1082 return -ENODEV; 1083 } 1084 1085 card = kzalloc(sizeof(struct tiger_hw), GFP_ATOMIC); 1086 if (!card) { 1087 pr_info("No kmem for Netjet\n"); 1088 return err; 1089 } 1090 1091 card->pdev = pdev; 1092 1093 err = pci_enable_device(pdev); 1094 if (err) { 1095 kfree(card); 1096 return err; 1097 } 1098 1099 printk(KERN_INFO "nj_probe(mISDN): found adapter at %s\n", 1100 pci_name(pdev)); 1101 1102 pci_set_master(pdev); 1103 1104 /* the TJ300 and TJ320 must be detected, the IRQ handling is different 1105 * unfortunately the chips use the same device ID, but the TJ320 has 1106 * the bit20 in status PCI cfg register set 1107 */ 1108 pci_read_config_dword(pdev, 0x04, &cfg); 1109 if (cfg & 0x00100000) 1110 card->typ = NETJET_S_TJ320; 1111 else 1112 card->typ = NETJET_S_TJ300; 1113 1114 card->base = pci_resource_start(pdev, 0); 1115 card->irq = pdev->irq; 1116 pci_set_drvdata(pdev, card); 1117 err = setup_instance(card); 1118 if (err) 1119 pci_set_drvdata(pdev, NULL); 1120 1121 return err; 1122 } 1123 1124 1125 static void __devexit nj_remove(struct pci_dev *pdev) 1126 { 1127 struct tiger_hw *card = pci_get_drvdata(pdev); 1128 1129 if (card) 1130 nj_release(card); 1131 else 1132 pr_info("%s drvdata already removed\n", __func__); 1133 } 1134 1135 /* We cannot select cards with PCI_SUB... IDs, since here are cards with 1136 * SUB IDs set to PCI_ANY_ID, so we need to match all and reject 1137 * known other cards which not work with this driver - see probe function */ 1138 static struct pci_device_id nj_pci_ids[] __devinitdata = { 1139 { PCI_VENDOR_ID_TIGERJET, PCI_DEVICE_ID_TIGERJET_300, 1140 PCI_ANY_ID, PCI_ANY_ID, 0, 0, 0}, 1141 { } 1142 }; 1143 MODULE_DEVICE_TABLE(pci, nj_pci_ids); 1144 1145 static struct pci_driver nj_driver = { 1146 .name = "netjet", 1147 .probe = nj_probe, 1148 .remove = __devexit_p(nj_remove), 1149 .id_table = nj_pci_ids, 1150 }; 1151 1152 static int __init nj_init(void) 1153 { 1154 int err; 1155 1156 pr_notice("Netjet PCI driver Rev. %s\n", NETJET_REV); 1157 err = pci_register_driver(&nj_driver); 1158 return err; 1159 } 1160 1161 static void __exit nj_cleanup(void) 1162 { 1163 pci_unregister_driver(&nj_driver); 1164 } 1165 1166 module_init(nj_init); 1167 module_exit(nj_cleanup); 1168