/* * Linux Support Services, Inc. Wildcard T100P T1/PRI card Driver * * Written by Mark Spencer * Matthew Fredrickson * William Meadows * * Copyright (C) 2001, Linux Support Services, Inc. * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * $Id$ */ #include #include #include #include #include #include #include #include #ifdef STANDALONE_ZAPATA #include "zaptel.h" #else #include #endif #ifdef LINUX26 #include #endif #define WC_MAX_CARDS 32 /* #define TEST_REGS */ /* Define to get more attention-grabbing but slightly more I/O using alarm status */ #define FANCY_ALARM #define DELAY 0x0 /* 30 = 15 cycles, 10 = 8 cycles, 0 = 3 cycles */ #define WC_CNTL 0x00 #define WC_OPER 0x01 #define WC_AUXC 0x02 #define WC_AUXD 0x03 #define WC_MASK0 0x04 #define WC_MASK1 0x05 #define WC_INTSTAT 0x06 #define WC_DMAWS 0x08 #define WC_DMAWI 0x0c #define WC_DMAWE 0x10 #define WC_DMARS 0x18 #define WC_DMARI 0x1c #define WC_DMARE 0x20 #define WC_CURPOS 0x24 #define WC_SERC 0x2d #define WC_FSCDELAY 0x2f #define WC_USERREG 0xc0 #define WC_CLOCK 0x0 #define WC_LEDTEST 0x1 #define WC_VERSION 0x2 /* Offset between transmit and receive */ #define WC_OFFSET 4 #define BIT_CS (1 << 7) #define BIT_ADDR (0xf << 3) #define BIT_LED0 (1 << 0) #define BIT_LED1 (1 << 1) #define BIT_TEST (1 << 2) static char *chips[] = { "DS2152", "DS21352", "DS21552", "Unknown Chip (3)", "DS2154", "DS21354", "DS21554", "Unknown Chip (7)", }; static int chanmap_t1[] = { 2,1,0, 6,5,4, 10,9,8, 14,13,12, 18,17,16, 22,21,20, 26,25,24, 30,29,28 }; static int chanmap_e1[] = { 2,1,0, 7,6,5,4, 11,10,9,8, 15,14,13,12, 19,18,17,16, 23,22,21,20, 27,26,25,24, 31,30,29,28 }; #ifdef FANCY_ALARM static int altab[] = { 0, 0, 0, 1, 2, 3, 4, 6, 8, 9, 11, 13, 16, 18, 20, 22, 24, 25, 27, 28, 29, 30, 31, 31, 32, 31, 31, 30, 29, 28, 27, 25, 23, 22, 20, 18, 16, 13, 11, 9, 8, 6, 4, 3, 2, 1, 0, 0, }; #endif struct t1xxp { struct pci_dev *dev; spinlock_t lock; int ise1; int num; /* Our offset for finding channel 1 */ int offset; char *variety; unsigned int intcount; int usecount; int clocktimeout; int sync; int dead; int blinktimer; int alarmtimer; int loopupcnt; int loopdowncnt; int miss; int misslast; int *chanmap; #ifdef FANCY_ALARM int alarmpos; #endif unsigned char ledtestreg; unsigned char outbyte; unsigned long ioaddr; unsigned short canary; /* T1 signalling */ unsigned char txsiga[3]; unsigned char txsigb[3]; dma_addr_t readdma; dma_addr_t writedma; volatile unsigned char *writechunk; /* Double-word aligned write memory */ volatile unsigned char *readchunk; /* Double-word aligned read memory */ unsigned char ec_chunk1[31][ZT_CHUNKSIZE]; unsigned char ec_chunk2[31][ZT_CHUNKSIZE]; unsigned char tempo[32]; struct zt_span span; /* Span */ struct zt_chan chans[31]; /* Channels */ }; #define CANARY 0xca1e int debug = 0; /* doesnt do anything */ static struct t1xxp *cards[WC_MAX_CARDS]; static inline void start_alarm(struct t1xxp *wc) { #ifdef FANCY_ALARM wc->alarmpos = 0; #endif wc->blinktimer = 0; } static inline void stop_alarm(struct t1xxp *wc) { #ifdef FANCY_ALARM wc->alarmpos = 0; #endif wc->blinktimer = 0; } static inline void __select_framer(struct t1xxp *wc, int reg) { /* Top four bits of address from AUX 6-3 */ wc->outbyte &= ~BIT_CS; wc->outbyte &= ~BIT_ADDR; wc->outbyte |= (reg & 0xf0) >> 1; outb(wc->outbyte, wc->ioaddr + WC_AUXD); } static inline void __select_control(struct t1xxp *wc) { if (!(wc->outbyte & BIT_CS)) { wc->outbyte |= BIT_CS; outb(wc->outbyte, wc->ioaddr + WC_AUXD); } } static int t1xxp_open(struct zt_chan *chan) { struct t1xxp *wc = chan->pvt; if (wc->dead) return -ENODEV; wc->usecount++; #ifndef LINUX26 MOD_INC_USE_COUNT; #endif return 0; } static int __t1_get_reg(struct t1xxp *wc, int reg) { unsigned char res; __select_framer(wc, reg); /* Get value */ res = inb(wc->ioaddr + WC_USERREG + ((reg & 0xf) << 2)); return res; } static int __t1_set_reg(struct t1xxp *wc, int reg, unsigned char val) { __select_framer(wc, reg); /* Send address */ outb(val, wc->ioaddr + WC_USERREG + ((reg & 0xf) << 2)); return 0; } static int __control_set_reg(struct t1xxp *wc, int reg, unsigned char val) { __select_control(wc); outb(val, wc->ioaddr + WC_USERREG + ((reg & 0xf) << 2)); return 0; } static int control_set_reg(struct t1xxp *wc, int reg, unsigned char val) { unsigned long flags; int res; spin_lock_irqsave(&wc->lock, flags); res = __control_set_reg(wc, reg, val); spin_unlock_irqrestore(&wc->lock, flags); return res; } static int __control_get_reg(struct t1xxp *wc, int reg) { unsigned char res; /* The following makes UTTERLY no sense, but what was happening was that reads in some cases were not actually happening on the physical bus. Why, we dunno. But in debugging, we found that writing before reading (in this case to an unused position) seems to get rid of the problem */ __control_set_reg(wc,3,0x69); /* do magic here */ /* now get the read byte from the Xilinx part */ res = inb(wc->ioaddr + WC_USERREG + ((reg & 0xf) << 2)); return res; } static int control_get_reg(struct t1xxp *wc, int reg) { unsigned long flags; int res; spin_lock_irqsave(&wc->lock, flags); res = __control_get_reg(wc, reg); spin_unlock_irqrestore(&wc->lock, flags); return res; } static void t1xxp_release(struct t1xxp *wc) { zt_unregister(&wc->span); kfree(wc); printk("Freed a Wildcard\n"); } static int t1xxp_close(struct zt_chan *chan) { struct t1xxp *wc = chan->pvt; wc->usecount--; #ifndef LINUX26 MOD_DEC_USE_COUNT; #endif /* If we're dead, release us now */ if (!wc->usecount && wc->dead) t1xxp_release(wc); return 0; } static void t1xxp_enable_interrupts(struct t1xxp *wc) { /* Clear interrupts */ outb(0xff, wc->ioaddr + WC_INTSTAT); /* Enable interrupts (we care about all of them) */ outb(0x3c /* 0x3f */, wc->ioaddr + WC_MASK0); /* No external interrupts */ outb(0x00, wc->ioaddr + WC_MASK1); } static void t1xxp_start_dma(struct t1xxp *wc) { /* Reset Master and TDM */ outb(DELAY | 0x0f, wc->ioaddr + WC_CNTL); set_current_state(TASK_INTERRUPTIBLE); schedule_timeout(1); outb(DELAY | 0x01, wc->ioaddr + WC_CNTL); outb(0x01, wc->ioaddr + WC_OPER); if (debug) printk("Started DMA\n"); } static void __t1xxp_stop_dma(struct t1xxp *wc) { outb(0x00, wc->ioaddr + WC_OPER); } static void __t1xxp_disable_interrupts(struct t1xxp *wc) { outb(0x00, wc->ioaddr + WC_MASK0); outb(0x00, wc->ioaddr + WC_MASK1); } static void __t1xxp_set_clear(struct t1xxp *wc) { /* Setup registers */ int x,y; unsigned char b; /* No such thing under E1 */ if (wc->ise1) { printk("Can't set clear mode on an E1!\n"); return; } for (x=0;x<3;x++) { b = 0; for (y=0;y<8;y++) if (wc->chans[x * 8 + y].sig & ZT_SIG_CLEAR) b |= (1 << y); __t1_set_reg(wc, 0x39 + x, b); } } static void t1xxp_t1_framer_start(struct t1xxp *wc) { int i; char *coding, *framing; unsigned long endjiffies; int alreadyrunning = wc->span.flags & ZT_FLAG_RUNNING; unsigned long flags; spin_lock_irqsave(&wc->lock, flags); /* Build up config */ i = 0x20; if (wc->span.lineconfig & ZT_CONFIG_ESF) { coding = "ESF"; i = 0x88; } else { coding = "SF"; } if (wc->span.lineconfig & ZT_CONFIG_B8ZS) { framing = "B8ZS"; i |= 0x44; } else { framing = "AMI"; } __t1_set_reg(wc, 0x38, i); if (!(wc->span.lineconfig & ZT_CONFIG_ESF)) { /* 1c in FDL bit */ __t1_set_reg(wc, 0x7e, 0x1c); } else { __t1_set_reg(wc, 0x7e, 0x00); } /* Set outgoing LBO */ __t1_set_reg(wc, 0x7c, wc->span.txlevel << 5); printk("Using %s/%s coding/framing\n", coding, framing); if (!alreadyrunning) { /* Setup the clear channels */ __t1xxp_set_clear(wc); /* Set LIRST bit to 1 */ __t1_set_reg(wc, 0x0a, 0x80); spin_unlock_irqrestore(&wc->lock, flags); /* Wait 100ms to give plenty of time for reset */ endjiffies = jiffies + 10; while(endjiffies < jiffies); spin_lock_irqsave(&wc->lock, flags); /* Reset LIRST bit and reset elastic stores */ __t1_set_reg(wc, 0xa, 0x30); wc->span.flags |= ZT_FLAG_RUNNING; } spin_unlock_irqrestore(&wc->lock, flags); } static void t1xxp_e1_framer_start(struct t1xxp *wc) { int i; char *coding, *framing; unsigned long endjiffies; int alreadyrunning = wc->span.flags & ZT_FLAG_RUNNING; unsigned long flags; char *crcing = ""; unsigned char ccr1, tcr1, tcr2; spin_lock_irqsave(&wc->lock, flags); /* Build up config */ ccr1 = 0; tcr1 = 8; tcr2 = 0; if (wc->span.lineconfig & ZT_CONFIG_CCS) { coding = "CCS"; /* Receive CCS */ ccr1 |= 8; } else { tcr1 |= 0x20; coding = "CAS"; } if (wc->span.lineconfig & ZT_CONFIG_HDB3) { ccr1 |= 0x44; /* TX/RX HDB3 */ framing = "HDB3"; } else { framing = "AMI"; } if (wc->span.lineconfig & ZT_CONFIG_CRC4) { ccr1 |= 0x11; tcr2 |= 0x02; crcing = " with CRC4"; } __t1_set_reg(wc, 0x12, tcr1); __t1_set_reg(wc, 0x13, tcr2); __t1_set_reg(wc, 0x14, ccr1); __t1_set_reg(wc, 0x18, 0x20); /* 120 Ohm */ #if 0 /* XXX Does LBO Matter? XXX */ /* Set outgoing LBO */ __t1_set_reg(wc, 0x7c, wc->span.txlevel << 5); #endif printk("Using %s/%s coding/framing%s 120 Ohms\n", coding, framing,crcing); if (!alreadyrunning) { __t1_set_reg(wc,0x1b,0x8a); /* CCR3: LIRST & TSCLKM */ __t1_set_reg(wc,0x20,0x1b); /* TAFR */ __t1_set_reg(wc,0x21,0x5f); /* TNAFR */ __t1_set_reg(wc,0x40,0xb); /* TSR1 */ for(i = 0x41; i <= 0x4f; i++) __t1_set_reg(wc,i,0x55); for(i = 0x22; i <= 0x25; i++) __t1_set_reg(wc,i,0xff); spin_unlock_irqrestore(&wc->lock, flags); /* Wait 100ms to give plenty of time for reset */ endjiffies = jiffies + 10; while(endjiffies < jiffies); spin_lock_irqsave(&wc->lock, flags); __t1_set_reg(wc, 0x1b, 0x9a); /* Set ESR */ __t1_set_reg(wc, 0x1b, 0x82); /* TSCLKM only now */ /* Reset LIRST bit and reset elastic stores */ wc->span.flags |= ZT_FLAG_RUNNING; } spin_unlock_irqrestore(&wc->lock, flags); } static int t1xxp_framer_sanity_check(struct t1xxp *wc) { int res; int chipid; unsigned long flags; int x; /* Sanity check */ spin_lock_irqsave(&wc->lock, flags); for (x=0x0;x<192;x++) __t1_set_reg(wc, x, 0); res = __t1_get_reg(wc, 0x0f); res = __t1_get_reg(wc, 0x0f); chipid = ((res & 0x80) >> 5) | ((res & 0x30) >> 4); wc->ise1 = (res & 0x80) ? (1 << 4) : 0; spin_unlock_irqrestore(&wc->lock, flags); printk("Framer: %s, Revision: %d (%s)\n", chips[chipid], res & 0xf, wc->ise1 ? "E1" : "T1"); return 0; } static int t1xxp_framer_hard_reset(struct t1xxp *wc) { int x; unsigned long flags; spin_lock_irqsave(&wc->lock, flags); /* Initialize all registers to 0 */ for (x=0x0;x<192;x++) __t1_set_reg(wc, x, 0); if (wc->ise1) { /* Set LOTCMC (switch to RCLCK if TCLK fails) */ __t1_set_reg(wc, 0x1a, 0x04); /* RSYNC is an input */ __t1_set_reg(wc, 0x10, 0x20); /* Rx elastic store enabled, 2.048 Mhz (in theory) */ __t1_set_reg(wc, 0x11, 0x06); /* TSYNC is an input, Tsis mode */ __t1_set_reg(wc, 0x12, 0x08); /* Tx elastic store enabled, 2.048 Mhz (in theory) */ __t1_set_reg(wc, 0x1b, 0x82); } else { /* Full-on sync required for T1 */ __t1_set_reg(wc, 0x2b, 0x08); /* RSYNC is an input */ __t1_set_reg(wc, 0x2c, 0x08); /* Enable tx RBS bits */ __t1_set_reg(wc, 0x35, 0x10); /* TSYNC is output */ __t1_set_reg(wc, 0x36, 0x04); /* Tx and Rx elastic store enabled, 2.048 Mhz (in theory) */ __t1_set_reg(wc, 0x37, 0x9c); /* Setup Loopup / Loopdown codes */ __t1_set_reg(wc, 0x12, 0x22); __t1_set_reg(wc, 0x14, 0x80); __t1_set_reg(wc, 0x15, 0x80); } spin_unlock_irqrestore(&wc->lock, flags); return 0; } static int t1xxp_rbsbits(struct zt_chan *chan, int bits) { struct t1xxp *wc = chan->pvt; unsigned long flags; int b,o; unsigned char mask; /* Byte offset */ spin_lock_irqsave(&wc->lock, flags); if (wc->ise1) { if (chan->chanpos < 16) { mask = ((bits << 4) | wc->chans[chan->chanpos - 1 + 16].txsig); __t1_set_reg(wc, 0x40 + chan->chanpos, mask); } else if (chan->chanpos > 16) { mask = (bits | (wc->chans[chan->chanpos - 1 - 16].txsig << 4)); __t1_set_reg(wc, 0x40 + chan->chanpos - 16, mask); } wc->chans[chan->chanpos - 1].txsig = bits; } else { b = (chan->chanpos - 1) / 8; o = (chan->chanpos - 1) % 8; mask = (1 << o); if (bits & ZT_ABIT) { /* Set A-bit */ wc->txsiga[b] |= mask; } else { /* Clear A-bit */ wc->txsiga[b] &= ~mask; } if (bits & ZT_BBIT) { /* Set B-bit */ wc->txsigb[b] |= mask; } else { wc->txsigb[b] &= ~mask; } /* Output new values */ __t1_set_reg(wc, 0x70 + b, wc->txsiga[b]); __t1_set_reg(wc, 0x73 + b, wc->txsigb[b]); __t1_set_reg(wc, 0x76 + b, wc->txsiga[b]); __t1_set_reg(wc, 0x79 + b, wc->txsigb[b]); } spin_unlock_irqrestore(&wc->lock, flags); return 0; } static int t1xxp_ioctl(struct zt_chan *chan, unsigned int cmd, unsigned long data) { switch(cmd) { default: return -ENOTTY; } } static int t1xxp_startup(struct zt_span *span) { struct t1xxp *wc = span->pvt; int i,alreadyrunning = span->flags & ZT_FLAG_RUNNING; /* initialize the start value for the entire chunk of last ec buffer */ for(i = 0; i < span->channels; i++) { memset(wc->ec_chunk1[i], ZT_LIN2X(0,&span->chans[i]),ZT_CHUNKSIZE); memset(wc->ec_chunk2[i], ZT_LIN2X(0,&span->chans[i]),ZT_CHUNKSIZE); } /* Reset framer with proper parameters and start */ if (wc->ise1) t1xxp_e1_framer_start(wc); else t1xxp_t1_framer_start(wc); printk("Calling startup (flags is %d)\n", span->flags); if (!alreadyrunning) { /* Only if we're not already going */ t1xxp_enable_interrupts(wc); t1xxp_start_dma(wc); span->flags |= ZT_FLAG_RUNNING; } return 0; } static int t1xxp_shutdown(struct zt_span *span) { struct t1xxp *wc = span->pvt; unsigned long flags; spin_lock_irqsave(&wc->lock, flags); __t1xxp_stop_dma(wc); __t1xxp_disable_interrupts(wc); span->flags &= ~ZT_FLAG_RUNNING; spin_unlock_irqrestore(&wc->lock, flags); t1xxp_framer_hard_reset(wc); return 0; } static int t1xxp_maint(struct zt_span *span, int cmd) { struct t1xxp *wc = span->pvt; int res = 0; unsigned long flags; spin_lock_irqsave(&wc->lock, flags); if (wc->ise1) { switch(cmd) { case ZT_MAINT_NONE: __t1_set_reg(wc,0xa8,0); /* no loops */ break; case ZT_MAINT_LOCALLOOP: __t1_set_reg(wc,0xa8,0x40); /* local loop */ break; case ZT_MAINT_REMOTELOOP: __t1_set_reg(wc,0xa8,0x80); /* remote loop */ break; case ZT_MAINT_LOOPUP: case ZT_MAINT_LOOPDOWN: case ZT_MAINT_LOOPSTOP: res = -ENOSYS; break; default: printk("wct1xxp/E1: Unknown maint command: %d\n", cmd); res = -EINVAL; break; } } else { switch(cmd) { case ZT_MAINT_NONE: __t1_set_reg(wc,0x19,0); /* no local loop */ __t1_set_reg(wc,0x0a,0); /* no remote loop */ break; case ZT_MAINT_LOCALLOOP: __t1_set_reg(wc,0x19,0x40); /* local loop */ __t1_set_reg(wc,0x0a,0); /* no remote loop */ break; case ZT_MAINT_REMOTELOOP: __t1_set_reg(wc,0x1e,0); /* no local loop */ __t1_set_reg(wc,0x0a,0x40); /* remote loop */ break; case ZT_MAINT_LOOPUP: __t1_set_reg(wc,0x30,2); /* send loopup code */ __t1_set_reg(wc,0x12,0x22); /* send loopup code */ __t1_set_reg(wc,0x13,0x80); /* send loopup code */ break; case ZT_MAINT_LOOPDOWN: __t1_set_reg(wc,0x30,2); /* send loopdown code */ __t1_set_reg(wc,0x12,0x62); /* send loopdown code */ __t1_set_reg(wc,0x13,0x90); /* send loopdown code */ break; case ZT_MAINT_LOOPSTOP: __t1_set_reg(wc,0x30,0); /* stop sending loopup code */ break; default: printk("wct1xxp/T1: Unknown maint command: %d\n", cmd); res = -EINVAL; } } spin_unlock_irqrestore(&wc->lock, flags); return res; } static int t1xxp_chanconfig(struct zt_chan *chan, int sigtype) { struct t1xxp *wc = chan->pvt; unsigned long flags; int alreadyrunning = chan->span->flags & ZT_FLAG_RUNNING; spin_lock_irqsave(&wc->lock, flags); if (alreadyrunning && !wc->ise1) __t1xxp_set_clear(wc); spin_unlock_irqrestore(&wc->lock, flags); return 0; } static int t1xxp_spanconfig(struct zt_span *span, struct zt_lineconfig *lc) { struct t1xxp *wc = span->pvt; span->lineconfig = lc->lineconfig; span->txlevel = lc->lbo; span->rxlevel = 0; /* Do we want to SYNC on receive or not */ wc->sync = lc->sync; /* If already running, apply changes immediately */ if (span->flags & ZT_FLAG_RUNNING) return t1xxp_startup(span); return 0; } static int t1xxp_software_init(struct t1xxp *wc) { int x; /* Find position */ for (x=0;x= WC_MAX_CARDS) return -1; wc->num = x; sprintf(wc->span.name, "WCT1/%d", wc->num); sprintf(wc->span.desc, "%s Card %d", wc->variety, wc->num); wc->span.spanconfig = t1xxp_spanconfig; wc->span.chanconfig = t1xxp_chanconfig; wc->span.startup = t1xxp_startup; wc->span.shutdown = t1xxp_shutdown; wc->span.rbsbits = t1xxp_rbsbits; wc->span.maint = t1xxp_maint; wc->span.open = t1xxp_open; wc->span.close = t1xxp_close; if (wc->ise1) wc->span.channels = 31; else wc->span.channels = 24; wc->span.chans = wc->chans; wc->span.flags = ZT_FLAG_RBS; wc->span.linecompat = ZT_CONFIG_AMI | ZT_CONFIG_B8ZS | ZT_CONFIG_D4 | ZT_CONFIG_ESF; wc->span.ioctl = t1xxp_ioctl; wc->span.pvt = wc; if (wc->ise1) wc->span.deflaw = ZT_LAW_ALAW; else wc->span.deflaw = ZT_LAW_MULAW; init_waitqueue_head(&wc->span.maintq); for (x=0;xspan.channels;x++) { sprintf(wc->chans[x].name, "WCT1/%d/%d", wc->num, x + 1); wc->chans[x].sigcap = ZT_SIG_EM | ZT_SIG_CLEAR | ZT_SIG_EM_E1 | ZT_SIG_FXSLS | ZT_SIG_FXSGS | ZT_SIG_FXSKS | ZT_SIG_FXOLS | ZT_SIG_DACS_RBS | ZT_SIG_FXOGS | ZT_SIG_FXOKS | ZT_SIG_CAS | ZT_SIG_SF; wc->chans[x].pvt = wc; wc->chans[x].chanpos = x + 1; } if (zt_register(&wc->span, 0)) { printk("Unable to register span with zaptel\n"); return -1; } return 0; } static inline void __handle_leds(struct t1xxp *wc) { int oldreg; wc->blinktimer++; if (wc->span.alarms & (ZT_ALARM_RED | ZT_ALARM_BLUE)) { /* Red/Blue alarm */ #ifdef FANCY_ALARM if (wc->blinktimer == (altab[wc->alarmpos] >> 1)) { wc->ledtestreg = (wc->ledtestreg | BIT_LED1) & ~BIT_LED0; __control_set_reg(wc, WC_LEDTEST, wc->ledtestreg); } if (wc->blinktimer == 0xf) { wc->ledtestreg = wc->ledtestreg & ~(BIT_LED0 | BIT_LED1); __control_set_reg(wc, WC_LEDTEST, wc->ledtestreg); wc->blinktimer = -1; wc->alarmpos++; if (wc->alarmpos >= (sizeof(altab) / sizeof(altab[0]))) wc->alarmpos = 0; } #else if (wc->blinktimer == 160) { wc->ledtestreg = (wc->ledtestreg | BIT_LED1) & ~BIT_LED0; __control_set_reg(wc, WC_LEDTEST, wc->ledtestreg); } else if (wc->blinktimer == 480) { wc->ledtestreg = wc->ledtestreg & ~(BIT_LED0 | BIT_LED1); __control_set_reg(wc, WC_LEDTEST, wc->ledtestreg); wc->blinktimer = 0; } #endif } else if (wc->span.alarms & ZT_ALARM_YELLOW) { /* Yellow Alarm */ if (!(wc->blinktimer % 2)) wc->ledtestreg = (wc->ledtestreg | BIT_LED1) & ~BIT_LED0; else wc->ledtestreg = (wc->ledtestreg | BIT_LED0) & ~BIT_LED1; __control_set_reg(wc, WC_LEDTEST, wc->ledtestreg); } else { /* No Alarm */ oldreg = wc->ledtestreg; if (wc->span.maintstat != ZT_MAINT_NONE) wc->ledtestreg |= BIT_TEST; else wc->ledtestreg &= ~BIT_TEST; if (wc->span.flags & ZT_FLAG_RUNNING) wc->ledtestreg = (wc->ledtestreg | BIT_LED0) & ~BIT_LED1; else wc->ledtestreg = wc->ledtestreg & ~(BIT_LED0 | BIT_LED1); if (oldreg != wc->ledtestreg) __control_set_reg(wc, WC_LEDTEST, wc->ledtestreg); } } static void t1xxp_transmitprep(struct t1xxp *wc, int ints) { volatile unsigned char *txbuf; int x,y; int pos; if (ints & 0x04 /* 0x01 */) { /* We just finished sending the first buffer, start filling it now */ txbuf = wc->writechunk; } else { /* Just finished sending second buffer, fill it now */ txbuf = wc->writechunk + 32 * ZT_CHUNKSIZE; } zt_transmit(&wc->span); for (x=0;xoffset;x++) txbuf[x] = wc->tempo[x]; for (y=0;yspan.channels;x++) { pos = y * 32 + wc->chanmap[x] + wc->offset; /* Put channel number as outgoing data */ if (pos < 32 * ZT_CHUNKSIZE) txbuf[pos] = wc->chans[x].writechunk[y]; else wc->tempo[pos - 32 * ZT_CHUNKSIZE] = wc->chans[x].writechunk[y]; } } } static void t1xxp_receiveprep(struct t1xxp *wc, int ints) { volatile unsigned char *rxbuf; volatile unsigned int *canary; int x; int y; unsigned int oldcan; if (ints & 0x04) { /* Just received first buffer */ rxbuf = wc->readchunk; canary = (unsigned int *)(wc->readchunk + ZT_CHUNKSIZE * 64 - 4); } else { rxbuf = wc->readchunk + ZT_CHUNKSIZE * 32; canary = (unsigned int *)(wc->readchunk + ZT_CHUNKSIZE * 32 - 4); } oldcan = *canary; if (((oldcan & 0xffff0000) >> 16) != CANARY) { /* Check top part */ if (debug) printk("Expecting top %04x, got %04x\n", CANARY, (oldcan & 0xffff0000) >> 16); wc->span.irqmisses++; } else if ((oldcan & 0xffff) != ((wc->canary - 1) & 0xffff)) { if (debug) printk("Expecting bottom %d, got %d\n", wc->canary - 1, oldcan & 0xffff); wc->span.irqmisses++; } for (y=0;yspan.channels;x++) { /* XXX Optimize, remove * and + XXX */ /* Must map received channels into appropriate data */ wc->chans[x].readchunk[y] = rxbuf[32 * y + ((wc->chanmap[x] + WC_OFFSET + wc->offset) & 0x1f)]; } if (!wc->ise1) { for (x=3;x<32;x+=4) { if (rxbuf[32 * y + ((x + WC_OFFSET) & 0x1f)] == 0x7f) { if (wc->offset != (x-3)) { /* Resync */ control_set_reg(wc, WC_CLOCK, 0x02 | wc->sync | wc->ise1); wc->clocktimeout = 100; #if 1 if (debug) printk("T1: Lost our place, resyncing\n"); #endif } } } } else { if (!wc->clocktimeout && !wc->span.alarms) { if ((rxbuf[32 * y + ((3 + WC_OFFSET + wc->offset) & 0x1f)] & 0x7f) != 0x1b) { if (wc->miss) { if (debug) printk("Double miss (%d, %d)...\n", wc->misslast, rxbuf[32 * y + ((3 + WC_OFFSET + wc->offset) & 0x1f)]); control_set_reg(wc, WC_CLOCK, 0x02 | wc->sync | wc->ise1); wc->clocktimeout = 100; } else { wc->miss = 1; wc->misslast = rxbuf[32 * y + ((3 + WC_OFFSET + wc->offset) & 0x1f)]; } } else { wc->miss = 0; } } else { wc->miss = 0; } } } /* Store the next canary */ canary = (unsigned int *)(rxbuf + ZT_CHUNKSIZE * 32 - 4); *canary = (wc->canary++) | (CANARY << 16); for (x=0;xspan.channels;x++) { zt_ec_chunk(&wc->chans[x], wc->chans[x].readchunk, wc->ec_chunk2[x]); memcpy(wc->ec_chunk2[x],wc->ec_chunk1[x],ZT_CHUNKSIZE); memcpy(wc->ec_chunk1[x],wc->chans[x].writechunk,ZT_CHUNKSIZE); } zt_receive(&wc->span); } static void __t1xxp_check_sigbits(struct t1xxp *wc, int x) { int a,b,i,y,rxs; if (wc->ise1) { /* Read 5 registers at a time, loading 10 channels at a time */ for (i = (x * 5); i < (x * 5) + 5; i++) { a = __t1_get_reg(wc, 0x31 + i); /* Get high channel in low bits */ rxs = (a & 0xf); if (!(wc->chans[i+16].sig & ZT_SIG_CLEAR)) { if (wc->chans[i+16].rxsig != rxs) zt_rbsbits(&wc->chans[i+16], rxs); } rxs = (a >> 4) & 0xf; if (!(wc->chans[i].sig & ZT_SIG_CLEAR)) { if (wc->chans[i].rxsig != rxs) zt_rbsbits(&wc->chans[i], rxs); } } } else { a = __t1_get_reg(wc, 0x60 + x); b = __t1_get_reg(wc, 0x63 + x); for (y=0;y<8;y++) { i = x * 8 + y; rxs = 0; if (a & (1 << y)) rxs |= ZT_ABIT; if (b & (1 << y)) rxs |= ZT_BBIT; if (!(wc->chans[i].sig & ZT_SIG_CLEAR)) { if (wc->chans[i].rxsig != rxs) zt_rbsbits(&wc->chans[i], rxs); } } } } static void __t1xxp_check_alarms(struct t1xxp *wc) { unsigned char c,d; int alarms; int x,j; if (wc->ise1) { __t1_set_reg(wc, 0x06, 0xff); c = __t1_get_reg(wc, 0x6); } else { /* Get RIR2 */ c = __t1_get_reg(wc, 0x31); wc->span.rxlevel = c >> 6; /* Get status register s*/ __t1_set_reg(wc, 0x20, 0xff); c = __t1_get_reg(wc, 0x20); } /* Assume no alarms */ alarms = 0; /* And consider only carrier alarms */ wc->span.alarms &= (ZT_ALARM_RED | ZT_ALARM_BLUE | ZT_ALARM_NOTOPEN); if (wc->ise1) { /* XXX Implement me XXX */ } else { /* Detect loopup code if we're not sending one */ if ((!wc->span.mainttimer) && (c & 0x80)) { /* Loop-up code detected */ if ((wc->loopupcnt++ > 80) && (wc->span.maintstat != ZT_MAINT_REMOTELOOP)) { __t1_set_reg(wc, 0x1e, 0); /* No local loop */ __t1_set_reg(wc, 0x0a, 0x40); /* Remote Loop */ wc->span.maintstat = ZT_MAINT_REMOTELOOP; } } else { wc->loopupcnt = 0; } /* Same for loopdown code */ if ((!wc->span.mainttimer) && (c & 0x40)) { /* Loop-down code detected */ if ((wc->loopdowncnt++ > 80) && (wc->span.maintstat == ZT_MAINT_REMOTELOOP)) { __t1_set_reg(wc, 0x1e, 0); /* No local loop */ __t1_set_reg(wc, 0x0a, 0x0); /* No remote Loop */ wc->span.maintstat = ZT_MAINT_NONE; } } else wc->loopdowncnt = 0; } if (wc->span.lineconfig & ZT_CONFIG_NOTOPEN) { for (x=0,j=0;x < wc->span.channels;x++) if ((wc->chans[x].flags & ZT_FLAG_OPEN) || (wc->chans[x].flags & ZT_FLAG_NETDEV)) j++; if (!j) alarms |= ZT_ALARM_NOTOPEN; } if (wc->ise1) { if (c & 0x9) alarms |= ZT_ALARM_RED; if (c & 0x2) alarms |= ZT_ALARM_BLUE; } else { /* Check actual alarm status */ if (c & 0x3) alarms |= ZT_ALARM_RED; if (c & 0x8) alarms |= ZT_ALARM_BLUE; } /* Keep track of recovering */ if ((!alarms) && wc->span.alarms) wc->alarmtimer = ZT_ALARMSETTLE_TIME; /* If receiving alarms, go into Yellow alarm state */ if (alarms && (!wc->span.alarms)) { #if 0 printk("Going into yellow alarm\n"); #endif if (wc->ise1) __t1_set_reg(wc, 0x21, 0x7f); else __t1_set_reg(wc, 0x35, 0x11); } if (wc->span.alarms != alarms) { d = __control_get_reg(wc, WC_CLOCK); start_alarm(wc); if (!(alarms & (ZT_ALARM_RED | ZT_ALARM_BLUE | ZT_ALARM_LOOPBACK)) && wc->sync) { /* Use the recieve signalling */ wc->span.syncsrc = wc->span.spanno; d |= 1; } else { wc->span.syncsrc = 0; d &= ~1; } __control_set_reg(wc, WC_CLOCK, d); } if (wc->alarmtimer) alarms |= ZT_ALARM_RECOVER; if (c & 0x4) alarms |= ZT_ALARM_YELLOW; wc->span.alarms = alarms; zt_alarm_notify(&wc->span); } static void __t1xxp_do_counters(struct t1xxp *wc) { if (wc->alarmtimer) { if (!--wc->alarmtimer) { wc->span.alarms &= ~(ZT_ALARM_RECOVER); /* Clear yellow alarm */ #if 0 printk("Coming out of alarm\n"); #endif if (wc->ise1) __t1_set_reg(wc, 0x21, 0x5f); else __t1_set_reg(wc, 0x35, 0x10); zt_alarm_notify(&wc->span); } } } #ifdef LINUX26 static irqreturn_t t1xxp_interrupt(int irq, void *dev_id, struct pt_regs *regs) #else static void t1xxp_interrupt(int irq, void *dev_id, struct pt_regs *regs) #endif { struct t1xxp *wc = dev_id; unsigned char ints; unsigned long flags; int x; ints = inb(wc->ioaddr + WC_INTSTAT); outb(ints, wc->ioaddr + WC_INTSTAT); if (!ints) #ifdef LINUX26 return IRQ_NONE; #else return; #endif if (!wc->intcount) { if (debug) printk("Got interrupt: 0x%04x\n", ints); } wc->intcount++; if (wc->clocktimeout && !--wc->clocktimeout) control_set_reg(wc, WC_CLOCK, 0x00 | wc->sync | wc->ise1); if (ints & 0x0f) { t1xxp_receiveprep(wc, ints); t1xxp_transmitprep(wc, ints); } spin_lock_irqsave(&wc->lock, flags); #if 1 __handle_leds(wc); #endif /* Count down timers */ __t1xxp_do_counters(wc); /* Do some things that we don't have to do very often */ x = wc->intcount & 15 /* 63 */; switch(x) { case 0: case 1: case 2: __t1xxp_check_sigbits(wc, x); break; case 4: /* Check alarms 1/4 as frequently */ if (!(wc->intcount & 0x30)) __t1xxp_check_alarms(wc); break; } spin_unlock_irqrestore(&wc->lock, flags); if (ints & 0x10) printk("PCI Master abort\n"); if (ints & 0x20) printk("PCI Target abort\n"); #ifdef LINUX26 return IRQ_RETVAL(1); #endif } static int t1xxp_hardware_init(struct t1xxp *wc) { /* Hardware PCI stuff */ /* Reset chip and registers */ outb(DELAY | 0x0e, wc->ioaddr + WC_CNTL); /* Set all outputs to 0 */ outb(0x00, wc->ioaddr + WC_AUXD); /* Set all to outputs except AUX1 (TDO). */ outb(0xfd, wc->ioaddr + WC_AUXC); /* Configure the serial port: double clock, 20ns width, no inversion, MSB first */ outb(0xc8, wc->ioaddr + WC_SERC); /* Internally delay FSC by one */ outb(0x01, wc->ioaddr + WC_FSCDELAY); /* Back to normal, with automatic DMA wrap around */ outb(DELAY | 0x01, wc->ioaddr + WC_CNTL); /* Make sure serial port and DMA are out of reset */ outb(inb(wc->ioaddr + WC_CNTL) & 0xf9, WC_CNTL); /* Setup DMA Addresses */ /* Start at writedma */ outl(wc->writedma, wc->ioaddr + WC_DMAWS); /* Write start */ /* First frame */ outl(wc->writedma + ZT_CHUNKSIZE * 32 - 4, wc->ioaddr + WC_DMAWI); /* Middle (interrupt) */ /* Second frame */ outl(wc->writedma + ZT_CHUNKSIZE * 32 * 2 - 4, wc->ioaddr + WC_DMAWE); /* End */ outl(wc->readdma, wc->ioaddr + WC_DMARS); /* Read start */ /* First frame */ outl(wc->readdma + ZT_CHUNKSIZE * 32 - 4, wc->ioaddr + WC_DMARI); /* Middle (interrupt) */ /* Second frame */ outl(wc->readdma + ZT_CHUNKSIZE * 32 * 2 - 4, wc->ioaddr + WC_DMARE); /* End */ if (debug) printk("Setting up DMA (write/read = %08lx/%08lx)\n", (long)wc->writedma, (long)wc->readdma); /* Check out the controller */ if (debug) printk("Controller version: %02x\n", control_get_reg(wc, WC_VERSION)); control_set_reg(wc, WC_LEDTEST, 0x00); /* Sanity check also determines e1 or t1 */ if (t1xxp_framer_sanity_check(wc)) return -1; if (wc->ise1) wc->chanmap = chanmap_e1; else wc->chanmap = chanmap_t1; /* Setup clock appropriately */ control_set_reg(wc, WC_CLOCK, 0x02 | wc->sync | wc->ise1); wc->clocktimeout = 100; /* Reset the T1 and report */ t1xxp_framer_hard_reset(wc); start_alarm(wc); return 0; } static int __devinit t1xxp_init_one(struct pci_dev *pdev, const struct pci_device_id *ent) { int res; struct t1xxp *wc; unsigned int *canary; if (pci_enable_device(pdev)) { res = -EIO; } else { wc = kmalloc(sizeof(struct t1xxp), GFP_KERNEL); if (wc) { memset(wc, 0x0, sizeof(struct t1xxp)); spin_lock_init(&wc->lock); wc->ioaddr = pci_resource_start(pdev, 0); wc->dev = pdev; wc->offset = 28; /* And you thought 42 was the answer */ wc->writechunk = /* 32 channels, Double-buffer, Read/Write */ (unsigned char *)pci_alloc_consistent(pdev, ZT_MAX_CHUNKSIZE * 32 * 2 * 2, &wc->writedma); if (!wc->writechunk) { printk("wct1xxp: Unable to allocate DMA-able memory\n"); return -ENOMEM; } /* Read is after the whole write piece (in bytes) */ wc->readchunk = wc->writechunk + ZT_CHUNKSIZE * 32 * 2; /* Same thing... */ wc->readdma = wc->writedma + ZT_CHUNKSIZE * 32 * 2; /* Initialize Write/Buffers to all blank data */ memset((void *)wc->writechunk,0x00,ZT_MAX_CHUNKSIZE * 2 * 2 * 32); /* Initialize canary */ canary = (unsigned int *)(wc->readchunk + ZT_CHUNKSIZE * 64 - 4); *canary = (CANARY << 16) | (0xffff); /* Enable bus mastering */ pci_set_master(pdev); /* Keep track of which device we are */ pci_set_drvdata(pdev, wc); if (request_irq(pdev->irq, t1xxp_interrupt, SA_INTERRUPT | SA_SHIRQ, "t1xxp", wc)) { printk("t1xxp: Unable to request IRQ %d\n", pdev->irq); kfree(wc); return -EIO; } /* Initialize hardware */ t1xxp_hardware_init(wc); /* We now know which version of card we have */ if (wc->ise1) wc->variety = "Digium Wildcard E100P E1/PRA"; else wc->variety = "Digium Wildcard T100P T1/PRI"; /* Misc. software stuff */ t1xxp_software_init(wc); printk("Found a Wildcard: %s\n", wc->variety); res = 0; } else res = -ENOMEM; } return res; } static void t1xxp_stop_stuff(struct t1xxp *wc) { /* Kill clock */ control_set_reg(wc, WC_CLOCK, 0); /* Turn off LED's */ control_set_reg(wc, WC_LEDTEST, 0); /* Reset the T1 */ t1xxp_framer_hard_reset(wc); } static void __devexit t1xxp_remove_one(struct pci_dev *pdev) { struct t1xxp *wc = pci_get_drvdata(pdev); if (wc) { /* Stop any DMA */ __t1xxp_stop_dma(wc); /* In case hardware is still there */ __t1xxp_disable_interrupts(wc); t1xxp_stop_stuff(wc); /* Immediately free resources */ pci_free_consistent(pdev, ZT_MAX_CHUNKSIZE * 2 * 2 * 32 * 4, (void *)wc->writechunk, wc->writedma); free_irq(pdev->irq, wc); /* Reset PCI chip and registers */ outb(DELAY | 0x0e, wc->ioaddr + WC_CNTL); /* Release span, possibly delayed */ if (!wc->usecount) t1xxp_release(wc); else wc->dead = 1; } } static struct pci_device_id t1xxp_pci_tbl[] = { { 0xe159, 0x0001, 0x6159, PCI_ANY_ID, 0, 0, (unsigned long) "Digium Wildcard T100P T1/PRI or E100P E1/PRA Board" }, { 0 } }; MODULE_DEVICE_TABLE(pci,t1xxp_pci_tbl); static struct pci_driver t1xxp_driver = { name: "t1xxp", probe: t1xxp_init_one, #ifdef LINUX26 remove: __devexit_p(t1xxp_remove_one), #else remove: t1xxp_remove_one, #endif suspend: NULL, resume: NULL, id_table: t1xxp_pci_tbl, }; static int __init t1xxp_init(void) { int res; res = zap_pci_module(&t1xxp_driver); if (res) return -ENODEV; return 0; } static void __exit t1xxp_cleanup(void) { pci_unregister_driver(&t1xxp_driver); } #ifdef LINUX26 module_param(debug, int, 0600); #else MODULE_PARM(debug, "i"); #endif MODULE_DESCRIPTION("Wildcard T100P/E100P Zaptel Driver"); MODULE_AUTHOR("Mark Spencer "); #ifdef MODULE_LICENSE MODULE_LICENSE("GPL"); #endif module_init(t1xxp_init); module_exit(t1xxp_cleanup);