com.c revision 1.17
1 /*- 2 * Copyright (c) 1991 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 3. All advertising materials mentioning features or use of this software 14 * must display the following acknowledgement: 15 * This product includes software developed by the University of 16 * California, Berkeley and its contributors. 17 * 4. Neither the name of the University nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 * 33 * from: @(#)com.c 7.5 (Berkeley) 5/16/91 34 * $Id: com.c,v 1.17 1994/02/01 03:42:08 cgd Exp $ 35 */ 36 37 #include "com.h" 38 #if NCOM > 0 39 /* 40 * COM driver, based on HP dca driver 41 * uses National Semiconductor NS16450/NS16550AF UART 42 */ 43 #include <sys/param.h> 44 #include <sys/systm.h> 45 #include <sys/ioctl.h> 46 #include <sys/select.h> 47 #include <sys/tty.h> 48 #include <sys/proc.h> 49 #include <sys/user.h> 50 #include <sys/conf.h> 51 #include <sys/file.h> 52 #include <sys/uio.h> 53 #include <sys/kernel.h> 54 #include <sys/syslog.h> 55 #include <sys/types.h> 56 57 #include <machine/pio.h> 58 59 #include <i386/isa/isa_device.h> 60 #include <i386/isa/comreg.h> 61 #include <i386/isa/ic/ns16550.h> 62 63 #define cominor(d) 64 65 int comprobe(), comattach(), comintr(), comparam(); 66 void comstart(); 67 68 struct isa_driver comdriver = { 69 comprobe, comattach, "com" 70 }; 71 72 int comsoftCAR; 73 int com_active; 74 int com_hasfifo; 75 int ncom = NCOM; 76 #ifdef COMCONSOLE 77 int comconsole = COMCONSOLE; 78 #else 79 int comconsole = -1; 80 #endif 81 int comconsinit; 82 int comdefaultrate = TTYDEF_SPEED; 83 int commajor; 84 short com_addr[NCOM]; 85 struct tty *com_tty[NCOM]; 86 87 struct speedtab comspeedtab[] = { 88 0, 0, 89 50, COMBRD(50), 90 75, COMBRD(75), 91 110, COMBRD(110), 92 134, COMBRD(134), 93 150, COMBRD(150), 94 200, COMBRD(200), 95 300, COMBRD(300), 96 600, COMBRD(600), 97 1200, COMBRD(1200), 98 1800, COMBRD(1800), 99 2400, COMBRD(2400), 100 4800, COMBRD(4800), 101 9600, COMBRD(9600), 102 19200, COMBRD(19200), 103 38400, COMBRD(38400), 104 57600, COMBRD(57600), 105 -1, -1 106 }; 107 108 extern struct tty *constty; 109 #ifdef KGDB 110 #include <machine/remote-sl.h> 111 112 extern int kgdb_dev; 113 extern int kgdb_rate; 114 extern int kgdb_debug_init; 115 #endif 116 117 #define UNIT(x) (minor(x)) 118 119 comprobe(dev) 120 struct isa_device *dev; 121 { 122 /* force access to id reg */ 123 outb(dev->id_iobase+com_cfcr, 0); 124 outb(dev->id_iobase+com_iir, 0); 125 DELAY(100); 126 if ((inb(dev->id_iobase+com_iir) & 0x38) == 0) 127 return(8); 128 return(0); 129 } 130 131 132 int 133 comattach(isdp) 134 struct isa_device *isdp; 135 { 136 struct tty *tp; 137 u_char unit; 138 int port = isdp->id_iobase; 139 140 unit = isdp->id_unit; 141 if (unit == comconsole) 142 DELAY(1000); 143 com_addr[unit] = port; 144 com_active |= 1 << unit; 145 comsoftCAR |= 1 << unit; /* XXX */ 146 147 /* look for a NS 16550AF UART with FIFOs */ 148 outb(port+com_fifo, FIFO_ENABLE|FIFO_RCV_RST|FIFO_XMT_RST|FIFO_TRIGGER_4); 149 DELAY(100); 150 if ((inb(port+com_iir) & IIR_FIFO_MASK) == IIR_FIFO_MASK) { 151 com_hasfifo |= 1 << unit; 152 printf("com%d: fifo\n", isdp->id_unit); 153 } 154 155 outb(port+com_ier, 0); 156 outb(port+com_mcr, 0 | MCR_IENABLE); 157 #ifdef KGDB 158 if (kgdb_dev == makedev(commajor, unit)) { 159 if (comconsole == unit) 160 kgdb_dev = -1; /* can't debug over console port */ 161 else { 162 (void) cominit(unit, kgdb_rate); 163 if (kgdb_debug_init) { 164 /* 165 * Print prefix of device name, 166 * let kgdb_connect print the rest. 167 */ 168 printf("com%d: ", unit); 169 kgdb_connect(1); 170 } else 171 printf("com%d: kgdb enabled\n", unit); 172 } 173 } 174 #endif 175 /* 176 * Need to reset baud rate, etc. of next print so reset comconsinit. 177 * Also make sure console is always "hardwired" 178 */ 179 if (unit == comconsole) { 180 comconsinit = 0; 181 comsoftCAR |= (1 << unit); 182 } 183 return (1); 184 } 185 186 /* ARGSUSED */ 187 comopen(dev_t dev, int flag, int mode, struct proc *p) 188 { 189 register struct tty *tp; 190 register int unit; 191 int error = 0; 192 193 unit = UNIT(dev); 194 if (unit >= NCOM || (com_active & (1 << unit)) == 0) 195 return (ENXIO); 196 if(!com_tty[unit]) { 197 tp = com_tty[unit] = ttymalloc(); 198 } else 199 tp = com_tty[unit]; 200 tp->t_oproc = comstart; 201 tp->t_param = comparam; 202 tp->t_dev = dev; 203 if ((tp->t_state & TS_ISOPEN) == 0) { 204 tp->t_state |= TS_WOPEN; 205 ttychars(tp); 206 tp->t_iflag = TTYDEF_IFLAG; 207 tp->t_oflag = TTYDEF_OFLAG; 208 tp->t_cflag = TTYDEF_CFLAG; 209 tp->t_lflag = TTYDEF_LFLAG; 210 tp->t_ispeed = tp->t_ospeed = comdefaultrate; 211 comparam(tp, &tp->t_termios); 212 ttsetwater(tp); 213 } else if (tp->t_state&TS_XCLUDE && p->p_ucred->cr_uid != 0) 214 return (EBUSY); 215 (void) spltty(); 216 (void) commctl(dev, MCR_DTR | MCR_RTS, DMSET); 217 if ((comsoftCAR & (1 << unit)) || (commctl(dev, 0, DMGET) & MSR_DCD)) 218 tp->t_state |= TS_CARR_ON; 219 while ((flag&O_NONBLOCK) == 0 && (tp->t_cflag&CLOCAL) == 0 && 220 (tp->t_state & TS_CARR_ON) == 0) { 221 tp->t_state |= TS_WOPEN; 222 if (error = ttysleep(tp, (caddr_t)&tp->t_rawq, TTIPRI | PCATCH, 223 ttopen, 0)) 224 break; 225 } 226 (void) spl0(); 227 if (error == 0) 228 error = (*linesw[tp->t_line].l_open)(dev, tp); 229 return (error); 230 } 231 232 /*ARGSUSED*/ 233 comclose(dev, flag, mode, p) 234 dev_t dev; 235 int flag, mode; 236 struct proc *p; 237 { 238 register struct tty *tp; 239 register com; 240 register int unit; 241 242 unit = UNIT(dev); 243 com = com_addr[unit]; 244 tp = com_tty[unit]; 245 (*linesw[tp->t_line].l_close)(tp, flag); 246 outb(com+com_cfcr, inb(com+com_cfcr) & ~CFCR_SBREAK); 247 #ifdef KGDB 248 /* do not disable interrupts if debugging */ 249 if (kgdb_dev != makedev(commajor, unit)) 250 #endif 251 outb(com+com_ier, 0); 252 if (tp->t_cflag&HUPCL || tp->t_state&TS_WOPEN || 253 (tp->t_state&TS_ISOPEN) == 0) 254 (void) commctl(dev, 0, DMSET); 255 ttyclose(tp); 256 #ifdef broken /* session holds a ref to the tty; can't deallocate */ 257 ttyfree(tp); 258 com_tty[unit] = (struct tty *)NULL; 259 #endif 260 return(0); 261 } 262 263 comread(dev, uio, flag) 264 dev_t dev; 265 struct uio *uio; 266 { 267 register struct tty *tp = com_tty[UNIT(dev)]; 268 269 return ((*linesw[tp->t_line].l_read)(tp, uio, flag)); 270 } 271 272 comwrite(dev, uio, flag) 273 dev_t dev; 274 struct uio *uio; 275 { 276 register struct tty *tp = com_tty[unit]; 277 278 return ((*linesw[tp->t_line].l_write)(tp, uio, flag)); 279 } 280 281 comintr(unit) 282 register int unit; 283 { 284 register com; 285 register u_char code; 286 register struct tty *tp; 287 288 com = com_addr[unit]; 289 while (1) { 290 code = inb(com+com_iir); 291 switch (code & IIR_IMASK) { 292 case IIR_NOPEND: 293 return (1); 294 case IIR_RXTOUT: 295 case IIR_RXRDY: 296 tp = com_tty[unit]; 297 /* 298 * Process received bytes. Inline for speed... 299 */ 300 #ifdef KGDB 301 #define RCVBYTE() \ 302 code = inb(com+com_data); \ 303 if ((tp->t_state & TS_ISOPEN) == 0) { \ 304 if (kgdb_dev == makedev(commajor, unit) && \ 305 code == FRAME_END) \ 306 kgdb_connect(0); /* trap into kgdb */ \ 307 } else \ 308 (*linesw[tp->t_line].l_rint)(code, tp) 309 #else 310 #define RCVBYTE() \ 311 code = inb(com+com_data); \ 312 if (tp->t_state & TS_ISOPEN) \ 313 (*linesw[tp->t_line].l_rint)(code, tp) 314 #endif 315 316 RCVBYTE(); 317 318 if (com_hasfifo & (1 << unit)) 319 while ((code = inb(com+com_lsr)) & LSR_RCV_MASK) { 320 if (code == LSR_RXRDY) { 321 RCVBYTE(); 322 } else 323 comeint(unit, code, com); 324 } 325 break; 326 case IIR_TXRDY: 327 tp = com_tty[unit]; 328 tp->t_state &=~ (TS_BUSY|TS_FLUSH); 329 if (tp->t_line) 330 (*linesw[tp->t_line].l_start)(tp); 331 else 332 comstart(tp); 333 break; 334 case IIR_RLS: 335 comeint(unit, inb(com+com_lsr), com); 336 break; 337 default: 338 if (code & IIR_NOPEND) 339 return (1); 340 log(LOG_WARNING, "com%d: weird interrupt: 0x%x\n", 341 unit, code); 342 /* fall through */ 343 case IIR_MLSC: 344 commint(unit, com); 345 break; 346 } 347 } 348 } 349 350 comeint(unit, stat, com) 351 register int unit, stat; 352 register com; 353 { 354 register struct tty *tp; 355 register int c; 356 357 tp = com_tty[unit]; 358 c = inb(com+com_data); 359 if ((tp->t_state & TS_ISOPEN) == 0) { 360 #ifdef KGDB 361 /* we don't care about parity errors */ 362 if (((stat & (LSR_BI|LSR_FE|LSR_PE)) == LSR_PE) && 363 kgdb_dev == makedev(commajor, unit) && c == FRAME_END) 364 kgdb_connect(0); /* trap into kgdb */ 365 #endif 366 return; 367 } 368 if (stat & (LSR_BI | LSR_FE)) 369 c |= TTY_FE; 370 else if (stat & LSR_PE) 371 c |= TTY_PE; 372 else if (stat & LSR_OE) { /* 30 Aug 92*/ 373 c |= TTY_PE; /* Ought to have it's own define... */ 374 log(LOG_WARNING, "com%d: silo overflow\n", unit); 375 } 376 (*linesw[tp->t_line].l_rint)(c, tp); 377 } 378 379 commint(unit, com) 380 register int unit; 381 register com; 382 { 383 register struct tty *tp; 384 register int stat; 385 386 tp = com_tty[unit]; 387 stat = inb(com+com_msr); 388 if ((stat & MSR_DDCD) && (comsoftCAR & (1 << unit)) == 0) { 389 if (stat & MSR_DCD) 390 (void)(*linesw[tp->t_line].l_modem)(tp, 1); 391 else if ((*linesw[tp->t_line].l_modem)(tp, 0) == 0) 392 outb(com+com_mcr, 393 inb(com+com_mcr) & ~(MCR_DTR | MCR_RTS) | MCR_IENABLE); 394 } else if ((stat & MSR_DCTS) && (tp->t_state & TS_ISOPEN) && 395 (tp->t_flags & CRTSCTS)) { 396 /* the line is up and we want to do rts/cts flow control */ 397 if (stat & MSR_CTS) { 398 tp->t_state &=~ TS_TTSTOP; 399 ttstart(tp); 400 } else 401 tp->t_state |= TS_TTSTOP; 402 } 403 } 404 405 comioctl(dev, cmd, data, flag) 406 dev_t dev; 407 caddr_t data; 408 { 409 register struct tty *tp; 410 register int unit = UNIT(dev); 411 register com; 412 register int error; 413 414 tp = com_tty[unit]; 415 error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag); 416 if (error >= 0) 417 return (error); 418 error = ttioctl(tp, cmd, data, flag); 419 if (error >= 0) 420 return (error); 421 422 com = com_addr[unit]; 423 switch (cmd) { 424 425 case TIOCSBRK: 426 outb(com+com_cfcr, inb(com+com_cfcr) | CFCR_SBREAK); 427 break; 428 429 case TIOCCBRK: 430 outb(com+com_cfcr, inb(com+com_cfcr) & ~CFCR_SBREAK); 431 break; 432 433 case TIOCSDTR: 434 (void) commctl(dev, MCR_DTR | MCR_RTS, DMBIS); 435 break; 436 437 case TIOCCDTR: 438 (void) commctl(dev, MCR_DTR | MCR_RTS, DMBIC); 439 break; 440 441 case TIOCMSET: 442 (void) commctl(dev, *(int *)data, DMSET); 443 break; 444 445 case TIOCMBIS: 446 (void) commctl(dev, *(int *)data, DMBIS); 447 break; 448 449 case TIOCMBIC: 450 (void) commctl(dev, *(int *)data, DMBIC); 451 break; 452 453 case TIOCMGET: 454 *(int *)data = commctl(dev, 0, DMGET); 455 break; 456 457 default: 458 return (ENOTTY); 459 } 460 return (0); 461 } 462 463 comparam(tp, t) 464 register struct tty *tp; 465 register struct termios *t; 466 { 467 register com; 468 register int cfcr, cflag = t->c_cflag; 469 int unit = UNIT(tp->t_dev); 470 int ospeed = ttspeedtab(t->c_ospeed, comspeedtab); 471 472 /* check requested parameters */ 473 if (ospeed < 0 || (t->c_ispeed && t->c_ispeed != t->c_ospeed)) 474 return(EINVAL); 475 /* and copy to tty */ 476 tp->t_ispeed = t->c_ispeed; 477 tp->t_ospeed = t->c_ospeed; 478 tp->t_cflag = cflag; 479 480 com = com_addr[unit]; 481 outb(com+com_ier, IER_ERXRDY | IER_ETXRDY | IER_ERLS /*| IER_EMSC*/); 482 if (ospeed == 0) { 483 (void) commctl(unit, 0, DMSET); /* hang up line */ 484 return(0); 485 } 486 outb(com+com_cfcr, inb(com+com_cfcr) | CFCR_DLAB); 487 outb(com+com_data, ospeed & 0xFF); 488 outb(com+com_ier, ospeed >> 8); 489 switch (cflag&CSIZE) { 490 case CS5: 491 cfcr = CFCR_5BITS; break; 492 case CS6: 493 cfcr = CFCR_6BITS; break; 494 case CS7: 495 cfcr = CFCR_7BITS; break; 496 case CS8: 497 cfcr = CFCR_8BITS; break; 498 } 499 if (cflag&PARENB) { 500 cfcr |= CFCR_PENAB; 501 if ((cflag&PARODD) == 0) 502 cfcr |= CFCR_PEVEN; 503 } 504 if (cflag&CSTOPB) 505 cfcr |= CFCR_STOPB; 506 outb(com+com_cfcr, cfcr); 507 508 if (com_hasfifo & (1 << unit)) 509 outb(com+com_fifo, FIFO_ENABLE | FIFO_TRIGGER_4); 510 511 return(0); 512 } 513 514 void 515 comstart(tp) 516 register struct tty *tp; 517 { 518 register com; 519 int s, unit, c; 520 521 unit = UNIT(tp->t_dev); 522 com = com_addr[unit]; 523 s = spltty(); 524 if (tp->t_state & (TS_TIMEOUT|TS_TTSTOP)) 525 goto out; 526 if (tp->t_outq.c_cc <= tp->t_lowat) { 527 if (tp->t_state&TS_ASLEEP) { 528 tp->t_state &= ~TS_ASLEEP; 529 wakeup((caddr_t)&tp->t_outq); 530 } 531 selwakeup(&tp->t_wsel); 532 } 533 if (tp->t_outq.c_cc == 0) 534 goto out; 535 if (inb(com+com_lsr) & LSR_TXRDY) { 536 c = getc(&tp->t_outq); 537 tp->t_state |= TS_BUSY; 538 outb(com+com_data, c); 539 if (com_hasfifo & (1 << unit)) 540 for (c = 1; c < 16 && tp->t_outq.c_cc; ++c) 541 outb(com+com_data, getc(&tp->t_outq)); 542 } 543 out: 544 splx(s); 545 } 546 547 /* 548 * Stop output on a line. 549 */ 550 /*ARGSUSED*/ 551 comstop(tp, flag) 552 register struct tty *tp; 553 { 554 register int s; 555 556 s = spltty(); 557 if (tp->t_state & TS_BUSY) { 558 if ((tp->t_state&TS_TTSTOP)==0) 559 tp->t_state |= TS_FLUSH; 560 } 561 splx(s); 562 } 563 564 commctl(dev, bits, how) 565 dev_t dev; 566 int bits, how; 567 { 568 register com; 569 register int unit; 570 int s; 571 572 unit = UNIT(dev); 573 com = com_addr[unit]; 574 s = spltty(); 575 switch (how) { 576 577 case DMSET: 578 outb(com+com_mcr, bits | MCR_IENABLE); 579 break; 580 581 case DMBIS: 582 outb(com+com_mcr, inb(com+com_mcr) | bits | MCR_IENABLE); 583 break; 584 585 case DMBIC: 586 outb(com+com_mcr, inb(com+com_mcr) & ~bits | MCR_IENABLE); 587 break; 588 589 case DMGET: 590 bits = inb(com+com_msr); 591 break; 592 } 593 (void) splx(s); 594 return(bits); 595 } 596 597 /* 598 * Following are all routines needed for COM to act as console 599 */ 600 #include <dev/cons.h> 601 602 comcnprobe(cp) 603 struct consdev *cp; 604 { 605 int unit; 606 607 /* locate the major number */ 608 for (commajor = 0; commajor < nchrdev; commajor++) 609 if (cdevsw[commajor].d_open == comopen) 610 break; 611 612 /* XXX: ick */ 613 unit = CONUNIT; 614 com_addr[CONUNIT] = CONADDR; 615 616 /* make sure hardware exists? XXX */ 617 618 /* initialize required fields */ 619 cp->cn_dev = makedev(commajor, unit); 620 #ifdef COMCONSOLE 621 cp->cn_pri = CN_REMOTE; /* Force a serial port console */ 622 #else 623 cp->cn_pri = CN_NORMAL; 624 #endif 625 } 626 627 comcninit(cp) 628 struct consdev *cp; 629 { 630 int unit = UNIT(cp->cn_dev); 631 632 cominit(unit, comdefaultrate); 633 comconsole = unit; 634 comconsinit = 1; 635 } 636 637 cominit(unit, rate) 638 int unit, rate; 639 { 640 register int com; 641 int s; 642 short stat; 643 644 #ifdef lint 645 stat = unit; if (stat) return; 646 #endif 647 com = com_addr[unit]; 648 s = splhigh(); 649 outb(com+com_cfcr, CFCR_DLAB); 650 rate = ttspeedtab(comdefaultrate, comspeedtab); 651 outb(com+com_data, rate & 0xFF); 652 outb(com+com_ier, rate >> 8); 653 outb(com+com_cfcr, CFCR_8BITS); 654 outb(com+com_ier, IER_ERXRDY | IER_ETXRDY); 655 outb(com+com_fifo, FIFO_ENABLE|FIFO_RCV_RST|FIFO_XMT_RST|FIFO_TRIGGER_4); 656 stat = inb(com+com_iir); 657 splx(s); 658 } 659 660 comcngetc(dev) 661 { 662 register com = com_addr[UNIT(dev)]; 663 short stat; 664 int c, s; 665 666 #ifdef lint 667 stat = dev; if (stat) return(0); 668 #endif 669 s = splhigh(); 670 while (((stat = inb(com+com_lsr)) & LSR_RXRDY) == 0) 671 ; 672 c = inb(com+com_data); 673 stat = inb(com+com_iir); 674 splx(s); 675 return(c); 676 } 677 678 /* 679 * Console kernel output character routine. 680 */ 681 comcnputc(dev, c) 682 dev_t dev; 683 register int c; 684 { 685 register com = com_addr[UNIT(dev)]; 686 register int timo; 687 short stat; 688 int s = splhigh(); 689 690 #ifdef lint 691 stat = dev; if (stat) return; 692 #endif 693 #ifdef KGDB 694 if (dev != kgdb_dev) 695 #endif 696 if (comconsinit == 0) { 697 (void) cominit(UNIT(dev), comdefaultrate); 698 comconsinit = 1; 699 } 700 /* wait for any pending transmission to finish */ 701 timo = 50000; 702 while (((stat = inb(com+com_lsr)) & LSR_TXRDY) == 0 && --timo) 703 ; 704 outb(com+com_data, c); 705 /* wait for this transmission to complete */ 706 timo = 1500000; 707 while (((stat = inb(com+com_lsr)) & LSR_TXRDY) == 0 && --timo) 708 ; 709 /* clear any interrupts generated by this transmission */ 710 stat = inb(com+com_iir); 711 splx(s); 712 } 713 714 #endif 715
Indexes created Tue Sep 23 14:10:03 GMT 2025