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

1807 lines
46 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
*
*/
#define __NO_VERSION__
#include <linux/delay.h>
#include "mISDNl1.h"
#include "helper.h"
#include "mISDN_bch.h"
#include "isar.h"
#include "debug.h"
#define DBG_LOADFIRM 0
#define DUMP_MBOXFRAME 2
#define MIN(a,b) ((a<b)?a:b)
#define DLE 0x10
#define ETX 0x03
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(bchannel_t *);
static void isar_pump_cmd(bchannel_t *, int, u_char);
static int firmwaresize = 0;
static u_char *firmware;
static u_char *fw_p;
static inline int
waitforHIA(bchannel_t *bch, int timeout)
{
while ((bch->Read_Reg(bch->inst.data, 0, ISAR_HIA) & 1) && timeout) {
udelay(1);
timeout--;
}
if (!timeout)
printk(KERN_WARNING "mISDN: ISAR waitforHIA timeout\n");
return(timeout);
}
int
sendmsg(bchannel_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)
debugprint(&bch->inst, "sendmsg(%02x,%02x,%d)", his, creg, len);
#endif
bch->Write_Reg(bch->inst.data, 0, ISAR_CTRL_H, creg);
bch->Write_Reg(bch->inst.data, 0, ISAR_CTRL_L, len);
bch->Write_Reg(bch->inst.data, 0, ISAR_WADR, 0);
if (msg && len) {
bch->Write_Reg(bch->inst.data, 1, ISAR_MBOX, msg[0]);
for (i=1; i<len; i++)
bch->Write_Reg(bch->inst.data, 2, ISAR_MBOX, msg[i]);
#if DUMP_MBOXFRAME>1
if (bch->debug & L1_DEB_HSCX_FIFO) {
char *t;
i = len;
while (i>0) {
t = bch->blog;
t += sprintf(t, "sendmbox cnt %d", len);
QuickHex(t, &msg[len-i], (i>64) ? 64:i);
debugprint(&bch->inst, bch->blog);
i -= 64;
}
}
#endif
}
bch->Write_Reg(bch->inst.data, 1, ISAR_HIS, his);
waitforHIA(bch, 10000);
return(1);
}
/* Call only with IRQ disabled !!! */
inline void
rcv_mbox(bchannel_t *bch, isar_reg_t *ireg, u_char *msg)
{
int i;
bch->Write_Reg(bch->inst.data, 1, ISAR_RADR, 0);
if (msg && ireg->clsb) {
msg[0] = bch->Read_Reg(bch->inst.data, 1, ISAR_MBOX);
for (i=1; i < ireg->clsb; i++)
msg[i] = bch->Read_Reg(bch->inst.data, 2, ISAR_MBOX);
#if DUMP_MBOXFRAME>1
if (bch->debug & L1_DEB_HSCX_FIFO) {
char *t;
i = ireg->clsb;
while (i>0) {
t = bch->blog;
t += sprintf(t, "rcv_mbox cnt %d", ireg->clsb);
QuickHex(t, &msg[ireg->clsb-i], (i>64) ? 64:i);
debugprint(&bch->inst, bch->blog);
i -= 64;
}
}
#endif
}
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
}
/* Call only with IRQ disabled !!! */
inline void
get_irq_infos(bchannel_t *bch, isar_reg_t *ireg)
{
ireg->iis = bch->Read_Reg(bch->inst.data, 1, ISAR_IIS);
ireg->cmsb = bch->Read_Reg(bch->inst.data, 1, ISAR_CTRL_H);
ireg->clsb = bch->Read_Reg(bch->inst.data, 1, ISAR_CTRL_L);
#if DUMP_MBOXFRAME
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "rcv_mbox(%02x,%02x,%d)", ireg->iis, ireg->cmsb,
ireg->clsb);
#endif
}
int
waitrecmsg(bchannel_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.data, 0, 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(bchannel_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.data, CARD_RESET, NULL);
/* disable ISAR IRQ */
bch->Write_Reg(bch->inst.data, 0, 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(bchannel_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];
u_long flags;
isar_hw_t *ih = bch->hw;
struct {u_short sadr;
u_short len;
u_short d_key;
} *blk_head;
bch->inst.lock(bch->inst.data, 0);
#define BLK_HEAD_SIZE 6
if (1 != (ret = ISARVersion(bch, "Testing"))) {
printk(KERN_ERR"isar_load_firmware wrong isar version %d\n", ret);
bch->inst.unlock(bch->inst.data);
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.data, 0, ISAR_IRQBIT, 0);
if (!(msg = kmalloc(256, GFP_ATOMIC))) {
printk(KERN_ERR"isar_load_firmware no buffer\n");
bch->inst.unlock(bch->inst.data);
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.data, 0, ISAR_IRQBIT, ISAR_IRQSTA);
bch->inst.unlock(bch->inst.data);
save_flags(flags);
sti();
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;
bch->inst.lock(bch->inst.data, 0);
if (!sendmsg(bch, ISAR_HIS_DIAG, ISAR_CTRL_STST, 0, NULL)) {
printk(KERN_ERR"isar sendmsg self tst failed\n");
ret = 1;goto reterrflg_l;
}
bch->inst.unlock(bch->inst.data);
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;
}
bch->inst.lock(bch->inst.data, 0);
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 reterrflg_l;
}
bch->inst.unlock(bch->inst.data);
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;
bch->inst.lock(bch->inst.data, 0);
isar_setup(bch);
ret = 0;
reterrflg_l:
bch->inst.unlock(bch->inst.data);
reterrflg:
restore_flags(flags);
bch->inst.lock(bch->inst.data, 0);
reterror:
bch->debug = debug;
if (ret)
/* disable ISAR IRQ */
bch->Write_Reg(bch->inst.data, 0, ISAR_IRQBIT, 0);
bch->inst.unlock(bch->inst.data);
kfree(msg);
return(ret);
}
#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
static inline void
deliver_status(bchannel_t *bch, int status)
{
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "HL->LL FAXIND %x", status);
if_link(&bch->inst.up, PH_STATUS | INDICATION, status, 0, NULL, 0);
}
static void
isar_bh(bchannel_t *bch)
{
int tt;
if (test_and_clear_bit(B_LL_READY, &bch->event))
deliver_status(bch, HW_MOD_OK);
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;
if_link(&bch->inst.up, PH_CONTROL | INDICATION,
0, sizeof(int), &tt, 0);
}
}
static inline void
send_DLE_ETX(bchannel_t *bch)
{
u_char dleetx[2] = {DLE,ETX};
struct sk_buff *skb;
if ((skb = dev_alloc_skb(2))) {
memcpy(skb_put(skb, 2), dleetx, 2);
skb_queue_tail(&bch->rqueue, skb);
bch_sched_event(bch, B_RCVBUFREADY);
} else {
printk(KERN_WARNING "mISDN: skb out of memory\n");
}
}
static inline int
dle_count(unsigned char *buf, int len)
{
int count = 0;
while (len--)
if (*buf++ == DLE)
count++;
return count;
}
static inline void
insert_dle(unsigned char *dest, unsigned char *src, int count) {
/* <DLE> in input stream have to be flagged as <DLE><DLE> */
while (count--) {
*dest++ = *src;
if (*src++ == DLE)
*dest++ = DLE;
}
}
static inline void
isar_rcv_frame(bchannel_t *bch)
{
u_char *ptr;
struct sk_buff *skb;
isar_hw_t *ih = bch->hw;
if (!ih->reg->clsb) {
debugprint(&bch->inst, "isar zero len frame");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
return;
}
switch (bch->protocol) {
case ISDN_PID_NONE:
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.data, 1, ISAR_IIA, 0);
break;
case ISDN_PID_L1_B_64TRANS:
case ISDN_PID_L2_B_TRANSDTMF:
case ISDN_PID_L1_B_V32:
if ((skb = dev_alloc_skb(ih->reg->clsb))) {
rcv_mbox(bch, ih->reg, (u_char *)skb_put(skb, ih->reg->clsb));
skb_queue_tail(&bch->rqueue, skb);
bch_sched_event(bch, B_RCVBUFREADY);
} else {
printk(KERN_WARNING "mISDN: skb out of memory\n");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
}
break;
case ISDN_PID_L1_B_64HDLC:
if ((bch->rx_idx + ih->reg->clsb) > MAX_DATA_MEM) {
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar_rcv_frame: incoming packet too large");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
bch->rx_idx = 0;
} else if (ih->reg->cmsb & HDLC_ERROR) {
if (bch->debug & L1_DEB_WARN)
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
bch->rx_idx = 0;
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
} else {
if (ih->reg->cmsb & HDLC_FSD)
bch->rx_idx = 0;
ptr = bch->rx_buf + bch->rx_idx;
bch->rx_idx += ih->reg->clsb;
rcv_mbox(bch, ih->reg, ptr);
if (ih->reg->cmsb & HDLC_FED) {
if (bch->rx_idx < 3) { /* last 2 bytes are the FCS */
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar frame to short %d",
bch->rx_idx);
} else if (!(skb = dev_alloc_skb(bch->rx_idx-2))) {
printk(KERN_WARNING "ISAR: receive out of memory\n");
} else {
memcpy(skb_put(skb, bch->rx_idx-2),
bch->rx_buf, bch->rx_idx-2);
skb_queue_tail(&bch->rqueue, skb);
bch_sched_event(bch, B_RCVBUFREADY);
}
bch->rx_idx = 0;
}
}
break;
case ISDN_PID_L1_B_FAX:
if (ih->state != STFAX_ACTIV) {
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar_rcv_frame: not ACTIV");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
bch->rx_idx = 0;
break;
}
if (ih->cmd == PCTRL_CMD_FRM) {
rcv_mbox(bch, ih->reg, bch->rx_buf);
bch->rx_idx = ih->reg->clsb +
dle_count(bch->rx_buf, ih->reg->clsb);
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "isar_rcv_frame: raw(%d) dle(%d)",
ih->reg->clsb, bch->rx_idx);
if ((skb = dev_alloc_skb(bch->rx_idx))) {
insert_dle((u_char *)skb_put(skb, bch->rx_idx),
bch->rx_buf, ih->reg->clsb);
skb_queue_tail(&bch->rqueue, skb);
bch_sched_event(bch, B_RCVBUFREADY);
if (ih->reg->cmsb & SART_NMD) { /* ABORT */
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar_rcv_frame: no more data");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
bch->rx_idx = 0;
send_DLE_ETX(bch);
sendmsg(bch, SET_DPS(ih->dpath) |
ISAR_HIS_PUMPCTRL, PCTRL_CMD_ESC,
0, NULL);
ih->state = STFAX_ESCAPE;
bch_sched_event(bch, B_LL_NOCARRIER);
}
} else {
printk(KERN_WARNING "mISDN: skb out of memory\n");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
}
break;
}
if (ih->cmd != PCTRL_CMD_FRH) {
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar_rcv_frame: unknown fax mode %x",
ih->cmd);
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
bch->rx_idx = 0;
break;
}
/* PCTRL_CMD_FRH */
if ((bch->rx_idx + ih->reg->clsb) > MAX_DATA_MEM) {
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar_rcv_frame: incoming packet too large");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
bch->rx_idx = 0;
} else if (ih->reg->cmsb & HDLC_ERROR) {
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar frame error %x len %d",
ih->reg->cmsb, ih->reg->clsb);
bch->rx_idx = 0;
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
} else {
if (ih->reg->cmsb & HDLC_FSD)
bch->rx_idx = 0;
ptr = bch->rx_buf + bch->rx_idx;
bch->rx_idx += ih->reg->clsb;
rcv_mbox(bch, ih->reg, ptr);
if (ih->reg->cmsb & HDLC_FED) {
int len = bch->rx_idx +
dle_count(bch->rx_buf, bch->rx_idx);
if (bch->rx_idx < 3) { /* last 2 bytes are the FCS */
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar frame to short %d",
bch->rx_idx);
} else if (!(skb = dev_alloc_skb(bch->rx_idx))) {
printk(KERN_WARNING "ISAR: receive out of memory\n");
} else {
insert_dle((u_char *)skb_put(skb, len),
bch->rx_buf,
bch->rx_idx);
skb_queue_tail(&bch->rqueue, skb);
bch_sched_event(bch, B_RCVBUFREADY);
send_DLE_ETX(bch);
bch_sched_event(bch, B_LL_OK);
}
bch->rx_idx = 0;
}
}
if (ih->reg->cmsb & SART_NMD) { /* ABORT */
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar_rcv_frame: no more data");
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
bch->rx_idx = 0;
send_DLE_ETX(bch);
sendmsg(bch, SET_DPS(ih->dpath) |
ISAR_HIS_PUMPCTRL, PCTRL_CMD_ESC, 0, NULL);
ih->state = STFAX_ESCAPE;
bch_sched_event(bch, B_LL_NOCARRIER);
}
break;
default:
printk(KERN_ERR"isar_rcv_frame protocol (%x)error\n", bch->protocol);
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
break;
}
}
void
isar_fill_fifo(bchannel_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))
debugprint(&bch->inst, __FUNCTION__);
count = bch->tx_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_buf + bch->tx_idx;
if (!bch->tx_idx) {
msb |= HDLC_FST;
if ((bch->protocol == ISDN_PID_L1_B_FAX) &&
(ih->cmd == PCTRL_CMD_FTH)) {
if (count > 1) {
if ((ptr[0]== 0xff) && (ptr[1] == 0x13))
/* last frame */
test_and_set_bit(BC_FLG_LASTDATA,
&bch->Flag);
}
}
}
bch->tx_idx += count;
switch (bch->protocol) {
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_V32:
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_FAX:
if (ih->state != STFAX_ACTIV) {
if (bch->debug & L1_DEB_WARN)
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)
debugprint(&bch->inst, "%s: not FTH/FTM",
__FUNCTION__);
}
break;
default:
if (bch->debug)
debugprint(&bch->inst, "%s: protocol(%x) error",
__FUNCTION__, bch->protocol);
printk(KERN_ERR "%s: protocol(%x) error\n",
__FUNCTION__, bch->protocol);
break;
}
}
inline
bchannel_t *sel_bch_isar(bchannel_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(bchannel_t *bch)
{
isar_hw_t *ih = bch->hw;
if (bch->tx_len - bch->tx_idx) {
isar_fill_fifo(bch);
} else {
bch->tx_idx = 0;
if (bch->protocol == ISDN_PID_L1_B_FAX) {
if (ih->cmd == PCTRL_CMD_FTH) {
if (test_bit(BC_FLG_LASTDATA, &bch->Flag)) {
test_and_set_bit(BC_FLG_NMD_DATA, &bch->Flag);
}
} else if (ih->cmd == PCTRL_CMD_FTM) {
if (test_bit(BC_FLG_DLEETX, &bch->Flag)) {
test_and_set_bit(BC_FLG_LASTDATA, &bch->Flag);
test_and_set_bit(BC_FLG_NMD_DATA, &bch->Flag);
}
}
}
if (test_and_clear_bit(BC_FLG_TX_NEXT, &bch->Flag)) {
if (bch->next_skb) {
bch->tx_len = bch->next_skb->len;
memcpy(bch->tx_buf,
bch->next_skb->data, bch->tx_len);
isar_fill_fifo(bch);
bch_sched_event(bch, B_XMTBUFREADY);
} else {
bch->tx_len = 0;
printk(KERN_WARNING "isar tx irq TX_NEXT without skb\n");
test_and_clear_bit(BC_FLG_TX_BUSY, &bch->Flag);
}
} else {
bch->tx_len = 0;
if (test_and_clear_bit(BC_FLG_DLEETX, &bch->Flag)) {
if (test_and_clear_bit(BC_FLG_LASTDATA, &bch->Flag)) {
if (test_and_clear_bit(BC_FLG_NMD_DATA, &bch->Flag)) {
u_char dummy = 0;
sendmsg(bch, SET_DPS(ih->dpath) |
ISAR_HIS_SDATA, 0x01, 1, &dummy);
}
test_and_set_bit(BC_FLG_LL_OK, &bch->Flag);
} else {
bch_sched_event(bch, B_LL_CONNECT);
}
}
test_and_clear_bit(BC_FLG_TX_BUSY, &bch->Flag);
bch_sched_event(bch, B_XMTBUFREADY);
}
}
}
inline void
check_send(bchannel_t *bch, u_char rdm)
{
bchannel_t *bc;
if (rdm & BSTAT_RDM1) {
if ((bc = sel_bch_isar(bch, 1))) {
if (bc->protocol) {
send_frames(bc);
}
}
}
if (rdm & BSTAT_RDM2) {
if ((bc = sel_bch_isar(bch, 2))) {
if (bc->protocol) {
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(bchannel_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)
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]);
bch->conmsg = ih->conmsg;
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump strsp %s", bch->conmsg);
}
static void
isar_pump_statev_modem(bchannel_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)
debugprint(&bch->inst, "pump stev TIMER");
break;
case PSEV_CON_ON:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev CONNECT");
bch_sched_event(bch, B_LL_CONNECT);
break;
case PSEV_CON_OFF:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev NO CONNECT");
sendmsg(bch, dps | ISAR_HIS_PSTREQ, 0, 0, NULL);
bch_sched_event(bch, B_LL_NOCARRIER);
break;
case PSEV_V24_OFF:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev V24 OFF");
break;
case PSEV_CTS_ON:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev CTS ON");
break;
case PSEV_CTS_OFF:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev CTS OFF");
break;
case PSEV_DCD_ON:
if (bch->debug & L1_DEB_HSCX)
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)
debugprint(&bch->inst, "pump stev CARRIER OFF");
break;
case PSEV_DSR_ON:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev DSR ON");
break;
case PSEV_DSR_OFF:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev DSR_OFF");
break;
case PSEV_REM_RET:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev REMOTE RETRAIN");
break;
case PSEV_REM_REN:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev REMOTE RENEGOTIATE");
break;
case PSEV_GSTN_CLR:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev GSTN CLEAR", devt);
break;
default:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "unknown pump stev %x", devt);
break;
}
}
static void
isar_pump_statev_fax(bchannel_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)
debugprint(&bch->inst, "pump stev TIMER");
break;
case PSEV_RSP_READY:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev RSP_READY");
ih->state = STFAX_READY;
bch_sched_event(bch, B_LL_READY);
if (test_bit(BC_FLG_ORIG, &bch->Flag)) {
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)
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)
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)
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)
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)
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)
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)
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)
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)
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) {
/* 1s Flags before data */
if (test_and_set_bit(BC_FLG_FTI_RUN, &bch->Flag))
del_timer(&ih->ftimer);
/* 1000 ms */
ih->ftimer.expires =
jiffies + ((1000 * HZ)/1000);
test_and_set_bit(BC_FLG_LL_CONN,
&bch->Flag);
add_timer(&ih->ftimer);
} else {
bch_sched_event(bch, B_LL_CONNECT);
}
} else {
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "pump stev RSP_CONN wrong st %x",
ih->state);
}
break;
case PSEV_FLAGS_DET:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev FLAGS_DET");
break;
case PSEV_RSP_DISC:
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "pump stev RSP_DISC");
if (ih->state == STFAX_ESCAPE) {
switch(ih->newcmd) {
case 0:
ih->state = STFAX_READY;
break;
case PCTRL_CMD_FTH:
case PCTRL_CMD_FTM:
p1 = 10;
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)
debugprint(&bch->inst, "RSP_DISC unknown newcmd %x", ih->newcmd);
break;
}
} else if (ih->state == STFAX_ACTIV) {
if (test_and_clear_bit(BC_FLG_LL_OK, &bch->Flag)) {
bch_sched_event(bch, B_LL_OK);
} else if (ih->cmd == PCTRL_CMD_FRM) {
send_DLE_ETX(bch);
bch_sched_event(bch, B_LL_NOCARRIER);
} else {
bch_sched_event(bch, B_LL_FCERROR);
}
ih->state = STFAX_READY;
} else {
ih->state = STFAX_READY;
bch_sched_event(bch, B_LL_FCERROR);
}
break;
case PSEV_RSP_SILDET:
if (bch->debug & L1_DEB_HSCX)
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)
debugprint(&bch->inst, "pump stev RSP_SILOFF");
break;
case PSEV_RSP_FCERR:
if (ih->state == STFAX_LINE) {
if (bch->debug & L1_DEB_HSCX)
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)
debugprint(&bch->inst, "pump stev RSP_FCERR");
ih->state = STFAX_ESCAPE;
sendmsg(bch, dps | ISAR_HIS_PUMPCTRL, PCTRL_CMD_ESC, 0, NULL);
bch_sched_event(bch, B_LL_FCERROR);
break;
default:
break;
}
}
static char debbuf[128];
void
isar_int_main(bchannel_t *bch)
{
isar_hw_t *ih = bch->hw;
bchannel_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 {
debugprint(&bch->inst, "isar spurious IIS_RDATA %x/%x/%x",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
bch->Write_Reg(bch->inst.data, 1, ISAR_IIA, 0);
}
break;
case ISAR_IIS_GSTEV:
bch->Write_Reg(bch->inst.data, 1, 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)
debugprint(&bch->inst, "Buffer STEV dpath%d msb(%x)",
ih->reg->iis>>6, ih->reg->cmsb);
bch->Write_Reg(bch->inst.data, 1, 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->protocol == ISDN_PID_L1_B_V32) {
isar_pump_statev_modem(bc, ih->reg->cmsb);
} else if (bc->protocol == ISDN_PID_L1_B_FAX) {
isar_pump_statev_fax(bc, ih->reg->cmsb);
} else if (bc->protocol == ISDN_PID_L2_B_TRANSDTMF) {
ih->conmsg[0] = ih->reg->cmsb;
bch->conmsg = ih->conmsg;
bch_sched_event(bc, B_TOUCH_TONE);
} else {
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "isar IIS_PSTEV pmode %d stat %x",
bc->protocol, ih->reg->cmsb);
}
} else {
debugprint(&bch->inst, "isar spurious IIS_PSTEV %x/%x/%x",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
bch->Write_Reg(bch->inst.data, 1, 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 {
debugprint(&bch->inst, "isar spurious IIS_PSTRSP %x/%x/%x",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
bch->Write_Reg(bch->inst.data, 1, 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);
QuickHex(tp, (u_char *)ih->reg->par, ih->reg->clsb);
debugprint(&bch->inst, debbuf);
}
break;
case ISAR_IIS_INVMSG:
rcv_mbox(bch, ih->reg, debbuf);
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "invalid msg his:%x",
ih->reg->cmsb);
break;
default:
rcv_mbox(bch, ih->reg, debbuf);
if (bch->debug & L1_DEB_WARN)
debugprint(&bch->inst, "unhandled msg iis(%x) ctrl(%x/%x)",
ih->reg->iis, ih->reg->cmsb, ih->reg->clsb);
break;
}
}
static void
ftimer_handler(bchannel_t *bch) {
if (bch->debug)
debugprint(&bch->inst, "ftimer flags %04x",
bch->Flag);
test_and_clear_bit(BC_FLG_FTI_RUN, &bch->Flag);
if (test_and_clear_bit(BC_FLG_LL_CONN, &bch->Flag)) {
bch_sched_event(bch, B_LL_CONNECT);
}
}
static void
setup_pump(bchannel_t *bch) {
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
u_char ctrl, param[6];
switch (bch->protocol) {
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(BC_FLG_DTMFSEND, &bch->Flag)) {
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_V32:
ctrl = PMOD_DATAMODEM;
if (test_bit(BC_FLG_ORIG, &bch->Flag)) {
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_FAX:
ctrl = PMOD_FAX;
if (test_bit(BC_FLG_ORIG, &bch->Flag)) {
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(BC_FLG_FTI_RUN, &bch->Flag);
break;
}
udelay(1000);
sendmsg(bch, dps | ISAR_HIS_PSTREQ, 0, 0, NULL);
udelay(1000);
}
static void
setup_sart(bchannel_t *bch) {
isar_hw_t *ih = bch->hw;
u_char dps = SET_DPS(ih->dpath);
u_char ctrl, param[2];
switch (bch->protocol) {
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_FAX:
param[0] = 0;
sendmsg(bch, dps | ISAR_HIS_SARTCFG, SMODE_HDLC, 1,
param);
break;
case ISDN_PID_L1_B_V32:
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(bchannel_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->protocol) {
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_V32:
case ISDN_PID_L1_B_FAX:
cmsb |= IOM_CTRL_RCV;
case ISDN_PID_L2_B_TRANSDTMF:
if (test_bit(BC_FLG_DTMFSEND, &bch->Flag))
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(bchannel_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->protocol == 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_V32:
case ISDN_PID_L1_B_FAX:
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");
debugprint(&bch->inst, "isar modeisar analog funktions only with DP1");
return(-EBUSY);
}
break;
}
}
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "isar dp%d protocol %x->%x ichan %d",
ih->dpath, bch->protocol, bprotocol, channel);
bch->protocol = bprotocol;
setup_pump(bch);
setup_iom2(bch);
setup_sart(bch);
if (bch->protocol == 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(bchannel_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;
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)) {
bch_sched_event(bch, B_LL_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)) {
bch_sched_event(bch, B_LL_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)) {
bch_sched_event(bch, B_LL_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)) {
bch_sched_event(bch, B_LL_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(bchannel_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].protocol = 0;
ih->dpath = i + 1;
modeisar(&bch[i], i, 0, NULL);
}
}
int
isar_down(mISDNif_t *hif, struct sk_buff *skb)
{
bchannel_t *bch;
int ret = -EINVAL;
mISDN_head_t *hh;
if (!hif || !skb)
return(ret);
hh = mISDN_HEAD_P(skb);
bch = hif->fdata;
ret = 0;
if ((hh->prim == PH_DATA_REQ) ||
(hh->prim == (DL_DATA | REQUEST))) {
if (bch->next_skb) {
debugprint(&bch->inst, " l2l1 next_skb exist this shouldn't happen");
return(-EBUSY);
}
bch->inst.lock(bch->inst.data, 0);
if (test_and_set_bit(BC_FLG_TX_BUSY, &bch->Flag)) {
test_and_set_bit(BC_FLG_TX_NEXT, &bch->Flag);
bch->next_skb = skb;
bch->inst.unlock(bch->inst.data);
return(0);
} else {
bch->tx_len = skb->len;
memcpy(bch->tx_buf, skb->data, bch->tx_len);
bch->tx_idx = 0;
isar_fill_fifo(bch);
bch->inst.unlock(bch->inst.data);
skb_trim(skb, 0);
return(if_newhead(&bch->inst.up, hh->prim | CONFIRM,
DINFO_SKB, skb));
}
} else if ((hh->prim == (PH_ACTIVATE | REQUEST)) ||
(hh->prim == (DL_ESTABLISH | REQUEST))) {
if (test_and_set_bit(BC_FLG_ACTIV, &bch->Flag))
ret = 0;
else {
u_int bp = bch->inst.pid.protocol[1];
if ((bp == ISDN_PID_L1_B_64TRANS) &&
(bch->inst.pid.protocol[2] == ISDN_PID_L2_B_TRANSDTMF))
bp = ISDN_PID_L2_B_TRANSDTMF;
bch->inst.lock(bch->inst.data, 0);
ret = modeisar(bch, bch->channel, bp, NULL);
bch->inst.unlock(bch->inst.data);
}
skb_trim(skb, 0);
return(if_newhead(&bch->inst.up, hh->prim | CONFIRM, ret, skb));
} else if ((hh->prim == (PH_DEACTIVATE | REQUEST)) ||
(hh->prim == (DL_RELEASE | REQUEST)) ||
(hh->prim == (MGR_DISCONNECT | REQUEST))) {
bch->inst.lock(bch->inst.data, 0);
if (test_and_clear_bit(BC_FLG_TX_NEXT, &bch->Flag)) {
dev_kfree_skb(bch->next_skb);
bch->next_skb = NULL;
}
test_and_clear_bit(BC_FLG_TX_BUSY, &bch->Flag);
modeisar(bch, bch->channel, 0, NULL);
test_and_clear_bit(BC_FLG_ACTIV, &bch->Flag);
bch->inst.unlock(bch->inst.data);
skb_trim(skb, 0);
if (hh->prim != (MGR_DISCONNECT | REQUEST))
if (!if_newhead(&bch->inst.up, hh->prim | CONFIRM, 0, skb))
return(0);
} else if (hh->prim == (PH_CONTROL | REQUEST)) {
int *val;
int len;
val = (int *)skb->data;
if ((*val & ~DTMF_TONE_MASK) == DTMF_TONE_VAL) {
if (bch->protocol == 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;
bch->inst.lock(bch->inst.data, 0);
isar_pump_cmd(bch, PCTRL_CMD_TDTMF, tt);
bch->inst.unlock(bch->inst.data);
skb_trim(skb, 0);
if (!if_newhead(&bch->inst.up, PH_CONTROL |
CONFIRM, 0, skb))
return(0);
} else {
printk(KERN_WARNING "isar_down TOUCH_TONE_SEND wrong protocol %x\n",
bch->protocol);
return(-EINVAL);
}
} 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(!if_newhead(&bch->inst.up, PH_CONTROL | CONFIRM,
0, skb))
return(0);
} else if (hh->dinfo == HW_FIRM_DATA) {
len = *val++;
memcpy(fw_p, val, len);
fw_p += len;
skb_trim(skb, 0);
if(!if_newhead(&bch->inst.up, PH_CONTROL | CONFIRM,
0, skb))
return(0);
} else if (hh->dinfo == HW_FIRM_END) {
if ((fw_p - firmware) == firmwaresize)
ret = isar_load_firmware(bch, firmware, firmwaresize);
else {
printk(KERN_WARNING "wrong firmware size %d/%d\n",
fw_p - firmware, firmwaresize);
ret = -EINVAL;
}
vfree(firmware);
fw_p = firmware = NULL;
firmwaresize = 0;
skb_trim(skb, 0);
if(!if_newhead(&bch->inst.up, PH_CONTROL | CONFIRM,
0, skb))
return(0);
}
} else {
printk(KERN_WARNING "isar_down unknown prim(%x)\n", hh->prim);
ret = -EINVAL;
}
if (!ret)
dev_kfree_skb(skb);
return(ret);
}
#if 0
int
isar_auxcmd(bchannel_t *bch, isdn_ctrl *ic) {
u_long adr;
int features, i;
bchannel_t *bch;
isar_hw_t *ih = bch->hw;
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "isar_auxcmd cmd/ch %x/%d", ic->command, ic->arg);
switch (ic->command) {
case (ISDN_CMD_FAXCMD):
bch = cs->channel[ic->arg].bch;
if (bch->debug & L1_DEB_HSCX)
debugprint(&bch->inst, "isar_auxcmd cmd/subcmd %d/%d",
ic->parm.aux.cmd, ic->parm.aux.subcmd);
switch(ic->parm.aux.cmd) {
case HW_MOD_CTRL:
if (ic->parm.aux.subcmd == ETX)
test_and_set_bit(BC_FLG_DLEETX,
&bch->Flag);
break;
case HW_MOD_FRM:
case HW_MOD_FRH:
case HW_MOD_FTM:
case HW_MOD_FTH:
if (ic->parm.aux.subcmd == AT_QUERY) {
sprintf(ic->parm.aux.para,
"%d", ih->mod);
ic->command = ISDN_STAT_FAXIND;
ic->parm.aux.cmd = HW_MOD_QUERY;
cs->iif.statcallb(ic);
return(0);
} else if (ic->parm.aux.subcmd == AT_EQ_QUERY) {
strcpy(ic->parm.aux.para, faxmodulation_s);
ic->command = ISDN_STAT_FAXIND;
ic->parm.aux.cmd = HW_MOD_QUERY;
cs->iif.statcallb(ic);
return(0);
} else if (ic->parm.aux.subcmd == AT_EQ_VALUE) {
for(i=0;i<FAXMODCNT;i++)
if (faxmodulation[i]==ic->parm.aux.para[0])
break;
if ((FAXMODCNT > i) &&
test_bit(BC_FLG_INIT, &bch->Flag)) {
isar_pump_cmd(bch,
ic->parm.aux.cmd,
ic->parm.aux.para[0]);
return(0);
}
}
/* wrong modulation or not activ */
/* fall through */
default:
ic->command = ISDN_STAT_FAXIND;
ic->parm.aux.cmd = HW_MOD_ERROR;
cs->iif.statcallb(ic);
}
break;
default:
return(-EINVAL);
}
return(0);
}
#endif
void
free_isar(bchannel_t *bch)
{
isar_hw_t *ih = bch->hw;
modeisar(bch, bch->channel, 0, NULL);
del_timer(&ih->ftimer);
}
int init_isar(bchannel_t *bch)
{
isar_hw_t *ih = bch->hw;
bch->hw_bh = isar_bh;
ih->ftimer.function = (void *) ftimer_handler;
ih->ftimer.data = (long) bch;
init_timer(&ih->ftimer);
return (0);
}
Reference in New Issue View Git Blame Copy Permalink