a2kbbc.c revision 1.3
1/* $NetBSD: a2kbbc.c,v 1.3 1997/07/23 10:19:44 is Exp $ */ 2 3/* 4 * Copyright (c) 1988 University of Utah. 5 * Copyright (c) 1982, 1990 The Regents of the University of California. 6 * All rights reserved. 7 * 8 * This code is derived from software contributed to Berkeley by 9 * the Systems Programming Group of the University of Utah Computer 10 * Science Department. 11 * 12 * Redistribution and use in source and binary forms, with or without 13 * modification, are permitted provided that the following conditions 14 * are met: 15 * 1. Redistributions of source code must retain the above copyright 16 * notice, this list of conditions and the following disclaimer. 17 * 2. Redistributions in binary form must reproduce the above copyright 18 * notice, this list of conditions and the following disclaimer in the 19 * documentation and/or other materials provided with the distribution. 20 * 3. All advertising materials mentioning features or use of this software 21 * must display the following acknowledgement: 22 * This product includes software developed by the University of 23 * California, Berkeley and its contributors. 24 * 4. Neither the name of the University nor the names of its contributors 25 * may be used to endorse or promote products derived from this software 26 * without specific prior written permission. 27 * 28 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 29 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 30 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 31 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 32 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 33 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 34 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 35 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 36 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 37 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 38 * SUCH DAMAGE. 39 * 40 * from: Utah $Hdr: clock.c 1.18 91/01/21$ 41 * 42 * @(#)clock.c 7.6 (Berkeley) 5/7/91 43 */ 44 45#include <sys/param.h> 46#include <sys/kernel.h> 47#include <sys/device.h> 48#include <sys/systm.h> 49#include <machine/psl.h> 50#include <machine/cpu.h> 51#include <amiga/amiga/device.h> 52#include <amiga/amiga/custom.h> 53#include <amiga/amiga/cia.h> 54#include <amiga/dev/rtc.h> 55#include <amiga/dev/zbusvar.h> 56 57#include <dev/clock_subr.h> 58 59int a2kbbc_match __P((struct device *, struct cfdata *, void *)); 60void a2kbbc_attach __P((struct device *, struct device *, void *)); 61 62struct cfattach a2kbbc_ca = { 63 sizeof(struct device), a2kbbc_match, a2kbbc_attach 64}; 65 66struct cfdriver a2kbbc_cd = { 67 NULL, "a2kbbc", DV_DULL, NULL, 0 68}; 69 70void *a2kclockaddr; 71time_t a2gettod __P((void)); 72int a2settod __P((time_t)); 73 74int 75a2kbbc_match(pdp, cfp, auxp) 76 struct device *pdp; 77 struct cfdata *cfp; 78 void *auxp; 79{ 80 if (!matchname("a2kbbc", auxp)) 81 return (0); 82 83 if (cfp->cf_unit != 0) 84 return (0); /* only one of us please */ 85 86 if (is_a1200() || is_a3000() || is_a4000() 87#ifdef DRACO 88 || is_draco() 89#endif 90 ) 91 return (0); 92 93 a2kclockaddr = (void *)ztwomap(0xdc0000); 94 if (a2gettod() == 0) 95 return (0); 96 97 return (1); 98} 99 100/* 101 * Attach us to the rtc function pointers. 102 */ 103void 104a2kbbc_attach(pdp, dp, auxp) 105 struct device *pdp, *dp; 106 void *auxp; 107{ 108 printf("\n"); 109 a2kclockaddr = (void *)ztwomap(0xdc0000); 110 111 gettod = a2gettod; 112 settod = a2settod; 113} 114 115time_t 116a2gettod() 117{ 118 struct rtclock2000 *rt; 119 struct clock_ymdhms dt; 120 time_t secs; 121 int i; 122 123 rt = a2kclockaddr; 124 125 /* 126 * hold clock 127 */ 128 rt->control1 |= A2CONTROL1_HOLD; 129 i = 0x1000; 130 while (rt->control1 & A2CONTROL1_BUSY && i--) 131 ; 132 if (rt->control1 & A2CONTROL1_BUSY) 133 return (0); /* Give up and say it's not there */ 134 135 /* Copy the info. Careful about the order! */ 136 dt.dt_sec = rt->second1 * 10 + rt->second2; 137 dt.dt_min = rt->minute1 * 10 + rt->minute2; 138 dt.dt_hour = (rt->hour1 & 3) * 10 + rt->hour2; 139 dt.dt_day = rt->day1 * 10 + rt->day2; 140 dt.dt_mon = rt->month1 * 10 + rt->month2; 141 dt.dt_year = rt->year1 * 10 + rt->year2; 142 dt.dt_wday = rt->weekday; 143 144 /* 145 * The oki clock chip has a register to put the clock into 146 * 12/24h mode. 147 * 148 * clockmode | A2HOUR1_PM 149 * 24h 12h | am = 0, pm = 1 150 * --------------------------------- 151 * 0 12 | 0 152 * 1 1 | 0 153 * .. .. | 0 154 * 11 11 | 0 155 * 12 12 | 1 156 * 13 1 | 1 157 * .. .. | 1 158 * 23 11 | 1 159 * 160 */ 161 162 if ((rt->control3 & A2CONTROL3_24HMODE) == 0) { 163 if ((rt->hour1 & A2HOUR1_PM) == 0 && dt.dt_hour == 12) 164 dt.dt_hour = 0; 165 else if ((rt->hour1 & A2HOUR1_PM) && dt.dt_hour != 12) 166 dt.dt_hour += 12; 167 } 168 169 /* 170 * release the clock 171 */ 172 rt->control1 &= ~A2CONTROL1_HOLD; 173 174 dt.dt_year += CLOCK_BASE_YEAR; 175 176 if ((dt.dt_hour > 23) || 177 (dt.dt_day > 31) || 178 (dt.dt_mon > 12) || 179 (dt.dt_year < STARTOFTIME) || (dt.dt_year > 2036)) 180 return (0); 181 182 secs = clock_ymdhms_to_secs(&dt); 183 return (secs); 184} 185 186int 187a2settod(secs) 188 time_t secs; 189{ 190 struct rtclock2000 *rt; 191 struct clock_ymdhms dt; 192 int ampm, i; 193 194 rt = a2kclockaddr; 195 /* 196 * there seem to be problems with the bitfield addressing 197 * currently used.. 198 */ 199 if (! rt) 200 return (0); 201 202 clock_secs_to_ymdhms(secs, &dt); 203 dt.dt_year -= CLOCK_BASE_YEAR; 204 205 /* 206 * hold clock 207 */ 208 rt->control1 |= A2CONTROL1_HOLD; 209 i = 0x1000; 210 while (rt->control1 & A2CONTROL1_BUSY && i--) 211 ; 212 if (rt->control1 & A2CONTROL1_BUSY) 213 return (0); /* Give up and say it's not there */ 214 215 ampm = 0; 216 if ((rt->control3 & A2CONTROL3_24HMODE) == 0) { 217 if (dt.dt_hour >= 12) { 218 ampm = A2HOUR1_PM; 219 if (dt.dt_hour != 12) 220 dt.dt_hour -= 12; 221 } else if (dt.dt_hour == 0) { 222 dt.dt_hour = 12; 223 } 224 } 225 rt->hour1 = (dt.dt_hour / 10) | ampm; 226 rt->hour2 = dt.dt_hour % 10; 227 rt->second1 = dt.dt_sec / 10; 228 rt->second2 = dt.dt_sec % 10; 229 rt->minute1 = dt.dt_min / 10; 230 rt->minute2 = dt.dt_min % 10; 231 rt->day1 = dt.dt_day / 10; 232 rt->day2 = dt.dt_day % 10; 233 rt->month1 = dt.dt_mon / 10; 234 rt->month2 = dt.dt_mon % 10; 235 rt->year1 = dt.dt_year / 10; 236 rt->year2 = dt.dt_year % 10; 237 rt->weekday = dt.dt_wday; 238 239 /* 240 * release the clock 241 */ 242 rt->control2 &= ~A2CONTROL1_HOLD; 243 244 return (1); 245} 246