digi.c revision 129879
1/*- 2 * Copyright (c) 2001 Brian Somers <brian@Awfulhak.org> 3 * based on work by Slawa Olhovchenkov 4 * John Prince <johnp@knight-trosoft.com> 5 * Eric Hernes 6 * All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 20 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 27 * SUCH DAMAGE. 28 * 29 * $FreeBSD: head/sys/dev/digi/digi.c 129879 2004-05-30 20:08:47Z phk $ 30 */ 31 32/*- 33 * TODO: 34 * Figure out what the con bios stuff is supposed to do 35 * Test with *LOTS* more cards - I only have a PCI8r and an ISA Xem. 36 */ 37 38#include "opt_compat.h" 39 40#include <sys/param.h> 41#include <sys/systm.h> 42#include <sys/proc.h> 43#include <sys/conf.h> 44#include <sys/linker.h> 45#include <sys/kernel.h> 46#include <sys/mbuf.h> 47#include <sys/malloc.h> 48#include <sys/module.h> 49#include <sys/tty.h> 50#include <sys/syslog.h> 51#include <sys/fcntl.h> 52#include <sys/bus.h> 53#include <sys/bus.h> 54#include <machine/resource.h> 55 56#include <sys/digiio.h> 57#include <dev/digi/digireg.h> 58#include <dev/digi/digi.h> 59#include <dev/digi/digi_mod.h> 60#include <dev/digi/digi_pci.h> 61 62 63#define CTRL_DEV 0x800000 64#define CALLOUT_MASK 0x400000 65#define CONTROL_INIT_STATE 0x100000 66#define CONTROL_LOCK_STATE 0x200000 67#define CONTROL_MASK (CTRL_DEV|CONTROL_INIT_STATE|CONTROL_LOCK_STATE) 68#define UNIT_MASK 0x030000 69#define PORT_MASK 0x0000FF 70#define DEV_TO_UNIT(dev) (MINOR_TO_UNIT(minor(dev))) 71#define MINOR_MAGIC_MASK (CALLOUT_MASK | CONTROL_MASK) 72#define MINOR_TO_UNIT(mynor) (((mynor) & UNIT_MASK)>>16) 73#define MINOR_TO_PORT(mynor) ((mynor) & PORT_MASK) 74 75static d_open_t digiopen; 76static d_close_t digiclose; 77static d_read_t digiread; 78static d_write_t digiwrite; 79static d_ioctl_t digiioctl; 80 81static void digistop(struct tty *tp, int rw); 82static int digimctl(struct digi_p *port, int bits, int how); 83static void digi_poll(void *ptr); 84static void digi_freemoduledata(struct digi_softc *); 85static void fepcmd(struct digi_p *port, int cmd, int op, int ncmds); 86static void digistart(struct tty *tp); 87static int digiparam(struct tty *tp, struct termios *t); 88static void digihardclose(struct digi_p *port); 89static void digi_intr(void *); 90static int digi_init(struct digi_softc *_sc); 91static int digi_loadmoduledata(struct digi_softc *); 92static int digi_inuse(struct digi_softc *); 93static void digi_free_state(struct digi_softc *); 94 95#define fepcmd_b(port, cmd, op1, op2, ncmds) \ 96 fepcmd(port, cmd, (op2 << 8) | op1, ncmds) 97#define fepcmd_w fepcmd 98 99 100static speed_t digidefaultrate = TTYDEF_SPEED; 101 102struct con_bios { 103 struct con_bios *next; 104 u_char *bios; 105 size_t size; 106}; 107 108static struct con_bios *con_bios_list; 109devclass_t digi_devclass; 110static char driver_name[] = "digi"; 111unsigned digi_debug = 0; 112 113static struct speedtab digispeedtab[] = { 114 { 0, 0}, /* old (sysV-like) Bx codes */ 115 { 50, 1}, 116 { 75, 2}, 117 { 110, 3}, 118 { 134, 4}, 119 { 150, 5}, 120 { 200, 6}, 121 { 300, 7}, 122 { 600, 8}, 123 { 1200, 9}, 124 { 1800, 10}, 125 { 2400, 11}, 126 { 4800, 12}, 127 { 9600, 13}, 128 { 19200, 14}, 129 { 38400, 15}, 130 { 57600, (02000 | 1)}, 131 { 76800, (02000 | 2)}, 132 { 115200, (02000 | 3)}, 133 { 230400, (02000 | 6)}, 134 { -1, -1} 135}; 136 137const struct digi_control_signals digi_xixe_signals = { 138 0x02, 0x08, 0x10, 0x20, 0x40, 0x80 139}; 140 141const struct digi_control_signals digi_normal_signals = { 142 0x02, 0x80, 0x20, 0x10, 0x40, 0x01 143}; 144 145static struct cdevsw digi_sw = { 146 .d_version = D_VERSION, 147 .d_open = digiopen, 148 .d_close = digiclose, 149 .d_read = digiread, 150 .d_write = digiwrite, 151 .d_ioctl = digiioctl, 152 .d_name = driver_name, 153 .d_flags = D_TTY | D_NEEDGIANT, 154}; 155 156static void 157digi_poll(void *ptr) 158{ 159 struct digi_softc *sc; 160 161 sc = (struct digi_softc *)ptr; 162 callout_handle_init(&sc->callout); 163 digi_intr(sc); 164 sc->callout = timeout(digi_poll, sc, (hz >= 200) ? hz / 100 : 1); 165} 166 167static void 168digi_int_test(void *v) 169{ 170 struct digi_softc *sc = v; 171 172 callout_handle_init(&sc->inttest); 173#ifdef DIGI_INTERRUPT 174 if (sc->intr_timestamp.tv_sec || sc->intr_timestamp.tv_usec) { 175 /* interrupt OK! */ 176 return; 177 } 178 log(LOG_ERR, "digi%d: Interrupt didn't work, use polled mode\n", unit); 179#endif 180 sc->callout = timeout(digi_poll, sc, (hz >= 200) ? hz / 100 : 1); 181} 182 183static void 184digi_freemoduledata(struct digi_softc *sc) 185{ 186 if (sc->fep.data != NULL) { 187 free(sc->fep.data, M_TTYS); 188 sc->fep.data = NULL; 189 } 190 if (sc->link.data != NULL) { 191 free(sc->link.data, M_TTYS); 192 sc->link.data = NULL; 193 } 194 if (sc->bios.data != NULL) { 195 free(sc->bios.data, M_TTYS); 196 sc->bios.data = NULL; 197 } 198} 199 200static int 201digi_bcopy(const void *vfrom, void *vto, size_t sz) 202{ 203 volatile const char *from = (volatile const char *)vfrom; 204 volatile char *to = (volatile char *)vto; 205 size_t i; 206 207 for (i = 0; i < sz; i++) 208 *to++ = *from++; 209 210 from = (const volatile char *)vfrom; 211 to = (volatile char *)vto; 212 for (i = 0; i < sz; i++) 213 if (*to++ != *from++) 214 return (0); 215 return (1); 216} 217 218void 219digi_delay(struct digi_softc *sc, const char *txt, u_long timo) 220{ 221 if (cold) 222 DELAY(timo * 1000000 / hz); 223 else 224 tsleep(sc, PUSER | PCATCH, txt, timo); 225} 226 227static int 228digi_init(struct digi_softc *sc) 229{ 230 int i, cnt, resp; 231 u_char *ptr; 232 int lowwater; 233 struct digi_p *port; 234 volatile struct board_chan *bc; 235 236 ptr = NULL; 237 238 if (sc->status == DIGI_STATUS_DISABLED) { 239 log(LOG_ERR, "digi%d: Cannot init a disabled card\n", 240 sc->res.unit); 241 return (EIO); 242 } 243 if (sc->bios.data == NULL) { 244 log(LOG_ERR, "digi%d: Cannot init without BIOS\n", 245 sc->res.unit); 246 return (EIO); 247 } 248#if 0 249 if (sc->link.data == NULL && sc->model >= PCCX) { 250 log(LOG_ERR, "digi%d: Cannot init without link info\n", 251 sc->res.unit); 252 return (EIO); 253 } 254#endif 255 if (sc->fep.data == NULL) { 256 log(LOG_ERR, "digi%d: Cannot init without fep code\n", 257 sc->res.unit); 258 return (EIO); 259 } 260 sc->status = DIGI_STATUS_NOTINIT; 261 262 if (sc->numports) { 263 /* 264 * We're re-initialising - maybe because someone's attached 265 * another port module. For now, we just re-initialise 266 * everything. 267 */ 268 if (digi_inuse(sc)) 269 return (EBUSY); 270 271 digi_free_state(sc); 272 } 273 274 ptr = sc->setwin(sc, MISCGLOBAL); 275 for (i = 0; i < 16; i += 2) 276 vW(ptr + i) = 0; 277 278 switch (sc->model) { 279 case PCXEVE: 280 outb(sc->wport, 0xff); /* window 7 */ 281 ptr = sc->vmem + (BIOSCODE & 0x1fff); 282 283 if (!digi_bcopy(sc->bios.data, ptr, sc->bios.size)) { 284 device_printf(sc->dev, "BIOS upload failed\n"); 285 return (EIO); 286 } 287 288 outb(sc->port, FEPCLR); 289 break; 290 291 case PCXE: 292 case PCXI: 293 case PCCX: 294 ptr = sc->setwin(sc, BIOSCODE + ((0xf000 - sc->mem_seg) << 4)); 295 if (!digi_bcopy(sc->bios.data, ptr, sc->bios.size)) { 296 device_printf(sc->dev, "BIOS upload failed\n"); 297 return (EIO); 298 } 299 break; 300 301 case PCXEM: 302 case PCIEPCX: 303 case PCIXR: 304 if (sc->pcibus) 305 PCIPORT = FEPRST; 306 else 307 outb(sc->port, FEPRST | FEPMEM); 308 309 for (i = 0; ((sc->pcibus ? PCIPORT : inb(sc->port)) & 310 FEPMASK) != FEPRST; i++) { 311 if (i > hz) { 312 log(LOG_ERR, "digi%d: %s init reset failed\n", 313 sc->res.unit, sc->name); 314 return (EIO); 315 } 316 digi_delay(sc, "digiinit0", 5); 317 } 318 DLOG(DIGIDB_INIT, (sc->dev, "Got init reset after %d us\n", i)); 319 320 /* Now upload the BIOS */ 321 cnt = (sc->bios.size < sc->win_size - BIOSOFFSET) ? 322 sc->bios.size : sc->win_size - BIOSOFFSET; 323 324 ptr = sc->setwin(sc, BIOSOFFSET); 325 if (!digi_bcopy(sc->bios.data, ptr, cnt)) { 326 device_printf(sc->dev, "BIOS upload (1) failed\n"); 327 return (EIO); 328 } 329 330 if (cnt != sc->bios.size) { 331 /* and the second part */ 332 ptr = sc->setwin(sc, sc->win_size); 333 if (!digi_bcopy(sc->bios.data + cnt, ptr, 334 sc->bios.size - cnt)) { 335 device_printf(sc->dev, "BIOS upload failed\n"); 336 return (EIO); 337 } 338 } 339 340 ptr = sc->setwin(sc, 0); 341 vW(ptr + 0) = 0x0401; 342 vW(ptr + 2) = 0x0bf0; 343 vW(ptr + 4) = 0x0000; 344 vW(ptr + 6) = 0x0000; 345 346 break; 347 } 348 349 DLOG(DIGIDB_INIT, (sc->dev, "BIOS uploaded\n")); 350 351 ptr = sc->setwin(sc, MISCGLOBAL); 352 W(ptr) = 0; 353 354 if (sc->pcibus) { 355 PCIPORT = FEPCLR; 356 resp = FEPRST; 357 } else if (sc->model == PCXEVE) { 358 outb(sc->port, FEPCLR); 359 resp = FEPRST; 360 } else { 361 outb(sc->port, FEPCLR | FEPMEM); 362 resp = FEPRST | FEPMEM; 363 } 364 365 for (i = 0; ((sc->pcibus ? PCIPORT : inb(sc->port)) & FEPMASK) 366 == resp; i++) { 367 if (i > hz) { 368 log(LOG_ERR, "digi%d: BIOS start failed\n", 369 sc->res.unit); 370 return (EIO); 371 } 372 digi_delay(sc, "digibios0", 5); 373 } 374 375 DLOG(DIGIDB_INIT, (sc->dev, "BIOS started after %d us\n", i)); 376 377 for (i = 0; vW(ptr) != *(u_short *)"GD"; i++) { 378 if (i > 2*hz) { 379 log(LOG_ERR, "digi%d: BIOS boot failed " 380 "(0x%02x != 0x%02x)\n", 381 sc->res.unit, vW(ptr), *(u_short *)"GD"); 382 return (EIO); 383 } 384 digi_delay(sc, "digibios1", 5); 385 } 386 387 DLOG(DIGIDB_INIT, (sc->dev, "BIOS booted after %d iterations\n", i)); 388 389 if (sc->link.data != NULL) { 390 DLOG(DIGIDB_INIT, (sc->dev, "Loading link data\n")); 391 ptr = sc->setwin(sc, 0xcd0); 392 digi_bcopy(sc->link.data, ptr, 21); /* XXX 21 ? */ 393 } 394 395 /* load FEP/OS */ 396 397 switch (sc->model) { 398 case PCXE: 399 case PCXEVE: 400 case PCXI: 401 ptr = sc->setwin(sc, sc->model == PCXI ? 0x2000 : 0x0); 402 digi_bcopy(sc->fep.data, ptr, sc->fep.size); 403 404 /* A BIOS request to move our data to 0x2000 */ 405 ptr = sc->setwin(sc, MBOX); 406 vW(ptr + 0) = 2; 407 vW(ptr + 2) = sc->mem_seg + FEPCODESEG; 408 vW(ptr + 4) = 0; 409 vW(ptr + 6) = FEPCODESEG; 410 vW(ptr + 8) = 0; 411 vW(ptr + 10) = sc->fep.size; 412 413 /* Run the BIOS request */ 414 outb(sc->port, FEPREQ | FEPMEM); 415 outb(sc->port, FEPCLR | FEPMEM); 416 417 for (i = 0; W(ptr); i++) { 418 if (i > hz) { 419 log(LOG_ERR, "digi%d: FEP/OS move failed\n", 420 sc->res.unit); 421 sc->hidewin(sc); 422 return (EIO); 423 } 424 digi_delay(sc, "digifep0", 5); 425 } 426 DLOG(DIGIDB_INIT, 427 (sc->dev, "FEP/OS moved after %d iterations\n", i)); 428 429 /* Clear the confirm word */ 430 ptr = sc->setwin(sc, FEPSTAT); 431 vW(ptr + 0) = 0; 432 433 /* A BIOS request to execute the FEP/OS */ 434 ptr = sc->setwin(sc, MBOX); 435 vW(ptr + 0) = 0x01; 436 vW(ptr + 2) = FEPCODESEG; 437 vW(ptr + 4) = 0x04; 438 439 /* Run the BIOS request */ 440 outb(sc->port, FEPREQ); 441 outb(sc->port, FEPCLR); 442 443 ptr = sc->setwin(sc, FEPSTAT); 444 445 break; 446 447 case PCXEM: 448 case PCIEPCX: 449 case PCIXR: 450 DLOG(DIGIDB_INIT, (sc->dev, "Loading FEP/OS\n")); 451 452 cnt = (sc->fep.size < sc->win_size - BIOSOFFSET) ? 453 sc->fep.size : sc->win_size - BIOSOFFSET; 454 455 ptr = sc->setwin(sc, BIOSOFFSET); 456 digi_bcopy(sc->fep.data, ptr, cnt); 457 458 if (cnt != sc->fep.size) { 459 ptr = sc->setwin(sc, BIOSOFFSET + cnt); 460 digi_bcopy(sc->fep.data + cnt, ptr, 461 sc->fep.size - cnt); 462 } 463 464 DLOG(DIGIDB_INIT, (sc->dev, "FEP/OS loaded\n")); 465 466 ptr = sc->setwin(sc, 0xc30); 467 W(ptr + 4) = 0x1004; 468 W(ptr + 6) = 0xbfc0; 469 W(ptr + 0) = 0x03; 470 W(ptr + 2) = 0x00; 471 472 /* Clear the confirm word */ 473 ptr = sc->setwin(sc, FEPSTAT); 474 W(ptr + 0) = 0; 475 476 if (sc->port) 477 outb(sc->port, 0); /* XXX necessary ? */ 478 479 break; 480 481 case PCCX: 482 ptr = sc->setwin(sc, 0xd000); 483 digi_bcopy(sc->fep.data, ptr, sc->fep.size); 484 485 /* A BIOS request to execute the FEP/OS */ 486 ptr = sc->setwin(sc, 0xc40); 487 W(ptr + 0) = 1; 488 W(ptr + 2) = FEPCODE >> 4; 489 W(ptr + 4) = 4; 490 491 /* Clear the confirm word */ 492 ptr = sc->setwin(sc, FEPSTAT); 493 W(ptr + 0) = 0; 494 495 /* Run the BIOS request */ 496 outb(sc->port, FEPREQ | FEPMEM); /* send interrupt to BIOS */ 497 outb(sc->port, FEPCLR | FEPMEM); 498 break; 499 } 500 501 /* Now wait 'till the FEP/OS has booted */ 502 for (i = 0; vW(ptr) != *(u_short *)"OS"; i++) { 503 if (i > 2*hz) { 504 log(LOG_ERR, "digi%d: FEP/OS start failed " 505 "(0x%02x != 0x%02x)\n", 506 sc->res.unit, vW(ptr), *(u_short *)"OS"); 507 sc->hidewin(sc); 508 return (EIO); 509 } 510 digi_delay(sc, "digifep1", 5); 511 } 512 513 DLOG(DIGIDB_INIT, (sc->dev, "FEP/OS started after %d iterations\n", i)); 514 515 if (sc->model >= PCXEM) { 516 ptr = sc->setwin(sc, 0xe04); 517 vW(ptr) = 2; 518 ptr = sc->setwin(sc, 0xc02); 519 sc->numports = vW(ptr); 520 } else { 521 ptr = sc->setwin(sc, 0xc22); 522 sc->numports = vW(ptr); 523 } 524 525 if (sc->numports == 0) { 526 device_printf(sc->dev, "%s, 0 ports found\n", sc->name); 527 sc->hidewin(sc); 528 return (0); 529 } 530 531 if (sc->numports > 256) { 532 /* Our minor numbering scheme is broken for more than 256 */ 533 device_printf(sc->dev, "%s, 256 ports (%d ports found)\n", 534 sc->name, sc->numports); 535 sc->numports = 256; 536 } else 537 device_printf(sc->dev, "%s, %d ports found\n", sc->name, 538 sc->numports); 539 540 if (sc->ports) 541 free(sc->ports, M_TTYS); 542 sc->ports = malloc(sizeof(struct digi_p) * sc->numports, 543 M_TTYS, M_WAITOK | M_ZERO); 544 545 if (sc->ttys) 546 free(sc->ttys, M_TTYS); 547 sc->ttys = malloc(sizeof(struct tty) * sc->numports, 548 M_TTYS, M_WAITOK | M_ZERO); 549 550 /* 551 * XXX Should read port 0xc90 for an array of 2byte values, 1 per 552 * port. If the value is 0, the port is broken.... 553 */ 554 555 ptr = sc->setwin(sc, 0); 556 557 /* We should now init per-port structures */ 558 bc = (volatile struct board_chan *)(ptr + CHANSTRUCT); 559 sc->gdata = (volatile struct global_data *)(ptr + FEP_GLOBAL); 560 561 sc->memcmd = ptr + sc->gdata->cstart; 562 sc->memevent = ptr + sc->gdata->istart; 563 564 for (i = 0; i < sc->numports; i++, bc++) { 565 port = sc->ports + i; 566 port->pnum = i; 567 port->sc = sc; 568 port->status = ENABLED; 569 port->tp = sc->ttys + i; 570 port->bc = bc; 571 572 if (sc->model == PCXEVE) { 573 port->txbuf = ptr + 574 (((bc->tseg - sc->mem_seg) << 4) & 0x1fff); 575 port->rxbuf = ptr + 576 (((bc->rseg - sc->mem_seg) << 4) & 0x1fff); 577 port->txwin = FEPWIN | ((bc->tseg - sc->mem_seg) >> 9); 578 port->rxwin = FEPWIN | ((bc->rseg - sc->mem_seg) >> 9); 579 } else if (sc->model == PCXI || sc->model == PCXE) { 580 port->txbuf = ptr + ((bc->tseg - sc->mem_seg) << 4); 581 port->rxbuf = ptr + ((bc->rseg - sc->mem_seg) << 4); 582 port->txwin = port->rxwin = 0; 583 } else { 584 port->txbuf = ptr + 585 (((bc->tseg - sc->mem_seg) << 4) % sc->win_size); 586 port->rxbuf = ptr + 587 (((bc->rseg - sc->mem_seg) << 4) % sc->win_size); 588 port->txwin = FEPWIN | 589 (((bc->tseg - sc->mem_seg) << 4) / sc->win_size); 590 port->rxwin = FEPWIN | 591 (((bc->rseg - sc->mem_seg) << 4) / sc->win_size); 592 } 593 port->txbufsize = bc->tmax + 1; 594 port->rxbufsize = bc->rmax + 1; 595 596 lowwater = port->txbufsize >> 2; 597 if (lowwater > 1024) 598 lowwater = 1024; 599 sc->setwin(sc, 0); 600 fepcmd_w(port, STXLWATER, lowwater, 10); 601 fepcmd_w(port, SRXLWATER, port->rxbufsize >> 2, 10); 602 fepcmd_w(port, SRXHWATER, (3 * port->rxbufsize) >> 2, 10); 603 604 bc->edelay = 100; 605 port->dtr_wait = 3 * hz; 606 607 /* 608 * We don't use all the flags from <sys/ttydefaults.h> since 609 * they are only relevant for logins. It's important to have 610 * echo off initially so that the line doesn't start blathering 611 * before the echo flag can be turned off. 612 */ 613 port->it_in.c_iflag = 0; 614 port->it_in.c_oflag = 0; 615 port->it_in.c_cflag = TTYDEF_CFLAG; 616 port->it_in.c_lflag = 0; 617 termioschars(&port->it_in); 618 port->it_in.c_ispeed = port->it_in.c_ospeed = digidefaultrate; 619 port->it_out = port->it_in; 620 port->send_ring = 1; /* Default action on signal RI */ 621 622 port->dev[0] = make_dev(&digi_sw, (sc->res.unit << 16) + i, 623 UID_ROOT, GID_WHEEL, 0600, "ttyD%d.%d", sc->res.unit, i); 624 port->dev[1] = make_dev(&digi_sw, ((sc->res.unit << 16) + i) | 625 CONTROL_INIT_STATE, UID_ROOT, GID_WHEEL, 626 0600, "ttyiD%d.%d", sc->res.unit, i); 627 port->dev[2] = make_dev(&digi_sw, ((sc->res.unit << 16) + i) | 628 CONTROL_LOCK_STATE, UID_ROOT, GID_WHEEL, 629 0600, "ttylD%d.%d", sc->res.unit, i); 630 port->dev[3] = make_dev(&digi_sw, ((sc->res.unit << 16) + i) | 631 CALLOUT_MASK, UID_UUCP, GID_DIALER, 632 0660, "cuaD%d.%d", sc->res.unit, i); 633 port->dev[4] = make_dev(&digi_sw, ((sc->res.unit << 16) + i) | 634 CALLOUT_MASK | CONTROL_INIT_STATE, UID_UUCP, GID_DIALER, 635 0660, "cuaiD%d.%d", sc->res.unit, i); 636 port->dev[5] = make_dev(&digi_sw, ((sc->res.unit << 16) + i) | 637 CALLOUT_MASK | CONTROL_LOCK_STATE, UID_UUCP, GID_DIALER, 638 0660, "cualD%d.%d", sc->res.unit, i); 639 } 640 641 sc->hidewin(sc); 642 sc->inttest = timeout(digi_int_test, sc, hz); 643 /* fepcmd_w(&sc->ports[0], 0xff, 0, 0); */ 644 sc->status = DIGI_STATUS_ENABLED; 645 646 return (0); 647} 648 649static int 650digimctl(struct digi_p *port, int bits, int how) 651{ 652 int mstat; 653 654 if (how == DMGET) { 655 port->sc->setwin(port->sc, 0); 656 mstat = port->bc->mstat; 657 port->sc->hidewin(port->sc); 658 bits = TIOCM_LE; 659 if (mstat & port->sc->csigs->rts) 660 bits |= TIOCM_RTS; 661 if (mstat & port->cd) 662 bits |= TIOCM_CD; 663 if (mstat & port->dsr) 664 bits |= TIOCM_DSR; 665 if (mstat & port->sc->csigs->cts) 666 bits |= TIOCM_CTS; 667 if (mstat & port->sc->csigs->ri) 668 bits |= TIOCM_RI; 669 if (mstat & port->sc->csigs->dtr) 670 bits |= TIOCM_DTR; 671 return (bits); 672 } 673 674 /* Only DTR and RTS may be set */ 675 mstat = 0; 676 if (bits & TIOCM_DTR) 677 mstat |= port->sc->csigs->dtr; 678 if (bits & TIOCM_RTS) 679 mstat |= port->sc->csigs->rts; 680 681 switch (how) { 682 case DMSET: 683 fepcmd_b(port, SETMODEM, mstat, ~mstat, 0); 684 break; 685 case DMBIS: 686 fepcmd_b(port, SETMODEM, mstat, 0, 0); 687 break; 688 case DMBIC: 689 fepcmd_b(port, SETMODEM, 0, mstat, 0); 690 break; 691 } 692 693 return (0); 694} 695 696static void 697digi_disc_optim(struct tty *tp, struct termios *t, struct digi_p *port) 698{ 699 if (!(t->c_iflag & (ICRNL | IGNCR | IMAXBEL | INLCR | ISTRIP)) && 700 (!(t->c_iflag & BRKINT) || (t->c_iflag & IGNBRK)) && 701 (!(t->c_iflag & PARMRK) || 702 (t->c_iflag & (IGNPAR | IGNBRK)) == (IGNPAR | IGNBRK)) && 703 !(t->c_lflag & (ECHO | ICANON | IEXTEN | ISIG | PENDIN)) && 704 linesw[tp->t_line].l_rint == ttyinput) 705 tp->t_state |= TS_CAN_BYPASS_L_RINT; 706 else 707 tp->t_state &= ~TS_CAN_BYPASS_L_RINT; 708} 709 710static int 711digiopen(dev_t dev, int flag, int mode, struct thread *td) 712{ 713 struct digi_softc *sc; 714 struct tty *tp; 715 int unit; 716 int pnum; 717 struct digi_p *port; 718 int s; 719 int error, mynor; 720 volatile struct board_chan *bc; 721 722 error = 0; 723 mynor = minor(dev); 724 unit = MINOR_TO_UNIT(minor(dev)); 725 pnum = MINOR_TO_PORT(minor(dev)); 726 727 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 728 if (!sc) 729 return (ENXIO); 730 731 if (sc->status != DIGI_STATUS_ENABLED) { 732 DLOG(DIGIDB_OPEN, (sc->dev, "Cannot open a disabled card\n")); 733 return (ENXIO); 734 } 735 if (pnum >= sc->numports) { 736 DLOG(DIGIDB_OPEN, (sc->dev, "port%d: Doesn't exist\n", pnum)); 737 return (ENXIO); 738 } 739 if (mynor & (CTRL_DEV | CONTROL_MASK)) { 740 sc->opencnt++; 741 return (0); 742 } 743 port = &sc->ports[pnum]; 744 tp = dev->si_tty = port->tp; 745 bc = port->bc; 746 747 s = spltty(); 748 749open_top: 750 while (port->status & DIGI_DTR_OFF) { 751 port->wopeners++; 752 error = tsleep(&port->dtr_wait, TTIPRI | PCATCH, "digidtr", 0); 753 port->wopeners--; 754 if (error) 755 goto out; 756 } 757 758 if (tp->t_state & TS_ISOPEN) { 759 /* 760 * The device is open, so everything has been initialized. 761 * Handle conflicts. 762 */ 763 if (mynor & CALLOUT_MASK) { 764 if (!port->active_out) { 765 error = EBUSY; 766 DLOG(DIGIDB_OPEN, (sc->dev, "port %d:" 767 " BUSY error = %d\n", pnum, error)); 768 goto out; 769 } 770 } else if (port->active_out) { 771 if (flag & O_NONBLOCK) { 772 error = EBUSY; 773 DLOG(DIGIDB_OPEN, (sc->dev, 774 "port %d: BUSY error = %d\n", pnum, error)); 775 goto out; 776 } 777 port->wopeners++; 778 error = tsleep(&port->active_out, TTIPRI | PCATCH, 779 "digibi", 0); 780 port->wopeners--; 781 if (error != 0) { 782 DLOG(DIGIDB_OPEN, (sc->dev, 783 "port %d: tsleep(digibi) error = %d\n", 784 pnum, error)); 785 goto out; 786 } 787 goto open_top; 788 } 789 if (tp->t_state & TS_XCLUDE && suser(td) != 0) { 790 error = EBUSY; 791 goto out; 792 } 793 } else { 794 /* 795 * The device isn't open, so there are no conflicts. 796 * Initialize it. Initialization is done twice in many 797 * cases: to preempt sleeping callin opens if we are callout, 798 * and to complete a callin open after DCD rises. 799 */ 800 tp->t_oproc = digistart; 801 tp->t_param = digiparam; 802 tp->t_stop = digistop; 803 tp->t_dev = dev; 804 tp->t_termios = (mynor & CALLOUT_MASK) ? 805 port->it_out : port->it_in; 806 sc->setwin(sc, 0); 807 808 bc->rout = bc->rin; /* clear input queue */ 809 bc->idata = 1; 810 bc->iempty = 1; 811 bc->ilow = 1; 812 bc->mint = port->cd | port->sc->csigs->ri; 813 bc->tin = bc->tout; 814 if (port->ialtpin) { 815 port->cd = sc->csigs->dsr; 816 port->dsr = sc->csigs->cd; 817 } else { 818 port->cd = sc->csigs->cd; 819 port->dsr = sc->csigs->dsr; 820 } 821 port->wopeners++; /* XXX required ? */ 822 error = digiparam(tp, &tp->t_termios); 823 port->wopeners--; 824 825 if (error != 0) { 826 DLOG(DIGIDB_OPEN, (sc->dev, 827 "port %d: cxpparam error = %d\n", pnum, error)); 828 goto out; 829 } 830 ttsetwater(tp); 831 832 /* handle fake and initial DCD for callout devices */ 833 834 if (bc->mstat & port->cd || mynor & CALLOUT_MASK) 835 linesw[tp->t_line].l_modem(tp, 1); 836 } 837 838 /* Wait for DCD if necessary */ 839 if (!(tp->t_state & TS_CARR_ON) && !(mynor & CALLOUT_MASK) && 840 !(tp->t_cflag & CLOCAL) && !(flag & O_NONBLOCK)) { 841 port->wopeners++; 842 error = tsleep(TSA_CARR_ON(tp), TTIPRI | PCATCH, "digidcd", 0); 843 port->wopeners--; 844 if (error != 0) { 845 DLOG(DIGIDB_OPEN, (sc->dev, 846 "port %d: tsleep(digidcd) error = %d\n", 847 pnum, error)); 848 goto out; 849 } 850 goto open_top; 851 } 852 error = linesw[tp->t_line].l_open(dev, tp); 853 DLOG(DIGIDB_OPEN, (sc->dev, "port %d: l_open error = %d\n", 854 pnum, error)); 855 856 digi_disc_optim(tp, &tp->t_termios, port); 857 858 if (tp->t_state & TS_ISOPEN && mynor & CALLOUT_MASK) 859 port->active_out = TRUE; 860 861 if (tp->t_state & TS_ISOPEN) 862 sc->opencnt++; 863out: 864 splx(s); 865 866 if (!(tp->t_state & TS_ISOPEN)) 867 digihardclose(port); 868 869 DLOG(DIGIDB_OPEN, (sc->dev, "port %d: open() returns %d\n", 870 pnum, error)); 871 872 return (error); 873} 874 875static int 876digiclose(dev_t dev, int flag, int mode, struct thread *td) 877{ 878 int mynor; 879 struct tty *tp; 880 int unit, pnum; 881 struct digi_softc *sc; 882 struct digi_p *port; 883 int s; 884 885 mynor = minor(dev); 886 unit = MINOR_TO_UNIT(mynor); 887 pnum = MINOR_TO_PORT(mynor); 888 889 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 890 KASSERT(sc, ("digi%d: softc not allocated in digiclose\n", unit)); 891 892 if (mynor & (CTRL_DEV | CONTROL_MASK)) { 893 sc->opencnt--; 894 return (0); 895 } 896 897 port = sc->ports + pnum; 898 tp = port->tp; 899 900 DLOG(DIGIDB_CLOSE, (sc->dev, "port %d: closing\n", pnum)); 901 902 s = spltty(); 903 linesw[tp->t_line].l_close(tp, flag); 904 digi_disc_optim(tp, &tp->t_termios, port); 905 digistop(tp, FREAD | FWRITE); 906 digihardclose(port); 907 ttyclose(tp); 908 if (--sc->opencnt == 0) 909 splx(s); 910 return (0); 911} 912 913static void 914digidtrwakeup(void *chan) 915{ 916 struct digi_p *port = chan; 917 918 port->status &= ~DIGI_DTR_OFF; 919 wakeup(&port->dtr_wait); 920 port->wopeners--; 921} 922 923static void 924digihardclose(struct digi_p *port) 925{ 926 volatile struct board_chan *bc; 927 int s; 928 929 bc = port->bc; 930 931 s = spltty(); 932 port->sc->setwin(port->sc, 0); 933 bc->idata = 0; 934 bc->iempty = 0; 935 bc->ilow = 0; 936 bc->mint = 0; 937 if ((port->tp->t_cflag & HUPCL) || 938 (!port->active_out && !(bc->mstat & port->cd) && 939 !(port->it_in.c_cflag & CLOCAL)) || 940 !(port->tp->t_state & TS_ISOPEN)) { 941 digimctl(port, TIOCM_DTR | TIOCM_RTS, DMBIC); 942 if (port->dtr_wait != 0) { 943 /* Schedule a wakeup of any callin devices */ 944 port->wopeners++; 945 timeout(&digidtrwakeup, port, port->dtr_wait); 946 port->status |= DIGI_DTR_OFF; 947 } 948 } 949 port->active_out = FALSE; 950 wakeup(&port->active_out); 951 wakeup(TSA_CARR_ON(port->tp)); 952 splx(s); 953} 954 955static int 956digiread(dev_t dev, struct uio *uio, int flag) 957{ 958 int mynor; 959 struct tty *tp; 960 int error, unit, pnum; 961 struct digi_softc *sc; 962 963 mynor = minor(dev); 964 if (mynor & CONTROL_MASK) 965 return (ENODEV); 966 967 unit = MINOR_TO_UNIT(mynor); 968 pnum = MINOR_TO_PORT(mynor); 969 970 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 971 KASSERT(sc, ("digi%d: softc not allocated in digiclose\n", unit)); 972 tp = &sc->ttys[pnum]; 973 974 error = linesw[tp->t_line].l_read(tp, uio, flag); 975 DLOG(DIGIDB_READ, (sc->dev, "port %d: read() returns %d\n", 976 pnum, error)); 977 978 return (error); 979} 980 981static int 982digiwrite(dev_t dev, struct uio *uio, int flag) 983{ 984 int mynor; 985 struct tty *tp; 986 int error, unit, pnum; 987 struct digi_softc *sc; 988 989 mynor = minor(dev); 990 if (mynor & CONTROL_MASK) 991 return (ENODEV); 992 993 unit = MINOR_TO_UNIT(mynor); 994 pnum = MINOR_TO_PORT(mynor); 995 996 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 997 KASSERT(sc, ("digi%d: softc not allocated in digiclose\n", unit)); 998 tp = &sc->ttys[pnum]; 999 1000 error = linesw[tp->t_line].l_write(tp, uio, flag); 1001 DLOG(DIGIDB_WRITE, (sc->dev, "port %d: write() returns %d\n", 1002 pnum, error)); 1003 1004 return (error); 1005} 1006 1007/* 1008 * Load module "digi_<mod>.ko" and look for a symbol called digi_mod_<mod>. 1009 * 1010 * Populate sc->bios, sc->fep, and sc->link from this data. 1011 * 1012 * sc->fep.data, sc->bios.data and sc->link.data are malloc()d according 1013 * to their respective sizes. 1014 * 1015 * The module is unloaded when we're done. 1016 */ 1017static int 1018digi_loadmoduledata(struct digi_softc *sc) 1019{ 1020 struct digi_mod *digi_mod; 1021 linker_file_t lf; 1022 char *modfile, *sym; 1023 caddr_t symptr; 1024 int modlen, res; 1025 1026 KASSERT(sc->bios.data == NULL, ("Uninitialised BIOS variable")); 1027 KASSERT(sc->fep.data == NULL, ("Uninitialised FEP variable")); 1028 KASSERT(sc->link.data == NULL, ("Uninitialised LINK variable")); 1029 KASSERT(sc->module != NULL, ("Uninitialised module name")); 1030 1031 modlen = strlen(sc->module); 1032 modfile = malloc(modlen + 6, M_TEMP, M_WAITOK); 1033 snprintf(modfile, modlen + 6, "digi_%s", sc->module); 1034 if ((res = linker_reference_module(modfile, NULL, &lf)) != 0) { 1035 if (res == ENOENT && rootdev == NODEV) 1036 printf("%s: Failed to autoload module: No filesystem\n", 1037 modfile); 1038 else 1039 printf("%s: Failed %d to autoload module\n", modfile, 1040 res); 1041 } 1042 free(modfile, M_TEMP); 1043 if (res != 0) 1044 return (res); 1045 1046 sym = malloc(modlen + 10, M_TEMP, M_WAITOK); 1047 snprintf(sym, modlen + 10, "digi_mod_%s", sc->module); 1048 if ((symptr = linker_file_lookup_symbol(lf, sym, 0)) == NULL) 1049 printf("digi_%s.ko: Symbol `%s' not found\n", sc->module, sym); 1050 free(sym, M_TEMP); 1051 1052 digi_mod = (struct digi_mod *)symptr; 1053 if (digi_mod->dm_version != DIGI_MOD_VERSION) { 1054 printf("digi_%s.ko: Invalid version %d (need %d)\n", 1055 sc->module, digi_mod->dm_version, DIGI_MOD_VERSION); 1056 linker_file_unload(lf); 1057 return (EINVAL); 1058 } 1059 1060 sc->bios.size = digi_mod->dm_bios.size; 1061 if (sc->bios.size != 0 && digi_mod->dm_bios.data != NULL) { 1062 sc->bios.data = malloc(sc->bios.size, M_TTYS, M_WAITOK); 1063 bcopy(digi_mod->dm_bios.data, sc->bios.data, sc->bios.size); 1064 } 1065 1066 sc->fep.size = digi_mod->dm_fep.size; 1067 if (sc->fep.size != 0 && digi_mod->dm_fep.data != NULL) { 1068 sc->fep.data = malloc(sc->fep.size, M_TTYS, M_WAITOK); 1069 bcopy(digi_mod->dm_fep.data, sc->fep.data, sc->fep.size); 1070 } 1071 1072 sc->link.size = digi_mod->dm_link.size; 1073 if (sc->link.size != 0 && digi_mod->dm_link.data != NULL) { 1074 sc->link.data = malloc(sc->link.size, M_TTYS, M_WAITOK); 1075 bcopy(digi_mod->dm_link.data, sc->link.data, sc->link.size); 1076 } 1077 1078 linker_file_unload(lf); 1079 1080 return (0); 1081} 1082 1083static int 1084digiioctl(dev_t dev, u_long cmd, caddr_t data, int flag, struct thread *td) 1085{ 1086 int unit, pnum, mynor, error, s; 1087 struct digi_softc *sc; 1088 struct digi_p *port; 1089 struct tty *tp; 1090#if defined(COMPAT_43) || defined(COMPAT_SUNOS) 1091 int oldcmd; 1092 struct termios term; 1093#endif 1094 1095 mynor = minor(dev); 1096 unit = MINOR_TO_UNIT(mynor); 1097 pnum = MINOR_TO_PORT(mynor); 1098 1099 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 1100 KASSERT(sc, ("digi%d: softc not allocated in digiioctl\n", unit)); 1101 1102 if (sc->status == DIGI_STATUS_DISABLED) 1103 return (ENXIO); 1104 1105 if (mynor & CTRL_DEV) { 1106 switch (cmd) { 1107 case DIGIIO_DEBUG: 1108#ifdef DEBUG 1109 digi_debug = *(int *)data; 1110 return (0); 1111#else 1112 device_printf(sc->dev, "DEBUG not defined\n"); 1113 return (ENXIO); 1114#endif 1115 case DIGIIO_REINIT: 1116 digi_loadmoduledata(sc); 1117 error = digi_init(sc); 1118 digi_freemoduledata(sc); 1119 return (error); 1120 1121 case DIGIIO_MODEL: 1122 *(enum digi_model *)data = sc->model; 1123 return (0); 1124 1125 case DIGIIO_IDENT: 1126 return (copyout(sc->name, *(char **)data, 1127 strlen(sc->name) + 1)); 1128 } 1129 } 1130 1131 if (pnum >= sc->numports) 1132 return (ENXIO); 1133 1134 port = sc->ports + pnum; 1135 if (!(port->status & ENABLED)) 1136 return (ENXIO); 1137 1138 tp = port->tp; 1139 1140 if (mynor & CONTROL_MASK) { 1141 struct termios *ct; 1142 1143 switch (mynor & CONTROL_MASK) { 1144 case CONTROL_INIT_STATE: 1145 ct = (mynor & CALLOUT_MASK) ? 1146 &port->it_out : &port->it_in; 1147 break; 1148 case CONTROL_LOCK_STATE: 1149 ct = (mynor & CALLOUT_MASK) ? 1150 &port->lt_out : &port->lt_in; 1151 break; 1152 default: 1153 return (ENODEV); /* /dev/nodev */ 1154 } 1155 1156 switch (cmd) { 1157 case TIOCSETA: 1158 error = suser(td); 1159 if (error != 0) 1160 return (error); 1161 *ct = *(struct termios *)data; 1162 return (0); 1163 1164 case TIOCGETA: 1165 *(struct termios *)data = *ct; 1166 return (0); 1167 1168 case TIOCGETD: 1169 *(int *)data = TTYDISC; 1170 return (0); 1171 1172 case TIOCGWINSZ: 1173 bzero(data, sizeof(struct winsize)); 1174 return (0); 1175 1176 case DIGIIO_GETALTPIN: 1177 switch (mynor & CONTROL_MASK) { 1178 case CONTROL_INIT_STATE: 1179 *(int *)data = port->ialtpin; 1180 break; 1181 1182 case CONTROL_LOCK_STATE: 1183 *(int *)data = port->laltpin; 1184 break; 1185 1186 default: 1187 panic("Confusion when re-testing minor"); 1188 return (ENODEV); 1189 } 1190 return (0); 1191 1192 case DIGIIO_SETALTPIN: 1193 switch (mynor & CONTROL_MASK) { 1194 case CONTROL_INIT_STATE: 1195 if (!port->laltpin) { 1196 port->ialtpin = !!*(int *)data; 1197 DLOG(DIGIDB_SET, (sc->dev, 1198 "port%d: initial ALTPIN %s\n", pnum, 1199 port->ialtpin ? "set" : "cleared")); 1200 } 1201 break; 1202 1203 case CONTROL_LOCK_STATE: 1204 port->laltpin = !!*(int *)data; 1205 DLOG(DIGIDB_SET, (sc->dev, 1206 "port%d: ALTPIN %slocked\n", 1207 pnum, port->laltpin ? "" : "un")); 1208 break; 1209 1210 default: 1211 panic("Confusion when re-testing minor"); 1212 return (ENODEV); 1213 } 1214 return (0); 1215 1216 default: 1217 return (ENOTTY); 1218 } 1219 } 1220 1221 switch (cmd) { 1222 case DIGIIO_GETALTPIN: 1223 *(int *)data = !!(port->dsr == sc->csigs->cd); 1224 return (0); 1225 1226 case DIGIIO_SETALTPIN: 1227 if (!port->laltpin) { 1228 if (*(int *)data) { 1229 DLOG(DIGIDB_SET, (sc->dev, 1230 "port%d: ALTPIN set\n", pnum)); 1231 port->cd = sc->csigs->dsr; 1232 port->dsr = sc->csigs->cd; 1233 } else { 1234 DLOG(DIGIDB_SET, (sc->dev, 1235 "port%d: ALTPIN cleared\n", pnum)); 1236 port->cd = sc->csigs->cd; 1237 port->dsr = sc->csigs->dsr; 1238 } 1239 } 1240 return (0); 1241 } 1242 1243 tp = port->tp; 1244#if defined(COMPAT_43) || defined(COMPAT_SUNOS) 1245 term = tp->t_termios; 1246 oldcmd = cmd; 1247 error = ttsetcompat(tp, &cmd, data, &term); 1248 if (error != 0) 1249 return (error); 1250 if (cmd != oldcmd) 1251 data = (caddr_t) & term; 1252#endif 1253 if (cmd == TIOCSETA || cmd == TIOCSETAW || cmd == TIOCSETAF) { 1254 int cc; 1255 struct termios *dt; 1256 struct termios *lt; 1257 1258 dt = (struct termios *)data; 1259 lt = (mynor & CALLOUT_MASK) ? &port->lt_out : &port->lt_in; 1260 1261 dt->c_iflag = 1262 (tp->t_iflag & lt->c_iflag) | (dt->c_iflag & ~lt->c_iflag); 1263 dt->c_oflag = 1264 (tp->t_oflag & lt->c_oflag) | (dt->c_oflag & ~lt->c_oflag); 1265 dt->c_cflag = 1266 (tp->t_cflag & lt->c_cflag) | (dt->c_cflag & ~lt->c_cflag); 1267 dt->c_lflag = 1268 (tp->t_lflag & lt->c_lflag) | (dt->c_lflag & ~lt->c_lflag); 1269 port->c_iflag = dt->c_iflag & (IXOFF | IXON | IXANY); 1270 dt->c_iflag &= ~(IXOFF | IXON | IXANY); 1271 for (cc = 0; cc < NCCS; ++cc) 1272 if (lt->c_cc[cc] != 0) 1273 dt->c_cc[cc] = tp->t_cc[cc]; 1274 if (lt->c_ispeed != 0) 1275 dt->c_ispeed = tp->t_ispeed; 1276 if (lt->c_ospeed != 0) 1277 dt->c_ospeed = tp->t_ospeed; 1278 } 1279 error = linesw[tp->t_line].l_ioctl(tp, cmd, data, flag, td); 1280 if (error == 0 && cmd == TIOCGETA) 1281 ((struct termios *)data)->c_iflag |= port->c_iflag; 1282 1283 if (error >= 0 && error != ENOIOCTL) 1284 return (error); 1285 s = spltty(); 1286 error = ttioctl(tp, cmd, data, flag); 1287 if (error == 0 && cmd == TIOCGETA) 1288 ((struct termios *)data)->c_iflag |= port->c_iflag; 1289 1290 digi_disc_optim(tp, &tp->t_termios, port); 1291 if (error >= 0 && error != ENOIOCTL) { 1292 splx(s); 1293 return (error); 1294 } 1295 sc->setwin(sc, 0); 1296 switch (cmd) { 1297 case DIGIIO_RING: 1298 port->send_ring = *(u_char *)data; 1299 break; 1300 case TIOCSBRK: 1301 /* 1302 * now it sends 400 millisecond break because I don't know 1303 * how to send an infinite break 1304 */ 1305 fepcmd_w(port, SENDBREAK, 400, 10); 1306 break; 1307 case TIOCCBRK: 1308 /* now it's empty */ 1309 break; 1310 case TIOCSDTR: 1311 digimctl(port, TIOCM_DTR, DMBIS); 1312 break; 1313 case TIOCCDTR: 1314 digimctl(port, TIOCM_DTR, DMBIC); 1315 break; 1316 case TIOCMSET: 1317 digimctl(port, *(int *)data, DMSET); 1318 break; 1319 case TIOCMBIS: 1320 digimctl(port, *(int *)data, DMBIS); 1321 break; 1322 case TIOCMBIC: 1323 digimctl(port, *(int *)data, DMBIC); 1324 break; 1325 case TIOCMGET: 1326 *(int *)data = digimctl(port, 0, DMGET); 1327 break; 1328 case TIOCMSDTRWAIT: 1329 error = suser(td); 1330 if (error != 0) { 1331 splx(s); 1332 return (error); 1333 } 1334 port->dtr_wait = *(int *)data *hz / 100; 1335 1336 break; 1337 case TIOCMGDTRWAIT: 1338 *(int *)data = port->dtr_wait * 100 / hz; 1339 break; 1340#ifdef DIGI_INTERRUPT 1341 case TIOCTIMESTAMP: 1342 *(struct timeval *)data = sc->intr_timestamp; 1343 1344 break; 1345#endif 1346 default: 1347 splx(s); 1348 return (ENOTTY); 1349 } 1350 splx(s); 1351 return (0); 1352} 1353 1354static int 1355digiparam(struct tty *tp, struct termios *t) 1356{ 1357 int mynor; 1358 int unit; 1359 int pnum; 1360 struct digi_softc *sc; 1361 struct digi_p *port; 1362 int cflag; 1363 int iflag; 1364 int hflow; 1365 int s; 1366 int window; 1367 1368 mynor = minor(tp->t_dev); 1369 unit = MINOR_TO_UNIT(mynor); 1370 pnum = MINOR_TO_PORT(mynor); 1371 1372 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 1373 KASSERT(sc, ("digi%d: softc not allocated in digiparam\n", unit)); 1374 1375 port = &sc->ports[pnum]; 1376 1377 DLOG(DIGIDB_SET, (sc->dev, "port%d: setting parameters\n", pnum)); 1378 1379 if (t->c_ispeed == 0) 1380 t->c_ispeed = t->c_ospeed; 1381 1382 cflag = ttspeedtab(t->c_ospeed, digispeedtab); 1383 1384 if (cflag < 0 || (cflag > 0 && t->c_ispeed != t->c_ospeed)) 1385 return (EINVAL); 1386 1387 s = splclock(); 1388 1389 window = sc->window; 1390 sc->setwin(sc, 0); 1391 1392 if (cflag == 0) { /* hangup */ 1393 DLOG(DIGIDB_SET, (sc->dev, "port%d: hangup\n", pnum)); 1394 digimctl(port, TIOCM_DTR | TIOCM_RTS, DMBIC); 1395 } else { 1396 digimctl(port, TIOCM_DTR | TIOCM_RTS, DMBIS); 1397 1398 DLOG(DIGIDB_SET, (sc->dev, "port%d: CBAUD = %d\n", pnum, 1399 cflag)); 1400 1401#if 0 1402 /* convert flags to sysV-style values */ 1403 if (t->c_cflag & PARODD) 1404 cflag |= 0x0200; 1405 if (t->c_cflag & PARENB) 1406 cflag |= 0x0100; 1407 if (t->c_cflag & CSTOPB) 1408 cflag |= 0x0080; 1409#else 1410 /* convert flags to sysV-style values */ 1411 if (t->c_cflag & PARODD) 1412 cflag |= FEP_PARODD; 1413 if (t->c_cflag & PARENB) 1414 cflag |= FEP_PARENB; 1415 if (t->c_cflag & CSTOPB) 1416 cflag |= FEP_CSTOPB; 1417 if (t->c_cflag & CLOCAL) 1418 cflag |= FEP_CLOCAL; 1419#endif 1420 1421 cflag |= (t->c_cflag & CSIZE) >> 4; 1422 DLOG(DIGIDB_SET, (sc->dev, "port%d: CFLAG = 0x%x\n", pnum, 1423 cflag)); 1424 fepcmd_w(port, SETCFLAGS, (unsigned)cflag, 0); 1425 } 1426 1427 iflag = 1428 t->c_iflag & (IGNBRK | BRKINT | IGNPAR | PARMRK | INPCK | ISTRIP); 1429 if (port->c_iflag & IXON) 1430 iflag |= 0x400; 1431 if (port->c_iflag & IXANY) 1432 iflag |= 0x800; 1433 if (port->c_iflag & IXOFF) 1434 iflag |= 0x1000; 1435 1436 DLOG(DIGIDB_SET, (sc->dev, "port%d: set iflag = 0x%x\n", pnum, iflag)); 1437 fepcmd_w(port, SETIFLAGS, (unsigned)iflag, 0); 1438 1439 hflow = 0; 1440 if (t->c_cflag & CDTR_IFLOW) 1441 hflow |= sc->csigs->dtr; 1442 if (t->c_cflag & CRTS_IFLOW) 1443 hflow |= sc->csigs->rts; 1444 if (t->c_cflag & CCTS_OFLOW) 1445 hflow |= sc->csigs->cts; 1446 if (t->c_cflag & CDSR_OFLOW) 1447 hflow |= port->dsr; 1448 if (t->c_cflag & CCAR_OFLOW) 1449 hflow |= port->cd; 1450 1451 DLOG(DIGIDB_SET, (sc->dev, "port%d: set hflow = 0x%x\n", pnum, hflow)); 1452 fepcmd_w(port, SETHFLOW, 0xff00 | (unsigned)hflow, 0); 1453 1454 DLOG(DIGIDB_SET, (sc->dev, "port%d: set startc(0x%x), stopc(0x%x)\n", 1455 pnum, t->c_cc[VSTART], t->c_cc[VSTOP])); 1456 fepcmd_b(port, SONOFFC, t->c_cc[VSTART], t->c_cc[VSTOP], 0); 1457 1458 if (sc->window != 0) 1459 sc->towin(sc, 0); 1460 if (window != 0) 1461 sc->towin(sc, window); 1462 splx(s); 1463 1464 return (0); 1465} 1466 1467static void 1468digi_intr(void *vp) 1469{ 1470 struct digi_p *port; 1471 char *cxcon; 1472 struct digi_softc *sc; 1473 int ehead, etail; 1474 volatile struct board_chan *bc; 1475 struct tty *tp; 1476 int head, tail; 1477 int wrapmask; 1478 int size, window; 1479 struct event { 1480 u_char pnum; 1481 u_char event; 1482 u_char mstat; 1483 u_char lstat; 1484 } event; 1485 1486 sc = vp; 1487 1488 if (sc->status != DIGI_STATUS_ENABLED) { 1489 DLOG(DIGIDB_IRQ, (sc->dev, "interrupt on disabled board !\n")); 1490 return; 1491 } 1492 1493#ifdef DIGI_INTERRUPT 1494 microtime(&sc->intr_timestamp); 1495#endif 1496 1497 window = sc->window; 1498 sc->setwin(sc, 0); 1499 1500 if (sc->model >= PCXEM && W(sc->vmem + 0xd00)) { 1501 struct con_bios *con = con_bios_list; 1502 register u_char *ptr; 1503 1504 ptr = sc->vmem + W(sc->vmem + 0xd00); 1505 while (con) { 1506 if (ptr[1] && W(ptr + 2) == W(con->bios + 2)) 1507 /* Not first block -- exact match */ 1508 break; 1509 1510 if (W(ptr + 4) >= W(con->bios + 4) && 1511 W(ptr + 4) <= W(con->bios + 6)) 1512 /* Initial search concetrator BIOS */ 1513 break; 1514 } 1515 1516 if (con == NULL) { 1517 log(LOG_ERR, "digi%d: wanted bios LREV = 0x%04x" 1518 " not found!\n", sc->res.unit, W(ptr + 4)); 1519 W(ptr + 10) = 0; 1520 W(sc->vmem + 0xd00) = 0; 1521 goto eoi; 1522 } 1523 cxcon = con->bios; 1524 W(ptr + 4) = W(cxcon + 4); 1525 W(ptr + 6) = W(cxcon + 6); 1526 if (ptr[1] == 0) 1527 W(ptr + 2) = W(cxcon + 2); 1528 W(ptr + 8) = (ptr[1] << 6) + W(cxcon + 8); 1529 size = W(cxcon + 10) - (ptr[1] << 10); 1530 if (size <= 0) { 1531 W(ptr + 8) = W(cxcon + 8); 1532 W(ptr + 10) = 0; 1533 } else { 1534 if (size > 1024) 1535 size = 1024; 1536 W(ptr + 10) = size; 1537 bcopy(cxcon + (ptr[1] << 10), ptr + 12, size); 1538 } 1539 W(sc->vmem + 0xd00) = 0; 1540 goto eoi; 1541 } 1542 1543 ehead = sc->gdata->ein; 1544 etail = sc->gdata->eout; 1545 if (ehead == etail) { 1546#ifdef DEBUG 1547 sc->intr_count++; 1548 if (sc->intr_count % 6000 == 0) { 1549 DLOG(DIGIDB_IRQ, (sc->dev, 1550 "6000 useless polls %x %x\n", ehead, etail)); 1551 sc->intr_count = 0; 1552 } 1553#endif 1554 goto eoi; 1555 } 1556 while (ehead != etail) { 1557 event = *(volatile struct event *)(sc->memevent + etail); 1558 1559 etail = (etail + 4) & sc->gdata->imax; 1560 1561 if (event.pnum >= sc->numports) { 1562 log(LOG_ERR, "digi%d: port %d: got event" 1563 " on nonexisting port\n", sc->res.unit, 1564 event.pnum); 1565 continue; 1566 } 1567 port = &sc->ports[event.pnum]; 1568 bc = port->bc; 1569 tp = port->tp; 1570 1571 if (!(tp->t_state & TS_ISOPEN) && !port->wopeners) { 1572 DLOG(DIGIDB_IRQ, (sc->dev, 1573 "port %d: event 0x%x on closed port\n", 1574 event.pnum, event.event)); 1575 bc->rout = bc->rin; 1576 bc->idata = 0; 1577 bc->iempty = 0; 1578 bc->ilow = 0; 1579 bc->mint = 0; 1580 continue; 1581 } 1582 if (event.event & ~ALL_IND) 1583 log(LOG_ERR, "digi%d: port%d: ? event 0x%x mstat 0x%x" 1584 " lstat 0x%x\n", sc->res.unit, event.pnum, 1585 event.event, event.mstat, event.lstat); 1586 1587 if (event.event & DATA_IND) { 1588 DLOG(DIGIDB_IRQ, (sc->dev, "port %d: DATA_IND\n", 1589 event.pnum)); 1590 wrapmask = port->rxbufsize - 1; 1591 head = bc->rin; 1592 tail = bc->rout; 1593 1594 size = 0; 1595 if (!(tp->t_state & TS_ISOPEN)) { 1596 bc->rout = head; 1597 goto end_of_data; 1598 } 1599 while (head != tail) { 1600 int top; 1601 1602 DLOG(DIGIDB_INT, (sc->dev, 1603 "port %d: p rx head = %d tail = %d\n", 1604 event.pnum, head, tail)); 1605 top = (head > tail) ? head : wrapmask + 1; 1606 sc->towin(sc, port->rxwin); 1607 size = top - tail; 1608 if (tp->t_state & TS_CAN_BYPASS_L_RINT) { 1609 size = b_to_q((char *)port->rxbuf + 1610 tail, size, &tp->t_rawq); 1611 tail = top - size; 1612 ttwakeup(tp); 1613 } else for (; tail < top;) { 1614 linesw[tp->t_line]. 1615 l_rint(port->rxbuf[tail], tp); 1616 sc->towin(sc, port->rxwin); 1617 size--; 1618 tail++; 1619 if (tp->t_state & TS_TBLOCK) 1620 break; 1621 } 1622 tail &= wrapmask; 1623 sc->setwin(sc, 0); 1624 bc->rout = tail; 1625 head = bc->rin; 1626 if (size) 1627 break; 1628 } 1629 1630 if (bc->orun) { 1631 CE_RECORD(port, CE_OVERRUN); 1632 log(LOG_ERR, "digi%d: port%d: %s\n", 1633 sc->res.unit, event.pnum, 1634 digi_errortxt(CE_OVERRUN)); 1635 bc->orun = 0; 1636 } 1637end_of_data: 1638 if (size) { 1639 tp->t_state |= TS_TBLOCK; 1640 port->status |= PAUSE_RX; 1641 DLOG(DIGIDB_RX, (sc->dev, "port %d: pause RX\n", 1642 event.pnum)); 1643 } else { 1644 bc->idata = 1; 1645 } 1646 } 1647 1648 if (event.event & MODEMCHG_IND) { 1649 DLOG(DIGIDB_MODEM, (sc->dev, "port %d: MODEMCHG_IND\n", 1650 event.pnum)); 1651 1652 if ((event.mstat ^ event.lstat) & port->cd) { 1653 sc->hidewin(sc); 1654 linesw[tp->t_line].l_modem 1655 (tp, event.mstat & port->cd); 1656 sc->setwin(sc, 0); 1657 wakeup(TSA_CARR_ON(tp)); 1658 } 1659 1660 if (event.mstat & sc->csigs->ri) { 1661 DLOG(DIGIDB_RI, (sc->dev, "port %d: RING\n", 1662 event.pnum)); 1663 if (port->send_ring) { 1664 linesw[tp->t_line].l_rint('R', tp); 1665 linesw[tp->t_line].l_rint('I', tp); 1666 linesw[tp->t_line].l_rint('N', tp); 1667 linesw[tp->t_line].l_rint('G', tp); 1668 linesw[tp->t_line].l_rint('\r', tp); 1669 linesw[tp->t_line].l_rint('\n', tp); 1670 } 1671 } 1672 } 1673 if (event.event & BREAK_IND) { 1674 DLOG(DIGIDB_MODEM, (sc->dev, "port %d: BREAK_IND\n", 1675 event.pnum)); 1676 linesw[tp->t_line].l_rint(TTY_BI, tp); 1677 } 1678 if (event.event & (LOWTX_IND | EMPTYTX_IND)) { 1679 DLOG(DIGIDB_IRQ, (sc->dev, "port %d:%s%s\n", 1680 event.pnum, 1681 event.event & LOWTX_IND ? " LOWTX" : "", 1682 event.event & EMPTYTX_IND ? " EMPTYTX" : "")); 1683 (*linesw[tp->t_line].l_start)(tp); 1684 } 1685 } 1686 sc->gdata->eout = etail; 1687eoi: 1688 if (sc->window != 0) 1689 sc->towin(sc, 0); 1690 if (window != 0) 1691 sc->towin(sc, window); 1692} 1693 1694static void 1695digistart(struct tty *tp) 1696{ 1697 int unit; 1698 int pnum; 1699 struct digi_p *port; 1700 struct digi_softc *sc; 1701 volatile struct board_chan *bc; 1702 int head, tail; 1703 int size, ocount, totcnt = 0; 1704 int s; 1705 int wmask; 1706 1707 unit = MINOR_TO_UNIT(minor(tp->t_dev)); 1708 pnum = MINOR_TO_PORT(minor(tp->t_dev)); 1709 1710 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 1711 KASSERT(sc, ("digi%d: softc not allocated in digistart\n", unit)); 1712 1713 port = &sc->ports[pnum]; 1714 bc = port->bc; 1715 1716 wmask = port->txbufsize - 1; 1717 1718 s = spltty(); 1719 port->lcc = tp->t_outq.c_cc; 1720 sc->setwin(sc, 0); 1721 if (!(tp->t_state & TS_TBLOCK)) { 1722 if (port->status & PAUSE_RX) { 1723 DLOG(DIGIDB_RX, (sc->dev, "port %d: resume RX\n", 1724 pnum)); 1725 /* 1726 * CAREFUL - braces are needed here if the DLOG is 1727 * optimised out! 1728 */ 1729 } 1730 port->status &= ~PAUSE_RX; 1731 bc->idata = 1; 1732 } 1733 if (!(tp->t_state & TS_TTSTOP) && port->status & PAUSE_TX) { 1734 DLOG(DIGIDB_TX, (sc->dev, "port %d: resume TX\n", pnum)); 1735 port->status &= ~PAUSE_TX; 1736 fepcmd_w(port, RESUMETX, 0, 10); 1737 } 1738 if (tp->t_outq.c_cc == 0) 1739 tp->t_state &= ~TS_BUSY; 1740 else 1741 tp->t_state |= TS_BUSY; 1742 1743 head = bc->tin; 1744 while (tp->t_outq.c_cc != 0) { 1745 tail = bc->tout; 1746 DLOG(DIGIDB_INT, (sc->dev, "port%d: s tx head = %d tail = %d\n", 1747 pnum, head, tail)); 1748 1749 if (head < tail) 1750 size = tail - head - 1; 1751 else { 1752 size = port->txbufsize - head; 1753 if (tail == 0) 1754 size--; 1755 } 1756 1757 if (size == 0) 1758 break; 1759 sc->towin(sc, port->txwin); 1760 ocount = q_to_b(&tp->t_outq, port->txbuf + head, size); 1761 totcnt += ocount; 1762 head += ocount; 1763 head &= wmask; 1764 sc->setwin(sc, 0); 1765 bc->tin = head; 1766 bc->iempty = 1; 1767 bc->ilow = 1; 1768 } 1769 port->lostcc = tp->t_outq.c_cc; 1770 tail = bc->tout; 1771 if (head < tail) 1772 size = port->txbufsize - tail + head; 1773 else 1774 size = head - tail; 1775 1776 port->lbuf = size; 1777 DLOG(DIGIDB_INT, (sc->dev, "port%d: s total cnt = %d\n", pnum, totcnt)); 1778 ttwwakeup(tp); 1779 splx(s); 1780} 1781 1782static void 1783digistop(struct tty *tp, int rw) 1784{ 1785 struct digi_softc *sc; 1786 int unit; 1787 int pnum; 1788 struct digi_p *port; 1789 1790 unit = MINOR_TO_UNIT(minor(tp->t_dev)); 1791 pnum = MINOR_TO_PORT(minor(tp->t_dev)); 1792 1793 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit); 1794 KASSERT(sc, ("digi%d: softc not allocated in digistop\n", unit)); 1795 port = sc->ports + pnum; 1796 1797 DLOG(DIGIDB_TX, (sc->dev, "port %d: pause TX\n", pnum)); 1798 port->status |= PAUSE_TX; 1799 fepcmd_w(port, PAUSETX, 0, 10); 1800} 1801 1802static void 1803fepcmd(struct digi_p *port, int cmd, int op1, int ncmds) 1804{ 1805 u_char *mem; 1806 unsigned tail, head; 1807 int count, n; 1808 1809 mem = port->sc->memcmd; 1810 1811 port->sc->setwin(port->sc, 0); 1812 1813 head = port->sc->gdata->cin; 1814 mem[head + 0] = cmd; 1815 mem[head + 1] = port->pnum; 1816 *(u_short *)(mem + head + 2) = op1; 1817 1818 head = (head + 4) & port->sc->gdata->cmax; 1819 port->sc->gdata->cin = head; 1820 1821 for (count = FEPTIMEOUT; count > 0; count--) { 1822 head = port->sc->gdata->cin; 1823 tail = port->sc->gdata->cout; 1824 n = (head - tail) & port->sc->gdata->cmax; 1825 1826 if (n <= ncmds * sizeof(short) * 4) 1827 break; 1828 } 1829 if (count == 0) 1830 log(LOG_ERR, "digi%d: port%d: timeout on FEP command\n", 1831 port->sc->res.unit, port->pnum); 1832} 1833 1834const char * 1835digi_errortxt(int id) 1836{ 1837 static const char *error_desc[] = { 1838 "silo overflow", 1839 "interrupt-level buffer overflow", 1840 "tty-level buffer overflow", 1841 }; 1842 1843 KASSERT(id >= 0 && id < sizeof(error_desc) / sizeof(error_desc[0]), 1844 ("Unexpected digi error id %d\n", id)); 1845 1846 return (error_desc[id]); 1847} 1848 1849int 1850digi_attach(struct digi_softc *sc) 1851{ 1852 sc->res.ctldev = make_dev(&digi_sw, 1853 (sc->res.unit << 16) | CTRL_DEV, UID_ROOT, GID_WHEEL, 1854 0600, "digi%r.ctl", sc->res.unit); 1855 1856 digi_loadmoduledata(sc); 1857 digi_init(sc); 1858 digi_freemoduledata(sc); 1859 1860 return (0); 1861} 1862 1863static int 1864digi_inuse(struct digi_softc *sc) 1865{ 1866 int i; 1867 1868 for (i = 0; i < sc->numports; i++) 1869 if (sc->ttys[i].t_state & TS_ISOPEN) { 1870 DLOG(DIGIDB_INIT, (sc->dev, "port%d: busy\n", i)); 1871 return (1); 1872 } else if (sc->ports[i].wopeners || sc->ports[i].opencnt) { 1873 DLOG(DIGIDB_INIT, (sc->dev, "port%d: blocked in open\n", 1874 i)); 1875 return (1); 1876 } 1877 return (0); 1878} 1879 1880static void 1881digi_free_state(struct digi_softc *sc) 1882{ 1883 int d, i; 1884 1885 /* Blow it all away */ 1886 1887 for (i = 0; i < sc->numports; i++) 1888 for (d = 0; d < 6; d++) 1889 destroy_dev(sc->ports[i].dev[d]); 1890 1891 untimeout(digi_poll, sc, sc->callout); 1892 callout_handle_init(&sc->callout); 1893 untimeout(digi_int_test, sc, sc->inttest); 1894 callout_handle_init(&sc->inttest); 1895 1896 bus_teardown_intr(sc->dev, sc->res.irq, sc->res.irqHandler); 1897#ifdef DIGI_INTERRUPT 1898 if (sc->res.irq != NULL) { 1899 bus_release_resource(dev, SYS_RES_IRQ, sc->res.irqrid, 1900 sc->res.irq); 1901 sc->res.irq = NULL; 1902 } 1903#endif 1904 if (sc->numports) { 1905 KASSERT(sc->ports, ("digi%d: Lost my ports ?", sc->res.unit)); 1906 KASSERT(sc->ttys, ("digi%d: Lost my ttys ?", sc->res.unit)); 1907 free(sc->ports, M_TTYS); 1908 sc->ports = NULL; 1909 free(sc->ttys, M_TTYS); 1910 sc->ttys = NULL; 1911 sc->numports = 0; 1912 } 1913 1914 sc->status = DIGI_STATUS_NOTINIT; 1915} 1916 1917int 1918digi_detach(device_t dev) 1919{ 1920 struct digi_softc *sc = device_get_softc(dev); 1921 1922 DLOG(DIGIDB_INIT, (sc->dev, "detaching\n")); 1923 1924 /* If we're INIT'd, numports must be 0 */ 1925 KASSERT(sc->numports == 0 || sc->status != DIGI_STATUS_NOTINIT, 1926 ("digi%d: numports(%d) & status(%d) are out of sync", 1927 sc->res.unit, sc->numports, (int)sc->status)); 1928 1929 if (digi_inuse(sc)) 1930 return (EBUSY); 1931 1932 digi_free_state(sc); 1933 1934 destroy_dev(sc->res.ctldev); 1935 1936 if (sc->res.mem != NULL) { 1937 bus_release_resource(dev, SYS_RES_MEMORY, sc->res.mrid, 1938 sc->res.mem); 1939 sc->res.mem = NULL; 1940 } 1941 if (sc->res.io != NULL) { 1942 bus_release_resource(dev, SYS_RES_IOPORT, sc->res.iorid, 1943 sc->res.io); 1944 sc->res.io = NULL; 1945 } 1946 1947 return (0); 1948} 1949 1950int 1951digi_shutdown(device_t dev) 1952{ 1953 return (0); 1954} 1955 1956MODULE_VERSION(digi, 1); 1957