xref: /netbsd/sys/arch/luna68k/dev/timekeeper.c (revision bf9ec67e)
1 /* $NetBSD: timekeeper.c,v 1.1 2000/01/05 08:48:56 nisimura Exp $ */
2 
3 /*-
4  * Copyright (c) 2000 The NetBSD Foundation, Inc.
5  * All rights reserved.
6  *
7  * This code is derived from software contributed to The NetBSD Foundation
8  * by Tohru Nishimura.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in the
17  *    documentation and/or other materials provided with the distribution.
18  * 3. All advertising materials mentioning features or use of this software
19  *    must display the following acknowledgement:
20  *	This product includes software developed by the NetBSD
21  *	Foundation, Inc. and its contributors.
22  * 4. Neither the name of The NetBSD Foundation nor the names of its
23  *    contributors may be used to endorse or promote products derived
24  *    from this software without specific prior written permission.
25  *
26  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
27  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
28  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
30  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
31  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
32  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
33  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
34  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36  * POSSIBILITY OF SUCH DAMAGE.
37  */
38 
39 #include <sys/cdefs.h>			/* RCS ID & Copyright macro defns */
40 
41 __KERNEL_RCSID(0, "$NetBSD: timekeeper.c,v 1.1 2000/01/05 08:48:56 nisimura Exp $");
42 
43 #include <sys/param.h>
44 #include <sys/systm.h>
45 #include <sys/device.h>
46 #include <sys/kernel.h>
47 
48 #include <machine/cpu.h>
49 
50 #include <dev/clock_subr.h>
51 #include <luna68k/luna68k/clockvar.h>
52 #include <luna68k/dev/timekeeper.h>
53 #include <machine/autoconf.h>
54 
55 #define	YEAR0	1970	/* year offset */
56 
57 struct timekeeper_softc {
58 	struct device sc_dev;
59 	void *sc_clock, *sc_nvram;
60 	int sc_nvramsize;
61 	u_int8_t sc_image[2040];
62 };
63 
64 /*
65  * BCD to decimal and decimal to BCD.
66  */
67 #define FROMBCD(x)      (((x) >> 4) * 10 + ((x) & 0xf))
68 #define TOBCD(x)        (((x) / 10 * 16) + ((x) % 10))
69 
70 static int  clock_match __P((struct device *, struct cfdata *, void *));
71 static void clock_attach __P((struct device *, struct device *, void *));
72 
73 const struct cfattach clock_ca = {
74 	sizeof (struct timekeeper_softc), clock_match, clock_attach
75 };
76 extern struct cfdriver clock_cd;
77 
78 static void mkclock_get __P((struct device *, time_t, struct clock_ymdhms *));
79 static void mkclock_set __P((struct device *, struct clock_ymdhms *));
80 static void dsclock_get __P((struct device *, time_t, struct clock_ymdhms *));
81 static void dsclock_set __P((struct device *, struct clock_ymdhms *));
82 
83 static struct clockfns mkclock_clockfns = {
84 	NULL /* never used */, mkclock_get, mkclock_set,
85 };
86 
87 static struct clockfns dsclock_clockfns = {
88 	NULL /* never used */, dsclock_get, dsclock_set,
89 };
90 
91 static int
92 clock_match(parent, match, aux)
93         struct device *parent;
94         struct cfdata *match;
95         void *aux;
96 {
97 	struct mainbus_attach_args *ma = aux;
98 
99 	if (strcmp(ma->ma_name, clock_cd.cd_name))
100 		return 0;
101 	return 1;
102 }
103 
104 static void
105 clock_attach(parent, self, aux)
106         struct device *parent, *self;
107         void *aux;
108 {
109 	struct timekeeper_softc *sc = (void *)self;
110 	struct mainbus_attach_args *ma = aux;
111 	struct clockfns *clockwork;
112 
113 	switch (machtype) {
114 	default:
115 	case LUNA_I:	/* Mostek MK48T02 */
116 		sc->sc_clock = (void *)(ma->ma_addr + 2040);
117 		sc->sc_nvram = (void *)ma->ma_addr;
118 		sc->sc_nvramsize = 2040;
119 		clockwork = &mkclock_clockfns;
120 		printf(": mk48t02\n");
121 		break;
122 	case LUNA_II: /* Dallas DS1287A */
123 		sc->sc_clock = (void *)ma->ma_addr;
124 		sc->sc_nvram = (void *)(ma->ma_addr + 50);
125 		sc->sc_nvramsize = 50;
126 		clockwork = &dsclock_clockfns;
127 		printf(": ds1287a\n");
128 		break;
129 	}
130 	clockattach(&sc->sc_dev, clockwork);
131 	memcpy(sc->sc_image, sc->sc_nvram, sc->sc_nvramsize);
132 }
133 
134 /*
135  * Get the time of day, based on the clock's value and/or the base value.
136  */
137 static void
138 mkclock_get(dev, base, dt)
139 	struct device *dev;
140 	time_t base;
141 	struct clock_ymdhms *dt;
142 {
143 	struct timekeeper_softc *sc = (void *)dev;
144 	volatile u_int8_t *chiptime = (void *)sc->sc_clock;
145 	int s;
146 
147 	s = splclock();
148 	chiptime[MK_CSR] |= MK_CSR_READ;	/* enable read (stop time) */
149 	dt->dt_sec = FROMBCD(chiptime[MK_SEC]);
150 	dt->dt_min = FROMBCD(chiptime[MK_MIN]);
151 	dt->dt_hour = FROMBCD(chiptime[MK_HOUR]);
152 	dt->dt_wday = FROMBCD(chiptime[MK_DOW]);
153 	dt->dt_day = FROMBCD(chiptime[MK_DOM]);
154 	dt->dt_mon = FROMBCD(chiptime[MK_MONTH]);
155 	dt->dt_year = FROMBCD(chiptime[MK_YEAR]) + YEAR0;
156 	chiptime[MK_CSR] &= ~MK_CSR_READ;	/* time wears on */
157 	splx(s);
158 #ifdef TIMEKEEPER_DEBUG
159 	printf("get %d/%d/%d %d:%d:%d\n",
160 	dt->dt_year, dt->dt_mon, dt->dt_day,
161 	dt->dt_hour, dt->dt_min, dt->dt_sec);
162 #endif
163 }
164 
165 /*
166  * Reset the TODR based on the time value.
167  */
168 static void
169 mkclock_set(dev, dt)
170 	struct device *dev;
171 	struct clock_ymdhms *dt;
172 {
173 	struct timekeeper_softc *sc = (void *)dev;
174 	volatile u_int8_t *chiptime = (void *)sc->sc_clock;
175 	volatile u_int8_t *stamp = (u_int8_t *)sc->sc_nvram + 0x10;
176 	int s;
177 
178 	s = splclock();
179 	chiptime[MK_CSR] |= MK_CSR_WRITE;	/* enable write */
180 	chiptime[MK_SEC] = TOBCD(dt->dt_sec);
181 	chiptime[MK_MIN] = TOBCD(dt->dt_min);
182 	chiptime[MK_HOUR] = TOBCD(dt->dt_hour);
183 	chiptime[MK_DOW] = TOBCD(dt->dt_wday);
184 	chiptime[MK_DOM] = TOBCD(dt->dt_day);
185 	chiptime[MK_MONTH] = TOBCD(dt->dt_mon);
186 	chiptime[MK_YEAR] = TOBCD(dt->dt_year - YEAR0);
187 	chiptime[MK_CSR] &= ~MK_CSR_WRITE;	/* load them up */
188 	splx(s);
189 #ifdef TIMEKEEPER_DEBUG
190 	printf("set %d/%d/%d %d:%d:%d\n",
191 	dt->dt_year, dt->dt_mon, dt->dt_day,
192 	dt->dt_hour, dt->dt_min, dt->dt_sec);
193 #endif
194 
195 	stamp[0] = 'R'; stamp[1] = 'T'; stamp[2] = 'C'; stamp[3] = '\0';
196 }
197 
198 /*
199  * Get the time of day, based on the clock's value and/or the base value.
200  */
201 static void
202 dsclock_get(dev, base, dt)
203 	struct device *dev;
204 	time_t base;
205 	struct clock_ymdhms *dt;
206 {
207 	struct timekeeper_softc *sc = (void *)dev;
208 	volatile u_int8_t *chiptime = (void *)sc->sc_clock;
209 	int s;
210 
211 	s = splclock();
212 	/* update in progress; spin loop */
213 	while (chiptime[MC_REGA] & MC_REGA_UIP)
214 		;
215 	dt->dt_sec = chiptime[MC_SEC];
216 	dt->dt_min = chiptime[MC_MIN];
217 	dt->dt_hour = chiptime[MC_HOUR];
218 	dt->dt_wday = chiptime[MC_DOW];
219 	dt->dt_day = chiptime[MC_DOM];
220 	dt->dt_mon = chiptime[MC_MONTH];
221 	dt->dt_year = chiptime[MC_YEAR] + YEAR0;
222 	splx(s);
223 }
224 
225 /*
226  * Reset the TODR based on the time value.
227  */
228 static void
229 dsclock_set(dev, dt)
230 	struct device *dev;
231 	struct clock_ymdhms *dt;
232 {
233 	struct timekeeper_softc *sc = (void *)dev;
234 	volatile u_int8_t *chiptime = (void *)sc->sc_clock;
235 	int s;
236 
237 	s = splclock();
238 	chiptime[MC_REGB] |= MC_REGB_SET;	/* enable write */
239 	chiptime[MC_SEC] = dt->dt_sec;
240 	chiptime[MC_MIN] = dt->dt_min;
241 	chiptime[MC_HOUR] = dt->dt_hour;
242 	chiptime[MC_DOW] = dt->dt_wday;
243 	chiptime[MC_DOM] = dt->dt_day;
244 	chiptime[MC_MONTH] = dt->dt_mon;
245 	chiptime[MC_YEAR] = dt->dt_year - YEAR0;
246 	chiptime[MC_REGB] &= ~MC_REGB_SET;	/* load them up */
247 	splx(s);
248 }
249