1 /* $Id: eicon_io.c,v 1.1.4.1 2001/11/20 14:19:35 kai Exp $
3 * ISDN low-level module for Eicon active ISDN-Cards.
4 * Code for communicating with hardware.
6 * Copyright 1999,2000 by Armin Schindler (mac@melware.de)
7 * Copyright 1999,2000 Cytronics & Melware (info@melware.de)
9 * This software may be used and distributed according to the terms
10 * of the GNU General Public License, incorporated herein by reference.
12 * Thanks to Eicon Networks for
13 * documents, informations and hardware.
17 #include <linux/config.h>
22 eicon_io_rcv_dispatch(eicon_card *ccard) {
24 struct sk_buff *skb, *skb2, *skb_new;
25 eicon_IND *ind, *ind2, *ind_new;
29 eicon_log(ccard, 1, "eicon_err: NULL card in rcv_dispatch !\n");
33 while((skb = skb_dequeue(&ccard->rcvq))) {
34 ind = (eicon_IND *)skb->data;
36 spin_lock_irqsave(&eicon_lock, flags);
37 if ((chan = ccard->IdTable[ind->IndId]) == NULL) {
38 spin_unlock_irqrestore(&eicon_lock, flags);
42 /* doesn't matter if this happens */
45 eicon_log(ccard, 1, "idi: Indication for unknown channel Ind=%d Id=%x\n", ind->Ind, ind->IndId);
46 eicon_log(ccard, 1, "idi_hdl: Ch??: Ind=%d Id=%x Ch=%d MInd=%d MLen=%d Len=%d\n",
47 ind->Ind,ind->IndId,ind->IndCh,ind->MInd,ind->MLength,ind->RBuffer.length);
53 spin_unlock_irqrestore(&eicon_lock, flags);
55 if (chan->e.complete) { /* check for rec-buffer chaining */
56 if (ind->MLength == ind->RBuffer.length) {
58 idi_handle_ind(ccard, skb);
64 skb_queue_tail(&chan->e.R, skb);
69 if (!(skb2 = skb_dequeue(&chan->e.R))) {
71 eicon_log(ccard, 1, "eicon: buffer incomplete, but 0 in queue\n");
75 ind2 = (eicon_IND *)skb2->data;
76 skb_new = alloc_skb(((sizeof(eicon_IND)-1)+ind->RBuffer.length+ind2->RBuffer.length),
79 eicon_log(ccard, 1, "eicon_io: skb_alloc failed in rcv_dispatch()\n");
84 ind_new = (eicon_IND *)skb_put(skb_new,
85 ((sizeof(eicon_IND)-1)+ind->RBuffer.length+ind2->RBuffer.length));
86 ind_new->Ind = ind2->Ind;
87 ind_new->IndId = ind2->IndId;
88 ind_new->IndCh = ind2->IndCh;
89 ind_new->MInd = ind2->MInd;
90 ind_new->MLength = ind2->MLength;
91 ind_new->RBuffer.length = ind2->RBuffer.length + ind->RBuffer.length;
92 memcpy(&ind_new->RBuffer.P, &ind2->RBuffer.P, ind2->RBuffer.length);
93 memcpy((&ind_new->RBuffer.P)+ind2->RBuffer.length, &ind->RBuffer.P, ind->RBuffer.length);
96 if (ind->MLength == ind->RBuffer.length) {
98 idi_handle_ind(ccard, skb_new);
102 chan->e.complete = 0;
103 skb_queue_tail(&chan->e.R, skb_new);
111 eicon_io_ack_dispatch(eicon_card *ccard) {
115 eicon_log(ccard, 1, "eicon_err: NULL card in ack_dispatch!\n");
118 while((skb = skb_dequeue(&ccard->rackq))) {
119 idi_handle_ack(ccard, skb);
125 * IO-Functions for ISA cards
128 u8 ram_inb(eicon_card *card, void *adr) {
129 u32 addr = (u32) adr;
134 u16 ram_inw(eicon_card *card, void *adr) {
135 u32 addr = (u32) adr;
140 void ram_outb(eicon_card *card, void *adr, u8 data) {
141 u32 addr = (u32) adr;
146 void ram_outw(eicon_card *card, void *adr , u16 data) {
147 u32 addr = (u32) adr;
152 void ram_copyfromcard(eicon_card *card, void *adrto, void *adr, int len) {
153 memcpy_fromio(adrto, adr, len);
156 void ram_copytocard(eicon_card *card, void *adrto, void *adr, int len) {
157 memcpy_toio(adrto, adr, len);
161 #ifdef CONFIG_ISDN_DRV_EICON_PCI
163 * IDI-Callback function
166 eicon_idi_callback(ENTITY *de)
168 eicon_card *ccard = (eicon_card *)de->R;
174 if (de->complete == 255) {
176 skb = alloc_skb(sizeof(eicon_RC), GFP_ATOMIC);
178 eicon_log(ccard, 1, "eicon_io: skb_alloc failed in _idi_callback()\n");
180 ack = (eicon_RC *)skb_put(skb, sizeof(eicon_RC));
182 if (de->Rc == ASSIGN_OK) {
184 de->user[1] = de->Id;
186 ack->RcId = de->user[1];
188 ack->RcCh = de->RcCh;
189 ack->Reference = de->user[0];
190 skb_queue_tail(&ccard->rackq, skb);
191 eicon_schedule_ack(ccard);
192 eicon_log(ccard, 128, "idi_cbk: Ch%d: Rc=%x Id=%x RLen=%x compl=%x\n",
193 de->user[0], de->Rc, ack->RcId, de->RLength, de->complete);
201 if (de->RLength <= 270)
202 eicon_log(ccard, 1, "eicon_cbk: ind not complete but <= 270\n");
204 skb = alloc_skb((sizeof(eicon_IND) + len - 1), GFP_ATOMIC);
206 eicon_log(ccard, 1, "eicon_io: skb_alloc failed in _idi_callback()\n");
208 ind = (eicon_IND *)skb_put(skb, (sizeof(eicon_IND) + len - 1));
210 ind->IndId = de->user[1];
211 ind->IndCh = de->IndCh;
213 ind->RBuffer.length = len;
214 ind->MLength = de->RLength;
215 memcpy(&ind->RBuffer.P, &de->RBuffer->P, len);
216 skb_queue_tail(&ccard->rcvq, skb);
217 eicon_schedule_rx(ccard);
218 eicon_log(ccard, 128, "idi_cbk: Ch%d: Ind=%x Id=%x RLen=%x compl=%x\n",
219 de->user[0], de->Ind, ind->IndId, de->RLength, de->complete);
228 #endif /* CONFIG_ISDN_DRV_EICON_PCI */
234 eicon_io_transmit(eicon_card *ccard) {
235 eicon_isa_card *isa_card;
237 struct sk_buff *skb2;
239 eicon_pr_ram *prram = 0;
240 eicon_isa_com *com = 0;
241 eicon_REQ *ReqOut = 0;
242 eicon_REQ *reqbuf = 0;
244 eicon_chan_ptr *chan2;
253 isa_card = &ccard->hwif.isa;
256 eicon_log(ccard, 1, "eicon_transmit: NULL card!\n");
260 switch(ccard->type) {
261 #ifdef CONFIG_ISDN_DRV_EICON_ISA
264 case EICON_CTYPE_SCOM:
265 case EICON_CTYPE_QUADRO:
267 com = (eicon_isa_com *)isa_card->shmem;
269 case EICON_CTYPE_S2M:
271 prram = (eicon_pr_ram *)isa_card->shmem;
274 #ifdef CONFIG_ISDN_DRV_EICON_PCI
275 case EICON_CTYPE_MAESTRAP:
278 case EICON_CTYPE_MAESTRAQ:
281 case EICON_CTYPE_MAESTRA:
286 eicon_log(ccard, 1, "eicon_transmit: unsupported card-type!\n");
291 if (!(skb2 = skb_dequeue(&ccard->sndq)))
294 spin_lock_irqsave(&eicon_lock, flags);
297 if ((ram_inb(ccard, &com->Req)) || (ccard->ReadyInt)) {
298 if (!ccard->ReadyInt) {
299 tmp = ram_inb(ccard, &com->ReadyInt) + 1;
300 ram_outb(ccard, &com->ReadyInt, tmp);
303 spin_unlock_irqrestore(&eicon_lock, flags);
304 skb_queue_head(&ccard->sndq, skb2);
305 eicon_log(ccard, 32, "eicon: transmit: Card not ready\n");
310 if (!(ram_inb(ccard, &prram->ReqOutput) - ram_inb(ccard, &prram->ReqInput))) {
311 spin_unlock_irqrestore(&eicon_lock, flags);
312 skb_queue_head(&ccard->sndq, skb2);
313 eicon_log(ccard, 32, "eicon: transmit: Card not ready\n");
318 spin_unlock_irqrestore(&eicon_lock, flags);
320 chan2 = (eicon_chan_ptr *)skb2->data;
323 if((skb = skb_dequeue(&chan->e.X))) {
325 reqbuf = (eicon_REQ *)skb->data;
326 if ((reqbuf->Reference) && (chan->e.B2Id == 0) && (reqbuf->ReqId & 0x1f)) {
327 eicon_log(ccard, 16, "eicon: transmit: error Id=0 on %d (Net)\n", chan->No);
329 spin_lock_irqsave(&eicon_lock, flags);
333 ram_outw(ccard, &com->XBuffer.length, reqbuf->XBuffer.length);
334 ram_copytocard(ccard, &com->XBuffer.P, &reqbuf->XBuffer.P, reqbuf->XBuffer.length);
335 ram_outb(ccard, &com->ReqCh, reqbuf->ReqCh);
338 /* get address of next available request buffer */
339 ReqOut = (eicon_REQ *)&prram->B[ram_inw(ccard, &prram->NextReq)];
340 ram_outw(ccard, &ReqOut->XBuffer.length, reqbuf->XBuffer.length);
341 ram_copytocard(ccard, &ReqOut->XBuffer.P, &reqbuf->XBuffer.P, reqbuf->XBuffer.length);
342 ram_outb(ccard, &ReqOut->ReqCh, reqbuf->ReqCh);
343 ram_outb(ccard, &ReqOut->Req, reqbuf->Req);
349 if (reqbuf->ReqId & 0x1f) { /* if this is no ASSIGN */
351 if (!reqbuf->Reference) { /* Signal Layer */
354 ram_outb(ccard, &com->ReqId, chan->e.D3Id);
357 ram_outb(ccard, &ReqOut->ReqId, chan->e.D3Id);
363 tmpid = chan->e.D3Id;
366 else { /* Net Layer */
369 ram_outb(ccard, &com->ReqId, chan->e.B2Id);
372 ram_outb(ccard, &ReqOut->ReqId, chan->e.B2Id);
378 tmpid = chan->e.B2Id;
380 if (((reqbuf->Req & 0x0f) == 0x08) ||
381 ((reqbuf->Req & 0x0f) == 0x01)) { /* Send Data */
382 chan->waitq = reqbuf->XBuffer.length;
383 chan->waitpq += reqbuf->XBuffer.length;
388 } else { /* It is an ASSIGN */
392 ram_outb(ccard, &com->ReqId, reqbuf->ReqId);
395 ram_outb(ccard, &ReqOut->ReqId, reqbuf->ReqId);
398 if (!reqbuf->Reference)
402 ep->Id = reqbuf->ReqId;
405 tmpid = reqbuf->ReqId;
407 if (!reqbuf->Reference)
415 chan->e.ref = ccard->ref_out++;
418 chan->e.ref = ram_inw(ccard, &ReqOut->Reference);
421 chan->e.ref = chan->No;
425 chan->e.Req = reqbuf->Req;
430 ram_outb(ccard, &com->Req, reqbuf->Req);
433 ram_outw(ccard, &prram->NextReq, ram_inw(ccard, &ReqOut->next));
436 #ifdef CONFIG_ISDN_DRV_EICON_PCI
438 ep->callback = eicon_idi_callback;
439 ep->R = (BUFFERS *)ccard;
440 ep->user[0] = (word)chan->No;
441 ep->user[1] = (word)tmpid;
447 ep->X->PLength = reqbuf->XBuffer.length;
448 memcpy(ep->X->P, &reqbuf->XBuffer.P, reqbuf->XBuffer.length);
449 ep->ReqCh = reqbuf->ReqCh;
450 ep->Req = reqbuf->Req;
456 spin_unlock_irqrestore(&eicon_lock, flags);
457 eicon_log(ccard, dlev, "eicon: Req=%d Id=%x Ch=%d Len=%d Ref=%d\n",
459 reqbuf->ReqCh, reqbuf->XBuffer.length,
461 #ifdef CONFIG_ISDN_DRV_EICON_PCI
464 ccard->d->request(ep);
466 eicon_idi_callback(ep);
476 skb_queue_tail(&ccard->sackq, skb2);
477 eicon_log(ccard, 128, "eicon: transmit: busy chan %d\n", chan->No);
486 if (!(skb2 = skb_dequeue(&ccard->sndq)))
493 ram_outb(ccard, &prram->ReqInput, (__u8)(ram_inb(ccard, &prram->ReqInput) + ReqCount));
495 while((skb = skb_dequeue(&ccard->sackq))) {
496 skb_queue_tail(&ccard->sndq, skb);
500 #ifdef CONFIG_ISDN_DRV_EICON_ISA
505 eicon_irq(int irq, void *dev_id, struct pt_regs *regs) {
506 eicon_card *ccard = (eicon_card *)dev_id;
507 eicon_isa_card *isa_card;
508 eicon_pr_ram *prram = 0;
509 eicon_isa_com *com = 0;
516 unsigned char *irqprobe = 0;
523 eicon_log(ccard, 1, "eicon_irq: spurious interrupt %d\n", irq);
527 if (ccard->type == EICON_CTYPE_QUADRO) {
530 com = (eicon_isa_com *)ccard->hwif.isa.shmem;
531 if ((readb(ccard->hwif.isa.intack))) { /* quadro found */
534 ccard = ccard->qnext;
539 isa_card = &ccard->hwif.isa;
541 switch(ccard->type) {
544 case EICON_CTYPE_SCOM:
545 case EICON_CTYPE_QUADRO:
547 com = (eicon_isa_com *)isa_card->shmem;
548 irqprobe = &isa_card->irqprobe;
550 case EICON_CTYPE_S2M:
552 prram = (eicon_pr_ram *)isa_card->shmem;
553 irqprobe = &isa_card->irqprobe;
556 eicon_log(ccard, 1, "eicon_irq: unsupported card-type!\n");
561 switch(ccard->type) {
564 case EICON_CTYPE_SCOM:
565 case EICON_CTYPE_QUADRO:
566 if (readb(isa_card->intack)) {
568 writeb(0, isa_card->intack);
572 case EICON_CTYPE_S2M:
573 if (readb(isa_card->intack)) {
574 writeb(0, &prram->RcOutput);
575 writeb(0, isa_card->intack);
583 switch(ccard->type) {
586 case EICON_CTYPE_SCOM:
587 case EICON_CTYPE_QUADRO:
588 case EICON_CTYPE_S2M:
589 if (!(readb(isa_card->intack))) { /* card did not interrupt */
590 eicon_log(ccard, 1, "eicon: IRQ: card reports no interrupt!\n");
598 /* if a return code is available ... */
599 if ((tmp = ram_inb(ccard, &com->Rc))) {
601 if (tmp == READY_INT) {
602 eicon_log(ccard, 64, "eicon: IRQ Rc=READY_INT\n");
603 if (ccard->ReadyInt) {
605 ram_outb(ccard, &com->Rc, 0);
606 eicon_schedule_tx(ccard);
609 skb = alloc_skb(sizeof(eicon_RC), GFP_ATOMIC);
611 eicon_log(ccard, 1, "eicon_io: skb_alloc failed in _irq()\n");
613 ack = (eicon_RC *)skb_put(skb, sizeof(eicon_RC));
615 ack->RcId = ram_inb(ccard, &com->RcId);
616 ack->RcCh = ram_inb(ccard, &com->RcCh);
617 ack->Reference = ccard->ref_in++;
618 eicon_log(ccard, 128, "eicon: IRQ Rc=%d Id=%x Ch=%d Ref=%d\n",
619 tmp,ack->RcId,ack->RcCh,ack->Reference);
620 skb_queue_tail(&ccard->rackq, skb);
621 eicon_schedule_ack(ccard);
623 ram_outb(ccard, &com->Req, 0);
624 ram_outb(ccard, &com->Rc, 0);
629 /* if an indication is available ... */
630 if ((tmp = ram_inb(ccard, &com->Ind))) {
632 int len = ram_inw(ccard, &com->RBuffer.length);
633 skb = alloc_skb((sizeof(eicon_IND) + len - 1), GFP_ATOMIC);
635 eicon_log(ccard, 1, "eicon_io: skb_alloc failed in _irq()\n");
637 ind = (eicon_IND *)skb_put(skb, (sizeof(eicon_IND) + len - 1));
639 ind->IndId = ram_inb(ccard, &com->IndId);
640 ind->IndCh = ram_inb(ccard, &com->IndCh);
641 ind->MInd = ram_inb(ccard, &com->MInd);
642 ind->MLength = ram_inw(ccard, &com->MLength);
643 ind->RBuffer.length = len;
644 if ((tmp == 1) || (tmp == 8))
648 eicon_log(ccard, dlev, "eicon: IRQ Ind=%d Id=%x Ch=%d MInd=%d MLen=%d Len=%d\n",
649 tmp,ind->IndId,ind->IndCh,ind->MInd,ind->MLength,len);
650 ram_copyfromcard(ccard, &ind->RBuffer.P, &com->RBuffer.P, len);
651 skb_queue_tail(&ccard->rcvq, skb);
652 eicon_schedule_rx(ccard);
654 ram_outb(ccard, &com->Ind, 0);
660 /* if return codes are available ... */
661 if((Count = ram_inb(ccard, &prram->RcOutput))) {
663 /* get the buffer address of the first return code */
664 RcIn = (eicon_RC *)&prram->B[ram_inw(ccard, &prram->NextRc)];
665 /* for all return codes do ... */
668 if((Rc=ram_inb(ccard, &RcIn->Rc))) {
669 skb = alloc_skb(sizeof(eicon_RC), GFP_ATOMIC);
671 eicon_log(ccard, 1, "eicon_io: skb_alloc failed in _irq()\n");
673 ack = (eicon_RC *)skb_put(skb, sizeof(eicon_RC));
675 ack->RcId = ram_inb(ccard, &RcIn->RcId);
676 ack->RcCh = ram_inb(ccard, &RcIn->RcCh);
677 ack->Reference = ram_inw(ccard, &RcIn->Reference);
678 eicon_log(ccard, 128, "eicon: IRQ Rc=%d Id=%x Ch=%d Ref=%d\n",
679 Rc,ack->RcId,ack->RcCh,ack->Reference);
680 skb_queue_tail(&ccard->rackq, skb);
681 eicon_schedule_ack(ccard);
683 ram_outb(ccard, &RcIn->Rc, 0);
685 /* get buffer address of next return code */
686 RcIn = (eicon_RC *)&prram->B[ram_inw(ccard, &RcIn->next)];
688 /* clear all return codes (no chaining!) */
689 ram_outb(ccard, &prram->RcOutput, 0);
692 /* if indications are available ... */
693 if((Count = ram_inb(ccard, &prram->IndOutput))) {
695 /* get the buffer address of the first indication */
696 IndIn = (eicon_IND *)&prram->B[ram_inw(ccard, &prram->NextInd)];
697 /* for all indications do ... */
699 Ind = ram_inb(ccard, &IndIn->Ind);
701 int len = ram_inw(ccard, &IndIn->RBuffer.length);
702 skb = alloc_skb((sizeof(eicon_IND) + len - 1), GFP_ATOMIC);
704 eicon_log(ccard, 1, "eicon_io: skb_alloc failed in _irq()\n");
706 ind = (eicon_IND *)skb_put(skb, (sizeof(eicon_IND) + len - 1));
708 ind->IndId = ram_inb(ccard, &IndIn->IndId);
709 ind->IndCh = ram_inb(ccard, &IndIn->IndCh);
710 ind->MInd = ram_inb(ccard, &IndIn->MInd);
711 ind->MLength = ram_inw(ccard, &IndIn->MLength);
712 ind->RBuffer.length = len;
713 if ((Ind == 1) || (Ind == 8))
717 eicon_log(ccard, dlev, "eicon: IRQ Ind=%d Id=%x Ch=%d MInd=%d MLen=%d Len=%d\n",
718 Ind,ind->IndId,ind->IndCh,ind->MInd,ind->MLength,len);
719 ram_copyfromcard(ccard, &ind->RBuffer.P, &IndIn->RBuffer.P, len);
720 skb_queue_tail(&ccard->rcvq, skb);
721 eicon_schedule_rx(ccard);
723 ram_outb(ccard, &IndIn->Ind, 0);
725 /* get buffer address of next indication */
726 IndIn = (eicon_IND *)&prram->B[ram_inw(ccard, &IndIn->next)];
728 ram_outb(ccard, &prram->IndOutput, 0);
733 /* clear interrupt */
734 switch(ccard->type) {
735 case EICON_CTYPE_QUADRO:
736 writeb(0, isa_card->intack);
737 writeb(0, &com[0x401]);
741 case EICON_CTYPE_SCOM:
742 case EICON_CTYPE_S2M:
743 writeb(0, isa_card->intack);