/* $OpenBSD: a2kbbc.c,v 1.3 2002/03/14 01:26:28 millert Exp $ */ /* $NetBSD: a2kbbc.c,v 1.3 1997/07/23 10:19:44 is Exp $ */ /* * Copyright (c) 1988 University of Utah. * Copyright (c) 1982, 1990 The Regents of the University of California. * All rights reserved. * * This code is derived from software contributed to Berkeley by * the Systems Programming Group of the University of Utah Computer * Science Department. * * 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 University of * California, Berkeley and its contributors. * 4. Neither the name of the University 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 REGENTS 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 REGENTS 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. * * from: Utah $Hdr: clock.c 1.18 91/01/21$ * * @(#)clock.c 7.6 (Berkeley) 5/7/91 */ #include #include #include #include #include #include #include #include #include #include #include #include int a2kbbc_match(struct device *, void *, void *); void a2kbbc_attach(struct device *, struct device *, void *); struct cfattach a2kbbc_ca = { sizeof(struct device), a2kbbc_match, a2kbbc_attach }; struct cfdriver a2kbbc_cd = { NULL, "a2kbbc", DV_DULL, NULL, 0 }; void *a2kclockaddr; time_t a2gettod(void); int a2settod(time_t); int a2kbbc_match(pdp, match, auxp) struct device *pdp; void *match; void *auxp; { struct cfdata *cfp = match; if (!matchname("a2kbbc", auxp)) return (0); if (cfp->cf_unit != 0) return (0); /* only one of us please */ if (is_a1200() || is_a3000() || is_a4000() #ifdef DRACO || is_draco() #endif ) return (0); a2kclockaddr = (void *)ztwomap(0xdc0000); if (a2gettod() == 0) return (0); return (1); } /* * Attach us to the rtc function pointers. */ void a2kbbc_attach(pdp, dp, auxp) struct device *pdp, *dp; void *auxp; { printf("\n"); a2kclockaddr = (void *)ztwomap(0xdc0000); gettod = a2gettod; settod = a2settod; } time_t a2gettod() { struct rtclock2000 *rt; struct clock_ymdhms dt; time_t secs; int i; rt = a2kclockaddr; /* * hold clock */ rt->control1 |= A2CONTROL1_HOLD; i = 0x1000; while (rt->control1 & A2CONTROL1_BUSY && i--) ; if (rt->control1 & A2CONTROL1_BUSY) return (0); /* Give up and say it's not there */ /* Copy the info. Careful about the order! */ dt.dt_sec = rt->second1 * 10 + rt->second2; dt.dt_min = rt->minute1 * 10 + rt->minute2; dt.dt_hour = (rt->hour1 & 3) * 10 + rt->hour2; dt.dt_day = rt->day1 * 10 + rt->day2; dt.dt_mon = rt->month1 * 10 + rt->month2; dt.dt_year = rt->year1 * 10 + rt->year2; dt.dt_wday = rt->weekday; /* * The oki clock chip has a register to put the clock into * 12/24h mode. * * clockmode | A2HOUR1_PM * 24h 12h | am = 0, pm = 1 * --------------------------------- * 0 12 | 0 * 1 1 | 0 * .. .. | 0 * 11 11 | 0 * 12 12 | 1 * 13 1 | 1 * .. .. | 1 * 23 11 | 1 * */ if ((rt->control3 & A2CONTROL3_24HMODE) == 0) { if ((rt->hour1 & A2HOUR1_PM) == 0 && dt.dt_hour == 12) dt.dt_hour = 0; else if ((rt->hour1 & A2HOUR1_PM) && dt.dt_hour != 12) dt.dt_hour += 12; } /* * release the clock */ rt->control1 &= ~A2CONTROL1_HOLD; dt.dt_year += CLOCK_BASE_YEAR; /* Ancient year: must be >=2000 */ if (dt.dt_year < STARTOFTIME) dt.dt_year += 100; if ((dt.dt_hour > 23) || (dt.dt_day > 31) || (dt.dt_mon > 12) || (dt.dt_year < STARTOFTIME) || (dt.dt_year > 2036)) return (0); secs = clock_ymdhms_to_secs(&dt); return (secs); } int a2settod(secs) time_t secs; { struct rtclock2000 *rt; struct clock_ymdhms dt; int ampm, i; rt = a2kclockaddr; /* * there seem to be problems with the bitfield addressing * currently used.. */ if (! rt) return (0); clock_secs_to_ymdhms(secs, &dt); /* * hold clock */ rt->control1 |= A2CONTROL1_HOLD; i = 0x1000; while (rt->control1 & A2CONTROL1_BUSY && i--) ; if (rt->control1 & A2CONTROL1_BUSY) return (0); /* Give up and say it's not there */ ampm = 0; if ((rt->control3 & A2CONTROL3_24HMODE) == 0) { if (dt.dt_hour >= 12) { ampm = A2HOUR1_PM; if (dt.dt_hour != 12) dt.dt_hour -= 12; } else if (dt.dt_hour == 0) { dt.dt_hour = 12; } } rt->hour1 = (dt.dt_hour / 10) | ampm; rt->hour2 = dt.dt_hour % 10; rt->second1 = dt.dt_sec / 10; rt->second2 = dt.dt_sec % 10; rt->minute1 = dt.dt_min / 10; rt->minute2 = dt.dt_min % 10; rt->day1 = dt.dt_day / 10; rt->day2 = dt.dt_day % 10; rt->month1 = dt.dt_mon / 10; rt->month2 = dt.dt_mon % 10; /* Store two digit year */ rt->year1 = (dt.dt_year / 10) % 10; rt->year2 = dt.dt_year % 10; rt->weekday = dt.dt_wday; /* * release the clock */ rt->control2 &= ~A2CONTROL1_HOLD; return (1); }