URL
https://opencores.org/ocsvn/or1k_old/or1k_old/trunk
Subversion Repositories or1k_old
[/] [or1k_old/] [trunk/] [uclinux/] [uClinux-2.0.x/] [drivers/] [isdn/] [hisax/] [isac.c] - Rev 199
Go to most recent revision | Compare with Previous | Blame | View Log
/* $Id: isac.c,v 1.1.1.1 2001-09-10 07:44:18 simons Exp $ * isac.c ISAC specific routines * * Author Karsten Keil (keil@isdn4linux.de) * * This file is (c) under GNU PUBLIC LICENSE * For changes and modifications please read * ../../../Documentation/isdn/HiSax.cert * * $Log: not supported by cvs2svn $ * Revision 1.1.1.1 2001/07/02 17:58:32 simons * Initial revision * * Revision 1.7.2.9 1998/11/03 00:06:41 keil * certification related changes * fixed logging for smaller stack use * * Revision 1.7.2.8 1998/09/27 13:06:18 keil * Apply most changes from 2.1.X (HiSax 3.1) * * Revision 1.7.2.7 1998/05/27 18:05:38 keil * HiSax 3.0 * * Revision 1.7.2.6 1998/04/08 21:57:31 keil * New init code to fix problems during init if S0 is allready activ * * Revision 1.7.2.5 1998/03/07 23:15:24 tsbogend * made HiSax working on Linux/Alpha * * Revision 1.7.2.4 1998/02/09 11:24:06 keil * New leased line support (Read README.HiSax!) * * Revision 1.7.2.3 1998/01/11 22:58:55 keil * new setstack interface * * Revision 1.7.2.2 1997/11/15 18:54:23 keil * cosmetics * * Revision 1.7.2.1 1997/10/17 22:10:49 keil * new files on 2.0 * * Revision 1.6 1997/08/15 17:47:08 keil * avoid oops because a uninitialised timer * * Revision 1.5 1997/08/07 17:48:49 keil * fix wrong parenthesis * * Revision 1.4 1997/07/30 17:11:59 keil * fixed Timer3 * * Revision 1.3 1997/07/27 21:37:40 keil * T3 implemented; supervisor l1timer; B-channel TEST_LOOP * * Revision 1.2 1997/06/26 11:16:15 keil * first version * * */ #define __NO_VERSION__ #include "hisax.h" #include "isac.h" #include "isdnl1.h" #include <linux/interrupt.h> #define DBUSY_TIMER_VALUE 80 #define ARCOFI_USE 1 static char *ISACVer[] HISAX_INITDATA = {"2086/2186 V1.1", "2085 B1", "2085 B2", "2085 V2.3"}; void ISACVersion(struct IsdnCardState *cs, char *s) { int val; val = cs->readisac(cs, ISAC_RBCH); printk(KERN_INFO "%s ISAC version (%x): %s\n", s, val, ISACVer[(val >> 5) & 3]); } static void ph_command(struct IsdnCardState *cs, unsigned int command) { if (cs->debug & L1_DEB_ISAC) debugl1(cs, "ph_command %x", command); cs->writeisac(cs, ISAC_CIX0, (command << 2) | 3); } static void isac_new_ph(struct IsdnCardState *cs) { switch (cs->ph_state) { case (ISAC_IND_RS): case (ISAC_IND_EI): ph_command(cs, ISAC_CMD_DUI); l1_msg(cs, HW_RESET | INDICATION, NULL); break; case (ISAC_IND_DID): l1_msg(cs, HW_DEACTIVATE | CONFIRM, NULL); break; case (ISAC_IND_DR): l1_msg(cs, HW_DEACTIVATE | INDICATION, NULL); break; case (ISAC_IND_PU): l1_msg(cs, HW_POWERUP | CONFIRM, NULL); break; case (ISAC_IND_RSY): l1_msg(cs, HW_RSYNC | INDICATION, NULL); break; case (ISAC_IND_ARD): l1_msg(cs, HW_INFO2 | INDICATION, NULL); break; case (ISAC_IND_AI8): l1_msg(cs, HW_INFO4_P8 | INDICATION, NULL); break; case (ISAC_IND_AI10): l1_msg(cs, HW_INFO4_P10 | INDICATION, NULL); break; default: break; } } static void isac_bh(struct IsdnCardState *cs) { struct PStack *stptr; if (!cs) return; if (test_and_clear_bit(D_CLEARBUSY, &cs->event)) { if (cs->debug) debugl1(cs, "D-Channel Busy cleared"); stptr = cs->stlist; while (stptr != NULL) { stptr->l1.l1l2(stptr, PH_PAUSE | CONFIRM, NULL); stptr = stptr->next; } } if (test_and_clear_bit(D_L1STATECHANGE, &cs->event)) isac_new_ph(cs); if (test_and_clear_bit(D_RCVBUFREADY, &cs->event)) DChannel_proc_rcv(cs); if (test_and_clear_bit(D_XMTBUFREADY, &cs->event)) DChannel_proc_xmt(cs); if (test_and_clear_bit(D_RX_MON0, &cs->event)) test_and_set_bit(HW_MON0_RX_END, &cs->HW_Flags); if (test_and_clear_bit(D_RX_MON1, &cs->event)) test_and_set_bit(HW_MON1_RX_END, &cs->HW_Flags); if (test_and_clear_bit(D_TX_MON0, &cs->event)) test_and_set_bit(HW_MON0_TX_END, &cs->HW_Flags); if (test_and_clear_bit(D_TX_MON1, &cs->event)) test_and_set_bit(HW_MON1_TX_END, &cs->HW_Flags); } void isac_empty_fifo(struct IsdnCardState *cs, int count) { u_char *ptr; long flags; if ((cs->debug & L1_DEB_ISAC) && !(cs->debug & L1_DEB_ISAC_FIFO)) debugl1(cs, "isac_empty_fifo"); if ((cs->rcvidx + count) >= MAX_DFRAME_LEN_L1) { if (cs->debug & L1_DEB_WARN) debugl1(cs, "isac_empty_fifo overrun %d", cs->rcvidx + count); cs->writeisac(cs, ISAC_CMDR, 0x80); cs->rcvidx = 0; return; } ptr = cs->rcvbuf + cs->rcvidx; cs->rcvidx += count; save_flags(flags); cli(); cs->readisacfifo(cs, ptr, count); cs->writeisac(cs, ISAC_CMDR, 0x80); restore_flags(flags); if (cs->debug & L1_DEB_ISAC_FIFO) { char *t = cs->dlog; t += sprintf(t, "isac_empty_fifo cnt %d", count); QuickHex(t, ptr, count); debugl1(cs, cs->dlog); } } static void isac_fill_fifo(struct IsdnCardState *cs) { int count, more; u_char *ptr; long flags; if ((cs->debug & L1_DEB_ISAC) && !(cs->debug & L1_DEB_ISAC_FIFO)) debugl1(cs, "isac_fill_fifo"); if (!cs->tx_skb) return; count = cs->tx_skb->len; if (count <= 0) return; more = 0; if (count > 32) { more = !0; count = 32; } save_flags(flags); cli(); ptr = cs->tx_skb->data; skb_pull(cs->tx_skb, count); cs->tx_cnt += count; cs->writeisacfifo(cs, ptr, count); cs->writeisac(cs, ISAC_CMDR, more ? 0x8 : 0xa); restore_flags(flags); if (test_and_set_bit(FLG_DBUSY_TIMER, &cs->HW_Flags)) { debugl1(cs, "isac_fill_fifo dbusytimer running"); del_timer(&cs->dbusytimer); } init_timer(&cs->dbusytimer); cs->dbusytimer.expires = jiffies + ((DBUSY_TIMER_VALUE * HZ)/1000); add_timer(&cs->dbusytimer); if (cs->debug & L1_DEB_ISAC_FIFO) { char *t = cs->dlog; t += sprintf(t, "isac_fill_fifo cnt %d", count); QuickHex(t, ptr, count); debugl1(cs, cs->dlog); } } void isac_sched_event(struct IsdnCardState *cs, int event) { test_and_set_bit(event, &cs->event); queue_task(&cs->tqueue, &tq_immediate); mark_bh(IMMEDIATE_BH); } void isac_interrupt(struct IsdnCardState *cs, u_char val) { u_char exval, v1; struct sk_buff *skb; unsigned int count; long flags; if (cs->debug & L1_DEB_ISAC) debugl1(cs, "ISAC interrupt %x", val); if (val & 0x80) { /* RME */ exval = cs->readisac(cs, ISAC_RSTA); if ((exval & 0x70) != 0x20) { if (exval & 0x40) if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC RDO"); if (!(exval & 0x20)) if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC CRC error"); cs->writeisac(cs, ISAC_CMDR, 0x80); } else { count = cs->readisac(cs, ISAC_RBCL) & 0x1f; if (count == 0) count = 32; isac_empty_fifo(cs, count); save_flags(flags); cli(); if ((count = cs->rcvidx) > 0) { cs->rcvidx = 0; if (!(skb = alloc_skb(count, GFP_ATOMIC))) printk(KERN_WARNING "HiSax: D receive out of memory\n"); else { SET_SKB_FREE(skb); memcpy(skb_put(skb, count), cs->rcvbuf, count); skb_queue_tail(&cs->rq, skb); } } restore_flags(flags); } cs->rcvidx = 0; isac_sched_event(cs, D_RCVBUFREADY); } if (val & 0x40) { /* RPF */ isac_empty_fifo(cs, 32); } if (val & 0x20) { /* RSC */ /* never */ if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC RSC interrupt"); } if (val & 0x10) { /* XPR */ if (test_and_clear_bit(FLG_DBUSY_TIMER, &cs->HW_Flags)) del_timer(&cs->dbusytimer); if (test_and_clear_bit(FLG_L1_DBUSY, &cs->HW_Flags)) isac_sched_event(cs, D_CLEARBUSY); if (cs->tx_skb) { if (cs->tx_skb->len) { isac_fill_fifo(cs); goto afterXPR; } else { dev_kfree_skb(cs->tx_skb, FREE_WRITE); cs->tx_cnt = 0; cs->tx_skb = NULL; } } if ((cs->tx_skb = skb_dequeue(&cs->sq))) { cs->tx_cnt = 0; isac_fill_fifo(cs); } else isac_sched_event(cs, D_XMTBUFREADY); } afterXPR: if (val & 0x04) { /* CISQ */ exval = cs->readisac(cs, ISAC_CIR0); if (cs->debug & L1_DEB_ISAC) debugl1(cs, "ISAC CIR0 %02X", exval ); if (exval & 2) { cs->ph_state = (exval >> 2) & 0xf; if (cs->debug & L1_DEB_ISAC) debugl1(cs, "ph_state change %x", cs->ph_state); isac_sched_event(cs, D_L1STATECHANGE); } if (exval & 1) { exval = cs->readisac(cs, ISAC_CIR1); if (cs->debug & L1_DEB_ISAC) debugl1(cs, "ISAC CIR1 %02X", exval ); } } if (val & 0x02) { /* SIN */ /* never */ if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC SIN interrupt"); } if (val & 0x01) { /* EXI */ exval = cs->readisac(cs, ISAC_EXIR); if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC EXIR %02x", exval); if (exval & 0x04) { v1 = cs->readisac(cs, ISAC_MOSR); if (cs->debug & L1_DEB_MONITOR) debugl1(cs, "ISAC MOSR %02x", v1); #if ARCOFI_USE if (v1 & 0x08) { if (!cs->mon_rx) { if (!(cs->mon_rx = kmalloc(MAX_MON_FRAME, GFP_ATOMIC))) { if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC MON RX out of memory!"); cs->mocr &= 0xf0; cs->mocr |= 0x0a; cs->writeisac(cs, ISAC_MOCR, cs->mocr); goto afterMONR0; } else cs->mon_rxp = 0; } if (cs->mon_rxp >= MAX_MON_FRAME) { cs->mocr &= 0xf0; cs->mocr |= 0x0a; cs->writeisac(cs, ISAC_MOCR, cs->mocr); cs->mon_rxp = 0; if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC MON RX overflow!"); goto afterMONR0; } cs->mon_rx[cs->mon_rxp++] = cs->readisac(cs, ISAC_MOR0); if (cs->debug & L1_DEB_MONITOR) debugl1(cs, "ISAC MOR0 %02x", cs->mon_rx[cs->mon_rxp -1]); if (cs->mon_rxp == 1) { cs->mocr |= 0x04; cs->writeisac(cs, ISAC_MOCR, cs->mocr); } } afterMONR0: if (v1 & 0x80) { if (!cs->mon_rx) { if (!(cs->mon_rx = kmalloc(MAX_MON_FRAME, GFP_ATOMIC))) { if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC MON RX out of memory!"); cs->mocr &= 0x0f; cs->mocr |= 0xa0; cs->writeisac(cs, ISAC_MOCR, cs->mocr); goto afterMONR1; } else cs->mon_rxp = 0; } if (cs->mon_rxp >= MAX_MON_FRAME) { cs->mocr &= 0x0f; cs->mocr |= 0xa0; cs->writeisac(cs, ISAC_MOCR, cs->mocr); cs->mon_rxp = 0; if (cs->debug & L1_DEB_WARN) debugl1(cs, "ISAC MON RX overflow!"); goto afterMONR1; } cs->mon_rx[cs->mon_rxp++] = cs->readisac(cs, ISAC_MOR1); if (cs->debug & L1_DEB_MONITOR) debugl1(cs, "ISAC MOR1 %02x", cs->mon_rx[cs->mon_rxp -1]); cs->mocr |= 0x40; cs->writeisac(cs, ISAC_MOCR, cs->mocr); } afterMONR1: if (v1 & 0x04) { cs->mocr &= 0xf0; cs->writeisac(cs, ISAC_MOCR, cs->mocr); cs->mocr |= 0x0a; cs->writeisac(cs, ISAC_MOCR, cs->mocr); test_and_set_bit(HW_MON0_RX_END, &cs->HW_Flags); } if (v1 & 0x40) { cs->mocr &= 0x0f; cs->writeisac(cs, ISAC_MOCR, cs->mocr); cs->mocr |= 0xa0; cs->writeisac(cs, ISAC_MOCR, cs->mocr); test_and_set_bit(HW_MON1_RX_END, &cs->HW_Flags); } if (v1 & 0x02) { if ((!cs->mon_tx) || (cs->mon_txc && (cs->mon_txp >= cs->mon_txc) && !(v1 & 0x08))) { cs->mocr &= 0xf0; cs->writeisac(cs, ISAC_MOCR, cs->mocr); cs->mocr |= 0x0a; cs->writeisac(cs, ISAC_MOCR, cs->mocr); if (cs->mon_txc && (cs->mon_txp >= cs->mon_txc)) test_and_set_bit(HW_MON0_TX_END, &cs->HW_Flags); goto AfterMOX0; } if (cs->mon_txc && (cs->mon_txp >= cs->mon_txc)) { test_and_set_bit(HW_MON0_TX_END, &cs->HW_Flags); goto AfterMOX0; } cs->writeisac(cs, ISAC_MOX0, cs->mon_tx[cs->mon_txp++]); if (cs->debug & L1_DEB_MONITOR) debugl1(cs, "ISAC %02x -> MOX0", cs->mon_tx[cs->mon_txp -1]); } AfterMOX0: if (v1 & 0x20) { if ((!cs->mon_tx) || (cs->mon_txc && (cs->mon_txp >= cs->mon_txc) && !(v1 & 0x80))) { cs->mocr &= 0x0f; cs->writeisac(cs, ISAC_MOCR, cs->mocr); cs->mocr |= 0xa0; cs->writeisac(cs, ISAC_MOCR, cs->mocr); if (cs->mon_txc && (cs->mon_txp >= cs->mon_txc)) test_and_set_bit(HW_MON1_TX_END, &cs->HW_Flags); goto AfterMOX1; } if (cs->mon_txc && (cs->mon_txp >= cs->mon_txc)) { test_and_set_bit(HW_MON1_TX_END, &cs->HW_Flags); goto AfterMOX1; } cs->writeisac(cs, ISAC_MOX1, cs->mon_tx[cs->mon_txp++]); if (cs->debug & L1_DEB_MONITOR) debugl1(cs, "ISAC %02x -> MOX1", cs->mon_tx[cs->mon_txp -1]); } AfterMOX1: #endif } } } static void ISAC_l1hw(struct PStack *st, int pr, void *arg) { struct IsdnCardState *cs = (struct IsdnCardState *) st->l1.hardware; struct sk_buff *skb = arg; int val; switch (pr) { case (PH_DATA |REQUEST): if (cs->debug & DEB_DLOG_HEX) LogFrame(cs, skb->data, skb->len); if (cs->debug & DEB_DLOG_VERBOSE) dlogframe(cs, skb, 0); if (cs->tx_skb) { skb_queue_tail(&cs->sq, skb); #ifdef L2FRAME_DEBUG /* psa */ if (cs->debug & L1_DEB_LAPD) Logl2Frame(cs, skb, "PH_DATA Queued", 0); #endif } else { cs->tx_skb = skb; cs->tx_cnt = 0; #ifdef L2FRAME_DEBUG /* psa */ if (cs->debug & L1_DEB_LAPD) Logl2Frame(cs, skb, "PH_DATA", 0); #endif isac_fill_fifo(cs); } break; case (PH_PULL |INDICATION): if (cs->tx_skb) { if (cs->debug & L1_DEB_WARN) debugl1(cs, " l2l1 tx_skb exist this shouldn't happen"); skb_queue_tail(&cs->sq, skb); break; } if (cs->debug & DEB_DLOG_HEX) LogFrame(cs, skb->data, skb->len); if (cs->debug & DEB_DLOG_VERBOSE) dlogframe(cs, skb, 0); cs->tx_skb = skb; cs->tx_cnt = 0; #ifdef L2FRAME_DEBUG /* psa */ if (cs->debug & L1_DEB_LAPD) Logl2Frame(cs, skb, "PH_DATA_PULLED", 0); #endif isac_fill_fifo(cs); break; case (PH_PULL | REQUEST): #ifdef L2FRAME_DEBUG /* psa */ if (cs->debug & L1_DEB_LAPD) debugl1(cs, "-> PH_REQUEST_PULL"); #endif if (!cs->tx_skb) { test_and_clear_bit(FLG_L1_PULL_REQ, &st->l1.Flags); st->l1.l1l2(st, PH_PULL | CONFIRM, NULL); } else test_and_set_bit(FLG_L1_PULL_REQ, &st->l1.Flags); break; case (HW_RESET | REQUEST): if ((cs->ph_state == ISAC_IND_EI) || (cs->ph_state == ISAC_IND_DR) || (cs->ph_state == ISAC_IND_RS)) ph_command(cs, ISAC_CMD_TIM); else ph_command(cs, ISAC_CMD_RS); break; case (HW_ENABLE | REQUEST): ph_command(cs, ISAC_CMD_TIM); break; case (HW_INFO3 | REQUEST): ph_command(cs, ISAC_CMD_AR8); break; case (HW_TESTLOOP | REQUEST): val = 0; if (1 & (long) arg) val |= 0x0c; if (2 & (long) arg) val |= 0x3; if (test_bit(HW_IOM1, &cs->HW_Flags)) { /* IOM 1 Mode */ if (!val) { cs->writeisac(cs, ISAC_SPCR, 0xa); cs->writeisac(cs, ISAC_ADF1, 0x2); } else { cs->writeisac(cs, ISAC_SPCR, val); cs->writeisac(cs, ISAC_ADF1, 0xa); } } else { /* IOM 2 Mode */ cs->writeisac(cs, ISAC_SPCR, val); if (val) cs->writeisac(cs, ISAC_ADF1, 0x8); else cs->writeisac(cs, ISAC_ADF1, 0x0); } break; case (HW_DEACTIVATE | RESPONSE): discard_queue(&cs->rq); discard_queue(&cs->sq); if (cs->tx_skb) { dev_kfree_skb(cs->tx_skb, FREE_WRITE); cs->tx_skb = NULL; } if (test_and_clear_bit(FLG_DBUSY_TIMER, &cs->HW_Flags)) del_timer(&cs->dbusytimer); if (test_and_clear_bit(FLG_L1_DBUSY, &cs->HW_Flags)) isac_sched_event(cs, D_CLEARBUSY); break; default: if (cs->debug & L1_DEB_WARN) debugl1(cs, "isac_l1hw unknown %04x", pr); break; } } void setstack_isac(struct PStack *st, struct IsdnCardState *cs) { st->l1.l1hw = ISAC_l1hw; } static void dbusy_timer_handler(struct IsdnCardState *cs) { struct PStack *stptr; int val; if (test_bit(FLG_DBUSY_TIMER, &cs->HW_Flags)) { if (cs->debug) { debugl1(cs, "D-Channel Busy"); val = cs->readisac(cs, ISAC_RBCH); if (val & ISAC_RBCH_XAC) debugl1(cs, "ISAC XAC"); else debugl1(cs, "ISAC No XAC"); } test_and_set_bit(FLG_L1_DBUSY, &cs->HW_Flags); stptr = cs->stlist; while (stptr != NULL) { stptr->l1.l1l2(stptr, PH_PAUSE | INDICATION, NULL); stptr = stptr->next; } } } HISAX_INITFUNC(void initisac(struct IsdnCardState *cs)) { cs->tqueue.routine = (void *) (void *) isac_bh; cs->setstack_d = setstack_isac; cs->dbusytimer.function = (void *) dbusy_timer_handler; cs->dbusytimer.data = (long) cs; init_timer(&cs->dbusytimer); cs->writeisac(cs, ISAC_MASK, 0xff); cs->mocr = 0xaa; if (test_bit(HW_IOM1, &cs->HW_Flags)) { /* IOM 1 Mode */ cs->writeisac(cs, ISAC_ADF2, 0x0); cs->writeisac(cs, ISAC_SPCR, 0xa); cs->writeisac(cs, ISAC_ADF1, 0x2); cs->writeisac(cs, ISAC_STCR, 0x70); cs->writeisac(cs, ISAC_MODE, 0xc9); } else { /* IOM 2 Mode */ cs->writeisac(cs, ISAC_ADF2, 0x80); cs->writeisac(cs, ISAC_SQXR, 0x2f); cs->writeisac(cs, ISAC_SPCR, 0x00); cs->writeisac(cs, ISAC_STCR, 0x70); cs->writeisac(cs, ISAC_MODE, 0xc9); cs->writeisac(cs, ISAC_TIMR, 0x00); cs->writeisac(cs, ISAC_ADF1, 0x00); } ph_command(cs, ISAC_CMD_RS); cs->writeisac(cs, ISAC_MASK, 0x0); } HISAX_INITFUNC(void clear_pending_isac_ints(struct IsdnCardState *cs)) { int val, eval; val = cs->readisac(cs, ISAC_STAR); debugl1(cs, "ISAC STAR %x", val); val = cs->readisac(cs, ISAC_MODE); debugl1(cs, "ISAC MODE %x", val); val = cs->readisac(cs, ISAC_ADF2); debugl1(cs, "ISAC ADF2 %x", val); val = cs->readisac(cs, ISAC_ISTA); debugl1(cs, "ISAC ISTA %x", val); if (val & 0x01) { eval = cs->readisac(cs, ISAC_EXIR); debugl1(cs, "ISAC EXIR %x", eval); } val = cs->readisac(cs, ISAC_CIR0); debugl1(cs, "ISAC CIR0 %x", val); cs->ph_state = (val >> 2) & 0xf; isac_sched_event(cs, D_L1STATECHANGE); /* Disable all IRQ */ cs->writeisac(cs, ISAC_MASK, 0xFF); }
Go to most recent revision | Compare with Previous | Blame | View Log