/* $OpenBSD: timekeeper.c,v 1.2 2004/05/07 14:11:05 aoyama Exp $ */ /* $NetBSD: timekeeper.c,v 1.1 2000/01/05 08:48:56 nisimura Exp $ */ /*- * Copyright (c) 2000 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Tohru Nishimura. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the NetBSD * Foundation, Inc. and its contributors. * 4. Neither the name of The NetBSD Foundation nor the names of its * contributors may be used to endorse or promote products derived * from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #include #include #include #include #include /* machtype value */ #include #include #include #include #define MK_YEAR0 1970 /* year offset of MK */ #define DS_YEAR0 1990 /* year offset of DS */ struct timekeeper_softc { struct device sc_dev; void *sc_clock, *sc_nvram; int sc_nvramsize; }; /* * BCD to decimal and decimal to BCD. */ #define FROMBCD(x) (((x) >> 4) * 10 + ((x) & 0xf)) #define TOBCD(x) (((x) / 10 * 16) + ((x) % 10)) int clock_match(struct device *, void *, void *); void clock_attach(struct device *, struct device *, void *); struct cfattach clock_ca = { sizeof (struct timekeeper_softc), clock_match, clock_attach }; struct cfdriver clock_cd = { NULL, "clock", DV_DULL }; void mkclock_get(struct device *, time_t, struct clock_ymdhms *); void mkclock_set(struct device *, struct clock_ymdhms *); void dsclock_get(struct device *, time_t, struct clock_ymdhms *); void dsclock_set(struct device *, struct clock_ymdhms *); const struct clockfns mkclock_clockfns = { NULL /* never used */, mkclock_get, mkclock_set, }; const struct clockfns dsclock_clockfns = { NULL /* never used */, dsclock_get, dsclock_set, }; int clock_match(parent, match, aux) struct device *parent; void *match, *aux; { struct mainbus_attach_args *ma = aux; if (strcmp(ma->ma_name, clock_cd.cd_name)) return 0; return 1; } extern int machtype; /* in machdep.c */ void clock_attach(parent, self, aux) struct device *parent, *self; void *aux; { struct timekeeper_softc *sc = (void *)self; struct mainbus_attach_args *ma = aux; const struct clockfns *clockwork; switch (machtype) { default: case LUNA_88K: /* Mostek MK48T02 */ sc->sc_clock = (void *)(ma->ma_addr + 2040); sc->sc_nvram = (void *)ma->ma_addr; sc->sc_nvramsize = 2040; clockwork = &mkclock_clockfns; printf(": MK48T02\n"); break; case LUNA_88K2: /* Dallas DS1397 */ sc->sc_clock = (void *)ma->ma_addr; sc->sc_nvram = (void *)(ma->ma_addr + 50); sc->sc_nvramsize = 50; clockwork = &dsclock_clockfns; printf(": DS1397\n"); break; } clockattach(&sc->sc_dev, clockwork); } /* * Get the time of day, based on the clock's value and/or the base value. */ void mkclock_get(dev, base, dt) struct device *dev; time_t base; struct clock_ymdhms *dt; { struct timekeeper_softc *sc = (void *)dev; volatile u_int8_t *chiptime = (void *)sc->sc_clock; int s; s = splclock(); chiptime[MK_CSR] |= MK_CSR_READ; /* enable read (stop time) */ dt->dt_sec = FROMBCD(chiptime[MK_SEC]); dt->dt_min = FROMBCD(chiptime[MK_MIN]); dt->dt_hour = FROMBCD(chiptime[MK_HOUR]); dt->dt_wday = FROMBCD(chiptime[MK_DOW]); dt->dt_day = FROMBCD(chiptime[MK_DOM]); dt->dt_mon = FROMBCD(chiptime[MK_MONTH]); dt->dt_year = FROMBCD(chiptime[MK_YEAR]) + MK_YEAR0; chiptime[MK_CSR] &= ~MK_CSR_READ; /* time wears on */ splx(s); #ifdef TIMEKEEPER_DEBUG printf("get %d/%d/%d %d:%d:%d\n", dt->dt_year, dt->dt_mon, dt->dt_day, dt->dt_hour, dt->dt_min, dt->dt_sec); #endif } /* * Reset the TODR based on the time value. */ void mkclock_set(dev, dt) struct device *dev; struct clock_ymdhms *dt; { struct timekeeper_softc *sc = (void *)dev; volatile u_int8_t *chiptime = (void *)sc->sc_clock; volatile u_int8_t *stamp = (u_int8_t *)sc->sc_nvram + 0x10; int s; s = splclock(); chiptime[MK_CSR] |= MK_CSR_WRITE; /* enable write */ chiptime[MK_SEC] = TOBCD(dt->dt_sec); chiptime[MK_MIN] = TOBCD(dt->dt_min); chiptime[MK_HOUR] = TOBCD(dt->dt_hour); chiptime[MK_DOW] = TOBCD(dt->dt_wday); chiptime[MK_DOM] = TOBCD(dt->dt_day); chiptime[MK_MONTH] = TOBCD(dt->dt_mon); chiptime[MK_YEAR] = TOBCD(dt->dt_year - MK_YEAR0); chiptime[MK_CSR] &= ~MK_CSR_WRITE; /* load them up */ splx(s); #ifdef TIMEKEEPER_DEBUG printf("set %d/%d/%d %d:%d:%d\n", dt->dt_year, dt->dt_mon, dt->dt_day, dt->dt_hour, dt->dt_min, dt->dt_sec); #endif stamp[0] = 'R'; stamp[1] = 'T'; stamp[2] = 'C'; stamp[3] = '\0'; } #define _DS_GET(off, data) \ do { *chiptime = (off); (u_int8_t)(data) = (*chipdata); } while (0) #define _DS_SET(off, data) \ do { *chiptime = (off); *chipdata = (u_int8_t)(data); } while (0) #define _DS_GET_BCD(off, data) \ do { \ u_int8_t c; \ *chiptime = (off); \ c = *chipdata; (u_int8_t)(data) = FROMBCD(c); \ } while (0) #define _DS_SET_BCD(off, data) \ do { \ *chiptime = (off); \ *chipdata = TOBCD((u_int8_t)(data)); \ } while (0) /* * Get the time of day, based on the clock's value and/or the base value. */ void dsclock_get(dev, base, dt) struct device *dev; time_t base; struct clock_ymdhms *dt; { struct timekeeper_softc *sc = (void *)dev; volatile u_int8_t *chiptime = (void *)sc->sc_clock; volatile u_int8_t *chipdata = (void *)(sc->sc_clock + 1); int s; u_int8_t c; s = splclock(); /* specify 24hr and BCD mode */ _DS_GET(DS_REGB, c); c |= DS_REGB_24HR; c &= ~DS_REGB_BINARY; _DS_SET(DS_REGB, c); /* update in progress; spin loop */ *chiptime = DS_REGA; while (*chipdata & DS_REGA_UIP) ; _DS_GET_BCD(DS_SEC, dt->dt_sec); _DS_GET_BCD(DS_MIN, dt->dt_min); _DS_GET_BCD(DS_HOUR, dt->dt_hour); _DS_GET_BCD(DS_DOW, dt->dt_wday); _DS_GET_BCD(DS_DOM, dt->dt_day); _DS_GET_BCD(DS_MONTH, dt->dt_mon); _DS_GET_BCD(DS_YEAR, dt->dt_year); dt->dt_year += DS_YEAR0; splx(s); #ifdef TIMEKEEPER_DEBUG printf("get %d/%d/%d %d:%d:%d\n", dt->dt_year, dt->dt_mon, dt->dt_day, dt->dt_hour, dt->dt_min, dt->dt_sec); #endif } /* * Reset the TODR based on the time value. */ void dsclock_set(dev, dt) struct device *dev; struct clock_ymdhms *dt; { struct timekeeper_softc *sc = (void *)dev; volatile u_int8_t *chiptime = (void *)sc->sc_clock; volatile u_int8_t *chipdata = (void *)(sc->sc_clock + 1); int s; u_int8_t c; s = splclock(); /* enable write */ _DS_GET(DS_REGB, c); c |= DS_REGB_SET; _DS_SET(DS_REGB, c); _DS_SET_BCD(DS_SEC, dt->dt_sec); _DS_SET_BCD(DS_MIN, dt->dt_min); _DS_SET_BCD(DS_HOUR, dt->dt_hour); _DS_SET_BCD(DS_DOW, dt->dt_wday); _DS_SET_BCD(DS_DOM, dt->dt_day); _DS_SET_BCD(DS_MONTH, dt->dt_mon); _DS_SET_BCD(DS_YEAR, dt->dt_year - DS_YEAR0); _DS_GET(DS_REGB, c); c &= ~DS_REGB_SET; _DS_SET(DS_REGB, c); splx(s); #ifdef TIMEKEEPER_DEBUG printf("set %d/%d/%d %d:%d:%d\n", dt->dt_year, dt->dt_mon, dt->dt_day, dt->dt_hour, dt->dt_min, dt->dt_sec); #endif }