si.c revision 136058
110015Speter/* 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 136058 2004-10-02 16:56:08Z phk $"); 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> 5615683Speter#include <sys/sysctl.h> 5756498Speter#include <sys/bus.h> 5856498Speter#include <machine/bus.h> 5956498Speter#include <sys/rman.h> 6056498Speter#include <machine/resource.h> 6110015Speter 6210015Speter 6312659Sbde#include <vm/vm.h> 6412662Sdg#include <vm/pmap.h> 6512659Sbde 6613353Speter#include <machine/stdarg.h> 6710015Speter 6856498Speter#include <dev/si/sireg.h> 6956505Speter#include <dev/si/sivar.h> 7056498Speter#include <dev/si/si.h> 7156498Speter 7210015Speter/* 7310015Speter * This device driver is designed to interface the Specialix International 7434832Speter * SI, XIO and SX range of serial multiplexor cards to FreeBSD on an ISA, 7534832Speter * EISA or PCI bus machine. 7610015Speter * 7734832Speter * The controller is interfaced to the host via dual port RAM 7834832Speter * and an interrupt. 7933395Speter * 8034832Speter * The code for the Host 1 (very old ISA cards) has not been tested. 8110015Speter */ 8210015Speter 8317547Speter#define POLL /* turn on poller to scan for lost interrupts */ 8417547Speter#define REALPOLL /* on each poll, scan for work regardless */ 8517547Speter#define POLLHZ (hz/10) /* 10 times per second */ 8612496Speter#define SI_I_HIGH_WATER (TTYHOG - 2 * SI_BUFFERSIZE) 8734832Speter#define INT_COUNT 25000 /* max of 125 ints per second */ 8834832Speter#define JET_INT_COUNT 100 /* max of 100 ints per second */ 8915639Speter#define RXINT_COUNT 1 /* one rxint per 10 milliseconds */ 9010015Speter 9156498Speterstatic void si_command(struct si_port *, int, int); 92130585Sphkstatic int si_Sioctl(struct cdev *, u_long, caddr_t, int, struct thread *); 9356498Speterstatic void si_start(struct tty *); 9456498Speterstatic void si_stop(struct tty *, int); 9525047Sbdestatic timeout_t si_lstart; 9610015Speter 97136058Sphkstatic t_break_t sibreak; 98136058Sphkstatic t_close_t siclose; 99136058Sphkstatic t_modem_t simodem; 100136058Sphkstatic t_open_t siopen; 10156505Speter 10256498Speterstatic int siparam(struct tty *, struct termios *); 10310015Speter 10456498Speterstatic void si_modem_state(struct si_port *pp, struct tty *tp, int hi_ip); 10556498Speterstatic char * si_modulename(int host_type, int uart_type); 10610708Speter 107136058Sphkstatic struct cdevsw si_Scdevsw = { 108126080Sphk .d_version = D_VERSION, 109136058Sphk .d_ioctl = si_Sioctl, 110111815Sphk .d_name = "si", 111126080Sphk .d_flags = D_TTY | D_NEEDGIANT, 11238485Sbde}; 11312675Sjulian 11410962Speterstatic int si_Nports; 11510962Speterstatic int si_Nmodules; 11610962Speterstatic int si_debug = 0; /* data, not bss, so it's patchable */ 11710015Speter 11834832SpeterSYSCTL_INT(_machdep, OID_AUTO, si_debug, CTLFLAG_RW, &si_debug, 0, ""); 119100743SpeterTUNABLE_INT("machdep.si_debug", &si_debug); 12034832Speter 12156498Speterstatic int si_numunits; 12210044Speter 12356505Speterdevclass_t si_devclass; 12456498Speter 12512174Speter#ifndef B2000 /* not standard, but the hardware knows it. */ 12610015Speter# define B2000 2000 12710015Speter#endif 12810015Speterstatic struct speedtab bdrates[] = { 12950442Speter { B75, CLK75, }, /* 0x0 */ 13050442Speter { B110, CLK110, }, /* 0x1 */ 13150442Speter { B150, CLK150, }, /* 0x3 */ 13250442Speter { B300, CLK300, }, /* 0x4 */ 13350442Speter { B600, CLK600, }, /* 0x5 */ 13450442Speter { B1200, CLK1200, }, /* 0x6 */ 13550442Speter { B2000, CLK2000, }, /* 0x7 */ 13650442Speter { B2400, CLK2400, }, /* 0x8 */ 13750442Speter { B4800, CLK4800, }, /* 0x9 */ 13850442Speter { B9600, CLK9600, }, /* 0xb */ 13950442Speter { B19200, CLK19200, }, /* 0xc */ 14050442Speter { B38400, CLK38400, }, /* 0x2 (out of order!) */ 14150442Speter { B57600, CLK57600, }, /* 0xd */ 14250442Speter { B115200, CLK110, }, /* 0x1 (dupe!, 110 baud on "si") */ 14350442Speter { -1, -1 }, 14410015Speter}; 14510015Speter 14610015Speter 14710015Speter/* populated with approx character/sec rates - translated at card 14810015Speter * initialisation time to chars per tick of the clock */ 14910015Speterstatic int done_chartimes = 0; 15010015Speterstatic struct speedtab chartimes[] = { 15150442Speter { B75, 8, }, 15250442Speter { B110, 11, }, 15350442Speter { B150, 15, }, 15450442Speter { B300, 30, }, 15550442Speter { B600, 60, }, 15650442Speter { B1200, 120, }, 15750442Speter { B2000, 200, }, 15850442Speter { B2400, 240, }, 15950442Speter { B4800, 480, }, 16050442Speter { B9600, 960, }, 16150442Speter { B19200, 1920, }, 16250442Speter { B38400, 3840, }, 16350442Speter { B57600, 5760, }, 16450442Speter { B115200, 11520, }, 16550442Speter { -1, -1 }, 16610015Speter}; 16710015Speterstatic volatile int in_intr = 0; /* Inside interrupt handler? */ 16810015Speter 16910015Speter#ifdef POLL 17015683Speterstatic int si_pollrate; /* in addition to irq */ 17156498Speterstatic int si_realpoll = 0; /* poll HW on timer */ 17215639Speter 17316403SpeterSYSCTL_INT(_machdep, OID_AUTO, si_pollrate, CTLFLAG_RW, &si_pollrate, 0, ""); 17417547SpeterSYSCTL_INT(_machdep, OID_AUTO, si_realpoll, CTLFLAG_RW, &si_realpoll, 0, ""); 17550442Speter 17610015Speterstatic int init_finished = 0; 17756498Speterstatic void si_poll(void *); 17810015Speter#endif 17910015Speter 18010015Speter/* 18110015Speter * Array of adapter types and the corresponding RAM size. The order of 18210015Speter * entries here MUST match the ordinal of the adapter type. 18310015Speter */ 184136058Sphkstatic const char *si_type[] = { 18510015Speter "EMPTY", 18610015Speter "SIHOST", 18734832Speter "SIMCA", /* FreeBSD does not support Microchannel */ 18810015Speter "SIHOST2", 18910015Speter "SIEISA", 19033395Speter "SIPCI", 19133395Speter "SXPCI", 19233395Speter "SXISA", 19310015Speter}; 19410015Speter 19556498Speter/* 19656498Speter * We have to make an 8 bit version of bcopy, since some cards can't 19756498Speter * deal with 32 bit I/O 19856498Speter */ 19956498Speterstatic void __inline 20056498Spetersi_bcopy(const void *src, void *dst, size_t len) 20156498Speter{ 202132771Skan u_char *d; 203132771Skan const u_char *s; 204132771Skan 205132771Skan d = dst; 206132771Skan s = src; 20756498Speter while (len--) 208132771Skan *d++ = *s++; 20956498Speter} 21056498Speterstatic void __inline 21156498Spetersi_vbcopy(const volatile void *src, void *dst, size_t len) 21256498Speter{ 213132771Skan u_char *d; 214132771Skan const volatile u_char *s; 215132771Skan 216132771Skan d = dst; 217132771Skan s = src; 21856498Speter while (len--) 219132771Skan *d++ = *s++; 22056498Speter} 22156498Speterstatic void __inline 22256498Spetersi_bcopyv(const void *src, volatile void *dst, size_t len) 22356498Speter{ 224132771Skan volatile u_char *d; 225132771Skan const u_char *s; 226132771Skan 227132771Skan d = dst; 228132771Skan s = src; 22956498Speter while (len--) 230132771Skan *d++ = *s++; 23156498Speter} 23256498Speter 23334832Speter/* 23410015Speter * Attach the device. Initialize the card. 23510015Speter */ 23656505Speterint 23756498Spetersiattach(device_t dev) 23810015Speter{ 23956498Speter int unit; 24056498Speter struct si_softc *sc; 24110015Speter struct si_port *pp; 242136058Sphk struct tty *tp; 24310015Speter volatile struct si_channel *ccbp; 24410015Speter volatile struct si_reg *regp; 24510015Speter volatile caddr_t maddr; 24610015Speter struct si_module *modp; 24710015Speter struct speedtab *spt; 24810015Speter int nmodule, nport, x, y; 24912174Speter int uart_type; 25010015Speter 25156498Speter sc = device_get_softc(dev); 25256498Speter unit = device_get_unit(dev); 25310015Speter 25456505Speter sc->sc_typename = si_type[sc->sc_type]; 25556505Speter if (si_numunits < unit + 1) 25656505Speter si_numunits = unit + 1; 25756505Speter 25856498Speter DPRINT((0, DBG_AUTOBOOT, "si%d: siattach\n", unit)); 25910015Speter 26056498Speter#ifdef POLL 26156498Speter if (si_pollrate == 0) { 26256498Speter si_pollrate = POLLHZ; /* in addition to irq */ 26356498Speter#ifdef REALPOLL 26456498Speter si_realpoll = 1; /* scan always */ 26556498Speter#endif 26656498Speter } 26756498Speter#endif 26856498Speter 26933395Speter DPRINT((0, DBG_AUTOBOOT, "si%d: type: %s paddr: %x maddr: %x\n", unit, 27033395Speter sc->sc_typename, sc->sc_paddr, sc->sc_maddr)); 27133395Speter 27210015Speter sc->sc_ports = NULL; /* mark as uninitialised */ 27310015Speter 27410015Speter maddr = sc->sc_maddr; 27510015Speter 27634832Speter /* Stop the CPU first so it won't stomp around while we load */ 27734832Speter 27834832Speter switch (sc->sc_type) { 27934832Speter case SIEISA: 28056498Speter outb(sc->sc_iobase + 2, sc->sc_irq << 4); 28134832Speter break; 28234832Speter case SIPCI: 28334832Speter *(maddr+SIPCIRESET) = 0; 28434832Speter break; 28534832Speter case SIJETPCI: /* fall through to JET ISA */ 28634832Speter case SIJETISA: 28734832Speter *(maddr+SIJETCONFIG) = 0; 28834832Speter break; 28934832Speter case SIHOST2: 29034832Speter *(maddr+SIPLRESET) = 0; 29134832Speter break; 29234832Speter case SIHOST: 29334832Speter *(maddr+SIRESET) = 0; 29434832Speter break; 29534832Speter default: /* this should never happen */ 29634832Speter printf("si%d: unsupported configuration\n", unit); 29756498Speter return EINVAL; 29834832Speter break; 29934832Speter } 30034832Speter 30134832Speter /* OK, now lets download the download code */ 30234832Speter 30336956Ssteve if (SI_ISJET(sc->sc_type)) { 30433395Speter DPRINT((0, DBG_DOWNLOAD, "si%d: jet_download: nbytes %d\n", 30556498Speter unit, si3_t225_dsize)); 30634832Speter si_bcopy(si3_t225_download, maddr + si3_t225_downloadaddr, 30734832Speter si3_t225_dsize); 30834832Speter DPRINT((0, DBG_DOWNLOAD, 30934832Speter "si%d: jet_bootstrap: nbytes %d -> %x\n", 31056498Speter unit, si3_t225_bsize, si3_t225_bootloadaddr)); 31134832Speter si_bcopy(si3_t225_bootstrap, maddr + si3_t225_bootloadaddr, 31234832Speter si3_t225_bsize); 31334832Speter } else { 31433395Speter DPRINT((0, DBG_DOWNLOAD, "si%d: si_download: nbytes %d\n", 31556498Speter unit, si2_z280_dsize)); 31634832Speter si_bcopy(si2_z280_download, maddr + si2_z280_downloadaddr, 31734832Speter si2_z280_dsize); 31833395Speter } 31910015Speter 32034832Speter /* Now start the CPU */ 32134832Speter 32210015Speter switch (sc->sc_type) { 32310015Speter case SIEISA: 32434832Speter /* modify the download code to tell it that it's on an EISA */ 32534832Speter *(maddr + 0x42) = 1; 32656498Speter outb(sc->sc_iobase + 2, (sc->sc_irq << 4) | 4); 32756498Speter (void)inb(sc->sc_iobase + 3); /* reset interrupt */ 32810015Speter break; 32933395Speter case SIPCI: 33034832Speter /* modify the download code to tell it that it's on a PCI */ 33133395Speter *(maddr+0x42) = 1; 33233395Speter *(maddr+SIPCIRESET) = 1; 33333395Speter *(maddr+SIPCIINTCL) = 0; 33433395Speter break; 33533395Speter case SIJETPCI: 33633395Speter *(maddr+SIJETRESET) = 0; 33733395Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN; 33833395Speter break; 33933395Speter case SIJETISA: 34033395Speter *(maddr+SIJETRESET) = 0; 34134832Speter switch (sc->sc_irq) { 34256498Speter case 9: 34334832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0x90; 34434832Speter break; 34556498Speter case 10: 34634832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xa0; 34734832Speter break; 34856498Speter case 11: 34934832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xb0; 35034832Speter break; 35156498Speter case 12: 35234832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xc0; 35334832Speter break; 35456498Speter case 15: 35534832Speter *(maddr+SIJETCONFIG) = SIJETBUSEN|SIJETIRQEN|0xf0; 35634832Speter break; 35734832Speter } 35833395Speter break; 35910015Speter case SIHOST: 36010015Speter *(maddr+SIRESET_CL) = 0; 36110015Speter *(maddr+SIINTCL_CL) = 0; 36210015Speter break; 36310015Speter case SIHOST2: 36410015Speter *(maddr+SIPLRESET) = 0x10; 36510015Speter switch (sc->sc_irq) { 36656498Speter case 11: 36710015Speter *(maddr+SIPLIRQ11) = 0x10; 36810015Speter break; 36956498Speter case 12: 37010015Speter *(maddr+SIPLIRQ12) = 0x10; 37110015Speter break; 37256498Speter case 15: 37310015Speter *(maddr+SIPLIRQ15) = 0x10; 37410015Speter break; 37510015Speter } 37610015Speter *(maddr+SIPLIRQCLR) = 0x10; 37710015Speter break; 37834832Speter default: /* this should _REALLY_ never happen */ 37934832Speter printf("si%d: Uh, it was supported a second ago...\n", unit); 38056498Speter return EINVAL; 38110015Speter } 38210015Speter 38310015Speter DELAY(1000000); /* wait around for a second */ 38410015Speter 38510015Speter regp = (struct si_reg *)maddr; 38610015Speter y = 0; 38710015Speter /* wait max of 5 sec for init OK */ 38810015Speter while (regp->initstat == 0 && y++ < 10) { 38910015Speter DELAY(500000); 39010015Speter } 39110015Speter switch (regp->initstat) { 39210015Speter case 0: 39310015Speter printf("si%d: startup timeout - aborting\n", unit); 39412174Speter sc->sc_type = SIEMPTY; 39556498Speter return EINVAL; 39610015Speter case 1: 39736956Ssteve if (SI_ISJET(sc->sc_type)) { 39834832Speter /* set throttle to 100 times per second */ 39934832Speter regp->int_count = JET_INT_COUNT; 40034832Speter /* rx_intr_count is a NOP in Jet */ 40134832Speter } else { 40234832Speter /* set throttle to 125 times per second */ 40334832Speter regp->int_count = INT_COUNT; 40434832Speter /* rx intr max of 25 times per second */ 40534832Speter regp->rx_int_count = RXINT_COUNT; 40634832Speter } 40710015Speter regp->int_pending = 0; /* no intr pending */ 40810015Speter regp->int_scounter = 0; /* reset counter */ 40910015Speter break; 41010015Speter case 0xff: 41110015Speter /* 41210015Speter * No modules found, so give up on this one. 41310015Speter */ 41410015Speter printf("si%d: %s - no ports found\n", unit, 41510015Speter si_type[sc->sc_type]); 41610015Speter return 0; 41710015Speter default: 41834832Speter printf("si%d: download code version error - initstat %x\n", 41910015Speter unit, regp->initstat); 42056498Speter return EINVAL; 42110015Speter } 42210015Speter 42310015Speter /* 42410015Speter * First time around the ports just count them in order 42510015Speter * to allocate some memory. 42610015Speter */ 42710015Speter nport = 0; 42810015Speter modp = (struct si_module *)(maddr + 0x80); 42910015Speter for (;;) { 43012174Speter DPRINT((0, DBG_DOWNLOAD, "si%d: ccb addr 0x%x\n", unit, modp)); 43134832Speter switch (modp->sm_type) { 43234832Speter case TA4: 43310015Speter DPRINT((0, DBG_DOWNLOAD, 43434832Speter "si%d: Found old TA4 module, 4 ports\n", 43534832Speter unit)); 43634832Speter x = 4; 43710015Speter break; 43834832Speter case TA8: 43934832Speter DPRINT((0, DBG_DOWNLOAD, 44034832Speter "si%d: Found old TA8 module, 8 ports\n", 44134832Speter unit)); 44234832Speter x = 8; 44334832Speter break; 44434832Speter case TA4_ASIC: 44534832Speter DPRINT((0, DBG_DOWNLOAD, 44634832Speter "si%d: Found ASIC TA4 module, 4 ports\n", 44734832Speter unit)); 44834832Speter x = 4; 44934832Speter break; 45034832Speter case TA8_ASIC: 45134832Speter DPRINT((0, DBG_DOWNLOAD, 45234832Speter "si%d: Found ASIC TA8 module, 8 ports\n", 45334832Speter unit)); 45434832Speter x = 8; 45534832Speter break; 45634832Speter case MTA: 45734832Speter DPRINT((0, DBG_DOWNLOAD, 45834832Speter "si%d: Found CD1400 module, 8 ports\n", 45934832Speter unit)); 46034832Speter x = 8; 46134832Speter break; 46234832Speter case SXDC: 46334832Speter DPRINT((0, DBG_DOWNLOAD, 46434832Speter "si%d: Found SXDC module, 8 ports\n", 46534832Speter unit)); 46634832Speter x = 8; 46734832Speter break; 46810015Speter default: 46910015Speter printf("si%d: unknown module type %d\n", 47010015Speter unit, modp->sm_type); 47134832Speter goto try_next; 47210015Speter } 47334832Speter 47434832Speter /* this was limited in firmware and is also a driver issue */ 47534832Speter if ((nport + x) > SI_MAXPORTPERCARD) { 47634832Speter printf("si%d: extra ports ignored\n", unit); 47734832Speter goto try_next; 47834832Speter } 47934832Speter 48034832Speter nport += x; 48134832Speter si_Nports += x; 48234832Speter si_Nmodules++; 48334832Speter 48434832Spetertry_next: 48510015Speter if (modp->sm_next == 0) 48610015Speter break; 48710015Speter modp = (struct si_module *) 48810015Speter (maddr + (unsigned)(modp->sm_next & 0x7fff)); 48910015Speter } 49010015Speter sc->sc_ports = (struct si_port *)malloc(sizeof(struct si_port) * nport, 49169781Sdwmalone M_DEVBUF, M_NOWAIT | M_ZERO); 49210015Speter if (sc->sc_ports == 0) { 49310015Speter printf("si%d: fail to malloc memory for port structs\n", 49410015Speter unit); 49556498Speter return EINVAL; 49610015Speter } 49710015Speter sc->sc_nport = nport; 49810015Speter 49910015Speter /* 50010015Speter * Scan round the ports again, this time initialising. 50110015Speter */ 50210015Speter pp = sc->sc_ports; 50310015Speter nmodule = 0; 50410015Speter modp = (struct si_module *)(maddr + 0x80); 50534832Speter uart_type = 1000; /* arbitary, > uchar_max */ 50610015Speter for (;;) { 50734832Speter switch (modp->sm_type) { 50834832Speter case TA4: 50934832Speter nport = 4; 51010015Speter break; 51134832Speter case TA8: 51234832Speter nport = 8; 51334832Speter break; 51434832Speter case TA4_ASIC: 51534832Speter nport = 4; 51634832Speter break; 51734832Speter case TA8_ASIC: 51834832Speter nport = 8; 51934832Speter break; 52034832Speter case MTA: 52134832Speter nport = 8; 52234832Speter break; 52334832Speter case SXDC: 52434832Speter nport = 8; 52534832Speter break; 52610015Speter default: 52734832Speter goto try_next2; 52810015Speter } 52934832Speter nmodule++; 53034832Speter ccbp = (struct si_channel *)((char *)modp + 0x100); 53134832Speter if (uart_type == 1000) 53234832Speter uart_type = ccbp->type; 53334832Speter else if (uart_type != ccbp->type) 53434832Speter printf("si%d: Warning: module %d mismatch! (%d%s != %d%s)\n", 53534832Speter unit, nmodule, 53634832Speter ccbp->type, si_modulename(sc->sc_type, ccbp->type), 53734832Speter uart_type, si_modulename(sc->sc_type, uart_type)); 53834832Speter 53934832Speter for (x = 0; x < nport; x++, pp++, ccbp++) { 54034832Speter pp->sp_ccb = ccbp; /* save the address */ 54134832Speter pp->sp_pend = IDLE_CLOSE; 54234832Speter pp->sp_state = 0; /* internal flag */ 543136058Sphk#ifdef SI_DEBUG 544136058Sphk sprintf(pp->sp_name, "si%r%r", unit, x); 545136058Sphk#endif 546136058Sphk tp = pp->sp_tty = ttyalloc(); 547136058Sphk tp->t_sc = pp; 548136058Sphk tp->t_break = sibreak; 549136058Sphk tp->t_close = siclose; 550136058Sphk tp->t_modem = simodem; 551136058Sphk tp->t_open = siopen; 552136058Sphk tp->t_oproc = si_start; 553136058Sphk tp->t_param = siparam; 554136058Sphk tp->t_stop = si_stop; 555136058Sphk ttycreate(tp, NULL, 0, MINOR_CALLOUT, "A%r%r", unit, x); 55634832Speter } 55734832Spetertry_next2: 55810015Speter if (modp->sm_next == 0) { 55934832Speter printf("si%d: card: %s, ports: %d, modules: %d, type: %d%s\n", 56010015Speter unit, 56110015Speter sc->sc_typename, 56210015Speter sc->sc_nport, 56312174Speter nmodule, 56434832Speter uart_type, 56534832Speter si_modulename(sc->sc_type, uart_type)); 56610015Speter break; 56710015Speter } 56810015Speter modp = (struct si_module *) 56910015Speter (maddr + (unsigned)(modp->sm_next & 0x7fff)); 57010015Speter } 57110015Speter if (done_chartimes == 0) { 57210015Speter for (spt = chartimes ; spt->sp_speed != -1; spt++) { 57310015Speter if ((spt->sp_code /= hz) == 0) 57410015Speter spt->sp_code = 1; 57510015Speter } 57610015Speter done_chartimes = 1; 57710015Speter } 57812502Sjulian 579136058Sphk make_dev(&si_Scdevsw, 0, 0, 0, 0600, "si_control"); 58056498Speter return (0); 58110015Speter} 58210015Speter 58312675Sjulianstatic int 584136058Sphksiopen(struct tty *tp, struct cdev *dev) 58510015Speter{ 58610015Speter 58710015Speter#ifdef POLL 58810015Speter /* 58910015Speter * We've now got a device, so start the poller. 59010015Speter */ 59110015Speter if (init_finished == 0) { 59215639Speter timeout(si_poll, (caddr_t)0L, si_pollrate); 59310015Speter init_finished = 1; 59410015Speter } 59510015Speter#endif 596136058Sphk return(0); 59710015Speter} 59810015Speter 599136058Sphkstatic void 600136058Sphksiclose(struct tty *tp) 60110015Speter{ 60256498Speter struct si_port *pp; 60310015Speter 604136058Sphk pp = tp->t_sc; 605136058Sphk (void) si_command(pp, FCLOSE, SI_NOWAIT); 60610015Speter} 60710015Speter 60810015Speterstatic void 609136058Sphksibreak(struct tty *tp, int sig) 61010015Speter{ 61156498Speter struct si_port *pp; 61210015Speter 613136058Sphk pp = tp->t_sc; 614136058Sphk if (sig) 61516575Speter si_command(pp, SBREAK, SI_WAIT); 616136058Sphk else 61716575Speter si_command(pp, EBREAK, SI_WAIT); 61810015Speter} 61910015Speter 620136058Sphk 62110015Speter/* 622136058Sphk * Handle the Specialix ioctls on the control dev. 62310015Speter */ 62410015Speterstatic int 625130585Sphksi_Sioctl(struct cdev *dev, u_long cmd, caddr_t data, int flag, struct thread *td) 62610015Speter{ 62710015Speter struct si_softc *xsc; 62856498Speter struct si_port *xpp; 62910015Speter volatile struct si_reg *regp; 63010015Speter struct si_tcsi *dp; 63110044Speter struct si_pstat *sps; 63211872Sphk int *ip, error = 0; 63310015Speter int oldspl; 63410015Speter int card, port; 63510015Speter 63650016Snsayer DPRINT((0, DBG_ENTRY|DBG_IOCTL, "si_Sioctl(%s,%lx,%x,%x)\n", 63750016Snsayer devtoname(dev), cmd, data, flag)); 63810015Speter 63910044Speter#if 1 64010044Speter DPRINT((0, DBG_IOCTL, "TCSI_PORT=%x\n", TCSI_PORT)); 64110044Speter DPRINT((0, DBG_IOCTL, "TCSI_CCB=%x\n", TCSI_CCB)); 64210044Speter DPRINT((0, DBG_IOCTL, "TCSI_TTY=%x\n", TCSI_TTY)); 64310044Speter#endif 64410044Speter 64510015Speter oldspl = spltty(); /* better safe than sorry */ 64610015Speter 64710015Speter ip = (int *)data; 64810015Speter 64993593Sjhb#define SUCHECK if ((error = suser(td))) goto out 65010015Speter 65110015Speter switch (cmd) { 65210015Speter case TCSIPORTS: 65310015Speter *ip = si_Nports; 65410015Speter goto out; 65510015Speter case TCSIMODULES: 65610015Speter *ip = si_Nmodules; 65710015Speter goto out; 65810015Speter case TCSISDBG_ALL: 65910015Speter SUCHECK; 66010015Speter si_debug = *ip; 66110015Speter goto out; 66210015Speter case TCSIGDBG_ALL: 66310015Speter *ip = si_debug; 66410015Speter goto out; 66510015Speter default: 66610015Speter /* 66710015Speter * Check that a controller for this port exists 66810015Speter */ 66910044Speter 67010044Speter /* may also be a struct si_pstat, a superset of si_tcsi */ 67110044Speter 67210015Speter dp = (struct si_tcsi *)data; 67310044Speter sps = (struct si_pstat *)data; 67410015Speter card = dp->tc_card; 67556498Speter xsc = devclass_get_softc(si_devclass, card); /* check.. */ 67656498Speter if (xsc == NULL || xsc->sc_type == SIEMPTY) { 67710015Speter error = ENOENT; 67810015Speter goto out; 67910015Speter } 68010015Speter /* 68110015Speter * And check that a port exists 68210015Speter */ 68310015Speter port = dp->tc_port; 68410015Speter if (port < 0 || port >= xsc->sc_nport) { 68510015Speter error = ENOENT; 68610015Speter goto out; 68710015Speter } 68810015Speter xpp = xsc->sc_ports + port; 68910015Speter regp = (struct si_reg *)xsc->sc_maddr; 69010015Speter } 69110015Speter 69210015Speter switch (cmd) { 69310015Speter case TCSIDEBUG: 69410015Speter#ifdef SI_DEBUG 69510015Speter SUCHECK; 69610015Speter if (xpp->sp_debug) 69710015Speter xpp->sp_debug = 0; 69810015Speter else { 69910015Speter xpp->sp_debug = DBG_ALL; 70010015Speter DPRINT((xpp, DBG_IOCTL, "debug toggled %s\n", 70110015Speter (xpp->sp_debug&DBG_ALL)?"ON":"OFF")); 70210015Speter } 70310015Speter break; 70410015Speter#else 70510015Speter error = ENODEV; 70610015Speter goto out; 70710015Speter#endif 70810015Speter case TCSISDBG_LEVEL: 70910015Speter case TCSIGDBG_LEVEL: 71010015Speter#ifdef SI_DEBUG 71110015Speter if (cmd == TCSIGDBG_LEVEL) { 71210015Speter dp->tc_dbglvl = xpp->sp_debug; 71310015Speter } else { 71410015Speter SUCHECK; 71510015Speter xpp->sp_debug = dp->tc_dbglvl; 71610015Speter } 71710015Speter break; 71810015Speter#else 71910015Speter error = ENODEV; 72010015Speter goto out; 72110015Speter#endif 72210015Speter case TCSIGRXIT: 72310015Speter dp->tc_int = regp->rx_int_count; 72410015Speter break; 72510015Speter case TCSIRXIT: 72610015Speter SUCHECK; 72710015Speter regp->rx_int_count = dp->tc_int; 72810015Speter break; 72910015Speter case TCSIGIT: 73010015Speter dp->tc_int = regp->int_count; 73110015Speter break; 73210015Speter case TCSIIT: 73310015Speter SUCHECK; 73410015Speter regp->int_count = dp->tc_int; 73510015Speter break; 73610044Speter case TCSISTATE: 73710044Speter dp->tc_int = xpp->sp_ccb->hi_ip; 73810015Speter break; 73910044Speter /* these next three use a different structure */ 74010044Speter case TCSI_PORT: 74110015Speter SUCHECK; 74234832Speter si_bcopy(xpp, &sps->tc_siport, sizeof(sps->tc_siport)); 74310015Speter break; 74410044Speter case TCSI_CCB: 74510044Speter SUCHECK; 74650442Speter si_vbcopy(xpp->sp_ccb, &sps->tc_ccb, sizeof(sps->tc_ccb)); 74710015Speter break; 74810044Speter case TCSI_TTY: 74910044Speter SUCHECK; 75034832Speter si_bcopy(xpp->sp_tty, &sps->tc_tty, sizeof(sps->tc_tty)); 75110015Speter break; 75210015Speter default: 75310015Speter error = EINVAL; 75410015Speter goto out; 75510015Speter } 75610015Speterout: 75710015Speter splx(oldspl); 75810015Speter return(error); /* success */ 75910015Speter} 76010015Speter 76110015Speter/* 76210015Speter * siparam() : Configure line params 76310015Speter * called at spltty(); 76410015Speter * this may sleep, does not flush, nor wait for drain, nor block writes 76510015Speter * caller must arrange this if it's important.. 76610015Speter */ 76712724Sphkstatic int 76856498Spetersiparam(struct tty *tp, struct termios *t) 76910015Speter{ 770136058Sphk struct si_port *pp = tp->t_sc; 77110015Speter volatile struct si_channel *ccbp; 77210015Speter int oldspl, cflag, iflag, oflag, lflag; 77310015Speter int error = 0; /* shutup gcc */ 77410015Speter int ispeed = 0; /* shutup gcc */ 77510015Speter int ospeed = 0; /* shutup gcc */ 77610161Speter BYTE val; 77710015Speter 77810015Speter DPRINT((pp, DBG_ENTRY|DBG_PARAM, "siparam(%x,%x)\n", tp, t)); 77910015Speter cflag = t->c_cflag; 78010015Speter iflag = t->c_iflag; 78110015Speter oflag = t->c_oflag; 78210015Speter lflag = t->c_lflag; 78310044Speter DPRINT((pp, DBG_PARAM, "OFLAG 0x%x CFLAG 0x%x IFLAG 0x%x LFLAG 0x%x\n", 78410044Speter oflag, cflag, iflag, lflag)); 78510015Speter 78634832Speter /* XXX - if Jet host and SXDC module, use extended baud rates */ 78710015Speter 78810015Speter /* if not hung up.. */ 78910015Speter if (t->c_ospeed != 0) { 79010015Speter /* translate baud rate to firmware values */ 79110015Speter ospeed = ttspeedtab(t->c_ospeed, bdrates); 79210015Speter ispeed = t->c_ispeed ? 79310015Speter ttspeedtab(t->c_ispeed, bdrates) : ospeed; 79410015Speter 79510015Speter /* enforce legit baud rate */ 79610015Speter if (ospeed < 0 || ispeed < 0) 79710015Speter return (EINVAL); 79810015Speter } 79910015Speter 80010015Speter oldspl = spltty(); 80110015Speter 80210015Speter ccbp = pp->sp_ccb; 80310015Speter 80410161Speter /* ========== set hi_break ========== */ 80510161Speter val = 0; 80610161Speter if (iflag & IGNBRK) /* Breaks */ 80710161Speter val |= BR_IGN; 80810161Speter if (iflag & BRKINT) /* Interrupt on break? */ 80910161Speter val |= BR_INT; 81010161Speter if (iflag & PARMRK) /* Parity mark? */ 81110161Speter val |= BR_PARMRK; 81210161Speter if (iflag & IGNPAR) /* Ignore chars with parity errors? */ 81310161Speter val |= BR_PARIGN; 81410161Speter ccbp->hi_break = val; 81510161Speter 81610161Speter /* ========== set hi_csr ========== */ 81710015Speter /* if not hung up.. */ 81810015Speter if (t->c_ospeed != 0) { 81910015Speter /* Set I/O speeds */ 82010161Speter val = (ispeed << 4) | ospeed; 82110015Speter } 82210161Speter ccbp->hi_csr = val; 82310015Speter 82410161Speter /* ========== set hi_mr2 ========== */ 82510161Speter val = 0; 82610015Speter if (cflag & CSTOPB) /* Stop bits */ 82710161Speter val |= MR2_2_STOP; 82810015Speter else 82910161Speter val |= MR2_1_STOP; 83010161Speter /* 83110161Speter * Enable H/W RTS/CTS handshaking. The default TA/MTA is 83210161Speter * a DCE, hence the reverse sense of RTS and CTS 83310161Speter */ 83410161Speter /* Output Flow - RTS must be raised before data can be sent */ 83510161Speter if (cflag & CCTS_OFLOW) 83610161Speter val |= MR2_RTSCONT; 83710161Speter 83816575Speter ccbp->hi_mr2 = val; 83910161Speter 84010161Speter /* ========== set hi_mr1 ========== */ 84110161Speter val = 0; 84210015Speter if (!(cflag & PARENB)) /* Parity */ 84310161Speter val |= MR1_NONE; 84410015Speter else 84510161Speter val |= MR1_WITH; 84610015Speter if (cflag & PARODD) 84710161Speter val |= MR1_ODD; 84810015Speter 84910015Speter if ((cflag & CS8) == CS8) { /* 8 data bits? */ 85010161Speter val |= MR1_8_BITS; 85110015Speter } else if ((cflag & CS7) == CS7) { /* 7 data bits? */ 85210161Speter val |= MR1_7_BITS; 85310015Speter } else if ((cflag & CS6) == CS6) { /* 6 data bits? */ 85410161Speter val |= MR1_6_BITS; 85510015Speter } else { /* Must be 5 */ 85610161Speter val |= MR1_5_BITS; 85710015Speter } 85810161Speter /* 85910161Speter * Enable H/W RTS/CTS handshaking. The default TA/MTA is 86010161Speter * a DCE, hence the reverse sense of RTS and CTS 86110161Speter */ 86210161Speter /* Input Flow - CTS is raised when port is ready to receive data */ 86310161Speter if (cflag & CRTS_IFLOW) 86410161Speter val |= MR1_CTSCONT; 86510015Speter 86610161Speter ccbp->hi_mr1 = val; 86710161Speter 86810161Speter /* ========== set hi_mask ========== */ 86910161Speter val = 0xff; 87010161Speter if ((cflag & CS8) == CS8) { /* 8 data bits? */ 87110161Speter val &= 0xFF; 87210161Speter } else if ((cflag & CS7) == CS7) { /* 7 data bits? */ 87310161Speter val &= 0x7F; 87410161Speter } else if ((cflag & CS6) == CS6) { /* 6 data bits? */ 87510161Speter val &= 0x3F; 87610161Speter } else { /* Must be 5 */ 87710161Speter val &= 0x1F; 87810161Speter } 87910015Speter if (iflag & ISTRIP) 88010161Speter val &= 0x7F; 88110015Speter 88210161Speter ccbp->hi_mask = val; 88310161Speter 88410161Speter /* ========== set hi_prtcl ========== */ 88556592Speter val = SP_DCEN; /* Monitor DCD always, or TIOCMGET misses it */ 88610161Speter if (iflag & IXANY) 88710161Speter val |= SP_TANY; 88810161Speter if (iflag & IXON) 88910161Speter val |= SP_TXEN; 89010161Speter if (iflag & IXOFF) 89110161Speter val |= SP_RXEN; 89210161Speter if (iflag & INPCK) 89310161Speter val |= SP_PAEN; 89410015Speter 89510161Speter ccbp->hi_prtcl = val; 89610161Speter 89710161Speter 89810161Speter /* ========== set hi_{rx|tx}{on|off} ========== */ 89910161Speter /* XXX: the card TOTALLY shields us from the flow control... */ 90010015Speter ccbp->hi_txon = t->c_cc[VSTART]; 90110015Speter ccbp->hi_txoff = t->c_cc[VSTOP]; 90210015Speter 90310015Speter ccbp->hi_rxon = t->c_cc[VSTART]; 90410015Speter ccbp->hi_rxoff = t->c_cc[VSTOP]; 90510015Speter 90610161Speter /* ========== send settings to the card ========== */ 90710015Speter /* potential sleep here */ 90810015Speter if (ccbp->hi_stat == IDLE_CLOSE) /* Not yet open */ 90910015Speter si_command(pp, LOPEN, SI_WAIT); /* open it */ 91010015Speter else 91110015Speter si_command(pp, CONFIG, SI_WAIT); /* change params */ 91210015Speter 91310161Speter /* ========== set DTR etc ========== */ 91410015Speter /* Hangup if ospeed == 0 */ 91510015Speter if (t->c_ospeed == 0) { 916136058Sphk (void) simodem(tp, 0, SER_DTR | SER_RTS); 91710015Speter } else { 91810015Speter /* 91910015Speter * If the previous speed was 0, may need to re-enable 92034832Speter * the modem signals 92134832Speter */ 922136058Sphk (void) simodem(tp, SER_DTR | SER_RTS, 0); 92310015Speter } 92410015Speter 92510044Speter DPRINT((pp, DBG_PARAM, "siparam, complete: MR1 %x MR2 %x HI_MASK %x PRTCL %x HI_BREAK %x\n", 92610044Speter ccbp->hi_mr1, ccbp->hi_mr2, ccbp->hi_mask, ccbp->hi_prtcl, ccbp->hi_break)); 92710015Speter 92810015Speter splx(oldspl); 92910015Speter return(error); 93010015Speter} 93110015Speter 93210015Speter/* 93310015Speter * Set/Get state of modem control lines. 93410015Speter * Due to DCE-like behaviour of the adapter, some signals need translation: 93510015Speter * TIOCM_DTR DSR 93610015Speter * TIOCM_RTS CTS 93710015Speter */ 93810015Speterstatic int 939136058Sphksimodem(struct tty *tp, int sigon, int sigoff) 94010015Speter{ 941136058Sphk struct si_port *pp; 94210015Speter volatile struct si_channel *ccbp; 94310015Speter int x; 94410015Speter 945136058Sphk pp = tp->t_sc; 946136058Sphk DPRINT((pp, DBG_ENTRY|DBG_MODEM, "simodem(%x,%x)\n", sigon, sigoff)); 94710015Speter ccbp = pp->sp_ccb; /* Find channel address */ 948136058Sphk if (sigon == 0 && sigoff == 0) { 94910015Speter x = ccbp->hi_ip; 950136058Sphk /* 951136058Sphk * XXX: not sure this is correct, should it be CTS&DSR ? 952136058Sphk * XXX: or do we (just) miss CTS & DSR ? 953136058Sphk */ 954136058Sphk if (x & IP_DCD) sigon |= SER_DCD; 955136058Sphk if (x & IP_DTR) sigon |= SER_DTR; 956136058Sphk if (x & IP_RTS) sigon |= SER_RTS; 957136058Sphk if (x & IP_RI) sigon |= SER_RI; 958136058Sphk return (sigon); 95910015Speter } 960136058Sphk 961136058Sphk x = ccbp->hi_op; 962136058Sphk if (sigon & SER_DTR) 963136058Sphk x |= OP_DSR; 964136058Sphk if (sigoff & SER_DTR) 965136058Sphk x &= ~OP_DSR; 966136058Sphk if (sigon & SER_RTS) 967136058Sphk x |= OP_CTS; 968136058Sphk if (sigoff & SER_RTS) 969136058Sphk x &= ~OP_CTS; 970136058Sphk ccbp->hi_op = x; 97110015Speter return 0; 97210015Speter} 97310015Speter 97410015Speter/* 97510015Speter * Handle change of modem state 97610015Speter */ 97710015Speterstatic void 97856498Spetersi_modem_state(struct si_port *pp, struct tty *tp, int hi_ip) 97910015Speter{ 98010015Speter /* if a modem dev */ 98110015Speter if (hi_ip & IP_DCD) { 98250442Speter if (!(pp->sp_last_hi_ip & IP_DCD)) { 98310015Speter DPRINT((pp, DBG_INTR, "modem carr on t_line %d\n", 98410015Speter tp->t_line)); 985130077Sphk (void)ttyld_modem(tp, 1); 98610015Speter } 98710015Speter } else { 98810015Speter if (pp->sp_last_hi_ip & IP_DCD) { 98910015Speter DPRINT((pp, DBG_INTR, "modem carr off\n")); 990130077Sphk if (ttyld_modem(tp, 0)) 991136058Sphk (void) simodem(tp, 0, SER_DTR | SER_RTS); 99210015Speter } 99310015Speter } 99410015Speter pp->sp_last_hi_ip = hi_ip; 99510015Speter 99610015Speter} 99710015Speter 99810015Speter/* 99910015Speter * Poller to catch missed interrupts. 100012174Speter * 100112496Speter * Note that the SYSV Specialix drivers poll at 100 times per second to get 100212496Speter * better response. We could really use a "periodic" version timeout(). :-) 100310015Speter */ 100410015Speter#ifdef POLL 100510708Speterstatic void 100610015Spetersi_poll(void *nothing) 100710015Speter{ 100856498Speter struct si_softc *sc; 100956498Speter int i; 101010015Speter volatile struct si_reg *regp; 101156498Speter struct si_port *pp; 101212174Speter int lost, oldspl, port; 101310015Speter 101410015Speter DPRINT((0, DBG_POLL, "si_poll()\n")); 101511609Speter oldspl = spltty(); 101610015Speter if (in_intr) 101710015Speter goto out; 101810015Speter lost = 0; 101956498Speter for (i = 0; i < si_numunits; i++) { 102056498Speter sc = devclass_get_softc(si_devclass, i); 102156498Speter if (sc == NULL || sc->sc_type == SIEMPTY) 102210015Speter continue; 102310015Speter regp = (struct si_reg *)sc->sc_maddr; 102434832Speter 102510015Speter /* 102610015Speter * See if there has been a pending interrupt for 2 seconds 102733395Speter * or so. The test (int_scounter >= 200) won't correspond 102810015Speter * to 2 seconds if int_count gets changed. 102910015Speter */ 103010015Speter if (regp->int_pending != 0) { 103110015Speter if (regp->int_scounter >= 200 && 103210015Speter regp->initstat == 1) { 103312174Speter printf("si%d: lost intr\n", i); 103410015Speter lost++; 103510015Speter } 103610015Speter } else { 103710015Speter regp->int_scounter = 0; 103810015Speter } 103910015Speter 104012174Speter /* 104112174Speter * gripe about no input flow control.. 104212174Speter */ 104312174Speter pp = sc->sc_ports; 104412174Speter for (port = 0; port < sc->sc_nport; pp++, port++) { 104512174Speter if (pp->sp_delta_overflows > 0) { 104612174Speter printf("si%d: %d tty level buffer overflows\n", 104712174Speter i, pp->sp_delta_overflows); 104812174Speter pp->sp_delta_overflows = 0; 104912174Speter } 105012174Speter } 105110015Speter } 105217547Speter if (lost || si_realpoll) 105356498Speter si_intr(NULL); /* call intr with fake vector */ 105411609Speterout: 105510015Speter splx(oldspl); 105610015Speter 105715639Speter timeout(si_poll, (caddr_t)0L, si_pollrate); 105810015Speter} 105910015Speter#endif /* ifdef POLL */ 106010015Speter 106110015Speter/* 106210015Speter * The interrupt handler polls ALL ports on ALL adapters each time 106310015Speter * it is called. 106410015Speter */ 106510015Speter 106612496Speterstatic BYTE si_rxbuf[SI_BUFFERSIZE]; /* input staging area */ 106734832Speterstatic BYTE si_txbuf[SI_BUFFERSIZE]; /* output staging area */ 106810015Speter 106956505Spetervoid 107056498Spetersi_intr(void *arg) 107110015Speter{ 107256498Speter struct si_softc *sc; 107356498Speter struct si_port *pp; 107410015Speter volatile struct si_channel *ccbp; 107556498Speter struct tty *tp; 107610015Speter volatile caddr_t maddr; 107711872Sphk BYTE op, ip; 107812174Speter int x, card, port, n, i, isopen; 107910015Speter volatile BYTE *z; 108010015Speter BYTE c; 108110015Speter 108256498Speter sc = arg; 108356498Speter 108456498Speter DPRINT((0, arg == NULL ? DBG_POLL:DBG_INTR, "si_intr\n")); 108556498Speter if (in_intr) 108610708Speter return; 108710015Speter in_intr = 1; 108810015Speter 108910015Speter /* 109010015Speter * When we get an int we poll all the channels and do ALL pending 109110015Speter * work, not just the first one we find. This allows all cards to 109210015Speter * share the same vector. 109334832Speter * 109434832Speter * XXX - But if we're sharing the vector with something that's NOT 109534832Speter * a SI/XIO/SX card, we may be making more work for ourselves. 109610015Speter */ 109756498Speter for (card = 0; card < si_numunits; card++) { 109856498Speter sc = devclass_get_softc(si_devclass, card); 109956498Speter if (sc == NULL || sc->sc_type == SIEMPTY) 110010015Speter continue; 110112174Speter 110212174Speter /* 110312174Speter * First, clear the interrupt 110412174Speter */ 110510015Speter switch(sc->sc_type) { 110634832Speter case SIHOST: 110710015Speter maddr = sc->sc_maddr; 110810015Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 110910015Speter /* flag nothing pending */ 111010015Speter *(maddr+SIINTCL) = 0x00; /* Set IRQ clear */ 111110015Speter *(maddr+SIINTCL_CL) = 0x00; /* Clear IRQ clear */ 111210015Speter break; 111310015Speter case SIHOST2: 111410015Speter maddr = sc->sc_maddr; 111510015Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 111610015Speter *(maddr+SIPLIRQCLR) = 0x00; 111710015Speter *(maddr+SIPLIRQCLR) = 0x10; 111810015Speter break; 111933395Speter case SIPCI: 112033395Speter maddr = sc->sc_maddr; 112133395Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 112233395Speter *(maddr+SIPCIINTCL) = 0x0; 112333395Speter break; 112434832Speter case SIJETPCI: /* fall through to JETISA case */ 112533395Speter case SIJETISA: 112633395Speter maddr = sc->sc_maddr; 112733395Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 112833395Speter *(maddr+SIJETINTCL) = 0x0; 112933395Speter break; 113010015Speter case SIEISA: 113110015Speter maddr = sc->sc_maddr; 113210015Speter ((volatile struct si_reg *)maddr)->int_pending = 0; 113356498Speter (void)inb(sc->sc_iobase + 3); 113410015Speter break; 113510015Speter case SIEMPTY: 113610015Speter default: 113710015Speter continue; 113810015Speter } 113910015Speter ((volatile struct si_reg *)maddr)->int_scounter = 0; 114010015Speter 114112174Speter /* 114212174Speter * check each port 114312174Speter */ 114450442Speter for (pp = sc->sc_ports, port = 0; port < sc->sc_nport; 114534832Speter pp++, port++) { 114610015Speter ccbp = pp->sp_ccb; 114710015Speter tp = pp->sp_tty; 114810015Speter 114910015Speter /* 115010015Speter * See if a command has completed ? 115110015Speter */ 115210015Speter if (ccbp->hi_stat != pp->sp_pend) { 115310015Speter DPRINT((pp, DBG_INTR, 115434735Speter "si_intr hi_stat = 0x%x, pend = %d\n", 115510015Speter ccbp->hi_stat, pp->sp_pend)); 115610015Speter switch(pp->sp_pend) { 115710015Speter case LOPEN: 115810015Speter case MPEND: 115910015Speter case MOPEN: 116010015Speter case CONFIG: 116116575Speter case SBREAK: 116216575Speter case EBREAK: 116310015Speter pp->sp_pend = ccbp->hi_stat; 116410015Speter /* sleeping in si_command */ 116510015Speter wakeup(&pp->sp_state); 116610015Speter break; 116710015Speter default: 116810015Speter pp->sp_pend = ccbp->hi_stat; 116910015Speter } 117034832Speter } 117110015Speter 117210015Speter /* 117310015Speter * Continue on if it's closed 117410015Speter */ 117510015Speter if (ccbp->hi_stat == IDLE_CLOSE) { 117610015Speter continue; 117710015Speter } 117810015Speter 117910015Speter /* 118010015Speter * Do modem state change if not a local device 118110015Speter */ 118210015Speter si_modem_state(pp, tp, ccbp->hi_ip); 118310015Speter 118410015Speter /* 118534832Speter * Check to see if we should 'receive' characters. 118612174Speter */ 118712174Speter if (tp->t_state & TS_CONNECTED && 118812174Speter tp->t_state & TS_ISOPEN) 118912174Speter isopen = 1; 119012174Speter else 119112174Speter isopen = 0; 119212174Speter 119312174Speter /* 119416575Speter * Do input break processing 119510015Speter */ 119610015Speter if (ccbp->hi_state & ST_BREAK) { 119712174Speter if (isopen) { 1198130077Sphk ttyld_rint(tp, TTY_BI); 119910015Speter } 120010015Speter ccbp->hi_state &= ~ST_BREAK; /* A Bit iffy this */ 120110015Speter DPRINT((pp, DBG_INTR, "si_intr break\n")); 120210015Speter } 120310015Speter 120410015Speter /* 120512174Speter * Do RX stuff - if not open then dump any characters. 120612174Speter * XXX: This is VERY messy and needs to be cleaned up. 120712174Speter * 120812174Speter * XXX: can we leave data in the host adapter buffer 120912174Speter * when the clists are full? That may be dangerous 121012174Speter * if the user cannot get an interrupt signal through. 121110015Speter */ 121210015Speter 121312174Speter more_rx: /* XXX Sorry. the nesting was driving me bats! :-( */ 121412174Speter 121512174Speter if (!isopen) { 121610015Speter ccbp->hi_rxopos = ccbp->hi_rxipos; 121712174Speter goto end_rx; 121812174Speter } 121910015Speter 122012174Speter /* 122115640Speter * If the tty input buffers are blocked, stop emptying 122215640Speter * the incoming buffers and let the auto flow control 122315640Speter * assert.. 122415640Speter */ 122515640Speter if (tp->t_state & TS_TBLOCK) { 122615640Speter goto end_rx; 122715640Speter } 122815640Speter 122915640Speter /* 123012174Speter * Process read characters if not skipped above 123112174Speter */ 123215640Speter op = ccbp->hi_rxopos; 123315640Speter ip = ccbp->hi_rxipos; 123415640Speter c = ip - op; 123512174Speter if (c == 0) { 123612174Speter goto end_rx; 123712174Speter } 123810015Speter 123912174Speter n = c & 0xff; 124015640Speter if (n > 250) 124115640Speter n = 250; 124212174Speter 124312174Speter DPRINT((pp, DBG_INTR, "n = %d, op = %d, ip = %d\n", 124410015Speter n, op, ip)); 124510015Speter 124612174Speter /* 124712174Speter * Suck characters out of host card buffer into the 124812174Speter * "input staging buffer" - so that we dont leave the 124912174Speter * host card in limbo while we're possibly echoing 125012174Speter * characters and possibly flushing input inside the 125112174Speter * ldisc l_rint() routine. 125212174Speter */ 125312496Speter if (n <= SI_BUFFERSIZE - op) { 125410015Speter 125512174Speter DPRINT((pp, DBG_INTR, "\tsingle copy\n")); 125612174Speter z = ccbp->hi_rxbuf + op; 125750442Speter si_vbcopy(z, si_rxbuf, n); 125810015Speter 125912174Speter op += n; 126012174Speter } else { 126112496Speter x = SI_BUFFERSIZE - op; 126210015Speter 126312174Speter DPRINT((pp, DBG_INTR, "\tdouble part 1 %d\n", x)); 126412174Speter z = ccbp->hi_rxbuf + op; 126550442Speter si_vbcopy(z, si_rxbuf, x); 126610015Speter 126734832Speter DPRINT((pp, DBG_INTR, "\tdouble part 2 %d\n", 126834832Speter n - x)); 126912174Speter z = ccbp->hi_rxbuf; 127050442Speter si_vbcopy(z, si_rxbuf + x, n - x); 127110015Speter 127212174Speter op += n; 127312174Speter } 127410015Speter 127512174Speter /* clear collected characters from buffer */ 127612174Speter ccbp->hi_rxopos = op; 127712174Speter 127812174Speter DPRINT((pp, DBG_INTR, "n = %d, op = %d, ip = %d\n", 127910015Speter n, op, ip)); 128010015Speter 128112174Speter /* 128212174Speter * at this point... 128312174Speter * n = number of chars placed in si_rxbuf 128412174Speter */ 128510015Speter 128612174Speter /* 128712174Speter * Avoid the grotesquely inefficient lineswitch 128812174Speter * routine (ttyinput) in "raw" mode. It usually 128912174Speter * takes about 450 instructions (that's without 129012174Speter * canonical processing or echo!). slinput is 129112174Speter * reasonably fast (usually 40 instructions 129212174Speter * plus call overhead). 129312174Speter */ 129412174Speter if (tp->t_state & TS_CAN_BYPASS_L_RINT) { 129510015Speter 129612174Speter /* block if the driver supports it */ 129750442Speter if (tp->t_rawq.c_cc + n >= SI_I_HIGH_WATER && 129850442Speter (tp->t_cflag & CRTS_IFLOW || 129950442Speter tp->t_iflag & IXOFF) && 130050442Speter !(tp->t_state & TS_TBLOCK)) 130112174Speter ttyblock(tp); 130210015Speter 130312174Speter tk_nin += n; 130412174Speter tk_rawcc += n; 130512174Speter tp->t_rawcc += n; 130612174Speter 130712174Speter pp->sp_delta_overflows += 130812174Speter b_to_q((char *)si_rxbuf, n, &tp->t_rawq); 130912174Speter 131012174Speter ttwakeup(tp); 131150442Speter if (tp->t_state & TS_TTSTOP && 131250442Speter (tp->t_iflag & IXANY || 131350442Speter tp->t_cc[VSTART] == tp->t_cc[VSTOP])) { 131412174Speter tp->t_state &= ~TS_TTSTOP; 131512174Speter tp->t_lflag &= ~FLUSHO; 131612174Speter si_start(tp); 131712174Speter } 131812174Speter } else { 131912174Speter /* 132012174Speter * It'd be nice to not have to go through the 132112174Speter * function call overhead for each char here. 132212174Speter * It'd be nice to block input it, saving a 132312174Speter * loop here and the call/return overhead. 132412174Speter */ 132512174Speter for(x = 0; x < n; x++) { 132612174Speter i = si_rxbuf[x]; 1327130077Sphk if (ttyld_rint(tp, i) 132812174Speter == -1) { 132912174Speter pp->sp_delta_overflows++; 133010015Speter } 133112174Speter } 133212174Speter } 133312174Speter goto more_rx; /* try for more until RXbuf is empty */ 133410015Speter 133512174Speter end_rx: /* XXX: Again, sorry about the gotos.. :-) */ 133610015Speter 133710015Speter /* 133810015Speter * Do TX stuff 133910015Speter */ 1340130077Sphk ttyld_start(tp); 134110015Speter 134210015Speter } /* end of for (all ports on this controller) */ 134310015Speter } /* end of for (all controllers) */ 134410015Speter 134511609Speter in_intr = 0; 134656498Speter DPRINT((0, arg == NULL ? DBG_POLL:DBG_INTR, "end si_intr\n")); 134710015Speter} 134810015Speter 134910015Speter/* 135010015Speter * Nudge the transmitter... 135112174Speter * 135212174Speter * XXX: I inherited some funny code here. It implies the host card only 135312174Speter * interrupts when the transmit buffer reaches the low-water-mark, and does 135412174Speter * not interrupt when it's actually hits empty. In some cases, we have 135512174Speter * processes waiting for complete drain, and we need to simulate an interrupt 135612174Speter * about when we think the buffer is going to be empty (and retry if not). 135712174Speter * I really am not certain about this... I *need* the hardware manuals. 135810015Speter */ 135910015Speterstatic void 136056498Spetersi_start(struct tty *tp) 136110015Speter{ 136210015Speter struct si_port *pp; 136310015Speter volatile struct si_channel *ccbp; 136456498Speter struct clist *qp; 136510015Speter BYTE ipos; 136610015Speter int nchar; 136710015Speter int oldspl, count, n, amount, buffer_full; 136810015Speter 136910015Speter oldspl = spltty(); 137010015Speter 137110015Speter qp = &tp->t_outq; 1372136058Sphk pp = tp->t_sc; 137310015Speter 137410015Speter DPRINT((pp, DBG_ENTRY|DBG_START, 137510015Speter "si_start(%x) t_state %x sp_state %x t_outq.c_cc %d\n", 137610015Speter tp, tp->t_state, pp->sp_state, qp->c_cc)); 137710015Speter 137810015Speter if (tp->t_state & (TS_TIMEOUT|TS_TTSTOP)) 137910015Speter goto out; 138010015Speter 138110015Speter buffer_full = 0; 138210015Speter ccbp = pp->sp_ccb; 138310015Speter 138410015Speter count = (int)ccbp->hi_txipos - (int)ccbp->hi_txopos; 138510015Speter DPRINT((pp, DBG_START, "count %d\n", (BYTE)count)); 138610015Speter 138710015Speter while ((nchar = qp->c_cc) > 0) { 138810015Speter if ((BYTE)count >= 255) { 138910015Speter buffer_full++; 139010015Speter break; 139110015Speter } 139210015Speter amount = min(nchar, (255 - (BYTE)count)); 139310015Speter ipos = (unsigned int)ccbp->hi_txipos; 139434832Speter n = q_to_b(&tp->t_outq, si_txbuf, amount); 139510015Speter /* will it fit in one lump? */ 139634832Speter if ((SI_BUFFERSIZE - ipos) >= n) { 139750442Speter si_bcopyv(si_txbuf, &ccbp->hi_txbuf[ipos], n); 139810015Speter } else { 139950442Speter si_bcopyv(si_txbuf, &ccbp->hi_txbuf[ipos], 140034832Speter SI_BUFFERSIZE - ipos); 140150442Speter si_bcopyv(si_txbuf + (SI_BUFFERSIZE - ipos), 140250442Speter &ccbp->hi_txbuf[0], n - (SI_BUFFERSIZE - ipos)); 140310015Speter } 140410015Speter ccbp->hi_txipos += n; 140510015Speter count = (int)ccbp->hi_txipos - (int)ccbp->hi_txopos; 140610015Speter } 140710015Speter 140810015Speter if (count != 0 && nchar == 0) { 140910015Speter tp->t_state |= TS_BUSY; 141010015Speter } else { 141110015Speter tp->t_state &= ~TS_BUSY; 141210015Speter } 141310015Speter 141410015Speter /* wakeup time? */ 141510015Speter ttwwakeup(tp); 141610015Speter 141710015Speter DPRINT((pp, DBG_START, "count %d, nchar %d, tp->t_state 0x%x\n", 141810015Speter (BYTE)count, nchar, tp->t_state)); 141910015Speter 142034735Speter if (tp->t_state & TS_BUSY) 142110015Speter { 142210015Speter int time; 142310015Speter 142434735Speter time = ttspeedtab(tp->t_ospeed, chartimes); 142534735Speter 142634735Speter if (time > 0) { 142734735Speter if (time < nchar) 142834735Speter time = nchar / time; 142934735Speter else 143034735Speter time = 2; 143110015Speter } else { 143234735Speter DPRINT((pp, DBG_START, 143334735Speter "bad char time value! %d\n", time)); 143434735Speter time = hz/10; 143510015Speter } 143610015Speter 143710015Speter if ((pp->sp_state & (SS_LSTART|SS_INLSTART)) == SS_LSTART) { 143829677Sgibbs untimeout(si_lstart, (caddr_t)pp, pp->lstart_ch); 143910015Speter } else { 144010015Speter pp->sp_state |= SS_LSTART; 144110015Speter } 144210015Speter DPRINT((pp, DBG_START, "arming lstart, time=%d\n", time)); 144329677Sgibbs pp->lstart_ch = timeout(si_lstart, (caddr_t)pp, time); 144410015Speter } 144510015Speter 144610015Speterout: 144710015Speter splx(oldspl); 144810015Speter DPRINT((pp, DBG_EXIT|DBG_START, "leave si_start()\n")); 144910015Speter} 145010015Speter 145110015Speter/* 145210015Speter * Note: called at splsoftclock from the timeout code 145310015Speter * This has to deal with two things... cause wakeups while waiting for 145410015Speter * tty drains on last process exit, and call l_start at about the right 145510015Speter * time for protocols like ppp. 145610015Speter */ 145710015Speterstatic void 145825047Sbdesi_lstart(void *arg) 145910015Speter{ 146056498Speter struct si_port *pp = arg; 146156498Speter struct tty *tp; 146210015Speter int oldspl; 146310015Speter 146410015Speter DPRINT((pp, DBG_ENTRY|DBG_LSTART, "si_lstart(%x) sp_state %x\n", 146510015Speter pp, pp->sp_state)); 146610015Speter 146710015Speter oldspl = spltty(); 1468136058Sphk tp = pp->sp_tty; 146910015Speter 1470136058Sphk if ((tp->t_state & TS_ISOPEN) == 0 || 1471136058Sphk (pp->sp_state & SS_LSTART) == 0) { 147210015Speter splx(oldspl); 147310015Speter return; 147410015Speter } 147510015Speter pp->sp_state &= ~SS_LSTART; 147610015Speter pp->sp_state |= SS_INLSTART; 147710015Speter 147810015Speter 147910015Speter /* deal with the process exit case */ 148010015Speter ttwwakeup(tp); 148110015Speter 148212174Speter /* nudge protocols - eg: ppp */ 1483130077Sphk ttyld_start(tp); 148410015Speter 148510015Speter pp->sp_state &= ~SS_INLSTART; 148610015Speter splx(oldspl); 148710015Speter} 148810015Speter 148910015Speter/* 149010015Speter * Stop output on a line. called at spltty(); 149110015Speter */ 1492105215Sphkstatic void 149356498Spetersi_stop(struct tty *tp, int rw) 149410015Speter{ 149510015Speter volatile struct si_channel *ccbp; 149610015Speter struct si_port *pp; 149710015Speter 1498136058Sphk pp = tp->t_sc; 149910015Speter ccbp = pp->sp_ccb; 150010015Speter 1501136058Sphk DPRINT((pp, DBG_ENTRY|DBG_STOP, "si_stop(%x,%x)\n", tp, rw)); 150210015Speter 150310015Speter /* XXX: must check (rw & FWRITE | FREAD) etc flushing... */ 150410015Speter if (rw & FWRITE) { 150510015Speter /* what level are we meant to be flushing anyway? */ 150610015Speter if (tp->t_state & TS_BUSY) { 1507136058Sphk si_command(pp, WFLUSH, SI_NOWAIT); 150810015Speter tp->t_state &= ~TS_BUSY; 150910015Speter ttwwakeup(tp); /* Bruce???? */ 151010015Speter } 151110015Speter } 151212174Speter#if 1 /* XXX: this doesn't work right yet.. */ 151312174Speter /* XXX: this may have been failing because we used to call l_rint() 151412174Speter * while we were looping based on these two counters. Now, we collect 151512174Speter * the data and then loop stuffing it into l_rint(), making this 151612174Speter * useless. Should we cause this to blow away the staging buffer? 151712174Speter */ 151810015Speter if (rw & FREAD) { 151910015Speter ccbp->hi_rxopos = ccbp->hi_rxipos; 152010015Speter } 152110015Speter#endif 152210015Speter} 152310015Speter 152410015Speter/* 152534832Speter * Issue a command to the host card CPU. 152610015Speter */ 152710015Speter 152810015Speterstatic void 152956498Spetersi_command(struct si_port *pp, int cmd, int waitflag) 153010015Speter{ 153110015Speter int oldspl; 153210015Speter volatile struct si_channel *ccbp = pp->sp_ccb; 153310015Speter int x; 153410015Speter 153510015Speter DPRINT((pp, DBG_ENTRY|DBG_PARAM, "si_command(%x,%x,%d): hi_stat 0x%x\n", 153610015Speter pp, cmd, waitflag, ccbp->hi_stat)); 153710015Speter 153810015Speter oldspl = spltty(); /* Keep others out */ 153910015Speter 154010015Speter /* wait until it's finished what it was doing.. */ 154116575Speter /* XXX: sits in IDLE_BREAK until something disturbs it or break 154216575Speter * is turned off. */ 154310015Speter while((x = ccbp->hi_stat) != IDLE_OPEN && 154410015Speter x != IDLE_CLOSE && 154516575Speter x != IDLE_BREAK && 154610015Speter x != cmd) { 154710015Speter if (in_intr) { /* Prevent sleep in intr */ 154810015Speter DPRINT((pp, DBG_PARAM, 154910015Speter "cmd intr collision - completing %d\trequested %d\n", 155010015Speter x, cmd)); 155110015Speter splx(oldspl); 155210015Speter return; 155310015Speter } else if (ttysleep(pp->sp_tty, (caddr_t)&pp->sp_state, TTIPRI|PCATCH, 155410015Speter "sicmd1", 1)) { 155510015Speter splx(oldspl); 155610015Speter return; 155710015Speter } 155810015Speter } 155916575Speter /* it should now be in IDLE_{OPEN|CLOSE|BREAK}, or "cmd" */ 156010015Speter 156110015Speter /* if there was a pending command, cause a state-change wakeup */ 156216575Speter switch(pp->sp_pend) { 156316575Speter case LOPEN: 156416575Speter case MPEND: 156516575Speter case MOPEN: 156616575Speter case CONFIG: 156716575Speter case SBREAK: 156816575Speter case EBREAK: 156916575Speter wakeup(&pp->sp_state); 157016575Speter break; 157116575Speter default: 157216575Speter break; 157310015Speter } 157410015Speter 157510015Speter pp->sp_pend = cmd; /* New command pending */ 157610015Speter ccbp->hi_stat = cmd; /* Post it */ 157710015Speter 157810015Speter if (waitflag) { 157910015Speter if (in_intr) { /* If in interrupt handler */ 158010015Speter DPRINT((pp, DBG_PARAM, 158110015Speter "attempt to sleep in si_intr - cmd req %d\n", 158210015Speter cmd)); 158310015Speter splx(oldspl); 158410015Speter return; 158516575Speter } else while(ccbp->hi_stat != IDLE_OPEN && 158616575Speter ccbp->hi_stat != IDLE_BREAK) { 158710015Speter if (ttysleep(pp->sp_tty, (caddr_t)&pp->sp_state, TTIPRI|PCATCH, 158810015Speter "sicmd2", 0)) 158910015Speter break; 159010015Speter } 159110015Speter } 159210015Speter splx(oldspl); 159310015Speter} 159410015Speter 159510015Speter 159610015Speter#ifdef SI_DEBUG 159713353Speter 159856505Spetervoid 159913353Spetersi_dprintf(struct si_port *pp, int flags, const char *fmt, ...) 160010015Speter{ 160113353Speter va_list ap; 160213630Sphk 160310015Speter if ((pp == NULL && (si_debug&flags)) || 160410015Speter (pp != NULL && ((pp->sp_debug&flags) || (si_debug&flags)))) { 160534832Speter if (pp != NULL) 1606136058Sphk printf("%s: ", pp->sp_name); 160713630Sphk va_start(ap, fmt); 160813630Sphk vprintf(fmt, ap); 160913353Speter va_end(ap); 161010015Speter } 161110015Speter} 161210015Speter 161312624Speter#endif /* DEBUG */ 161412502Sjulian 161534832Speterstatic char * 161656498Spetersi_modulename(int host_type, int uart_type) 161734832Speter{ 161834832Speter switch (host_type) { 161934832Speter /* Z280 based cards */ 162050442Speter case SIEISA: 162150442Speter case SIHOST2: 162234832Speter case SIHOST: 162334832Speter case SIPCI: 162434832Speter switch (uart_type) { 162534832Speter case 0: 162634832Speter return(" (XIO)"); 162734832Speter case 1: 162834832Speter return(" (SI)"); 162934832Speter } 163034832Speter break; 163134832Speter /* T225 based hosts */ 163234832Speter case SIJETPCI: 163334832Speter case SIJETISA: 163434832Speter switch (uart_type) { 163534832Speter case 0: 163634832Speter return(" (SI)"); 163734832Speter case 40: 163834832Speter return(" (XIO)"); 163936856Sphk case 72: 164036856Sphk return(" (SXDC)"); 164134832Speter } 164234832Speter break; 164334832Speter } 164434832Speter return(""); 164534832Speter} 1646