Home | History | Annotate | Line # | Download | only in dev
ki2c.c revision 1.3
      1  1.3  macallan /*	$NetBSD: ki2c.c,v 1.3 2005/08/10 14:26:46 macallan Exp $	*/
      2  1.1     grant /*	Id: ki2c.c,v 1.7 2002/10/05 09:56:05 tsubai Exp	*/
      3  1.1     grant 
      4  1.1     grant /*-
      5  1.1     grant  * Copyright (c) 2001 Tsubai Masanari.  All rights reserved.
      6  1.1     grant  *
      7  1.1     grant  * Redistribution and use in source and binary forms, with or without
      8  1.1     grant  * modification, are permitted provided that the following conditions
      9  1.1     grant  * are met:
     10  1.1     grant  * 1. Redistributions of source code must retain the above copyright
     11  1.1     grant  *    notice, this list of conditions and the following disclaimer.
     12  1.1     grant  * 2. Redistributions in binary form must reproduce the above copyright
     13  1.1     grant  *    notice, this list of conditions and the following disclaimer in the
     14  1.1     grant  *    documentation and/or other materials provided with the distribution.
     15  1.1     grant  * 3. The name of the author may not be used to endorse or promote products
     16  1.1     grant  *    derived from this software without specific prior written permission.
     17  1.1     grant  *
     18  1.1     grant  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     19  1.1     grant  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     20  1.1     grant  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     21  1.1     grant  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     22  1.1     grant  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     23  1.1     grant  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     24  1.1     grant  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     25  1.1     grant  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     26  1.1     grant  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
     27  1.1     grant  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     28  1.1     grant  */
     29  1.1     grant 
     30  1.1     grant #include <sys/param.h>
     31  1.1     grant #include <sys/device.h>
     32  1.1     grant #include <sys/systm.h>
     33  1.1     grant 
     34  1.1     grant #include <dev/ofw/openfirm.h>
     35  1.1     grant #include <uvm/uvm_extern.h>
     36  1.1     grant #include <machine/autoconf.h>
     37  1.1     grant 
     38  1.3  macallan #include <macppc/dev/ki2cvar.h>
     39  1.1     grant 
     40  1.1     grant int ki2c_match(struct device *, struct cfdata *, void *);
     41  1.1     grant void ki2c_attach(struct device *, struct device *, void *);
     42  1.1     grant inline u_int ki2c_readreg(struct ki2c_softc *, int);
     43  1.1     grant inline void ki2c_writereg(struct ki2c_softc *, int, u_int);
     44  1.1     grant u_int ki2c_getmode(struct ki2c_softc *);
     45  1.1     grant void ki2c_setmode(struct ki2c_softc *, u_int);
     46  1.1     grant u_int ki2c_getspeed(struct ki2c_softc *);
     47  1.1     grant void ki2c_setspeed(struct ki2c_softc *, u_int);
     48  1.1     grant int ki2c_intr(struct ki2c_softc *);
     49  1.1     grant int ki2c_poll(struct ki2c_softc *, int);
     50  1.1     grant int ki2c_start(struct ki2c_softc *, int, int, void *, int);
     51  1.1     grant int ki2c_read(struct ki2c_softc *, int, int, void *, int);
     52  1.3  macallan int ki2c_write(struct ki2c_softc *, int, int, void *, int);
     53  1.3  macallan int ki2c_print __P((void *, const char *));
     54  1.3  macallan 
     55  1.3  macallan /* I2C glue */
     56  1.3  macallan static int ki2c_i2c_acquire_bus(void *, int);
     57  1.3  macallan static void ki2c_i2c_release_bus(void *, int);
     58  1.3  macallan static int ki2c_i2c_exec(void *, i2c_op_t, i2c_addr_t, const void *, size_t,
     59  1.3  macallan 		    void *, size_t, int);
     60  1.3  macallan 
     61  1.1     grant 
     62  1.1     grant struct cfattach ki2c_ca = {
     63  1.1     grant 	"ki2c", {}, sizeof(struct ki2c_softc), ki2c_match, ki2c_attach
     64  1.1     grant };
     65  1.1     grant 
     66  1.1     grant int
     67  1.1     grant ki2c_match(parent, match, aux)
     68  1.1     grant 	struct device *parent;
     69  1.1     grant 	struct cfdata *match;
     70  1.1     grant 	void *aux;
     71  1.1     grant {
     72  1.1     grant 	struct confargs *ca = aux;
     73  1.1     grant 
     74  1.1     grant 	if (strcmp(ca->ca_name, "i2c") == 0)
     75  1.1     grant 		return 1;
     76  1.1     grant 
     77  1.1     grant 	return 0;
     78  1.1     grant }
     79  1.1     grant 
     80  1.1     grant void
     81  1.1     grant ki2c_attach(parent, self, aux)
     82  1.1     grant 	struct device *parent;
     83  1.1     grant 	struct device *self;
     84  1.1     grant 	void *aux;
     85  1.1     grant {
     86  1.1     grant 	struct ki2c_softc *sc = (struct ki2c_softc *)self;
     87  1.1     grant 	struct confargs *ca = aux;
     88  1.1     grant 	int node = ca->ca_node;
     89  1.3  macallan 	int rate, child, namelen;
     90  1.3  macallan 	struct ki2c_confargs ka;
     91  1.3  macallan 	struct i2cbus_attach_args iba;
     92  1.3  macallan 
     93  1.3  macallan 	char name[32];
     94  1.3  macallan 	u_int reg[20];
     95  1.3  macallan 
     96  1.1     grant 	ca->ca_reg[0] += ca->ca_baseaddr;
     97  1.1     grant 
     98  1.1     grant 	if (OF_getprop(node, "AAPL,i2c-rate", &rate, 4) != 4) {
     99  1.1     grant 		printf(": cannot get i2c-rate\n");
    100  1.1     grant 		return;
    101  1.1     grant 	}
    102  1.1     grant 	if (OF_getprop(node, "AAPL,address", &sc->sc_reg, 4) != 4) {
    103  1.1     grant 		printf(": unable to find i2c address\n");
    104  1.1     grant 		return;
    105  1.1     grant 	}
    106  1.1     grant 	if (OF_getprop(node, "AAPL,address-step", &sc->sc_regstep, 4) != 4) {
    107  1.1     grant 		printf(": unable to find i2c address step\n");
    108  1.1     grant 		return;
    109  1.1     grant 	}
    110  1.1     grant 
    111  1.1     grant 	printf("\n");
    112  1.1     grant 
    113  1.1     grant 	ki2c_writereg(sc, STATUS, 0);
    114  1.1     grant 	ki2c_writereg(sc, ISR, 0);
    115  1.1     grant 	ki2c_writereg(sc, IER, 0);
    116  1.1     grant 
    117  1.1     grant 	ki2c_setmode(sc, I2C_STDSUBMODE);
    118  1.1     grant 	ki2c_setspeed(sc, I2C_100kHz);		/* XXX rate */
    119  1.3  macallan 
    120  1.3  macallan 	lockinit(&sc->sc_buslock, PRIBIO|PCATCH, sc->sc_dev.dv_xname, 0, 0);
    121  1.3  macallan 	ki2c_writereg(sc, IER,I2C_INT_DATA|I2C_INT_ADDR|I2C_INT_STOP);
    122  1.3  macallan 
    123  1.3  macallan 	/* fill in the i2c tag */
    124  1.3  macallan 	sc->sc_i2c.ic_cookie = sc;
    125  1.3  macallan 	sc->sc_i2c.ic_acquire_bus = ki2c_i2c_acquire_bus;
    126  1.3  macallan 	sc->sc_i2c.ic_release_bus = ki2c_i2c_release_bus;
    127  1.3  macallan 	sc->sc_i2c.ic_send_start = NULL;
    128  1.3  macallan 	sc->sc_i2c.ic_send_stop = NULL;
    129  1.3  macallan 	sc->sc_i2c.ic_initiate_xfer = NULL;
    130  1.3  macallan 	sc->sc_i2c.ic_read_byte = NULL;
    131  1.3  macallan 	sc->sc_i2c.ic_write_byte = NULL;
    132  1.3  macallan 	sc->sc_i2c.ic_exec = ki2c_i2c_exec;
    133  1.3  macallan 
    134  1.3  macallan 	iba.iba_name = "iic";
    135  1.3  macallan 	iba.iba_tag = &sc->sc_i2c;
    136  1.3  macallan 	(void) config_found(&sc->sc_dev, &iba, iicbus_print);
    137  1.3  macallan 
    138  1.3  macallan 
    139  1.3  macallan 	for (child = OF_child(node); child; child = OF_peer(child)) {
    140  1.3  macallan 		namelen = OF_getprop(child, "name", name, sizeof(name));
    141  1.3  macallan 		if (namelen < 0)
    142  1.3  macallan 			continue;
    143  1.3  macallan 		if (namelen >= sizeof(name))
    144  1.3  macallan 			continue;
    145  1.3  macallan 
    146  1.3  macallan 		name[namelen] = 0;
    147  1.3  macallan 		ka.ka_name = name;
    148  1.3  macallan 		ka.ka_node = child;
    149  1.3  macallan 		if (OF_getprop(child, "reg", reg, sizeof(reg))>0) {
    150  1.3  macallan 			ka.ka_addr = reg[0];
    151  1.3  macallan 			ka.ka_tag = &sc->sc_i2c;
    152  1.3  macallan 			config_found(self, &ka, ki2c_print);
    153  1.3  macallan 		}
    154  1.3  macallan 	}
    155  1.3  macallan }
    156  1.3  macallan 
    157  1.3  macallan int
    158  1.3  macallan ki2c_print(aux, ki2c)
    159  1.3  macallan 	void *aux;
    160  1.3  macallan 	const char *ki2c;
    161  1.3  macallan {
    162  1.3  macallan 	struct ki2c_confargs *ka = aux;
    163  1.3  macallan 
    164  1.3  macallan 	if (ki2c) {
    165  1.3  macallan 		aprint_normal("%s at %s", ka->ka_name, ki2c);
    166  1.3  macallan 		aprint_normal(" address 0x%x", ka->ka_addr);
    167  1.3  macallan 	}
    168  1.3  macallan 	return UNCONF;
    169  1.1     grant }
    170  1.1     grant 
    171  1.1     grant u_int
    172  1.1     grant ki2c_readreg(sc, reg)
    173  1.1     grant 	struct ki2c_softc *sc;
    174  1.1     grant 	int reg;
    175  1.1     grant {
    176  1.1     grant 	u_char *addr = sc->sc_reg + sc->sc_regstep * reg;
    177  1.1     grant 
    178  1.1     grant 	return *addr;
    179  1.1     grant }
    180  1.1     grant 
    181  1.1     grant void
    182  1.1     grant ki2c_writereg(sc, reg, val)
    183  1.1     grant 	struct ki2c_softc *sc;
    184  1.1     grant 	int reg;
    185  1.1     grant 	u_int val;
    186  1.1     grant {
    187  1.1     grant 	u_char *addr = sc->sc_reg + sc->sc_regstep * reg;
    188  1.1     grant 
    189  1.1     grant 	*addr = val;
    190  1.1     grant 	asm volatile ("eieio");
    191  1.1     grant 	delay(10);
    192  1.1     grant }
    193  1.1     grant 
    194  1.1     grant u_int
    195  1.1     grant ki2c_getmode(sc)
    196  1.1     grant 	struct ki2c_softc *sc;
    197  1.1     grant {
    198  1.1     grant 	return ki2c_readreg(sc, MODE) & I2C_MODE;
    199  1.1     grant }
    200  1.1     grant 
    201  1.1     grant void
    202  1.1     grant ki2c_setmode(sc, mode)
    203  1.1     grant 	struct ki2c_softc *sc;
    204  1.1     grant 	u_int mode;
    205  1.1     grant {
    206  1.1     grant 	u_int x;
    207  1.1     grant 
    208  1.1     grant 	KASSERT((mode & ~I2C_MODE) == 0);
    209  1.1     grant 	x = ki2c_readreg(sc, MODE);
    210  1.1     grant 	x &= ~I2C_MODE;
    211  1.1     grant 	x |= mode;
    212  1.1     grant 	ki2c_writereg(sc, MODE, x);
    213  1.1     grant }
    214  1.1     grant 
    215  1.1     grant u_int
    216  1.1     grant ki2c_getspeed(sc)
    217  1.1     grant 	struct ki2c_softc *sc;
    218  1.1     grant {
    219  1.1     grant 	return ki2c_readreg(sc, MODE) & I2C_SPEED;
    220  1.1     grant }
    221  1.1     grant 
    222  1.1     grant void
    223  1.1     grant ki2c_setspeed(sc, speed)
    224  1.1     grant 	struct ki2c_softc *sc;
    225  1.1     grant 	u_int speed;
    226  1.1     grant {
    227  1.1     grant 	u_int x;
    228  1.1     grant 
    229  1.1     grant 	KASSERT((speed & ~I2C_SPEED) == 0);
    230  1.1     grant 	x = ki2c_readreg(sc, MODE);
    231  1.1     grant 	x &= ~I2C_SPEED;
    232  1.1     grant 	x |= speed;
    233  1.1     grant 	ki2c_writereg(sc, MODE, x);
    234  1.1     grant }
    235  1.1     grant 
    236  1.1     grant int
    237  1.1     grant ki2c_intr(sc)
    238  1.1     grant 	struct ki2c_softc *sc;
    239  1.1     grant {
    240  1.1     grant 	u_int isr, x;
    241  1.1     grant 
    242  1.1     grant 	isr = ki2c_readreg(sc, ISR);
    243  1.1     grant 	if (isr & I2C_INT_ADDR) {
    244  1.1     grant #if 0
    245  1.1     grant 		if ((ki2c_readreg(sc, STATUS) & I2C_ST_LASTAAK) == 0) {
    246  1.1     grant 			/* No slave responded. */
    247  1.1     grant 			sc->sc_flags |= I2C_ERROR;
    248  1.1     grant 			goto out;
    249  1.1     grant 		}
    250  1.1     grant #endif
    251  1.1     grant 
    252  1.1     grant 		if (sc->sc_flags & I2C_READING) {
    253  1.1     grant 			if (sc->sc_resid > 1) {
    254  1.1     grant 				x = ki2c_readreg(sc, CONTROL);
    255  1.1     grant 				x |= I2C_CT_AAK;
    256  1.1     grant 				ki2c_writereg(sc, CONTROL, x);
    257  1.1     grant 			}
    258  1.1     grant 		} else {
    259  1.1     grant 			ki2c_writereg(sc, DATA, *sc->sc_data++);
    260  1.1     grant 			sc->sc_resid--;
    261  1.1     grant 		}
    262  1.1     grant 	}
    263  1.1     grant 
    264  1.1     grant 	if (isr & I2C_INT_DATA) {
    265  1.1     grant 		if (sc->sc_flags & I2C_READING) {
    266  1.1     grant 			*sc->sc_data++ = ki2c_readreg(sc, DATA);
    267  1.1     grant 			sc->sc_resid--;
    268  1.1     grant 
    269  1.1     grant 			if (sc->sc_resid == 0) {	/* Completed */
    270  1.1     grant 				ki2c_writereg(sc, CONTROL, 0);
    271  1.1     grant 				goto out;
    272  1.1     grant 			}
    273  1.1     grant 		} else {
    274  1.1     grant #if 0
    275  1.1     grant 			if ((ki2c_readreg(sc, STATUS) & I2C_ST_LASTAAK) == 0) {
    276  1.1     grant 				/* No slave responded. */
    277  1.1     grant 				sc->sc_flags |= I2C_ERROR;
    278  1.1     grant 				goto out;
    279  1.1     grant 			}
    280  1.1     grant #endif
    281  1.1     grant 
    282  1.1     grant 			if (sc->sc_resid == 0) {
    283  1.1     grant 				x = ki2c_readreg(sc, CONTROL) | I2C_CT_STOP;
    284  1.1     grant 				ki2c_writereg(sc, CONTROL, x);
    285  1.1     grant 			} else {
    286  1.1     grant 				ki2c_writereg(sc, DATA, *sc->sc_data++);
    287  1.1     grant 				sc->sc_resid--;
    288  1.1     grant 			}
    289  1.1     grant 		}
    290  1.1     grant 	}
    291  1.1     grant 
    292  1.1     grant out:
    293  1.1     grant 	if (isr & I2C_INT_STOP) {
    294  1.1     grant 		ki2c_writereg(sc, CONTROL, 0);
    295  1.1     grant 		sc->sc_flags &= ~I2C_BUSY;
    296  1.1     grant 	}
    297  1.1     grant 
    298  1.1     grant 	ki2c_writereg(sc, ISR, isr);
    299  1.1     grant 
    300  1.1     grant 	return 1;
    301  1.1     grant }
    302  1.1     grant 
    303  1.1     grant int
    304  1.1     grant ki2c_poll(sc, timo)
    305  1.1     grant 	struct ki2c_softc *sc;
    306  1.1     grant 	int timo;
    307  1.1     grant {
    308  1.1     grant 	while (sc->sc_flags & I2C_BUSY) {
    309  1.1     grant 		if (ki2c_readreg(sc, ISR))
    310  1.1     grant 			ki2c_intr(sc);
    311  1.1     grant 		timo -= 100;
    312  1.1     grant 		if (timo < 0) {
    313  1.1     grant 			printf("i2c_poll: timeout\n");
    314  1.1     grant 			return -1;
    315  1.1     grant 		}
    316  1.1     grant 		delay(100);
    317  1.1     grant 	}
    318  1.1     grant 	return 0;
    319  1.1     grant }
    320  1.1     grant 
    321  1.1     grant int
    322  1.1     grant ki2c_start(sc, addr, subaddr, data, len)
    323  1.1     grant 	struct ki2c_softc *sc;
    324  1.1     grant 	int addr, subaddr, len;
    325  1.1     grant 	void *data;
    326  1.1     grant {
    327  1.1     grant 	int rw = (sc->sc_flags & I2C_READING) ? 1 : 0;
    328  1.1     grant 	int timo, x;
    329  1.1     grant 
    330  1.1     grant 	KASSERT((addr & 1) == 0);
    331  1.1     grant 
    332  1.1     grant 	sc->sc_data = data;
    333  1.1     grant 	sc->sc_resid = len;
    334  1.1     grant 	sc->sc_flags |= I2C_BUSY;
    335  1.1     grant 
    336  1.1     grant 	timo = 1000 + len * 200;
    337  1.1     grant 
    338  1.1     grant 	/* XXX TAS3001 sometimes takes 50ms to finish writing registers. */
    339  1.1     grant 	/* if (addr == 0x68) */
    340  1.1     grant 		timo += 100000;
    341  1.1     grant 
    342  1.1     grant 	ki2c_writereg(sc, ADDR, addr | rw);
    343  1.1     grant 	ki2c_writereg(sc, SUBADDR, subaddr);
    344  1.1     grant 
    345  1.1     grant 	x = ki2c_readreg(sc, CONTROL) | I2C_CT_ADDR;
    346  1.1     grant 	ki2c_writereg(sc, CONTROL, x);
    347  1.1     grant 
    348  1.1     grant 	if (ki2c_poll(sc, timo))
    349  1.1     grant 		return -1;
    350  1.1     grant 	if (sc->sc_flags & I2C_ERROR) {
    351  1.1     grant 		printf("I2C_ERROR\n");
    352  1.1     grant 		return -1;
    353  1.1     grant 	}
    354  1.1     grant 	return 0;
    355  1.1     grant }
    356  1.1     grant 
    357  1.1     grant int
    358  1.1     grant ki2c_read(sc, addr, subaddr, data, len)
    359  1.1     grant 	struct ki2c_softc *sc;
    360  1.1     grant 	int addr, subaddr, len;
    361  1.1     grant 	void *data;
    362  1.1     grant {
    363  1.1     grant 	sc->sc_flags = I2C_READING;
    364  1.3  macallan 	#ifdef KI2C_DEBUG
    365  1.3  macallan 		printf("ki2c_read: %02x %d\n", addr, len);
    366  1.3  macallan 	#endif
    367  1.1     grant 	return ki2c_start(sc, addr, subaddr, data, len);
    368  1.1     grant }
    369  1.1     grant 
    370  1.1     grant int
    371  1.1     grant ki2c_write(sc, addr, subaddr, data, len)
    372  1.1     grant 	struct ki2c_softc *sc;
    373  1.1     grant 	int addr, subaddr, len;
    374  1.3  macallan 	void *data;
    375  1.1     grant {
    376  1.1     grant 	sc->sc_flags = 0;
    377  1.3  macallan 	#ifdef KI2C_DEBUG
    378  1.3  macallan 		printf("ki2c_write: %02x %d\n",addr,len);
    379  1.3  macallan 	#endif
    380  1.3  macallan 	return ki2c_start(sc, addr, subaddr, data, len);
    381  1.3  macallan }
    382  1.3  macallan 
    383  1.3  macallan static int
    384  1.3  macallan ki2c_i2c_acquire_bus(void *cookie, int flags)
    385  1.3  macallan {
    386  1.3  macallan 	struct ki2c_softc *sc = cookie;
    387  1.3  macallan 
    388  1.3  macallan 	return (lockmgr(&sc->sc_buslock, LK_EXCLUSIVE, NULL));
    389  1.3  macallan }
    390  1.3  macallan 
    391  1.3  macallan static void
    392  1.3  macallan ki2c_i2c_release_bus(void *cookie, int flags)
    393  1.3  macallan {
    394  1.3  macallan 	struct ki2c_softc *sc = cookie;
    395  1.3  macallan 
    396  1.3  macallan 	(void) lockmgr(&sc->sc_buslock, LK_RELEASE, NULL);
    397  1.3  macallan }
    398  1.3  macallan 
    399  1.3  macallan int
    400  1.3  macallan ki2c_i2c_exec(void *cookie, i2c_op_t op, i2c_addr_t addr, const void *vcmd,
    401  1.3  macallan     size_t cmdlen, void *vbuf, size_t buflen, int flags)
    402  1.3  macallan {
    403  1.3  macallan 	struct ki2c_softc *sc = cookie;
    404  1.3  macallan 
    405  1.3  macallan 	/* we handle the subaddress stuff ourselves */
    406  1.3  macallan 	ki2c_setmode(sc, I2C_STDMODE);
    407  1.3  macallan 
    408  1.3  macallan 	if (ki2c_write(sc, addr, 0, __UNCONST(vcmd), cmdlen) !=0 )
    409  1.3  macallan 		return -1;
    410  1.3  macallan 	if (I2C_OP_READ_P(op))
    411  1.3  macallan 	{
    412  1.3  macallan 		if (ki2c_read(sc, addr, 0, vbuf, buflen) !=0 )
    413  1.3  macallan 			return -1;
    414  1.3  macallan 	}
    415  1.3  macallan 	return 0;
    416  1.1     grant }
    417