1// SPDX-License-Identifier: GPL-2.0-only
2/*
3 * avm_fritz.c low level stuff for AVM FRITZ!CARD PCI ISDN cards
4 * Thanks to AVM, Berlin for informations
5 *
6 * Author Karsten Keil <keil@isdn4linux.de>
7 *
8 * Copyright 2009 by Karsten Keil <keil@isdn4linux.de>
9 */
10#include <linux/interrupt.h>
11#include <linux/module.h>
12#include <linux/pci.h>
13#include <linux/delay.h>
14#include <linux/mISDNhw.h>
15#include <linux/slab.h>
16#include <asm/unaligned.h>
17#include "ipac.h"
18
19
20#define AVMFRITZ_REV "2.3"
21
22static int AVM_cnt;
23static int debug;
24
25enum {
26 AVM_FRITZ_PCI,
27 AVM_FRITZ_PCIV2,
28};
29
30#define HDLC_FIFO 0x0
31#define HDLC_STATUS 0x4
32#define CHIP_WINDOW 0x10
33
34#define CHIP_INDEX 0x4
35#define AVM_HDLC_1 0x00
36#define AVM_HDLC_2 0x01
37#define AVM_ISAC_FIFO 0x02
38#define AVM_ISAC_REG_LOW 0x04
39#define AVM_ISAC_REG_HIGH 0x06
40
41#define AVM_STATUS0_IRQ_ISAC 0x01
42#define AVM_STATUS0_IRQ_HDLC 0x02
43#define AVM_STATUS0_IRQ_TIMER 0x04
44#define AVM_STATUS0_IRQ_MASK 0x07
45
46#define AVM_STATUS0_RESET 0x01
47#define AVM_STATUS0_DIS_TIMER 0x02
48#define AVM_STATUS0_RES_TIMER 0x04
49#define AVM_STATUS0_ENA_IRQ 0x08
50#define AVM_STATUS0_TESTBIT 0x10
51
52#define AVM_STATUS1_INT_SEL 0x0f
53#define AVM_STATUS1_ENA_IOM 0x80
54
55#define HDLC_MODE_ITF_FLG 0x01
56#define HDLC_MODE_TRANS 0x02
57#define HDLC_MODE_CCR_7 0x04
58#define HDLC_MODE_CCR_16 0x08
59#define HDLC_FIFO_SIZE_128 0x20
60#define HDLC_MODE_TESTLOOP 0x80
61
62#define HDLC_INT_XPR 0x80
63#define HDLC_INT_XDU 0x40
64#define HDLC_INT_RPR 0x20
65#define HDLC_INT_MASK 0xE0
66
67#define HDLC_STAT_RME 0x01
68#define HDLC_STAT_RDO 0x10
69#define HDLC_STAT_CRCVFRRAB 0x0E
70#define HDLC_STAT_CRCVFR 0x06
71#define HDLC_STAT_RML_MASK_V1 0x3f00
72#define HDLC_STAT_RML_MASK_V2 0x7f00
73
74#define HDLC_CMD_XRS 0x80
75#define HDLC_CMD_XME 0x01
76#define HDLC_CMD_RRS 0x20
77#define HDLC_CMD_XML_MASK 0x3f00
78
79#define HDLC_FIFO_SIZE_V1 32
80#define HDLC_FIFO_SIZE_V2 128
81
82/* Fritz PCI v2.0 */
83
84#define AVM_HDLC_FIFO_1 0x10
85#define AVM_HDLC_FIFO_2 0x18
86
87#define AVM_HDLC_STATUS_1 0x14
88#define AVM_HDLC_STATUS_2 0x1c
89
90#define AVM_ISACX_INDEX 0x04
91#define AVM_ISACX_DATA 0x08
92
93/* data struct */
94#define LOG_SIZE 63
95
96struct hdlc_stat_reg {
97#ifdef __BIG_ENDIAN
98 u8 fill;
99 u8 mode;
100 u8 xml;
101 u8 cmd;
102#else
103 u8 cmd;
104 u8 xml;
105 u8 mode;
106 u8 fill;
107#endif
108} __attribute__((packed));
109
110struct hdlc_hw {
111 union {
112 u32 ctrl;
113 struct hdlc_stat_reg sr;
114 } ctrl;
115 u32 stat;
116};
117
118struct fritzcard {
119 struct list_head list;
120 struct pci_dev *pdev;
121 char name[MISDN_MAX_IDLEN];
122 u8 type;
123 u8 ctrlreg;
124 u16 irq;
125 u32 irqcnt;
126 u32 addr;
127 spinlock_t lock; /* hw lock */
128 struct isac_hw isac;
129 struct hdlc_hw hdlc[2];
130 struct bchannel bch[2];
131 char log[LOG_SIZE + 1];
132};
133
134static LIST_HEAD(Cards);
135static DEFINE_RWLOCK(card_lock); /* protect Cards */
136
137static void
138_set_debug(struct fritzcard *card)
139{
140 card->isac.dch.debug = debug;
141 card->bch[0].debug = debug;
142 card->bch[1].debug = debug;
143}
144
145static int
146set_debug(const char *val, const struct kernel_param *kp)
147{
148 int ret;
149 struct fritzcard *card;
150
151 ret = param_set_uint(val, kp);
152 if (!ret) {
153 read_lock(&card_lock);
154 list_for_each_entry(card, &Cards, list)
155 _set_debug(card);
156 read_unlock(&card_lock);
157 }
158 return ret;
159}
160
161MODULE_AUTHOR("Karsten Keil");
162MODULE_LICENSE("GPL v2");
163MODULE_VERSION(AVMFRITZ_REV);
164module_param_call(debug, set_debug, param_get_uint, &debug, S_IRUGO | S_IWUSR);
165MODULE_PARM_DESC(debug, "avmfritz debug mask");
166
167/* Interface functions */
168
169static u8
170ReadISAC_V1(void *p, u8 offset)
171{
172 struct fritzcard *fc = p;
173 u8 idx = (offset > 0x2f) ? AVM_ISAC_REG_HIGH : AVM_ISAC_REG_LOW;
174
175 outb(value: idx, port: fc->addr + CHIP_INDEX);
176 return inb(port: fc->addr + CHIP_WINDOW + (offset & 0xf));
177}
178
179static void
180WriteISAC_V1(void *p, u8 offset, u8 value)
181{
182 struct fritzcard *fc = p;
183 u8 idx = (offset > 0x2f) ? AVM_ISAC_REG_HIGH : AVM_ISAC_REG_LOW;
184
185 outb(value: idx, port: fc->addr + CHIP_INDEX);
186 outb(value, port: fc->addr + CHIP_WINDOW + (offset & 0xf));
187}
188
189static void
190ReadFiFoISAC_V1(void *p, u8 off, u8 *data, int size)
191{
192 struct fritzcard *fc = p;
193
194 outb(AVM_ISAC_FIFO, port: fc->addr + CHIP_INDEX);
195 insb(port: fc->addr + CHIP_WINDOW, addr: data, count: size);
196}
197
198static void
199WriteFiFoISAC_V1(void *p, u8 off, u8 *data, int size)
200{
201 struct fritzcard *fc = p;
202
203 outb(AVM_ISAC_FIFO, port: fc->addr + CHIP_INDEX);
204 outsb(port: fc->addr + CHIP_WINDOW, addr: data, count: size);
205}
206
207static u8
208ReadISAC_V2(void *p, u8 offset)
209{
210 struct fritzcard *fc = p;
211
212 outl(value: offset, port: fc->addr + AVM_ISACX_INDEX);
213 return 0xff & inl(port: fc->addr + AVM_ISACX_DATA);
214}
215
216static void
217WriteISAC_V2(void *p, u8 offset, u8 value)
218{
219 struct fritzcard *fc = p;
220
221 outl(value: offset, port: fc->addr + AVM_ISACX_INDEX);
222 outl(value, port: fc->addr + AVM_ISACX_DATA);
223}
224
225static void
226ReadFiFoISAC_V2(void *p, u8 off, u8 *data, int size)
227{
228 struct fritzcard *fc = p;
229 int i;
230
231 outl(value: off, port: fc->addr + AVM_ISACX_INDEX);
232 for (i = 0; i < size; i++)
233 data[i] = 0xff & inl(port: fc->addr + AVM_ISACX_DATA);
234}
235
236static void
237WriteFiFoISAC_V2(void *p, u8 off, u8 *data, int size)
238{
239 struct fritzcard *fc = p;
240 int i;
241
242 outl(value: off, port: fc->addr + AVM_ISACX_INDEX);
243 for (i = 0; i < size; i++)
244 outl(value: data[i], port: fc->addr + AVM_ISACX_DATA);
245}
246
247static struct bchannel *
248Sel_BCS(struct fritzcard *fc, u32 channel)
249{
250 if (test_bit(FLG_ACTIVE, &fc->bch[0].Flags) &&
251 (fc->bch[0].nr & channel))
252 return &fc->bch[0];
253 else if (test_bit(FLG_ACTIVE, &fc->bch[1].Flags) &&
254 (fc->bch[1].nr & channel))
255 return &fc->bch[1];
256 else
257 return NULL;
258}
259
260static inline void
261__write_ctrl_pci(struct fritzcard *fc, struct hdlc_hw *hdlc, u32 channel) {
262 u32 idx = channel == 2 ? AVM_HDLC_2 : AVM_HDLC_1;
263
264 outl(value: idx, port: fc->addr + CHIP_INDEX);
265 outl(value: hdlc->ctrl.ctrl, port: fc->addr + CHIP_WINDOW + HDLC_STATUS);
266}
267
268static inline void
269__write_ctrl_pciv2(struct fritzcard *fc, struct hdlc_hw *hdlc, u32 channel) {
270 outl(value: hdlc->ctrl.ctrl, port: fc->addr + (channel == 2 ? AVM_HDLC_STATUS_2 :
271 AVM_HDLC_STATUS_1));
272}
273
274static void
275write_ctrl(struct bchannel *bch, int which) {
276 struct fritzcard *fc = bch->hw;
277 struct hdlc_hw *hdlc;
278
279 hdlc = &fc->hdlc[(bch->nr - 1) & 1];
280 pr_debug("%s: hdlc %c wr%x ctrl %x\n", fc->name, '@' + bch->nr,
281 which, hdlc->ctrl.ctrl);
282 switch (fc->type) {
283 case AVM_FRITZ_PCIV2:
284 __write_ctrl_pciv2(fc, hdlc, channel: bch->nr);
285 break;
286 case AVM_FRITZ_PCI:
287 __write_ctrl_pci(fc, hdlc, channel: bch->nr);
288 break;
289 }
290}
291
292
293static inline u32
294__read_status_pci(u_long addr, u32 channel)
295{
296 outl(value: channel == 2 ? AVM_HDLC_2 : AVM_HDLC_1, port: addr + CHIP_INDEX);
297 return inl(port: addr + CHIP_WINDOW + HDLC_STATUS);
298}
299
300static inline u32
301__read_status_pciv2(u_long addr, u32 channel)
302{
303 return inl(port: addr + (channel == 2 ? AVM_HDLC_STATUS_2 :
304 AVM_HDLC_STATUS_1));
305}
306
307
308static u32
309read_status(struct fritzcard *fc, u32 channel)
310{
311 switch (fc->type) {
312 case AVM_FRITZ_PCIV2:
313 return __read_status_pciv2(addr: fc->addr, channel);
314 case AVM_FRITZ_PCI:
315 return __read_status_pci(addr: fc->addr, channel);
316 }
317 /* dummy */
318 return 0;
319}
320
321static void
322enable_hwirq(struct fritzcard *fc)
323{
324 fc->ctrlreg |= AVM_STATUS0_ENA_IRQ;
325 outb(value: fc->ctrlreg, port: fc->addr + 2);
326}
327
328static void
329disable_hwirq(struct fritzcard *fc)
330{
331 fc->ctrlreg &= ~AVM_STATUS0_ENA_IRQ;
332 outb(value: fc->ctrlreg, port: fc->addr + 2);
333}
334
335static int
336modehdlc(struct bchannel *bch, int protocol)
337{
338 struct fritzcard *fc = bch->hw;
339 struct hdlc_hw *hdlc;
340 u8 mode;
341
342 hdlc = &fc->hdlc[(bch->nr - 1) & 1];
343 pr_debug("%s: hdlc %c protocol %x-->%x ch %d\n", fc->name,
344 '@' + bch->nr, bch->state, protocol, bch->nr);
345 hdlc->ctrl.ctrl = 0;
346 mode = (fc->type == AVM_FRITZ_PCIV2) ? HDLC_FIFO_SIZE_128 : 0;
347
348 switch (protocol) {
349 case -1: /* used for init */
350 bch->state = -1;
351 fallthrough;
352 case ISDN_P_NONE:
353 if (bch->state == ISDN_P_NONE)
354 break;
355 hdlc->ctrl.sr.cmd = HDLC_CMD_XRS | HDLC_CMD_RRS;
356 hdlc->ctrl.sr.mode = mode | HDLC_MODE_TRANS;
357 write_ctrl(bch, which: 5);
358 bch->state = ISDN_P_NONE;
359 test_and_clear_bit(FLG_HDLC, addr: &bch->Flags);
360 test_and_clear_bit(FLG_TRANSPARENT, addr: &bch->Flags);
361 break;
362 case ISDN_P_B_RAW:
363 bch->state = protocol;
364 hdlc->ctrl.sr.cmd = HDLC_CMD_XRS | HDLC_CMD_RRS;
365 hdlc->ctrl.sr.mode = mode | HDLC_MODE_TRANS;
366 write_ctrl(bch, which: 5);
367 hdlc->ctrl.sr.cmd = HDLC_CMD_XRS;
368 write_ctrl(bch, which: 1);
369 hdlc->ctrl.sr.cmd = 0;
370 test_and_set_bit(FLG_TRANSPARENT, addr: &bch->Flags);
371 break;
372 case ISDN_P_B_HDLC:
373 bch->state = protocol;
374 hdlc->ctrl.sr.cmd = HDLC_CMD_XRS | HDLC_CMD_RRS;
375 hdlc->ctrl.sr.mode = mode | HDLC_MODE_ITF_FLG;
376 write_ctrl(bch, which: 5);
377 hdlc->ctrl.sr.cmd = HDLC_CMD_XRS;
378 write_ctrl(bch, which: 1);
379 hdlc->ctrl.sr.cmd = 0;
380 test_and_set_bit(FLG_HDLC, addr: &bch->Flags);
381 break;
382 default:
383 pr_info("%s: protocol not known %x\n", fc->name, protocol);
384 return -ENOPROTOOPT;
385 }
386 return 0;
387}
388
389static void
390hdlc_empty_fifo(struct bchannel *bch, int count)
391{
392 u32 *ptr;
393 u8 *p;
394 u32 val, addr;
395 int cnt;
396 struct fritzcard *fc = bch->hw;
397
398 pr_debug("%s: %s %d\n", fc->name, __func__, count);
399 if (test_bit(FLG_RX_OFF, &bch->Flags)) {
400 p = NULL;
401 bch->dropcnt += count;
402 } else {
403 cnt = bchannel_get_rxbuf(bch, count);
404 if (cnt < 0) {
405 pr_warn("%s.B%d: No bufferspace for %d bytes\n",
406 fc->name, bch->nr, count);
407 return;
408 }
409 p = skb_put(skb: bch->rx_skb, len: count);
410 }
411 ptr = (u32 *)p;
412 if (fc->type == AVM_FRITZ_PCIV2)
413 addr = fc->addr + (bch->nr == 2 ?
414 AVM_HDLC_FIFO_2 : AVM_HDLC_FIFO_1);
415 else {
416 addr = fc->addr + CHIP_WINDOW;
417 outl(value: bch->nr == 2 ? AVM_HDLC_2 : AVM_HDLC_1, port: fc->addr);
418 }
419 cnt = 0;
420 while (cnt < count) {
421 val = le32_to_cpu(inl(addr));
422 if (p) {
423 put_unaligned(val, ptr);
424 ptr++;
425 }
426 cnt += 4;
427 }
428 if (p && (debug & DEBUG_HW_BFIFO)) {
429 snprintf(buf: fc->log, LOG_SIZE, fmt: "B%1d-recv %s %d ",
430 bch->nr, fc->name, count);
431 print_hex_dump_bytes(fc->log, DUMP_PREFIX_OFFSET, p, count);
432 }
433}
434
435static void
436hdlc_fill_fifo(struct bchannel *bch)
437{
438 struct fritzcard *fc = bch->hw;
439 struct hdlc_hw *hdlc;
440 int count, fs, cnt = 0, idx;
441 bool fillempty = false;
442 u8 *p;
443 u32 *ptr, val, addr;
444
445 idx = (bch->nr - 1) & 1;
446 hdlc = &fc->hdlc[idx];
447 fs = (fc->type == AVM_FRITZ_PCIV2) ?
448 HDLC_FIFO_SIZE_V2 : HDLC_FIFO_SIZE_V1;
449 if (!bch->tx_skb) {
450 if (!test_bit(FLG_TX_EMPTY, &bch->Flags))
451 return;
452 count = fs;
453 p = bch->fill;
454 fillempty = true;
455 } else {
456 count = bch->tx_skb->len - bch->tx_idx;
457 if (count <= 0)
458 return;
459 p = bch->tx_skb->data + bch->tx_idx;
460 }
461 hdlc->ctrl.sr.cmd &= ~HDLC_CMD_XME;
462 if (count > fs) {
463 count = fs;
464 } else {
465 if (test_bit(FLG_HDLC, &bch->Flags))
466 hdlc->ctrl.sr.cmd |= HDLC_CMD_XME;
467 }
468 ptr = (u32 *)p;
469 if (!fillempty) {
470 pr_debug("%s.B%d: %d/%d/%d", fc->name, bch->nr, count,
471 bch->tx_idx, bch->tx_skb->len);
472 bch->tx_idx += count;
473 } else {
474 pr_debug("%s.B%d: fillempty %d\n", fc->name, bch->nr, count);
475 }
476 hdlc->ctrl.sr.xml = ((count == fs) ? 0 : count);
477 if (fc->type == AVM_FRITZ_PCIV2) {
478 __write_ctrl_pciv2(fc, hdlc, channel: bch->nr);
479 addr = fc->addr + (bch->nr == 2 ?
480 AVM_HDLC_FIFO_2 : AVM_HDLC_FIFO_1);
481 } else {
482 __write_ctrl_pci(fc, hdlc, channel: bch->nr);
483 addr = fc->addr + CHIP_WINDOW;
484 }
485 if (fillempty) {
486 while (cnt < count) {
487 /* all bytes the same - no worry about endian */
488 outl(value: *ptr, port: addr);
489 cnt += 4;
490 }
491 } else {
492 while (cnt < count) {
493 val = get_unaligned(ptr);
494 outl(cpu_to_le32(val), port: addr);
495 ptr++;
496 cnt += 4;
497 }
498 }
499 if ((debug & DEBUG_HW_BFIFO) && !fillempty) {
500 snprintf(buf: fc->log, LOG_SIZE, fmt: "B%1d-send %s %d ",
501 bch->nr, fc->name, count);
502 print_hex_dump_bytes(fc->log, DUMP_PREFIX_OFFSET, p, count);
503 }
504}
505
506static void
507HDLC_irq_xpr(struct bchannel *bch)
508{
509 if (bch->tx_skb && bch->tx_idx < bch->tx_skb->len) {
510 hdlc_fill_fifo(bch);
511 } else {
512 dev_kfree_skb(bch->tx_skb);
513 if (get_next_bframe(bch)) {
514 hdlc_fill_fifo(bch);
515 test_and_clear_bit(FLG_TX_EMPTY, addr: &bch->Flags);
516 } else if (test_bit(FLG_TX_EMPTY, &bch->Flags)) {
517 hdlc_fill_fifo(bch);
518 }
519 }
520}
521
522static void
523HDLC_irq(struct bchannel *bch, u32 stat)
524{
525 struct fritzcard *fc = bch->hw;
526 int len, fs;
527 u32 rmlMask;
528 struct hdlc_hw *hdlc;
529
530 hdlc = &fc->hdlc[(bch->nr - 1) & 1];
531 pr_debug("%s: ch%d stat %#x\n", fc->name, bch->nr, stat);
532 if (fc->type == AVM_FRITZ_PCIV2) {
533 rmlMask = HDLC_STAT_RML_MASK_V2;
534 fs = HDLC_FIFO_SIZE_V2;
535 } else {
536 rmlMask = HDLC_STAT_RML_MASK_V1;
537 fs = HDLC_FIFO_SIZE_V1;
538 }
539 if (stat & HDLC_INT_RPR) {
540 if (stat & HDLC_STAT_RDO) {
541 pr_warn("%s: ch%d stat %x RDO\n",
542 fc->name, bch->nr, stat);
543 hdlc->ctrl.sr.xml = 0;
544 hdlc->ctrl.sr.cmd |= HDLC_CMD_RRS;
545 write_ctrl(bch, which: 1);
546 hdlc->ctrl.sr.cmd &= ~HDLC_CMD_RRS;
547 write_ctrl(bch, which: 1);
548 if (bch->rx_skb)
549 skb_trim(skb: bch->rx_skb, len: 0);
550 } else {
551 len = (stat & rmlMask) >> 8;
552 if (!len)
553 len = fs;
554 hdlc_empty_fifo(bch, count: len);
555 if (!bch->rx_skb)
556 goto handle_tx;
557 if (test_bit(FLG_TRANSPARENT, &bch->Flags)) {
558 recv_Bchannel(bch, 0, false);
559 } else if (stat & HDLC_STAT_RME) {
560 if ((stat & HDLC_STAT_CRCVFRRAB) ==
561 HDLC_STAT_CRCVFR) {
562 recv_Bchannel(bch, 0, false);
563 } else {
564 pr_warn("%s: got invalid frame\n",
565 fc->name);
566 skb_trim(skb: bch->rx_skb, len: 0);
567 }
568 }
569 }
570 }
571handle_tx:
572 if (stat & HDLC_INT_XDU) {
573 /* Here we lost an TX interrupt, so
574 * restart transmitting the whole frame on HDLC
575 * in transparent mode we send the next data
576 */
577 pr_warn("%s: ch%d stat %x XDU %s\n", fc->name, bch->nr,
578 stat, bch->tx_skb ? "tx_skb" : "no tx_skb");
579 if (bch->tx_skb && bch->tx_skb->len) {
580 if (!test_bit(FLG_TRANSPARENT, &bch->Flags))
581 bch->tx_idx = 0;
582 } else if (test_bit(FLG_FILLEMPTY, &bch->Flags)) {
583 test_and_set_bit(FLG_TX_EMPTY, addr: &bch->Flags);
584 }
585 hdlc->ctrl.sr.xml = 0;
586 hdlc->ctrl.sr.cmd |= HDLC_CMD_XRS;
587 write_ctrl(bch, which: 1);
588 hdlc->ctrl.sr.cmd &= ~HDLC_CMD_XRS;
589 HDLC_irq_xpr(bch);
590 return;
591 } else if (stat & HDLC_INT_XPR)
592 HDLC_irq_xpr(bch);
593}
594
595static inline void
596HDLC_irq_main(struct fritzcard *fc)
597{
598 u32 stat;
599 struct bchannel *bch;
600
601 stat = read_status(fc, channel: 1);
602 if (stat & HDLC_INT_MASK) {
603 bch = Sel_BCS(fc, channel: 1);
604 if (bch)
605 HDLC_irq(bch, stat);
606 else
607 pr_debug("%s: spurious ch1 IRQ\n", fc->name);
608 }
609 stat = read_status(fc, channel: 2);
610 if (stat & HDLC_INT_MASK) {
611 bch = Sel_BCS(fc, channel: 2);
612 if (bch)
613 HDLC_irq(bch, stat);
614 else
615 pr_debug("%s: spurious ch2 IRQ\n", fc->name);
616 }
617}
618
619static irqreturn_t
620avm_fritz_interrupt(int intno, void *dev_id)
621{
622 struct fritzcard *fc = dev_id;
623 u8 val;
624 u8 sval;
625
626 spin_lock(lock: &fc->lock);
627 sval = inb(port: fc->addr + 2);
628 pr_debug("%s: irq stat0 %x\n", fc->name, sval);
629 if ((sval & AVM_STATUS0_IRQ_MASK) == AVM_STATUS0_IRQ_MASK) {
630 /* shared IRQ from other HW */
631 spin_unlock(lock: &fc->lock);
632 return IRQ_NONE;
633 }
634 fc->irqcnt++;
635
636 if (!(sval & AVM_STATUS0_IRQ_ISAC)) {
637 val = ReadISAC_V1(p: fc, ISAC_ISTA);
638 mISDNisac_irq(&fc->isac, val);
639 }
640 if (!(sval & AVM_STATUS0_IRQ_HDLC))
641 HDLC_irq_main(fc);
642 spin_unlock(lock: &fc->lock);
643 return IRQ_HANDLED;
644}
645
646static irqreturn_t
647avm_fritzv2_interrupt(int intno, void *dev_id)
648{
649 struct fritzcard *fc = dev_id;
650 u8 val;
651 u8 sval;
652
653 spin_lock(lock: &fc->lock);
654 sval = inb(port: fc->addr + 2);
655 pr_debug("%s: irq stat0 %x\n", fc->name, sval);
656 if (!(sval & AVM_STATUS0_IRQ_MASK)) {
657 /* shared IRQ from other HW */
658 spin_unlock(lock: &fc->lock);
659 return IRQ_NONE;
660 }
661 fc->irqcnt++;
662
663 if (sval & AVM_STATUS0_IRQ_HDLC)
664 HDLC_irq_main(fc);
665 if (sval & AVM_STATUS0_IRQ_ISAC) {
666 val = ReadISAC_V2(p: fc, ISACX_ISTA);
667 mISDNisac_irq(&fc->isac, val);
668 }
669 if (sval & AVM_STATUS0_IRQ_TIMER) {
670 pr_debug("%s: timer irq\n", fc->name);
671 outb(value: fc->ctrlreg | AVM_STATUS0_RES_TIMER, port: fc->addr + 2);
672 udelay(1);
673 outb(value: fc->ctrlreg, port: fc->addr + 2);
674 }
675 spin_unlock(lock: &fc->lock);
676 return IRQ_HANDLED;
677}
678
679static int
680avm_l2l1B(struct mISDNchannel *ch, struct sk_buff *skb)
681{
682 struct bchannel *bch = container_of(ch, struct bchannel, ch);
683 struct fritzcard *fc = bch->hw;
684 int ret = -EINVAL;
685 struct mISDNhead *hh = mISDN_HEAD_P(skb);
686 unsigned long flags;
687
688 switch (hh->prim) {
689 case PH_DATA_REQ:
690 spin_lock_irqsave(&fc->lock, flags);
691 ret = bchannel_senddata(bch, skb);
692 if (ret > 0) { /* direct TX */
693 hdlc_fill_fifo(bch);
694 ret = 0;
695 }
696 spin_unlock_irqrestore(lock: &fc->lock, flags);
697 return ret;
698 case PH_ACTIVATE_REQ:
699 spin_lock_irqsave(&fc->lock, flags);
700 if (!test_and_set_bit(FLG_ACTIVE, addr: &bch->Flags))
701 ret = modehdlc(bch, protocol: ch->protocol);
702 else
703 ret = 0;
704 spin_unlock_irqrestore(lock: &fc->lock, flags);
705 if (!ret)
706 _queue_data(ch, PH_ACTIVATE_IND, MISDN_ID_ANY, len: 0,
707 NULL, GFP_KERNEL);
708 break;
709 case PH_DEACTIVATE_REQ:
710 spin_lock_irqsave(&fc->lock, flags);
711 mISDN_clear_bchannel(bch);
712 modehdlc(bch, ISDN_P_NONE);
713 spin_unlock_irqrestore(lock: &fc->lock, flags);
714 _queue_data(ch, PH_DEACTIVATE_IND, MISDN_ID_ANY, len: 0,
715 NULL, GFP_KERNEL);
716 ret = 0;
717 break;
718 }
719 if (!ret)
720 dev_kfree_skb(skb);
721 return ret;
722}
723
724static void
725inithdlc(struct fritzcard *fc)
726{
727 modehdlc(bch: &fc->bch[0], protocol: -1);
728 modehdlc(bch: &fc->bch[1], protocol: -1);
729}
730
731static void
732clear_pending_hdlc_ints(struct fritzcard *fc)
733{
734 u32 val;
735
736 val = read_status(fc, channel: 1);
737 pr_debug("%s: HDLC 1 STA %x\n", fc->name, val);
738 val = read_status(fc, channel: 2);
739 pr_debug("%s: HDLC 2 STA %x\n", fc->name, val);
740}
741
742static void
743reset_avm(struct fritzcard *fc)
744{
745 switch (fc->type) {
746 case AVM_FRITZ_PCI:
747 fc->ctrlreg = AVM_STATUS0_RESET | AVM_STATUS0_DIS_TIMER;
748 break;
749 case AVM_FRITZ_PCIV2:
750 fc->ctrlreg = AVM_STATUS0_RESET;
751 break;
752 }
753 if (debug & DEBUG_HW)
754 pr_notice("%s: reset\n", fc->name);
755 disable_hwirq(fc);
756 mdelay(5);
757 switch (fc->type) {
758 case AVM_FRITZ_PCI:
759 fc->ctrlreg = AVM_STATUS0_DIS_TIMER | AVM_STATUS0_RES_TIMER;
760 disable_hwirq(fc);
761 outb(AVM_STATUS1_ENA_IOM, port: fc->addr + 3);
762 break;
763 case AVM_FRITZ_PCIV2:
764 fc->ctrlreg = 0;
765 disable_hwirq(fc);
766 break;
767 }
768 mdelay(1);
769 if (debug & DEBUG_HW)
770 pr_notice("%s: S0/S1 %x/%x\n", fc->name,
771 inb(fc->addr + 2), inb(fc->addr + 3));
772}
773
774static int
775init_card(struct fritzcard *fc)
776{
777 int ret, cnt = 3;
778 u_long flags;
779
780 reset_avm(fc); /* disable IRQ */
781 if (fc->type == AVM_FRITZ_PCIV2)
782 ret = request_irq(irq: fc->irq, handler: avm_fritzv2_interrupt,
783 IRQF_SHARED, name: fc->name, dev: fc);
784 else
785 ret = request_irq(irq: fc->irq, handler: avm_fritz_interrupt,
786 IRQF_SHARED, name: fc->name, dev: fc);
787 if (ret) {
788 pr_info("%s: couldn't get interrupt %d\n",
789 fc->name, fc->irq);
790 return ret;
791 }
792 while (cnt--) {
793 spin_lock_irqsave(&fc->lock, flags);
794 ret = fc->isac.init(&fc->isac);
795 if (ret) {
796 spin_unlock_irqrestore(lock: &fc->lock, flags);
797 pr_info("%s: ISAC init failed with %d\n",
798 fc->name, ret);
799 break;
800 }
801 clear_pending_hdlc_ints(fc);
802 inithdlc(fc);
803 enable_hwirq(fc);
804 /* RESET Receiver and Transmitter */
805 if (fc->type == AVM_FRITZ_PCIV2) {
806 WriteISAC_V2(p: fc, ISACX_MASK, value: 0);
807 WriteISAC_V2(p: fc, ISACX_CMDRD, value: 0x41);
808 } else {
809 WriteISAC_V1(p: fc, ISAC_MASK, value: 0);
810 WriteISAC_V1(p: fc, ISAC_CMDR, value: 0x41);
811 }
812 spin_unlock_irqrestore(lock: &fc->lock, flags);
813 /* Timeout 10ms */
814 msleep_interruptible(msecs: 10);
815 if (debug & DEBUG_HW)
816 pr_notice("%s: IRQ %d count %d\n", fc->name,
817 fc->irq, fc->irqcnt);
818 if (!fc->irqcnt) {
819 pr_info("%s: IRQ(%d) getting no IRQs during init %d\n",
820 fc->name, fc->irq, 3 - cnt);
821 reset_avm(fc);
822 } else
823 return 0;
824 }
825 free_irq(fc->irq, fc);
826 return -EIO;
827}
828
829static int
830channel_bctrl(struct bchannel *bch, struct mISDN_ctrl_req *cq)
831{
832 return mISDN_ctrl_bchannel(bch, cq);
833}
834
835static int
836avm_bctrl(struct mISDNchannel *ch, u32 cmd, void *arg)
837{
838 struct bchannel *bch = container_of(ch, struct bchannel, ch);
839 struct fritzcard *fc = bch->hw;
840 int ret = -EINVAL;
841 u_long flags;
842
843 pr_debug("%s: %s cmd:%x %p\n", fc->name, __func__, cmd, arg);
844 switch (cmd) {
845 case CLOSE_CHANNEL:
846 test_and_clear_bit(FLG_OPEN, addr: &bch->Flags);
847 cancel_work_sync(work: &bch->workq);
848 spin_lock_irqsave(&fc->lock, flags);
849 mISDN_clear_bchannel(bch);
850 modehdlc(bch, ISDN_P_NONE);
851 spin_unlock_irqrestore(lock: &fc->lock, flags);
852 ch->protocol = ISDN_P_NONE;
853 ch->peer = NULL;
854 module_put(THIS_MODULE);
855 ret = 0;
856 break;
857 case CONTROL_CHANNEL:
858 ret = channel_bctrl(bch, cq: arg);
859 break;
860 default:
861 pr_info("%s: %s unknown prim(%x)\n", fc->name, __func__, cmd);
862 }
863 return ret;
864}
865
866static int
867channel_ctrl(struct fritzcard *fc, struct mISDN_ctrl_req *cq)
868{
869 int ret = 0;
870
871 switch (cq->op) {
872 case MISDN_CTRL_GETOP:
873 cq->op = MISDN_CTRL_LOOP | MISDN_CTRL_L1_TIMER3;
874 break;
875 case MISDN_CTRL_LOOP:
876 /* cq->channel: 0 disable, 1 B1 loop 2 B2 loop, 3 both */
877 if (cq->channel < 0 || cq->channel > 3) {
878 ret = -EINVAL;
879 break;
880 }
881 ret = fc->isac.ctrl(&fc->isac, HW_TESTLOOP, cq->channel);
882 break;
883 case MISDN_CTRL_L1_TIMER3:
884 ret = fc->isac.ctrl(&fc->isac, HW_TIMER3_VALUE, cq->p1);
885 break;
886 default:
887 pr_info("%s: %s unknown Op %x\n", fc->name, __func__, cq->op);
888 ret = -EINVAL;
889 break;
890 }
891 return ret;
892}
893
894static int
895open_bchannel(struct fritzcard *fc, struct channel_req *rq)
896{
897 struct bchannel *bch;
898
899 if (rq->adr.channel == 0 || rq->adr.channel > 2)
900 return -EINVAL;
901 if (rq->protocol == ISDN_P_NONE)
902 return -EINVAL;
903 bch = &fc->bch[rq->adr.channel - 1];
904 if (test_and_set_bit(FLG_OPEN, addr: &bch->Flags))
905 return -EBUSY; /* b-channel can be only open once */
906 bch->ch.protocol = rq->protocol;
907 rq->ch = &bch->ch;
908 return 0;
909}
910
911/*
912 * device control function
913 */
914static int
915avm_dctrl(struct mISDNchannel *ch, u32 cmd, void *arg)
916{
917 struct mISDNdevice *dev = container_of(ch, struct mISDNdevice, D);
918 struct dchannel *dch = container_of(dev, struct dchannel, dev);
919 struct fritzcard *fc = dch->hw;
920 struct channel_req *rq;
921 int err = 0;
922
923 pr_debug("%s: %s cmd:%x %p\n", fc->name, __func__, cmd, arg);
924 switch (cmd) {
925 case OPEN_CHANNEL:
926 rq = arg;
927 if (rq->protocol == ISDN_P_TE_S0)
928 err = fc->isac.open(&fc->isac, rq);
929 else
930 err = open_bchannel(fc, rq);
931 if (err)
932 break;
933 if (!try_module_get(THIS_MODULE))
934 pr_info("%s: cannot get module\n", fc->name);
935 break;
936 case CLOSE_CHANNEL:
937 pr_debug("%s: dev(%d) close from %p\n", fc->name, dch->dev.id,
938 __builtin_return_address(0));
939 module_put(THIS_MODULE);
940 break;
941 case CONTROL_CHANNEL:
942 err = channel_ctrl(fc, cq: arg);
943 break;
944 default:
945 pr_debug("%s: %s unknown command %x\n",
946 fc->name, __func__, cmd);
947 return -EINVAL;
948 }
949 return err;
950}
951
952static int
953setup_fritz(struct fritzcard *fc)
954{
955 u32 val, ver;
956
957 if (!request_region(fc->addr, 32, fc->name)) {
958 pr_info("%s: AVM config port %x-%x already in use\n",
959 fc->name, fc->addr, fc->addr + 31);
960 return -EIO;
961 }
962 switch (fc->type) {
963 case AVM_FRITZ_PCI:
964 val = inl(port: fc->addr);
965 outl(AVM_HDLC_1, port: fc->addr + CHIP_INDEX);
966 ver = inl(port: fc->addr + CHIP_WINDOW + HDLC_STATUS) >> 24;
967 if (debug & DEBUG_HW) {
968 pr_notice("%s: PCI stat %#x\n", fc->name, val);
969 pr_notice("%s: PCI Class %X Rev %d\n", fc->name,
970 val & 0xff, (val >> 8) & 0xff);
971 pr_notice("%s: HDLC version %x\n", fc->name, ver & 0xf);
972 }
973 ASSIGN_FUNC(V1, ISAC, fc->isac);
974 fc->isac.type = IPAC_TYPE_ISAC;
975 break;
976 case AVM_FRITZ_PCIV2:
977 val = inl(port: fc->addr);
978 ver = inl(port: fc->addr + AVM_HDLC_STATUS_1) >> 24;
979 if (debug & DEBUG_HW) {
980 pr_notice("%s: PCI V2 stat %#x\n", fc->name, val);
981 pr_notice("%s: PCI V2 Class %X Rev %d\n", fc->name,
982 val & 0xff, (val >> 8) & 0xff);
983 pr_notice("%s: HDLC version %x\n", fc->name, ver & 0xf);
984 }
985 ASSIGN_FUNC(V2, ISAC, fc->isac);
986 fc->isac.type = IPAC_TYPE_ISACX;
987 break;
988 default:
989 release_region(fc->addr, 32);
990 pr_info("%s: AVM unknown type %d\n", fc->name, fc->type);
991 return -ENODEV;
992 }
993 pr_notice("%s: %s config irq:%d base:0x%X\n", fc->name,
994 (fc->type == AVM_FRITZ_PCI) ? "AVM Fritz!CARD PCI" :
995 "AVM Fritz!CARD PCIv2", fc->irq, fc->addr);
996 return 0;
997}
998
999static void
1000release_card(struct fritzcard *card)
1001{
1002 u_long flags;
1003
1004 disable_hwirq(fc: card);
1005 spin_lock_irqsave(&card->lock, flags);
1006 modehdlc(bch: &card->bch[0], ISDN_P_NONE);
1007 modehdlc(bch: &card->bch[1], ISDN_P_NONE);
1008 spin_unlock_irqrestore(lock: &card->lock, flags);
1009 card->isac.release(&card->isac);
1010 free_irq(card->irq, card);
1011 mISDN_freebchannel(&card->bch[1]);
1012 mISDN_freebchannel(&card->bch[0]);
1013 mISDN_unregister_device(&card->isac.dch.dev);
1014 release_region(card->addr, 32);
1015 pci_disable_device(dev: card->pdev);
1016 pci_set_drvdata(pdev: card->pdev, NULL);
1017 write_lock_irqsave(&card_lock, flags);
1018 list_del(entry: &card->list);
1019 write_unlock_irqrestore(&card_lock, flags);
1020 kfree(objp: card);
1021 AVM_cnt--;
1022}
1023
1024static int
1025setup_instance(struct fritzcard *card)
1026{
1027 int i, err;
1028 unsigned short minsize;
1029 u_long flags;
1030
1031 snprintf(buf: card->name, MISDN_MAX_IDLEN - 1, fmt: "AVM.%d", AVM_cnt + 1);
1032 write_lock_irqsave(&card_lock, flags);
1033 list_add_tail(new: &card->list, head: &Cards);
1034 write_unlock_irqrestore(&card_lock, flags);
1035
1036 _set_debug(card);
1037 card->isac.name = card->name;
1038 spin_lock_init(&card->lock);
1039 card->isac.hwlock = &card->lock;
1040 mISDNisac_init(&card->isac, card);
1041
1042 card->isac.dch.dev.Bprotocols = (1 << (ISDN_P_B_RAW & ISDN_P_B_MASK)) |
1043 (1 << (ISDN_P_B_HDLC & ISDN_P_B_MASK));
1044 card->isac.dch.dev.D.ctrl = avm_dctrl;
1045 for (i = 0; i < 2; i++) {
1046 card->bch[i].nr = i + 1;
1047 set_channelmap(nr: i + 1, map: card->isac.dch.dev.channelmap);
1048 if (AVM_FRITZ_PCIV2 == card->type)
1049 minsize = HDLC_FIFO_SIZE_V2;
1050 else
1051 minsize = HDLC_FIFO_SIZE_V1;
1052 mISDN_initbchannel(&card->bch[i], MAX_DATA_MEM, minsize);
1053 card->bch[i].hw = card;
1054 card->bch[i].ch.send = avm_l2l1B;
1055 card->bch[i].ch.ctrl = avm_bctrl;
1056 card->bch[i].ch.nr = i + 1;
1057 list_add(new: &card->bch[i].ch.list, head: &card->isac.dch.dev.bchannels);
1058 }
1059 err = setup_fritz(card);
1060 if (err)
1061 goto error;
1062 err = mISDN_register_device(&card->isac.dch.dev, parent: &card->pdev->dev,
1063 name: card->name);
1064 if (err)
1065 goto error_reg;
1066 err = init_card(fc: card);
1067 if (!err) {
1068 AVM_cnt++;
1069 pr_notice("AVM %d cards installed DEBUG\n", AVM_cnt);
1070 return 0;
1071 }
1072 mISDN_unregister_device(&card->isac.dch.dev);
1073error_reg:
1074 release_region(card->addr, 32);
1075error:
1076 card->isac.release(&card->isac);
1077 mISDN_freebchannel(&card->bch[1]);
1078 mISDN_freebchannel(&card->bch[0]);
1079 write_lock_irqsave(&card_lock, flags);
1080 list_del(entry: &card->list);
1081 write_unlock_irqrestore(&card_lock, flags);
1082 kfree(objp: card);
1083 return err;
1084}
1085
1086static int
1087fritzpci_probe(struct pci_dev *pdev, const struct pci_device_id *ent)
1088{
1089 int err = -ENOMEM;
1090 struct fritzcard *card;
1091
1092 card = kzalloc(size: sizeof(struct fritzcard), GFP_KERNEL);
1093 if (!card) {
1094 pr_info("No kmem for fritzcard\n");
1095 return err;
1096 }
1097 if (pdev->device == PCI_DEVICE_ID_AVM_A1_V2)
1098 card->type = AVM_FRITZ_PCIV2;
1099 else
1100 card->type = AVM_FRITZ_PCI;
1101 card->pdev = pdev;
1102 err = pci_enable_device(dev: pdev);
1103 if (err) {
1104 kfree(objp: card);
1105 return err;
1106 }
1107
1108 pr_notice("mISDN: found adapter %s at %s\n",
1109 (char *) ent->driver_data, pci_name(pdev));
1110
1111 card->addr = pci_resource_start(pdev, 1);
1112 card->irq = pdev->irq;
1113 pci_set_drvdata(pdev, data: card);
1114 err = setup_instance(card);
1115 if (err)
1116 pci_set_drvdata(pdev, NULL);
1117 return err;
1118}
1119
1120static void
1121fritz_remove_pci(struct pci_dev *pdev)
1122{
1123 struct fritzcard *card = pci_get_drvdata(pdev);
1124
1125 if (card)
1126 release_card(card);
1127 else
1128 if (debug)
1129 pr_info("%s: drvdata already removed\n", __func__);
1130}
1131
1132static const struct pci_device_id fcpci_ids[] = {
1133 { PCI_VENDOR_ID_AVM, PCI_DEVICE_ID_AVM_A1, PCI_ANY_ID, PCI_ANY_ID,
1134 0, 0, (unsigned long) "Fritz!Card PCI"},
1135 { PCI_VENDOR_ID_AVM, PCI_DEVICE_ID_AVM_A1_V2, PCI_ANY_ID, PCI_ANY_ID,
1136 0, 0, (unsigned long) "Fritz!Card PCI v2" },
1137 { }
1138};
1139MODULE_DEVICE_TABLE(pci, fcpci_ids);
1140
1141static struct pci_driver fcpci_driver = {
1142 .name = "fcpci",
1143 .probe = fritzpci_probe,
1144 .remove = fritz_remove_pci,
1145 .id_table = fcpci_ids,
1146};
1147
1148static int __init AVM_init(void)
1149{
1150 int err;
1151
1152 pr_notice("AVM Fritz PCI driver Rev. %s\n", AVMFRITZ_REV);
1153 err = pci_register_driver(&fcpci_driver);
1154 return err;
1155}
1156
1157static void __exit AVM_cleanup(void)
1158{
1159 pci_unregister_driver(dev: &fcpci_driver);
1160}
1161
1162module_init(AVM_init);
1163module_exit(AVM_cleanup);
1164

source code of linux/drivers/isdn/hardware/mISDN/avmfritz.c