Home | History | Annotate | Line # | Download | only in sbus
magma.c revision 1.15
      1  1.15   atatat /*	$NetBSD: magma.c,v 1.15 2002/03/17 19:41:01 atatat Exp $	*/
      2   1.1       pk /*
      3   1.1       pk  * magma.c
      4   1.1       pk  *
      5   1.1       pk  * Copyright (c) 1998 Iain Hibbert
      6   1.1       pk  * All rights reserved.
      7   1.1       pk  *
      8   1.1       pk  * Redistribution and use in source and binary forms, with or without
      9   1.1       pk  * modification, are permitted provided that the following conditions
     10   1.1       pk  * are met:
     11   1.1       pk  * 1. Redistributions of source code must retain the above copyright
     12   1.1       pk  *    notice, this list of conditions and the following disclaimer.
     13   1.1       pk  * 2. Redistributions in binary form must reproduce the above copyright
     14   1.1       pk  *    notice, this list of conditions and the following disclaimer in the
     15   1.1       pk  *    documentation and/or other materials provided with the distribution.
     16   1.1       pk  * 3. All advertising materials mentioning features or use of this software
     17   1.1       pk  *    must display the following acknowledgement:
     18   1.1       pk  *	This product includes software developed by Iain Hibbert
     19   1.1       pk  * 4. The name of the author may not be used to endorse or promote products
     20   1.1       pk  *    derived from this software without specific prior written permission.
     21   1.1       pk  *
     22   1.1       pk  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     23   1.1       pk  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     24   1.1       pk  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     25   1.1       pk  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     26   1.1       pk  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     27   1.1       pk  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     28   1.1       pk  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     29   1.1       pk  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     30   1.1       pk  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     31   1.1       pk  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     32   1.1       pk  *
     33   1.2       pk  */
     34   1.1       pk 
     35   1.1       pk /*
     36   1.1       pk  * Driver for Magma SBus Serial/Parallel cards using the Cirrus Logic
     37   1.1       pk  * CD1400 & CD1190 chips
     38   1.1       pk  */
     39  1.12    lukem 
     40  1.12    lukem #include <sys/cdefs.h>
     41  1.15   atatat __KERNEL_RCSID(0, "$NetBSD: magma.c,v 1.15 2002/03/17 19:41:01 atatat Exp $");
     42  1.12    lukem 
     43  1.12    lukem #if 0
     44  1.12    lukem #define MAGMA_DEBUG
     45  1.12    lukem #endif
     46   1.1       pk 
     47   1.1       pk #include "magma.h"
     48   1.1       pk #if NMAGMA > 0
     49   1.1       pk 
     50   1.1       pk #include <sys/param.h>
     51   1.1       pk #include <sys/systm.h>
     52   1.1       pk #include <sys/proc.h>
     53   1.1       pk #include <sys/device.h>
     54   1.1       pk #include <sys/file.h>
     55   1.1       pk #include <sys/ioctl.h>
     56   1.1       pk #include <sys/malloc.h>
     57   1.1       pk #include <sys/tty.h>
     58   1.1       pk #include <sys/time.h>
     59   1.1       pk #include <sys/kernel.h>
     60   1.1       pk #include <sys/syslog.h>
     61   1.1       pk #include <sys/conf.h>
     62   1.1       pk #include <sys/errno.h>
     63   1.1       pk 
     64   1.1       pk #include <machine/bus.h>
     65   1.8       pk #include <machine/intr.h>
     66   1.4       pk #include <machine/autoconf.h>
     67   1.8       pk #include <machine/conf.h>
     68   1.8       pk 
     69   1.4       pk #include <dev/sbus/sbusvar.h>
     70   1.1       pk 
     71   1.1       pk #include <dev/ic/cd1400reg.h>
     72   1.1       pk #include <dev/ic/cd1190reg.h>
     73   1.1       pk 
     74   1.4       pk #include <dev/sbus/mbppio.h>
     75   1.4       pk #include <dev/sbus/magmareg.h>
     76   1.1       pk 
     77   1.1       pk /*
     78   1.1       pk  * Select tty soft interrupt bit based on TTY ipl. (stole from zs.c)
     79   1.1       pk  */
     80   1.1       pk #if PIL_TTY == 1
     81   1.1       pk # define IE_MSOFT IE_L1
     82   1.1       pk #elif PIL_TTY == 4
     83   1.1       pk # define IE_MSOFT IE_L4
     84   1.1       pk #elif PIL_TTY == 6
     85   1.1       pk # define IE_MSOFT IE_L6
     86   1.1       pk #else
     87   1.1       pk # error "no suitable software interrupt bit"
     88   1.1       pk #endif
     89   1.1       pk 
     90   1.1       pk /* supported cards
     91   1.1       pk  *
     92   1.1       pk  *  The table below lists the cards that this driver is likely to
     93   1.1       pk  *  be able to support.
     94   1.1       pk  *
     95   1.1       pk  *  Cards with parallel ports: except for the LC2+1Sp, they all use
     96   1.1       pk  *  the CD1190 chip which I know nothing about.  I've tried to leave
     97   1.1       pk  *  hooks for it so it shouldn't be too hard to add support later.
     98   1.1       pk  *  (I think somebody is working on this separately)
     99   1.1       pk  *
    100   1.1       pk  *  Thanks to Bruce at Magma for telling me the hardware offsets.
    101   1.1       pk  */
    102   1.1       pk static struct magma_board_info supported_cards[] = {
    103   1.1       pk 	{
    104  1.13       pk 		"MAGMA_Sp", "MAGMA,4_Sp", "Magma 4 Sp", 4, 0,
    105   1.1       pk 		1, 0xa000, 0xc000, 0xe000, { 0x8000, 0, 0, 0 },
    106   1.1       pk 		0, { 0, 0 }
    107   1.1       pk 	},
    108   1.1       pk 	{
    109  1.13       pk 		"MAGMA_Sp", "MAGMA,8_Sp", "Magma 8 Sp", 8, 0,
    110   1.1       pk 		2, 0xa000, 0xc000, 0xe000, { 0x4000, 0x6000, 0, 0 },
    111   1.1       pk 		0, { 0, 0 }
    112   1.1       pk 	},
    113   1.1       pk 	{
    114  1.13       pk 		"MAGMA_Sp", "MAGMA,_8HS_Sp", "Magma Fast 8 Sp", 8, 0,
    115   1.1       pk 		2, 0x2000, 0x4000, 0x6000, { 0x8000, 0xa000, 0, 0 },
    116   1.1       pk 		0, { 0, 0 }
    117   1.1       pk 	},
    118   1.1       pk 	{
    119  1.13       pk 		"MAGMA_Sp", "MAGMA,_8SP_422", "Magma 8 Sp - 422", 8, 0,
    120   1.1       pk 		2, 0x2000, 0x4000, 0x6000, { 0x8000, 0xa000, 0, 0 },
    121   1.1       pk 		0, { 0, 0 }
    122   1.1       pk 	},
    123   1.1       pk 	{
    124  1.13       pk 		"MAGMA_Sp", "MAGMA,12_Sp", "Magma 12 Sp", 12, 0,
    125   1.1       pk 		3, 0xa000, 0xc000, 0xe000, { 0x2000, 0x4000, 0x6000, 0 },
    126   1.1       pk 		0, { 0, 0 }
    127   1.1       pk 	},
    128   1.1       pk 	{
    129  1.13       pk 		"MAGMA_Sp", "MAGMA,16_Sp", "Magma 16 Sp", 16, 0,
    130   1.1       pk 		4, 0xd000, 0xe000, 0xf000, { 0x8000, 0x9000, 0xa000, 0xb000 },
    131   1.1       pk 		0, { 0, 0 }
    132   1.1       pk 	},
    133   1.1       pk 	{
    134  1.13       pk 		"MAGMA_Sp", "MAGMA,16_Sp_2", "Magma 16 Sp", 16, 0,
    135   1.1       pk 		4, 0x2000, 0x4000, 0x6000, { 0x8000, 0xa000, 0xc000, 0xe000 },
    136   1.1       pk 		0, { 0, 0 }
    137   1.1       pk 	},
    138   1.1       pk 	{
    139  1.13       pk 		"MAGMA_Sp", "MAGMA,16HS_Sp", "Magma Fast 16 Sp", 16, 0,
    140   1.1       pk 		4, 0x2000, 0x4000, 0x6000, { 0x8000, 0xa000, 0xc000, 0xe000 },
    141   1.1       pk 		0, { 0, 0 }
    142   1.1       pk 	},
    143   1.1       pk 	{
    144  1.13       pk 		"MAGMA_Sp", "MAGMA,21_Sp", "Magma LC 2+1 Sp", 2, 1,
    145   1.1       pk 		1, 0xa000, 0xc000, 0xe000, { 0x8000, 0, 0, 0 },
    146   1.1       pk 		0, { 0, 0 }
    147   1.1       pk 	},
    148   1.1       pk 	{
    149  1.13       pk 		"MAGMA_Sp", "MAGMA,21HS_Sp", "Magma 2+1 Sp", 2, 1,
    150   1.1       pk 		1, 0xa000, 0xc000, 0xe000, { 0x4000, 0, 0, 0 },
    151   1.1       pk 		1, { 0x6000, 0 }
    152   1.1       pk 	},
    153   1.1       pk 	{
    154  1.13       pk 		"MAGMA_Sp", "MAGMA,41_Sp", "Magma 4+1 Sp", 4, 1,
    155   1.1       pk 		1, 0xa000, 0xc000, 0xe000, { 0x4000, 0, 0, 0 },
    156   1.1       pk 		1, { 0x6000, 0 }
    157   1.1       pk 	},
    158   1.1       pk 	{
    159  1.13       pk 		"MAGMA_Sp", "MAGMA,82_Sp", "Magma 8+2 Sp", 8, 2,
    160   1.1       pk 		2, 0xd000, 0xe000, 0xf000, { 0x8000, 0x9000, 0, 0 },
    161   1.1       pk 		2, { 0xa000, 0xb000 }
    162   1.1       pk 	},
    163   1.1       pk 	{
    164  1.13       pk 		"MAGMA_Sp", "MAGMA,P1_Sp", "Magma P1 Sp", 0, 1,
    165   1.1       pk 		0, 0, 0, 0, { 0, 0, 0, 0 },
    166   1.1       pk 		1, { 0x8000, 0 }
    167   1.1       pk 	},
    168   1.1       pk 	{
    169  1.13       pk 		"MAGMA_Sp", "MAGMA,P2_Sp", "Magma P2 Sp", 0, 2,
    170   1.1       pk 		0, 0, 0, 0, { 0, 0, 0, 0 },
    171   1.1       pk 		2, { 0x4000, 0x8000 }
    172   1.1       pk 	},
    173   1.1       pk 	{
    174  1.13       pk 		"MAGMA 2+1HS Sp", "", "Magma 2+1HS Sp", 2, 0,
    175  1.13       pk 		1, 0xa000, 0xc000, 0xe000, { 0x4000, 0, 0, 0 },
    176  1.13       pk 		1, { 0x8000, 0 }
    177  1.13       pk 	},
    178  1.13       pk 	{
    179  1.13       pk 		NULL, NULL, NULL, 0, 0,
    180   1.1       pk 		0, 0, 0, 0, { 0, 0, 0, 0 },
    181   1.1       pk 		0, { 0, 0 }
    182   1.1       pk 	}
    183   1.1       pk };
    184   1.1       pk 
    185   1.1       pk /************************************************************************
    186   1.1       pk  *
    187   1.1       pk  *  Autoconfig Stuff
    188   1.1       pk  */
    189   1.1       pk 
    190   1.1       pk struct cfattach magma_ca = {
    191   1.1       pk 	sizeof(struct magma_softc), magma_match, magma_attach
    192   1.1       pk };
    193   1.1       pk 
    194   1.1       pk struct cfattach mtty_ca = {
    195   1.1       pk 	sizeof(struct mtty_softc), mtty_match, mtty_attach
    196   1.1       pk };
    197   1.1       pk 
    198   1.1       pk struct cfattach mbpp_ca = {
    199   1.1       pk 	sizeof(struct mbpp_softc), mbpp_match, mbpp_attach
    200   1.1       pk };
    201   1.1       pk 
    202   1.1       pk extern struct cfdriver mtty_cd;
    203   1.1       pk extern struct cfdriver mbpp_cd;
    204   1.1       pk 
    205   1.1       pk /************************************************************************
    206   1.1       pk  *
    207   1.1       pk  *  CD1400 Routines
    208   1.1       pk  *
    209   1.1       pk  *	cd1400_compute_baud		calculate COR/BPR register values
    210   1.1       pk  *	cd1400_write_ccr		write a value to CD1400 ccr
    211   1.1       pk  *	cd1400_read_reg			read from a CD1400 register
    212   1.1       pk  *	cd1400_write_reg		write to a CD1400 register
    213   1.1       pk  *	cd1400_enable_transmitter	enable transmitting on CD1400 channel
    214   1.1       pk  */
    215   1.1       pk 
    216   1.1       pk /*
    217   1.1       pk  * compute the bpr/cor pair for any baud rate
    218   1.1       pk  * returns 0 for success, 1 for failure
    219   1.1       pk  */
    220   1.1       pk int
    221   1.1       pk cd1400_compute_baud(speed, clock, cor, bpr)
    222   1.1       pk 	speed_t speed;
    223   1.1       pk 	int clock;
    224   1.1       pk 	int *cor, *bpr;
    225   1.1       pk {
    226   1.1       pk 	int c, co, br;
    227   1.1       pk 
    228   1.1       pk 	if( speed < 50 || speed > 150000 )
    229   1.1       pk 		return(1);
    230   1.1       pk 
    231   1.1       pk 	for( c = 0, co = 8 ; co <= 2048 ; co <<= 2, c++ ) {
    232   1.1       pk 		br = ((clock * 1000000) + (co * speed) / 2) / (co * speed);
    233   1.1       pk 		if( br < 0x100 ) {
    234   1.1       pk 			*bpr = br;
    235   1.1       pk 			*cor = c;
    236   1.1       pk 			return(0);
    237   1.1       pk 		}
    238   1.1       pk 	}
    239   1.1       pk 
    240   1.1       pk 	return(1);
    241   1.1       pk }
    242   1.1       pk 
    243   1.1       pk /*
    244   1.1       pk  * Write a CD1400 channel command, should have a timeout?
    245   1.1       pk  */
    246   1.1       pk __inline void
    247   1.1       pk cd1400_write_ccr(cd, cmd)
    248   1.1       pk 	struct cd1400 *cd;
    249   1.1       pk 	u_char cmd;
    250   1.1       pk {
    251   1.1       pk 	while( cd1400_read_reg(cd, CD1400_CCR) )
    252   1.1       pk 		;
    253   1.1       pk 
    254   1.1       pk 	cd1400_write_reg(cd, CD1400_CCR, cmd);
    255   1.1       pk }
    256   1.1       pk 
    257   1.1       pk /*
    258   1.1       pk  * read a value from a cd1400 register
    259   1.1       pk  */
    260   1.1       pk __inline u_char
    261   1.1       pk cd1400_read_reg(cd, reg)
    262   1.1       pk 	struct cd1400 *cd;
    263   1.1       pk 	int reg;
    264   1.1       pk {
    265   1.1       pk 	return(cd->cd_reg[reg]);
    266   1.1       pk }
    267   1.1       pk 
    268   1.1       pk /*
    269   1.1       pk  * write a value to a cd1400 register
    270   1.1       pk  */
    271   1.1       pk __inline void
    272   1.1       pk cd1400_write_reg(cd, reg, value)
    273   1.1       pk 	struct cd1400 *cd;
    274   1.1       pk 	int reg;
    275   1.1       pk 	u_char value;
    276   1.1       pk {
    277   1.1       pk 	cd->cd_reg[reg] = value;
    278   1.1       pk }
    279   1.1       pk 
    280   1.1       pk /*
    281   1.1       pk  * enable transmit service requests for cd1400 channel
    282   1.1       pk  */
    283   1.1       pk void
    284   1.1       pk cd1400_enable_transmitter(cd, channel)
    285   1.1       pk 	struct cd1400 *cd;
    286   1.1       pk 	int channel;
    287   1.1       pk {
    288   1.1       pk 	int s, srer;
    289   1.1       pk 
    290   1.1       pk 	s = spltty();
    291   1.1       pk 	cd1400_write_reg(cd, CD1400_CAR, channel);
    292   1.1       pk 	srer = cd1400_read_reg(cd, CD1400_SRER);
    293   1.1       pk 	SET(srer, CD1400_SRER_TXRDY);
    294   1.1       pk 	cd1400_write_reg(cd, CD1400_SRER, srer);
    295   1.1       pk 	splx(s);
    296   1.1       pk }
    297   1.1       pk 
    298   1.1       pk /************************************************************************
    299   1.1       pk  *
    300   1.1       pk  *  CD1190 Routines
    301   1.1       pk  */
    302   1.1       pk 
    303   1.1       pk /* well, there are none yet */
    304   1.1       pk 
    305   1.1       pk /************************************************************************
    306   1.1       pk  *
    307   1.1       pk  *  Magma Routines
    308   1.1       pk  *
    309   1.1       pk  * magma_match		reports if we have a magma board available
    310   1.1       pk  * magma_attach		attaches magma boards to the sbus
    311   1.1       pk  * magma_hard		hardware level interrupt routine
    312   1.1       pk  * magma_soft		software level interrupt routine
    313   1.1       pk  */
    314   1.1       pk 
    315   1.1       pk int
    316   1.1       pk magma_match(parent, cf, aux)
    317   1.1       pk 	struct device *parent;
    318   1.1       pk 	struct cfdata *cf;
    319   1.1       pk 	void *aux;
    320   1.1       pk {
    321   1.1       pk 	struct sbus_attach_args *sa = aux;
    322  1.13       pk 	struct magma_board_info *card;
    323   1.1       pk 
    324  1.13       pk 	/* See if we support this device */
    325  1.13       pk 	for (card = supported_cards; ; card++) {
    326  1.13       pk 		if (card->mb_sbusname == NULL)
    327  1.13       pk 			/* End of table: no match */
    328  1.13       pk 			return (0);
    329  1.13       pk 		if (strcmp(sa->sa_name, card->mb_sbusname) == 0)
    330  1.13       pk 			break;
    331  1.13       pk 	}
    332   1.1       pk 
    333   1.3       pk 	dprintf(("magma: matched `%s'\n", sa->sa_name));
    334   1.3       pk 	dprintf(("magma: magma_prom `%s'\n",
    335  1.11      eeh 		PROM_getpropstring(sa->sa_node, "magma_prom")));
    336   1.3       pk 	dprintf(("magma: intlevels `%s'\n",
    337  1.11      eeh 		PROM_getpropstring(sa->sa_node, "intlevels")));
    338   1.3       pk 	dprintf(("magma: chiprev `%s'\n",
    339  1.11      eeh 		PROM_getpropstring(sa->sa_node, "chiprev")));
    340   1.3       pk 	dprintf(("magma: clock `%s'\n",
    341  1.11      eeh 		PROM_getpropstring(sa->sa_node, "clock")));
    342   1.1       pk 
    343   1.1       pk 	return (1);
    344   1.1       pk }
    345   1.1       pk 
    346   1.1       pk void
    347   1.1       pk magma_attach(parent, self, aux)
    348   1.1       pk 	struct device *parent;
    349   1.1       pk 	struct device *self;
    350   1.1       pk 	void *aux;
    351   1.1       pk {
    352   1.1       pk 	struct sbus_attach_args *sa = aux;
    353   1.1       pk 	struct magma_softc *sc = (struct magma_softc *)self;
    354  1.13       pk 	struct magma_board_info *card;
    355   1.1       pk 	bus_space_handle_t bh;
    356  1.13       pk 	char *magma_prom, *clockstr;
    357  1.13       pk 	int cd_clock;
    358   1.1       pk 	int node, chip;
    359   1.1       pk 
    360   1.1       pk 	node = sa->sa_node;
    361  1.13       pk 
    362  1.13       pk 	/*
    363  1.13       pk 	 * Find the card model.
    364  1.13       pk 	 * Older models all have sbus node name `MAGMA_Sp' (see
    365  1.13       pk 	 * `supported_cards[]' above), and must be distinguished
    366  1.13       pk 	 * by the `magma_prom' property.
    367  1.13       pk 	 */
    368  1.11      eeh 	magma_prom = PROM_getpropstring(node, "magma_prom");
    369   1.1       pk 
    370  1.13       pk 	for (card = supported_cards; card->mb_name != NULL; card++) {
    371  1.13       pk 		if (strcmp(sa->sa_name, card->mb_sbusname) != 0)
    372  1.13       pk 			/* Sbus node name doesn't match */
    373  1.13       pk 			continue;
    374  1.13       pk 		if (strcmp(magma_prom, card->mb_name) == 0)
    375  1.13       pk 			/* Model name match */
    376  1.13       pk 			break;
    377  1.13       pk 	}
    378   1.1       pk 
    379   1.1       pk 	if( card->mb_name == NULL ) {
    380  1.13       pk 		printf(": %s (unsupported)\n", magma_prom);
    381   1.1       pk 		return;
    382   1.1       pk 	}
    383   1.1       pk 
    384  1.13       pk 	dprintf((" addr %p", sc));
    385  1.13       pk 	printf(" softpri %d: %s\n", PIL_TTY, card->mb_realname);
    386   1.1       pk 
    387   1.1       pk 	sc->ms_board = card;
    388   1.1       pk 	sc->ms_ncd1400 = card->mb_ncd1400;
    389   1.1       pk 	sc->ms_ncd1190 = card->mb_ncd1190;
    390   1.1       pk 
    391   1.1       pk 	if (sbus_bus_map(sa->sa_bustag,
    392  1.14       pk 			 sa->sa_slot, sa->sa_offset, sa->sa_size,
    393  1.14       pk 			 BUS_SPACE_MAP_LINEAR, &bh) != 0) {
    394   1.1       pk 		printf("%s @ sbus: cannot map registers\n", self->dv_xname);
    395   1.1       pk 		return;
    396   1.1       pk 	}
    397   1.1       pk 
    398   1.1       pk 	/* the SVCACK* lines are daisychained */
    399   1.1       pk 	sc->ms_svcackr = (caddr_t)bh + card->mb_svcackr;
    400   1.1       pk 	sc->ms_svcackt = (caddr_t)bh + card->mb_svcackt;
    401   1.1       pk 	sc->ms_svcackm = (caddr_t)bh + card->mb_svcackm;
    402   1.1       pk 
    403  1.13       pk 	/*
    404  1.13       pk 	 * Find the clock speed; it's the same for all CD1400 chips
    405  1.13       pk 	 * on the board.
    406  1.13       pk 	 */
    407  1.13       pk 	clockstr = PROM_getpropstring(node, "clock");
    408  1.13       pk 	if (*clockstr == '\0')
    409  1.13       pk 		/* Default to 25MHz */
    410  1.13       pk 		cd_clock = 25;
    411  1.13       pk 	else {
    412  1.13       pk 		cd_clock = 0;
    413  1.13       pk 		while (*clockstr != '\0')
    414  1.13       pk 			cd_clock = (cd_clock * 10) + (*clockstr++ - '0');
    415  1.13       pk 	}
    416  1.13       pk 
    417   1.1       pk 	/* init the cd1400 chips */
    418   1.1       pk 	for( chip = 0 ; chip < card->mb_ncd1400 ; chip++ ) {
    419   1.1       pk 		struct cd1400 *cd = &sc->ms_cd1400[chip];
    420   1.1       pk 
    421  1.13       pk 		cd->cd_clock = cd_clock;
    422   1.1       pk 		cd->cd_reg = (caddr_t)bh + card->mb_cd1400[chip];
    423   1.1       pk 
    424  1.11      eeh 		/* PROM_getpropstring(node, "chiprev"); */
    425   1.1       pk 		/* seemingly the Magma drivers just ignore the propstring */
    426   1.1       pk 		cd->cd_chiprev = cd1400_read_reg(cd, CD1400_GFRCR);
    427   1.1       pk 
    428   1.2       pk 		dprintf(("%s attach CD1400 %d addr %p rev %x clock %dMhz\n",
    429   1.1       pk 			sc->ms_dev.dv_xname, chip,
    430   1.1       pk 			cd->cd_reg, cd->cd_chiprev, cd->cd_clock));
    431   1.1       pk 
    432   1.1       pk 		/* clear GFRCR */
    433   1.1       pk 		cd1400_write_reg(cd, CD1400_GFRCR, 0x00);
    434   1.1       pk 
    435   1.1       pk 		/* reset whole chip */
    436   1.1       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDRESET | CD1400_CCR_FULLRESET);
    437   1.1       pk 
    438   1.1       pk 		/* wait for revision code to be restored */
    439   1.1       pk 		while( cd1400_read_reg(cd, CD1400_GFRCR) != cd->cd_chiprev )
    440   1.1       pk 		        ;
    441   1.1       pk 
    442   1.1       pk 		/* set the Prescaler Period Register to tick at 1ms */
    443   1.1       pk 		cd1400_write_reg(cd, CD1400_PPR,
    444   1.1       pk 			((cd->cd_clock * 1000000 / CD1400_PPR_PRESCALER + 500) / 1000));
    445   1.1       pk 
    446   1.1       pk 		/* The LC2+1Sp card is the only card that doesn't have
    447   1.1       pk 		 * a CD1190 for the parallel port, but uses channel 0 of
    448   1.1       pk 		 * the CD1400, so we make a note of it for later and set up
    449   1.1       pk 		 * the CD1400 for parallel mode operation.
    450   1.1       pk 		 */
    451   1.1       pk 		if( card->mb_npar && card->mb_ncd1190 == 0 ) {
    452   1.1       pk 			cd1400_write_reg(cd, CD1400_GCR, CD1400_GCR_PARALLEL);
    453   1.1       pk 			cd->cd_parmode = 1;
    454   1.1       pk 		}
    455   1.1       pk 	}
    456   1.1       pk 
    457   1.1       pk 	/* init the cd1190 chips */
    458   1.1       pk 	for( chip = 0 ; chip < card->mb_ncd1190 ; chip++ ) {
    459   1.1       pk 		struct cd1190 *cd = &sc->ms_cd1190[chip];
    460   1.1       pk 
    461   1.1       pk 		cd->cd_reg = (caddr_t)bh + card->mb_cd1190[chip];
    462  1.13       pk 
    463   1.1       pk 		/* XXX don't know anything about these chips yet */
    464  1.13       pk 		printf("%s: CD1190 %d addr %p (unsupported)\n",
    465  1.13       pk 			self->dv_xname, chip, cd->cd_reg);
    466   1.1       pk 	}
    467   1.1       pk 
    468   1.1       pk 	sbus_establish(&sc->ms_sd, &sc->ms_dev);
    469   1.1       pk 
    470   1.1       pk 	/* configure the children */
    471   1.1       pk 	(void)config_found(self, mtty_match, NULL);
    472   1.1       pk 	(void)config_found(self, mbpp_match, NULL);
    473   1.1       pk 
    474   1.1       pk 	/*
    475   1.1       pk 	 * Establish the interrupt handlers.
    476   1.1       pk 	 */
    477   1.5       pk 	if (sa->sa_nintr == 0)
    478   1.5       pk 		return;		/* No interrupts to service!? */
    479   1.5       pk 
    480   1.8       pk 	(void)bus_intr_establish(sa->sa_bustag, sa->sa_pri, IPL_TTY,
    481   1.8       pk 				 0, magma_hard, sc);
    482   1.8       pk 	(void)bus_intr_establish(sa->sa_bustag, PIL_TTY, IPL_SOFTSERIAL,
    483   1.1       pk 				 BUS_INTR_ESTABLISH_SOFTINTR,
    484   1.1       pk 				 magma_soft, sc);
    485   1.7      cgd 	evcnt_attach_dynamic(&sc->ms_intrcnt, EVCNT_TYPE_INTR, NULL,
    486   1.7      cgd 	    sc->ms_dev.dv_xname, "intr");
    487   1.1       pk }
    488   1.1       pk 
    489   1.1       pk /*
    490   1.1       pk  * hard interrupt routine
    491   1.1       pk  *
    492   1.1       pk  *  returns 1 if it handled it, otherwise 0
    493   1.1       pk  *
    494   1.1       pk  *  runs at interrupt priority
    495   1.1       pk  */
    496   1.1       pk int
    497   1.1       pk magma_hard(arg)
    498   1.1       pk 	void *arg;
    499   1.1       pk {
    500   1.1       pk 	struct magma_softc *sc = arg;
    501   1.1       pk 	struct cd1400 *cd;
    502   1.1       pk 	int chip, status = 0;
    503   1.1       pk 	int serviced = 0;
    504   1.1       pk 	int needsoftint = 0;
    505   1.1       pk 
    506   1.1       pk 	/*
    507   1.1       pk 	 * check status of all the CD1400 chips
    508   1.1       pk 	 */
    509   1.1       pk 	for( chip = 0 ; chip < sc->ms_ncd1400 ; chip++ )
    510   1.1       pk 		status |= cd1400_read_reg(&sc->ms_cd1400[chip], CD1400_SVRR);
    511   1.1       pk 
    512   1.1       pk 	if( ISSET(status, CD1400_SVRR_RXRDY) ) {
    513   1.1       pk 		u_char rivr = *sc->ms_svcackr;	/* enter rx service context */
    514   1.1       pk 		int port = rivr >> 4;
    515   1.1       pk 
    516   1.1       pk 		if( rivr & (1<<3) ) {			/* parallel port */
    517   1.3       pk 			struct mbpp_port *mbpp;
    518   1.3       pk 			int n_chars;
    519   1.1       pk 
    520   1.3       pk 			mbpp = &sc->ms_mbpp->ms_port[port];
    521   1.1       pk 			cd = mbpp->mp_cd1400;
    522   1.3       pk 
    523   1.3       pk 			/* don't think we have to handle exceptions */
    524   1.3       pk 			n_chars = cd1400_read_reg(cd, CD1400_RDCR);
    525   1.3       pk 			while (n_chars--) {
    526   1.3       pk 				if( mbpp->mp_cnt == 0 ) {
    527   1.3       pk 					SET(mbpp->mp_flags, MBPPF_WAKEUP);
    528   1.3       pk 					needsoftint = 1;
    529   1.3       pk 					break;
    530   1.3       pk 				}
    531   1.3       pk 				*mbpp->mp_ptr = cd1400_read_reg(cd,CD1400_RDSR);
    532   1.3       pk 				mbpp->mp_ptr++;
    533   1.3       pk 				mbpp->mp_cnt--;
    534   1.3       pk 			}
    535   1.1       pk 		} else {				/* serial port */
    536   1.1       pk 			struct mtty_port *mtty;
    537   1.1       pk 			u_char *ptr, n_chars, line_stat;
    538   1.1       pk 
    539   1.1       pk 			mtty = &sc->ms_mtty->ms_port[port];
    540   1.1       pk 			cd = mtty->mp_cd1400;
    541   1.1       pk 
    542   1.1       pk 			if( ISSET(rivr, CD1400_RIVR_EXCEPTION) ) {
    543   1.1       pk 				line_stat = cd1400_read_reg(cd, CD1400_RDSR);
    544   1.1       pk 				n_chars = 1;
    545   1.1       pk 			} else { /* no exception, received data OK */
    546   1.1       pk 				line_stat = 0;
    547   1.1       pk 				n_chars = cd1400_read_reg(cd, CD1400_RDCR);
    548   1.1       pk 			}
    549   1.1       pk 
    550   1.1       pk 			ptr = mtty->mp_rput;
    551   1.1       pk 			while( n_chars-- ) {
    552   1.1       pk 				*ptr++ = line_stat;
    553   1.1       pk 				*ptr++ = cd1400_read_reg(cd, CD1400_RDSR);
    554   1.1       pk 				if( ptr == mtty->mp_rend ) ptr = mtty->mp_rbuf;
    555   1.1       pk 				if( ptr == mtty->mp_rget ) {
    556   1.1       pk 					if( ptr == mtty->mp_rbuf )
    557   1.1       pk 						ptr = mtty->mp_rend;
    558   1.1       pk 					ptr -= 2;
    559   1.1       pk 					SET(mtty->mp_flags, MTTYF_RING_OVERFLOW);
    560   1.1       pk 					break;
    561   1.1       pk 				}
    562   1.1       pk 			}
    563   1.1       pk 			mtty->mp_rput = ptr;
    564   1.1       pk 
    565   1.1       pk 			needsoftint = 1;
    566   1.1       pk 		}
    567   1.1       pk 
    568   1.1       pk 		cd1400_write_reg(cd, CD1400_EOSRR, 0);	/* end service context */
    569   1.1       pk 		serviced = 1;
    570   1.1       pk 	} /* if(rx_service...) */
    571   1.1       pk 
    572   1.1       pk 	if( ISSET(status, CD1400_SVRR_MDMCH) ) {
    573   1.1       pk 		u_char mivr = *sc->ms_svcackm;	/* enter mdm service context */
    574   1.1       pk 		int port = mivr >> 4;
    575   1.1       pk 		struct mtty_port *mtty;
    576   1.1       pk 		int carrier;
    577   1.1       pk 		u_char msvr;
    578   1.1       pk 
    579   1.1       pk 		/*
    580   1.1       pk 		 * Handle CD (LC2+1Sp = DSR) changes.
    581   1.1       pk 		 */
    582   1.1       pk 		mtty = &sc->ms_mtty->ms_port[port];
    583   1.1       pk 		cd = mtty->mp_cd1400;
    584   1.1       pk 		msvr = cd1400_read_reg(cd, CD1400_MSVR2);
    585   1.1       pk 		carrier = ISSET(msvr, cd->cd_parmode ? CD1400_MSVR2_DSR : CD1400_MSVR2_CD);
    586   1.1       pk 
    587   1.1       pk 		if( mtty->mp_carrier != carrier ) {
    588   1.1       pk 			SET(mtty->mp_flags, MTTYF_CARRIER_CHANGED);
    589   1.1       pk 			mtty->mp_carrier = carrier;
    590   1.1       pk 			needsoftint = 1;
    591   1.1       pk 		}
    592   1.1       pk 
    593   1.1       pk 		cd1400_write_reg(cd, CD1400_EOSRR, 0);	/* end service context */
    594   1.1       pk 		serviced = 1;
    595   1.1       pk 	} /* if(mdm_service...) */
    596   1.1       pk 
    597   1.1       pk 	if( ISSET(status, CD1400_SVRR_TXRDY) ) {
    598   1.2       pk 		u_char tivr = *sc->ms_svcackt;	/* enter tx service context */
    599   1.1       pk 		int port = tivr >> 4;
    600   1.1       pk 
    601   1.1       pk 		if( tivr & (1<<3) ) {	/* parallel port */
    602   1.1       pk 			struct mbpp_port *mbpp;
    603   1.1       pk 
    604   1.1       pk 			mbpp = &sc->ms_mbpp->ms_port[port];
    605   1.1       pk 			cd = mbpp->mp_cd1400;
    606   1.1       pk 
    607   1.3       pk 			if( mbpp->mp_cnt ) {
    608   1.1       pk 				int count = 0;
    609   1.1       pk 
    610   1.3       pk 				/* fill the fifo */
    611   1.3       pk 				while (mbpp->mp_cnt &&
    612   1.3       pk 					count++ < CD1400_PAR_FIFO_SIZE) {
    613   1.3       pk 					cd1400_write_reg(cd, CD1400_TDR,
    614   1.3       pk 							 *mbpp->mp_ptr);
    615   1.3       pk 					mbpp->mp_ptr++;
    616   1.3       pk 					mbpp->mp_cnt--;
    617   1.1       pk 				}
    618   1.1       pk 			} else {
    619   1.3       pk 				/*
    620   1.3       pk 				 * fifo is empty and we got no more data
    621   1.3       pk 				 * to send, so shut off interrupts and
    622   1.3       pk 				 * signal for a wakeup, which can't be
    623   1.3       pk 				 * done here in case we beat mbpp_send to
    624   1.3       pk 				 * the tsleep call (we are running at >spltty)
    625   1.3       pk 				 */
    626   1.3       pk 				cd1400_write_reg(cd, CD1400_SRER, 0);
    627   1.3       pk 				SET(mbpp->mp_flags, MBPPF_WAKEUP);
    628   1.1       pk 				needsoftint = 1;
    629   1.1       pk 			}
    630   1.1       pk 		} else {		/* serial port */
    631   1.1       pk 			struct mtty_port *mtty;
    632   1.1       pk 			struct tty *tp;
    633   1.1       pk 
    634   1.1       pk 			mtty = &sc->ms_mtty->ms_port[port];
    635   1.1       pk 			cd = mtty->mp_cd1400;
    636   1.1       pk 			tp = mtty->mp_tty;
    637   1.1       pk 
    638   1.1       pk 			if( !ISSET(mtty->mp_flags, MTTYF_STOP) ) {
    639   1.1       pk 				int count = 0;
    640   1.1       pk 
    641   1.1       pk 				/* check if we should start/stop a break */
    642   1.1       pk 				if( ISSET(mtty->mp_flags, MTTYF_SET_BREAK) ) {
    643   1.1       pk 					cd1400_write_reg(cd, CD1400_TDR, 0);
    644   1.1       pk 					cd1400_write_reg(cd, CD1400_TDR, 0x81);
    645   1.1       pk 					/* should we delay too? */
    646   1.1       pk 					CLR(mtty->mp_flags, MTTYF_SET_BREAK);
    647   1.1       pk 					count += 2;
    648   1.1       pk 				}
    649   1.1       pk 
    650   1.1       pk 				if( ISSET(mtty->mp_flags, MTTYF_CLR_BREAK) ) {
    651   1.1       pk 					cd1400_write_reg(cd, CD1400_TDR, 0);
    652   1.1       pk 					cd1400_write_reg(cd, CD1400_TDR, 0x83);
    653   1.1       pk 					CLR(mtty->mp_flags, MTTYF_CLR_BREAK);
    654   1.1       pk 					count += 2;
    655   1.1       pk 				}
    656   1.1       pk 
    657   1.1       pk 				/* I don't quite fill the fifo in case the last one is a
    658   1.1       pk 				 * NULL which I have to double up because its the escape
    659   1.1       pk 				 * code for embedded transmit characters.
    660   1.1       pk 				 */
    661   1.1       pk 				while( mtty->mp_txc > 0 && count < CD1400_TX_FIFO_SIZE - 1 ) {
    662   1.2       pk 					u_char ch;
    663   1.1       pk 
    664   1.1       pk 					ch = *mtty->mp_txp;
    665   1.1       pk 
    666   1.1       pk 					mtty->mp_txc--;
    667   1.1       pk 					mtty->mp_txp++;
    668   1.1       pk 
    669   1.1       pk 					if( ch == 0 ) {
    670   1.1       pk 						cd1400_write_reg(cd, CD1400_TDR, ch);
    671   1.1       pk 						count++;
    672   1.1       pk 					}
    673   1.1       pk 
    674   1.1       pk 					cd1400_write_reg(cd, CD1400_TDR, ch);
    675   1.1       pk 					count++;
    676   1.1       pk 				}
    677   1.1       pk 			}
    678   1.1       pk 
    679   1.1       pk 			/* if we ran out of work or are requested to STOP then
    680   1.1       pk 			 * shut off the txrdy interrupts and signal DONE to flush
    681   1.1       pk 			 * out the chars we have sent.
    682   1.1       pk 			 */
    683   1.1       pk 			if( mtty->mp_txc == 0 || ISSET(mtty->mp_flags, MTTYF_STOP) ) {
    684   1.2       pk 				register int srer;
    685   1.1       pk 
    686   1.1       pk 				srer = cd1400_read_reg(cd, CD1400_SRER);
    687   1.1       pk 				CLR(srer, CD1400_SRER_TXRDY);
    688   1.1       pk 				cd1400_write_reg(cd, CD1400_SRER, srer);
    689   1.1       pk 				CLR(mtty->mp_flags, MTTYF_STOP);
    690   1.1       pk 
    691   1.1       pk 				SET(mtty->mp_flags, MTTYF_DONE);
    692   1.1       pk 				needsoftint = 1;
    693   1.1       pk 			}
    694   1.1       pk 		}
    695   1.1       pk 
    696   1.1       pk 		cd1400_write_reg(cd, CD1400_EOSRR, 0);	/* end service context */
    697   1.1       pk 		serviced = 1;
    698   1.1       pk 	} /* if(tx_service...) */
    699   1.1       pk 
    700   1.1       pk 	/* XXX service CD1190 interrupts too
    701   1.1       pk 	for( chip = 0 ; chip < sc->ms_ncd1190 ; chip++ ) {
    702   1.1       pk 	}
    703   1.1       pk 	*/
    704   1.1       pk 
    705   1.1       pk 	if( needsoftint ) {	/* trigger the soft interrupt */
    706   1.1       pk #if defined(SUN4M)
    707   1.1       pk 		if( CPU_ISSUN4M )
    708   1.1       pk 			raise(0, PIL_TTY);
    709   1.1       pk 		else
    710   1.1       pk #endif
    711   1.1       pk 			ienab_bis(IE_MSOFT);
    712   1.1       pk 	}
    713   1.1       pk 
    714   1.1       pk 	return(serviced);
    715   1.1       pk }
    716   1.1       pk 
    717   1.1       pk /*
    718   1.1       pk  * magma soft interrupt handler
    719   1.1       pk  *
    720   1.1       pk  *  returns 1 if it handled it, 0 otherwise
    721   1.1       pk  *
    722   1.1       pk  *  runs at spltty()
    723   1.1       pk  */
    724   1.1       pk int
    725   1.1       pk magma_soft(arg)
    726   1.1       pk 	void *arg;
    727   1.1       pk {
    728   1.1       pk 	struct magma_softc *sc = arg;
    729   1.1       pk 	struct mtty_softc *mtty = sc->ms_mtty;
    730   1.1       pk 	struct mbpp_softc *mbpp = sc->ms_mbpp;
    731   1.1       pk 	int port;
    732   1.1       pk 	int serviced = 0;
    733   1.1       pk 	int s, flags;
    734   1.1       pk 
    735   1.2       pk 	if (mtty == NULL)
    736   1.2       pk 		goto chkbpp;
    737   1.2       pk 
    738   1.1       pk 	/*
    739   1.1       pk 	 * check the tty ports to see what needs doing
    740   1.1       pk 	 */
    741   1.1       pk 	for( port = 0 ; port < mtty->ms_nports ; port++ ) {
    742   1.2       pk 		struct mtty_port *mp = &mtty->ms_port[port];
    743   1.2       pk 		struct tty *tp = mp->mp_tty;
    744   1.1       pk 
    745   1.2       pk 		if( !ISSET(tp->t_state, TS_ISOPEN) )
    746   1.2       pk 			continue;
    747   1.1       pk 
    748   1.1       pk 		/*
    749   1.1       pk 		 * handle any received data
    750   1.1       pk 		 */
    751   1.1       pk 		while( mp->mp_rget != mp->mp_rput ) {
    752   1.2       pk 			u_char stat;
    753   1.2       pk 			int data;
    754   1.1       pk 
    755   1.1       pk 			stat = mp->mp_rget[0];
    756   1.1       pk 			data = mp->mp_rget[1];
    757   1.2       pk 			mp->mp_rget = ((mp->mp_rget + 2) == mp->mp_rend)
    758   1.2       pk 				? mp->mp_rbuf : (mp->mp_rget + 2);
    759   1.1       pk 
    760   1.1       pk 			if( stat & (CD1400_RDSR_BREAK | CD1400_RDSR_FE) )
    761   1.1       pk 				data |= TTY_FE;
    762   1.1       pk 			if( stat & CD1400_RDSR_PE )
    763   1.1       pk 				data |= TTY_PE;
    764   1.1       pk 
    765   1.1       pk 			if( stat & CD1400_RDSR_OE )
    766   1.2       pk 				log(LOG_WARNING, "%s%x: fifo overflow\n",
    767   1.2       pk 				    mtty->ms_dev.dv_xname, port);
    768   1.1       pk 
    769   1.9      eeh 			(*tp->t_linesw->l_rint)(data, tp);
    770   1.1       pk 			serviced = 1;
    771   1.1       pk 		}
    772   1.1       pk 
    773   1.1       pk 		s = splhigh();	/* block out hard interrupt routine */
    774   1.1       pk 		flags = mp->mp_flags;
    775   1.1       pk 		CLR(mp->mp_flags, MTTYF_DONE | MTTYF_CARRIER_CHANGED | MTTYF_RING_OVERFLOW);
    776   1.1       pk 		splx(s);	/* ok */
    777   1.1       pk 
    778   1.1       pk 		if( ISSET(flags, MTTYF_CARRIER_CHANGED) ) {
    779   1.3       pk 			dprintf(("%s%x: cd %s\n", mtty->ms_dev.dv_xname,
    780   1.3       pk 				port, mp->mp_carrier ? "on" : "off"));
    781   1.9      eeh 			(*tp->t_linesw->l_modem)(tp, mp->mp_carrier);
    782   1.1       pk 			serviced = 1;
    783   1.1       pk 		}
    784   1.1       pk 
    785   1.1       pk 		if( ISSET(flags, MTTYF_RING_OVERFLOW) ) {
    786   1.3       pk 			log(LOG_WARNING, "%s%x: ring buffer overflow\n",
    787   1.3       pk 			    mtty->ms_dev.dv_xname, port);
    788   1.1       pk 			serviced = 1;
    789   1.1       pk 		}
    790   1.1       pk 
    791   1.1       pk 		if( ISSET(flags, MTTYF_DONE) ) {
    792   1.1       pk 			ndflush(&tp->t_outq, mp->mp_txp - tp->t_outq.c_cf);
    793   1.1       pk 			CLR(tp->t_state, TS_BUSY);
    794   1.9      eeh 			(*tp->t_linesw->l_start)(tp);	/* might be some more */
    795   1.1       pk 			serviced = 1;
    796   1.1       pk 		}
    797   1.1       pk 	} /* for(each mtty...) */
    798   1.1       pk 
    799   1.2       pk 
    800   1.2       pk chkbpp:
    801   1.1       pk 	/*
    802   1.2       pk 	 * Check the bpp ports (if any) to see what needs doing
    803   1.1       pk 	 */
    804   1.2       pk 	if (mbpp == NULL)
    805   1.2       pk 		return (serviced);
    806   1.2       pk 
    807   1.1       pk 	for( port = 0 ; port < mbpp->ms_nports ; port++ ) {
    808   1.2       pk 		struct mbpp_port *mp = &mbpp->ms_port[port];
    809   1.1       pk 
    810   1.2       pk 		if( !ISSET(mp->mp_flags, MBPPF_OPEN) )
    811   1.2       pk 			continue;
    812   1.1       pk 
    813   1.1       pk 		s = splhigh();
    814   1.1       pk 		flags = mp->mp_flags;
    815   1.3       pk 		CLR(mp->mp_flags, MBPPF_WAKEUP);
    816   1.1       pk 		splx(s);
    817   1.1       pk 
    818   1.3       pk 		if( ISSET(flags, MBPPF_WAKEUP) ) {
    819   1.1       pk 			wakeup(mp);
    820   1.1       pk 			serviced = 1;
    821   1.1       pk 		}
    822   1.1       pk 
    823   1.1       pk 	} /* for(each mbpp...) */
    824   1.1       pk 
    825   1.1       pk 	return(serviced);
    826   1.1       pk }
    827   1.1       pk 
    828   1.1       pk /************************************************************************
    829   1.1       pk  *
    830   1.1       pk  *  MTTY Routines
    831   1.1       pk  *
    832   1.1       pk  *	mtty_match		match one mtty device
    833   1.1       pk  *	mtty_attach		attach mtty devices
    834   1.1       pk  *	mttyopen		open mtty device
    835   1.1       pk  *	mttyclose		close mtty device
    836   1.1       pk  *	mttyread		read from mtty
    837   1.1       pk  *	mttywrite		write to mtty
    838   1.1       pk  *	mttyioctl		do ioctl on mtty
    839   1.1       pk  *	mttytty			return tty pointer for mtty
    840   1.1       pk  *	mttystop		stop mtty device
    841   1.1       pk  *	mtty_start		start mtty device
    842   1.1       pk  *	mtty_param		set mtty parameters
    843   1.1       pk  *	mtty_modem_control	set modem control lines
    844   1.1       pk  */
    845   1.1       pk 
    846   1.1       pk int
    847   1.1       pk mtty_match(parent, cf, args)
    848   1.1       pk 	struct device *parent;
    849   1.1       pk 	struct cfdata *cf;
    850   1.1       pk 	void *args;
    851   1.1       pk {
    852   1.1       pk 	struct magma_softc *sc = (struct magma_softc *)parent;
    853   1.1       pk 
    854   1.1       pk 	return( args == mtty_match && sc->ms_board->mb_nser && sc->ms_mtty == NULL );
    855   1.1       pk }
    856   1.1       pk 
    857   1.1       pk void
    858   1.1       pk mtty_attach(parent, dev, args)
    859   1.1       pk 	struct device *parent;
    860   1.1       pk 	struct device *dev;
    861   1.1       pk 	void *args;
    862   1.1       pk {
    863   1.1       pk 	struct magma_softc *sc = (struct magma_softc *)parent;
    864   1.1       pk 	struct mtty_softc *ms = (struct mtty_softc *)dev;
    865   1.1       pk 	int port, chip, chan;
    866   1.1       pk 
    867   1.1       pk 	sc->ms_mtty = ms;
    868   1.2       pk 	dprintf((" addr %p", ms));
    869   1.1       pk 
    870   1.1       pk 	for( port = 0, chip = 0, chan = 0 ; port < sc->ms_board->mb_nser ; port++ ) {
    871   1.2       pk 		struct mtty_port *mp = &ms->ms_port[port];
    872   1.2       pk 		struct tty *tp;
    873   1.1       pk 
    874   1.1       pk 		mp->mp_cd1400 = &sc->ms_cd1400[chip];
    875  1.13       pk 		if (mp->mp_cd1400->cd_parmode && chan == 0)
    876   1.2       pk 			chan = 1; /* skip channel 0 if parmode */
    877   1.1       pk 		mp->mp_channel = chan;
    878   1.1       pk 
    879   1.1       pk 		tp = ttymalloc();
    880  1.13       pk 		if (tp == NULL) break;
    881   1.1       pk 		tty_attach(tp);
    882   1.1       pk 		tp->t_oproc = mtty_start;
    883   1.1       pk 		tp->t_param = mtty_param;
    884   1.1       pk 
    885   1.1       pk 		mp->mp_tty = tp;
    886   1.1       pk 
    887   1.1       pk 		mp->mp_rbuf = malloc(MTTY_RBUF_SIZE, M_DEVBUF, M_NOWAIT);
    888  1.13       pk 		if (mp->mp_rbuf == NULL) break;
    889   1.1       pk 
    890   1.1       pk 		mp->mp_rend = mp->mp_rbuf + MTTY_RBUF_SIZE;
    891   1.1       pk 
    892   1.1       pk 		chan = (chan + 1) % CD1400_NO_OF_CHANNELS;
    893  1.13       pk 		if (chan == 0)
    894  1.13       pk 			chip++;
    895   1.1       pk 	}
    896   1.1       pk 
    897   1.1       pk 	ms->ms_nports = port;
    898   1.1       pk 	printf(": %d tty%s\n", port, port == 1 ? "" : "s");
    899   1.1       pk }
    900   1.1       pk 
    901   1.1       pk /*
    902   1.1       pk  * open routine. returns zero if successful, else error code
    903   1.1       pk  */
    904   1.1       pk int
    905   1.1       pk mttyopen(dev, flags, mode, p)
    906   1.1       pk 	dev_t dev;
    907   1.1       pk 	int flags;
    908   1.1       pk 	int mode;
    909   1.1       pk 	struct proc *p;
    910   1.1       pk {
    911   1.1       pk 	int card = MAGMA_CARD(dev);
    912   1.1       pk 	int port = MAGMA_PORT(dev);
    913   1.1       pk 	struct mtty_softc *ms;
    914   1.1       pk 	struct mtty_port *mp;
    915   1.1       pk 	struct tty *tp;
    916   1.1       pk 	struct cd1400 *cd;
    917   1.1       pk 	int error, s;
    918   1.1       pk 
    919   1.1       pk 	if( card >= mtty_cd.cd_ndevs ||
    920   1.1       pk 	    (ms = mtty_cd.cd_devs[card]) == NULL || port >= ms->ms_nports )
    921   1.1       pk 		return(ENXIO);	/* device not configured */
    922   1.1       pk 
    923   1.1       pk 	mp = &ms->ms_port[port];
    924   1.1       pk 	tp = mp->mp_tty;
    925   1.1       pk 	tp->t_dev = dev;
    926   1.1       pk 
    927   1.1       pk 	if (ISSET(tp->t_state, TS_ISOPEN) &&
    928   1.1       pk 	    ISSET(tp->t_state, TS_XCLUDE) &&
    929   1.1       pk 	    p->p_ucred->cr_uid != 0)
    930   1.1       pk 		return (EBUSY);
    931   1.1       pk 
    932   1.1       pk 	s = spltty();
    933   1.1       pk 
    934   1.1       pk 	if( !ISSET(tp->t_state, TS_ISOPEN) && tp->t_wopen == 0) {
    935   1.1       pk 
    936   1.1       pk 		/* set defaults */
    937   1.1       pk 		ttychars(tp);
    938   1.1       pk 		tp->t_iflag = TTYDEF_IFLAG;
    939   1.1       pk 		tp->t_oflag = TTYDEF_OFLAG;
    940   1.1       pk 		tp->t_cflag = TTYDEF_CFLAG;
    941   1.1       pk 		if( ISSET(mp->mp_openflags, TIOCFLAG_CLOCAL) )
    942   1.1       pk 			SET(tp->t_cflag, CLOCAL);
    943   1.1       pk 		if( ISSET(mp->mp_openflags, TIOCFLAG_CRTSCTS) )
    944   1.1       pk 			SET(tp->t_cflag, CRTSCTS);
    945   1.1       pk 		if( ISSET(mp->mp_openflags, TIOCFLAG_MDMBUF) )
    946   1.1       pk 			SET(tp->t_cflag, MDMBUF);
    947   1.1       pk 		tp->t_lflag = TTYDEF_LFLAG;
    948   1.1       pk 		tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
    949   1.1       pk 
    950   1.1       pk 		/* init ring buffer */
    951   1.1       pk 		mp->mp_rput = mp->mp_rget = mp->mp_rbuf;
    952   1.1       pk 
    953   1.1       pk 		/* reset CD1400 channel */
    954   1.1       pk 		cd = mp->mp_cd1400;
    955   1.1       pk 		cd1400_write_reg(cd, CD1400_CAR, mp->mp_channel);
    956   1.1       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDRESET);
    957   1.1       pk 
    958   1.1       pk 		/* encode the port number in top half of LIVR */
    959   1.1       pk 		cd1400_write_reg(cd, CD1400_LIVR, port << 4 );
    960   1.1       pk 
    961   1.1       pk 		/* sets parameters and raises DTR */
    962   1.1       pk 		(void)mtty_param(tp, &tp->t_termios);
    963   1.1       pk 
    964   1.1       pk 		/* set tty watermarks */
    965   1.1       pk 		ttsetwater(tp);
    966   1.1       pk 
    967   1.1       pk 		/* enable service requests */
    968   1.1       pk 		cd1400_write_reg(cd, CD1400_SRER,
    969   1.1       pk 				 CD1400_SRER_RXDATA | CD1400_SRER_MDMCH);
    970   1.1       pk 
    971   1.1       pk 		/* tell the tty about the carrier status */
    972   1.1       pk 		if( ISSET(mp->mp_openflags, TIOCFLAG_SOFTCAR) ||
    973   1.1       pk 		    mp->mp_carrier )
    974   1.1       pk 			SET(tp->t_state, TS_CARR_ON);
    975   1.1       pk 		else
    976   1.1       pk 			CLR(tp->t_state, TS_CARR_ON);
    977   1.1       pk 	}
    978   1.1       pk 	splx(s);
    979   1.1       pk 
    980   1.1       pk 	error = ttyopen(tp, MTTY_DIALOUT(dev), ISSET(flags, O_NONBLOCK));
    981   1.1       pk 	if (error != 0)
    982   1.1       pk 		goto bad;
    983   1.1       pk 
    984   1.9      eeh 	error = (*tp->t_linesw->l_open)(dev, tp);
    985   1.1       pk 	if (error != 0)
    986   1.1       pk 		goto bad;
    987   1.1       pk 
    988   1.1       pk bad:
    989   1.1       pk 	if (!ISSET(tp->t_state, TS_ISOPEN) && tp->t_wopen == 0) {
    990   1.1       pk 		/*
    991   1.1       pk 		 * We failed to open the device, and nobody else had it opened.
    992   1.1       pk 		 * Clean up the state as appropriate.
    993   1.1       pk 		 */
    994   1.1       pk 		/* XXX - do that here */
    995   1.1       pk 	}
    996   1.1       pk 
    997   1.1       pk 	return (error);
    998   1.1       pk }
    999   1.1       pk 
   1000   1.1       pk /*
   1001   1.1       pk  * close routine. returns zero if successful, else error code
   1002   1.1       pk  */
   1003   1.1       pk int
   1004   1.1       pk mttyclose(dev, flag, mode, p)
   1005   1.1       pk 	dev_t dev;
   1006   1.1       pk 	int flag;
   1007   1.1       pk 	int mode;
   1008   1.1       pk 	struct proc *p;
   1009   1.1       pk {
   1010   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(dev)];
   1011   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1012   1.1       pk 	struct tty *tp = mp->mp_tty;
   1013   1.1       pk 	int s;
   1014   1.1       pk 
   1015   1.9      eeh 	(*tp->t_linesw->l_close)(tp, flag);
   1016   1.1       pk 	ttyclose(tp);
   1017   1.1       pk 
   1018   1.1       pk 	s = spltty();
   1019   1.1       pk 
   1020   1.1       pk 	/* if HUPCL is set, and the tty is no longer open
   1021   1.1       pk 	 * shut down the port
   1022   1.1       pk 	 */
   1023   1.1       pk 	if( ISSET(tp->t_cflag, HUPCL) || !ISSET(tp->t_state, TS_ISOPEN) ) {
   1024   1.1       pk 		/* XXX wait until FIFO is empty before turning off the channel
   1025   1.1       pk 		struct cd1400 *cd = mp->mp_cd1400;
   1026   1.1       pk 		*/
   1027   1.1       pk 
   1028   1.1       pk 		/* drop DTR and RTS */
   1029   1.1       pk 		(void)mtty_modem_control(mp, 0, DMSET);
   1030   1.1       pk 
   1031   1.1       pk 		/* turn off the channel
   1032   1.1       pk 		cd1400_write_reg(cd, CD1400_CAR, mp->mp_channel);
   1033   1.1       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDRESET);
   1034   1.1       pk 		*/
   1035   1.1       pk 	}
   1036   1.1       pk 
   1037   1.1       pk 	splx(s);
   1038   1.1       pk 
   1039   1.1       pk 	return(0);
   1040   1.1       pk }
   1041   1.1       pk 
   1042   1.1       pk /*
   1043   1.1       pk  * Read routine
   1044   1.1       pk  */
   1045   1.1       pk int
   1046   1.1       pk mttyread(dev, uio, flags)
   1047   1.1       pk 	dev_t dev;
   1048   1.1       pk 	struct uio *uio;
   1049   1.1       pk 	int flags;
   1050   1.1       pk {
   1051   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(dev)];
   1052   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1053   1.1       pk 	struct tty *tp = mp->mp_tty;
   1054   1.1       pk 
   1055   1.9      eeh 	return( (*tp->t_linesw->l_read)(tp, uio, flags) );
   1056   1.1       pk }
   1057   1.1       pk 
   1058   1.1       pk /*
   1059   1.1       pk  * Write routine
   1060   1.1       pk  */
   1061   1.1       pk int
   1062   1.1       pk mttywrite(dev, uio, flags)
   1063   1.1       pk 	dev_t dev;
   1064   1.1       pk 	struct uio *uio;
   1065   1.1       pk 	int flags;
   1066   1.1       pk {
   1067   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(dev)];
   1068   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1069   1.1       pk 	struct tty *tp = mp->mp_tty;
   1070   1.1       pk 
   1071   1.9      eeh 	return( (*tp->t_linesw->l_write)(tp, uio, flags) );
   1072  1.10      scw }
   1073  1.10      scw 
   1074  1.10      scw /*
   1075  1.10      scw  * Poll routine
   1076  1.10      scw  */
   1077  1.10      scw int
   1078  1.10      scw mttypoll(dev, events, p)
   1079  1.10      scw 	dev_t dev;
   1080  1.10      scw 	int events;
   1081  1.10      scw 	struct proc *p;
   1082  1.10      scw {
   1083  1.10      scw 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(dev)];
   1084  1.10      scw 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1085  1.10      scw 	struct tty *tp = mp->mp_tty;
   1086  1.10      scw 
   1087  1.10      scw 	return ((*tp->t_linesw->l_poll)(tp, events, p));
   1088   1.1       pk }
   1089   1.1       pk 
   1090   1.1       pk /*
   1091   1.1       pk  * return tty pointer
   1092   1.1       pk  */
   1093   1.1       pk struct tty *
   1094   1.1       pk mttytty(dev)
   1095   1.1       pk 	dev_t dev;
   1096   1.1       pk {
   1097   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(dev)];
   1098   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1099   1.1       pk 
   1100   1.1       pk 	return(mp->mp_tty);
   1101   1.1       pk }
   1102   1.1       pk 
   1103   1.1       pk /*
   1104   1.1       pk  * ioctl routine
   1105   1.1       pk  */
   1106   1.1       pk int
   1107   1.1       pk mttyioctl(dev, cmd, data, flags, p)
   1108   1.1       pk 	dev_t dev;
   1109   1.1       pk 	u_long cmd;
   1110   1.1       pk 	caddr_t data;
   1111   1.1       pk 	int flags;
   1112   1.1       pk 	struct proc *p;
   1113   1.1       pk {
   1114   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(dev)];
   1115   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1116   1.1       pk 	struct tty *tp = mp->mp_tty;
   1117   1.1       pk 	int error;
   1118   1.1       pk 
   1119   1.9      eeh 	error = (*tp->t_linesw->l_ioctl)(tp, cmd, data, flags, p);
   1120  1.15   atatat 	if( error != EPASSTHROUGH ) return(error);
   1121   1.1       pk 
   1122   1.1       pk 	error = ttioctl(tp, cmd, data, flags, p);
   1123  1.15   atatat 	if( error != EPASSTHROUGH ) return(error);
   1124   1.1       pk 
   1125   1.1       pk 	error = 0;
   1126   1.1       pk 
   1127   1.1       pk 	switch(cmd) {
   1128   1.1       pk 	case TIOCSBRK:	/* set break */
   1129   1.1       pk 		SET(mp->mp_flags, MTTYF_SET_BREAK);
   1130   1.1       pk 		cd1400_enable_transmitter(mp->mp_cd1400, mp->mp_channel);
   1131   1.1       pk 		break;
   1132   1.1       pk 
   1133   1.1       pk 	case TIOCCBRK:	/* clear break */
   1134   1.1       pk 		SET(mp->mp_flags, MTTYF_CLR_BREAK);
   1135   1.1       pk 		cd1400_enable_transmitter(mp->mp_cd1400, mp->mp_channel);
   1136   1.1       pk 		break;
   1137   1.1       pk 
   1138   1.1       pk 	case TIOCSDTR:	/* set DTR */
   1139   1.1       pk 		mtty_modem_control(mp, TIOCM_DTR, DMBIS);
   1140   1.1       pk 		break;
   1141   1.1       pk 
   1142   1.1       pk 	case TIOCCDTR:	/* clear DTR */
   1143   1.1       pk 		mtty_modem_control(mp, TIOCM_DTR, DMBIC);
   1144   1.1       pk 		break;
   1145   1.1       pk 
   1146   1.1       pk 	case TIOCMSET:	/* set modem lines */
   1147   1.1       pk 		mtty_modem_control(mp, *((int *)data), DMSET);
   1148   1.1       pk 		break;
   1149   1.1       pk 
   1150   1.1       pk 	case TIOCMBIS:	/* bit set modem lines */
   1151   1.1       pk 		mtty_modem_control(mp, *((int *)data), DMBIS);
   1152   1.1       pk 		break;
   1153   1.1       pk 
   1154   1.1       pk 	case TIOCMBIC:	/* bit clear modem lines */
   1155   1.1       pk 		mtty_modem_control(mp, *((int *)data), DMBIC);
   1156   1.1       pk 		break;
   1157   1.1       pk 
   1158   1.1       pk 	case TIOCMGET:	/* get modem lines */
   1159   1.1       pk 		*((int *)data) = mtty_modem_control(mp, 0, DMGET);
   1160   1.1       pk 		break;
   1161   1.1       pk 
   1162   1.1       pk 	case TIOCGFLAGS:
   1163   1.1       pk 		*((int *)data) = mp->mp_openflags;
   1164   1.1       pk 		break;
   1165   1.1       pk 
   1166   1.1       pk 	case TIOCSFLAGS:
   1167   1.1       pk 		if( suser(p->p_ucred, &p->p_acflag) )
   1168   1.1       pk 			error = EPERM;
   1169   1.1       pk 		else
   1170   1.1       pk 			mp->mp_openflags = *((int *)data) &
   1171   1.1       pk 				(TIOCFLAG_SOFTCAR | TIOCFLAG_CLOCAL |
   1172   1.1       pk 				TIOCFLAG_CRTSCTS | TIOCFLAG_MDMBUF);
   1173   1.1       pk 		break;
   1174   1.1       pk 
   1175   1.1       pk 	default:
   1176  1.15   atatat 		error = EPASSTHROUGH;
   1177   1.1       pk 	}
   1178   1.1       pk 
   1179   1.1       pk 	return(error);
   1180   1.1       pk }
   1181   1.1       pk 
   1182   1.1       pk /*
   1183   1.1       pk  * Stop output, e.g., for ^S or output flush.
   1184   1.1       pk  */
   1185   1.1       pk void
   1186   1.1       pk mttystop(tp, flags)
   1187   1.1       pk 	struct tty *tp;
   1188   1.1       pk 	int flags;
   1189   1.1       pk {
   1190   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(tp->t_dev)];
   1191   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(tp->t_dev)];
   1192   1.1       pk 	int s;
   1193   1.1       pk 
   1194   1.1       pk 	s = spltty();
   1195   1.1       pk 
   1196   1.1       pk 	if( ISSET(tp->t_state, TS_BUSY) ) {
   1197   1.1       pk 		if( !ISSET(tp->t_state, TS_TTSTOP) )
   1198   1.1       pk 			SET(tp->t_state, TS_FLUSH);
   1199   1.1       pk 
   1200   1.1       pk 		/*
   1201   1.1       pk 		 * the transmit interrupt routine will disable transmit when it
   1202   1.1       pk 		 * notices that MTTYF_STOP has been set.
   1203   1.1       pk 		 */
   1204   1.1       pk 		SET(mp->mp_flags, MTTYF_STOP);
   1205   1.1       pk 	}
   1206   1.1       pk 
   1207   1.1       pk 	splx(s);
   1208   1.1       pk }
   1209   1.1       pk 
   1210   1.1       pk /*
   1211   1.1       pk  * Start output, after a stop.
   1212   1.1       pk  */
   1213   1.1       pk void
   1214   1.1       pk mtty_start(tp)
   1215   1.1       pk 	struct tty *tp;
   1216   1.1       pk {
   1217   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(tp->t_dev)];
   1218   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(tp->t_dev)];
   1219   1.1       pk 	int s;
   1220   1.1       pk 
   1221   1.1       pk 	s = spltty();
   1222   1.1       pk 
   1223   1.1       pk 	/* we only need to do something if we are not already busy
   1224   1.1       pk 	 * or delaying or stopped
   1225   1.1       pk 	 */
   1226   1.1       pk 	if( !ISSET(tp->t_state, TS_TTSTOP | TS_TIMEOUT | TS_BUSY) ) {
   1227   1.1       pk 
   1228   1.1       pk 		/* if we are sleeping and output has drained below
   1229   1.1       pk 		 * low water mark, awaken
   1230   1.1       pk 		 */
   1231   1.1       pk 		if( tp->t_outq.c_cc <= tp->t_lowat ) {
   1232   1.1       pk 			if( ISSET(tp->t_state, TS_ASLEEP) ) {
   1233   1.1       pk 				CLR(tp->t_state, TS_ASLEEP);
   1234   1.1       pk 				wakeup(&tp->t_outq);
   1235   1.1       pk 			}
   1236   1.1       pk 
   1237   1.1       pk 			selwakeup(&tp->t_wsel);
   1238   1.1       pk 		}
   1239   1.1       pk 
   1240   1.1       pk 		/* if something to send, start transmitting
   1241   1.1       pk 		 */
   1242   1.1       pk 		if( tp->t_outq.c_cc ) {
   1243   1.1       pk 			mp->mp_txc = ndqb(&tp->t_outq, 0);
   1244   1.1       pk 			mp->mp_txp = tp->t_outq.c_cf;
   1245   1.1       pk 			SET(tp->t_state, TS_BUSY);
   1246   1.1       pk 			cd1400_enable_transmitter(mp->mp_cd1400, mp->mp_channel);
   1247   1.1       pk 		}
   1248   1.1       pk 	}
   1249   1.1       pk 
   1250   1.1       pk 	splx(s);
   1251   1.1       pk }
   1252   1.1       pk 
   1253   1.1       pk /*
   1254   1.1       pk  * set/get modem line status
   1255   1.1       pk  *
   1256   1.1       pk  * bits can be: TIOCM_DTR, TIOCM_RTS, TIOCM_CTS, TIOCM_CD, TIOCM_RI, TIOCM_DSR
   1257   1.1       pk  *
   1258   1.1       pk  * note that DTR and RTS lines are exchanged, and that DSR is
   1259   1.1       pk  * not available on the LC2+1Sp card (used as CD)
   1260   1.1       pk  *
   1261   1.1       pk  * only let them fiddle with RTS if CRTSCTS is not enabled
   1262   1.1       pk  */
   1263   1.1       pk int
   1264   1.1       pk mtty_modem_control(mp, bits, howto)
   1265   1.1       pk 	struct mtty_port *mp;
   1266   1.1       pk 	int bits;
   1267   1.1       pk 	int howto;
   1268   1.1       pk {
   1269   1.1       pk 	struct cd1400 *cd = mp->mp_cd1400;
   1270   1.1       pk 	struct tty *tp = mp->mp_tty;
   1271   1.1       pk 	int s, msvr;
   1272   1.1       pk 
   1273   1.1       pk 	s = spltty();
   1274   1.1       pk 
   1275   1.1       pk 	cd1400_write_reg(cd, CD1400_CAR, mp->mp_channel);
   1276   1.1       pk 
   1277   1.1       pk 	switch(howto) {
   1278   1.1       pk 	case DMGET:	/* get bits */
   1279   1.1       pk 		bits = 0;
   1280   1.1       pk 
   1281   1.1       pk 		bits |= TIOCM_LE;
   1282   1.1       pk 
   1283   1.1       pk 		msvr = cd1400_read_reg(cd, CD1400_MSVR1);
   1284   1.1       pk 		if( msvr & CD1400_MSVR1_RTS ) bits |= TIOCM_DTR;
   1285   1.1       pk 
   1286   1.1       pk 		msvr = cd1400_read_reg(cd, CD1400_MSVR2);
   1287   1.1       pk 		if( msvr & CD1400_MSVR2_DTR ) bits |= TIOCM_RTS;
   1288   1.1       pk 		if( msvr & CD1400_MSVR2_CTS ) bits |= TIOCM_CTS;
   1289   1.1       pk 		if( msvr & CD1400_MSVR2_RI ) bits |= TIOCM_RI;
   1290   1.1       pk 		if( msvr & CD1400_MSVR2_DSR ) bits |= (cd->cd_parmode ? TIOCM_CD : TIOCM_DSR);
   1291   1.1       pk 		if( msvr & CD1400_MSVR2_CD ) bits |= (cd->cd_parmode ? 0 : TIOCM_CD);
   1292   1.1       pk 
   1293   1.1       pk 		break;
   1294   1.1       pk 
   1295   1.1       pk 	case DMSET:	/* reset bits */
   1296   1.1       pk 		if( !ISSET(tp->t_cflag, CRTSCTS) )
   1297   1.1       pk 			cd1400_write_reg(cd, CD1400_MSVR2, ((bits & TIOCM_RTS) ? CD1400_MSVR2_DTR : 0));
   1298   1.1       pk 
   1299   1.1       pk 		cd1400_write_reg(cd, CD1400_MSVR1, ((bits & TIOCM_DTR) ? CD1400_MSVR1_RTS : 0));
   1300   1.1       pk 
   1301   1.1       pk 		break;
   1302   1.1       pk 
   1303   1.1       pk 	case DMBIS:	/* set bits */
   1304   1.1       pk 		if( (bits & TIOCM_RTS) && !ISSET(tp->t_cflag, CRTSCTS) )
   1305   1.1       pk 			cd1400_write_reg(cd, CD1400_MSVR2, CD1400_MSVR2_DTR);
   1306   1.1       pk 
   1307   1.1       pk 		if( bits & TIOCM_DTR )
   1308   1.1       pk 			cd1400_write_reg(cd, CD1400_MSVR1, CD1400_MSVR1_RTS);
   1309   1.1       pk 
   1310   1.1       pk 		break;
   1311   1.1       pk 
   1312   1.1       pk 	case DMBIC:	/* clear bits */
   1313   1.1       pk 		if( (bits & TIOCM_RTS) && !ISSET(tp->t_cflag, CRTSCTS) )
   1314   1.1       pk 			cd1400_write_reg(cd, CD1400_MSVR2, 0);
   1315   1.1       pk 
   1316   1.1       pk 		if( bits & TIOCM_DTR )
   1317   1.1       pk 			cd1400_write_reg(cd, CD1400_MSVR1, 0);
   1318   1.1       pk 
   1319   1.1       pk 		break;
   1320   1.1       pk 	}
   1321   1.1       pk 
   1322   1.1       pk 	splx(s);
   1323   1.1       pk 	return(bits);
   1324   1.1       pk }
   1325   1.1       pk 
   1326   1.1       pk /*
   1327   1.1       pk  * Set tty parameters, returns error or 0 on success
   1328   1.1       pk  */
   1329   1.1       pk int
   1330   1.1       pk mtty_param(tp, t)
   1331   1.1       pk 	struct tty *tp;
   1332   1.1       pk 	struct termios *t;
   1333   1.1       pk {
   1334   1.1       pk 	struct mtty_softc *ms = mtty_cd.cd_devs[MAGMA_CARD(tp->t_dev)];
   1335   1.1       pk 	struct mtty_port *mp = &ms->ms_port[MAGMA_PORT(tp->t_dev)];
   1336   1.1       pk 	struct cd1400 *cd = mp->mp_cd1400;
   1337   1.1       pk 	int rbpr, tbpr, rcor, tcor;
   1338   1.1       pk 	u_char mcor1 = 0, mcor2 = 0;
   1339   1.1       pk 	int s, opt;
   1340   1.1       pk 
   1341   1.1       pk 	if( t->c_ospeed && cd1400_compute_baud(t->c_ospeed, cd->cd_clock, &tcor, &tbpr) )
   1342   1.1       pk 		return(EINVAL);
   1343   1.1       pk 
   1344   1.1       pk 	if( t->c_ispeed && cd1400_compute_baud(t->c_ispeed, cd->cd_clock, &rcor, &rbpr) )
   1345   1.1       pk 		return(EINVAL);
   1346   1.1       pk 
   1347   1.1       pk 	s = spltty();
   1348   1.1       pk 
   1349   1.1       pk 	/* hang up the line if ospeed is zero, else raise DTR */
   1350   1.1       pk 	(void)mtty_modem_control(mp, TIOCM_DTR, (t->c_ospeed == 0 ? DMBIC : DMBIS));
   1351   1.1       pk 
   1352   1.1       pk 	/* select channel, done in mtty_modem_control() */
   1353   1.1       pk 	/* cd1400_write_reg(cd, CD1400_CAR, mp->mp_channel); */
   1354   1.1       pk 
   1355   1.1       pk 	/* set transmit speed */
   1356   1.1       pk 	if( t->c_ospeed ) {
   1357   1.1       pk 		cd1400_write_reg(cd, CD1400_TCOR, tcor);
   1358   1.1       pk 		cd1400_write_reg(cd, CD1400_TBPR, tbpr);
   1359   1.1       pk 	}
   1360   1.1       pk 
   1361   1.1       pk 	/* set receive speed */
   1362   1.1       pk 	if( t->c_ispeed ) {
   1363   1.1       pk 		cd1400_write_reg(cd, CD1400_RCOR, rcor);
   1364   1.1       pk 		cd1400_write_reg(cd, CD1400_RBPR, rbpr);
   1365   1.1       pk 	}
   1366   1.1       pk 
   1367   1.1       pk 	/* enable transmitting and receiving on this channel */
   1368   1.1       pk 	opt = CD1400_CCR_CMDCHANCTL | CD1400_CCR_XMTEN | CD1400_CCR_RCVEN;
   1369   1.1       pk 	cd1400_write_ccr(cd, opt);
   1370   1.1       pk 
   1371   1.1       pk 	/* set parity, data and stop bits */
   1372   1.1       pk 	opt = 0;
   1373   1.1       pk 	if( ISSET(t->c_cflag, PARENB) )
   1374   1.1       pk 		opt |= (ISSET(t->c_cflag, PARODD) ? CD1400_COR1_PARODD : CD1400_COR1_PARNORMAL);
   1375   1.1       pk 
   1376   1.1       pk 	if( !ISSET(t->c_iflag, INPCK) )
   1377   1.1       pk 		opt |= CD1400_COR1_NOINPCK; /* no parity checking */
   1378   1.1       pk 
   1379   1.1       pk 	if( ISSET(t->c_cflag, CSTOPB) )
   1380   1.1       pk 		opt |= CD1400_COR1_STOP2;
   1381   1.1       pk 
   1382   1.1       pk 	switch( t->c_cflag & CSIZE ) {
   1383   1.1       pk 	case CS5:
   1384   1.1       pk 		opt |= CD1400_COR1_CS5;
   1385   1.1       pk 		break;
   1386   1.1       pk 
   1387   1.1       pk 	case CS6:
   1388   1.1       pk 		opt |= CD1400_COR1_CS6;
   1389   1.1       pk 		break;
   1390   1.1       pk 
   1391   1.1       pk 	case CS7:
   1392   1.1       pk 		opt |= CD1400_COR1_CS7;
   1393   1.1       pk 		break;
   1394   1.1       pk 
   1395   1.1       pk 	default:
   1396   1.1       pk 		opt |= CD1400_COR1_CS8;
   1397   1.1       pk 		break;
   1398   1.1       pk 	}
   1399   1.1       pk 
   1400   1.1       pk 	cd1400_write_reg(cd, CD1400_COR1, opt);
   1401   1.1       pk 
   1402   1.1       pk 	/*
   1403   1.1       pk 	 * enable Embedded Transmit Commands (for breaks)
   1404   1.1       pk 	 * use the CD1400 automatic CTS flow control if CRTSCTS is set
   1405   1.1       pk 	 */
   1406   1.1       pk 	opt = CD1400_COR2_ETC;
   1407   1.1       pk 	if( ISSET(t->c_cflag, CRTSCTS) ) opt |= CD1400_COR2_CCTS_OFLOW;
   1408   1.1       pk 	cd1400_write_reg(cd, CD1400_COR2, opt);
   1409   1.1       pk 
   1410   1.1       pk 	cd1400_write_reg(cd, CD1400_COR3, MTTY_RX_FIFO_THRESHOLD);
   1411   1.1       pk 
   1412   1.1       pk 	cd1400_write_ccr(cd, CD1400_CCR_CMDCORCHG | CD1400_CCR_COR1 | CD1400_CCR_COR2 | CD1400_CCR_COR3);
   1413   1.1       pk 
   1414   1.1       pk 	cd1400_write_reg(cd, CD1400_COR4, CD1400_COR4_PFO_EXCEPTION);
   1415   1.1       pk 	cd1400_write_reg(cd, CD1400_COR5, 0);
   1416   1.1       pk 
   1417   1.1       pk 	/*
   1418   1.1       pk 	 * if automatic RTS handshaking enabled, set DTR threshold
   1419   1.1       pk 	 * (RTS and DTR lines are switched, CD1400 thinks its DTR)
   1420   1.1       pk 	 */
   1421   1.1       pk 	if( ISSET(t->c_cflag, CRTSCTS) )
   1422   1.1       pk 		mcor1 = MTTY_RX_DTR_THRESHOLD;
   1423   1.1       pk 
   1424   1.1       pk 	/* set up `carrier detect' interrupts */
   1425   1.1       pk 	if( cd->cd_parmode ) {
   1426   1.1       pk 		SET(mcor1, CD1400_MCOR1_DSRzd);
   1427   1.1       pk 		SET(mcor2, CD1400_MCOR2_DSRod);
   1428   1.1       pk 	} else {
   1429   1.1       pk 		SET(mcor1, CD1400_MCOR1_CDzd);
   1430   1.1       pk 		SET(mcor2, CD1400_MCOR2_CDod);
   1431   1.1       pk 	}
   1432   1.1       pk 
   1433   1.1       pk 	cd1400_write_reg(cd, CD1400_MCOR1, mcor1);
   1434   1.1       pk 	cd1400_write_reg(cd, CD1400_MCOR2, mcor2);
   1435   1.1       pk 
   1436   1.1       pk 	/* receive timeout 2ms */
   1437   1.1       pk 	cd1400_write_reg(cd, CD1400_RTPR, 2);
   1438   1.1       pk 
   1439   1.1       pk 	splx(s);
   1440   1.1       pk 	return(0);
   1441   1.1       pk }
   1442   1.1       pk 
   1443   1.1       pk /************************************************************************
   1444   1.1       pk  *
   1445   1.1       pk  *  MBPP Routines
   1446   1.1       pk  *
   1447   1.1       pk  *	mbpp_match	match one mbpp device
   1448   1.1       pk  *	mbpp_attach	attach mbpp devices
   1449   1.1       pk  *	mbppopen	open mbpp device
   1450   1.1       pk  *	mbppclose	close mbpp device
   1451   1.1       pk  *	mbppread	read from mbpp
   1452   1.1       pk  *	mbppwrite	write to mbpp
   1453   1.1       pk  *	mbppioctl	do ioctl on mbpp
   1454   1.3       pk  *	mbppselect	do select on mbpp
   1455   1.3       pk  *	mbpp_rw		general rw routine
   1456   1.3       pk  *	mbpp_timeout	rw timeout
   1457   1.3       pk  *	mbpp_start	rw start after delay
   1458   1.3       pk  *	mbpp_send	send data
   1459   1.3       pk  *	mbpp_recv	recv data
   1460   1.1       pk  */
   1461   1.1       pk 
   1462   1.1       pk int
   1463   1.1       pk mbpp_match(parent, cf, args)
   1464   1.1       pk 	struct device *parent;
   1465   1.1       pk 	struct cfdata *cf;
   1466   1.1       pk 	void *args;
   1467   1.1       pk {
   1468   1.1       pk 	struct magma_softc *sc = (struct magma_softc *)parent;
   1469   1.1       pk 
   1470   1.1       pk 	return( args == mbpp_match && sc->ms_board->mb_npar && sc->ms_mbpp == NULL );
   1471   1.1       pk }
   1472   1.1       pk 
   1473   1.1       pk void
   1474   1.1       pk mbpp_attach(parent, dev, args)
   1475   1.1       pk 	struct device *parent;
   1476   1.1       pk 	struct device *dev;
   1477   1.1       pk 	void *args;
   1478   1.1       pk {
   1479   1.1       pk 	struct magma_softc *sc = (struct magma_softc *)parent;
   1480   1.1       pk 	struct mbpp_softc *ms = (struct mbpp_softc *)dev;
   1481   1.1       pk 	struct mbpp_port *mp;
   1482   1.3       pk 	int port;
   1483   1.1       pk 
   1484   1.1       pk 	sc->ms_mbpp = ms;
   1485   1.2       pk 	dprintf((" addr %p", ms));
   1486   1.1       pk 
   1487   1.1       pk 	for( port = 0 ; port < sc->ms_board->mb_npar ; port++ ) {
   1488   1.1       pk 		mp = &ms->ms_port[port];
   1489   1.1       pk 
   1490   1.6  thorpej 		callout_init(&mp->mp_timeout_ch);
   1491   1.6  thorpej 		callout_init(&mp->mp_start_ch);
   1492   1.6  thorpej 
   1493   1.1       pk 		if( sc->ms_ncd1190 )
   1494   1.1       pk 			mp->mp_cd1190 = &sc->ms_cd1190[port];
   1495   1.1       pk 		else
   1496   1.1       pk 			mp->mp_cd1400 = &sc->ms_cd1400[0];
   1497   1.1       pk 	}
   1498   1.1       pk 
   1499   1.1       pk 	ms->ms_nports = port;
   1500   1.1       pk 	printf(": %d port%s\n", port, port == 1 ? "" : "s");
   1501   1.1       pk }
   1502   1.1       pk 
   1503   1.1       pk /*
   1504   1.1       pk  * open routine. returns zero if successful, else error code
   1505   1.1       pk  */
   1506   1.1       pk int
   1507   1.1       pk mbppopen(dev, flags, mode, p)
   1508   1.1       pk 	dev_t dev;
   1509   1.1       pk 	int flags;
   1510   1.1       pk 	int mode;
   1511   1.1       pk 	struct proc *p;
   1512   1.1       pk {
   1513   1.1       pk 	int card = MAGMA_CARD(dev);
   1514   1.1       pk 	int port = MAGMA_PORT(dev);
   1515   1.1       pk 	struct mbpp_softc *ms;
   1516   1.1       pk 	struct mbpp_port *mp;
   1517   1.3       pk 	int s;
   1518   1.1       pk 
   1519   1.1       pk 	if( card >= mbpp_cd.cd_ndevs ||
   1520   1.1       pk 	    (ms = mbpp_cd.cd_devs[card]) == NULL || port >= ms->ms_nports )
   1521   1.1       pk 		return(ENXIO);
   1522   1.1       pk 
   1523   1.1       pk 	mp = &ms->ms_port[port];
   1524   1.1       pk 
   1525   1.1       pk 	s = spltty();
   1526   1.1       pk 	if( ISSET(mp->mp_flags, MBPPF_OPEN) ) {
   1527   1.1       pk 		splx(s);
   1528   1.1       pk 		return(EBUSY);
   1529   1.1       pk 	}
   1530   1.1       pk 	SET(mp->mp_flags, MBPPF_OPEN);
   1531   1.1       pk 	splx(s);
   1532   1.1       pk 
   1533   1.3       pk 	/* set defaults */
   1534   1.3       pk 	mp->mp_burst = MBPP_BURST;
   1535   1.3       pk 	mp->mp_timeout = mbpp_mstohz(MBPP_TIMEOUT);
   1536   1.3       pk 	mp->mp_delay = mbpp_mstohz(MBPP_DELAY);
   1537   1.3       pk 
   1538   1.3       pk 	/* init chips */
   1539   1.3       pk 	if( mp->mp_cd1400 ) {	/* CD1400 */
   1540   1.2       pk 		struct cd1400 *cd = mp->mp_cd1400;
   1541   1.1       pk 
   1542   1.1       pk 		/* set up CD1400 channel */
   1543   1.1       pk 		s = spltty();
   1544   1.1       pk 		cd1400_write_reg(cd, CD1400_CAR, 0);
   1545   1.1       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDRESET);
   1546   1.1       pk 		cd1400_write_reg(cd, CD1400_LIVR, (1<<3));
   1547   1.1       pk 		splx(s);
   1548   1.3       pk 	} else {		/* CD1190 */
   1549   1.3       pk 		mp->mp_flags = 0;
   1550   1.3       pk 		return (ENXIO);
   1551   1.1       pk 	}
   1552   1.1       pk 
   1553   1.3       pk 	return (0);
   1554   1.1       pk }
   1555   1.1       pk 
   1556   1.1       pk /*
   1557   1.1       pk  * close routine. returns zero if successful, else error code
   1558   1.1       pk  */
   1559   1.1       pk int
   1560   1.1       pk mbppclose(dev, flag, mode, p)
   1561   1.1       pk 	dev_t dev;
   1562   1.1       pk 	int flag;
   1563   1.1       pk 	int mode;
   1564   1.1       pk 	struct proc *p;
   1565   1.1       pk {
   1566   1.1       pk 	struct mbpp_softc *ms = mbpp_cd.cd_devs[MAGMA_CARD(dev)];
   1567   1.1       pk 	struct mbpp_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1568   1.1       pk 
   1569   1.1       pk 	mp->mp_flags = 0;
   1570   1.1       pk 	return(0);
   1571   1.1       pk }
   1572   1.1       pk 
   1573   1.1       pk /*
   1574   1.1       pk  * Read routine
   1575   1.1       pk  */
   1576   1.1       pk int
   1577   1.1       pk mbppread(dev, uio, flags)
   1578   1.1       pk 	dev_t dev;
   1579   1.1       pk 	struct uio *uio;
   1580   1.1       pk 	int flags;
   1581   1.1       pk {
   1582   1.3       pk 
   1583   1.3       pk 	return( mbpp_rw(dev, uio) );
   1584   1.1       pk }
   1585   1.1       pk 
   1586   1.1       pk /*
   1587   1.1       pk  * Write routine
   1588   1.1       pk  */
   1589   1.1       pk int
   1590   1.1       pk mbppwrite(dev, uio, flags)
   1591   1.1       pk 	dev_t dev;
   1592   1.1       pk 	struct uio *uio;
   1593   1.1       pk 	int flags;
   1594   1.1       pk {
   1595   1.1       pk 
   1596   1.3       pk 	return( mbpp_rw(dev, uio) );
   1597   1.1       pk }
   1598   1.1       pk 
   1599   1.1       pk /*
   1600   1.1       pk  * ioctl routine
   1601   1.1       pk  */
   1602   1.1       pk int
   1603   1.1       pk mbppioctl(dev, cmd, data, flags, p)
   1604   1.1       pk 	dev_t dev;
   1605   1.1       pk 	u_long cmd;
   1606   1.1       pk 	caddr_t data;
   1607   1.1       pk 	int flags;
   1608   1.1       pk 	struct proc *p;
   1609   1.1       pk {
   1610   1.3       pk 	struct mbpp_softc *ms = mbpp_cd.cd_devs[MAGMA_CARD(dev)];
   1611   1.3       pk 	struct mbpp_port *mp = &ms->ms_port[MAGMA_PORT(dev)];
   1612   1.3       pk 	struct mbpp_param *bp;
   1613   1.3       pk 	int error = 0;
   1614   1.3       pk 	int s;
   1615   1.3       pk 
   1616   1.3       pk 	switch(cmd) {
   1617   1.3       pk 	case MBPPIOCSPARAM:
   1618   1.3       pk 		bp = (struct mbpp_param *)data;
   1619   1.3       pk 		if( bp->bp_burst < MBPP_BURST_MIN || bp->bp_burst > MBPP_BURST_MAX ||
   1620   1.3       pk 		    bp->bp_delay < MBPP_DELAY_MIN || bp->bp_delay > MBPP_DELAY_MIN ) {
   1621   1.3       pk 			error = EINVAL;
   1622   1.3       pk 		} else {
   1623   1.3       pk 			mp->mp_burst = bp->bp_burst;
   1624   1.3       pk 			mp->mp_timeout = mbpp_mstohz(bp->bp_timeout);
   1625   1.3       pk 			mp->mp_delay = mbpp_mstohz(bp->bp_delay);
   1626   1.3       pk 		}
   1627   1.3       pk 		break;
   1628   1.3       pk 	case MBPPIOCGPARAM:
   1629   1.3       pk 		bp = (struct mbpp_param *)data;
   1630   1.3       pk 		bp->bp_burst = mp->mp_burst;
   1631   1.3       pk 		bp->bp_timeout = mbpp_hztoms(mp->mp_timeout);
   1632   1.3       pk 		bp->bp_delay = mbpp_hztoms(mp->mp_delay);
   1633   1.3       pk 		break;
   1634   1.3       pk 	case MBPPIOCGSTAT:
   1635   1.3       pk 		/* XXX make this more generic */
   1636   1.3       pk 		s = spltty();
   1637   1.3       pk 		cd1400_write_reg(mp->mp_cd1400, CD1400_CAR, 0);
   1638   1.3       pk 		*(int *)data = cd1400_read_reg(mp->mp_cd1400, CD1400_PSVR);
   1639   1.3       pk 		splx(s);
   1640   1.3       pk 		break;
   1641   1.3       pk 	default:
   1642   1.3       pk 		error = ENOTTY;
   1643   1.3       pk 	}
   1644   1.3       pk 
   1645   1.3       pk 	return(error);
   1646   1.1       pk }
   1647   1.1       pk 
   1648   1.1       pk /*
   1649   1.1       pk  * poll routine
   1650   1.1       pk  */
   1651   1.1       pk int
   1652   1.1       pk mbpppoll(dev, rw, p)
   1653   1.1       pk 	dev_t dev;
   1654   1.1       pk 	int rw;
   1655   1.1       pk 	struct proc *p;
   1656   1.1       pk {
   1657   1.3       pk 
   1658   1.1       pk 	return(ENODEV);
   1659   1.3       pk }
   1660   1.3       pk 
   1661   1.3       pk int
   1662   1.3       pk mbpp_rw(dev, uio)
   1663   1.3       pk 	dev_t dev;
   1664   1.3       pk 	struct uio *uio;
   1665   1.3       pk {
   1666   1.3       pk 	int card = MAGMA_CARD(dev);
   1667   1.3       pk 	int port = MAGMA_PORT(dev);
   1668   1.3       pk 	struct mbpp_softc *ms = mbpp_cd.cd_devs[card];
   1669   1.3       pk 	struct mbpp_port *mp = &ms->ms_port[port];
   1670   1.3       pk 	caddr_t buffer, ptr;
   1671   1.3       pk 	int buflen, cnt, len;
   1672   1.3       pk 	int s, error = 0;
   1673   1.3       pk 	int gotdata = 0;
   1674   1.3       pk 
   1675   1.3       pk 	if( uio->uio_resid == 0 )
   1676   1.3       pk 		return(0);
   1677   1.3       pk 
   1678   1.3       pk 	buflen = min(uio->uio_resid, mp->mp_burst);
   1679   1.3       pk 	buffer = malloc(buflen, M_DEVBUF, M_WAITOK);
   1680   1.3       pk 	if( buffer == NULL )
   1681   1.3       pk 		return(ENOMEM);
   1682   1.3       pk 
   1683   1.3       pk 	SET(mp->mp_flags, MBPPF_UIO);
   1684   1.3       pk 
   1685   1.3       pk 	/*
   1686   1.3       pk 	 * start timeout, if needed
   1687   1.3       pk 	 */
   1688   1.3       pk 	if( mp->mp_timeout > 0 ) {
   1689   1.3       pk 		SET(mp->mp_flags, MBPPF_TIMEOUT);
   1690   1.6  thorpej 		callout_reset(&mp->mp_timeout_ch, mp->mp_timeout,
   1691   1.6  thorpej 		    mbpp_timeout, mp);
   1692   1.3       pk 	}
   1693   1.3       pk 
   1694   1.3       pk 	len = cnt = 0;
   1695   1.3       pk 	while( uio->uio_resid > 0 ) {
   1696   1.3       pk 		len = min(buflen, uio->uio_resid);
   1697   1.3       pk 		ptr = buffer;
   1698   1.3       pk 
   1699   1.3       pk 		if( uio->uio_rw == UIO_WRITE ) {
   1700   1.3       pk 			error = uiomove(ptr, len, uio);
   1701   1.3       pk 			if( error ) break;
   1702   1.3       pk 		}
   1703   1.3       pk again:		/* goto bad */
   1704   1.3       pk 		/* timed out?  */
   1705   1.3       pk 		if( !ISSET(mp->mp_flags, MBPPF_UIO) )
   1706   1.3       pk 			break;
   1707   1.3       pk 
   1708   1.3       pk 		/*
   1709   1.3       pk 		 * perform the operation
   1710   1.3       pk 		 */
   1711   1.3       pk 		if( uio->uio_rw == UIO_WRITE ) {
   1712   1.3       pk 			cnt = mbpp_send(mp, ptr, len);
   1713   1.3       pk 		} else {
   1714   1.3       pk 			cnt = mbpp_recv(mp, ptr, len);
   1715   1.3       pk 		}
   1716   1.3       pk 
   1717   1.3       pk 		if( uio->uio_rw == UIO_READ ) {
   1718   1.3       pk 			if( cnt ) {
   1719   1.3       pk 				error = uiomove(ptr, cnt, uio);
   1720   1.3       pk 				if( error ) break;
   1721   1.3       pk 				gotdata++;
   1722   1.3       pk 			}
   1723   1.3       pk 			else if( gotdata )	/* consider us done */
   1724   1.3       pk 				break;
   1725   1.3       pk 		}
   1726   1.3       pk 
   1727   1.3       pk 		/* timed out?  */
   1728   1.3       pk 		if( !ISSET(mp->mp_flags, MBPPF_UIO) )
   1729   1.3       pk 			break;
   1730   1.3       pk 
   1731   1.3       pk 		/*
   1732   1.3       pk 		 * poll delay?
   1733   1.3       pk 		 */
   1734   1.3       pk 		if( mp->mp_delay > 0 ) {
   1735   1.3       pk 			s = splsoftclock();
   1736   1.3       pk 			SET(mp->mp_flags, MBPPF_DELAY);
   1737   1.6  thorpej 			callout_reset(&mp->mp_start_ch, mp->mp_delay,
   1738   1.6  thorpej 			    mbpp_start, mp);
   1739   1.3       pk 			error = tsleep(mp, PCATCH | PZERO, "mbppdelay", 0);
   1740   1.3       pk 			splx(s);
   1741   1.3       pk 			if( error ) break;
   1742   1.3       pk 		}
   1743   1.3       pk 
   1744   1.3       pk 		/*
   1745   1.3       pk 		 * don't call uiomove again until we used all the data we grabbed
   1746   1.3       pk 		 */
   1747   1.3       pk 		if( uio->uio_rw == UIO_WRITE && cnt != len ) {
   1748   1.3       pk 			ptr += cnt;
   1749   1.3       pk 			len -= cnt;
   1750   1.3       pk 			cnt = 0;
   1751   1.3       pk 			goto again;
   1752   1.3       pk 		}
   1753   1.3       pk 	}
   1754   1.3       pk 
   1755   1.3       pk 	/*
   1756   1.3       pk 	 * clear timeouts
   1757   1.3       pk 	 */
   1758   1.3       pk 	s = splsoftclock();
   1759   1.3       pk 	if( ISSET(mp->mp_flags, MBPPF_TIMEOUT) ) {
   1760   1.6  thorpej 		callout_stop(&mp->mp_timeout_ch);
   1761   1.3       pk 		CLR(mp->mp_flags, MBPPF_TIMEOUT);
   1762   1.3       pk 	}
   1763   1.3       pk 	if( ISSET(mp->mp_flags, MBPPF_DELAY) ) {
   1764   1.6  thorpej 		callout_stop(&mp->mp_start_ch);
   1765   1.3       pk 		CLR(mp->mp_flags, MBPPF_DELAY);
   1766   1.3       pk 	}
   1767   1.3       pk 	splx(s);
   1768   1.3       pk 
   1769   1.3       pk 	/*
   1770   1.3       pk 	 * adjust for those chars that we uiomoved but never actually wrote
   1771   1.3       pk 	 */
   1772   1.3       pk 	if( uio->uio_rw == UIO_WRITE && cnt != len ) {
   1773   1.3       pk 		uio->uio_resid += (len - cnt);
   1774   1.3       pk 	}
   1775   1.3       pk 
   1776   1.3       pk 	free(buffer, M_DEVBUF);
   1777   1.3       pk 	return(error);
   1778   1.3       pk }
   1779   1.3       pk 
   1780   1.3       pk void
   1781   1.3       pk mbpp_timeout(arg)
   1782   1.3       pk 	void *arg;
   1783   1.3       pk {
   1784   1.3       pk 	struct mbpp_port *mp = arg;
   1785   1.3       pk 
   1786   1.3       pk 	CLR(mp->mp_flags, MBPPF_UIO | MBPPF_TIMEOUT);
   1787   1.3       pk 	wakeup(mp);
   1788   1.3       pk }
   1789   1.3       pk 
   1790   1.3       pk void
   1791   1.3       pk mbpp_start(arg)
   1792   1.3       pk 	void *arg;
   1793   1.3       pk {
   1794   1.3       pk 	struct mbpp_port *mp = arg;
   1795   1.3       pk 
   1796   1.3       pk 	CLR(mp->mp_flags, MBPPF_DELAY);
   1797   1.3       pk 	wakeup(mp);
   1798   1.3       pk }
   1799   1.3       pk 
   1800   1.3       pk int
   1801   1.3       pk mbpp_send(mp, ptr, len)
   1802   1.3       pk 	struct mbpp_port *mp;
   1803   1.3       pk 	caddr_t ptr;
   1804   1.3       pk 	int len;
   1805   1.3       pk {
   1806   1.3       pk 	int s;
   1807   1.3       pk 	struct cd1400 *cd = mp->mp_cd1400;
   1808   1.3       pk 
   1809   1.3       pk 	/* set up io information */
   1810   1.3       pk 	mp->mp_ptr = ptr;
   1811   1.3       pk 	mp->mp_cnt = len;
   1812   1.3       pk 
   1813   1.3       pk 	/* start transmitting */
   1814   1.3       pk 	s = spltty();
   1815   1.3       pk 	if( cd ) {
   1816   1.3       pk 		cd1400_write_reg(cd, CD1400_CAR, 0);
   1817   1.3       pk 
   1818   1.3       pk 		/* output strobe width ~1microsecond */
   1819   1.3       pk 		cd1400_write_reg(cd, CD1400_TBPR, 10);
   1820   1.3       pk 
   1821   1.3       pk 		/* enable channel */
   1822   1.3       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDCHANCTL | CD1400_CCR_XMTEN);
   1823   1.3       pk 		cd1400_write_reg(cd, CD1400_SRER, CD1400_SRER_TXRDY);
   1824   1.3       pk 	}
   1825   1.3       pk 
   1826   1.3       pk 	/* ZZzzz... */
   1827   1.3       pk 	tsleep(mp, PCATCH | PZERO, "mbpp_send", 0);
   1828   1.3       pk 
   1829   1.3       pk 	/* stop transmitting */
   1830   1.3       pk 	if( cd ) {
   1831   1.3       pk 		cd1400_write_reg(cd, CD1400_CAR, 0);
   1832   1.3       pk 
   1833   1.3       pk 		/* disable transmitter */
   1834   1.3       pk 		cd1400_write_reg(cd, CD1400_SRER, 0);
   1835   1.3       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDCHANCTL | CD1400_CCR_XMTDIS);
   1836   1.3       pk 
   1837   1.3       pk 		/* flush fifo */
   1838   1.3       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDRESET | CD1400_CCR_FTF);
   1839   1.3       pk 	}
   1840   1.3       pk 	splx(s);
   1841   1.3       pk 
   1842   1.3       pk 	/* return number of chars sent */
   1843   1.3       pk 	return(len - mp->mp_cnt);
   1844   1.3       pk }
   1845   1.3       pk 
   1846   1.3       pk int
   1847   1.3       pk mbpp_recv(mp, ptr, len)
   1848   1.3       pk 	struct mbpp_port *mp;
   1849   1.3       pk 	caddr_t ptr;
   1850   1.3       pk 	int len;
   1851   1.3       pk {
   1852   1.3       pk 	int s;
   1853   1.3       pk 	struct cd1400 *cd = mp->mp_cd1400;
   1854   1.3       pk 
   1855   1.3       pk 	/* set up io information */
   1856   1.3       pk 	mp->mp_ptr = ptr;
   1857   1.3       pk 	mp->mp_cnt = len;
   1858   1.3       pk 
   1859   1.3       pk 	/* start receiving */
   1860   1.3       pk 	s = spltty();
   1861   1.3       pk 	if( cd ) {
   1862   1.3       pk 	int rcor, rbpr;
   1863   1.3       pk 
   1864   1.3       pk 		cd1400_write_reg(cd, CD1400_CAR, 0);
   1865   1.3       pk 
   1866   1.3       pk 		/* input strobe at 100kbaud (10microseconds) */
   1867   1.3       pk 		cd1400_compute_baud(100000, cd->cd_clock, &rcor, &rbpr);
   1868   1.3       pk 		cd1400_write_reg(cd, CD1400_RCOR, rcor);
   1869   1.3       pk 		cd1400_write_reg(cd, CD1400_RBPR, rbpr);
   1870   1.3       pk 
   1871   1.3       pk 		/* rx threshold */
   1872   1.3       pk 		cd1400_write_reg(cd, CD1400_COR3, MBPP_RX_FIFO_THRESHOLD);
   1873   1.3       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDCORCHG | CD1400_CCR_COR3);
   1874   1.3       pk 
   1875   1.3       pk 		/* enable channel */
   1876   1.3       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDCHANCTL | CD1400_CCR_RCVEN);
   1877   1.3       pk 		cd1400_write_reg(cd, CD1400_SRER, CD1400_SRER_RXDATA);
   1878   1.3       pk 	}
   1879   1.3       pk 
   1880   1.3       pk 	/* ZZzzz... */
   1881   1.3       pk 	tsleep(mp, PCATCH | PZERO, "mbpp_recv", 0);
   1882   1.3       pk 
   1883   1.3       pk 	/* stop receiving */
   1884   1.3       pk 	if( cd ) {
   1885   1.3       pk 		cd1400_write_reg(cd, CD1400_CAR, 0);
   1886   1.3       pk 
   1887   1.3       pk 		/* disable receiving */
   1888   1.3       pk 		cd1400_write_reg(cd, CD1400_SRER, 0);
   1889   1.3       pk 		cd1400_write_ccr(cd, CD1400_CCR_CMDCHANCTL | CD1400_CCR_RCVDIS);
   1890   1.3       pk 	}
   1891   1.3       pk 	splx(s);
   1892   1.3       pk 
   1893   1.3       pk 	/* return number of chars received */
   1894   1.3       pk 	return(len - mp->mp_cnt);
   1895   1.3       pk }
   1896   1.3       pk 
   1897   1.3       pk int
   1898   1.3       pk mbpp_hztoms(h)
   1899   1.3       pk 	int h;
   1900   1.3       pk {
   1901   1.3       pk 	int m = h;
   1902   1.3       pk 
   1903   1.3       pk 	if( m > 0 )
   1904   1.3       pk 		m = m * 1000 / hz;
   1905   1.3       pk 	return(m);
   1906   1.3       pk }
   1907   1.3       pk 
   1908   1.3       pk int
   1909   1.3       pk mbpp_mstohz(m)
   1910   1.3       pk 	int m;
   1911   1.3       pk {
   1912   1.3       pk 	int h = m;
   1913   1.3       pk 
   1914   1.3       pk 	if( h > 0 ) {
   1915   1.3       pk 		h = h * hz / 1000;
   1916   1.3       pk 		if( h == 0 )
   1917   1.3       pk 			h = 1000 / hz;
   1918   1.3       pk 	}
   1919   1.3       pk 	return(h);
   1920   1.1       pk }
   1921   1.1       pk 
   1922   1.1       pk #endif /* NMAGMA */
   1923