spif.c revision 1.13
1 /* $NetBSD: spif.c,v 1.13 2007/11/07 15:56:21 ad Exp $ */ 2 /* $OpenBSD: spif.c,v 1.12 2003/10/03 16:44:51 miod Exp $ */ 3 4 /* 5 * Copyright (c) 1999-2002 Jason L. Wright (jason (at) thought.net) 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 ``AS IS'' AND ANY EXPRESS OR 18 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 20 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, 21 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 23 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 25 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 26 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 27 * POSSIBILITY OF SUCH DAMAGE. 28 * 29 * Effort sponsored in part by the Defense Advanced Research Projects 30 * Agency (DARPA) and Air Force Research Laboratory, Air Force 31 * Materiel Command, USAF, under agreement number F30602-01-2-0537. 32 * 33 */ 34 35 /* 36 * Driver for the SUNW,spif: 8 serial, 1 parallel sbus board 37 * based heavily on Iain Hibbert's driver for the MAGMA cards 38 */ 39 40 /* Ported to NetBSD 2.0 by Hauke Fath */ 41 42 43 #include <sys/cdefs.h> 44 __KERNEL_RCSID(0, "$NetBSD: spif.c,v 1.13 2007/11/07 15:56:21 ad Exp $"); 45 46 #include "spif.h" 47 #if NSPIF > 0 48 49 #include <sys/param.h> 50 #include <sys/systm.h> 51 #include <sys/proc.h> 52 #include <sys/device.h> 53 #include <sys/file.h> 54 #include <sys/ioctl.h> 55 #include <sys/malloc.h> 56 #include <sys/tty.h> 57 #include <sys/time.h> 58 #include <sys/kernel.h> 59 #include <sys/syslog.h> 60 #include <sys/conf.h> 61 #include <sys/errno.h> 62 #include <sys/kauth.h> 63 #include <sys/intr.h> 64 65 #include <sys/bus.h> 66 #include <machine/autoconf.h> 67 #include <machine/promlib.h> 68 69 #include <dev/sbus/sbusvar.h> 70 71 #include <dev/sbus/spifvar.h> 72 #include <dev/sbus/spifreg.h> 73 74 75 /* Autoconfig stuff */ 76 77 CFATTACH_DECL(spif, sizeof(struct spif_softc), 78 spif_match, spif_attach, NULL, NULL); 79 80 CFATTACH_DECL(stty, sizeof(struct stty_softc), 81 stty_match, stty_attach, NULL, NULL); 82 83 CFATTACH_DECL(sbpp, sizeof(struct sbpp_softc), 84 sbpp_match, sbpp_attach, NULL, NULL); 85 86 extern struct cfdriver spif_cd; 87 extern struct cfdriver stty_cd; 88 extern struct cfdriver sbpp_cd; 89 90 dev_type_open(stty_open); 91 dev_type_close(stty_close); 92 dev_type_read(stty_read); 93 dev_type_write(stty_write); 94 dev_type_ioctl(stty_ioctl); 95 dev_type_stop(stty_stop); 96 dev_type_tty(stty_tty); 97 dev_type_poll(stty_poll); 98 99 const struct cdevsw stty_cdevsw = { 100 stty_open, stty_close, stty_read, stty_write, stty_ioctl, 101 stty_stop, stty_tty, stty_poll, nommap, ttykqfilter, D_TTY 102 }; 103 104 dev_type_open(sbpp_open); 105 dev_type_close(sbpp_close); 106 dev_type_read(sbpp_read); 107 dev_type_write(sbpp_write); 108 dev_type_ioctl(sbpp_ioctl); 109 dev_type_poll(sbpp_poll); 110 111 const struct cdevsw sbpp_cdevsw = { 112 sbpp_open, sbpp_close, sbpp_read, sbpp_write, sbpp_ioctl, 113 nostop, notty, sbpp_poll, nommap, nokqfilter, 114 }; 115 116 117 /* normal STC access */ 118 #define STC_WRITE(sc,r,v) \ 119 bus_space_write_1((sc)->sc_bustag, (sc)->sc_stch, (r), (v)) 120 #define STC_READ(sc,r) \ 121 bus_space_read_1((sc)->sc_bustag, (sc)->sc_stch, (r)) 122 123 /* IACK STC access */ 124 #define ISTC_WRITE(sc,r,v) \ 125 bus_space_write_1((sc)->sc_bustag, (sc)->sc_istch, (r), (v)) 126 #define ISTC_READ(sc,r) \ 127 bus_space_read_1((sc)->sc_bustag, (sc)->sc_istch, (r)) 128 129 /* PPC access */ 130 #define PPC_WRITE(sc,r,v) \ 131 bus_space_write_1((sc)->sc_bustag, (sc)->sc_ppch, (r), (v)) 132 #define PPC_READ(sc,r) \ 133 bus_space_read_1((sc)->sc_bustag, (sc)->sc_ppch, (r)) 134 135 #define DTR_WRITE(sc,port,v) \ 136 do { \ 137 sc->sc_ttys->sc_port[(port)].sp_dtr = v; \ 138 bus_space_write_1((sc)->sc_bustag, \ 139 sc->sc_dtrh, port, (v == 0) ? 1 : 0); \ 140 } while (0) 141 142 #define DTR_READ(sc,port) ((sc)->sc_ttys->sc_port[(port)].sp_dtr) 143 144 145 int 146 spif_match(parent, vcf, aux) 147 struct device *parent; 148 struct cfdata *vcf; 149 void *aux; 150 { 151 struct sbus_attach_args *sa = aux; 152 153 if (strcmp(vcf->cf_name, sa->sa_name) && 154 strcmp("SUNW,spif", sa->sa_name)) 155 return (0); 156 return (1); 157 } 158 159 void 160 spif_attach(parent, self, aux) 161 struct device *parent, *self; 162 void *aux; 163 { 164 struct spif_softc *sc = (struct spif_softc *)self; 165 struct sbus_attach_args *sa = aux; 166 167 if (sa->sa_nintr != 2) { 168 printf(": expected %d interrupts, got %d\n", 2, sa->sa_nintr); 169 return; 170 } 171 172 if (sa->sa_nreg != 1) { 173 printf(": expected %d registers, got %d\n", 1, sa->sa_nreg); 174 return; 175 } 176 177 sc->sc_bustag = sa->sa_bustag; 178 if (sbus_bus_map(sa->sa_bustag, sa->sa_slot, 179 sa->sa_offset, sa->sa_size, 180 0, &sc->sc_regh) != 0) { 181 printf(": can't map registers\n"); 182 return; 183 } 184 185 if (bus_space_subregion(sc->sc_bustag, sc->sc_regh, 186 DTR_REG_OFFSET, DTR_REG_LEN, &sc->sc_dtrh) != 0) { 187 printf(": can't map dtr regs\n"); 188 goto fail_unmapregs; 189 } 190 191 if (bus_space_subregion(sc->sc_bustag, sc->sc_regh, 192 STC_REG_OFFSET, STC_REG_LEN, &sc->sc_stch) != 0) { 193 printf(": can't map dtr regs\n"); 194 goto fail_unmapregs; 195 } 196 197 if (bus_space_subregion(sc->sc_bustag, sc->sc_regh, 198 ISTC_REG_OFFSET, ISTC_REG_LEN, &sc->sc_istch) != 0) { 199 printf(": can't map dtr regs\n"); 200 goto fail_unmapregs; 201 } 202 203 if (bus_space_subregion(sc->sc_bustag, sc->sc_regh, 204 PPC_REG_OFFSET, PPC_REG_LEN, &sc->sc_ppch) != 0) { 205 printf(": can't map dtr regs\n"); 206 goto fail_unmapregs; 207 } 208 209 sc->sc_ppcih = bus_intr_establish(sa->sa_bustag, 210 sa->sa_intr[PARALLEL_INTR].oi_pri, IPL_SERIAL, spif_ppcintr, sc); 211 if (sc->sc_ppcih == NULL) { 212 printf(": failed to establish ppc interrupt\n"); 213 goto fail_unmapregs; 214 } 215 216 sc->sc_stcih = bus_intr_establish(sa->sa_bustag, 217 sa->sa_intr[SERIAL_INTR].oi_pri, IPL_SERIAL, spif_stcintr, sc); 218 if (sc->sc_stcih == NULL) { 219 printf(": failed to establish stc interrupt\n"); 220 goto fail_unmapregs; 221 } 222 223 sc->sc_softih = softint_establish(SOFTINT_SERIAL, spif_softintr, sc); 224 if (sc->sc_softih == NULL) { 225 printf(": can't get soft intr\n"); 226 goto fail_unmapregs; 227 } 228 229 sc->sc_node = sa->sa_node; 230 231 sc->sc_rev = prom_getpropint(sc->sc_node, "revlev", 0); 232 233 sc->sc_osc = prom_getpropint(sc->sc_node, "verosc", 0); 234 switch (sc->sc_osc) { 235 case SPIF_OSC10: 236 sc->sc_osc = 10000000; 237 break; 238 case SPIF_OSC9: 239 default: 240 sc->sc_osc = 9830400; 241 break; 242 } 243 244 sc->sc_nser = 8; 245 sc->sc_npar = 1; 246 247 sc->sc_rev2 = STC_READ(sc, STC_GFRCR); 248 STC_WRITE(sc, STC_GSVR, 0); 249 250 stty_write_ccr(sc, CD180_CCR_CMD_RESET | CD180_CCR_RESETALL); 251 while (STC_READ(sc, STC_GSVR) != 0xff); 252 while (STC_READ(sc, STC_GFRCR) != sc->sc_rev2); 253 254 STC_WRITE(sc, STC_PPRH, CD180_PPRH); 255 STC_WRITE(sc, STC_PPRL, CD180_PPRL); 256 STC_WRITE(sc, STC_MSMR, SPIF_MSMR); 257 STC_WRITE(sc, STC_TSMR, SPIF_TSMR); 258 STC_WRITE(sc, STC_RSMR, SPIF_RSMR); 259 STC_WRITE(sc, STC_GSVR, 0); 260 STC_WRITE(sc, STC_GSCR1, 0); 261 STC_WRITE(sc, STC_GSCR2, 0); 262 STC_WRITE(sc, STC_GSCR3, 0); 263 264 printf(": rev %x chiprev %x osc %sMHz\n", 265 sc->sc_rev, sc->sc_rev2, clockfreq(sc->sc_osc)); 266 267 (void)config_found(self, stty_match, NULL); 268 (void)config_found(self, sbpp_match, NULL); 269 270 return; 271 272 fail_unmapregs: 273 bus_space_unmap(sa->sa_bustag, sc->sc_regh, sa->sa_size); 274 } 275 276 int 277 stty_match(parent, vcf, aux) 278 struct device *parent; 279 struct cfdata *vcf; 280 void *aux; 281 { 282 struct spif_softc *sc = (struct spif_softc *)parent; 283 284 return (aux == stty_match && sc->sc_ttys == NULL); 285 } 286 287 void 288 stty_attach(parent, dev, aux) 289 struct device *parent, *dev; 290 void *aux; 291 { 292 struct spif_softc *sc = (struct spif_softc *)parent; 293 struct stty_softc *ssc = (struct stty_softc *)dev; 294 int port; 295 296 sc->sc_ttys = ssc; 297 298 for (port = 0; port < sc->sc_nser; port++) { 299 struct stty_port *sp = &ssc->sc_port[port]; 300 struct tty *tp; 301 302 DTR_WRITE(sc, port, 0); 303 304 tp = ttymalloc(); 305 306 tp->t_oproc = stty_start; 307 tp->t_param = stty_param; 308 309 sp->sp_tty = tp; 310 sp->sp_sc = sc; 311 sp->sp_channel = port; 312 313 sp->sp_rbuf = malloc(STTY_RBUF_SIZE, M_DEVBUF, M_NOWAIT); 314 if(sp->sp_rbuf == NULL) 315 break; 316 317 sp->sp_rend = sp->sp_rbuf + STTY_RBUF_SIZE; 318 } 319 320 ssc->sc_nports = port; 321 322 printf(": %d tty%s\n", port, port == 1 ? "" : "s"); 323 } 324 325 int 326 stty_open(dev, flags, mode, l) 327 dev_t dev; 328 int flags; 329 int mode; 330 struct lwp *l; 331 { 332 struct spif_softc *csc; 333 struct stty_softc *sc; 334 struct stty_port *sp; 335 struct tty *tp; 336 int card = SPIF_CARD(dev); 337 int port = SPIF_PORT(dev); 338 339 if (card >= stty_cd.cd_ndevs || card >= spif_cd.cd_ndevs) 340 return (ENXIO); 341 342 sc = stty_cd.cd_devs[card]; 343 csc = spif_cd.cd_devs[card]; 344 if (sc == NULL || csc == NULL) 345 return (ENXIO); 346 347 if (port >= sc->sc_nports) 348 return (ENXIO); 349 350 sp = &sc->sc_port[port]; 351 tp = sp->sp_tty; 352 tp->t_dev = dev; 353 354 if (kauth_authorize_device_tty(l->l_cred, KAUTH_DEVICE_TTY_OPEN, tp)) 355 return (EBUSY); 356 357 mutex_spin_enter(&tty_lock); 358 if (!ISSET(tp->t_state, TS_ISOPEN) && tp->t_wopen == 0) { 359 ttychars(tp); 360 tp->t_iflag = TTYDEF_IFLAG; 361 tp->t_oflag = TTYDEF_OFLAG; 362 tp->t_cflag = TTYDEF_CFLAG; 363 if (ISSET(sp->sp_openflags, TIOCFLAG_CLOCAL)) 364 SET(tp->t_cflag, CLOCAL); 365 if (ISSET(sp->sp_openflags, TIOCFLAG_CRTSCTS)) 366 SET(tp->t_cflag, CRTSCTS); 367 if (ISSET(sp->sp_openflags, TIOCFLAG_MDMBUF)) 368 SET(tp->t_cflag, MDMBUF); 369 tp->t_lflag = TTYDEF_LFLAG; 370 tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED; 371 372 sp->sp_rput = sp->sp_rget = sp->sp_rbuf; 373 374 STC_WRITE(csc, STC_CAR, sp->sp_channel); 375 stty_write_ccr(csc, CD180_CCR_CMD_RESET|CD180_CCR_RESETCHAN); 376 STC_WRITE(csc, STC_CAR, sp->sp_channel); 377 378 stty_param(tp, &tp->t_termios); 379 380 ttsetwater(tp); 381 382 STC_WRITE(csc, STC_SRER, CD180_SRER_CD | CD180_SRER_RXD); 383 384 if (ISSET(sp->sp_openflags, TIOCFLAG_SOFTCAR) || sp->sp_carrier) 385 SET(tp->t_state, TS_CARR_ON); 386 else 387 CLR(tp->t_state, TS_CARR_ON); 388 } 389 390 if (!ISSET(flags, O_NONBLOCK)) { 391 while (!ISSET(tp->t_cflag, CLOCAL) && 392 !ISSET(tp->t_state, TS_CARR_ON)) { 393 int error; 394 error = ttysleep(tp, &tp->t_rawq.c_cv, true, 0); 395 if (error != 0) { 396 mutex_spin_exit(&tty_lock); 397 return (error); 398 } 399 } 400 } 401 mutex_spin_exit(&tty_lock); 402 403 return ((*tp->t_linesw->l_open)(dev, tp)); 404 } 405 406 int 407 stty_close(dev, flags, mode, l) 408 dev_t dev; 409 int flags; 410 int mode; 411 struct lwp *l; 412 { 413 struct stty_softc *sc = stty_cd.cd_devs[SPIF_CARD(dev)]; 414 struct stty_port *sp = &sc->sc_port[SPIF_PORT(dev)]; 415 struct spif_softc *csc = sp->sp_sc; 416 struct tty *tp = sp->sp_tty; 417 int port = SPIF_PORT(dev); 418 int s; 419 420 (*tp->t_linesw->l_close)(tp, flags); 421 s = spltty(); 422 423 if (ISSET(tp->t_cflag, HUPCL) || !ISSET(tp->t_state, TS_ISOPEN)) { 424 stty_modem_control(sp, 0, DMSET); 425 STC_WRITE(csc, STC_CAR, port); 426 STC_WRITE(csc, STC_CCR, 427 CD180_CCR_CMD_RESET|CD180_CCR_RESETCHAN); 428 } 429 430 splx(s); 431 ttyclose(tp); 432 return (0); 433 } 434 435 int 436 stty_ioctl(dev, cmd, data, flags, l) 437 dev_t dev; 438 u_long cmd; 439 void *data; 440 int flags; 441 struct lwp *l; 442 { 443 struct stty_softc *stc = stty_cd.cd_devs[SPIF_CARD(dev)]; 444 struct stty_port *sp = &stc->sc_port[SPIF_PORT(dev)]; 445 struct spif_softc *sc = sp->sp_sc; 446 struct tty *tp = sp->sp_tty; 447 int error; 448 449 error = (*tp->t_linesw->l_ioctl)(tp, cmd, data, flags, l); 450 if (error >= 0) 451 return (error); 452 453 error = ttioctl(tp, cmd, data, flags, l); 454 if (error >= 0) 455 return (error); 456 457 error = 0; 458 459 switch (cmd) { 460 case TIOCSBRK: 461 SET(sp->sp_flags, STTYF_SET_BREAK); 462 STC_WRITE(sc, STC_CAR, sp->sp_channel); 463 STC_WRITE(sc, STC_SRER, 464 STC_READ(sc, STC_SRER) | CD180_SRER_TXD); 465 break; 466 case TIOCCBRK: 467 SET(sp->sp_flags, STTYF_CLR_BREAK); 468 STC_WRITE(sc, STC_CAR, sp->sp_channel); 469 STC_WRITE(sc, STC_SRER, 470 STC_READ(sc, STC_SRER) | CD180_SRER_TXD); 471 break; 472 case TIOCSDTR: 473 stty_modem_control(sp, TIOCM_DTR, DMBIS); 474 break; 475 case TIOCCDTR: 476 stty_modem_control(sp, TIOCM_DTR, DMBIC); 477 break; 478 case TIOCMBIS: 479 stty_modem_control(sp, *((int *)data), DMBIS); 480 break; 481 case TIOCMBIC: 482 stty_modem_control(sp, *((int *)data), DMBIC); 483 break; 484 case TIOCMGET: 485 *((int *)data) = stty_modem_control(sp, 0, DMGET); 486 break; 487 case TIOCMSET: 488 stty_modem_control(sp, *((int *)data), DMSET); 489 break; 490 case TIOCGFLAGS: 491 *((int *)data) = sp->sp_openflags; 492 break; 493 case TIOCSFLAGS: 494 if (kauth_authorize_device_tty(l->l_cred, 495 KAUTH_DEVICE_TTY_PRIVSET, tp)) 496 error = EPERM; 497 else 498 sp->sp_openflags = *((int *)data) & 499 (TIOCFLAG_SOFTCAR | TIOCFLAG_CLOCAL | 500 TIOCFLAG_CRTSCTS | TIOCFLAG_MDMBUF); 501 break; 502 default: 503 error = ENOTTY; 504 } 505 506 return (error); 507 } 508 509 int 510 stty_modem_control(sp, bits, how) 511 struct stty_port *sp; 512 int bits, how; 513 { 514 struct spif_softc *csc = sp->sp_sc; 515 struct tty *tp = sp->sp_tty; 516 int s, msvr; 517 518 s = spltty(); 519 STC_WRITE(csc, STC_CAR, sp->sp_channel); 520 521 switch (how) { 522 case DMGET: 523 bits = TIOCM_LE; 524 if (DTR_READ(csc, sp->sp_channel)) 525 bits |= TIOCM_DTR; 526 msvr = STC_READ(csc, STC_MSVR); 527 if (ISSET(msvr, CD180_MSVR_DSR)) 528 bits |= TIOCM_DSR; 529 if (ISSET(msvr, CD180_MSVR_CD)) 530 bits |= TIOCM_CD; 531 if (ISSET(msvr, CD180_MSVR_CTS)) 532 bits |= TIOCM_CTS; 533 if (ISSET(msvr, CD180_MSVR_RTS)) 534 bits |= TIOCM_RTS; 535 break; 536 case DMSET: 537 DTR_WRITE(csc, sp->sp_channel, ISSET(bits, TIOCM_DTR) ? 1 : 0); 538 if (ISSET(bits, TIOCM_RTS)) 539 STC_WRITE(csc, STC_MSVR, 540 STC_READ(csc, STC_MSVR) & (~CD180_MSVR_RTS)); 541 else 542 STC_WRITE(csc, STC_MSVR, 543 STC_READ(csc, STC_MSVR) | CD180_MSVR_RTS); 544 break; 545 case DMBIS: 546 if (ISSET(bits, TIOCM_DTR)) 547 DTR_WRITE(csc, sp->sp_channel, 1); 548 if (ISSET(bits, TIOCM_RTS) && !ISSET(tp->t_cflag, CRTSCTS)) 549 STC_WRITE(csc, STC_MSVR, 550 STC_READ(csc, STC_MSVR) & (~CD180_MSVR_RTS)); 551 break; 552 case DMBIC: 553 if (ISSET(bits, TIOCM_DTR)) 554 DTR_WRITE(csc, sp->sp_channel, 0); 555 if (ISSET(bits, TIOCM_RTS)) 556 STC_WRITE(csc, STC_MSVR, 557 STC_READ(csc, STC_MSVR) | CD180_MSVR_RTS); 558 break; 559 } 560 561 splx(s); 562 return (bits); 563 } 564 565 int 566 stty_param(tp, t) 567 struct tty *tp; 568 struct termios *t; 569 { 570 struct stty_softc *st = stty_cd.cd_devs[SPIF_CARD(tp->t_dev)]; 571 struct stty_port *sp = &st->sc_port[SPIF_PORT(tp->t_dev)]; 572 struct spif_softc *sc = sp->sp_sc; 573 u_int8_t rbprl, rbprh, tbprl, tbprh; 574 int s, opt; 575 576 if (t->c_ospeed && 577 stty_compute_baud(t->c_ospeed, sc->sc_osc, &tbprl, &tbprh)) 578 return (EINVAL); 579 580 if (t->c_ispeed && 581 stty_compute_baud(t->c_ispeed, sc->sc_osc, &rbprl, &rbprh)) 582 return (EINVAL); 583 584 s = spltty(); 585 586 /* hang up line if ospeed is zero, otherwise raise DTR */ 587 stty_modem_control(sp, TIOCM_DTR, 588 (t->c_ospeed == 0 ? DMBIC : DMBIS)); 589 590 STC_WRITE(sc, STC_CAR, sp->sp_channel); 591 592 opt = 0; 593 if (ISSET(t->c_cflag, PARENB)) { 594 opt |= CD180_COR1_PARMODE_NORMAL; 595 opt |= (ISSET(t->c_cflag, PARODD) ? 596 CD180_COR1_ODDPAR : 597 CD180_COR1_EVENPAR); 598 } 599 else 600 opt |= CD180_COR1_PARMODE_NO; 601 602 if (!ISSET(t->c_iflag, INPCK)) 603 opt |= CD180_COR1_IGNPAR; 604 605 if (ISSET(t->c_cflag, CSTOPB)) 606 opt |= CD180_COR1_STOP2; 607 608 switch (t->c_cflag & CSIZE) { 609 case CS5: 610 opt |= CD180_COR1_CS5; 611 break; 612 case CS6: 613 opt |= CD180_COR1_CS6; 614 break; 615 case CS7: 616 opt |= CD180_COR1_CS7; 617 break; 618 default: 619 opt |= CD180_COR1_CS8; 620 break; 621 } 622 STC_WRITE(sc, STC_COR1, opt); 623 stty_write_ccr(sc, CD180_CCR_CMD_COR|CD180_CCR_CORCHG1); 624 625 opt = CD180_COR2_ETC; 626 if (ISSET(t->c_cflag, CRTSCTS)) 627 opt |= CD180_COR2_CTSAE; 628 STC_WRITE(sc, STC_COR2, opt); 629 stty_write_ccr(sc, CD180_CCR_CMD_COR|CD180_CCR_CORCHG2); 630 631 STC_WRITE(sc, STC_COR3, STTY_RX_FIFO_THRESHOLD); 632 stty_write_ccr(sc, CD180_CCR_CMD_COR|CD180_CCR_CORCHG3); 633 634 STC_WRITE(sc, STC_SCHR1, 0x11); 635 STC_WRITE(sc, STC_SCHR2, 0x13); 636 STC_WRITE(sc, STC_SCHR3, 0x11); 637 STC_WRITE(sc, STC_SCHR4, 0x13); 638 STC_WRITE(sc, STC_RTPR, 0x12); 639 640 STC_WRITE(sc, STC_MCOR1, CD180_MCOR1_CDZD | STTY_RX_DTR_THRESHOLD); 641 STC_WRITE(sc, STC_MCOR2, CD180_MCOR2_CDOD); 642 STC_WRITE(sc, STC_MCR, 0); 643 644 if (t->c_ospeed) { 645 STC_WRITE(sc, STC_TBPRH, tbprh); 646 STC_WRITE(sc, STC_TBPRL, tbprl); 647 } 648 649 if (t->c_ispeed) { 650 STC_WRITE(sc, STC_RBPRH, rbprh); 651 STC_WRITE(sc, STC_RBPRL, rbprl); 652 } 653 654 stty_write_ccr(sc, CD180_CCR_CMD_CHAN | 655 CD180_CCR_CHAN_TXEN | CD180_CCR_CHAN_RXEN); 656 657 sp->sp_carrier = STC_READ(sc, STC_MSVR) & CD180_MSVR_CD; 658 659 splx(s); 660 return (0); 661 } 662 663 int 664 stty_read(dev, uio, flags) 665 dev_t dev; 666 struct uio *uio; 667 int flags; 668 { 669 struct stty_softc *sc = stty_cd.cd_devs[SPIF_CARD(dev)]; 670 struct stty_port *sp = &sc->sc_port[SPIF_PORT(dev)]; 671 struct tty *tp = sp->sp_tty; 672 673 return ((*tp->t_linesw->l_read)(tp, uio, flags)); 674 } 675 676 int 677 stty_write(dev, uio, flags) 678 dev_t dev; 679 struct uio *uio; 680 int flags; 681 { 682 struct stty_softc *sc = stty_cd.cd_devs[SPIF_CARD(dev)]; 683 struct stty_port *sp = &sc->sc_port[SPIF_PORT(dev)]; 684 struct tty *tp = sp->sp_tty; 685 686 return ((*tp->t_linesw->l_write)(tp, uio, flags)); 687 } 688 689 int 690 stty_poll(dev, events, l) 691 dev_t dev; 692 int events; 693 struct lwp *l; 694 { 695 struct stty_softc *sc = stty_cd.cd_devs[SPIF_CARD(dev)]; 696 struct stty_port *sp = &sc->sc_port[SPIF_PORT(dev)]; 697 struct tty *tp = sp->sp_tty; 698 699 return ((*tp->t_linesw->l_poll)(tp, events, l)); 700 } 701 702 struct tty * 703 stty_tty(dev) 704 dev_t dev; 705 { 706 struct stty_softc *sc = stty_cd.cd_devs[SPIF_CARD(dev)]; 707 struct stty_port *sp = &sc->sc_port[SPIF_PORT(dev)]; 708 709 return (sp->sp_tty); 710 } 711 712 void 713 stty_stop(tp, flags) 714 struct tty *tp; 715 int flags; 716 { 717 struct stty_softc *sc = stty_cd.cd_devs[SPIF_CARD(tp->t_dev)]; 718 struct stty_port *sp = &sc->sc_port[SPIF_PORT(tp->t_dev)]; 719 int s; 720 721 s = spltty(); 722 if (ISSET(tp->t_state, TS_BUSY)) { 723 if (!ISSET(tp->t_state, TS_TTSTOP)) 724 SET(tp->t_state, TS_FLUSH); 725 SET(sp->sp_flags, STTYF_STOP); 726 } 727 splx(s); 728 } 729 730 void 731 stty_start(tp) 732 struct tty *tp; 733 { 734 struct stty_softc *stc = stty_cd.cd_devs[SPIF_CARD(tp->t_dev)]; 735 struct stty_port *sp = &stc->sc_port[SPIF_PORT(tp->t_dev)]; 736 struct spif_softc *sc = sp->sp_sc; 737 int s; 738 739 s = spltty(); 740 741 if (!ISSET(tp->t_state, TS_TTSTOP | TS_TIMEOUT | TS_BUSY)) { 742 if (tp->t_outq.c_cc <= tp->t_lowat) { 743 if (ISSET(tp->t_state, TS_ASLEEP)) { 744 CLR(tp->t_state, TS_ASLEEP); 745 wakeup(&tp->t_outq); 746 } 747 selwakeup(&tp->t_wsel); 748 } 749 if (tp->t_outq.c_cc) { 750 sp->sp_txc = ndqb(&tp->t_outq, 0); 751 sp->sp_txp = tp->t_outq.c_cf; 752 SET(tp->t_state, TS_BUSY); 753 STC_WRITE(sc, STC_CAR, sp->sp_channel); 754 STC_WRITE(sc, STC_SRER, 755 STC_READ(sc, STC_SRER) | CD180_SRER_TXD); 756 } 757 } 758 759 splx(s); 760 } 761 762 int 763 spif_stcintr_rxexception(sc, needsoftp) 764 struct spif_softc *sc; 765 int *needsoftp; 766 { 767 struct stty_port *sp; 768 u_int8_t channel, *ptr; 769 770 channel = CD180_GSCR_CHANNEL(STC_READ(sc, STC_GSCR1)); 771 sp = &sc->sc_ttys->sc_port[channel]; 772 ptr = sp->sp_rput; 773 *ptr++ = STC_READ(sc, STC_RCSR); 774 *ptr++ = STC_READ(sc, STC_RDR); 775 if (ptr == sp->sp_rend) 776 ptr = sp->sp_rbuf; 777 if (ptr == sp->sp_rget) { 778 if (ptr == sp->sp_rbuf) 779 ptr = sp->sp_rend; 780 ptr -= 2; 781 SET(sp->sp_flags, STTYF_RING_OVERFLOW); 782 } 783 STC_WRITE(sc, STC_EOSRR, 0); 784 *needsoftp = 1; 785 sp->sp_rput = ptr; 786 return (1); 787 } 788 789 int 790 spif_stcintr_rx(sc, needsoftp) 791 struct spif_softc *sc; 792 int *needsoftp; 793 { 794 struct stty_port *sp; 795 u_int8_t channel, *ptr, cnt, rcsr; 796 int i; 797 798 channel = CD180_GSCR_CHANNEL(STC_READ(sc, STC_GSCR1)); 799 sp = &sc->sc_ttys->sc_port[channel]; 800 ptr = sp->sp_rput; 801 cnt = STC_READ(sc, STC_RDCR); 802 for (i = 0; i < cnt; i++) { 803 *ptr++ = 0; 804 rcsr = STC_READ(sc, STC_RCSR); 805 *ptr++ = STC_READ(sc, STC_RDR); 806 if (ptr == sp->sp_rend) 807 ptr = sp->sp_rbuf; 808 if (ptr == sp->sp_rget) { 809 if (ptr == sp->sp_rbuf) 810 ptr = sp->sp_rend; 811 ptr -= 2; 812 SET(sp->sp_flags, STTYF_RING_OVERFLOW); 813 break; 814 } 815 } 816 STC_WRITE(sc, STC_EOSRR, 0); 817 if (cnt) { 818 *needsoftp = 1; 819 sp->sp_rput = ptr; 820 } 821 return (1); 822 } 823 824 int 825 spif_stcintr_tx(sc, needsoftp) 826 struct spif_softc *sc; 827 int *needsoftp; 828 { 829 struct stty_port *sp; 830 u_int8_t channel, ch; 831 int cnt = 0; 832 833 channel = CD180_GSCR_CHANNEL(STC_READ(sc, STC_GSCR1)); 834 sp = &sc->sc_ttys->sc_port[channel]; 835 if (!ISSET(sp->sp_flags, STTYF_STOP)) { 836 if (ISSET(sp->sp_flags, STTYF_SET_BREAK)) { 837 STC_WRITE(sc, STC_TDR, 0); 838 STC_WRITE(sc, STC_TDR, 0x81); 839 CLR(sp->sp_flags, STTYF_SET_BREAK); 840 cnt += 2; 841 } 842 if (ISSET(sp->sp_flags, STTYF_CLR_BREAK)) { 843 STC_WRITE(sc, STC_TDR, 0); 844 STC_WRITE(sc, STC_TDR, 0x83); 845 CLR(sp->sp_flags, STTYF_CLR_BREAK); 846 cnt += 2; 847 } 848 849 while (sp->sp_txc > 0 && cnt < (CD180_TX_FIFO_SIZE-1)) { 850 ch = *sp->sp_txp; 851 sp->sp_txc--; 852 sp->sp_txp++; 853 854 if (ch == 0) { 855 STC_WRITE(sc, STC_TDR, ch); 856 cnt++; 857 } 858 STC_WRITE(sc, STC_TDR, ch); 859 cnt++; 860 } 861 } 862 863 if (sp->sp_txc == 0 || 864 ISSET(sp->sp_flags, STTYF_STOP)) { 865 STC_WRITE(sc, STC_SRER, STC_READ(sc, STC_SRER) & 866 (~CD180_SRER_TXD)); 867 CLR(sp->sp_flags, STTYF_STOP); 868 SET(sp->sp_flags, STTYF_DONE); 869 *needsoftp = 1; 870 } 871 872 STC_WRITE(sc, STC_EOSRR, 0); 873 874 return (1); 875 } 876 877 int 878 spif_stcintr_mx(sc, needsoftp) 879 struct spif_softc *sc; 880 int *needsoftp; 881 { 882 struct stty_port *sp; 883 u_int8_t channel, mcr; 884 885 channel = CD180_GSCR_CHANNEL(STC_READ(sc, STC_GSCR1)); 886 sp = &sc->sc_ttys->sc_port[channel]; 887 mcr = STC_READ(sc, STC_MCR); 888 if (mcr & CD180_MCR_CD) { 889 SET(sp->sp_flags, STTYF_CDCHG); 890 *needsoftp = 1; 891 } 892 STC_WRITE(sc, STC_MCR, 0); 893 STC_WRITE(sc, STC_EOSRR, 0); 894 return (1); 895 } 896 897 int 898 spif_stcintr(vsc) 899 void *vsc; 900 { 901 struct spif_softc *sc = (struct spif_softc *)vsc; 902 int needsoft = 0, r = 0, i; 903 u_int8_t ar; 904 905 for (i = 0; i < 8; i++) { 906 ar = ISTC_READ(sc, STC_RRAR) & CD180_GSVR_IMASK; 907 if (ar == CD180_GSVR_RXGOOD) 908 r |= spif_stcintr_rx(sc, &needsoft); 909 else if (ar == CD180_GSVR_RXEXCEPTION) 910 r |= spif_stcintr_rxexception(sc, &needsoft); 911 } 912 913 for (i = 0; i < 8; i++) { 914 ar = ISTC_READ(sc, STC_TRAR) & CD180_GSVR_IMASK; 915 if (ar == CD180_GSVR_TXDATA) 916 r |= spif_stcintr_tx(sc, &needsoft); 917 } 918 919 for (i = 0; i < 8; i++) { 920 ar = ISTC_READ(sc, STC_MRAR) & CD180_GSVR_IMASK; 921 if (ar == CD180_GSVR_STATCHG) 922 r |= spif_stcintr_mx(sc, &needsoft); 923 } 924 925 if (needsoft) 926 softint_schedule(sc->sc_softih); 927 return (r); 928 } 929 930 void 931 spif_softintr(vsc) 932 void *vsc; 933 { 934 struct spif_softc *sc = (struct spif_softc *)vsc; 935 struct stty_softc *stc = sc->sc_ttys; 936 int r = 0, i, data, s, flags; 937 u_int8_t stat, msvr; 938 struct stty_port *sp; 939 struct tty *tp; 940 941 if (stc != NULL) { 942 for (i = 0; i < stc->sc_nports; i++) { 943 sp = &stc->sc_port[i]; 944 tp = sp->sp_tty; 945 946 if (!ISSET(tp->t_state, TS_ISOPEN)) 947 continue; 948 949 while (sp->sp_rget != sp->sp_rput) { 950 stat = sp->sp_rget[0]; 951 data = sp->sp_rget[1]; 952 sp->sp_rget += 2; 953 if (sp->sp_rget == sp->sp_rend) 954 sp->sp_rget = sp->sp_rbuf; 955 956 if (stat & (CD180_RCSR_BE | CD180_RCSR_FE)) 957 data |= TTY_FE; 958 959 if (stat & CD180_RCSR_PE) 960 data |= TTY_PE; 961 962 (*tp->t_linesw->l_rint)(data, tp); 963 r = 1; 964 } 965 966 s = splhigh(); 967 flags = sp->sp_flags; 968 CLR(sp->sp_flags, STTYF_DONE | STTYF_CDCHG | 969 STTYF_RING_OVERFLOW); 970 splx(s); 971 972 if (ISSET(flags, STTYF_CDCHG)) { 973 s = spltty(); 974 STC_WRITE(sc, STC_CAR, i); 975 msvr = STC_READ(sc, STC_MSVR); 976 splx(s); 977 978 sp->sp_carrier = msvr & CD180_MSVR_CD; 979 (*tp->t_linesw->l_modem)(tp, 980 sp->sp_carrier); 981 r = 1; 982 } 983 984 if (ISSET(flags, STTYF_RING_OVERFLOW)) { 985 log(LOG_WARNING, "%s-%x: ring overflow\n", 986 stc->sc_dev.dv_xname, i); 987 r = 1; 988 } 989 990 if (ISSET(flags, STTYF_DONE)) { 991 ndflush(&tp->t_outq, 992 sp->sp_txp - tp->t_outq.c_cf); 993 CLR(tp->t_state, TS_BUSY); 994 (*tp->t_linesw->l_start)(tp); 995 r = 1; 996 } 997 } 998 } 999 } 1000 1001 void 1002 stty_write_ccr(sc, val) 1003 struct spif_softc *sc; 1004 u_int8_t val; 1005 { 1006 int tries = 100000; 1007 1008 while (STC_READ(sc, STC_CCR) && tries--) 1009 /*EMPTY*/; 1010 if (tries == 0) 1011 printf("%s: ccr timeout\n", sc->sc_dev.dv_xname); 1012 STC_WRITE(sc, STC_CCR, val); 1013 } 1014 1015 int 1016 stty_compute_baud(speed, clock, bprlp, bprhp) 1017 speed_t speed; 1018 int clock; 1019 u_int8_t *bprlp, *bprhp; 1020 { 1021 u_int32_t rate; 1022 1023 rate = (2 * clock) / (16 * speed); 1024 if (rate & 1) 1025 rate = (rate >> 1) + 1; 1026 else 1027 rate = rate >> 1; 1028 1029 if (rate > 0xffff || rate == 0) 1030 return (1); 1031 1032 *bprlp = rate & 0xff; 1033 *bprhp = (rate >> 8) & 0xff; 1034 return (0); 1035 } 1036 1037 int 1038 sbpp_match(parent, vcf, aux) 1039 struct device *parent; 1040 struct cfdata *vcf; 1041 void *aux; 1042 { 1043 struct spif_softc *sc = (struct spif_softc *)parent; 1044 1045 return (aux == sbpp_match && sc->sc_bpps == NULL); 1046 } 1047 1048 void 1049 sbpp_attach(parent, dev, aux) 1050 struct device *parent, *dev; 1051 void *aux; 1052 { 1053 struct spif_softc *sc = (struct spif_softc *)parent; 1054 struct sbpp_softc *psc = (struct sbpp_softc *)dev; 1055 int port; 1056 1057 sc->sc_bpps = psc; 1058 1059 for (port = 0; port < sc->sc_npar; port++) { 1060 } 1061 1062 psc->sc_nports = port; 1063 printf(": %d port%s\n", port, port == 1 ? "" : "s"); 1064 } 1065 1066 int 1067 sbpp_open(dev, flags, mode, l) 1068 dev_t dev; 1069 int flags; 1070 int mode; 1071 struct lwp *l; 1072 { 1073 return (ENXIO); 1074 } 1075 1076 int 1077 sbpp_close(dev, flags, mode, l) 1078 dev_t dev; 1079 int flags; 1080 int mode; 1081 struct lwp *l; 1082 { 1083 return (ENXIO); 1084 } 1085 1086 int 1087 spif_ppcintr(v) 1088 void *v; 1089 { 1090 return (0); 1091 } 1092 1093 int 1094 sbpp_read(dev, uio, flags) 1095 dev_t dev; 1096 struct uio *uio; 1097 int flags; 1098 { 1099 return (sbpp_rw(dev, uio)); 1100 } 1101 1102 int 1103 sbpp_write(dev, uio, flags) 1104 dev_t dev; 1105 struct uio *uio; 1106 int flags; 1107 { 1108 return (sbpp_rw(dev, uio)); 1109 } 1110 1111 int 1112 sbpp_rw(dev, uio) 1113 dev_t dev; 1114 struct uio *uio; 1115 { 1116 return (ENXIO); 1117 } 1118 1119 int 1120 sbpp_poll(dev, events, l) 1121 dev_t dev; 1122 int events; 1123 struct lwp *l; 1124 { 1125 return (seltrue(dev, events, l)); 1126 } 1127 1128 int 1129 sbpp_ioctl(dev, cmd, data, flags, l) 1130 dev_t dev; 1131 u_long cmd; 1132 void *data; 1133 int flags; 1134 struct lwp *l; 1135 { 1136 int error; 1137 1138 error = ENOTTY; 1139 1140 return (error); 1141 } 1142 1143 #endif /* NSPIF */ 1144
Indexes created Thu Sep 25 08:09:54 GMT 2025