si.c revision 164033
1139749Simp/*- 212496Speter * Device driver for Specialix range (SI/XIO) of serial line multiplexors. 310015Speter * 434832Speter * Copyright (C) 1990, 1992, 1998 Specialix International, 510015Speter * Copyright (C) 1993, Andy Rutter <andy@acronym.co.uk> 656505Speter * Copyright (C) 2000, Peter Wemm <peter@netplex.com.au> 710015Speter * 810015Speter * Originally derived from: SunOS 4.x version 910015Speter * Ported from BSDI version to FreeBSD by Peter Wemm. 1010015Speter * 1110015Speter * Redistribution and use in source and binary forms, with or without 1210015Speter * modification, are permitted provided that the following conditions 1310015Speter * are met: 1410015Speter * 1. Redistributions of source code must retain the above copyright 1510015Speter * notices, this list of conditions and the following disclaimer. 1610015Speter * 2. Redistributions in binary form must reproduce the above copyright 1710015Speter * notices, this list of conditions and the following disclaimer in the 1810015Speter * documentation and/or other materials provided with the distribution. 1910015Speter * 3. All advertising materials mentioning features or use of this software 2010015Speter * must display the following acknowledgement: 2110015Speter * This product includes software developed by Andy Rutter of 2210015Speter * Advanced Methods and Tools Ltd. based on original information 2310015Speter * from Specialix International. 2410015Speter * 4. Neither the name of Advanced Methods and Tools, nor Specialix 2510015Speter * International may be used to endorse or promote products derived from 2610015Speter * this software without specific prior written permission. 2710015Speter * 2810015Speter * THIS SOFTWARE IS PROVIDED BY ``AS IS'' AND ANY EXPRESS OR IMPLIED 2910015Speter * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 3010015Speter * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN 3110015Speter * NO EVENT SHALL THE AUTHORS BE LIABLE. 3210015Speter * 3310015Speter */ 3410015Speter 35119419Sobrien#include <sys/cdefs.h> 36119419Sobrien__FBSDID("$FreeBSD: head/sys/dev/si/si.c 164033 2006-11-06 13:42:10Z rwatson $"); 37119419Sobrien 3810015Speter#ifndef lint 3934832Speterstatic const char si_copyright1[] = "@(#) Copyright (C) Specialix International, 1990,1992,1998", 4034832Speter si_copyright2[] = "@(#) Copyright (C) Andy Rutter 1993", 4156505Speter si_copyright3[] = "@(#) Copyright (C) Peter Wemm 2000"; 4210015Speter#endif /* not lint */ 4310015Speter 4431778Seivind#include "opt_compat.h" 4532929Seivind#include "opt_debug_si.h" 46111899Sdas#include "opt_tty.h" 4731778Seivind 4810015Speter#include <sys/param.h> 4910015Speter#include <sys/systm.h> 50136058Sphk#include <sys/serial.h> 5110015Speter#include <sys/tty.h> 5210015Speter#include <sys/conf.h> 5324131Sbde#include <sys/fcntl.h> 5410015Speter#include <sys/kernel.h> 5510015Speter#include <sys/malloc.h> 56164033Srwatson#include <sys/priv.h> 5715683Speter#include <sys/sysctl.h> 5856498Speter#include <sys/bus.h> 5956498Speter#include <machine/bus.h> 6056498Speter#include <sys/rman.h> 6156498Speter#include <machine/resource.h> 6210015Speter 6310015Speter 6412659Sbde#include <vm/vm.h> 6512662Sdg#include <vm/pmap.h> 6612659Sbde 6713353Speter#include <machine/stdarg.h> 6810015Speter 6956498Speter#include <dev/si/sireg.h> 7056505Speter#include <dev/si/sivar.h> 7156498Speter#include <dev/si/si.h> 7256498Speter 7310015Speter/* 7410015Speter * This device driver is designed to interface the Specialix International 7534832Speter * SI, XIO and SX range of serial multiplexor cards to FreeBSD on an ISA, 7634832Speter * EISA or PCI bus machine. 7710015Speter * 7834832Speter * The controller is interfaced to the host via dual port RAM 7934832Speter * and an interrupt. 8033395Speter * 8134832Speter * The code for the Host 1 (very old ISA cards) has not been tested. 8210015Speter */ 8310015Speter 8417547Speter#define POLL /* turn on poller to scan for lost interrupts */ 8517547Speter#define REALPOLL /* on each poll, scan for work regardless */ 8617547Speter#define POLLHZ (hz/10) /* 10 times per second */ 8712496Speter#define SI_I_HIGH_WATER (TTYHOG - 2 * SI_BUFFERSIZE) 8834832Speter#define INT_COUNT 25000 /* max of 125 ints per second */ 8934832Speter#define JET_INT_COUNT 100 /* max of 100 ints per second */ 9015639Speter#define RXINT_COUNT 1 /* one rxint per 10 milliseconds */ 9110015Speter 9256498Speterstatic void si_command(struct si_port *, int, int); 93130585Sphkstatic int si_Sioctl(struct cdev *, u_long, caddr_t, int, struct thread *); 9456498Speterstatic void si_start(struct tty *); 9556498Speterstatic void si_stop(struct tty *, int); 9625047Sbdestatic timeout_t si_lstart; 9710015Speter 98136058Sphkstatic t_break_t sibreak; 99136058Sphkstatic t_close_t siclose; 100136058Sphkstatic t_modem_t simodem; 101136058Sphkstatic t_open_t siopen; 10256505Speter 10356498Speterstatic int siparam(struct tty *, struct termios *); 10410015Speter 10556498Speterstatic void si_modem_state(struct si_port *pp, struct tty *tp, int hi_ip); 10656498Speterstatic char * si_modulename(int host_type, int uart_type); 10710708Speter 108136058Sphkstatic struct cdevsw si_Scdevsw = { 109126080Sphk .d_version = D_VERSION, 110136058Sphk .d_ioctl = si_Sioctl, 111111815Sphk .d_name = "si", 112126080Sphk .d_flags = D_TTY | D_NEEDGIANT, 11338485Sbde}; 11412675Sjulian 11510962Speterstatic int si_Nports; 11610962Speterstatic int si_Nmodules; 11710962Speterstatic int si_debug = 0; /* data, not bss, so it's patchable */ 11810015Speter 11934832SpeterSYSCTL_INT(_machdep, OID_AUTO, si_debug, CTLFLAG_RW, &si_debug, 0, ""); 120100743SpeterTUNABLE_INT("machdep.si_debug", &si_debug); 12134832Speter 12256498Speterstatic int si_numunits; 12310044Speter 12456505Speterdevclass_t si_devclass; 12556498Speter 12612174Speter#ifndef B2000 /* not standard, but the hardware knows it. */ 12710015Speter# define B2000 2000 12810015Speter#endif 12910015Speterstatic struct speedtab bdrates[] = { 13050442Speter { B75, CLK75, }, /* 0x0 */ 13150442Speter { B110, CLK110, }, /* 0x1 */ 13250442Speter { B150, CLK150, }, /* 0x3 */ 13350442Speter { B300, CLK300, }, /* 0x4 */ 13450442Speter { B600, CLK600, }, /* 0x5 */ 13550442Speter { B1200, CLK1200, }, /* 0x6 */ 13650442Speter { B2000, CLK2000, }, /* 0x7 */ 13750442Speter { B2400, CLK2400, }, /* 0x8 */ 13850442Speter { B4800, CLK4800, }, /* 0x9 */ 13950442Speter { B9600, CLK9600, }, /* 0xb */ 14050442Speter { B19200, CLK19200, }, /* 0xc */ 14150442Speter { B38400, CLK38400, }, /* 0x2 (out of order!) */ 14250442Speter { B57600, CLK57600, }, /* 0xd */ 14350442Speter { B115200, CLK110, }, /* 0x1 (dupe!, 110 baud on "si") */ 14450442Speter { -1, -1 }, 14510015Speter}; 14610015Speter 14710015Speter 14810015Speter/* populated with approx character/sec rates - translated at card 14910015Speter * initialisation time to chars per tick of the clock */ 15010015Speterstatic int done_chartimes = 0; 15110015Speterstatic struct speedtab chartimes[] = { 15250442Speter { B75, 8, }, 15350442Speter { B110, 11, }, 15450442Speter { B150, 15, }, 15550442Speter { B300, 30, }, 15650442Speter { B600, 60, }, 15750442Speter { B1200, 120, }, 15850442Speter { B2000, 200, }, 15950442Speter { B2400, 240, }, 16050442Speter { B4800, 480, }, 16150442Speter { B9600, 960, }, 16250442Speter { B19200, 1920, }, 16350442Speter { B38400, 3840, }, 16450442Speter { B57600, 5760, }, 16550442Speter { B115200, 11520, }, 16650442Speter { -1, -1 }, 16710015Speter}; 16810015Speterstatic volatile int in_intr = 0; /* Inside interrupt handler? */ 16910015Speter 17010015Speter#ifdef POLL 17115683Speterstatic int si_pollrate; /* in addition to irq */ 17256498Speterstatic int si_realpoll = 0; /* poll HW on timer */ 17315639Speter 17416403SpeterSYSCTL_INT(_machdep, OID_AUTO, si_pollrate, CTLFLAG_RW, &si_pollrate, 0, ""); 17517547SpeterSYSCTL_INT(_machdep, OID_AUTO, si_realpoll, CTLFLAG_RW, &si_realpoll, 0, ""); 17650442Speter 17710015Speterstatic int init_finished = 0; 17856498Speterstatic void si_poll(void *); 17910015Speter#endif 18010015Speter 18110015Speter/* 18210015Speter * Array of adapter types and the corresponding RAM size. The order of 18310015Speter * entries here MUST match the ordinal of the adapter type. 18410015Speter */ 185136058Sphkstatic const char *si_type[] = { 18610015Speter "EMPTY", 18710015Speter "SIHOST", 18834832Speter "SIMCA", /* FreeBSD does not support Microchannel */ 18910015Speter "SIHOST2", 19010015Speter "SIEISA", 19133395Speter "SIPCI", 19233395Speter "SXPCI", 19333395Speter "SXISA", 19410015Speter}; 19510015Speter 19656498Speter/* 19756498Speter * We have to make an 8 bit version of bcopy, since some cards can't 19856498Speter * deal with 32 bit I/O 19956498Speter */ 20056498Speterstatic void __inline 20156498Spetersi_bcopy(const void *src, void *dst, size_t len) 20256498Speter{ 203132771Skan u_char *d; 204132771Skan const u_char *s; 205132771Skan 206132771Skan d = dst; 207132771Skan s = src; 20856498Speter while (len--) 209132771Skan *d++ = *s++; 21056498Speter} 21156498Speterstatic void __inline 21256498Spetersi_vbcopy(const volatile void *src, void *dst, size_t len) 21356498Speter{ 214132771Skan u_char *d; 215132771Skan const volatile u_char *s; 216132771Skan 217132771Skan d = dst; 218132771Skan s = src; 21956498Speter while (len--) 220132771Skan *d++ = *s++; 22156498Speter} 22256498Speterstatic void __inline 22356498Spetersi_bcopyv(const void *src, volatile void *dst, size_t len) 22456498Speter{ 225132771Skan volatile u_char *d; 226132771Skan const u_char *s; 227132771Skan 228132771Skan d = dst; 229132771Skan s = src; 23056498Speter while (len--) 231132771Skan *d++ = *s++; 23256498Speter} 23356498Speter 23434832Speter/* 23510015Speter * Attach the device. Initialize the card. 23610015Speter */ 23756505Speterint 23856498Spetersiattach(device_t dev) 23910015Speter{ 24056498Speter int unit; 24156498Speter struct si_softc *sc; 24210015Speter struct si_port *pp; 243136058Sphk struct tty *tp; 24410015Speter volatile struct si_channel *ccbp; 24510015Speter volatile struct si_reg *regp; 24610015Speter volatile caddr_t maddr; 24710015Speter struct si_module *modp; 24810015Speter struct speedtab *spt; 24910015Speter int nmodule, nport, x, y; 25012174Speter int uart_type; 25110015Speter 25256498Speter sc = device_get_softc(dev); 25356498Speter unit = device_get_unit(dev); 25410015Speter 25556505Speter sc->sc_typename = si_type[sc->sc_type]; 25656505Speter if (si_numunits < unit + 1) 25756505Speter si_numunits = unit + 1; 25856505Speter 25956498Speter DPRINT((0, DBG_AUTOBOOT, "si%d: siattach\n", unit)); 26010015Speter 26156498Speter#ifdef POLL 26256498Speter if (si_pollrate == 0) { 26356498Speter si_pollrate = POLLHZ; /* in addition to irq */ 26456498Speter#ifdef REALPOLL 26556498Speter si_realpoll = 1; /* scan always */ 26656498Speter#endif 26756498Speter } 26856498Speter#endif 26956498Speter 27033395Speter DPRINT((0, DBG_AUTOBOOT, "si%d: type: %s paddr: %x maddr: %x\n", unit, 27133395Speter sc->sc_typename, sc->sc_paddr, sc->sc_maddr)); 27233395Speter 27310015Speter sc->sc_ports = NULL; /* mark as uninitialised */ 27410015Speter 27510015Speter maddr = sc->sc_maddr; 27610015Speter 27734832Speter /* Stop the CPU first so it won't stomp around while we load */ 27834832Speter 27934832Speter switch (sc->sc_type) { 28034832Speter case SIEISA: 28156498Speter outb(sc->sc_iobase + 2, sc->sc_irq << 4); 28234832Speter break; 28334832Speter case SIPCI: 28434832Speter *(maddr+SIPCIRESET) = 0; 28534832Speter break; 28634832Speter case SIJETPCI: /* fall through to JET ISA */ 28734832Speter case SIJETISA: 28834832Speter *(maddr+SIJETCONFIG) = 0; 28934832Speter break; 29034832Speter case SIHOST2: 29134832Speter *(maddr+SIPLRESET) = 0; 29234832Speter break; 29334832Speter case SIHOST: 29434832Speter *(maddr+SIRESET) = 0; 29534832Speter break; 29634832Speter default: /* this should never happen */ 29734832Speter printf("si%d: unsupported configuration\n", unit); 29856498Speter return EINVAL; 29934832Speter break; 30034832Speter } 30134832Speter 30234832Speter /* OK, now lets download the download code */ 30334832Speter 30436956Ssteve if (SI_ISJET(sc->sc_type)) { 30533395Speter DPRINT((0, DBG_DOWNLOAD, "si%d: jet_download: nbytes %d\n", 30656498Speter unit, si3_t225_dsize)); 30734832Speter si_bcopy(si3_t225_download, maddr + si3_t225_downloadaddr, 30834832Speter si3_t225_dsize); 30934832Speter DPRINT((0, DBG_DOWNLOAD, 31034832Speter "si%d: jet_bootstrap: nbytes %d -> %x\n", 31156498Speter unit, si3_t225_bsize, si3_t225_bootloadaddr)); 31234832Speter si_bcopy(si3_t225_bootstrap, maddr + si3_t225_bootloadaddr, 31334832Speter si3_t225_bsize); 31434832Speter } else { 31533395Speter DPRINT((0, DBG_DOWNLOAD, "si%d: si_download: nbytes %d\n", 31656498Speter unit, si2_z280_dsize)); 31734832Speter si_bcopy(si2_z280_download, maddr + si2_z280_downloadaddr, 31834832Speter si2_z280_dsize); 31933395Speter } 32010015Speter 32134832Speter /* Now start the CPU */ 32234832Speter 32310015Speter switch (sc->sc_type) { 32410015Speter case SIEISA: 32534832Speter /* modify the download code to tell it that it's on an EISA */ 32634832Speter *(maddr + 0x42) = 1; 32756498Speter outb(sc->sc_iobase + 2, (sc->sc_irq << 4) | 4); 32856498Speter (void)inb(sc->sc_iobase + 3); /* reset interrupt */ 32910015Speter break; 33033395Speter case SIPCI: 33134832Speter /* modify the download code to tell it that it's on a PCI */ 33233395Speter *(maddr+0x42) = 1; 33333395Speter *(maddr+SIPCIRESET) = 1; 33433395Speter *(maddr+SIPCIINTCL) = 0; 33533395Speter break; 33633395Speter case SIJETPCI: 33733395Speter *(maddr+SIJETRESET) = 0; 33833395Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN; 33933395Speter break; 34033395Speter case SIJETISA: 34133395Speter *(maddr+SIJETRESET) = 0; 34234832Speter switch (sc->sc_irq) { 34356498Speter case 9: 34434832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0x90; 34534832Speter break; 34656498Speter case 10: 34734832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xa0; 34834832Speter break; 34956498Speter case 11: 35034832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xb0; 35134832Speter break; 35256498Speter case 12: 35334832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xc0; 35434832Speter break; 35556498Speter case 15: 35634832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xf0; 35734832Speter break; 35834832Speter } 35933395Speter break; 36010015Speter case SIHOST: 36110015Speter *(maddr+SIRESET_CL) = 0; 36210015Speter *(maddr+SIINTCL_CL) = 0; 36310015Speter break; 36410015Speter case SIHOST2: 36510015Speter *(maddr+SIPLRESET) = 0x10; 36610015Speter switch (sc->sc_irq) { 36756498Speter case 11: 36810015Speter *(maddr+SIPLIRQ11) = 0x10; 36910015Speter break; 37056498Speter case 12: 37110015Speter *(maddr+SIPLIRQ12) = 0x10; 37210015Speter break; 37356498Speter case 15: 37410015Speter *(maddr+SIPLIRQ15) = 0x10; 37510015Speter break; 37610015Speter } 37710015Speter *(maddr+SIPLIRQCLR) = 0x10; 37810015Speter break; 37934832Speter default: /* this should _REALLY_ never happen */ 38034832Speter printf("si%d: Uh, it was supported a second ago...\n", unit); 38156498Speter return EINVAL; 38210015Speter } 38310015Speter 38410015Speter DELAY(1000000); /* wait around for a second */ 38510015Speter 38610015Speter regp = (struct si_reg *)maddr; 38710015Speter y = 0; 38810015Speter /* wait max of 5 sec for init OK */ 38910015Speter while (regp->initstat == 0 && y++ < 10) { 39010015Speter DELAY(500000); 39110015Speter } 39210015Speter switch (regp->initstat) { 39310015Speter case 0: 39410015Speter printf("si%d: startup timeout - aborting\n", unit); 39512174Speter sc->sc_type = SIEMPTY; 39656498Speter return EINVAL; 39710015Speter case 1: 39836956Ssteve if (SI_ISJET(sc->sc_type)) { 39934832Speter /* set throttle to 100 times per second */ 40034832Speter regp->int_count = JET_INT_COUNT; 40134832Speter /* rx_intr_count is a NOP in Jet */ 40234832Speter } else { 40334832Speter /* set throttle to 125 times per second */ 40434832Speter regp->int_count = INT_COUNT; 40534832Speter /* rx intr max of 25 times per second */ 40634832Speter regp->rx_int_count = RXINT_COUNT; 40734832Speter } 40810015Speter regp->int_pending = 0; /* no intr pending */ 40910015Speter regp->int_scounter = 0; /* reset counter */ 41010015Speter break; 41110015Speter case 0xff: 41210015Speter /* 41310015Speter * No modules found, so give up on this one. 41410015Speter */ 41510015Speter printf("si%d: %s - no ports found\n", unit, 41610015Speter si_type[sc->sc_type]); 41710015Speter return 0; 41810015Speter default: 41934832Speter printf("si%d: download code version error - initstat %x\n", 42010015Speter unit, regp->initstat); 42156498Speter return EINVAL; 42210015Speter } 42310015Speter 42410015Speter /* 42510015Speter * First time around the ports just count them in order 42610015Speter * to allocate some memory. 42710015Speter */ 42810015Speter nport = 0; 42910015Speter modp = (struct si_module *)(maddr + 0x80); 43010015Speter for (;;) { 43112174Speter DPRINT((0, DBG_DOWNLOAD, "si%d: ccb addr 0x%x\n", unit, modp)); 43234832Speter switch (modp->sm_type) { 43334832Speter case TA4: 43410015Speter DPRINT((0, DBG_DOWNLOAD, 43534832Speter "si%d: Found old TA4 module, 4 ports\n", 43634832Speter unit)); 43734832Speter x = 4; 43810015Speter break; 43934832Speter case TA8: 44034832Speter DPRINT((0, DBG_DOWNLOAD, 44134832Speter "si%d: Found old TA8 module, 8 ports\n", 44234832Speter unit)); 44334832Speter x = 8; 44434832Speter break; 44534832Speter case TA4_ASIC: 44634832Speter DPRINT((0, DBG_DOWNLOAD, 44734832Speter "si%d: Found ASIC TA4 module, 4 ports\n", 44834832Speter unit)); 44934832Speter x = 4; 45034832Speter break; 45134832Speter case TA8_ASIC: 45234832Speter DPRINT((0, DBG_DOWNLOAD, 45334832Speter "si%d: Found ASIC TA8 module, 8 ports\n", 45434832Speter unit)); 45534832Speter x = 8; 45634832Speter break; 45734832Speter case MTA: 45834832Speter DPRINT((0, DBG_DOWNLOAD, 45934832Speter "si%d: Found CD1400 module, 8 ports\n", 46034832Speter unit)); 46134832Speter x = 8; 46234832Speter break; 46334832Speter case SXDC: 46434832Speter DPRINT((0, DBG_DOWNLOAD, 46534832Speter "si%d: Found SXDC module, 8 ports\n", 46634832Speter unit)); 46734832Speter x = 8; 46834832Speter break; 46910015Speter default: 47010015Speter printf("si%d: unknown module type %d\n", 47110015Speter unit, modp->sm_type); 47234832Speter goto try_next; 47310015Speter } 47434832Speter 47534832Speter /* this was limited in firmware and is also a driver issue */ 47634832Speter if ((nport + x) > SI_MAXPORTPERCARD) { 47734832Speter printf("si%d: extra ports ignored\n", unit); 47834832Speter goto try_next; 47934832Speter } 48034832Speter 48134832Speter nport += x; 48234832Speter si_Nports += x; 48334832Speter si_Nmodules++; 48434832Speter 48534832Spetertry_next: 48610015Speter if (modp->sm_next == 0) 48710015Speter break; 48810015Speter modp = (struct si_module *) 48910015Speter (maddr + (unsigned)(modp->sm_next & 0x7fff)); 49010015Speter } 49110015Speter sc->sc_ports = (struct si_port *)malloc(sizeof(struct si_port) * nport, 49269781Sdwmalone M_DEVBUF, M_NOWAIT | M_ZERO); 49310015Speter if (sc->sc_ports == 0) { 49410015Speter printf("si%d: fail to malloc memory for port structs\n", 49510015Speter unit); 49656498Speter return EINVAL; 49710015Speter } 49810015Speter sc->sc_nport = nport; 49910015Speter 50010015Speter /* 50110015Speter * Scan round the ports again, this time initialising. 50210015Speter */ 50310015Speter pp = sc->sc_ports; 50410015Speter nmodule = 0; 50510015Speter modp = (struct si_module *)(maddr + 0x80); 50634832Speter uart_type = 1000; /* arbitary, > uchar_max */ 50710015Speter for (;;) { 50834832Speter switch (modp->sm_type) { 50934832Speter case TA4: 51034832Speter nport = 4; 51110015Speter break; 51234832Speter case TA8: 51334832Speter nport = 8; 51434832Speter break; 51534832Speter case TA4_ASIC: 51634832Speter nport = 4; 51734832Speter break; 51834832Speter case TA8_ASIC: 51934832Speter nport = 8; 52034832Speter break; 52134832Speter case MTA: 52234832Speter nport = 8; 52334832Speter break; 52434832Speter case SXDC: 52534832Speter nport = 8; 52634832Speter break; 52710015Speter default: 52834832Speter goto try_next2; 52910015Speter } 53034832Speter nmodule++; 53134832Speter ccbp = (struct si_channel *)((char *)modp + 0x100); 53234832Speter if (uart_type == 1000) 53334832Speter uart_type = ccbp->type; 53434832Speter else if (uart_type != ccbp->type) 53534832Speter printf("si%d: Warning: module %d mismatch! (%d%s != %d%s)\n", 53634832Speter unit, nmodule, 53734832Speter ccbp->type, si_modulename(sc->sc_type, ccbp->type), 53834832Speter uart_type, si_modulename(sc->sc_type, uart_type)); 53934832Speter 54034832Speter for (x = 0; x < nport; x++, pp++, ccbp++) { 54134832Speter pp->sp_ccb = ccbp; /* save the address */ 54234832Speter pp->sp_pend = IDLE_CLOSE; 54334832Speter pp->sp_state = 0; /* internal flag */ 544136058Sphk#ifdef SI_DEBUG 545154081Sjhb sprintf(pp->sp_name, "si%r%r", unit, 546154081Sjhb (int)(pp - sc->sc_ports)); 547136058Sphk#endif 548136058Sphk tp = pp->sp_tty = ttyalloc(); 549136058Sphk tp->t_sc = pp; 550136058Sphk tp->t_break = sibreak; 551136058Sphk tp->t_close = siclose; 552136058Sphk tp->t_modem = simodem; 553136058Sphk tp->t_open = siopen; 554136058Sphk tp->t_oproc = si_start; 555136058Sphk tp->t_param = siparam; 556136058Sphk tp->t_stop = si_stop; 557154081Sjhb ttycreate(tp, TS_CALLOUT, "A%r%r", unit, 558154081Sjhb (int)(pp - sc->sc_ports)); 55934832Speter } 56034832Spetertry_next2: 56110015Speter if (modp->sm_next == 0) { 56234832Speter printf("si%d: card: %s, ports: %d, modules: %d, type: %d%s\n", 56310015Speter unit, 56410015Speter sc->sc_typename, 56510015Speter sc->sc_nport, 56612174Speter nmodule, 56734832Speter uart_type, 56834832Speter si_modulename(sc->sc_type, uart_type)); 56910015Speter break; 57010015Speter } 57110015Speter modp = (struct si_module *) 57210015Speter (maddr + (unsigned)(modp->sm_next & 0x7fff)); 57310015Speter } 57410015Speter if (done_chartimes == 0) { 57510015Speter for (spt = chartimes ; spt->sp_speed != -1; spt++) { 57610015Speter if ((spt->sp_code /= hz) == 0) 57710015Speter spt->sp_code = 1; 57810015Speter } 57910015Speter done_chartimes = 1; 58010015Speter } 58112502Sjulian 582154081Sjhb if (unit == 0) 583154081Sjhb make_dev(&si_Scdevsw, 0, UID_ROOT, GID_WHEEL, 0600, 584154081Sjhb "si_control"); 58556498Speter return (0); 58610015Speter} 58710015Speter 58812675Sjulianstatic int 589136058Sphksiopen(struct tty *tp, struct cdev *dev) 59010015Speter{ 59110015Speter 59210015Speter#ifdef POLL 59310015Speter /* 59410015Speter * We've now got a device, so start the poller. 59510015Speter */ 59610015Speter if (init_finished == 0) { 59715639Speter timeout(si_poll, (caddr_t)0L, si_pollrate); 59810015Speter init_finished = 1; 59910015Speter } 60010015Speter#endif 601136058Sphk return(0); 60210015Speter} 60310015Speter 604136058Sphkstatic void 605136058Sphksiclose(struct tty *tp) 60610015Speter{ 60756498Speter struct si_port *pp; 60810015Speter 609136058Sphk pp = tp->t_sc; 610136058Sphk (void) si_command(pp, FCLOSE, SI_NOWAIT); 61110015Speter} 61210015Speter 61310015Speterstatic void 614136058Sphksibreak(struct tty *tp, int sig) 61510015Speter{ 61656498Speter struct si_port *pp; 61710015Speter 618136058Sphk pp = tp->t_sc; 619136058Sphk if (sig) 62016575Speter si_command(pp, SBREAK, SI_WAIT); 621136058Sphk else 62216575Speter si_command(pp, EBREAK, SI_WAIT); 62310015Speter} 62410015Speter 625136058Sphk 62610015Speter/* 627136058Sphk * Handle the Specialix ioctls on the control dev. 62810015Speter */ 62910015Speterstatic int 630130585Sphksi_Sioctl(struct cdev *dev, u_long cmd, caddr_t data, int flag, struct thread *td) 63110015Speter{ 63210015Speter struct si_softc *xsc; 63356498Speter struct si_port *xpp; 63410015Speter volatile struct si_reg *regp; 63510015Speter struct si_tcsi *dp; 63610044Speter struct si_pstat *sps; 63711872Sphk int *ip, error = 0; 63810015Speter int oldspl; 63910015Speter int card, port; 64010015Speter 64150016Snsayer DPRINT((0, DBG_ENTRY|DBG_IOCTL, "si_Sioctl(%s,%lx,%x,%x)\n", 64250016Snsayer devtoname(dev), cmd, data, flag)); 64310015Speter 64410044Speter#if 1 64510044Speter DPRINT((0, DBG_IOCTL, "TCSI_PORT=%x\n", TCSI_PORT)); 64610044Speter DPRINT((0, DBG_IOCTL, "TCSI_CCB=%x\n", TCSI_CCB)); 64710044Speter DPRINT((0, DBG_IOCTL, "TCSI_TTY=%x\n", TCSI_TTY)); 64810044Speter#endif 64910044Speter 65010015Speter oldspl = spltty(); /* better safe than sorry */ 65110015Speter 65210015Speter ip = (int *)data; 65310015Speter 654164033Srwatson#define SUCHECK if ((error = priv_check(td, PRIV_DRIVER))) goto out 65510015Speter 65610015Speter switch (cmd) { 65710015Speter case TCSIPORTS: 65810015Speter *ip = si_Nports; 65910015Speter goto out; 66010015Speter case TCSIMODULES: 66110015Speter *ip = si_Nmodules; 66210015Speter goto out; 66310015Speter case TCSISDBG_ALL: 66410015Speter SUCHECK; 66510015Speter si_debug = *ip; 66610015Speter goto out; 66710015Speter case TCSIGDBG_ALL: 66810015Speter *ip = si_debug; 66910015Speter goto out; 67010015Speter default: 67110015Speter /* 67210015Speter * Check that a controller for this port exists 67310015Speter */ 67410044Speter 67510044Speter /* may also be a struct si_pstat, a superset of si_tcsi */ 67610044Speter 67710015Speter dp = (struct si_tcsi *)data; 67810044Speter sps = (struct si_pstat *)data; 67910015Speter card = dp->tc_card; 68056498Speter xsc = devclass_get_softc(si_devclass, card); /* check.. */ 68156498Speter if (xsc == NULL || xsc->sc_type == SIEMPTY) { 68210015Speter error = ENOENT; 68310015Speter goto out; 68410015Speter } 68510015Speter /* 68610015Speter * And check that a port exists 68710015Speter */ 68810015Speter port = dp->tc_port; 68910015Speter if (port < 0 || port >= xsc->sc_nport) { 69010015Speter error = ENOENT; 69110015Speter goto out; 69210015Speter } 69310015Speter xpp = xsc->sc_ports + port; 69410015Speter regp = (struct si_reg *)xsc->sc_maddr; 69510015Speter } 69610015Speter 69710015Speter switch (cmd) { 69810015Speter case TCSIDEBUG: 69910015Speter#ifdef SI_DEBUG 70010015Speter SUCHECK; 70110015Speter if (xpp->sp_debug) 70210015Speter xpp->sp_debug = 0; 70310015Speter else { 70410015Speter xpp->sp_debug = DBG_ALL; 70510015Speter DPRINT((xpp, DBG_IOCTL, "debug toggled %s\n", 70610015Speter (xpp->sp_debug&DBG_ALL)?"ON":"OFF")); 70710015Speter } 70810015Speter break; 70910015Speter#else 71010015Speter error = ENODEV; 71110015Speter goto out; 71210015Speter#endif 71310015Speter case TCSISDBG_LEVEL: 71410015Speter case TCSIGDBG_LEVEL: 71510015Speter#ifdef SI_DEBUG 71610015Speter if (cmd == TCSIGDBG_LEVEL) { 71710015Speter dp->tc_dbglvl = xpp->sp_debug; 71810015Speter } else { 71910015Speter SUCHECK; 72010015Speter xpp->sp_debug = dp->tc_dbglvl; 72110015Speter } 72210015Speter break; 72310015Speter#else 72410015Speter error = ENODEV; 72510015Speter goto out; 72610015Speter#endif 72710015Speter case TCSIGRXIT: 72810015Speter dp->tc_int = regp->rx_int_count; 72910015Speter break; 73010015Speter case TCSIRXIT: 73110015Speter SUCHECK; 73210015Speter regp->rx_int_count = dp->tc_int; 73310015Speter break; 73410015Speter case TCSIGIT: 73510015Speter dp->tc_int = regp->int_count; 73610015Speter break; 73710015Speter case TCSIIT: 73810015Speter SUCHECK; 73910015Speter regp->int_count = dp->tc_int; 74010015Speter break; 74110044Speter case TCSISTATE: 74210044Speter dp->tc_int = xpp->sp_ccb->hi_ip; 74310015Speter break; 74410044Speter /* these next three use a different structure */ 74510044Speter case TCSI_PORT: 74610015Speter SUCHECK; 74734832Speter si_bcopy(xpp, &sps->tc_siport, sizeof(sps->tc_siport)); 74810015Speter break; 74910044Speter case TCSI_CCB: 75010044Speter SUCHECK; 75150442Speter si_vbcopy(xpp->sp_ccb, &sps->tc_ccb, sizeof(sps->tc_ccb)); 75210015Speter break; 75310044Speter case TCSI_TTY: 75410044Speter SUCHECK; 75534832Speter si_bcopy(xpp->sp_tty, &sps->tc_tty, sizeof(sps->tc_tty)); 75610015Speter break; 75710015Speter default: 75810015Speter error = EINVAL; 75910015Speter goto out; 76010015Speter } 76110015Speterout: 76210015Speter splx(oldspl); 76310015Speter return(error); /* success */ 76410015Speter} 76510015Speter 76610015Speter/* 76710015Speter * siparam() : Configure line params 76810015Speter * called at spltty(); 76910015Speter * this may sleep, does not flush, nor wait for drain, nor block writes 77010015Speter * caller must arrange this if it's important.. 77110015Speter */ 77212724Sphkstatic int 77356498Spetersiparam(struct tty *tp, struct termios *t) 77410015Speter{ 775136058Sphk struct si_port *pp = tp->t_sc; 77610015Speter volatile struct si_channel *ccbp; 77710015Speter int oldspl, cflag, iflag, oflag, lflag; 77810015Speter int error = 0; /* shutup gcc */ 77910015Speter int ispeed = 0; /* shutup gcc */ 78010015Speter int ospeed = 0; /* shutup gcc */ 78110161Speter BYTE val; 78210015Speter 78310015Speter DPRINT((pp, DBG_ENTRY|DBG_PARAM, "siparam(%x,%x)\n", tp, t)); 78410015Speter cflag = t->c_cflag; 78510015Speter iflag = t->c_iflag; 78610015Speter oflag = t->c_oflag; 78710015Speter lflag = t->c_lflag; 78810044Speter DPRINT((pp, DBG_PARAM, "OFLAG 0x%x CFLAG 0x%x IFLAG 0x%x LFLAG 0x%x\n", 78910044Speter oflag, cflag, iflag, lflag)); 79010015Speter 79134832Speter /* XXX - if Jet host and SXDC module, use extended baud rates */ 79210015Speter 79310015Speter /* if not hung up.. */ 79410015Speter if (t->c_ospeed != 0) { 79510015Speter /* translate baud rate to firmware values */ 79610015Speter ospeed = ttspeedtab(t->c_ospeed, bdrates); 79710015Speter ispeed = t->c_ispeed ? 79810015Speter ttspeedtab(t->c_ispeed, bdrates) : ospeed; 79910015Speter 80010015Speter /* enforce legit baud rate */ 80110015Speter if (ospeed < 0 || ispeed < 0) 80210015Speter return (EINVAL); 80310015Speter } 80410015Speter 80510015Speter oldspl = spltty(); 80610015Speter 80710015Speter ccbp = pp->sp_ccb; 80810015Speter 80910161Speter /* ========== set hi_break ========== */ 81010161Speter val = 0; 81110161Speter if (iflag & IGNBRK) /* Breaks */ 81210161Speter val |= BR_IGN; 81310161Speter if (iflag & BRKINT) /* Interrupt on break? */ 81410161Speter val |= BR_INT; 81510161Speter if (iflag & PARMRK) /* Parity mark? */ 81610161Speter val |= BR_PARMRK; 81710161Speter if (iflag & IGNPAR) /* Ignore chars with parity errors? */ 81810161Speter val |= BR_PARIGN; 81910161Speter ccbp->hi_break = val; 82010161Speter 82110161Speter /* ========== set hi_csr ========== */ 82210015Speter /* if not hung up.. */ 82310015Speter if (t->c_ospeed != 0) { 82410015Speter /* Set I/O speeds */ 82510161Speter val = (ispeed << 4) | ospeed; 82610015Speter } 82710161Speter ccbp->hi_csr = val; 82810015Speter 82910161Speter /* ========== set hi_mr2 ========== */ 83010161Speter val = 0; 83110015Speter if (cflag & CSTOPB) /* Stop bits */ 83210161Speter val |= MR2_2_STOP; 83310015Speter else 83410161Speter val |= MR2_1_STOP; 83510161Speter /* 83610161Speter * Enable H/W RTS/CTS handshaking. The default TA/MTA is 83710161Speter * a DCE, hence the reverse sense of RTS and CTS 83810161Speter */ 83910161Speter /* Output Flow - RTS must be raised before data can be sent */ 84010161Speter if (cflag & CCTS_OFLOW) 84110161Speter val |= MR2_RTSCONT; 84210161Speter 84316575Speter ccbp->hi_mr2 = val; 84410161Speter 84510161Speter /* ========== set hi_mr1 ========== */ 84610161Speter val = 0; 84710015Speter if (!(cflag & PARENB)) /* Parity */ 84810161Speter val |= MR1_NONE; 84910015Speter else 85010161Speter val |= MR1_WITH; 85110015Speter if (cflag & PARODD) 85210161Speter val |= MR1_ODD; 85310015Speter 85410015Speter if ((cflag & CS8) == CS8) { /* 8 data bits? */ 85510161Speter val |= MR1_8_BITS; 85610015Speter } else if ((cflag & CS7) == CS7) { /* 7 data bits? */ 85710161Speter val |= MR1_7_BITS; 85810015Speter } else if ((cflag & CS6) == CS6) { /* 6 data bits? */ 85910161Speter val |= MR1_6_BITS; 86010015Speter } else { /* Must be 5 */ 86110161Speter val |= MR1_5_BITS; 86210015Speter } 86310161Speter /* 86410161Speter * Enable H/W RTS/CTS handshaking. The default TA/MTA is 86510161Speter * a DCE, hence the reverse sense of RTS and CTS 86610161Speter */ 86710161Speter /* Input Flow - CTS is raised when port is ready to receive data */ 86810161Speter if (cflag & CRTS_IFLOW) 86910161Speter val |= MR1_CTSCONT; 87010015Speter 87110161Speter ccbp->hi_mr1 = val; 87210161Speter 87310161Speter /* ========== set hi_mask ========== */ 87410161Speter val = 0xff; 87510161Speter if ((cflag & CS8) == CS8) { /* 8 data bits? */ 87610161Speter val &= 0xFF; 87710161Speter } else if ((cflag & CS7) == CS7) { /* 7 data bits? */ 87810161Speter val &= 0x7F; 87910161Speter } else if ((cflag & CS6) == CS6) { /* 6 data bits? */ 88010161Speter val &= 0x3F; 88110161Speter } else { /* Must be 5 */ 88210161Speter val &= 0x1F; 88310161Speter } 88410015Speter if (iflag & ISTRIP) 88510161Speter val &= 0x7F; 88610015Speter 88710161Speter ccbp->hi_mask = val; 88810161Speter 88910161Speter /* ========== set hi_prtcl ========== */ 89056592Speter val = SP_DCEN; /* Monitor DCD always, or TIOCMGET misses it */ 89110161Speter if (iflag & IXANY) 89210161Speter val |= SP_TANY; 89310161Speter if (iflag & IXON) 89410161Speter val |= SP_TXEN; 89510161Speter if (iflag & IXOFF) 89610161Speter val |= SP_RXEN; 89710161Speter if (iflag & INPCK) 89810161Speter val |= SP_PAEN; 89910015Speter 90010161Speter ccbp->hi_prtcl = val; 90110161Speter 90210161Speter 90310161Speter /* ========== set hi_{rx|tx}{on|off} ========== */ 90410161Speter /* XXX: the card TOTALLY shields us from the flow control... */ 90510015Speter ccbp->hi_txon = t->c_cc[VSTART]; 90610015Speter ccbp->hi_txoff = t->c_cc[VSTOP]; 90710015Speter 90810015Speter ccbp->hi_rxon = t->c_cc[VSTART]; 90910015Speter ccbp->hi_rxoff = t->c_cc[VSTOP]; 91010015Speter 91110161Speter /* ========== send settings to the card ========== */ 91210015Speter /* potential sleep here */ 91310015Speter if (ccbp->hi_stat == IDLE_CLOSE) /* Not yet open */ 91410015Speter si_command(pp, LOPEN, SI_WAIT); /* open it */ 91510015Speter else 91610015Speter si_command(pp, CONFIG, SI_WAIT); /* change params */ 91710015Speter 91810161Speter /* ========== set DTR etc ========== */ 91910015Speter /* Hangup if ospeed == 0 */ 92010015Speter if (t->c_ospeed == 0) { 921136058Sphk (void) simodem(tp, 0, SER_DTR | SER_RTS); 92210015Speter } else { 92310015Speter /* 92410015Speter * If the previous speed was 0, may need to re-enable 92534832Speter * the modem signals 92634832Speter */ 927136058Sphk (void) simodem(tp, SER_DTR | SER_RTS, 0); 92810015Speter } 92910015Speter 93010044Speter DPRINT((pp, DBG_PARAM, "siparam, complete: MR1 %x MR2 %x HI_MASK %x PRTCL %x HI_BREAK %x\n", 93110044Speter ccbp->hi_mr1, ccbp->hi_mr2, ccbp->hi_mask, ccbp->hi_prtcl, ccbp->hi_break)); 93210015Speter 93310015Speter splx(oldspl); 93410015Speter return(error); 93510015Speter} 93610015Speter 93710015Speter/* 93810015Speter * Set/Get state of modem control lines. 93910015Speter * Due to DCE-like behaviour of the adapter, some signals need translation: 94010015Speter * TIOCM_DTR DSR 94110015Speter * TIOCM_RTS CTS 94210015Speter */ 94310015Speterstatic int 944136058Sphksimodem(struct tty *tp, int sigon, int sigoff) 94510015Speter{ 946136058Sphk struct si_port *pp; 94710015Speter volatile struct si_channel *ccbp; 94810015Speter int x; 94910015Speter 950136058Sphk pp = tp->t_sc; 951136058Sphk DPRINT((pp, DBG_ENTRY|DBG_MODEM, "simodem(%x,%x)\n", sigon, sigoff)); 95210015Speter ccbp = pp->sp_ccb; /* Find channel address */ 953136058Sphk if (sigon == 0 && sigoff == 0) { 95410015Speter x = ccbp->hi_ip; 955136058Sphk /* 956136058Sphk * XXX: not sure this is correct, should it be CTS&DSR ? 957136058Sphk * XXX: or do we (just) miss CTS & DSR ? 958136058Sphk */ 959136058Sphk if (x & IP_DCD) sigon |= SER_DCD; 960136058Sphk if (x & IP_DTR) sigon |= SER_DTR; 961136058Sphk if (x & IP_RTS) sigon |= SER_RTS; 962136058Sphk if (x & IP_RI) sigon |= SER_RI; 963136058Sphk return (sigon); 96410015Speter } 965136058Sphk 966136058Sphk x = ccbp->hi_op; 967136058Sphk if (sigon & SER_DTR) 968136058Sphk x |= OP_DSR; 969136058Sphk if (sigoff & SER_DTR) 970136058Sphk x &= ~OP_DSR; 971136058Sphk if (sigon & SER_RTS) 972136058Sphk x |= OP_CTS; 973136058Sphk if (sigoff & SER_RTS) 974136058Sphk x &= ~OP_CTS; 975136058Sphk ccbp->hi_op = x; 97610015Speter return 0; 97710015Speter} 97810015Speter 97910015Speter/* 98010015Speter * Handle change of modem state 98110015Speter */ 98210015Speterstatic void 98356498Spetersi_modem_state(struct si_port *pp, struct tty *tp, int hi_ip) 98410015Speter{ 98510015Speter /* if a modem dev */ 98610015Speter if (hi_ip & IP_DCD) { 98750442Speter if (!(pp->sp_last_hi_ip & IP_DCD)) { 98810015Speter DPRINT((pp, DBG_INTR, "modem carr on t_line %d\n", 98910015Speter tp->t_line)); 990130077Sphk (void)ttyld_modem(tp, 1); 99110015Speter } 99210015Speter } else { 99310015Speter if (pp->sp_last_hi_ip & IP_DCD) { 99410015Speter DPRINT((pp, DBG_INTR, "modem carr off\n")); 995130077Sphk if (ttyld_modem(tp, 0)) 996136058Sphk (void) simodem(tp, 0, SER_DTR | SER_RTS); 99710015Speter } 99810015Speter } 99910015Speter pp->sp_last_hi_ip = hi_ip; 100010015Speter 100110015Speter} 100210015Speter 100310015Speter/* 100410015Speter * Poller to catch missed interrupts. 100512174Speter * 100612496Speter * Note that the SYSV Specialix drivers poll at 100 times per second to get 100712496Speter * better response. We could really use a "periodic" version timeout(). :-) 100810015Speter */ 100910015Speter#ifdef POLL 101010708Speterstatic void 101110015Spetersi_poll(void *nothing) 101210015Speter{ 101356498Speter struct si_softc *sc; 101456498Speter int i; 101510015Speter volatile struct si_reg *regp; 101656498Speter struct si_port *pp; 101712174Speter int lost, oldspl, port; 101810015Speter 101910015Speter DPRINT((0, DBG_POLL, "si_poll()\n")); 102011609Speter oldspl = spltty(); 102110015Speter if (in_intr) 102210015Speter goto out; 102310015Speter lost = 0; 102456498Speter for (i = 0; i < si_numunits; i++) { 102556498Speter sc = devclass_get_softc(si_devclass, i); 102656498Speter if (sc == NULL || sc->sc_type == SIEMPTY) 102710015Speter continue; 102810015Speter regp = (struct si_reg *)sc->sc_maddr; 102934832Speter 103010015Speter /* 103110015Speter * See if there has been a pending interrupt for 2 seconds 103233395Speter * or so. The test (int_scounter >= 200) won't correspond 103310015Speter * to 2 seconds if int_count gets changed. 103410015Speter */ 103510015Speter if (regp->int_pending != 0) { 103610015Speter if (regp->int_scounter >= 200 && 103710015Speter regp->initstat == 1) { 103812174Speter printf("si%d: lost intr\n", i); 103910015Speter lost++; 104010015Speter } 104110015Speter } else { 104210015Speter regp->int_scounter = 0; 104310015Speter } 104410015Speter 104512174Speter /* 104612174Speter * gripe about no input flow control.. 104712174Speter */ 104812174Speter pp = sc->sc_ports; 104912174Speter for (port = 0; port < sc->sc_nport; pp++, port++) { 105012174Speter if (pp->sp_delta_overflows > 0) { 105112174Speter printf("si%d: %d tty level buffer overflows\n", 105212174Speter i, pp->sp_delta_overflows); 105312174Speter pp->sp_delta_overflows = 0; 105412174Speter } 105512174Speter } 105610015Speter } 105717547Speter if (lost || si_realpoll) 105856498Speter si_intr(NULL); /* call intr with fake vector */ 105911609Speterout: 106010015Speter splx(oldspl); 106110015Speter 106215639Speter timeout(si_poll, (caddr_t)0L, si_pollrate); 106310015Speter} 106410015Speter#endif /* ifdef POLL */ 106510015Speter 106610015Speter/* 106710015Speter * The interrupt handler polls ALL ports on ALL adapters each time 106810015Speter * it is called. 106910015Speter */ 107010015Speter 107112496Speterstatic BYTE si_rxbuf[SI_BUFFERSIZE]; /* input staging area */ 107234832Speterstatic BYTE si_txbuf[SI_BUFFERSIZE]; /* output staging area */ 107310015Speter 107456505Spetervoid 107556498Spetersi_intr(void *arg) 107610015Speter{ 107756498Speter struct si_softc *sc; 107856498Speter struct si_port *pp; 107910015Speter volatile struct si_channel *ccbp; 108056498Speter struct tty *tp; 108110015Speter volatile caddr_t maddr; 108211872Sphk BYTE op, ip; 108312174Speter int x, card, port, n, i, isopen; 108410015Speter volatile BYTE *z; 108510015Speter BYTE c; 108610015Speter 108756498Speter sc = arg; 108856498Speter 108956498Speter DPRINT((0, arg == NULL ? DBG_POLL:DBG_INTR, "si_intr\n")); 109056498Speter if (in_intr) 109110708Speter return; 109210015Speter in_intr = 1; 109310015Speter 109410015Speter /* 109510015Speter * When we get an int we poll all the channels and do ALL pending 109610015Speter * work, not just the first one we find. This allows all cards to 109710015Speter * share the same vector. 109834832Speter * 109934832Speter * XXX - But if we're sharing the vector with something that's NOT 110034832Speter * a SI/XIO/SX card, we may be making more work for ourselves. 110110015Speter */ 110256498Speter for (card = 0; card < si_numunits; card++) { 110356498Speter sc = devclass_get_softc(si_devclass, card); 110456498Speter if (sc == NULL || sc->sc_type == SIEMPTY) 110510015Speter continue; 110612174Speter 110712174Speter /* 110812174Speter * First, clear the interrupt 110912174Speter */ 111010015Speter switch(sc->sc_type) { 111134832Speter case SIHOST: 111210015Speter maddr = sc->sc_maddr; 111310015Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 111410015Speter /* flag nothing pending */ 111510015Speter *(maddr+SIINTCL) = 0x00; /* Set IRQ clear */ 111610015Speter *(maddr+SIINTCL_CL) = 0x00; /* Clear IRQ clear */ 111710015Speter break; 111810015Speter case SIHOST2: 111910015Speter maddr = sc->sc_maddr; 112010015Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 112110015Speter *(maddr+SIPLIRQCLR) = 0x00; 112210015Speter *(maddr+SIPLIRQCLR) = 0x10; 112310015Speter break; 112433395Speter case SIPCI: 112533395Speter maddr = sc->sc_maddr; 112633395Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 112733395Speter *(maddr+SIPCIINTCL) = 0x0; 112833395Speter break; 112934832Speter case SIJETPCI: /* fall through to JETISA case */ 113033395Speter case SIJETISA: 113133395Speter maddr = sc->sc_maddr; 113233395Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 113333395Speter *(maddr+SIJETINTCL) = 0x0; 113433395Speter break; 113510015Speter case SIEISA: 113610015Speter maddr = sc->sc_maddr; 113710015Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 113856498Speter (void)inb(sc->sc_iobase + 3); 113910015Speter break; 114010015Speter case SIEMPTY: 114110015Speter default: 114210015Speter continue; 114310015Speter } 114410015Speter ((volatile struct si_reg *)maddr)->int_scounter = 0; 114510015Speter 114612174Speter /* 114712174Speter * check each port 114812174Speter */ 114950442Speter for (pp = sc->sc_ports, port = 0; port < sc->sc_nport; 115034832Speter pp++, port++) { 115110015Speter ccbp = pp->sp_ccb; 115210015Speter tp = pp->sp_tty; 115310015Speter 115410015Speter /* 115510015Speter * See if a command has completed ? 115610015Speter */ 115710015Speter if (ccbp->hi_stat != pp->sp_pend) { 115810015Speter DPRINT((pp, DBG_INTR, 115934735Speter "si_intr hi_stat = 0x%x, pend = %d\n", 116010015Speter ccbp->hi_stat, pp->sp_pend)); 116110015Speter switch(pp->sp_pend) { 116210015Speter case LOPEN: 116310015Speter case MPEND: 116410015Speter case MOPEN: 116510015Speter case CONFIG: 116616575Speter case SBREAK: 116716575Speter case EBREAK: 116810015Speter pp->sp_pend = ccbp->hi_stat; 116910015Speter /* sleeping in si_command */ 117010015Speter wakeup(&pp->sp_state); 117110015Speter break; 117210015Speter default: 117310015Speter pp->sp_pend = ccbp->hi_stat; 117410015Speter } 117534832Speter } 117610015Speter 117710015Speter /* 117810015Speter * Continue on if it's closed 117910015Speter */ 118010015Speter if (ccbp->hi_stat == IDLE_CLOSE) { 118110015Speter continue; 118210015Speter } 118310015Speter 118410015Speter /* 118510015Speter * Do modem state change if not a local device 118610015Speter */ 118710015Speter si_modem_state(pp, tp, ccbp->hi_ip); 118810015Speter 118910015Speter /* 119034832Speter * Check to see if we should 'receive' characters. 119112174Speter */ 119212174Speter if (tp->t_state & TS_CONNECTED && 119312174Speter tp->t_state & TS_ISOPEN) 119412174Speter isopen = 1; 119512174Speter else 119612174Speter isopen = 0; 119712174Speter 119812174Speter /* 119916575Speter * Do input break processing 120010015Speter */ 120110015Speter if (ccbp->hi_state & ST_BREAK) { 120212174Speter if (isopen) { 1203130077Sphk ttyld_rint(tp, TTY_BI); 120410015Speter } 120510015Speter ccbp->hi_state &= ~ST_BREAK; /* A Bit iffy this */ 120610015Speter DPRINT((pp, DBG_INTR, "si_intr break\n")); 120710015Speter } 120810015Speter 120910015Speter /* 121012174Speter * Do RX stuff - if not open then dump any characters. 121112174Speter * XXX: This is VERY messy and needs to be cleaned up. 121212174Speter * 121312174Speter * XXX: can we leave data in the host adapter buffer 121412174Speter * when the clists are full? That may be dangerous 121512174Speter * if the user cannot get an interrupt signal through. 121610015Speter */ 121710015Speter 121812174Speter more_rx: /* XXX Sorry. the nesting was driving me bats! :-( */ 121912174Speter 122012174Speter if (!isopen) { 122110015Speter ccbp->hi_rxopos = ccbp->hi_rxipos; 122212174Speter goto end_rx; 122312174Speter } 122410015Speter 122512174Speter /* 122615640Speter * If the tty input buffers are blocked, stop emptying 122715640Speter * the incoming buffers and let the auto flow control 122815640Speter * assert.. 122915640Speter */ 123015640Speter if (tp->t_state & TS_TBLOCK) { 123115640Speter goto end_rx; 123215640Speter } 123315640Speter 123415640Speter /* 123512174Speter * Process read characters if not skipped above 123612174Speter */ 123715640Speter op = ccbp->hi_rxopos; 123815640Speter ip = ccbp->hi_rxipos; 123915640Speter c = ip - op; 124012174Speter if (c == 0) { 124112174Speter goto end_rx; 124212174Speter } 124310015Speter 124412174Speter n = c & 0xff; 124515640Speter if (n > 250) 124615640Speter n = 250; 124712174Speter 124812174Speter DPRINT((pp, DBG_INTR, "n = %d, op = %d, ip = %d\n", 124910015Speter n, op, ip)); 125010015Speter 125112174Speter /* 125212174Speter * Suck characters out of host card buffer into the 125312174Speter * "input staging buffer" - so that we dont leave the 125412174Speter * host card in limbo while we're possibly echoing 125512174Speter * characters and possibly flushing input inside the 125612174Speter * ldisc l_rint() routine. 125712174Speter */ 125812496Speter if (n <= SI_BUFFERSIZE - op) { 125910015Speter 126012174Speter DPRINT((pp, DBG_INTR, "\tsingle copy\n")); 126112174Speter z = ccbp->hi_rxbuf + op; 126250442Speter si_vbcopy(z, si_rxbuf, n); 126310015Speter 126412174Speter op += n; 126512174Speter } else { 126612496Speter x = SI_BUFFERSIZE - op; 126710015Speter 126812174Speter DPRINT((pp, DBG_INTR, "\tdouble part 1 %d\n", x)); 126912174Speter z = ccbp->hi_rxbuf + op; 127050442Speter si_vbcopy(z, si_rxbuf, x); 127110015Speter 127234832Speter DPRINT((pp, DBG_INTR, "\tdouble part 2 %d\n", 127334832Speter n - x)); 127412174Speter z = ccbp->hi_rxbuf; 127550442Speter si_vbcopy(z, si_rxbuf + x, n - x); 127610015Speter 127712174Speter op += n; 127812174Speter } 127910015Speter 128012174Speter /* clear collected characters from buffer */ 128112174Speter ccbp->hi_rxopos = op; 128212174Speter 128312174Speter DPRINT((pp, DBG_INTR, "n = %d, op = %d, ip = %d\n", 128410015Speter n, op, ip)); 128510015Speter 128612174Speter /* 128712174Speter * at this point... 128812174Speter * n = number of chars placed in si_rxbuf 128912174Speter */ 129010015Speter 129112174Speter /* 129212174Speter * Avoid the grotesquely inefficient lineswitch 129312174Speter * routine (ttyinput) in "raw" mode. It usually 129412174Speter * takes about 450 instructions (that's without 129512174Speter * canonical processing or echo!). slinput is 129612174Speter * reasonably fast (usually 40 instructions 129712174Speter * plus call overhead). 129812174Speter */ 129912174Speter if (tp->t_state & TS_CAN_BYPASS_L_RINT) { 130010015Speter 130112174Speter /* block if the driver supports it */ 130250442Speter if (tp->t_rawq.c_cc + n >= SI_I_HIGH_WATER && 130350442Speter (tp->t_cflag & CRTS_IFLOW || 130450442Speter tp->t_iflag & IXOFF) && 130550442Speter !(tp->t_state & TS_TBLOCK)) 130612174Speter ttyblock(tp); 130710015Speter 130812174Speter tk_nin += n; 130912174Speter tk_rawcc += n; 131012174Speter tp->t_rawcc += n; 131112174Speter 131212174Speter pp->sp_delta_overflows += 131312174Speter b_to_q((char *)si_rxbuf, n, &tp->t_rawq); 131412174Speter 131512174Speter ttwakeup(tp); 131650442Speter if (tp->t_state & TS_TTSTOP && 131750442Speter (tp->t_iflag & IXANY || 131850442Speter tp->t_cc[VSTART] == tp->t_cc[VSTOP])) { 131912174Speter tp->t_state &= ~TS_TTSTOP; 132012174Speter tp->t_lflag &= ~FLUSHO; 132112174Speter si_start(tp); 132212174Speter } 132312174Speter } else { 132412174Speter /* 132512174Speter * It'd be nice to not have to go through the 132612174Speter * function call overhead for each char here. 132712174Speter * It'd be nice to block input it, saving a 132812174Speter * loop here and the call/return overhead. 132912174Speter */ 133012174Speter for(x = 0; x < n; x++) { 133112174Speter i = si_rxbuf[x]; 1332130077Sphk if (ttyld_rint(tp, i) 133312174Speter == -1) { 133412174Speter pp->sp_delta_overflows++; 133510015Speter } 133612174Speter } 133712174Speter } 133812174Speter goto more_rx; /* try for more until RXbuf is empty */ 133910015Speter 134012174Speter end_rx: /* XXX: Again, sorry about the gotos.. :-) */ 134110015Speter 134210015Speter /* 134310015Speter * Do TX stuff 134410015Speter */ 1345130077Sphk ttyld_start(tp); 134610015Speter 134710015Speter } /* end of for (all ports on this controller) */ 134810015Speter } /* end of for (all controllers) */ 134910015Speter 135011609Speter in_intr = 0; 135156498Speter DPRINT((0, arg == NULL ? DBG_POLL:DBG_INTR, "end si_intr\n")); 135210015Speter} 135310015Speter 135410015Speter/* 135510015Speter * Nudge the transmitter... 135612174Speter * 135712174Speter * XXX: I inherited some funny code here. It implies the host card only 135812174Speter * interrupts when the transmit buffer reaches the low-water-mark, and does 135912174Speter * not interrupt when it's actually hits empty. In some cases, we have 136012174Speter * processes waiting for complete drain, and we need to simulate an interrupt 136112174Speter * about when we think the buffer is going to be empty (and retry if not). 136212174Speter * I really am not certain about this... I *need* the hardware manuals. 136310015Speter */ 136410015Speterstatic void 136556498Spetersi_start(struct tty *tp) 136610015Speter{ 136710015Speter struct si_port *pp; 136810015Speter volatile struct si_channel *ccbp; 136956498Speter struct clist *qp; 137010015Speter BYTE ipos; 137110015Speter int nchar; 137210015Speter int oldspl, count, n, amount, buffer_full; 137310015Speter 137410015Speter oldspl = spltty(); 137510015Speter 137610015Speter qp = &tp->t_outq; 1377136058Sphk pp = tp->t_sc; 137810015Speter 137910015Speter DPRINT((pp, DBG_ENTRY|DBG_START, 138010015Speter "si_start(%x) t_state %x sp_state %x t_outq.c_cc %d\n", 138110015Speter tp, tp->t_state, pp->sp_state, qp->c_cc)); 138210015Speter 138310015Speter if (tp->t_state & (TS_TIMEOUT|TS_TTSTOP)) 138410015Speter goto out; 138510015Speter 138610015Speter buffer_full = 0; 138710015Speter ccbp = pp->sp_ccb; 138810015Speter 138910015Speter count = (int)ccbp->hi_txipos - (int)ccbp->hi_txopos; 139010015Speter DPRINT((pp, DBG_START, "count %d\n", (BYTE)count)); 139110015Speter 139210015Speter while ((nchar = qp->c_cc) > 0) { 139310015Speter if ((BYTE)count >= 255) { 139410015Speter buffer_full++; 139510015Speter break; 139610015Speter } 139710015Speter amount = min(nchar, (255 - (BYTE)count)); 139810015Speter ipos = (unsigned int)ccbp->hi_txipos; 139934832Speter n = q_to_b(&tp->t_outq, si_txbuf, amount); 140010015Speter /* will it fit in one lump? */ 140134832Speter if ((SI_BUFFERSIZE - ipos) >= n) { 140250442Speter si_bcopyv(si_txbuf, &ccbp->hi_txbuf[ipos], n); 140310015Speter } else { 140450442Speter si_bcopyv(si_txbuf, &ccbp->hi_txbuf[ipos], 140534832Speter SI_BUFFERSIZE - ipos); 140650442Speter si_bcopyv(si_txbuf + (SI_BUFFERSIZE - ipos), 140750442Speter &ccbp->hi_txbuf[0], n - (SI_BUFFERSIZE - ipos)); 140810015Speter } 140910015Speter ccbp->hi_txipos += n; 141010015Speter count = (int)ccbp->hi_txipos - (int)ccbp->hi_txopos; 141110015Speter } 141210015Speter 141310015Speter if (count != 0 && nchar == 0) { 141410015Speter tp->t_state |= TS_BUSY; 141510015Speter } else { 141610015Speter tp->t_state &= ~TS_BUSY; 141710015Speter } 141810015Speter 141910015Speter /* wakeup time? */ 142010015Speter ttwwakeup(tp); 142110015Speter 142210015Speter DPRINT((pp, DBG_START, "count %d, nchar %d, tp->t_state 0x%x\n", 142310015Speter (BYTE)count, nchar, tp->t_state)); 142410015Speter 142534735Speter if (tp->t_state & TS_BUSY) 142610015Speter { 142710015Speter int time; 142810015Speter 142934735Speter time = ttspeedtab(tp->t_ospeed, chartimes); 143034735Speter 143134735Speter if (time > 0) { 143234735Speter if (time < nchar) 143334735Speter time = nchar / time; 143434735Speter else 143534735Speter time = 2; 143610015Speter } else { 143734735Speter DPRINT((pp, DBG_START, 143834735Speter "bad char time value! %d\n", time)); 143934735Speter time = hz/10; 144010015Speter } 144110015Speter 144210015Speter if ((pp->sp_state & (SS_LSTART|SS_INLSTART)) == SS_LSTART) { 144329677Sgibbs untimeout(si_lstart, (caddr_t)pp, pp->lstart_ch); 144410015Speter } else { 144510015Speter pp->sp_state |= SS_LSTART; 144610015Speter } 144710015Speter DPRINT((pp, DBG_START, "arming lstart, time=%d\n", time)); 144829677Sgibbs pp->lstart_ch = timeout(si_lstart, (caddr_t)pp, time); 144910015Speter } 145010015Speter 145110015Speterout: 145210015Speter splx(oldspl); 145310015Speter DPRINT((pp, DBG_EXIT|DBG_START, "leave si_start()\n")); 145410015Speter} 145510015Speter 145610015Speter/* 145710015Speter * Note: called at splsoftclock from the timeout code 145810015Speter * This has to deal with two things... cause wakeups while waiting for 145910015Speter * tty drains on last process exit, and call l_start at about the right 146010015Speter * time for protocols like ppp. 146110015Speter */ 146210015Speterstatic void 146325047Sbdesi_lstart(void *arg) 146410015Speter{ 146556498Speter struct si_port *pp = arg; 146656498Speter struct tty *tp; 146710015Speter int oldspl; 146810015Speter 146910015Speter DPRINT((pp, DBG_ENTRY|DBG_LSTART, "si_lstart(%x) sp_state %x\n", 147010015Speter pp, pp->sp_state)); 147110015Speter 147210015Speter oldspl = spltty(); 1473136058Sphk tp = pp->sp_tty; 147410015Speter 1475136058Sphk if ((tp->t_state & TS_ISOPEN) == 0 || 1476136058Sphk (pp->sp_state & SS_LSTART) == 0) { 147710015Speter splx(oldspl); 147810015Speter return; 147910015Speter } 148010015Speter pp->sp_state &= ~SS_LSTART; 148110015Speter pp->sp_state |= SS_INLSTART; 148210015Speter 148310015Speter 148410015Speter /* deal with the process exit case */ 148510015Speter ttwwakeup(tp); 148610015Speter 148712174Speter /* nudge protocols - eg: ppp */ 1488130077Sphk ttyld_start(tp); 148910015Speter 149010015Speter pp->sp_state &= ~SS_INLSTART; 149110015Speter splx(oldspl); 149210015Speter} 149310015Speter 149410015Speter/* 149510015Speter * Stop output on a line. called at spltty(); 149610015Speter */ 1497105215Sphkstatic void 149856498Spetersi_stop(struct tty *tp, int rw) 149910015Speter{ 150010015Speter volatile struct si_channel *ccbp; 150110015Speter struct si_port *pp; 150210015Speter 1503136058Sphk pp = tp->t_sc; 150410015Speter ccbp = pp->sp_ccb; 150510015Speter 1506136058Sphk DPRINT((pp, DBG_ENTRY|DBG_STOP, "si_stop(%x,%x)\n", tp, rw)); 150710015Speter 150810015Speter /* XXX: must check (rw & FWRITE | FREAD) etc flushing... */ 150910015Speter if (rw & FWRITE) { 151010015Speter /* what level are we meant to be flushing anyway? */ 151110015Speter if (tp->t_state & TS_BUSY) { 1512136058Sphk si_command(pp, WFLUSH, SI_NOWAIT); 151310015Speter tp->t_state &= ~TS_BUSY; 151410015Speter ttwwakeup(tp); /* Bruce???? */ 151510015Speter } 151610015Speter } 151712174Speter#if 1 /* XXX: this doesn't work right yet.. */ 151812174Speter /* XXX: this may have been failing because we used to call l_rint() 151912174Speter * while we were looping based on these two counters. Now, we collect 152012174Speter * the data and then loop stuffing it into l_rint(), making this 152112174Speter * useless. Should we cause this to blow away the staging buffer? 152212174Speter */ 152310015Speter if (rw & FREAD) { 152410015Speter ccbp->hi_rxopos = ccbp->hi_rxipos; 152510015Speter } 152610015Speter#endif 152710015Speter} 152810015Speter 152910015Speter/* 153034832Speter * Issue a command to the host card CPU. 153110015Speter */ 153210015Speter 153310015Speterstatic void 153456498Spetersi_command(struct si_port *pp, int cmd, int waitflag) 153510015Speter{ 153610015Speter int oldspl; 153710015Speter volatile struct si_channel *ccbp = pp->sp_ccb; 153810015Speter int x; 153910015Speter 154010015Speter DPRINT((pp, DBG_ENTRY|DBG_PARAM, "si_command(%x,%x,%d): hi_stat 0x%x\n", 154110015Speter pp, cmd, waitflag, ccbp->hi_stat)); 154210015Speter 154310015Speter oldspl = spltty(); /* Keep others out */ 154410015Speter 154510015Speter /* wait until it's finished what it was doing.. */ 154616575Speter /* XXX: sits in IDLE_BREAK until something disturbs it or break 154716575Speter * is turned off. */ 154810015Speter while((x = ccbp->hi_stat) != IDLE_OPEN && 154910015Speter x != IDLE_CLOSE && 155016575Speter x != IDLE_BREAK && 155110015Speter x != cmd) { 155210015Speter if (in_intr) { /* Prevent sleep in intr */ 155310015Speter DPRINT((pp, DBG_PARAM, 155410015Speter "cmd intr collision - completing %d\trequested %d\n", 155510015Speter x, cmd)); 155610015Speter splx(oldspl); 155710015Speter return; 155810015Speter } else if (ttysleep(pp->sp_tty, (caddr_t)&pp->sp_state, TTIPRI|PCATCH, 155910015Speter "sicmd1", 1)) { 156010015Speter splx(oldspl); 156110015Speter return; 156210015Speter } 156310015Speter } 156416575Speter /* it should now be in IDLE_{OPEN|CLOSE|BREAK}, or "cmd" */ 156510015Speter 156610015Speter /* if there was a pending command, cause a state-change wakeup */ 156716575Speter switch(pp->sp_pend) { 156816575Speter case LOPEN: 156916575Speter case MPEND: 157016575Speter case MOPEN: 157116575Speter case CONFIG: 157216575Speter case SBREAK: 157316575Speter case EBREAK: 157416575Speter wakeup(&pp->sp_state); 157516575Speter break; 157616575Speter default: 157716575Speter break; 157810015Speter } 157910015Speter 158010015Speter pp->sp_pend = cmd; /* New command pending */ 158110015Speter ccbp->hi_stat = cmd; /* Post it */ 158210015Speter 158310015Speter if (waitflag) { 158410015Speter if (in_intr) { /* If in interrupt handler */ 158510015Speter DPRINT((pp, DBG_PARAM, 158610015Speter "attempt to sleep in si_intr - cmd req %d\n", 158710015Speter cmd)); 158810015Speter splx(oldspl); 158910015Speter return; 159016575Speter } else while(ccbp->hi_stat != IDLE_OPEN && 159116575Speter ccbp->hi_stat != IDLE_BREAK) { 159210015Speter if (ttysleep(pp->sp_tty, (caddr_t)&pp->sp_state, TTIPRI|PCATCH, 159310015Speter "sicmd2", 0)) 159410015Speter break; 159510015Speter } 159610015Speter } 159710015Speter splx(oldspl); 159810015Speter} 159910015Speter 160010015Speter 160110015Speter#ifdef SI_DEBUG 160213353Speter 160356505Spetervoid 160413353Spetersi_dprintf(struct si_port *pp, int flags, const char *fmt, ...) 160510015Speter{ 160613353Speter va_list ap; 160713630Sphk 160810015Speter if ((pp == NULL && (si_debug&flags)) || 160910015Speter (pp != NULL && ((pp->sp_debug&flags) || (si_debug&flags)))) { 161034832Speter if (pp != NULL) 1611136058Sphk printf("%s: ", pp->sp_name); 161213630Sphk va_start(ap, fmt); 161313630Sphk vprintf(fmt, ap); 161413353Speter va_end(ap); 161510015Speter } 161610015Speter} 161710015Speter 161812624Speter#endif /* DEBUG */ 161912502Sjulian 162034832Speterstatic char * 162156498Spetersi_modulename(int host_type, int uart_type) 162234832Speter{ 162334832Speter switch (host_type) { 162434832Speter /* Z280 based cards */ 162550442Speter case SIEISA: 162650442Speter case SIHOST2: 162734832Speter case SIHOST: 162834832Speter case SIPCI: 162934832Speter switch (uart_type) { 163034832Speter case 0: 163134832Speter return(" (XIO)"); 163234832Speter case 1: 163334832Speter return(" (SI)"); 163434832Speter } 163534832Speter break; 163634832Speter /* T225 based hosts */ 163734832Speter case SIJETPCI: 163834832Speter case SIJETISA: 163934832Speter switch (uart_type) { 164034832Speter case 0: 164134832Speter return(" (SI)"); 164234832Speter case 40: 164334832Speter return(" (XIO)"); 164436856Sphk case 72: 164536856Sphk return(" (SXDC)"); 164634832Speter } 164734832Speter break; 164834832Speter } 164934832Speter return(""); 165034832Speter} 1651