retronetworking
/
mISDN
13
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
mISDN/drivers/isdn/hardware/mISDN/isar.c

1781 lines
47 KiB
C
Raw Blame History

/* $Id$
*
* isar.c ISAR (Siemens PSB 7110) specific routines
*
* Author Karsten Keil (keil@isdn4linux.de)
*
* This file is (c) under GNU PUBLIC LICENSE
*
*/
#include <linux/delay.h>
#include <linux/vmalloc.h>
#include "layer1.h"
#include "channel.h"
#include "isar.h"
#include "debug.h"
#define DBG_LOADFIRM 0
#define DUMP_MBOXFRAME 2
#define MIN(a,b) ((a<b)?a:b)
static char *ISAR_revision = "$Revision$";
const u_char faxmodulation_s[] = "3,24,48,72,73,74,96,97,98,121,122,145,146";
const u_char faxmodulation[] = {3,24,48,72,73,74,96,97,98,121,122,145,146};
#define FAXMODCNT 13
void isar_setup(channel_t *);
static void isar_pump_cmd(channel_t *, int, u_char);
static int firmwaresize = 0;
static u_char *firmware;
static u_char *fw_p;
static inline int
waitforHIA(channel_t *bch, int timeout)
{
while ((bch->read_reg(bch->inst.privat, ISAR_HIA) & 1) && timeout) {
udelay(1);
timeout--;
}
if (!timeout)
printk(KERN_WARNING "mISDN: ISAR waitforHIA timeout\n");
return(timeout);
}
int
sendmsg(channel_t *bch, u_char his, u_char creg, u_char len,
u_char *msg)
{
int i;
if (!waitforHIA(bch, 4000))
return(0);
#if DUMP_MBOXFRAME
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "sendmsg(%02x,%02x,%d)", his, creg, len);
#endif
bch->write_reg(bch->inst.privat, ISAR_CTRL_H, creg);
bch->write_reg(bch->inst.privat, ISAR_CTRL_L, len);
bch->write_reg(bch->inst.privat, ISAR_WADR, 0);
if (msg && len) {
bch->write_fifo(bch->inst.privat, msg, len);
#if DUMP_MBOXFRAME>1
if (bch->debug & L1_DEB_HSCX_FIFO) {
char *t;
i = len;
while (i>0) {
t = bch->log;
t += sprintf(t, "sendmbox cnt %d", len);
mISDN_QuickHex(t, &msg[len-i], (i>64) ? 64:i);
mISDN_debugprint(&bch->inst, bch->log);
i -= 64;
}
}
#endif
}
bch->write_reg(bch->inst.privat, ISAR_HIS, his);
waitforHIA(bch, 10000);
return(1);
}
/* Call only with IRQ disabled !!! */
inline void
rcv_mbox(channel_t *bch, isar_reg_t *ireg, u_char *msg)
{
int i;
bch->write_reg(bch->inst.privat, ISAR_RADR, 0);
if (msg && ireg->clsb) {
bch->read_fifo(bch->inst.privat, msg, ireg->clsb);
#if DUMP_MBOXFRAME>1
if (bch->debug & L1_DEB_HSCX_FIFO) {
char *t;
i = ireg->clsb;
while (i>0) {
t = bch->log;
t += sprintf(t, "rcv_mbox cnt %d", ireg->clsb);
mISDN_QuickHex(t, &msg[ireg->clsb-i], (i>64) ? 64:i);
mISDN_debugprint(&bch->inst, bch->log);
i -= 64;
}
}
#endif
}
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
}
/* Call only with IRQ disabled !!! */
inline void
get_irq_infos(channel_t *bch, isar_reg_t *ireg)
{
ireg->iis = bch->read_reg(bch->inst.privat, ISAR_IIS);
ireg->cmsb = bch->read_reg(bch->inst.privat, ISAR_CTRL_H);
ireg->clsb = bch->read_reg(bch->inst.privat, ISAR_CTRL_L);
#if DUMP_MBOXFRAME
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "rcv_mbox(%02x,%02x,%d)", ireg->iis, ireg->cmsb,
ireg->clsb);
#endif
}
int
waitrecmsg(channel_t *bch, u_char *len,
u_char *msg, int maxdelay)
{
int timeout = 0;
isar_hw_t *ih = bch->hw;
while((!(bch->read_reg(bch->inst.privat, ISAR_IRQBIT) & ISAR_IRQSTA)) &&
(timeout++ < maxdelay))
udelay(1);
if (timeout >= maxdelay) {
printk(KERN_WARNING"isar recmsg IRQSTA timeout\n");
return(0);
}
get_irq_infos(bch, ih->reg);
rcv_mbox(bch, ih->reg, msg);
*len = ih->reg->clsb;
return(1);
}
int
ISARVersion(channel_t *bch, char *s)
{
int ver;
u_char msg[] = ISAR_MSG_HWVER;
u_char tmp[64];
u_char len;
isar_hw_t *ih = bch->hw;
int debug;
// bch->cardmsg(bch->inst.privat, CARD_RESET, NULL);
/* disable ISAR IRQ */
bch->write_reg(bch->inst.privat, ISAR_IRQBIT, 0);
debug = bch->debug;
bch->debug &= ~(L1_DEB_HSCX | L1_DEB_HSCX_FIFO);
if (!sendmsg(bch, ISAR_HIS_VNR, 0, 3, msg))
return(-1);
if (!waitrecmsg(bch, &len, tmp, 100000))
return(-2);
bch->debug = debug;
if (ih->reg->iis == ISAR_IIS_VNR) {
if (len == 1) {
ver = tmp[0] & 0xf;
printk(KERN_INFO "%s ISAR version %d\n", s, ver);
return(ver);
}
return(-3);
}
return(-4);
}
int
isar_load_firmware(channel_t *bch, u_char *buf, int size)
{
int ret, cnt, debug;
u_char len, nom, noc;
u_short sadr, left, *sp;
u_char *p = buf;
u_char *msg, *tmpmsg, *mp, tmp[64];
isar_hw_t *ih = bch->hw;
u_long flags;
struct {u_short sadr;
u_short len;
u_short d_key;
} *blk_head;
spin_lock_irqsave(bch->inst.hwlock, flags);
#define BLK_HEAD_SIZE 6
if (1 != (ret = ISARVersion(bch, "Testing"))) {
printk(KERN_ERR"isar_load_firmware wrong isar version %d\n", ret);
spin_unlock_irqrestore(bch->inst.hwlock, flags);
return(1);
}
debug = bch->debug;
#if DBG_LOADFIRM<2
bch->debug &= ~(L1_DEB_HSCX | L1_DEB_HSCX_FIFO);
#endif
printk(KERN_DEBUG"isar_load_firmware buf %#lx\n", (u_long)buf);
printk(KERN_DEBUG"isar_load_firmware size: %d\n", size);
cnt = 0;
/* disable ISAR IRQ */
bch->write_reg(bch->inst.privat, ISAR_IRQBIT, 0);
if (!(msg = kmalloc(256, GFP_ATOMIC))) {
printk(KERN_ERR"isar_load_firmware no buffer\n");
spin_unlock_irqrestore(bch->inst.hwlock, flags);
return (1);
}
while (cnt < size) {
blk_head = (void *)p;
#ifdef __BIG_ENDIAN
sadr = (blk_head->sadr & 0xff)*256 + blk_head->sadr/256;
blk_head->sadr = sadr;
sadr = (blk_head->len & 0xff)*256 + blk_head->len/256;
blk_head->len = sadr;
sadr = (blk_head->d_key & 0xff)*256 + blk_head->d_key/256;
blk_head->d_key = sadr;
#endif /* __BIG_ENDIAN */
cnt += BLK_HEAD_SIZE;
p += BLK_HEAD_SIZE;
printk(KERN_DEBUG"isar firmware block (%#x,%5d,%#x)\n",
blk_head->sadr, blk_head->len, blk_head->d_key & 0xff);
sadr = blk_head->sadr;
left = blk_head->len;
if (cnt+left > size) {
printk(KERN_ERR"isar: firmware size error have %d need %d bytes\n",
size, cnt+left);
ret = 1;goto reterror;
}
if (!sendmsg(bch, ISAR_HIS_DKEY, blk_head->d_key & 0xff, 0, NULL)) {
printk(KERN_ERR"isar sendmsg dkey failed\n");
ret = 1;goto reterror;
}
if (!waitrecmsg(bch, &len, tmp, 100000)) {
printk(KERN_ERR"isar waitrecmsg dkey failed\n");
ret = 1;goto reterror;
}
if ((ih->reg->iis != ISAR_IIS_DKEY) || ih->reg->cmsb || len) {
printk(KERN_ERR"isar wrong dkey response (%x,%x,%x)\n",
ih->reg->iis, ih->reg->cmsb, len);
ret = 1;goto reterror;
}
while (left>0) {
noc = MIN(126, left);
nom = 2*noc;
mp = msg;
*mp++ = sadr / 256;
*mp++ = sadr % 256;
left -= noc;
*mp++ = noc;
tmpmsg = p;
p += nom;
cnt += nom;
nom += 3;
sp = (u_short *)tmpmsg;
#if DBG_LOADFIRM
printk(KERN_DEBUG"isar: load %3d words at %04x\n",
noc, sadr);
#endif
sadr += noc;
while(noc) {
#ifdef __BIG_ENDIAN
*mp++ = *sp % 256;
*mp++ = *sp / 256;
#else
*mp++ = *sp / 256;
*mp++ = *sp % 256;
#endif /* __BIG_ENDIAN */
sp++;
noc--;
}
if (!sendmsg(bch, ISAR_HIS_FIRM, 0, nom, msg)) {
printk(KERN_ERR"isar sendmsg prog failed\n");
ret = 1;goto reterror;
}
if (!waitrecmsg(bch, &len, tmp, 100000)) {
printk(KERN_ERR"isar waitrecmsg prog failed\n");
ret = 1;goto reterror;
}
if ((ih->reg->iis != ISAR_IIS_FIRM) || ih->reg->cmsb || len) {
printk(KERN_ERR"isar wrong prog response (%x,%x,%x)\n",
ih->reg->iis, ih->reg->cmsb, len);
ret = 1;goto reterror;
}
}
printk(KERN_DEBUG"isar firmware block %5d words loaded\n",
blk_head->len);
}
/* 10ms delay */
cnt = 10;
while (cnt--)
udelay(1000);
msg[0] = 0xff;
msg[1] = 0xfe;
ih->reg->bstat = 0;
if (!sendmsg(bch, ISAR_HIS_STDSP, 0, 2, msg)) {
printk(KERN_ERR"isar sendmsg start dsp failed\n");
ret = 1;goto reterror;
}
if (!waitrecmsg(bch, &len, tmp, 100000)) {
printk(KERN_ERR"isar waitrecmsg start dsp failed\n");
ret = 1;goto reterror;
}
if ((ih->reg->iis != ISAR_IIS_STDSP) || ih->reg->cmsb || len) {
printk(KERN_ERR"isar wrong start dsp response (%x,%x,%x)\n",
ih->reg->iis, ih->reg->cmsb, len);
ret = 1;goto reterror;
} else
printk(KERN_DEBUG"isar start dsp success\n");
/* NORMAL mode entered */
/* Enable IRQs of ISAR */
bch->write_reg(bch->inst.privat, ISAR_IRQBIT, ISAR_IRQSTA);
spin_unlock_irqrestore(bch->inst.hwlock, flags);
cnt = 1000; /* max 1s */
while ((!ih->reg->bstat) && cnt) {
mdelay(1);
cnt--;
}
if (!cnt) {
printk(KERN_ERR"isar no general status event received\n");
ret = 1;
goto reterrflg;
} else {
printk(KERN_DEBUG"isar general status event %x\n",
ih->reg->bstat);
}
/* 10ms delay */
cnt = 10;
while (cnt--)
mdelay(1);
ih->reg->iis = 0;
spin_lock_irqsave(bch->inst.hwlock, flags);
if (!sendmsg(bch, ISAR_HIS_DIAG, ISAR_CTRL_STST, 0, NULL)) {
printk(KERN_ERR"isar sendmsg self tst failed\n");
ret = 1;goto reterror;
}
spin_unlock_irqrestore(bch->inst.hwlock, flags);
cnt = 10000; /* max 100 ms */
while ((ih->reg->iis != ISAR_IIS_DIAG) && cnt) {
udelay(10);
cnt--;
}
mdelay(1);
if (!cnt) {
printk(KERN_ERR"isar no self tst response\n");
ret = 1;goto reterrflg;
}
if ((ih->reg->cmsb == ISAR_CTRL_STST) && (ih->reg->clsb == 1)
&& (ih->reg->par[0] == 0)) {
printk(KERN_DEBUG"isar selftest OK\n");
} else {
printk(KERN_DEBUG"isar selftest not OK %x/%x/%x\n",
ih->reg->cmsb, ih->reg->clsb, ih->reg->par[0]);
ret = 1;goto reterrflg;
}
spin_lock_irqsave(bch->inst.hwlock, flags);
ih->reg->iis = 0;
if (!sendmsg(bch, ISAR_HIS_DIAG, ISAR_CTRL_SWVER, 0, NULL)) {
printk(KERN_ERR"isar RQST SVN failed\n");
ret = 1;goto reterror;
}
spin_unlock_irqrestore(bch->inst.hwlock, flags);
cnt = 30000; /* max 300 ms */
while ((ih->reg->iis != ISAR_IIS_DIAG) && cnt) {
udelay(10);
cnt--;
}
mdelay(1);
if (!cnt) {
printk(KERN_ERR"isar no SVN response\n");
ret = 1;goto reterrflg;
} else {
if ((ih->reg->cmsb == ISAR_CTRL_SWVER) && (ih->reg->clsb == 1))
printk(KERN_DEBUG"isar software version %#x\n",
ih->reg->par[0]);
else {
printk(KERN_ERR"isar wrong swver response (%x,%x) cnt(%d)\n",
ih->reg->cmsb, ih->reg->clsb, cnt);
ret = 1;goto reterrflg;
}
}
bch->debug = debug;
spin_lock_irqsave(bch->inst.hwlock, flags);
isar_setup(bch);
spin_unlock_irqrestore(bch->inst.hwlock, flags);
bch->inst.obj->own_ctrl(&bch->inst, MGR_LOADFIRM | CONFIRM, NULL);
ret = 0;
reterrflg:
spin_lock_irqsave(bch->inst.hwlock, flags);
reterror:
bch->debug = debug;
if (ret)
/* disable ISAR IRQ */
bch->write_reg(bch->inst.privat, ISAR_IRQBIT, 0);
spin_unlock_irqrestore(bch->inst.hwlock, flags);
kfree(msg);
return(ret);
}
#ifdef OBSOLETE
#define B_LL_READY 8
#define B_LL_NOCARRIER 9
#define B_LL_CONNECT 10
#define B_LL_OK 11
#define B_LL_FCERROR 12
#define B_TOUCH_TONE 13
#endif
static inline void
deliver_status(channel_t *bch, int status)
{
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "HL->LL FAXIND %x", status);
mISDN_queue_data(&bch->inst, FLG_MSG_UP, PH_STATUS | INDICATION, status, 0, NULL, 0);
}
#ifdef OBSOLETE
static void
isar_bh(channel_t *bch)
{
int tt;
if (test_and_clear_bit(B_LL_READY, &bch->event))
deliver_status(bch, HW_MOD_READY);
if (test_and_clear_bit(B_LL_NOCARRIER, &bch->event))
deliver_status(bch, HW_MOD_NOCARR);
if (test_and_clear_bit(B_LL_CONNECT, &bch->event))
deliver_status(bch, HW_MOD_CONNECT);
if (test_and_clear_bit(B_LL_OK, &bch->event))
deliver_status(bch, HW_MOD_OK);
if (test_and_clear_bit(B_LL_FCERROR, &bch->event))
deliver_status(bch, HW_MOD_FCERROR);
if (test_and_clear_bit(B_TOUCH_TONE, &bch->event)) {
tt = bch->conmsg[0] | 0x30;
if (tt == 0x3e)
tt = '*';
else if (tt == 0x3f)
tt = '#';
else if (tt > '9')
tt += 7;
tt |= DTMF_TONE_VAL;
mISDN_queue_data(&bch->inst, FLG_MSG_UP, PH_CONTROL | INDICATION,
0, sizeof(int), &tt, 0);
}
}
#endif
static inline void
isar_rcv_frame(channel_t *bch)
{
u_char *ptr;
struct sk_buff *skb;
isar_hw_t *ih = bch->hw;
if (!ih->reg->clsb) {
mISDN_debugprint(&bch->inst, "isar zero len frame");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
return;
}
switch (bch->state) {
case ISDN_PID_NONE:
mISDN_debugprint(&bch->inst, "isar protocol 0 spurious IIS_RDATA %x/%x/%x",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
printk(KERN_WARNING"isar protocol 0 spurious IIS_RDATA %x/%x/%x\n",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
case ISDN_PID_L1_B_64TRANS:
case ISDN_PID_L2_B_TRANSDTMF:
case ISDN_PID_L1_B_MODEM_ASYNC:
if (!bch->rx_skb) {
bch->rx_skb = alloc_stack_skb(ih->reg->clsb, bch->up_headerlen);
if (unlikely(!bch->rx_skb)) {
printk(KERN_WARNING "mISDN: skb out of memory\n");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
}
}
rcv_mbox(bch, ih->reg, (u_char *)skb_put(bch->rx_skb, ih->reg->clsb));
queue_ch_frame(bch, INDICATION, MISDN_ID_ANY, bch->rx_skb);
bch->rx_skb = NULL;
break;
case ISDN_PID_L1_B_64HDLC:
if (!bch->rx_skb) {
bch->rx_skb = alloc_stack_skb(bch->maxlen + 2, bch->up_headerlen);
if (unlikely(!bch->rx_skb)) {
printk(KERN_WARNING "mISDN: skb out of memory\n");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
}
}
if ((bch->rx_skb->len + ih->reg->clsb) > (bch->maxlen + 2)) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar_rcv_frame: incoming packet too large");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
skb_trim(bch->rx_skb, 0);
break;
}
if (ih->reg->cmsb & HDLC_ERROR) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar frame error %x len %d",
ih->reg->cmsb, ih->reg->clsb);
#ifdef ERROR_STATISTIC
if (ih->reg->cmsb & HDLC_ERR_RER)
bch->err_inv++;
if (ih->reg->cmsb & HDLC_ERR_CER)
bch->err_crc++;
#endif
skb_trim(bch->rx_skb, 0);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
}
if (ih->reg->cmsb & HDLC_FSD)
skb_trim(bch->rx_skb, 0);
ptr = skb_put(bch->rx_skb, ih->reg->clsb);
rcv_mbox(bch, ih->reg, ptr);
if (ih->reg->cmsb & HDLC_FED) {
if (bch->rx_skb->len < 3) { /* last 2 bytes are the FCS */
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar frame to short %d",
bch->rx_skb->len);
skb_trim(bch->rx_skb, 0);
break;
}
skb_trim(bch->rx_skb, bch->rx_skb->len - 2);
if (bch->rx_skb->len < MISDN_COPY_SIZE) {
skb = alloc_stack_skb(bch->rx_skb->len, bch->up_headerlen);
if (skb) {
memcpy(skb_put(skb, bch->rx_skb->len),
bch->rx_skb->data, bch->rx_skb->len);
skb_trim(bch->rx_skb, 0);
} else {
skb = bch->rx_skb;
bch->rx_skb = NULL;
}
} else {
skb = bch->rx_skb;
bch->rx_skb = NULL;
}
queue_ch_frame(bch, INDICATION, MISDN_ID_ANY, skb);
}
break;
case ISDN_PID_L1_B_T30FAX:
if (ih->state != STFAX_ACTIV) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar_rcv_frame: not ACTIV");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
if (bch->rx_skb)
skb_trim(bch->rx_skb, 0);
break;
}
if (ih->cmd == PCTRL_CMD_FRM) {
if (!bch->rx_skb) {
bch->rx_skb = alloc_stack_skb(ih->reg->clsb, bch->up_headerlen);
if (unlikely(!bch->rx_skb)) {
printk(KERN_WARNING "mISDN: skb out of memory\n");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
}
}
rcv_mbox(bch, ih->reg, skb_put(bch->rx_skb, ih->reg->clsb));
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "isar_rcv_frame: %d",
bch->rx_skb->len);
if (ih->reg->cmsb & SART_NMD) { /* ABORT */
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar_rcv_frame: no more data");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
sendmsg(bch, SET_DPS(ih->dpath) |
ISAR_HIS_PUMPCTRL, PCTRL_CMD_ESC,
0, NULL);
ih->state = STFAX_ESCAPE;
// set_skb_flag(skb, DF_NOMOREDATA);
}
queue_ch_frame(bch, INDICATION, MISDN_ID_ANY, bch->rx_skb);
bch->rx_skb = NULL;
if (ih->reg->cmsb & SART_NMD)
deliver_status(bch, HW_MOD_NOCARR);
break;
}
if (ih->cmd != PCTRL_CMD_FRH) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar_rcv_frame: unknown fax mode %x",
ih->cmd);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
if (bch->rx_skb)
skb_trim(bch->rx_skb, 0);
break;
}
/* PCTRL_CMD_FRH */
if (!bch->rx_skb) {
bch->rx_skb = alloc_stack_skb(bch->maxlen + 2, bch->up_headerlen);
if (unlikely(!bch->rx_skb)) {
printk(KERN_WARNING "mISDN: skb out of memory\n");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
}
}
if ((bch->rx_skb->len + ih->reg->clsb) > (bch->maxlen + 2)) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar_rcv_frame: incoming packet too large");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
skb_trim(bch->rx_skb, 0);
break;
} else if (ih->reg->cmsb & HDLC_ERROR) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar frame error %x len %d",
ih->reg->cmsb, ih->reg->clsb);
skb_trim(bch->rx_skb, 0);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
}
if (ih->reg->cmsb & HDLC_FSD)
skb_trim(bch->rx_skb, 0);
ptr = skb_put(bch->rx_skb, ih->reg->clsb);
rcv_mbox(bch, ih->reg, ptr);
if (ih->reg->cmsb & HDLC_FED) {
if (bch->rx_skb->len < 3) { /* last 2 bytes are the FCS */
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar frame to short %d",
bch->rx_skb->len);
skb_trim(bch->rx_skb, 0);
break;
}
skb_trim(bch->rx_skb, bch->rx_skb->len - 2);
if (bch->rx_skb->len < MISDN_COPY_SIZE) {
skb = alloc_stack_skb(bch->rx_skb->len, bch->up_headerlen);
if (skb) {
memcpy(skb_put(skb, bch->rx_skb->len),
bch->rx_skb->data, bch->rx_skb->len);
skb_trim(bch->rx_skb, 0);
} else {
skb = bch->rx_skb;
bch->rx_skb = NULL;
}
} else {
skb = bch->rx_skb;
bch->rx_skb = NULL;
}
queue_ch_frame(bch, INDICATION, MISDN_ID_ANY, skb);
}
if (ih->reg->cmsb & SART_NMD) { /* ABORT */
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar_rcv_frame: no more data");
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
if (bch->rx_skb)
skb_trim(bch->rx_skb, 0);
sendmsg(bch, SET_DPS(ih->dpath) | ISAR_HIS_PUMPCTRL,
PCTRL_CMD_ESC, 0, NULL);
ih->state = STFAX_ESCAPE;
deliver_status(bch, HW_MOD_NOCARR);
}
break;
default:
printk(KERN_ERR"isar_rcv_frame protocol (%x)error\n", bch->state);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
}
}
void
isar_fill_fifo(channel_t *bch)
{
isar_hw_t *ih = bch->hw;
int count;
u_char msb;
u_char *ptr;
if ((bch->debug & L1_DEB_HSCX) && !(bch->debug & L1_DEB_HSCX_FIFO))
mISDN_debugprint(&bch->inst, "%s", __FUNCTION__);
if (!bch->tx_skb)
return;
count = bch->tx_skb->len - bch->tx_idx;
if (count <= 0)
return;
if (!(ih->reg->bstat &
(ih->dpath == 1 ? BSTAT_RDM1 : BSTAT_RDM2)))
return;
if (count > ih->mml) {
msb = 0;
count = ih->mml;
} else {
msb = HDLC_FED;
}
ptr = bch->tx_skb->data + bch->tx_idx;
if (!bch->tx_idx) {
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "frame start");
if ((bch->state == ISDN_PID_L1_B_T30FAX) &&
(ih->cmd == PCTRL_CMD_FTH)) {
if (count > 1) {
if ((ptr[0]== 0xff) && (ptr[1] == 0x13)) {
/* last frame */
test_and_set_bit(FLG_LASTDATA, &bch->Flags);
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "set LASTDATA");
if (msb == HDLC_FED)
test_and_set_bit(FLG_DLEETX, &bch->Flags);
}
}
}
msb |= HDLC_FST;
}
bch->tx_idx += count;
switch (bch->state) {
case ISDN_PID_NONE:
printk(KERN_ERR "%s: wrong protocol 0\n", __FUNCTION__);
break;
case ISDN_PID_L1_B_64TRANS:
case ISDN_PID_L2_B_TRANSDTMF:
case ISDN_PID_L1_B_MODEM_ASYNC:
sendmsg(bch, SET_DPS(ih->dpath) | ISAR_HIS_SDATA,
0, count, ptr);
break;
case ISDN_PID_L1_B_64HDLC:
sendmsg(bch, SET_DPS(ih->dpath) | ISAR_HIS_SDATA,
msb, count, ptr);
break;
case ISDN_PID_L1_B_T30FAX:
if (ih->state != STFAX_ACTIV) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "%s: not ACTIV",
__FUNCTION__);
} else if (ih->cmd == PCTRL_CMD_FTH) {
sendmsg(bch, SET_DPS(ih->dpath) | ISAR_HIS_SDATA,
msb, count, ptr);
} else if (ih->cmd == PCTRL_CMD_FTM) {
sendmsg(bch, SET_DPS(ih->dpath) | ISAR_HIS_SDATA,
0, count, ptr);
} else {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "%s: not FTH/FTM",
__FUNCTION__);
}
break;
default:
if (bch->debug)
mISDN_debugprint(&bch->inst, "%s: protocol(%x) error",
__FUNCTION__, bch->state);
printk(KERN_ERR "%s: protocol(%x) error\n",
__FUNCTION__, bch->state);
break;
}
}
inline
channel_t *sel_bch_isar(channel_t *bch, u_char dpath)
{
if ((!dpath) || (dpath == 3))
return(NULL);
if (((isar_hw_t *)bch[0].hw)->dpath == dpath)
return(&bch[0]);
if (((isar_hw_t *)bch[1].hw)->dpath == dpath)
return(&bch[1]);
return(NULL);
}
inline void
send_frames(channel_t *bch)
{
isar_hw_t *ih = bch->hw;
if (bch->tx_skb && (bch->tx_skb->len > bch->tx_idx)) {
isar_fill_fifo(bch);
} else {
if (bch->state == ISDN_PID_L1_B_T30FAX) {
if (ih->cmd == PCTRL_CMD_FTH) {
if (test_bit(FLG_LASTDATA, &bch->Flags)) {
printk(KERN_WARNING "set NMD_DATA\n");
test_and_set_bit(FLG_NMD_DATA, &bch->Flags);
}
} else if (ih->cmd == PCTRL_CMD_FTM) {
if (test_bit(FLG_DLEETX, &bch->Flags)) {
test_and_set_bit(FLG_LASTDATA, &bch->Flags);
test_and_set_bit(FLG_NMD_DATA, &bch->Flags);
}
}
}
if (bch->tx_skb)
dev_kfree_skb(bch->tx_skb);
bch->tx_idx = 0;
if (test_bit(FLG_TX_NEXT, &bch->Flags)) {
bch->tx_skb = bch->next_skb;
if (bch->tx_skb) {
mISDN_head_t *hh = mISDN_HEAD_P(bch->tx_skb);
bch->next_skb = NULL;
test_and_clear_bit(FLG_TX_NEXT, &bch->Flags);
queue_ch_frame(bch, CONFIRM, hh->dinfo, NULL);
isar_fill_fifo(bch);
} else {
printk(KERN_WARNING "hdlc tx irq TX_NEXT without skb\n");
test_and_clear_bit(FLG_TX_NEXT, &bch->Flags);
test_and_clear_bit(FLG_TX_BUSY, &bch->Flags);
}
} else {
bch->tx_skb = NULL;
if (test_and_clear_bit(FLG_DLEETX, &bch->Flags)) {
if (test_and_clear_bit(FLG_LASTDATA, &bch->Flags)) {
if (test_and_clear_bit(FLG_NMD_DATA, &bch->Flags)) {
u_char dummy = 0;
sendmsg(bch, SET_DPS(ih->dpath) |
ISAR_HIS_SDATA, 0x01, 1, &dummy);
}
test_and_set_bit(FLG_LL_OK, &bch->Flags);
} else {
deliver_status(bch, HW_MOD_CONNECT);
}
}
test_and_clear_bit(FLG_TX_BUSY, &bch->Flags);
// bch_sched_event(bch, B_XMTBUFREADY);
}
}
}
inline void
check_send(channel_t *bch, u_char rdm)
{
channel_t *bc;
if (rdm & BSTAT_RDM1) {
if ((bc = sel_bch_isar(bch, 1))) {
if (test_bit(FLG_ACTIVE, &bc->Flags)) {
send_frames(bc);
}
}
}
if (rdm & BSTAT_RDM2) {
if ((bc = sel_bch_isar(bch, 2))) {
if (test_bit(FLG_ACTIVE, &bc->Flags)) {
send_frames(bc);
}
}
}
}
const char *dmril[] = {"NO SPEED", "1200/75", "NODEF2", "75/1200", "NODEF4",
"300", "600", "1200", "2400", "4800", "7200",
"9600nt", "9600t", "12000", "14400", "WRONG"};
const char *dmrim[] = {"NO MOD", "NO DEF", "V32/V32b", "V22", "V21",
"Bell103", "V23", "Bell202", "V17", "V29", "V27ter"};
static void
isar_pump_status_rsp(channel_t *bch, isar_reg_t *ireg) {
isar_hw_t *ih = bch->hw;
u_char ril = ireg->par[0];
u_char rim;
if (!test_and_clear_bit(ISAR_RATE_REQ, &ireg->Flags))
return;
if (ril > 14) {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "wrong pstrsp ril=%d",ril);
ril = 15;
}
switch(ireg->par[1]) {
case 0:
rim = 0;
break;
case 0x20:
rim = 2;
break;
case 0x40:
rim = 3;
break;
case 0x41:
rim = 4;
break;
case 0x51:
rim = 5;
break;
case 0x61:
rim = 6;
break;
case 0x71:
rim = 7;
break;
case 0x82:
rim = 8;
break;
case 0x92:
rim = 9;
break;
case 0xa2:
rim = 10;
break;
default:
rim = 1;
break;
}
sprintf(ih->conmsg,"%s %s", dmril[ril], dmrim[rim]);
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump strsp %s %s", ih->conmsg);
}
static void
isar_pump_statev_modem(channel_t *bch, u_char devt) {
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
switch(devt) {
case PSEV_10MS_TIMER:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev TIMER");
break;
case PSEV_CON_ON:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev CONNECT");
deliver_status(bch, HW_MOD_CONNECT);
break;
case PSEV_CON_OFF:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev NO CONNECT");
sendmsg(bch, dps | ISAR_HIS_PSTREQ, 0, 0, NULL);
deliver_status(bch, HW_MOD_NOCARR);
break;
case PSEV_V24_OFF:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev V24 OFF");
break;
case PSEV_CTS_ON:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev CTS ON");
break;
case PSEV_CTS_OFF:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev CTS OFF");
break;
case PSEV_DCD_ON:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev CARRIER ON");
test_and_set_bit(ISAR_RATE_REQ, &ih->reg->Flags);
sendmsg(bch, dps | ISAR_HIS_PSTREQ, 0, 0, NULL);
break;
case PSEV_DCD_OFF:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev CARRIER OFF");
break;
case PSEV_DSR_ON:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev DSR ON");
break;
case PSEV_DSR_OFF:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev DSR_OFF");
break;
case PSEV_REM_RET:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev REMOTE RETRAIN");
break;
case PSEV_REM_REN:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev REMOTE RENEGOTIATE");
break;
case PSEV_GSTN_CLR:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev GSTN CLEAR", devt);
break;
default:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "unknown pump stev %x", devt);
break;
}
}
static void
isar_pump_statev_fax(channel_t *bch, u_char devt) {
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
u_char p1;
switch(devt) {
case PSEV_10MS_TIMER:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev TIMER");
break;
case PSEV_RSP_READY:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev RSP_READY");
ih->state = STFAX_READY;
deliver_status(bch, HW_MOD_READY);
// if (test_bit(BC_FLG_ORIG, &bch->Flags)) {
// isar_pump_cmd(bch, HW_MOD_FRH, 3);
// } else {
// isar_pump_cmd(bch, HW_MOD_FTH, 3);
// }
break;
case PSEV_LINE_TX_H:
if (ih->state == STFAX_LINE) {
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev LINE_TX_H");
ih->state = STFAX_CONT;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL, PCTRL_CMD_CONT, 0, NULL);
} else {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "pump stev LINE_TX_H wrong st %x",
ih->state);
}
break;
case PSEV_LINE_RX_H:
if (ih->state == STFAX_LINE) {
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev LINE_RX_H");
ih->state = STFAX_CONT;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL, PCTRL_CMD_CONT, 0, NULL);
} else {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "pump stev LINE_RX_H wrong st %x",
ih->state);
}
break;
case PSEV_LINE_TX_B:
if (ih->state == STFAX_LINE) {
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev LINE_TX_B");
ih->state = STFAX_CONT;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL, PCTRL_CMD_CONT, 0, NULL);
} else {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "pump stev LINE_TX_B wrong st %x",
ih->state);
}
break;
case PSEV_LINE_RX_B:
if (ih->state == STFAX_LINE) {
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev LINE_RX_B");
ih->state = STFAX_CONT;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL, PCTRL_CMD_CONT, 0, NULL);
} else {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "pump stev LINE_RX_B wrong st %x",
ih->state);
}
break;
case PSEV_RSP_CONN:
if (ih->state == STFAX_CONT) {
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev RSP_CONN");
ih->state = STFAX_ACTIV;
test_and_set_bit(ISAR_RATE_REQ, &ih->reg->Flags);
sendmsg(bch, dps | ISAR_HIS_PSTREQ, 0, 0, NULL);
if (ih->cmd == PCTRL_CMD_FTH) {
int delay = (ih->mod == 3) ? 1000 : 200;
/* 1s (200 ms) Flags before data */
if (test_and_set_bit(FLG_FTI_RUN, &bch->Flags))
del_timer(&ih->ftimer);
ih->ftimer.expires =
jiffies + ((delay * HZ)/1000);
test_and_set_bit(FLG_LL_CONN,
&bch->Flags);
add_timer(&ih->ftimer);
} else {
deliver_status(bch, HW_MOD_CONNECT);
}
} else {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "pump stev RSP_CONN wrong st %x",
ih->state);
}
break;
case PSEV_FLAGS_DET:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev FLAGS_DET");
break;
case PSEV_RSP_DISC:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev RSP_DISC state(%d)", ih->state);
if (ih->state == STFAX_ESCAPE) {
p1 = 5;
switch(ih->newcmd) {
case 0:
ih->state = STFAX_READY;
break;
case PCTRL_CMD_FTM:
p1 = 2;
case PCTRL_CMD_FTH:
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL,
PCTRL_CMD_SILON, 1, &p1);
ih->state = STFAX_SILDET;
break;
case PCTRL_CMD_FRH:
case PCTRL_CMD_FRM:
p1 = ih->mod = ih->newmod;
ih->newmod = 0;
ih->cmd = ih->newcmd;
ih->newcmd = 0;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL,
ih->cmd, 1, &p1);
ih->state = STFAX_LINE;
ih->try_mod = 3;
break;
default:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "RSP_DISC unknown newcmd %x", ih->newcmd);
break;
}
} else if (ih->state == STFAX_ACTIV) {
if (test_and_clear_bit(FLG_LL_OK, &bch->Flags)) {
deliver_status(bch, HW_MOD_OK);
} else if (ih->cmd == PCTRL_CMD_FRM) {
deliver_status(bch, HW_MOD_NOCARR);
} else {
deliver_status(bch, HW_MOD_FCERROR);
}
ih->state = STFAX_READY;
} else if (ih->state != STFAX_SILDET) { // ignore in STFAX_SILDET
ih->state = STFAX_READY;
deliver_status(bch, HW_MOD_FCERROR);
}
break;
case PSEV_RSP_SILDET:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev RSP_SILDET");
if (ih->state == STFAX_SILDET) {
p1 = ih->mod = ih->newmod;
ih->newmod = 0;
ih->cmd = ih->newcmd;
ih->newcmd = 0;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL,
ih->cmd, 1, &p1);
ih->state = STFAX_LINE;
ih->try_mod = 3;
}
break;
case PSEV_RSP_SILOFF:
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev RSP_SILOFF");
break;
case PSEV_RSP_FCERR:
if (ih->state == STFAX_LINE) {
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev RSP_FCERR try %d",
ih->try_mod);
if (ih->try_mod--) {
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL,
ih->cmd, 1,
&ih->mod);
break;
}
}
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "pump stev RSP_FCERR");
ih->state = STFAX_ESCAPE;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL, PCTRL_CMD_ESC, 0, NULL);
deliver_status(bch, HW_MOD_FCERROR);
break;
default:
break;
}
}
static char debbuf[128];
void
isar_int_main(channel_t *bch)
{
isar_hw_t *ih = bch->hw;
channel_t *bc;
get_irq_infos(bch, ih->reg);
switch (ih->reg->iis & ISAR_IIS_MSCMSD) {
case ISAR_IIS_RDATA:
if ((bc = sel_bch_isar(bch, ih->reg->iis >> 6))) {
isar_rcv_frame(bc);
} else {
mISDN_debugprint(&bch->inst, "isar spurious IIS_RDATA %x/%x/%x",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
}
break;
case ISAR_IIS_GSTEV:
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
ih->reg->bstat |= ih->reg->cmsb;
check_send(bch, ih->reg->cmsb);
break;
case ISAR_IIS_BSTEV:
#ifdef ERROR_STATISTIC
if ((bc = sel_bch_isar(bch, ih->reg->iis >> 6))) {
if (ih->reg->cmsb == BSTEV_TBO)
bc->err_tx++;
if (ih->reg->cmsb == BSTEV_RBO)
bc->err_rdo++;
}
#endif
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "Buffer STEV dpath%d msb(%x)",
ih->reg->iis>>6, ih->reg->cmsb);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
break;
case ISAR_IIS_PSTEV:
if ((bc = sel_bch_isar(bch, ih->reg->iis >> 6))) {
rcv_mbox(bc, ih->reg, (u_char *)ih->reg->par);
if (bc->state == ISDN_PID_L1_B_MODEM_ASYNC) {
isar_pump_statev_modem(bc, ih->reg->cmsb);
} else if (bc->state == ISDN_PID_L1_B_T30FAX) {
isar_pump_statev_fax(bc, ih->reg->cmsb);
} else if (bc->state == ISDN_PID_L2_B_TRANSDTMF) {
int tt;
tt = ih->reg->cmsb | 0x30;
if (tt == 0x3e)
tt = '*';
else if (tt == 0x3f)
tt = '#';
else if (tt > '9')
tt += 7;
tt |= DTMF_TONE_VAL;
mISDN_queue_data(&bch->inst, FLG_MSG_UP, PH_CONTROL | INDICATION,
0, sizeof(int), &tt, 0);
} else {
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "isar IIS_PSTEV pmode %d stat %x",
bc->state, ih->reg->cmsb);
}
} else {
mISDN_debugprint(&bch->inst, "isar spurious IIS_PSTEV %x/%x/%x",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
}
break;
case ISAR_IIS_PSTRSP:
if ((bc = sel_bch_isar(bch, ih->reg->iis >> 6))) {
rcv_mbox(bc, ih->reg, (u_char *)ih->reg->par);
isar_pump_status_rsp(bc, ih->reg);
} else {
mISDN_debugprint(&bch->inst, "isar spurious IIS_PSTRSP %x/%x/%x",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
bch->write_reg(bch->inst.privat, ISAR_IIA, 0);
}
break;
case ISAR_IIS_DIAG:
case ISAR_IIS_BSTRSP:
case ISAR_IIS_IOM2RSP:
rcv_mbox(bch, ih->reg, (u_char *)ih->reg->par);
if ((bch->debug & (L1_DEB_HSCX | L1_DEB_HSCX_FIFO))
== L1_DEB_HSCX) {
u_char *tp=debbuf;
tp += sprintf(debbuf, "msg iis(%x) msb(%x)",
ih->reg->iis, ih->reg->cmsb);
mISDN_QuickHex(tp, (u_char *)ih->reg->par, ih->reg->clsb);
mISDN_debugprint(&bch->inst, debbuf);
}
break;
case ISAR_IIS_INVMSG:
rcv_mbox(bch, ih->reg, debbuf);
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "invalid msg his:%x",
ih->reg->cmsb);
break;
default:
rcv_mbox(bch, ih->reg, debbuf);
if (bch->debug & L1_DEB_WARN)
mISDN_debugprint(&bch->inst, "unhandled msg iis(%x) ctrl(%x/%x)",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
break;
}
}
static void
ftimer_handler(channel_t *bch) {
if (bch->debug)
mISDN_debugprint(&bch->inst, "ftimer flags %04x",
bch->Flags);
test_and_clear_bit(FLG_FTI_RUN, &bch->Flags);
if (test_and_clear_bit(FLG_LL_CONN, &bch->Flags)) {
deliver_status(bch, HW_MOD_CONNECT);
}
}
static void
setup_pump(channel_t *bch) {
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
u_char ctrl, param[6];
switch (bch->state) {
case ISDN_PID_NONE:
case ISDN_PID_L1_B_64TRANS:
case ISDN_PID_L1_B_64HDLC:
sendmsg(bch, dps | ISAR_HIS_PUMPCFG, PMOD_BYPASS, 0, NULL);
break;
case ISDN_PID_L2_B_TRANSDTMF:
if (test_bit(FLG_DTMFSEND, &bch->Flags)) {
param[0] = 5; /* TOA 5 db */
sendmsg(bch, dps | ISAR_HIS_PUMPCFG, PMOD_DTMF_TRANS, 1, param);
} else {
param[0] = 40; /* REL -46 dbm */
sendmsg(bch, dps | ISAR_HIS_PUMPCFG, PMOD_DTMF, 1, param);
}
case ISDN_PID_L1_B_MODEM_ASYNC:
ctrl = PMOD_DATAMODEM;
if (test_bit(FLG_ORIGIN, &bch->Flags)) {
ctrl |= PCTRL_ORIG;
param[5] = PV32P6_CTN;
} else {
param[5] = PV32P6_ATN;
}
param[0] = 6; /* 6 db */
param[1] = PV32P2_V23R | PV32P2_V22A | PV32P2_V22B |
PV32P2_V22C | PV32P2_V21 | PV32P2_BEL;
param[2] = PV32P3_AMOD | PV32P3_V32B | PV32P3_V23B;
param[3] = PV32P4_UT144;
param[4] = PV32P5_UT144;
sendmsg(bch, dps | ISAR_HIS_PUMPCFG, ctrl, 6, param);
break;
case ISDN_PID_L1_B_T30FAX:
ctrl = PMOD_FAX;
if (test_bit(FLG_ORIGIN, &bch->Flags)) {
ctrl |= PCTRL_ORIG;
param[1] = PFAXP2_CTN;
} else {
param[1] = PFAXP2_ATN;
}
param[0] = 6; /* 6 db */
sendmsg(bch, dps | ISAR_HIS_PUMPCFG, ctrl, 2, param);
ih->state = STFAX_NULL;
ih->newcmd = 0;
ih->newmod = 0;
test_and_set_bit(FLG_FTI_RUN, &bch->Flags);
break;
}
udelay(1000);
sendmsg(bch, dps | ISAR_HIS_PSTREQ, 0, 0, NULL);
udelay(1000);
}
static void
setup_sart(channel_t *bch) {
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
u_char ctrl, param[2];
switch (bch->state) {
case ISDN_PID_NONE:
sendmsg(bch, dps | ISAR_HIS_SARTCFG, SMODE_DISABLE, 0,
NULL);
break;
case ISDN_PID_L1_B_64TRANS:
case ISDN_PID_L2_B_TRANSDTMF:
sendmsg(bch, dps | ISAR_HIS_SARTCFG, SMODE_BINARY, 2,
"\0\0");
break;
case ISDN_PID_L1_B_64HDLC:
case ISDN_PID_L1_B_T30FAX:
param[0] = 0;
sendmsg(bch, dps | ISAR_HIS_SARTCFG, SMODE_HDLC, 1,
param);
break;
case ISDN_PID_L1_B_MODEM_ASYNC:
ctrl = SMODE_V14 | SCTRL_HDMC_BOTH;
param[0] = S_P1_CHS_8;
param[1] = S_P2_BFT_DEF;
sendmsg(bch, dps | ISAR_HIS_SARTCFG, ctrl, 2,
param);
break;
}
udelay(1000);
sendmsg(bch, dps | ISAR_HIS_BSTREQ, 0, 0, NULL);
udelay(1000);
}
static void
setup_iom2(channel_t *bch) {
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
u_char cmsb = IOM_CTRL_ENA, msg[5] = {IOM_P1_TXD,0,0,0,0};
if (bch->channel)
msg[1] = msg[3] = 1;
switch (bch->state) {
case ISDN_PID_NONE:
cmsb = 0;
/* dummy slot */
msg[1] = msg[3] = ih->dpath + 2;
break;
case ISDN_PID_L1_B_64TRANS:
case ISDN_PID_L1_B_64HDLC:
break;
case ISDN_PID_L1_B_MODEM_ASYNC:
case ISDN_PID_L1_B_T30FAX:
cmsb |= IOM_CTRL_RCV;
case ISDN_PID_L2_B_TRANSDTMF:
if (test_bit(FLG_DTMFSEND, &bch->Flags))
cmsb |= IOM_CTRL_RCV;
cmsb |= IOM_CTRL_ALAW;
break;
}
sendmsg(bch, dps | ISAR_HIS_IOM2CFG, cmsb, 5, msg);
udelay(1000);
sendmsg(bch, dps | ISAR_HIS_IOM2REQ, 0, 0, NULL);
udelay(1000);
}
static int
modeisar(channel_t *bch, int channel, u_int bprotocol, u_char *param)
{
isar_hw_t *ih = bch->hw;
/* Here we are selecting the best datapath for requested protocol */
if(bch->state == ISDN_PID_NONE) { /* New Setup */
bch->channel = channel;
switch (bprotocol) {
case ISDN_PID_NONE: /* init */
if (!ih->dpath)
/* no init for dpath 0 */
return(0);
break;
case ISDN_PID_L1_B_64TRANS:
case ISDN_PID_L1_B_64HDLC:
/* best is datapath 2 */
if (!test_and_set_bit(ISAR_DP2_USE, &ih->reg->Flags))
ih->dpath = 2;
else if (!test_and_set_bit(ISAR_DP1_USE,
&ih->reg->Flags))
ih->dpath = 1;
else {
printk(KERN_WARNING"isar modeisar both pathes in use\n");
return(-EINVAL);
}
break;
case ISDN_PID_L1_B_MODEM_ASYNC:
case ISDN_PID_L1_B_T30FAX:
case ISDN_PID_L2_B_TRANSDTMF:
/* only datapath 1 */
if (!test_and_set_bit(ISAR_DP1_USE,
&ih->reg->Flags))
ih->dpath = 1;
else {
printk(KERN_WARNING"isar modeisar analog funktions only with DP1\n");
mISDN_debugprint(&bch->inst, "isar modeisar analog funktions only with DP1");
return(-EBUSY);
}
break;
}
}
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "isar dp%d protocol %x->%x ichan %d",
ih->dpath, bch->state, bprotocol, channel);
bch->state = bprotocol;
setup_pump(bch);
setup_iom2(bch);
setup_sart(bch);
if (bch->state == ISDN_PID_NONE) {
/* Clear resources */
if (ih->dpath == 1)
test_and_clear_bit(ISAR_DP1_USE, &ih->reg->Flags);
else if (ih->dpath == 2)
test_and_clear_bit(ISAR_DP2_USE, &ih->reg->Flags);
ih->dpath = 0;
}
return(0);
}
static void
isar_pump_cmd(channel_t *bch, int cmd, u_char para)
{
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
u_char ctrl = 0, nom = 0, p1 = 0;
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "isar_pump_cmd %x/%x state(%x)",
cmd, para, ih->state);
switch(cmd) {
case HW_MOD_FTM:
if (ih->state == STFAX_READY) {
p1 = para;
ctrl = PCTRL_CMD_FTM;
nom = 1;
ih->state = STFAX_LINE;
ih->cmd = ctrl;
ih->mod = para;
ih->newmod = 0;
ih->newcmd = 0;
ih->try_mod = 3;
} else if ((ih->state == STFAX_ACTIV) &&
(ih->cmd == PCTRL_CMD_FTM) &&
(ih->mod == para)) {
deliver_status(bch, HW_MOD_CONNECT);
} else {
ih->newmod = para;
ih->newcmd = PCTRL_CMD_FTM;
nom = 0;
ctrl = PCTRL_CMD_ESC;
ih->state = STFAX_ESCAPE;
}
break;
case HW_MOD_FTH:
if (ih->state == STFAX_READY) {
p1 = para;
ctrl = PCTRL_CMD_FTH;
nom = 1;
ih->state = STFAX_LINE;
ih->cmd = ctrl;
ih->mod = para;
ih->newmod = 0;
ih->newcmd = 0;
ih->try_mod = 3;
} else if ((ih->state == STFAX_ACTIV) &&
(ih->cmd == PCTRL_CMD_FTH) &&
(ih->mod == para)) {
deliver_status(bch, HW_MOD_CONNECT);
} else {
ih->newmod = para;
ih->newcmd = PCTRL_CMD_FTH;
nom = 0;
ctrl = PCTRL_CMD_ESC;
ih->state = STFAX_ESCAPE;
}
break;
case HW_MOD_FRM:
if (ih->state == STFAX_READY) {
p1 = para;
ctrl = PCTRL_CMD_FRM;
nom = 1;
ih->state = STFAX_LINE;
ih->cmd = ctrl;
ih->mod = para;
ih->newmod = 0;
ih->newcmd = 0;
ih->try_mod = 3;
} else if ((ih->state == STFAX_ACTIV) &&
(ih->cmd == PCTRL_CMD_FRM) &&
(ih->mod == para)) {
deliver_status(bch, HW_MOD_CONNECT);
} else {
ih->newmod = para;
ih->newcmd = PCTRL_CMD_FRM;
nom = 0;
ctrl = PCTRL_CMD_ESC;
ih->state = STFAX_ESCAPE;
}
break;
case HW_MOD_FRH:
if (ih->state == STFAX_READY) {
p1 = para;
ctrl = PCTRL_CMD_FRH;
nom = 1;
ih->state = STFAX_LINE;
ih->cmd = ctrl;
ih->mod = para;
ih->newmod = 0;
ih->newcmd = 0;
ih->try_mod = 3;
} else if ((ih->state == STFAX_ACTIV) &&
(ih->cmd == PCTRL_CMD_FRH) &&
(ih->mod == para)) {
deliver_status(bch, HW_MOD_CONNECT);
} else {
ih->newmod = para;
ih->newcmd = PCTRL_CMD_FRH;
nom = 0;
ctrl = PCTRL_CMD_ESC;
ih->state = STFAX_ESCAPE;
}
break;
case PCTRL_CMD_TDTMF:
p1 = para;
nom = 1;
ctrl = PCTRL_CMD_TDTMF;
break;
}
if (ctrl)
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL, ctrl, nom, &p1);
}
void
isar_setup(channel_t *bch)
{
u_char msg;
int i;
/* Dpath 1, 2 */
msg = 61;
for (i=0; i<2; i++) {
isar_hw_t *ih = bch[i].hw;
/* Buffer Config */
sendmsg(bch, (i ? ISAR_HIS_DPS2 : ISAR_HIS_DPS1) |
ISAR_HIS_P12CFG, 4, 1, &msg);
ih->mml = msg;
bch[i].state = 0;
ih->dpath = i + 1;
modeisar(&bch[i], i, 0, NULL);
}
}
int
isar_down(mISDNinstance_t *inst, struct sk_buff *skb)
{
channel_t *bch = container_of(inst, channel_t, inst);
int ret = 0;
mISDN_head_t *hh = mISDN_HEAD_P(skb);
u_long flags;
if ((hh->prim == PH_DATA_REQ) ||
(hh->prim == (DL_DATA | REQUEST))) {
spin_lock_irqsave(inst->hwlock, flags);
ret = channel_senddata(bch, hh->dinfo, skb);
if (ret > 0) { /* direct TX */
isar_fill_fifo(bch);
ret = 0;
}
spin_unlock_irqrestore(inst->hwlock, flags);
return(ret);
}
if ((hh->prim == (PH_ACTIVATE | REQUEST)) ||
(hh->prim == (DL_ESTABLISH | REQUEST))) {
if (!test_and_set_bit(FLG_ACTIVE, &bch->Flags)) {
u_int bp = bch->inst.pid.protocol[1];
if (bch->inst.pid.global == 1)
test_and_set_bit(FLG_ORIGIN, &bch->Flags);
if ((bp == ISDN_PID_L1_B_64TRANS) &&
(bch->inst.pid.protocol[2] == ISDN_PID_L2_B_TRANSDTMF))
bp = ISDN_PID_L2_B_TRANSDTMF;
spin_lock_irqsave(inst->hwlock, flags);
ret = modeisar(bch, bch->channel, bp, NULL);
spin_unlock_irqrestore(inst->hwlock, flags);
}
skb_trim(skb, 0);
return(mISDN_queueup_newhead(inst, 0, hh->prim | CONFIRM, ret, skb));
} else if ((hh->prim == (PH_DEACTIVATE | REQUEST)) ||
(hh->prim == (DL_RELEASE | REQUEST)) ||
((hh->prim == (PH_CONTROL | REQUEST) && (hh->dinfo == HW_DEACTIVATE)))) {
spin_lock_irqsave(inst->hwlock, flags);
if (test_and_clear_bit(FLG_TX_NEXT, &bch->Flags)) {
dev_kfree_skb(bch->next_skb);
bch->next_skb = NULL;
}
if (bch->tx_skb) {
dev_kfree_skb(bch->tx_skb);
bch->tx_skb = NULL;
}
bch->tx_idx = 0;
if (bch->rx_skb) {
dev_kfree_skb(bch->rx_skb);
bch->rx_skb = NULL;
}
test_and_clear_bit(FLG_TX_BUSY, &bch->Flags);
test_and_clear_bit(FLG_L2DATA, &bch->Flags);
modeisar(bch, bch->channel, 0, NULL);
test_and_clear_bit(FLG_ACTIVE, &bch->Flags);
spin_unlock_irqrestore(inst->hwlock, flags);
skb_trim(skb, 0);
if (hh->prim != (PH_CONTROL | REQUEST))
ret = mISDN_queueup_newhead(inst, 0, hh->prim | CONFIRM, 0, skb);
} else if (hh->prim == (PH_CONTROL | REQUEST)) {
int *val;
int len;
val = (int *)skb->data;
if (bch->debug & L1_DEB_HSCX)
mISDN_debugprint(&bch->inst, "PH_CONTROL | REQUEST %x/%x",
hh->dinfo, *val);
if ((hh->dinfo == 0) && ((*val & ~DTMF_TONE_MASK) == DTMF_TONE_VAL)) {
if (bch->state == ISDN_PID_L2_B_TRANSDTMF) {
char tt = *val & DTMF_TONE_MASK;
if (tt == '*')
tt = 0x1e;
else if (tt == '#')
tt = 0x1f;
else if (tt > '9')
tt -= 7;
tt &= 0x1f;
spin_lock_irqsave(inst->hwlock, flags);
isar_pump_cmd(bch, PCTRL_CMD_TDTMF, tt);
spin_unlock_irqrestore(inst->hwlock, flags);
skb_trim(skb, 0);
if (!mISDN_queueup_newhead(inst, 0, PH_CONTROL | CONFIRM, 0, skb))
return(0);
} else {
printk(KERN_WARNING "isar_down TOUCH_TONE_SEND wrong protocol %x\n",
bch->state);
return(-EINVAL);
}
} else if ((hh->dinfo == HW_MOD_FRM) || (hh->dinfo == HW_MOD_FRH) ||
(hh->dinfo == HW_MOD_FTM) || (hh->dinfo == HW_MOD_FTH)) {
u_int i;
for (i=0; i<FAXMODCNT; i++)
if (faxmodulation[i] == *val)
break;
if ((FAXMODCNT > i) && test_bit(FLG_INITIALIZED, &bch->Flags)) {
printk(KERN_WARNING "isar: new mod\n");
isar_pump_cmd(bch, hh->dinfo, *val);
ret = 0;
} else {
int_errtxt("wrong modulation");
/* wrong modulation or not activ */
// TODO
ret = -EINVAL;
}
} else if (hh->dinfo == HW_MOD_LASTDATA) {
test_and_set_bit(FLG_DLEETX, &bch->Flags);
} else if (hh->dinfo == HW_FIRM_START) {
firmwaresize = *val;
if (!(firmware = vmalloc(firmwaresize))) {
firmwaresize = 0;
return(-ENOMEM);
}
fw_p = firmware;
skb_trim(skb, 0);
if(!mISDN_queueup_newhead(inst, 0, PH_CONTROL | CONFIRM, 0, skb))
return(0);
} else if (hh->dinfo == HW_FIRM_DATA) {
len = *val++;
if (!fw_p)
return(-EINVAL);
memcpy(fw_p, val, len);
fw_p += len;
skb_trim(skb, 0);
if(!mISDN_queueup_newhead(inst, 0, PH_CONTROL | CONFIRM, 0, skb))
return(0);
} else if (hh->dinfo == HW_FIRM_END) {
if (!fw_p)
return(-EINVAL);
len = (fw_p - firmware) & 0xffffffff;
if (len == firmwaresize)
ret = isar_load_firmware(bch, firmware, firmwaresize);
else {
printk(KERN_WARNING "wrong firmware size %d/%d\n",
len, firmwaresize);
ret = -EINVAL;
}
vfree(firmware);
fw_p = firmware = NULL;
firmwaresize = 0;
skb_trim(skb, 0);
if(!mISDN_queueup_newhead(inst, 0, PH_CONTROL | CONFIRM, 0, skb))
return(0);
} else {
printk(KERN_WARNING "isar_down unknown (PH_CONTROL | REQUEST) %x\n",
hh->dinfo);
ret = -EINVAL;
}
} else {
printk(KERN_WARNING "isar_down unknown prim(%x)\n", hh->prim);
ret = -EINVAL;
}
if (!ret)
dev_kfree_skb(skb);
return(ret);
}
void
free_isar(channel_t *bch)
{
isar_hw_t *ih = bch->hw;
modeisar(bch, bch->channel, 0, NULL);
del_timer(&ih->ftimer);
test_and_clear_bit(FLG_INITIALIZED, &bch->Flags);
}
int init_isar(channel_t *bch)
{
isar_hw_t *ih = bch->hw;
printk(KERN_INFO "mISDN: ISAR driver Rev. %s\n", mISDN_getrev(ISAR_revision));
ih->ftimer.function = (void *) ftimer_handler;
ih->ftimer.data = (long) bch;
init_timer(&ih->ftimer);
test_and_set_bit(FLG_INITIALIZED, &bch->Flags);
return (0);
}
Reference in New Issue View Git Blame Copy Permalink