1139749Simp/*- 2126177Srik * Low-level subroutines for Cronyx-Tau adapter. 3126177Srik * 4126177Srik * Copyright (C) 1994-2001 Cronyx Engineering. 5126177Srik * Author: Serge Vakulenko, <vak@cronyx.ru> 6126177Srik * 7126177Srik * Copyright (C) 2003 Cronyx Engineering. 8126177Srik * Author: Roman Kurakin, <rik@cronyx.ru> 9126177Srik * 10126177Srik * This software is distributed with NO WARRANTIES, not even the implied 11126177Srik * warranties for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 12126177Srik * 13126177Srik * Authors grant any other persons or organisations permission to use 14126177Srik * or modify this software as long as this message is kept with the software, 15126177Srik * all derivative works or modified versions. 16126177Srik * 17126177Srik * Cronyx Id: ctau.c,v 1.1.2.4 2003/12/11 17:33:43 rik Exp $ 18126177Srik */ 19126177Srik#include <sys/cdefs.h> 20126177Srik__FBSDID("$FreeBSD: releng/11.0/sys/dev/ctau/ctau.c 218909 2011-02-21 09:01:34Z brucec $"); 21126177Srik 22126177Srik#include <dev/cx/machdep.h> 23126177Srik#include <dev/ctau/ctddk.h> 24126177Srik#include <dev/ctau/ctaureg.h> 25126177Srik#include <dev/ctau/hdc64570.h> 26126177Srik#include <dev/ctau/ds2153.h> 27126177Srik#include <dev/ctau/am8530.h> 28126177Srik#include <dev/ctau/lxt318.h> 29126177Srik#include <dev/cx/cronyxfw.h> 30126177Srik 31126177Srik#define DMA_MASK 0xd4 /* DMA mask register */ 32126177Srik#define DMA_MASK_CLEAR 0x04 /* DMA clear mask */ 33126177Srik#define DMA_MODE 0xd6 /* DMA mode register */ 34126177Srik#define DMA_MODE_MASTER 0xc0 /* DMA master mode */ 35126177Srik 36126177Srik#define BYTE *(unsigned char*)& 37126177Srik 38126177Srikstatic unsigned char irqmask [] = { 39126177Srik BCR0_IRQ_DIS, BCR0_IRQ_DIS, BCR0_IRQ_DIS, BCR0_IRQ_3, 40126177Srik BCR0_IRQ_DIS, BCR0_IRQ_5, BCR0_IRQ_DIS, BCR0_IRQ_7, 41126177Srik BCR0_IRQ_DIS, BCR0_IRQ_DIS, BCR0_IRQ_10, BCR0_IRQ_11, 42126177Srik BCR0_IRQ_12, BCR0_IRQ_DIS, BCR0_IRQ_DIS, BCR0_IRQ_15, 43126177Srik}; 44126177Srik 45126177Srikstatic unsigned char dmamask [] = { 46126177Srik BCR0_DMA_DIS, BCR0_DMA_DIS, BCR0_DMA_DIS, BCR0_DMA_DIS, 47126177Srik BCR0_DMA_DIS, BCR0_DMA_5, BCR0_DMA_6, BCR0_DMA_7, 48126177Srik}; 49126177Srik 50126177Srikstatic short porttab [] = { /* standard base port set */ 51126177Srik 0x200, 0x220, 0x240, 0x260, 0x280, 0x2a0, 0x2c0, 0x2e0, 52126177Srik 0x300, 0x320, 0x340, 0x360, 0x380, 0x3a0, 0x3c0, 0x3e0, 0 53126177Srik}; 54126177Srik 55126177Srikstatic short irqtab [] = { 3, 5, 7, 10, 11, 12, 15, 0 }; 56126177Srikstatic short dmatab [] = { 5, 6, 7, 0 }; 57126177Srik 58126177Srikstatic int valid (short value, short *list) 59126177Srik{ 60126177Srik while (*list) 61126177Srik if (value == *list++) 62126177Srik return 1; 63126177Srik return 0; 64126177Srik} 65126177Srik 66126177Sriklong ct_baud = 256000; /* default baud rate */ 67126177Srikunsigned char ct_chan_mode = M_HDLC; /* default mode */ 68126177Srik 69126177Srikstatic void ct_init_chan (ct_board_t *b, int num); 70126177Srikstatic void ct_enable_loop (ct_chan_t *c); 71126177Srikstatic void ct_disable_loop (ct_chan_t *c); 72126177Srik 73126177Srikint ct_download (port_t port, const unsigned char *firmware, 74126177Srik long bits, const cr_dat_tst_t *tst) 75126177Srik{ 76126177Srik unsigned char cr1, sr2; 77126177Srik long i, n, maxn = (bits + 7) >> 3; 78126177Srik int v, b; 79126177Srik 80126177Srik inb (BSR3(port)); 81126177Srik for (i=n=0; n<maxn; ++n) { 82126177Srik v = ((firmware[n] ^ ' ') << 1) | ((firmware[n] >> 7) & 1); 83126177Srik for (b=0; b<7; b+=2, i+=2) { 84126177Srik if (i >= bits) 85126177Srik break; 86126177Srik cr1 = 0; 87126177Srik if (v >> b & 1) 88126177Srik cr1 |= BCR1_TMS; 89126177Srik if (v >> b & 2) 90126177Srik cr1 |= BCR1_TDI; 91126177Srik outb (BCR1(port), cr1); 92126177Srik sr2 = inb (BSR2(port)); 93126177Srik outb (BCR0(port), BCR0_TCK); 94126177Srik outb (BCR0(port), 0); 95126177Srik if (i >= tst->end) 96126177Srik ++tst; 97126177Srik if (i >= tst->start && (sr2 & BSR2_LERR)) 98126177Srik return (0); 99126177Srik } 100126177Srik } 101126177Srik return (1); 102126177Srik} 103126177Srik 104126177Srik/* 105126177Srik * Firmware unpack algorithm. 106126177Srik */ 107126177Sriktypedef struct { 108126177Srik const unsigned char *ptr; 109126177Srik unsigned char byte; 110126177Srik unsigned char count; 111126177Srik} unpack_t; 112126177Srik 113126177Srikstatic unsigned short unpack_init (unpack_t *t, const unsigned char *ptr) 114126177Srik{ 115126177Srik unsigned short len; 116126177Srik 117126177Srik len = *ptr++; 118126177Srik len |= *ptr++ << 8; 119126177Srik t->ptr = ptr; 120126177Srik t->byte = 0; 121126177Srik t->count = 0; 122126177Srik return len; 123126177Srik} 124126177Srik 125126177Srikstatic unsigned char unpack_getchar (unpack_t *t) 126126177Srik{ 127126177Srik if (t->count > 0) { 128126177Srik --t->count; 129126177Srik return t->byte; 130126177Srik } 131126177Srik t->byte = *t->ptr++; 132126177Srik if (t->byte == 0) 133126177Srik t->count = *t->ptr++; 134126177Srik return t->byte; 135126177Srik} 136126177Srik 137126177Srik/* 138126177Srik * Firmware download signals. 139126177Srik */ 140126177Srik#define nstatus(b) (inb(BSR3(b)) & BSR3_NSTATUS) 141126177Srik 142126177Srik#define confdone(b) (inb(BSR3(b)) & BSR3_CONF_DN) 143126177Srik 144126177Srik#define nconfig_set(b) outb (bcr1_port, (bcr1 &= ~BCR1_NCONFIGI)) 145126177Srik#define nconfig_clr(b) outb (bcr1_port, (bcr1 |= BCR1_NCONFIGI)) 146126177Srik 147126177Srik#define dclk_tick(b) outb (BCR3(b), 0) 148126177Srik 149126177Srik#define putbit(b,bit) { if (bit) bcr1 |= BCR1_1KDAT; \ 150126177Srik else bcr1 &= ~BCR1_1KDAT; \ 151126177Srik outb (bcr1_port, bcr1); \ 152126177Srik dclk_tick (b); } 153126177Srik 154126601Sbms#define CTAU_DEBUG(x) /*trace_str x*/ 155126177Srik 156126177Srikint ct_download2 (port_t port, const unsigned char *fwaddr) 157126177Srik{ 158126177Srik unsigned short bytes; 159126177Srik unsigned char bcr1, val; 160126177Srik port_t bcr1_port; 161126177Srik unpack_t t; 162126177Srik 163126177Srik /* 164126177Srik * Set NCONFIG and wait until NSTATUS is set. 165126177Srik */ 166126177Srik bcr1_port = BCR1(port); 167126177Srik bcr1 = 0; 168126177Srik nconfig_set(port); 169126177Srik for (val=0; val<255; ++val) 170126177Srik if (nstatus(port)) 171126177Srik break; 172126177Srik 173126177Srik /* 174126177Srik * Clear NCONFIG, wait 2 usec and check that NSTATUS is cleared. 175126177Srik */ 176126177Srik nconfig_clr(port); 177126177Srik for (val=0; val<2*3; ++val) 178126177Srik nconfig_clr(port); 179126177Srik if (nstatus(port)) { 180126601Sbms CTAU_DEBUG (("Bad nstatus, downloading aborted (bsr3=0x%x).\n", inb(BSR3(port)))); 181126177Srik nconfig_set(port); 182126177Srik return 0; 183126177Srik } 184126177Srik 185126177Srik /* 186126177Srik * Set NCONFIG and wait 5 usec. 187126177Srik */ 188126177Srik nconfig_set(port); 189126177Srik for (val=0; val<5*3; ++val) /* Delay 5 msec. */ 190126177Srik nconfig_set(port); 191126177Srik 192126177Srik /* 193126177Srik * � ������ `fwaddr' � ������ ������ ������ ����������� ������ 194126177Srik * ��� �������� firmware. �������� ������ ���� ����������� � ���������� 195126177Srik * ������ ������� `megaprog' � ������� �������� (� Makefile). 196126177Srik */ 197126177Srik bytes = unpack_init (&t, fwaddr); 198126177Srik for (; bytes>0; --bytes) { 199126177Srik val = unpack_getchar (&t); 200126177Srik 201126177Srik if (nstatus(port) == 0) { 202126601Sbms CTAU_DEBUG (("Bad nstatus, %d bytes remaining.\n", bytes)); 203126177Srik goto failed; 204126177Srik } 205126177Srik 206126177Srik if (confdone(port)) { 207126177Srik /* Ten extra clocks. Hope 50 is enough. */ 208126177Srik for (val=0; val<50; ++val) 209126177Srik dclk_tick (port); 210126177Srik 211126177Srik if (nstatus(port) == 0) { 212126601Sbms CTAU_DEBUG (("Bad nstatus after confdone, %d bytes remaining (%d).\n", 213126177Srik bytes, t.ptr - fwaddr)); 214126177Srik goto failed; 215126177Srik } 216126177Srik 217126177Srik /* Succeeded. */ 218126601Sbms /*CTAU_DEBUG (("Download succeeded.\n"));*/ 219126177Srik return 1; 220126177Srik } 221126177Srik 222126177Srik putbit (port, val & 0x01); 223126177Srik putbit (port, val & 0x02); 224126177Srik putbit (port, val & 0x04); 225126177Srik putbit (port, val & 0x08); 226126177Srik putbit (port, val & 0x10); 227126177Srik putbit (port, val & 0x20); 228126177Srik putbit (port, val & 0x40); 229126177Srik putbit (port, val & 0x80); 230126177Srik 231126177Srik /* if ((bytes & 1023) == 0) putch ('.'); */ 232126177Srik } 233126177Srik 234126601Sbms CTAU_DEBUG (("Bad confdone.\n")); 235126177Srikfailed: 236126601Sbms CTAU_DEBUG (("Downloading aborted.\n")); 237126177Srik return 0; 238126177Srik} 239126177Srik 240126177Srik/* 241126177Srik * Detect Tau2 adapter. 242126177Srik */ 243126177Srikstatic int ct_probe2_board (port_t port) 244126177Srik{ 245126177Srik unsigned char sr3, osr3; 246126177Srik int i; 247126177Srik 248126177Srik if (! valid (port, porttab)) 249126177Srik return 0; 250126177Srik 251126177Srik osr3 = inb (BSR3(port)); 252126177Srik if ((osr3 & (BSR3_IB | BSR3_IB_NEG)) != BSR3_IB && 253126177Srik (osr3 & (BSR3_IB | BSR3_IB_NEG)) != BSR3_IB_NEG) 254126177Srik return (0); 255126177Srik for (i=0; i<100; ++i) { 256126177Srik /* Do it twice */ 257126177Srik sr3 = inb (BSR3(port)); 258126177Srik sr3 = inb (BSR3(port)); 259126177Srik if (((sr3 ^ osr3) & (BSR3_IB | BSR3_IB_NEG | BSR3_ZERO)) != 260126177Srik (BSR3_IB | BSR3_IB_NEG)) 261126177Srik return (0); 262126177Srik osr3 = sr3; 263126177Srik } 264126177Srik /* Reset the controller. */ 265126177Srik outb (BCR0(port), 0); 266126177Srik return 1; 267126177Srik} 268126177Srik 269126177Srik/* 270126177Srik * Check if the Tau board is present at the given base port. 271126177Srik * Read board status register 1 and check identification bits 272126177Srik * which should invert every next read. 273126177Srik * The "zero" bit should remain stable. 274126177Srik */ 275126177Srikint ct_probe_board (port_t port, int irq, int dma) 276126177Srik{ 277126177Srik unsigned char sr3, osr3; 278126177Srik int i; 279126177Srik 280126177Srik if (! valid (port, porttab)) 281126177Srik return 0; 282126177Srik 283126177Srik if ((irq > 0) && (!valid (irq, irqtab))) 284126177Srik return 0; 285126177Srik 286126177Srik if ((dma > 0) && (!valid (dma, dmatab))) 287126177Srik return 0; 288126177Srik 289126177Srik osr3 = inb (BSR3(port)); 290126177Srik if ((osr3 & (BSR3_IB | BSR3_IB_NEG)) != BSR3_IB && 291126177Srik (osr3 & (BSR3_IB | BSR3_IB_NEG)) != BSR3_IB_NEG) 292126177Srik return (0); 293126177Srik for (i=0; i<100; ++i) { 294126177Srik sr3 = inb (BSR3(port)); 295126177Srik if (((sr3 ^ osr3) & (BSR3_IB | BSR3_IB_NEG | BSR3_ZERO)) != 296126177Srik (BSR3_IB | BSR3_IB_NEG)) 297126177Srik return ct_probe2_board (port); 298126177Srik osr3 = sr3; 299126177Srik } 300126177Srik /* Reset the controller. */ 301126177Srik outb (BCR0(port), 0); 302126177Srik return (1); 303126177Srik} 304126177Srik 305126177Srik/* 306126177Srik * Check that the irq is functional. 307126177Srik * irq>0 - activate the interrupt from the adapter (irq=on) 308126177Srik * irq<0 - deactivate the interrupt (irq=off) 309126177Srik * irq==0 - free the interrupt line (irq=tri-state) 310126177Srik * Return the interrupt mask _before_ activating irq. 311126177Srik */ 312126177Srikint ct_probe_irq (ct_board_t *b, int irq) 313126177Srik{ 314126177Srik int mask; 315126177Srik 316126177Srik outb (0x20, 0x0a); 317126177Srik mask = inb (0x20); 318126177Srik outb (0xa0, 0x0a); 319126177Srik mask |= inb (0xa0) << 8; 320126177Srik 321126177Srik if (irq > 0) { 322126177Srik outb (BCR0(b->port), BCR0_HDRUN | irqmask[irq]); 323126177Srik outb (R(b->port,HD_TEPR_0R), 0); 324126177Srik outw (R(b->port,HD_TCONR_0R), 1); 325126177Srik outw (R(b->port,HD_TCNT_0R), 0); 326126177Srik outb (R(b->port,HD_TCSR_0R), TCSR_ENABLE | TCSR_INTR); 327126177Srik outb (IER2(b->port), IER2_RX_TME_0); 328126177Srik } else if (irq < 0) { 329126177Srik outb (BCR0(b->port), BCR0_HDRUN | irqmask[-irq]); 330126177Srik outb (IER0(b->port), 0); 331126177Srik outb (IER1(b->port), 0); 332126177Srik outb (IER2(b->port), 0); 333126177Srik outb (R(b->port,HD_TCSR_0R), 0); 334126177Srik cte_out (E1CS0 (b->port), DS_IMR2, 0); 335126177Srik cte_out (E1CS1 (b->port), DS_IMR2, 0); 336126177Srik if (-irq > 7) { 337126177Srik outb (0xa0, 0x60 | ((-irq) & 7)); 338126177Srik outb (0x20, 0x62); 339126177Srik } else 340126177Srik outb (0x20, 0x60 | (-irq)); 341126177Srik } else { 342126177Srik outb (BCR0(b->port), b->bcr0); 343126177Srik cte_out (E1CS0 (b->port), DS_IMR2, SR2_SEC); 344126177Srik cte_out (E1CS1 (b->port), DS_IMR2, SR2_SEC); 345126177Srik } 346126177Srik 347126177Srik return mask; 348126177Srik} 349126177Srik 350126177Srikvoid ct_init_board (ct_board_t *b, int num, port_t port, int irq, int dma, 351126177Srik int type, long osc) 352126177Srik{ 353126177Srik int i; 354126177Srik 355126177Srik /* Initialize board structure. */ 356126177Srik b->type = type; 357126177Srik b->port = port; 358126177Srik b->num = num; 359126177Srik b->irq = irq; 360126177Srik b->dma = dma; 361126177Srik b->osc = osc; 362126177Srik 363126177Srik /* Get the board type. */ 364126177Srik if (b->type == B_TAU) strcpy (b->name, "Tau"); 365126177Srik else if (b->type == B_TAU_E1) strcpy (b->name, "Tau/E1"); 366126177Srik else if (b->type == B_TAU_E1C) strcpy (b->name, "Tau/E1c"); 367126177Srik else if (b->type == B_TAU_E1D) strcpy (b->name, "Tau/E1d"); 368126177Srik else if (b->type == B_TAU_G703) strcpy (b->name, "Tau/G.703"); 369126177Srik else if (b->type == B_TAU_G703C) strcpy (b->name, "Tau/G.703c"); 370126177Srik else if (b->type == B_TAU2) strcpy (b->name, "Tau2"); 371126177Srik else if (b->type == B_TAU2_E1) strcpy (b->name, "Tau2/E1"); 372126177Srik else if (b->type == B_TAU2_E1D) strcpy (b->name, "Tau2/E1d"); 373126177Srik else if (b->type == B_TAU2_G703) strcpy (b->name, "Tau2/G.703"); 374126177Srik else strcpy (b->name, "Tau/???"); 375126177Srik 376126177Srik /* Set DMA and IRQ. */ 377126177Srik b->bcr0 = BCR0_HDRUN | dmamask[b->dma] | irqmask[b->irq]; 378126177Srik 379126177Srik /* Clear DTR[0..1]. */ 380126177Srik b->bcr1 = 0; 381126177Srik b->e1cfg = 0; 382126177Srik 383126177Srik /* Initialize channel structures. */ 384126177Srik for (i=0; i<NCHAN; ++i) 385126177Srik ct_init_chan (b, i); 386126177Srik ct_reinit_board (b); 387126177Srik} 388126177Srik 389126177Srik/* 390126177Srik * Initialize the board structure. 391126177Srik */ 392126177Srikvoid ct_init (ct_board_t *b, int num, port_t port, int irq, int dma, 393126177Srik const unsigned char *firmware, long bits, const cr_dat_tst_t *tst, 394126177Srik const unsigned char *firmware2) 395126177Srik{ 396126177Srik static long tlen = 182; 397126177Srik static cr_dat_tst_t tvec [] = {{ 114, 178 }, { 182, 182 }}; 398126177Srik static cr_dat_tst_t tvec2 [] = {{ 50, 178 }, { 182, 182 }}; 399126177Srik static unsigned char tau [] = { 155,153,113,48,64,236, 400126177Srik 48,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,183,}; 401126177Srik static unsigned char e1 [] = { 155,153,113,48,64,236, 402126177Srik 112,37,49,37,33,116,101,100,112,37,49,37,33,116,101,100,230,}; 403126177Srik static unsigned char e1_2 [] = { 155,153,113,48,64,236, 404126177Srik 112,37,49,37,33,116,101,100,96,97,53,49,49,96,97,100,230,}; 405126177Srik static unsigned char e1_3 [] = { 155,153,113,48,64,236, 406126177Srik 96,97,53,49,49,96,97,100,96,97,53,49,49,96,97,100,230,}; 407126177Srik static unsigned char e1_4 [] = { 155,153,113,48,64,236, 408126177Srik 96,97,53,49,49,96,97,100,112,37,49,37,33,116,101,100,230,}; 409126177Srik static unsigned char g703 [] = { 155,153,113,48,64,236, 410126177Srik 112,37,49,37,33,116,101,32,117,37,49,37,33,116,101,100,230,}; 411126177Srik static unsigned char g703_2 [] = { 155,153,113,48,64,236, 412126177Srik 112,37,49,37,33,116,101,32,101,97,53,49,49,96,97,100,230,}; 413126177Srik static unsigned char g703_3 [] = { 155,153,113,48,64,236, 414126177Srik 96,97,53,49,49,96,97,32,101,97,53,49,49,96,97,100,230,}; 415126177Srik static unsigned char g703_4 [] = { 155,153,113,48,64,236, 416126177Srik 96,97,53,49,49,96,97,32,117,37,49,37,33,116,101,100,230,}; 417126177Srik 418126177Srik int type = B_TAU; 419126177Srik long osc = (inb (BSR3(port)) & BSR3_ZERO) ? 8192000 : 10000000; 420126177Srik 421126177Srik /* Get the board type. */ 422126177Srik if (ct_probe2_board (port) && ct_download2 (port, firmware2)) { 423126177Srik /* Tau2, 1k30-based model */ 424126177Srik unsigned char sr0 = inb (BSR0(port)); 425126177Srik if (! (sr0 & BSR0_T703)) 426126177Srik type = B_TAU2_G703; 427126177Srik else if (sr0 & BSR0_TE1) 428126177Srik type = B_TAU2; 429126177Srik else if (inb(E1SR(port)) & E1SR_REV) 430126177Srik type = B_TAU2_E1D; 431126177Srik else 432126177Srik type = B_TAU2_E1; 433126177Srik } else if (ct_download (port, tau, tlen, tvec)) { 434126177Srik if (! ct_download (port, firmware, bits, tst)) 435126177Srik type = B_TAU; 436126177Srik else { 437126177Srik unsigned char sr0 = inb (BSR0(port)); 438126177Srik if (! (sr0 & BSR0_T703)) 439126177Srik type = B_TAU_G703C; 440126177Srik else if (sr0 & BSR0_TE1) 441126177Srik type = B_TAU; 442126177Srik else if (inb(E1SR(port)) & E1SR_REV) 443126177Srik type = B_TAU_E1D; 444126177Srik else 445126177Srik type = B_TAU_E1C; 446126177Srik } 447126177Srik } else if (ct_download (port, e1, tlen, tvec2) || 448126177Srik ct_download (port, e1_2, tlen, tvec2) || 449126177Srik ct_download (port, e1_3, tlen, tvec2) || 450126177Srik ct_download (port, e1_4, tlen, tvec2)) 451126177Srik type = B_TAU_E1; 452126177Srik else if (ct_download (port, g703, tlen, tvec2) || 453126177Srik ct_download (port, g703_2, tlen, tvec2) || 454126177Srik ct_download (port, g703_3, tlen, tvec2) || 455126177Srik ct_download (port, g703_4, tlen, tvec2)) 456126177Srik type = B_TAU_G703; 457126177Srik ct_init_board (b, num, port, irq, dma, type, osc); 458126177Srik} 459126177Srik 460126177Srik/* 461126177Srik * Initialize the channel structure. 462126177Srik */ 463126177Srikstatic void ct_init_chan (ct_board_t *b, int i) 464126177Srik{ 465126177Srik ct_chan_t *c = b->chan + i; 466126177Srik port_t port = b->port; 467126177Srik 468126177Srik c->num = i; 469126177Srik c->board = b; 470126177Srik switch (b->type) { 471126177Srik case B_TAU: 472126177Srik case B_TAU2: c->type = T_SERIAL; break; 473126177Srik case B_TAU_E1: 474126177Srik case B_TAU_E1C: 475126177Srik case B_TAU_E1D: 476126177Srik case B_TAU2_E1: 477126177Srik case B_TAU2_E1D: c->type = T_E1; break; 478126177Srik case B_TAU_G703: 479126177Srik case B_TAU_G703C: 480126177Srik case B_TAU2_G703: c->type = T_G703; break; 481126177Srik } 482126177Srik if (c->num) 483126177Srik c->type |= T_SERIAL; 484126177Srik 485126177Srik#define reg(X,N) HD_##X##_##N 486126177Srik#define set(X,N) c->X = R(port,reg(X,N)) 487126177Srik#define srx(X,N) c->RX.X = R(port,reg(X,N##R)) 488126177Srik#define stx(X,N) c->TX.X = R(port,reg(X,N##T)) 489126177Srik if (i == 0) { 490126177Srik set(MD0, 0); set(MD1, 0); set(MD2, 0); set(CTL, 0); 491126177Srik set(RXS, 0); set(TXS, 0); set(TMC, 0); set(CMD, 0); 492126177Srik set(ST0, 0); set(ST1, 0); set(ST2, 0); set(ST3, 0); 493126177Srik set(FST, 0); set(IE0, 0); set(IE1, 0); set(IE2, 0); 494126177Srik set(FST, 0); set(IE0, 0); set(IE1, 0); set(IE2, 0); 495126177Srik set(FIE, 0); set(SA0, 0); set(SA1, 0); set(IDL, 0); 496126177Srik set(TRB, 0); set(RRC, 0); set(TRC0,0); set(TRC1,0); 497126177Srik set(CST, 0); 498126177Srik srx(DAR, 0); srx(DARB,0); srx(SAR, 0); srx(SARB,0); 499126177Srik srx(CDA, 0); srx(EDA, 0); srx(BFL, 0); srx(BCR, 0); 500126177Srik srx(DSR, 0); srx(DMR, 0); srx(FCT, 0); srx(DIR, 0); 501126177Srik srx(DCR, 0); 502126177Srik srx(TCNT,0); srx(TCONR,0); srx(TCSR,0); srx(TEPR,0); 503126177Srik stx(DAR, 0); stx(DARB,0); stx(SAR, 0); stx(SARB,0); 504126177Srik stx(CDA, 0); stx(EDA, 0); stx(BCR, 0); 505126177Srik stx(DSR, 0); stx(DMR, 0); stx(FCT, 0); stx(DIR, 0); 506126177Srik stx(DCR, 0); 507126177Srik stx(TCNT,0); stx(TCONR,0); stx(TCSR,0); stx(TEPR,0); 508126177Srik } else { 509126177Srik set(MD0, 1); set(MD1, 1); set(MD2, 1); set(CTL, 1); 510126177Srik set(RXS, 1); set(TXS, 1); set(TMC, 1); set(CMD, 1); 511126177Srik set(ST0, 1); set(ST1, 1); set(ST2, 1); set(ST3, 1); 512126177Srik set(FST, 1); set(IE0, 1); set(IE1, 1); set(IE2, 1); 513126177Srik set(FST, 1); set(IE0, 1); set(IE1, 1); set(IE2, 1); 514126177Srik set(FIE, 1); set(SA0, 1); set(SA1, 1); set(IDL, 1); 515126177Srik set(TRB, 1); set(RRC, 1); set(TRC0,1); set(TRC1,1); 516126177Srik set(CST, 1); 517126177Srik srx(DAR, 1); srx(DARB,1); srx(SAR, 1); srx(SARB,1); 518126177Srik srx(CDA, 1); srx(EDA, 1); srx(BFL, 1); srx(BCR, 1); 519126177Srik srx(DSR, 1); srx(DMR, 1); srx(FCT, 1); srx(DIR, 1); 520126177Srik srx(DCR, 1); 521126177Srik srx(TCNT,1); srx(TCONR,1); srx(TCSR,1); srx(TEPR,1); 522126177Srik stx(DAR, 1); stx(DARB,1); stx(SAR, 1); stx(SARB,1); 523126177Srik stx(CDA, 1); stx(EDA, 1); stx(BCR, 1); 524126177Srik stx(DSR, 1); stx(DMR, 1); stx(FCT, 1); stx(DIR, 1); 525126177Srik stx(DCR, 1); 526126177Srik stx(TCNT,1); stx(TCONR,1); stx(TCSR,1); stx(TEPR,1); 527126177Srik } 528126177Srik#undef set 529126177Srik#undef srx 530126177Srik#undef stx 531126177Srik#undef reg 532126177Srik} 533126177Srik 534126177Srik/* 535126177Srik * Reinitialize the channels, using new options. 536126177Srik */ 537126177Srikvoid ct_reinit_chan (ct_chan_t *c) 538126177Srik{ 539126177Srik ct_board_t *b = c->board; 540126177Srik long s; 541126177Srik int i; 542126177Srik 543126177Srik if (c->hopt.txs == CLK_LINE) { 544126177Srik /* External clock mode -- set zero baud rate. */ 545126177Srik if (c->mode != M_ASYNC) 546126177Srik c->baud = 0; 547126177Srik } else if (c->baud == 0) { 548126177Srik /* No baud rate in internal clock mode -- set default values. */ 549126177Srik if (c->mode == M_ASYNC) 550126177Srik c->baud = 9600; 551126177Srik else if (c->mode == M_HDLC) 552126177Srik c->baud = 64000; 553126177Srik } 554126177Srik switch (c->type) { 555126177Srik case T_E1_SERIAL: 556126177Srik if (b->opt.cfg == CFG_B) 557126177Srik break; 558126177Srik /* Fall through... */ 559126177Srik case T_E1: 560126177Srik c->mode = M_E1; 561126177Srik c->hopt.txs = CLK_LINE; 562126177Srik 563126177Srik /* Compute the baud value. */ 564126177Srik if (c->num) { 565126177Srik s = b->opt.s1; 566126177Srik if (b->opt.cfg == CFG_C) 567126177Srik s &=~ b->opt.s0; 568126177Srik } else 569126177Srik s = b->opt.s0; 570126177Srik /* Skip timeslot 16 in CAS mode. */ 571126177Srik if (c->gopt.cas) 572126177Srik s &=~ (1L << 16); 573126177Srik 574126177Srik c->baud = 0; 575126177Srik for (i=0; i<32; ++i) 576126177Srik if ((s >> i) & 1) 577126177Srik c->baud += 64000; 578126177Srik c->gopt.rate = c->baud / 1000; 579126177Srik 580126177Srik /* Set NRZ and clear INVCLK. */ 581126177Srik c->opt.md2.encod = MD2_ENCOD_NRZ; 582126177Srik c->board->opt.bcr2 &= c->num ? 583126177Srik ~(BCR2_INVTXC1 | BCR2_INVRXC1) : 584126177Srik ~(BCR2_INVTXC0 | BCR2_INVRXC0); 585126177Srik break; 586126177Srik 587126177Srik case T_G703_SERIAL: 588126177Srik if (b->opt.cfg == CFG_B) 589126177Srik break; 590126177Srik /* Fall through... */ 591126177Srik case T_G703: 592126177Srik c->mode = M_G703; 593126177Srik c->hopt.txs = CLK_LINE; 594126177Srik c->baud = c->gopt.rate * 1000L; 595126177Srik 596126177Srik /* Set NRZ/NRZI and clear INVCLK. */ 597126177Srik if (c->opt.md2.encod != MD2_ENCOD_NRZ && 598126177Srik c->opt.md2.encod != MD2_ENCOD_NRZI) 599126177Srik c->opt.md2.encod = MD2_ENCOD_NRZ; 600126177Srik c->board->opt.bcr2 &= c->num ? 601126177Srik ~(BCR2_INVTXC1 | BCR2_INVRXC1) : 602126177Srik ~(BCR2_INVTXC0 | BCR2_INVRXC0); 603126177Srik break; 604126177Srik } 605126177Srik} 606126177Srik 607126177Srik/* 608126177Srik * Reinitialize all channels, using new options and baud rate. 609126177Srik */ 610126177Srikvoid ct_reinit_board (ct_board_t *b) 611126177Srik{ 612126177Srik ct_chan_t *c; 613126177Srik 614126177Srik b->opt = ct_board_opt_dflt; 615126177Srik for (c=b->chan; c<b->chan+NCHAN; ++c) { 616126177Srik c->opt = ct_chan_opt_dflt; 617126177Srik c->hopt = ct_opt_hdlc_dflt; 618126177Srik c->gopt = ct_opt_g703_dflt; 619126177Srik c->mode = ct_chan_mode; 620126177Srik c->baud = ct_baud; 621126177Srik 622126177Srik ct_reinit_chan (c); 623126177Srik } 624126177Srik} 625126177Srik 626126177Srik/* 627126177Srik * Set up the E1 controller of the Tau/E1 board. 628126177Srik * Frame sync signals: 629126177Srik * Configuration Rsync0 Tsync0 Rsync1 Tsync1 630126177Srik * --------------------------------------------------- 631126177Srik * A (II) out out out out 632126177Srik * B,C,D (HI,K,D) in out in out 633126177Srik * --------------------------------------------------- 634126177Srik * BI out out in in -- not implemented 635126177Srik * old B,C,D (HI,K,D) out in out in -- old 636126177Srik */ 637126177Srikstatic void ct_setup_ctlr (ct_chan_t *c) 638126177Srik{ 639126177Srik ct_board_t *b = c->board; 640126177Srik port_t p = c->num ? E1CS1 (b->port) : E1CS0 (b->port); 641126177Srik unsigned char rcr1, rcr2, tcr1, tcr2, ccr1, licr; 642126177Srik unsigned long xcbr, tir; 643126177Srik int i; 644126177Srik 645126177Srik rcr2 = RCR2_RSCLKM; 646126177Srik tcr1 = TCR1_TSIS | TCR1_TSO; 647126177Srik tcr2 = 0; 648126177Srik ccr1 = 0; 649126177Srik licr = 0; 650126177Srik 651126177Srik if (b->opt.cfg != CFG_D) { 652126177Srik /* Enable monitoring channel, when not in telephony mode. */ 653126177Srik rcr2 |= RCR2_SA_4; 654126177Srik tcr2 |= TCR2_SA_4; 655126177Srik } 656126177Srik if (b->opt.cfg == CFG_A) { 657126177Srik rcr1 = RCR1_RSO; 658126177Srik } else { 659126177Srik rcr1 = RCR1_RSI; 660126177Srik rcr2 |= RCR2_RESE; 661126177Srik } 662126177Srik 663126177Srik if (c->gopt.cas) 664126177Srik tcr1 |= TCR1_T16S; 665126177Srik else 666126177Srik ccr1 |= CCR1_CCS; 667126177Srik 668126177Srik if (c->gopt.hdb3) 669126177Srik ccr1 |= CCR1_THDB3 | CCR1_RHDB3; 670126177Srik 671126177Srik if (c->gopt.crc4) { 672126177Srik ccr1 |= CCR1_TCRC4 | CCR1_RCRC4; 673126177Srik tcr2 |= TCR2_AEBE; 674126177Srik } 675126177Srik 676126177Srik if (c->gopt.higain) 677126177Srik licr |= LICR_HIGAIN; 678126177Srik if (inb (E1SR (b->port)) & (c->num ? E1SR_TP1 : E1SR_TP0)) 679126177Srik licr |= LICR_LB120P; 680126177Srik else 681126177Srik licr |= LICR_LB75P; 682126177Srik 683126177Srik cte_out (p, DS_RCR1, rcr1); /* receive control 1 */ 684126177Srik cte_out (p, DS_RCR2, rcr2); /* receive control 2 */ 685126177Srik cte_out (p, DS_TCR1, tcr1); /* transmit control 1 */ 686126177Srik cte_out (p, DS_TCR2, tcr2); /* transmit control 2 */ 687126177Srik cte_out (p, DS_CCR1, ccr1); /* common control 1 */ 688126177Srik cte_out (p, DS_CCR2, CCR2_CNTCV | CCR2_AUTORA | CCR2_LOFA1); /* common control 2 */ 689126177Srik cte_out (p, DS_CCR3, CCR3_TSCLKM); /* common control 3 */ 690126177Srik cte_out (p, DS_LICR, licr); /* line interface control */ 691126177Srik cte_out (p, DS_IMR1, 0); /* interrupt mask 1 */ 692126177Srik cte_out (p, DS_IMR2, SR2_SEC); /* interrupt mask 2 */ 693126177Srik cte_out (p, DS_TEST1, 0); 694126177Srik cte_out (p, DS_TEST2, 0); 695126177Srik cte_out (p, DS_TAF, 0x9b); /* transmit align frame */ 696126177Srik cte_out (p, DS_TNAF, 0xdf); /* transmit non-align frame */ 697126177Srik cte_out (p, DS_TIDR, 0xff); /* transmit idle definition */ 698126177Srik 699126177Srik cte_out (p, DS_TS, 0x0b); /* transmit signaling 1 */ 700126177Srik for (i=1; i<16; ++i) 701126177Srik /* transmit signaling 2..16 */ 702126177Srik cte_out (p, (unsigned char) (DS_TS+i), 0xff); 703126177Srik 704126177Srik /* 705126177Srik * S0 == list of timeslots for channel 0 706126177Srik * S1 == list of timeslots for channel 1 707126177Srik * S2 == list of timeslots for E1 subchannel (pass through) 708126177Srik * 709126177Srik * Each channel uses the same timeslots for receive and transmit, 710126177Srik * i.e. RCBRi == TCBRi. 711126177Srik */ 712126177Srik if (b->opt.cfg == CFG_B) 713126177Srik b->opt.s1 = 0; 714126177Srik else if (b->opt.cfg == CFG_C) 715126177Srik b->opt.s1 &=~ b->opt.s0; 716126177Srik if (c->gopt.cas) { 717126177Srik /* Skip timeslot 16 in CAS mode. */ 718126177Srik b->opt.s0 &=~ (1L << 16); 719126177Srik b->opt.s1 &=~ (1L << 16); 720126177Srik } 721126177Srik b->opt.s2 &=~ b->opt.s0; 722126177Srik b->opt.s2 &=~ b->opt.s1; 723126177Srik 724126177Srik /* 725126177Srik * Configuration A: 726126177Srik * xCBRi := Si 727126177Srik * TIRi := ~Si 728126177Srik * 729126177Srik * Configuration B: 730126177Srik * xCBRi := Si 731126177Srik * TIRi := 0 732126177Srik * 733126177Srik * Configuration C: (S0 & S2 == 0) 734126177Srik * xCBR0 := S0 735126177Srik * xCBR1 := 0 736126177Srik * TIR0 := ~S0 & ~S2 737126177Srik * TIR1 := ~S2 738126177Srik * 739126177Srik * Configuration D: (Si & Sj == 0) 740126177Srik * xCBR0 := S0 741126177Srik * xCBR1 := S1 742126177Srik * TIR0 := ~S0 & ~S1 & ~S2 743126177Srik * TIR1 := ~S2 744126177Srik */ 745126177Srik xcbr = c->num ? b->opt.s1 : b->opt.s0; 746126177Srik if (b->opt.cfg == CFG_A) 747126177Srik tir = ~xcbr; 748126177Srik else if (b->opt.cfg == CFG_D) 749126177Srik tir = 0; 750126177Srik else if (c->num == 0) 751126177Srik tir = ~(b->opt.s0 | b->opt.s1 | b->opt.s2); 752126177Srik else 753126177Srik tir = ~b->opt.s2; 754126177Srik 755126177Srik /* Mark idle channels. */ 756126177Srik cte_out (p, DS_TIR, (unsigned char) (tir & 0xfe)); 757126177Srik cte_out (p, DS_TIR+1, (unsigned char) (tir >> 8)); 758126177Srik cte_out (p, DS_TIR+2, (unsigned char) (tir >> 16)); 759126177Srik cte_out (p, DS_TIR+3, (unsigned char) (tir >> 24)); 760126177Srik 761126177Srik /* Set up rx/tx timeslots. */ 762126177Srik cte_out (p, DS_RCBR, (unsigned char) (xcbr & 0xfe)); 763126177Srik cte_out (p, DS_RCBR+1, (unsigned char) (xcbr >> 8)); 764126177Srik cte_out (p, DS_RCBR+2, (unsigned char) (xcbr >> 16)); 765126177Srik cte_out (p, DS_RCBR+3, (unsigned char) (xcbr >> 24)); 766126177Srik cte_out (p, DS_TCBR, (unsigned char) (xcbr & 0xfe)); 767126177Srik cte_out (p, DS_TCBR+1, (unsigned char) (xcbr >> 8)); 768126177Srik cte_out (p, DS_TCBR+2, (unsigned char) (xcbr >> 16)); 769126177Srik cte_out (p, DS_TCBR+3, (unsigned char) (xcbr >> 24)); 770126177Srik 771126177Srik /* Reset the line interface. */ 772126177Srik cte_out (p, DS_CCR3, CCR3_TSCLKM | CCR3_LIRESET); 773126177Srik cte_out (p, DS_CCR3, CCR3_TSCLKM); 774126177Srik 775126177Srik /* Reset the elastic store. */ 776126177Srik cte_out (p, DS_CCR3, CCR3_TSCLKM | CCR3_ESRESET); 777126177Srik cte_out (p, DS_CCR3, CCR3_TSCLKM); 778126177Srik 779126177Srik /* Clear status registers. */ 780126177Srik cte_ins (p, DS_SR1, 0xff); 781126177Srik cte_ins (p, DS_SR2, 0xff); 782126177Srik cte_ins (p, DS_RIR, 0xff); 783126177Srik} 784126177Srik 785126177Srik/* 786126177Srik * Set up the serial controller of the Tau/E1 board. 787126177Srik */ 788126177Srikstatic void ct_setup_scc (port_t port) 789126177Srik{ 790126177Srik#define SET(r,v) { cte_out2 (port, r, v); cte_out2 (port, AM_A | r, v); } 791126177Srik 792126177Srik /* hardware reset */ 793126177Srik cte_out2 (port, AM_MICR, MICR_RESET_HW); 794126177Srik 795126177Srik SET (AM_PMR, 0x0c); /* 2 stop bits */ 796126177Srik SET (AM_IMR, 0); /* no W/REQ signal */ 797126177Srik cte_out2 (port, AM_IVR, 0); /* interrupt vector */ 798126177Srik SET (AM_RCR, 0xc0); /* rx 8 bits/char */ 799126177Srik SET (AM_TCR, 0x60); /* tx 8 bits/char */ 800126177Srik SET (AM_SAF, 0); /* sync address field */ 801126177Srik SET (AM_SFR, 0x7e); /* sync flag register */ 802126177Srik cte_out2 (port, AM_MICR, 0); /* master interrupt control */ 803126177Srik SET (AM_MCR, 0); /* NRZ mode */ 804126177Srik SET (AM_CMR, 0x08); /* rxclk=RTxC, txclk=TRxC */ 805126177Srik SET (AM_TCL, 0); /* time constant low */ 806126177Srik SET (AM_TCH, 0); /* time constant high */ 807126177Srik SET (AM_BCR, 0); /* disable baud rate generator */ 808126177Srik 809126177Srik SET (AM_RCR, 0xc1); /* enable rx */ 810126177Srik SET (AM_TCR, 0x68); /* enable tx */ 811126177Srik 812126177Srik SET (AM_SICR, 0); /* no status interrupt */ 813126177Srik SET (AM_CR, CR_RST_EXTINT); /* reset external status */ 814126177Srik SET (AM_CR, CR_RST_EXTINT); /* reset ext/status twice */ 815126177Srik#undef SET 816126177Srik} 817126177Srik 818126177Srik/* 819126177Srik * Set up the Tau/E1 board. 820126177Srik */ 821126177Srikvoid ct_setup_e1 (ct_board_t *b) 822126177Srik{ 823126177Srik /* 824126177Srik * Control register 0: 825126177Srik * 1) board configuration 826126177Srik * 2) clock modes 827126177Srik */ 828126177Srik b->e1cfg &= E1CFG_LED; 829126177Srik switch (b->opt.cfg){ 830126177Srik case CFG_C: b->e1cfg |= E1CFG_K; break; 831126177Srik case CFG_B: b->e1cfg |= E1CFG_HI; break; 832126177Srik case CFG_D: b->e1cfg |= E1CFG_D; break; 833126177Srik default: b->e1cfg |= E1CFG_II; break; 834126177Srik } 835126177Srik 836126177Srik if (b->opt.clk0 == GCLK_RCV) b->e1cfg |= E1CFG_CLK0_RCV; 837126177Srik if (b->opt.clk0 == GCLK_RCLKO) b->e1cfg |= E1CFG_CLK0_RCLK1; 838126177Srik else b->e1cfg |= E1CFG_CLK0_INT; 839126177Srik if (b->opt.clk1 == GCLK_RCV) b->e1cfg |= E1CFG_CLK1_RCV; 840126177Srik if (b->opt.clk1 == GCLK_RCLKO) b->e1cfg |= E1CFG_CLK1_RCLK0; 841126177Srik else b->e1cfg |= E1CFG_CLK1_INT; 842126177Srik 843126177Srik outb (E1CFG (b->port), b->e1cfg); 844126177Srik 845126177Srik /* 846126177Srik * Set up serial controller. 847126177Srik */ 848126177Srik ct_setup_scc (b->port); 849126177Srik 850126177Srik /* 851126177Srik * Set up E1 controllers. 852126177Srik */ 853126177Srik ct_setup_ctlr (b->chan + 0); /* channel 0 */ 854126177Srik ct_setup_ctlr (b->chan + 1); /* channel 1 */ 855126177Srik 856126177Srik /* Start the board (GRUN). */ 857126177Srik b->e1cfg |= E1CFG_GRUN; 858126177Srik outb (E1CFG (b->port), b->e1cfg); 859126177Srik} 860126177Srik 861126177Srik/* 862126177Srik * Set up the G.703 controller of the Tau/G.703 board. 863126177Srik */ 864126177Srikstatic void ct_setup_lxt (ct_chan_t *c) 865126177Srik{ 866126177Srik ctg_outx (c, LX_CCR1, LX_RESET); /* reset the chip */ 867126177Srik /* Delay */ 868126177Srik ctg_inx (c, LX_CCR1); 869126177Srik c->lx = LX_LOS; /* disable loss of sync interrupt */ 870126177Srik if (c->num && c->board->opt.cfg == CFG_B) 871126177Srik c->lx |= LX_TAOS; /* idle channel--transmit all ones */ 872126177Srik if (c->gopt.hdb3) 873126177Srik c->lx |= LX_HDB3; /* enable HDB3 encoding */ 874126177Srik ctg_outx (c, LX_CCR1, c->lx); /* setup the new mode */ 875126177Srik ctg_outx (c, LX_CCR2, LX_CCR2_LH); /* setup Long Haul mode */ 876126177Srik ctg_outx (c, LX_CCR3, LX_CCR3_E1_LH); /* setup Long Haul mode */ 877126177Srik} 878126177Srik 879126177Srik/* 880126177Srik * Set up the Tau/G.703 board. 881126177Srik */ 882126177Srikvoid ct_setup_g703 (ct_board_t *b) 883126177Srik{ 884126177Srik b->gmd0 = GMD_2048; 885126177Srik if (b->chan[0].gopt.pce) { 886126177Srik if (b->chan[0].gopt.pce2) b->gmd0 |= GMD_PCE_PCM2; 887126177Srik else b->gmd0 |= GMD_PCE_PCM2D; 888126177Srik } 889126177Srik if (b->opt.clk0) 890126177Srik b->gmd0 |= GMD_RSYNC; 891126177Srik 892126177Srik b->gmd1 = 0; 893126177Srik if (b->chan[1].gopt.pce) { 894126177Srik if (b->chan[1].gopt.pce2) b->gmd1 |= GMD_PCE_PCM2; 895126177Srik else b->gmd1 |= GMD_PCE_PCM2D; 896126177Srik } 897126177Srik if (b->opt.clk1) 898126177Srik b->gmd1 |= GMD_RSYNC; 899126177Srik 900126177Srik switch (b->chan[0].gopt.rate) { 901126177Srik case 2048: b->gmd0 |= GMD_2048; break; 902126177Srik case 1024: b->gmd0 |= GMD_1024; break; 903126177Srik case 512: b->gmd0 |= GMD_512; break; 904126177Srik case 256: b->gmd0 |= GMD_256; break; 905126177Srik case 128: b->gmd0 |= GMD_128; break; 906126177Srik case 64: b->gmd0 |= GMD_64; break; 907126177Srik } 908126177Srik switch (b->chan[1].gopt.rate) { 909126177Srik case 2048: b->gmd1 |= GMD_2048; break; 910126177Srik case 1024: b->gmd1 |= GMD_1024; break; 911126177Srik case 512: b->gmd1 |= GMD_512; break; 912126177Srik case 256: b->gmd1 |= GMD_256; break; 913126177Srik 914126177Srik case 128: b->gmd1 |= GMD_128; break; 915126177Srik case 64: b->gmd1 |= GMD_64; break; 916126177Srik } 917126177Srik 918126177Srik outb (GMD0(b->port), b->gmd0); 919126177Srik outb (GMD1(b->port), b->gmd1 | GMD1_NCS0 | GMD1_NCS1); 920126177Srik 921126177Srik b->gmd2 &= GMD2_LED; 922126177Srik if (b->opt.cfg == CFG_B) b->gmd2 |= GMD2_SERIAL; 923126177Srik outb (GMD2(b->port), b->gmd2); 924126177Srik 925126177Srik /* Set up G.703 controllers. */ 926126177Srik if ((b->chan + 0)->lx & LX_LLOOP) { 927126177Srik ct_setup_lxt (b->chan + 0); /* channel 0 */ 928126177Srik ct_enable_loop (b->chan + 0); 929126177Srik } else { 930126177Srik ct_setup_lxt (b->chan + 0); /* channel 0 */ 931126177Srik } 932126177Srik if ((b->chan + 1)->lx & LX_LLOOP) { 933126177Srik ct_setup_lxt (b->chan + 1); /* channel 1 */ 934126177Srik ct_enable_loop (b->chan + 1); 935126177Srik } else { 936126177Srik ct_setup_lxt (b->chan + 1); /* channel 1 */ 937126177Srik } 938126177Srik 939126177Srik /* Clear errors. */ 940126177Srik outb (GERR(b->port), 0xff); 941126177Srik outb (GLDR(b->port), 0xff); 942126177Srik} 943126177Srik 944126177Srik/* 945126177Srik * Set up the board. 946126177Srik */ 947126177Srikint ct_setup_board (ct_board_t *b, const unsigned char *firmware, 948126177Srik long bits, const cr_dat_tst_t *tst) 949126177Srik{ 950126177Srik ct_chan_t *c; 951126177Srik 952126177Srik /* Disable DMA channel. */ 953126177Srik outb (DMA_MASK, (b->dma & 3) | DMA_MASK_CLEAR); 954126177Srik 955126177Srik /* Reset the controller. */ 956126177Srik outb (BCR0(b->port), 0); 957126177Srik 958126177Srik /* Load the firmware. */ 959126177Srik if (firmware && (b->type == B_TAU || b->type == B_TAU_E1 || 960126177Srik b->type == B_TAU_G703) && 961126177Srik ! ct_download (b->port, firmware, bits, tst)) 962126177Srik return (0); 963126177Srik if (firmware && (b->type == B_TAU2 || b->type == B_TAU2_E1 || 964126177Srik b->type == B_TAU2_E1D || b->type == B_TAU2_G703) && 965126177Srik ! ct_download2 (b->port, firmware)) 966126177Srik return (0); 967126177Srik 968126177Srik /* Enable DMA and IRQ. */ 969126177Srik outb (BCR0(b->port), BCR0_HDRUN); 970126177Srik outb (BCR0(b->port), b->bcr0); 971126177Srik 972126177Srik /* Clear DTR[0..1]. */ 973126177Srik outb (BCR1(b->port), b->bcr1); 974126177Srik 975126177Srik /* Set bus timing. */ 976126177Srik b->bcr2 = b->opt.bcr2; 977126177Srik outb (BCR2(b->port), b->bcr2); 978126177Srik 979126177Srik /* 980126177Srik * Initialize the controller. 981126177Srik */ 982126177Srik /* Zero wait state mode. */ 983126177Srik outb (WCRL(b->port), 0); 984126177Srik outb (WCRM(b->port), 0); 985126177Srik outb (WCRH(b->port), 0); 986126177Srik 987126177Srik /* Clear interrupt modified vector register. */ 988126177Srik outb (IMVR(b->port), 0); 989126177Srik outb (ITCR(b->port), ITCR_CYCLE_SINGLE | ITCR_VECT_MOD); 990126177Srik 991126177Srik /* Disable all interrupts. */ 992126177Srik outb (IER0(b->port), 0); 993126177Srik outb (IER1(b->port), 0); 994126177Srik outb (IER2(b->port), 0); 995126177Srik 996126177Srik /* Set DMA parameters, enable master DMA mode. */ 997126177Srik outb (PCR(b->port), BYTE b->opt.pcr); 998126177Srik outb (DMER(b->port), DME_ENABLE); 999126177Srik 1000126177Srik /* Set up DMA channel to master mode. */ 1001126177Srik outb (DMA_MODE, (b->dma & 3) | DMA_MODE_MASTER); 1002126177Srik 1003126177Srik /* Enable DMA channel. */ 1004126177Srik outb (DMA_MASK, b->dma & 3); 1005126177Srik 1006126177Srik /* Disable byte-sync mode for Tau/G.703. */ 1007126177Srik if (b->type == B_TAU_G703) 1008126177Srik outb (GMD2(b->port), 0); 1009126177Srik 1010126177Srik /* Initialize all channels. */ 1011126177Srik for (c=b->chan; c<b->chan+NCHAN; ++c) 1012126177Srik ct_setup_chan (c); 1013126177Srik 1014126177Srik switch (b->type) { 1015126177Srik case B_TAU_G703: 1016126177Srik case B_TAU_G703C: 1017126177Srik case B_TAU2_G703: 1018126177Srik ct_setup_g703 (b); 1019126177Srik break; 1020126177Srik case B_TAU_E1: 1021126177Srik case B_TAU_E1C: 1022126177Srik case B_TAU_E1D: 1023126177Srik case B_TAU2_E1: 1024126177Srik case B_TAU2_E1D: 1025126177Srik ct_setup_e1 (b); 1026126177Srik break; 1027126177Srik } 1028126177Srik return (1); 1029126177Srik} 1030126177Srik 1031126177Srik/* 1032126177Srik * Update the channel mode options. 1033126177Srik */ 1034126177Srikvoid ct_update_chan (ct_chan_t *c) 1035126177Srik{ 1036126177Srik int txbr, rxbr, tmc, txcout; 1037126177Srik unsigned char rxs, txs, dmr = 0; 1038126177Srik ct_md0_async_t amd0; 1039126177Srik ct_md0_hdlc_t hmd0; 1040126177Srik ct_md1_async_t amd1; 1041126177Srik 1042126177Srik switch (c->mode) { /* initialize the channel mode */ 1043126177Srik case M_ASYNC: default: 1044126177Srik rxs = CLK_INT; 1045126177Srik txs = CLK_INT; 1046126177Srik 1047126177Srik amd0.mode = MD0_MODE_ASYNC; 1048126177Srik amd0.stopb = MD0_STOPB_1; 1049126177Srik amd0.cts_rts_dcd = 0; 1050126177Srik 1051126177Srik amd1.clk = MD1_CLK_16; 1052126177Srik amd1.txclen = amd1.rxclen = MD1_CLEN_8; 1053126177Srik amd1.parmode = MD1_PAR_NO; 1054126177Srik 1055126177Srik outb (c->MD0, BYTE amd0); 1056126177Srik outb (c->MD1, BYTE amd1); 1057126177Srik outb (c->CTL, c->rts ? 0 : CTL_RTS_INV); 1058126177Srik break; 1059126177Srik 1060126177Srik case M_E1: 1061126177Srik case M_G703: 1062126177Srik case M_HDLC: 1063126177Srik rxs = c->hopt.rxs; 1064126177Srik txs = c->hopt.txs; 1065126177Srik 1066126177Srik if (c->mode == M_E1 && c->board->opt.cfg == CFG_D) { 1067126177Srik hmd0 = c->hopt.md0; 1068126177Srik hmd0.crc = 0; 1069126177Srik 1070126177Srik outb (c->MD0, BYTE hmd0); 1071126177Srik outb (c->MD1, BYTE c->hopt.md1); 1072126177Srik outb (c->CTL, c->hopt.ctl & ~CTL_IDLE_PTRN); 1073126177Srik outb (c->SA0, c->hopt.sa0); 1074126177Srik outb (c->SA1, c->hopt.sa1); 1075126177Srik outb (c->IDL, 0x7e); /* HDLC flag 01111110 */ 1076126177Srik } else { 1077126177Srik outb (c->MD0, BYTE c->hopt.md0); 1078126177Srik outb (c->MD1, BYTE c->hopt.md1); 1079126177Srik outb (c->SA0, c->hopt.sa0); 1080126177Srik outb (c->SA1, c->hopt.sa1); 1081126177Srik outb (c->IDL, 0x7e); /* HDLC flag 01111110 */ 1082126177Srik 1083126177Srik if (c->rts) 1084126177Srik outb (c->CTL, c->hopt.ctl & ~CTL_RTS_INV); 1085126177Srik else 1086126177Srik outb (c->CTL, c->hopt.ctl | CTL_RTS_INV); 1087126177Srik } 1088126177Srik 1089126177Srik /* Chained-block DMA mode with frame counter. */ 1090126177Srik dmr |= DMR_CHAIN_CNTE | DMR_CHAIN_NF | DMR_TMOD; 1091126177Srik break; 1092126177Srik 1093126177Srik } 1094126177Srik outb (c->RX.DMR, dmr); 1095126177Srik outb (c->TX.DMR, dmr); 1096126177Srik 1097126177Srik /* set mode-independent options */ 1098126177Srik c->opt.md2.dpll_clk = MD2_DPLL_CLK_8; 1099126177Srik outb (c->MD2, BYTE c->opt.md2); 1100126177Srik 1101126177Srik /* set up receiver and transmitter clocks */ 1102126177Srik if (c->baud > 1024000) { 1103126177Srik /* turn off DPLL if the baud rate is too high */ 1104126177Srik if (rxs == CLK_RXS_LINE_NS) rxs = CLK_LINE; 1105126177Srik else if (rxs == CLK_RXS_DPLL_INT) rxs = CLK_INT; 1106126177Srik } 1107126177Srik if (rxs == CLK_RXS_LINE_NS || rxs == CLK_RXS_DPLL_INT) { 1108126177Srik /* Using 1:8 sampling rate. */ 1109126177Srik ct_compute_clock (c->board->osc, c->baud * 8, &rxbr, &tmc); 1110126177Srik txbr = rxbr + 3; 1111126177Srik } else if (c->mode == M_ASYNC) { 1112126177Srik /* Using 1:16 sampling rate. */ 1113126177Srik ct_compute_clock (c->board->osc, c->baud * 8, &rxbr, &tmc); 1114126177Srik --rxbr; 1115126177Srik txbr = rxbr; 1116126177Srik } else { 1117126177Srik ct_compute_clock (c->board->osc, c->baud, &rxbr, &tmc); 1118126177Srik txbr = rxbr; 1119126177Srik } 1120126177Srik txs |= txbr; 1121126177Srik rxs |= rxbr; 1122126177Srik outb (c->TMC, tmc); 1123126177Srik outb (c->RXS, rxs); 1124126177Srik 1125126177Srik /* Disable TXCOUT before changing TXS 1126126177Srik * to avoid two transmitters on the same line. 1127126177Srik * Enable it after TXS is set, if needed. */ 1128126177Srik txcout = c->num ? BCR1_TXCOUT1 : BCR1_TXCOUT0; 1129126177Srik c->board->bcr1 &= ~txcout; 1130126177Srik outb (BCR1(c->board->port), c->board->bcr1); 1131126177Srik outb (c->TXS, txs); 1132126177Srik if ((txs & CLK_MASK) != CLK_LINE) { 1133126177Srik c->board->bcr1 |= txcout; 1134126177Srik outb (BCR1(c->board->port), c->board->bcr1); 1135126177Srik } 1136126177Srik if (c->board->type == B_TAU_E1D || 1137126177Srik c->board->type == B_TAU2_E1D) 1138126177Srik ct_set_phony (c, c->gopt.phony); 1139126177Srik} 1140126177Srik 1141126177Srik/* 1142126177Srik * Initialize the channel. 1143126177Srik */ 1144126177Srikvoid ct_setup_chan (ct_chan_t *c) 1145126177Srik{ 1146126177Srik /* reset the channel */ 1147126177Srik outb (c->RX.DSR, DSR_DMA_DISABLE); 1148126177Srik outb (c->TX.DSR, DSR_DMA_DISABLE); 1149126177Srik outb (c->CMD, CMD_TX_RESET); 1150126177Srik outb (c->CMD, CMD_TX_ABORT); 1151126177Srik outb (c->CMD, CMD_CHAN_RESET); 1152126177Srik 1153126177Srik /* disable interrupts */ 1154126177Srik outb (c->IE0, 0); 1155126177Srik outb (c->IE1, 0); 1156126177Srik outb (c->IE2, 0); 1157126177Srik outb (c->FIE, 0); 1158126177Srik 1159126177Srik /* clear DTR, RTS */ 1160126177Srik ct_set_dtr (c, 0); 1161126177Srik ct_set_rts (c, 0); 1162126177Srik 1163126177Srik c->lx = LX_LOS; 1164126177Srik ct_update_chan (c); 1165126177Srik} 1166126177Srik 1167126177Srikunsigned long ct_get_ts (ct_chan_t *c) 1168126177Srik{ 1169126177Srik return c->num ? c->board->opt.s1 : c->board->opt.s0; 1170126177Srik} 1171126177Srik 1172126177Srik/* 1173126177Srik * Data transfer speed 1174126177Srik */ 1175126177Srikunsigned long ct_get_baud (ct_chan_t *c) 1176126177Srik{ 1177126177Srik unsigned long speed; 1178126177Srik unsigned long ts; 1179126177Srik 1180126177Srik if (c->mode == M_G703) { 1181126177Srik speed = 1000 * c->gopt.rate; 1182126177Srik } else if (c->mode == M_E1) { 1183126177Srik ts = ct_get_ts (c); 1184126177Srik for (speed=0; ts; ts >>= 1) /* Each timeslot is 64 Kbps */ 1185126177Srik if (ts & 1) 1186126177Srik speed += 64000; 1187126177Srik } else 1188126177Srik speed = (c->hopt.txs == CLK_INT) ? c->baud : 0; 1189126177Srik return speed; 1190126177Srik} 1191126177Srik 1192126177Srik/* 1193126177Srik * Turn local loopback on 1194126177Srik */ 1195126177Srikstatic void ct_enable_loop (ct_chan_t *c) 1196126177Srik{ 1197126177Srik if (c->mode == M_E1) { 1198126177Srik unsigned short p = c->num ? E1CS1 (c->board->port) : 1199126177Srik E1CS0 (c->board->port); 1200126177Srik 1201126177Srik /* Local loopback. */ 1202126177Srik cte_out (p, DS_CCR2, cte_in (p, DS_CCR2) | CCR2_LLOOP); 1203126177Srik 1204126177Srik /* Enable jitter attenuator at the transmit side. */ 1205126177Srik cte_out (p, DS_LICR, cte_in (p, DS_LICR) | LICR_JA_TX); 1206126177Srik return; 1207126177Srik } else if (c->mode == M_G703) { 1208126177Srik c->lx = LX_LOS | LX_HDB3; 1209126177Srik ctg_outx (c, LX_CCR1, c->lx |= LX_LLOOP); 1210126177Srik return; 1211126177Srik } else if (c->mode == M_HDLC && ct_get_baud(c)) { 1212126177Srik unsigned char rxs = inb (c->RXS) & ~CLK_MASK; 1213126177Srik unsigned char txs = inb (c->TXS) & ~CLK_MASK; 1214126177Srik int txcout = c->num ? BCR1_TXCOUT1 : BCR1_TXCOUT0; 1215126177Srik c->opt.md2.loop = MD2_LLOOP; 1216126177Srik 1217126177Srik /* Disable TXCOUT before changing TXS */ 1218126177Srik /* to avoid two transmitters on the same line. */ 1219126177Srik /* Enable it after TXS is set. */ 1220126177Srik outb (BCR1(c->board->port), c->board->bcr1 & ~txcout); 1221126177Srik 1222126177Srik outb (c->RXS, rxs | CLK_INT); 1223126177Srik outb (c->TXS, txs | CLK_INT); 1224126177Srik 1225126177Srik c->board->bcr1 |= txcout; 1226126177Srik outb (BCR1(c->board->port), c->board->bcr1); 1227126177Srik 1228126177Srik outb (c->MD2, *(unsigned char*)&c->opt.md2); 1229126177Srik return; 1230126177Srik } 1231126177Srik} 1232126177Srik 1233126177Srik/* 1234126177Srik * Turn local loopback off 1235126177Srik */ 1236126177Srikstatic void ct_disable_loop (ct_chan_t *c) 1237126177Srik{ 1238126177Srik if (c->mode == M_E1) { 1239126177Srik unsigned short p = c->num ? E1CS1 (c->board->port) : 1240126177Srik E1CS0 (c->board->port); 1241126177Srik 1242126177Srik /* Local loopback. */ 1243126177Srik cte_out (p, DS_CCR2, cte_in (p, DS_CCR2) & ~CCR2_LLOOP); 1244126177Srik 1245126177Srik /* Disable jitter attenuator at the transmit side. */ 1246126177Srik cte_out (p, DS_LICR, cte_in (p, DS_LICR) & ~LICR_JA_TX); 1247126177Srik return; 1248126177Srik } else if (c->mode == M_G703) { 1249126177Srik c->lx = LX_LOS | LX_HDB3; 1250126177Srik ctg_outx (c, LX_CCR1, c->lx); 1251126177Srik return; 1252126177Srik } else if (c->mode == M_HDLC && ct_get_baud(c)) { 1253126177Srik unsigned char rxs = inb (c->RXS) & ~CLK_MASK; 1254126177Srik unsigned char txs = inb (c->TXS) & ~CLK_MASK; 1255126177Srik int txcout = c->num ? BCR1_TXCOUT1 : BCR1_TXCOUT0; 1256126177Srik c->opt.md2.loop = MD2_FDX; 1257126177Srik 1258126177Srik outb (BCR1(c->board->port), c->board->bcr1 & ~txcout); 1259126177Srik 1260126177Srik outb (c->RXS, rxs | CLK_LINE); 1261126177Srik if (ct_get_baud (c)) 1262126177Srik outb (c->TXS, txs | CLK_INT); 1263126177Srik else 1264126177Srik outb (c->TXS, txs | CLK_LINE); 1265126177Srik 1266126177Srik c->board->bcr1 |= txcout; 1267126177Srik outb (BCR1(c->board->port), c->board->bcr1); 1268126177Srik 1269126177Srik outb (c->MD2, *(unsigned char*)&c->opt.md2); 1270126177Srik return; 1271126177Srik } 1272126177Srik} 1273126177Srik 1274126177Srik/* 1275126177Srik * Turn local loopback on/off 1276126177Srik */ 1277126177Srikvoid ct_set_loop (ct_chan_t *c, int on) 1278126177Srik{ 1279126177Srik if (on) 1280126177Srik ct_enable_loop (c); 1281126177Srik else 1282126177Srik ct_disable_loop (c); 1283126177Srik} 1284126177Srik 1285126177Srikint ct_get_loop (ct_chan_t *c) 1286126177Srik{ 1287126177Srik if (c->mode == M_E1) { 1288126177Srik unsigned short p = c->num ? E1CS1 (c->board->port) : 1289126177Srik E1CS0 (c->board->port); 1290126177Srik 1291126177Srik return cte_in (p, DS_CCR2) & CCR2_LLOOP; 1292126177Srik } 1293126177Srik if (c->mode == M_G703) 1294126177Srik return c->lx & LX_LLOOP; 1295126177Srik 1296126177Srik /* M_HDLC */ 1297126177Srik return (c->opt.md2.loop & MD2_LLOOP) != 0; 1298126177Srik} 1299126177Srik 1300126177Srikvoid ct_set_phony (ct_chan_t *c, int on) 1301126177Srik{ 1302126177Srik /* Valid only for TauPCI-E1. */ 1303126177Srik if (c->board->type != B_TAU_E1D && 1304126177Srik c->board->type != B_TAU2_E1D) 1305126177Srik return; 1306126177Srik c->gopt.phony = (on != 0); 1307126177Srik if (c->gopt.phony) { 1308126177Srik c->board->e1syn |= c->num ? E1SYN_ENS1 : E1SYN_ENS0; 1309126177Srik /* No receive/transmit crc. */ 1310126177Srik c->hopt.md0.crc = 0; 1311126177Srik } else { 1312126177Srik c->board->e1syn &= ~(c->num ? E1SYN_ENS1 : E1SYN_ENS0); 1313126177Srik /* Enable crc. */ 1314126177Srik c->hopt.md0.crc = 1; 1315126177Srik } 1316126177Srik outb (c->MD0, BYTE c->hopt.md0); 1317126177Srik outb (E1SYN(c->board->port), c->board->e1syn); 1318126177Srik} 1319126177Srik 1320126177Srikvoid ct_start_receiver (ct_chan_t *c, int dma, unsigned long buf, 1321126177Srik unsigned len, unsigned long desc, unsigned long lim) 1322126177Srik{ 1323126177Srik int ier0 = inb (IER0(c->board->port)); 1324126177Srik int ier1 = inb (IER1(c->board->port)); 1325126177Srik int ier2 = inb (IER2(c->board->port)); 1326126177Srik int ie0 = inb (c->IE0); 1327126177Srik int ie2 = inb (c->IE2); 1328126177Srik 1329126177Srik if (dma) { 1330126177Srik ier1 |= c->num ? (IER1_RX_DMERE_1 | IER1_RX_DME_1) : 1331126177Srik (IER1_RX_DMERE_0 | IER1_RX_DME_0); 1332126177Srik if (c->mode == M_ASYNC) { 1333126177Srik ier0 |= c->num ? IER0_RX_INTE_1 : IER0_RX_INTE_0; 1334126177Srik ie0 |= IE0_RX_INTE; 1335126177Srik ie2 |= IE2_OVRNE | IE2_ASYNC_FRMEE | IE2_ASYNC_PEE; 1336126177Srik } 1337126177Srik } else { 1338126177Srik ier0 |= c->num ? (IER0_RX_INTE_1 | IER0_RX_RDYE_1) : 1339126177Srik (IER0_RX_INTE_0 | IER0_RX_RDYE_0); 1340126177Srik ie0 |= IE0_RX_INTE | IE0_RX_RDYE; 1341126177Srik } 1342126177Srik 1343126177Srik /* Start timer. */ 1344126177Srik if (! dma) { 1345126177Srik outb (c->RX.TEPR, TEPR_64); /* prescale to 16 kHz */ 1346126177Srik outw (c->RX.TCONR, 160); /* period is 10 msec */ 1347126177Srik outw (c->RX.TCNT, 0); 1348126177Srik outb (c->RX.TCSR, TCSR_ENABLE | TCSR_INTR); 1349126177Srik ier2 |= c->num ? IER2_RX_TME_1 : IER2_RX_TME_0; 1350126177Srik } 1351126177Srik 1352126177Srik /* Enable interrupts. */ 1353126177Srik outb (IER0(c->board->port), ier0); 1354126177Srik outb (IER1(c->board->port), ier1); 1355126177Srik outb (IER2(c->board->port), ier2); 1356126177Srik outb (c->IE0, ie0); 1357126177Srik outb (c->IE2, ie2); 1358126177Srik 1359126177Srik /* RXRDY:=1 when the receive buffer has more than RRC chars */ 1360126177Srik outb (c->RRC, dma ? c->opt.dma_rrc : c->opt.pio_rrc); 1361126177Srik 1362126177Srik /* Start receiver. */ 1363126177Srik if (dma) { 1364126177Srik outb (c->RX.DCR, DCR_ABORT); 1365126177Srik if (c->mode == M_ASYNC) { 1366126177Srik /* Single-buffer DMA mode. */ 1367126177Srik outb (c->RX.DARB, (unsigned char) (buf >> 16)); 1368126177Srik outw (c->RX.DAR, (unsigned short) buf); 1369126177Srik outw (c->RX.BCR, len); 1370126177Srik outb (c->RX.DIR, DIR_EOTE); 1371126177Srik } else { 1372126177Srik /* Chained-buffer DMA mode. */ 1373126177Srik outb (c->RX.SARB, (unsigned char) (desc >> 16)); 1374126177Srik outw (c->RX.EDA, (unsigned short) lim); 1375126177Srik outw (c->RX.CDA, (unsigned short) desc); 1376126177Srik outw (c->RX.BFL, len); 1377126177Srik outb (c->RX.DIR, DIR_CHAIN_EOME | DIR_CHAIN_BOFE | 1378126177Srik DIR_CHAIN_COFE); 1379126177Srik } 1380126177Srik outb (c->RX.DSR, DSR_DMA_ENABLE); 1381126177Srik } 1382126177Srik outb (c->CMD, CMD_RX_ENABLE); 1383126177Srik} 1384126177Srik 1385126177Srikvoid ct_start_transmitter (ct_chan_t *c, int dma, unsigned long buf, 1386126177Srik unsigned len, unsigned long desc, unsigned long lim) 1387126177Srik{ 1388126177Srik int ier0 = inb (IER0(c->board->port)); 1389126177Srik int ier1 = inb (IER1(c->board->port)); 1390126177Srik int ie0 = inb (c->IE0); 1391126177Srik int ie1 = inb (c->IE1); 1392126177Srik 1393126177Srik /* Enable underrun interrupt in HDLC and raw modes. */ 1394126177Srik if (c->mode != M_ASYNC) { 1395126177Srik ier0 |= c->num ? IER0_TX_INTE_1 : IER0_TX_INTE_0; 1396126177Srik ie0 |= IE0_TX_INTE; 1397126177Srik ie1 |= IE1_HDLC_UDRNE; 1398126177Srik } 1399126177Srik if (dma) 1400126177Srik ier1 |= c->num ? (IER1_TX_DMERE_1 | IER1_TX_DME_1) : 1401126177Srik (IER1_TX_DMERE_0 | IER1_TX_DME_0); 1402126177Srik else { 1403126177Srik ier0 |= c->num ? IER0_TX_RDYE_1 : IER0_TX_RDYE_0; 1404126177Srik ie0 |= IE0_TX_RDYE; 1405126177Srik } 1406126177Srik 1407126177Srik /* Enable interrupts. */ 1408126177Srik outb (IER0(c->board->port), ier0); 1409126177Srik outb (IER1(c->board->port), ier1); 1410126177Srik outb (c->IE0, ie0); 1411126177Srik outb (c->IE1, ie1); 1412126177Srik 1413126177Srik /* TXRDY:=1 when the transmit buffer has TRC0 or less chars, 1414126177Srik * TXRDY:=0 when the transmit buffer has more than TRC1 chars */ 1415126177Srik outb (c->TRC0, dma ? c->opt.dma_trc0 : c->opt.pio_trc0); 1416126177Srik outb (c->TRC1, dma ? c->opt.dma_trc1 : c->opt.pio_trc1); 1417126177Srik 1418126177Srik /* Start transmitter. */ 1419126177Srik if (dma) { 1420126177Srik outb (c->TX.DCR, DCR_ABORT); 1421126177Srik if (c->mode == M_ASYNC) { 1422126177Srik /* Single-buffer DMA mode. */ 1423126177Srik outb (c->TX.SARB, (unsigned char) (buf >> 16)); 1424126177Srik outw (c->TX.SAR, (unsigned short) buf); 1425126177Srik outw (c->TX.BCR, len); 1426126177Srik outb (c->TX.DIR, DIR_EOTE); 1427126177Srik } else { 1428126177Srik /* Chained-buffer DMA mode. */ 1429126177Srik outb (c->TX.SARB, (unsigned char) (desc >> 16)); 1430126177Srik outw (c->TX.EDA, (unsigned short) lim); 1431126177Srik outw (c->TX.CDA, (unsigned short) desc); 1432126177Srik outb (c->TX.DIR, /* DIR_CHAIN_EOME | */ DIR_CHAIN_BOFE | 1433126177Srik DIR_CHAIN_COFE); 1434126177Srik } 1435126177Srik /* Set DSR_DMA_ENABLE to begin! */ 1436126177Srik } 1437126177Srik outb (c->CMD, CMD_TX_ENABLE); 1438126177Srik 1439126177Srik /* Clear errors. */ 1440126177Srik if (c->board->type == B_TAU_G703) { 1441126177Srik outb (GERR(c->board->port), 0xff); 1442126177Srik outb (GLDR(c->board->port), 0xff); 1443126177Srik } 1444126177Srik} 1445126177Srik 1446126177Srik/* 1447126177Srik * Control DTR signal for the channel. 1448126177Srik * Turn it on/off. 1449126177Srik */ 1450126177Srikvoid ct_set_dtr (ct_chan_t *c, int on) 1451126177Srik{ 1452126177Srik if (on) { 1453126177Srik c->dtr = 1; 1454126177Srik c->board->bcr1 |= c->num ? BCR1_DTR1 : BCR1_DTR0; 1455126177Srik } else { 1456126177Srik c->dtr = 0; 1457126177Srik c->board->bcr1 &= ~(c->num ? BCR1_DTR1 : BCR1_DTR0); 1458126177Srik } 1459126177Srik outb (BCR1(c->board->port), c->board->bcr1); 1460126177Srik} 1461126177Srik 1462126177Srik/* 1463126177Srik * Control RTS signal for the channel. 1464126177Srik * Turn it on/off. 1465126177Srik */ 1466126177Srikvoid ct_set_rts (ct_chan_t *c, int on) 1467126177Srik{ 1468126177Srik c->rts = (on != 0); 1469126177Srik if (c->rts) 1470126177Srik outb (c->CTL, inb (c->CTL) & ~CTL_RTS_INV); 1471126177Srik else 1472126177Srik outb (c->CTL, inb (c->CTL) | CTL_RTS_INV); 1473126177Srik} 1474126177Srik 1475126177Srik/* 1476126177Srik * Control BREAK state in asynchronous mode. 1477126177Srik * Turn it on/off. 1478126177Srik */ 1479126177Srikvoid ct_set_brk (ct_chan_t *c, int on) 1480126177Srik{ 1481126177Srik if (c->mode != M_ASYNC) 1482126177Srik return; 1483126177Srik if (on) 1484126177Srik outb (c->CTL, inb (c->CTL) | CTL_BRK); 1485126177Srik else 1486126177Srik outb (c->CTL, inb (c->CTL) & ~CTL_BRK); 1487126177Srik} 1488126177Srik 1489126177Srik/* 1490126177Srik * Get the state of DSR signal of the channel. 1491126177Srik */ 1492126177Srikint ct_get_dsr (ct_chan_t *c) 1493126177Srik{ 1494126177Srik return (inb (BSR1(c->board->port)) & 1495126177Srik (c->num ? BSR1_DSR1 : BSR1_DSR0)) != 0; 1496126177Srik} 1497126177Srik 1498126177Srik/* 1499126177Srik * Get the G.703 line signal level. 1500126177Srik */ 1501126177Srikint ct_get_lq (ct_chan_t *c) 1502126177Srik{ 1503126177Srik unsigned char q1, q2, q3; 1504126177Srik static int lq_to_santibells [] = { 0, 95, 195, 285 }; 1505126177Srik int i; 1506126177Srik 1507126177Srik if (! (c->type & T_G703)) 1508126177Srik return 0; 1509126177Srik q1 = inb (GLQ (c->board->port)); 1510126177Srik /* Repeat reading the register to produce a 10-usec delay. */ 1511126177Srik for (i=0; i<20; ++i) 1512126177Srik q2 = inb (GLQ (c->board->port)); 1513126177Srik for (i=0; i<20; ++i) 1514126177Srik q3 = inb (GLQ (c->board->port)); 1515126177Srik if (c->num) { 1516126177Srik q1 >>= GLQ_SHIFT; 1517126177Srik q2 >>= GLQ_SHIFT; 1518126177Srik q3 >>= GLQ_SHIFT; 1519126177Srik } 1520126177Srik q1 &= GLQ_MASK; 1521126177Srik q2 &= GLQ_MASK; 1522126177Srik q3 &= GLQ_MASK; 1523126177Srik if (q1 <= q2 && q2 <= q3) return lq_to_santibells [q2]; 1524126177Srik if (q2 <= q3 && q3 <= q1) return lq_to_santibells [q3]; 1525126177Srik if (q3 <= q1 && q1 <= q2) return lq_to_santibells [q1]; 1526126177Srik if (q1 <= q3 && q3 <= q2) return lq_to_santibells [q3]; 1527126177Srik if (q3 <= q2 && q2 <= q1) return lq_to_santibells [q2]; 1528126177Srik /* if (q2 <= q1 && q1 <= q3) */ return lq_to_santibells [q1]; 1529126177Srik} 1530126177Srik 1531126177Srik/* 1532126177Srik * Get the state of CARRIER signal of the channel. 1533126177Srik */ 1534126177Srikint ct_get_cd (ct_chan_t *c) 1535126177Srik{ 1536126177Srik return (inb (c->ST3) & ST3_DCD_INV) == 0; 1537126177Srik} 1538126177Srik 1539126177Srik/* 1540126177Srik * Get the state of CTS signal of the channel. 1541126177Srik */ 1542126177Srikint ct_get_cts (ct_chan_t *c) 1543126177Srik{ 1544126177Srik return (inb (c->ST3) & ST3_CTS_INV) == 0; 1545126177Srik} 1546126177Srik 1547126177Srik/* 1548126177Srik * Turn LED on/off. 1549126177Srik */ 1550126177Srikvoid ct_led (ct_board_t *b, int on) 1551126177Srik{ 1552126177Srik switch (b->type) { 1553126177Srik case B_TAU_G703: 1554126177Srik case B_TAU_G703C: 1555126177Srik case B_TAU2_G703: 1556126177Srik if (on) b->gmd2 |= GMD2_LED; 1557126177Srik else b->gmd2 &= ~GMD2_LED; 1558126177Srik outb (GMD2(b->port), b->gmd2); 1559126177Srik break; 1560126177Srik default: 1561126177Srik if (on) b->e1cfg |= E1CFG_LED; 1562126177Srik else b->e1cfg &= ~E1CFG_LED; 1563126177Srik outb (E1CFG(b->port), b->e1cfg); 1564126177Srik break; 1565126177Srik } 1566126177Srik} 1567126177Srik 1568126177Srikvoid ct_disable_dma (ct_board_t *b) 1569126177Srik{ 1570126177Srik /* Disable DMA channel. */ 1571126177Srik outb (DMA_MASK, (b->dma & 3) | DMA_MASK_CLEAR); 1572126177Srik} 1573126177Srik 1574126177Srikvoid ct_compute_clock (long hz, long baud, int *txbr, int *tmc) 1575126177Srik{ 1576126177Srik if (baud < 100) 1577126177Srik baud = 100; 1578126177Srik *txbr = 0; 1579126177Srik if (4*baud > 3*hz) 1580126177Srik *tmc = 1; 1581126177Srik else { 1582126177Srik while (((hz / baud) >> ++*txbr) > 256) 1583126177Srik continue; 1584126177Srik *tmc = (((2 * hz / baud) >> *txbr) + 1) / 2; 1585126177Srik } 1586126177Srik} 1587126177Srik 1588126177Srik/* 1589126177Srik * Access to DS2153 chips on the Tau/E1 board. 1590126177Srik * Examples: 1591126177Srik * val = cte_in (E1CSi (base), DS_RCR1) 1592126177Srik * cte_out (E1CSi (base), DS_CCR1, val) 1593126177Srik * val = cte_ins (E1CSi (base), DS_SSR) 1594126177Srik */ 1595126177Srikunsigned char cte_in (port_t base, unsigned char reg) 1596126177Srik{ 1597126177Srik outb (base, reg); 1598126177Srik return inb (E1DAT (base & 0x3e0)); 1599126177Srik} 1600126177Srik 1601126177Srikvoid cte_out (port_t base, unsigned char reg, unsigned char val) 1602126177Srik{ 1603126177Srik outb (base, reg); 1604126177Srik outb (E1DAT (base & 0x3e0), val); 1605126177Srik} 1606126177Srik 1607126177Srik/* 1608126177Srik * Get the DS2153 status register, using write-read-write scheme. 1609126177Srik */ 1610126177Srikunsigned char cte_ins (port_t base, unsigned char reg, 1611126177Srik unsigned char mask) 1612126177Srik{ 1613126177Srik unsigned char val; 1614126177Srik port_t rw = E1DAT (base & 0x3e0); 1615126177Srik 1616126177Srik outb (base, reg); outb (rw, mask); /* lock bits */ 1617126177Srik outb (base, reg); val = inb (rw) & mask; /* get values */ 1618126177Srik outb (base, reg); outb (rw, val); /* unlock bits */ 1619126177Srik return val; 1620126177Srik} 1621126177Srik 1622126177Srik/* 1623126177Srik * Access to 8530 chip on the Tau/E1 board. 1624126177Srik * Examples: 1625126177Srik * val = cte_in2 (base, AM_RSR | AM_A) 1626126177Srik * cte_out2 (base, AM_IMR, val) 1627126177Srik */ 1628126177Srikunsigned char cte_in2 (port_t base, unsigned char reg) 1629126177Srik{ 1630126177Srik outb (E1CS2(base), E1CS2_SCC | reg >> 4); 1631126177Srik outb (E1DAT(base), reg & 15); 1632126177Srik return inb (E1DAT(base)); 1633126177Srik} 1634126177Srik 1635126177Srikvoid cte_out2 (port_t base, unsigned char reg, unsigned char val) 1636126177Srik{ 1637126177Srik outb (E1CS2(base), E1CS2_SCC | reg >> 4); 1638126177Srik outb (E1DAT(base), reg & 15); 1639126177Srik outb (E1DAT(base), val); 1640126177Srik} 1641126177Srik 1642126177Srik/* 1643126177Srik * Read the data from the 8530 receive fifo. 1644126177Srik */ 1645126177Srikunsigned char cte_in2d (ct_chan_t *c) 1646126177Srik{ 1647126177Srik outb (E1CS2(c->board->port), E1CS2_SCC | E1CS2_DC | 1648126177Srik (c->num ? 0 : E1CS2_AB)); 1649126177Srik return inb (E1DAT(c->board->port)); 1650126177Srik} 1651126177Srik 1652126177Srik/* 1653126177Srik * Send the 8530 command. 1654126177Srik */ 1655126177Srikvoid cte_out2c (ct_chan_t *c, unsigned char val) 1656126177Srik{ 1657126177Srik outb (E1CS2(c->board->port), E1CS2_SCC | (c->num ? 0 : E1CS2_AB)); 1658126177Srik outb (E1DAT(c->board->port), val); 1659126177Srik} 1660126177Srik 1661126177Srik/* 1662126177Srik * Write the data to the 8530 transmit fifo. 1663126177Srik */ 1664126177Srikvoid cte_out2d (ct_chan_t *c, unsigned char val) 1665126177Srik{ 1666126177Srik outb (E1CS2(c->board->port), E1CS2_SCC | E1CS2_DC | 1667126177Srik (c->num ? 0 : E1CS2_AB)); 1668126177Srik outb (E1DAT(c->board->port), val); 1669126177Srik} 1670126177Srik 1671126177Srik/* 1672126177Srik * Access to LXT318 chip on the Tau/G.703 board. 1673126177Srik * Examples: 1674126177Srik * val = ctg_inx (c) 1675126177Srik * ctg_outx (c, val) 1676126177Srik */ 1677126177Srikstatic void ctg_output (port_t port, unsigned char val, unsigned char v0) 1678126177Srik{ 1679126177Srik int i; 1680126177Srik 1681126177Srik for (i=0; i<8; ++i) { 1682126177Srik unsigned char v = v0; 1683126177Srik if ((val >> i) & 1) 1684126177Srik v |= GMD0_SDI; 1685126177Srik outb (port, v); 1686126177Srik outb (port, v); 1687126177Srik outb (port, v); 1688126177Srik outb (port, v); 1689126177Srik outb (port, v | GMD0_SCLK); 1690126177Srik outb (port, v | GMD0_SCLK); 1691126177Srik outb (port, v | GMD0_SCLK); 1692126177Srik outb (port, v | GMD0_SCLK); 1693126177Srik } 1694126177Srik outb (port, v0); 1695126177Srik} 1696126177Srik 1697126177Srikvoid ctg_outx (ct_chan_t *c, unsigned char reg, unsigned char val) 1698126177Srik{ 1699126177Srik port_t port = GMD0(c->board->port); 1700126177Srik 1701126177Srik outb (GMD1(c->board->port), c->board->gmd1 | GMD1_NCS0 | GMD1_NCS1); 1702126177Srik outb (GMD1(c->board->port), c->board->gmd1 | 1703126177Srik (c->num ? GMD1_NCS0 : GMD1_NCS1)); 1704126177Srik ctg_output (port, (reg << 1) | LX_WRITE, c->board->gmd0); 1705126177Srik ctg_output (port, val, c->board->gmd0); 1706126177Srik outb (GMD1(c->board->port), c->board->gmd1 | GMD1_NCS0 | GMD1_NCS1); 1707126177Srik} 1708126177Srik 1709126177Srikunsigned char ctg_inx (ct_chan_t *c, unsigned char reg) 1710126177Srik{ 1711126177Srik port_t port = GMD0(c->board->port); 1712126177Srik port_t data = GLDR(c->board->port); 1713126177Srik unsigned char val = 0, mask = c->num ? GLDR_C1 : GLDR_C0; 1714126177Srik int i; 1715126177Srik 1716126177Srik outb (GMD1(c->board->port), c->board->gmd1 | GMD1_NCS0 | GMD1_NCS1); 1717126177Srik outb (GMD1(c->board->port), c->board->gmd1 | 1718126177Srik (c->num ? GMD1_NCS0 : GMD1_NCS1)); 1719126177Srik ctg_output (port, (reg << 1) | LX_READ, c->board->gmd0); 1720126177Srik for (i=0; i<8; ++i) { 1721126177Srik outb (port, c->board->gmd0 | GMD0_SCLK); 1722126177Srik if (inb (data) & mask) 1723126177Srik val |= 1 << i; 1724126177Srik outb (port, c->board->gmd0); 1725126177Srik } 1726126177Srik outb (GMD1(c->board->port), c->board->gmd1 | GMD1_NCS0 | GMD1_NCS1); 1727126177Srik return val; 1728126177Srik} 1729126177Srik 1730126177Srik/* 1731126177Srik * Adapter options 1732126177Srik */ 1733126177Srikct_board_opt_t ct_board_opt_dflt = { 1734126177Srik 0, /* board control register 2 */ 1735126177Srik { /* DMA priority control register */ 1736126177Srik PCR_PRIO_ROTATE, 1737218909Sbrucec 0, /* all channels share the bus hold */ 1738126177Srik 0, /* hold the bus until all transfers done */ 1739126177Srik }, 1740126177Srik CFG_A, /* E1/G.703 config: two independent channels */ 1741126177Srik GCLK_INT, /* E1/G.703 chan 0 internal tx clock source */ 1742126177Srik GCLK_INT, /* E1/G.703 chan 1 internal tx clock source */ 1743126177Srik ~0UL << 1, /* E1 channel 0 timeslots 1..31 */ 1744126177Srik ~0UL << 1, /* E1 channel 1 timeslots 1..31 */ 1745126177Srik 0, /* no E1 subchannel timeslots */ 1746126177Srik}; 1747126177Srik 1748126177Srik/* 1749126177Srik * Mode-independent channel options 1750126177Srik */ 1751126177Srikct_chan_opt_t ct_chan_opt_dflt = { 1752126177Srik { /* mode register 2 */ 1753126177Srik MD2_FDX, /* full duplex communication */ 1754126177Srik 0, /* empty ADPLL clock rate */ 1755126177Srik MD2_ENCOD_NRZ, /* NRZ encoding */ 1756126177Srik }, 1757126177Srik /* DMA mode FIFO marks */ 1758126177Srik 15, 24, 30, /* rx ready, tx empty, tx full */ 1759126177Srik /* port i/o mode FIFO marks */ 1760126177Srik 15, 16, 30, /* rx ready, tx empty, tx full */ 1761126177Srik}; 1762126177Srik 1763126177Srik/* 1764126177Srik * Default HDLC options 1765126177Srik */ 1766126177Srikct_opt_hdlc_t ct_opt_hdlc_dflt = { 1767126177Srik { /* mode register 0 */ 1768126177Srik 1, /* CRC preset to all ones (V.41) */ 1769126177Srik 1, /* CRC-CCITT */ 1770126177Srik 1, /* enable CRC */ 1771126177Srik 0, /* disable automatic CTS/DCD */ 1772126177Srik MD0_MODE_HDLC, /* HDLC mode */ 1773126177Srik }, 1774126177Srik { /* mode register 1 */ 1775126177Srik MD1_ADDR_NOCHK, /* do not check address field */ 1776126177Srik }, 1777126177Srik CTL_IDLE_PTRN | CTL_UDRN_ABORT | CTL_RTS_INV, /* control register */ 1778126177Srik 0, 0, /* empty sync/address registers 0,1 */ 1779126177Srik CLK_LINE, /* receive clock source: RXC line input */ 1780126177Srik CLK_LINE, /* transmit clock source: TXC line input */ 1781126177Srik}; 1782126177Srik 1783126177Srik/* 1784126177Srik * Default E1/G.703 options 1785126177Srik */ 1786126177Srikct_opt_g703_t ct_opt_g703_dflt = { 1787126177Srik 1, /* HDB3 enable */ 1788126177Srik 0, /* precoder disable */ 1789126177Srik GTEST_DIS, /* test disabled, normal operation */ 1790126177Srik 0, /* CRC4 disable */ 1791126177Srik 0, /* CCS signaling */ 1792126177Srik 0, /* low gain */ 1793126177Srik 0, /* no raw mode */ 1794126177Srik 0, /* no PCM2 precoder compatibility */ 1795126177Srik 2048, /* data rate 2048 kbit/sec */ 1796126177Srik}; 1797