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