rtc.c revision 1.2.4.2
1 1.2.4.2 martin /* $NetBSD: rtc.c,v 1.2.4.2 2017/08/30 15:45:04 martin Exp $ */ 2 1.2.4.2 martin 3 1.2.4.2 martin /* 4 1.2.4.2 martin * Copyright 2002 Wasabi Systems, Inc. 5 1.2.4.2 martin * All rights reserved. 6 1.2.4.2 martin * 7 1.2.4.2 martin * Written by Simon Burge for Wasabi Systems, Inc. 8 1.2.4.2 martin * 9 1.2.4.2 martin * Redistribution and use in source and binary forms, with or without 10 1.2.4.2 martin * modification, are permitted provided that the following conditions 11 1.2.4.2 martin * are met: 12 1.2.4.2 martin * 1. Redistributions of source code must retain the above copyright 13 1.2.4.2 martin * notice, this list of conditions and the following disclaimer. 14 1.2.4.2 martin * 2. Redistributions in binary form must reproduce the above copyright 15 1.2.4.2 martin * notice, this list of conditions and the following disclaimer in the 16 1.2.4.2 martin * documentation and/or other materials provided with the distribution. 17 1.2.4.2 martin * 3. All advertising materials mentioning features or use of this software 18 1.2.4.2 martin * must display the following acknowledgement: 19 1.2.4.2 martin * This product includes software developed for the NetBSD Project by 20 1.2.4.2 martin * Wasabi Systems, Inc. 21 1.2.4.2 martin * 4. The name of Wasabi Systems, Inc. may not be used to endorse 22 1.2.4.2 martin * or promote products derived from this software without specific prior 23 1.2.4.2 martin * written permission. 24 1.2.4.2 martin * 25 1.2.4.2 martin * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND 26 1.2.4.2 martin * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 27 1.2.4.2 martin * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 28 1.2.4.2 martin * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC 29 1.2.4.2 martin * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 30 1.2.4.2 martin * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 31 1.2.4.2 martin * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 32 1.2.4.2 martin * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 33 1.2.4.2 martin * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 34 1.2.4.2 martin * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 35 1.2.4.2 martin * POSSIBILITY OF SUCH DAMAGE. 36 1.2.4.2 martin */ 37 1.2.4.2 martin 38 1.2.4.2 martin #include <sys/cdefs.h> 39 1.2.4.2 martin __KERNEL_RCSID(0, "$NetBSD: rtc.c,v 1.2.4.2 2017/08/30 15:45:04 martin Exp $"); 40 1.2.4.2 martin 41 1.2.4.2 martin #include <sys/param.h> 42 1.2.4.2 martin #include <sys/device.h> 43 1.2.4.2 martin #include <sys/kernel.h> 44 1.2.4.2 martin #include <sys/systm.h> 45 1.2.4.2 martin #include <sys/cpu.h> 46 1.2.4.2 martin 47 1.2.4.2 martin #include <dev/clock_subr.h> 48 1.2.4.2 martin 49 1.2.4.2 martin #include <sbmips/swarm.h> 50 1.2.4.2 martin #include <sbmips/systemsw.h> 51 1.2.4.2 martin 52 1.2.4.2 martin #include <mips/locore.h> 53 1.2.4.2 martin #include <mips/sibyte/dev/sbsmbusvar.h> 54 1.2.4.2 martin 55 1.2.4.2 martin #include <dev/smbus/m41t81reg.h> 56 1.2.4.2 martin #include <dev/smbus/x1241reg.h> 57 1.2.4.2 martin 58 1.2.4.2 martin struct rtc_softc { 59 1.2.4.2 martin device_t sc_dev; 60 1.2.4.2 martin int sc_smbus_chan; 61 1.2.4.2 martin int sc_smbus_addr; 62 1.2.4.2 martin int sc_type; 63 1.2.4.2 martin struct todr_chip_handle sc_ct; 64 1.2.4.2 martin }; 65 1.2.4.2 martin 66 1.2.4.2 martin /* "types" for RTCs we support */ 67 1.2.4.2 martin #define SMB_1BYTE_ADDR 1 68 1.2.4.2 martin #define SMB_2BYTE_ADDR 2 69 1.2.4.2 martin 70 1.2.4.2 martin static int xirtc_match(device_t, cfdata_t , void *); 71 1.2.4.2 martin static void xirtc_attach(device_t, device_t, void *); 72 1.2.4.2 martin static int xirtc_gettime(todr_chip_handle_t, struct clock_ymdhms *); 73 1.2.4.2 martin static int xirtc_settime(todr_chip_handle_t, struct clock_ymdhms *); 74 1.2.4.2 martin 75 1.2.4.2 martin static int strtc_match(device_t, cfdata_t , void *); 76 1.2.4.2 martin static void strtc_attach(device_t, device_t, void *); 77 1.2.4.2 martin static int strtc_gettime(todr_chip_handle_t, struct clock_ymdhms *); 78 1.2.4.2 martin static int strtc_settime(todr_chip_handle_t, struct clock_ymdhms *); 79 1.2.4.2 martin 80 1.2.4.2 martin static void rtc_cal_timer(void); 81 1.2.4.2 martin 82 1.2.4.2 martin static void time_smbus_init(int); 83 1.2.4.2 martin static int time_waitready(int); 84 1.2.4.2 martin static int time_readrtc(int, int, int, int); 85 1.2.4.2 martin static int time_writertc(int, int, int, int, int); 86 1.2.4.2 martin 87 1.2.4.2 martin #define WRITERTC(sc, dev, val) \ 88 1.2.4.2 martin time_writertc((sc)->sc_smbus_chan, (sc)->sc_smbus_addr, (dev), (sc)->sc_type, (val)) 89 1.2.4.2 martin #define READRTC(sc, dev) \ 90 1.2.4.2 martin time_readrtc((sc)->sc_smbus_chan, (sc)->sc_smbus_addr, (dev), (sc)->sc_type) 91 1.2.4.2 martin 92 1.2.4.2 martin 93 1.2.4.2 martin CFATTACH_DECL_NEW(xirtc, sizeof(struct rtc_softc), 94 1.2.4.2 martin xirtc_match, xirtc_attach, NULL, NULL); 95 1.2.4.2 martin 96 1.2.4.2 martin CFATTACH_DECL_NEW(m41t81rtc, sizeof(struct rtc_softc), 97 1.2.4.2 martin strtc_match, strtc_attach, NULL, NULL); 98 1.2.4.2 martin 99 1.2.4.2 martin static int rtcfound = 0; 100 1.2.4.2 martin struct rtc_softc *the_rtc; 101 1.2.4.2 martin 102 1.2.4.2 martin /* 103 1.2.4.2 martin * Xicor X1241 RTC support. 104 1.2.4.2 martin */ 105 1.2.4.2 martin static int 106 1.2.4.2 martin xirtc_match(device_t parent, cfdata_t cf, void *aux) 107 1.2.4.2 martin { 108 1.2.4.2 martin struct smbus_attach_args *sa = aux; 109 1.2.4.2 martin int ret; 110 1.2.4.2 martin 111 1.2.4.2 martin time_smbus_init(sa->sa_interface); 112 1.2.4.2 martin 113 1.2.4.2 martin if ((sa->sa_interface != X1241_SMBUS_CHAN) || 114 1.2.4.2 martin (sa->sa_device != X1241_RTC_SLAVEADDR)) 115 1.2.4.2 martin return (0); 116 1.2.4.2 martin 117 1.2.4.2 martin ret = time_readrtc(sa->sa_interface, sa->sa_device, SMB_2BYTE_ADDR, X1241REG_SC); 118 1.2.4.2 martin if (ret < 0) 119 1.2.4.2 martin return (0); 120 1.2.4.2 martin 121 1.2.4.2 martin return (!rtcfound); 122 1.2.4.2 martin } 123 1.2.4.2 martin 124 1.2.4.2 martin static void 125 1.2.4.2 martin xirtc_attach(device_t parent, device_t self, void *aux) 126 1.2.4.2 martin { 127 1.2.4.2 martin struct smbus_attach_args *sa = aux; 128 1.2.4.2 martin struct rtc_softc *sc = device_private(self); 129 1.2.4.2 martin 130 1.2.4.2 martin rtcfound = 1; 131 1.2.4.2 martin the_rtc = sc; 132 1.2.4.2 martin 133 1.2.4.2 martin sc->sc_dev = self; 134 1.2.4.2 martin sc->sc_smbus_chan = sa->sa_interface; 135 1.2.4.2 martin sc->sc_smbus_addr = sa->sa_device; 136 1.2.4.2 martin sc->sc_type = SMB_2BYTE_ADDR; /* Two-byte register addresses on the Xicor */ 137 1.2.4.2 martin 138 1.2.4.2 martin 139 1.2.4.2 martin /* Set up MI todr(9) stuff */ 140 1.2.4.2 martin sc->sc_ct.cookie = sc; 141 1.2.4.2 martin sc->sc_ct.todr_settime_ymdhms = xirtc_settime; 142 1.2.4.2 martin sc->sc_ct.todr_gettime_ymdhms = xirtc_gettime; 143 1.2.4.2 martin 144 1.2.4.2 martin todr_attach(&sc->sc_ct); 145 1.2.4.2 martin 146 1.2.4.2 martin aprint_normal("\n"); 147 1.2.4.2 martin rtc_cal_timer(); /* XXX */ 148 1.2.4.2 martin } 149 1.2.4.2 martin 150 1.2.4.2 martin static int 151 1.2.4.2 martin xirtc_settime(todr_chip_handle_t handle, struct clock_ymdhms *ymdhms) 152 1.2.4.2 martin { 153 1.2.4.2 martin struct rtc_softc *sc = handle->cookie; 154 1.2.4.2 martin uint8_t year, y2k; 155 1.2.4.2 martin 156 1.2.4.2 martin time_smbus_init(sc->sc_smbus_chan); 157 1.2.4.2 martin 158 1.2.4.2 martin /* unlock writes to the CCR */ 159 1.2.4.2 martin WRITERTC(sc, X1241REG_SR, X1241REG_SR_WEL); 160 1.2.4.2 martin WRITERTC(sc, X1241REG_SR, X1241REG_SR_WEL | X1241REG_SR_RWEL); 161 1.2.4.2 martin 162 1.2.4.2 martin /* set the time */ 163 1.2.4.2 martin WRITERTC(sc, X1241REG_HR, bintobcd(ymdhms->dt_hour) | X1241REG_HR_MIL); 164 1.2.4.2 martin WRITERTC(sc, X1241REG_MN, bintobcd(ymdhms->dt_min)); 165 1.2.4.2 martin WRITERTC(sc, X1241REG_SC, bintobcd(ymdhms->dt_sec)); 166 1.2.4.2 martin 167 1.2.4.2 martin /* set the date */ 168 1.2.4.2 martin y2k = (ymdhms->dt_year >= 2000) ? 0x20 : 0x19; 169 1.2.4.2 martin year = ymdhms->dt_year % 100; 170 1.2.4.2 martin 171 1.2.4.2 martin WRITERTC(sc, X1241REG_MO, bintobcd(ymdhms->dt_mon)); 172 1.2.4.2 martin WRITERTC(sc, X1241REG_DT, bintobcd(ymdhms->dt_day)); 173 1.2.4.2 martin WRITERTC(sc, X1241REG_YR, bintobcd(year)); 174 1.2.4.2 martin WRITERTC(sc, X1241REG_Y2K, bintobcd(y2k)); 175 1.2.4.2 martin 176 1.2.4.2 martin /* lock writes again */ 177 1.2.4.2 martin WRITERTC(sc, X1241REG_SR, 0); 178 1.2.4.2 martin 179 1.2.4.2 martin return (0); 180 1.2.4.2 martin } 181 1.2.4.2 martin 182 1.2.4.2 martin static int 183 1.2.4.2 martin xirtc_gettime(todr_chip_handle_t handle, struct clock_ymdhms *ymdhms) 184 1.2.4.2 martin { 185 1.2.4.2 martin struct rtc_softc *sc = handle->cookie; 186 1.2.4.2 martin uint8_t hour, year, y2k; 187 1.2.4.2 martin uint8_t status; 188 1.2.4.2 martin 189 1.2.4.2 martin time_smbus_init(sc->sc_smbus_chan); 190 1.2.4.2 martin ymdhms->dt_day = bcdtobin(READRTC(sc, X1241REG_DT)); 191 1.2.4.2 martin ymdhms->dt_mon = bcdtobin(READRTC(sc, X1241REG_MO)); 192 1.2.4.2 martin year = READRTC(sc, X1241REG_YR); 193 1.2.4.2 martin y2k = READRTC(sc, X1241REG_Y2K); 194 1.2.4.2 martin ymdhms->dt_year = bcdtobin(y2k) * 100 + bcdtobin(year); 195 1.2.4.2 martin 196 1.2.4.2 martin 197 1.2.4.2 martin ymdhms->dt_sec = bcdtobin(READRTC(sc, X1241REG_SC)); 198 1.2.4.2 martin ymdhms->dt_min = bcdtobin(READRTC(sc, X1241REG_MN)); 199 1.2.4.2 martin hour = READRTC(sc, X1241REG_HR); 200 1.2.4.2 martin ymdhms->dt_hour = bcdtobin(hour & ~X1241REG_HR_MIL); 201 1.2.4.2 martin 202 1.2.4.2 martin status = READRTC(sc, X1241REG_SR); 203 1.2.4.2 martin 204 1.2.4.2 martin if (status & X1241REG_SR_RTCF) { 205 1.2.4.2 martin printf("%s: battery has failed, clock setting is not accurate\n", 206 1.2.4.2 martin device_xname(sc->sc_dev)); 207 1.2.4.2 martin return (EIO); 208 1.2.4.2 martin } 209 1.2.4.2 martin 210 1.2.4.2 martin return (0); 211 1.2.4.2 martin } 212 1.2.4.2 martin 213 1.2.4.2 martin /* 214 1.2.4.2 martin * ST M41T81 RTC support. 215 1.2.4.2 martin */ 216 1.2.4.2 martin static int 217 1.2.4.2 martin strtc_match(device_t parent, cfdata_t cf, void *aux) 218 1.2.4.2 martin { 219 1.2.4.2 martin struct smbus_attach_args *sa = aux; 220 1.2.4.2 martin int ret; 221 1.2.4.2 martin 222 1.2.4.2 martin if ((sa->sa_interface != M41T81_SMBUS_CHAN) || 223 1.2.4.2 martin (sa->sa_device != M41T81_SLAVEADDR)) 224 1.2.4.2 martin return (0); 225 1.2.4.2 martin 226 1.2.4.2 martin time_smbus_init(sa->sa_interface); 227 1.2.4.2 martin 228 1.2.4.2 martin ret = time_readrtc(sa->sa_interface, sa->sa_device, SMB_1BYTE_ADDR, M41T81_SEC); 229 1.2.4.2 martin if (ret < 0) 230 1.2.4.2 martin return (0); 231 1.2.4.2 martin 232 1.2.4.2 martin return (!rtcfound); 233 1.2.4.2 martin } 234 1.2.4.2 martin 235 1.2.4.2 martin static void 236 1.2.4.2 martin strtc_attach(device_t parent, device_t self, void *aux) 237 1.2.4.2 martin { 238 1.2.4.2 martin struct smbus_attach_args *sa = aux; 239 1.2.4.2 martin struct rtc_softc *sc = device_private(self); 240 1.2.4.2 martin 241 1.2.4.2 martin rtcfound = 1; 242 1.2.4.2 martin the_rtc = sc; 243 1.2.4.2 martin 244 1.2.4.2 martin sc->sc_dev = self; 245 1.2.4.2 martin sc->sc_smbus_chan = sa->sa_interface; 246 1.2.4.2 martin sc->sc_smbus_addr = sa->sa_device; 247 1.2.4.2 martin sc->sc_type = SMB_1BYTE_ADDR; /* One-byte register addresses on the ST */ 248 1.2.4.2 martin 249 1.2.4.2 martin /* Set up MI todr(9) stuff */ 250 1.2.4.2 martin sc->sc_ct.cookie = sc; 251 1.2.4.2 martin sc->sc_ct.todr_settime_ymdhms = strtc_settime; 252 1.2.4.2 martin sc->sc_ct.todr_gettime_ymdhms = strtc_gettime; 253 1.2.4.2 martin 254 1.2.4.2 martin todr_attach(&sc->sc_ct); 255 1.2.4.2 martin 256 1.2.4.2 martin aprint_normal("\n"); 257 1.2.4.2 martin rtc_cal_timer(); /* XXX */ 258 1.2.4.2 martin } 259 1.2.4.2 martin 260 1.2.4.2 martin static int 261 1.2.4.2 martin strtc_settime(todr_chip_handle_t handle, struct clock_ymdhms *ymdhms) 262 1.2.4.2 martin { 263 1.2.4.2 martin struct rtc_softc *sc = handle->cookie; 264 1.2.4.2 martin uint8_t hour; 265 1.2.4.2 martin 266 1.2.4.2 martin time_smbus_init(sc->sc_smbus_chan); 267 1.2.4.2 martin 268 1.2.4.2 martin hour = bintobcd(ymdhms->dt_hour); 269 1.2.4.2 martin if (ymdhms->dt_year >= 2000) /* Should be always true! */ 270 1.2.4.2 martin hour |= M41T81_HOUR_CB | M41T81_HOUR_CEB; 271 1.2.4.2 martin 272 1.2.4.2 martin /* set the time */ 273 1.2.4.2 martin WRITERTC(sc, M41T81_SEC, bintobcd(ymdhms->dt_sec)); 274 1.2.4.2 martin WRITERTC(sc, M41T81_MIN, bintobcd(ymdhms->dt_min)); 275 1.2.4.2 martin WRITERTC(sc, M41T81_HOUR, hour); 276 1.2.4.2 martin 277 1.2.4.2 martin /* set the date */ 278 1.2.4.2 martin WRITERTC(sc, M41T81_DATE, bintobcd(ymdhms->dt_day)); 279 1.2.4.2 martin WRITERTC(sc, M41T81_MON, bintobcd(ymdhms->dt_mon)); 280 1.2.4.2 martin WRITERTC(sc, M41T81_YEAR, bintobcd(ymdhms->dt_year % 100)); 281 1.2.4.2 martin 282 1.2.4.2 martin return (0); 283 1.2.4.2 martin } 284 1.2.4.2 martin 285 1.2.4.2 martin static int 286 1.2.4.2 martin strtc_gettime(todr_chip_handle_t handle, struct clock_ymdhms *ymdhms) 287 1.2.4.2 martin { 288 1.2.4.2 martin struct rtc_softc *sc = handle->cookie; 289 1.2.4.2 martin uint8_t hour; 290 1.2.4.2 martin 291 1.2.4.2 martin time_smbus_init(sc->sc_smbus_chan); 292 1.2.4.2 martin 293 1.2.4.2 martin ymdhms->dt_sec = bcdtobin(READRTC(sc, M41T81_SEC)); 294 1.2.4.2 martin ymdhms->dt_min = bcdtobin(READRTC(sc, M41T81_MIN)); 295 1.2.4.2 martin hour = READRTC(sc, M41T81_HOUR & M41T81_HOUR_MASK); 296 1.2.4.2 martin ymdhms->dt_hour = bcdtobin(hour & M41T81_HOUR_MASK); 297 1.2.4.2 martin 298 1.2.4.2 martin ymdhms->dt_day = bcdtobin(READRTC(sc, M41T81_DATE)); 299 1.2.4.2 martin ymdhms->dt_mon = bcdtobin(READRTC(sc, M41T81_MON)); 300 1.2.4.2 martin ymdhms->dt_year = 1900 + bcdtobin(READRTC(sc, M41T81_YEAR)); 301 1.2.4.2 martin if (hour & M41T81_HOUR_CB) 302 1.2.4.2 martin ymdhms->dt_year += 100; 303 1.2.4.2 martin 304 1.2.4.2 martin return (0); 305 1.2.4.2 martin } 306 1.2.4.2 martin 307 1.2.4.2 martin #define NITERS 3 308 1.2.4.2 martin #define RTC_SECONDS(rtc) bcdtobin(READRTC((rtc), X1241REG_SC)) 309 1.2.4.2 martin 310 1.2.4.2 martin /* 311 1.2.4.2 martin * Since it takes so long to read the complete time/date values from 312 1.2.4.2 martin * the RTC over the SMBus, we only read the seconds value. 313 1.2.4.2 martin * Later versions of the SWARM will hopefully have the RTC interrupt 314 1.2.4.2 martin * attached so we can do the clock calibration much more quickly and 315 1.2.4.2 martin * with a higher resolution. 316 1.2.4.2 martin */ 317 1.2.4.2 martin static void 318 1.2.4.2 martin rtc_cal_timer(void) 319 1.2.4.2 martin { 320 1.2.4.2 martin uint32_t ctrdiff[NITERS], startctr, endctr; 321 1.2.4.2 martin int sec, lastsec, i; 322 1.2.4.2 martin 323 1.2.4.2 martin if (rtcfound == 0) { 324 1.2.4.2 martin printf("rtc_cal_timer before rtc attached\n"); 325 1.2.4.2 martin return; 326 1.2.4.2 martin } 327 1.2.4.2 martin return; /* XXX XXX */ 328 1.2.4.2 martin 329 1.2.4.2 martin printf("%s: calibrating CPU clock", device_xname(the_rtc->sc_dev)); 330 1.2.4.2 martin 331 1.2.4.2 martin /* 332 1.2.4.2 martin * Run the loop an extra time to wait for the second to tick over 333 1.2.4.2 martin * and to prime the cache. 334 1.2.4.2 martin */ 335 1.2.4.2 martin time_smbus_init(the_rtc->sc_smbus_chan); 336 1.2.4.2 martin sec = RTC_SECONDS(the_rtc); 337 1.2.4.2 martin endctr = mips3_cp0_count_read(); 338 1.2.4.2 martin 339 1.2.4.2 martin for (i = 0; i < NITERS; i++) { 340 1.2.4.2 martin int diff; 341 1.2.4.2 martin 342 1.2.4.2 martin again: 343 1.2.4.2 martin lastsec = sec; 344 1.2.4.2 martin startctr = endctr; 345 1.2.4.2 martin 346 1.2.4.2 martin /* Wait for the timer to tick over. */ 347 1.2.4.2 martin do { 348 1.2.4.2 martin // time_smbus_init(the_rtc->sc_smbus_chan); 349 1.2.4.2 martin sec = RTC_SECONDS(the_rtc); 350 1.2.4.2 martin } while (lastsec == sec); 351 1.2.4.2 martin endctr = mips3_cp0_count_read(); 352 1.2.4.2 martin 353 1.2.4.2 martin diff = sec - lastsec; 354 1.2.4.2 martin if (diff < 0) 355 1.2.4.2 martin diff += 60; 356 1.2.4.2 martin 357 1.2.4.2 martin /* Sometimes we appear to skip a second. Clock jitter? */ 358 1.2.4.2 martin if (diff > 1) 359 1.2.4.2 martin goto again; 360 1.2.4.2 martin 361 1.2.4.2 martin if (endctr < startctr) 362 1.2.4.2 martin ctrdiff[i] = 0xffffffff - startctr + endctr; 363 1.2.4.2 martin else 364 1.2.4.2 martin ctrdiff[i] = endctr - startctr; 365 1.2.4.2 martin } 366 1.2.4.2 martin printf("\n"); 367 1.2.4.2 martin 368 1.2.4.2 martin /* Compute the number of cycles per second. */ 369 1.2.4.2 martin curcpu()->ci_cpu_freq = ((ctrdiff[1] + ctrdiff[2]) / 2); 370 1.2.4.2 martin 371 1.2.4.2 martin /* Compute the delay divisor. */ 372 1.2.4.2 martin curcpu()->ci_divisor_delay = curcpu()->ci_cpu_freq / 1000000; 373 1.2.4.2 martin 374 1.2.4.2 martin /* Compute clock cycles per hz */ 375 1.2.4.2 martin curcpu()->ci_cycles_per_hz = curcpu()->ci_cpu_freq / hz; 376 1.2.4.2 martin 377 1.2.4.2 martin printf("%s: timer calibration: %lu cycles/sec [(%u, %u)]\n", 378 1.2.4.2 martin device_xname(the_rtc->sc_dev), curcpu()->ci_cpu_freq, 379 1.2.4.2 martin ctrdiff[1], ctrdiff[2]); 380 1.2.4.2 martin } 381 1.2.4.2 martin #undef RTC_SECONDS 382 1.2.4.2 martin 383 1.2.4.2 martin /* XXX eville direct-access-to-the-device code follows... */ 384 1.2.4.2 martin 385 1.2.4.2 martin /* 386 1.2.4.2 martin * Copyright 2000,2001 387 1.2.4.2 martin * Broadcom Corporation. All rights reserved. 388 1.2.4.2 martin * 389 1.2.4.2 martin * This software is furnished under license and may be used and copied only 390 1.2.4.2 martin * in accordance with the following terms and conditions. Subject to these 391 1.2.4.2 martin * conditions, you may download, copy, install, use, modify and distribute 392 1.2.4.2 martin * modified or unmodified copies of this software in source and/or binary 393 1.2.4.2 martin * form. No title or ownership is transferred hereby. 394 1.2.4.2 martin * 395 1.2.4.2 martin * 1) Any source code used, modified or distributed must reproduce and 396 1.2.4.2 martin * retain this copyright notice and list of conditions as they appear in 397 1.2.4.2 martin * the source file. 398 1.2.4.2 martin * 399 1.2.4.2 martin * 2) No right is granted to use any trade name, trademark, or logo of 400 1.2.4.2 martin * Broadcom Corporation. The "Broadcom Corporation" name may not be 401 1.2.4.2 martin * used to endorse or promote products derived from this software 402 1.2.4.2 martin * without the prior written permission of Broadcom Corporation. 403 1.2.4.2 martin * 404 1.2.4.2 martin * 3) THIS SOFTWARE IS PROVIDED "AS-IS" AND ANY EXPRESS OR IMPLIED 405 1.2.4.2 martin * WARRANTIES, INCLUDING BUT NOT LIMITED TO, ANY IMPLIED WARRANTIES OF 406 1.2.4.2 martin * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR 407 1.2.4.2 martin * NON-INFRINGEMENT ARE DISCLAIMED. IN NO EVENT SHALL BROADCOM BE LIABLE 408 1.2.4.2 martin * FOR ANY DAMAGES WHATSOEVER, AND IN PARTICULAR, BROADCOM SHALL NOT BE 409 1.2.4.2 martin * LIABLE FOR DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 410 1.2.4.2 martin * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 411 1.2.4.2 martin * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR 412 1.2.4.2 martin * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 413 1.2.4.2 martin * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE 414 1.2.4.2 martin * OR OTHERWISE), EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 415 1.2.4.2 martin */ 416 1.2.4.2 martin 417 1.2.4.2 martin #include <mips/sibyte/include/sb1250_regs.h> 418 1.2.4.2 martin #include <mips/sibyte/include/sb1250_smbus.h> 419 1.2.4.2 martin 420 1.2.4.2 martin #define READ_REG(rp) mips3_ld((register_t)(MIPS_PHYS_TO_KSEG1(rp))) 421 1.2.4.2 martin #define WRITE_REG(rp, val) mips3_sd((register_t)(MIPS_PHYS_TO_KSEG1(rp)), (val)) 422 1.2.4.2 martin 423 1.2.4.2 martin static void 424 1.2.4.2 martin time_smbus_init(int chan) 425 1.2.4.2 martin { 426 1.2.4.2 martin uint32_t reg; 427 1.2.4.2 martin 428 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_FREQ); 429 1.2.4.2 martin WRITE_REG(reg, K_SMB_FREQ_100KHZ); 430 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_CONTROL); 431 1.2.4.2 martin WRITE_REG(reg, 0); /* not in direct mode, no interrupts, will poll */ 432 1.2.4.2 martin } 433 1.2.4.2 martin 434 1.2.4.2 martin static int 435 1.2.4.2 martin time_waitready(int chan) 436 1.2.4.2 martin { 437 1.2.4.2 martin uint32_t reg; 438 1.2.4.2 martin uint64_t status; 439 1.2.4.2 martin 440 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_STATUS); 441 1.2.4.2 martin 442 1.2.4.2 martin for (;;) { 443 1.2.4.2 martin status = READ_REG(reg); 444 1.2.4.2 martin if (status & M_SMB_BUSY) 445 1.2.4.2 martin continue; 446 1.2.4.2 martin break; 447 1.2.4.2 martin } 448 1.2.4.2 martin 449 1.2.4.2 martin if (status & M_SMB_ERROR) { 450 1.2.4.2 martin WRITE_REG(reg, (status & M_SMB_ERROR)); 451 1.2.4.2 martin return (-1); 452 1.2.4.2 martin } 453 1.2.4.2 martin return (0); 454 1.2.4.2 martin } 455 1.2.4.2 martin 456 1.2.4.2 martin static int 457 1.2.4.2 martin time_readrtc(int chan, int slaveaddr, int devaddr, int type) 458 1.2.4.2 martin { 459 1.2.4.2 martin uint32_t reg; 460 1.2.4.2 martin int err; 461 1.2.4.2 martin 462 1.2.4.2 martin /* 463 1.2.4.2 martin * Make sure the bus is idle (probably should 464 1.2.4.2 martin * ignore error here) 465 1.2.4.2 martin */ 466 1.2.4.2 martin 467 1.2.4.2 martin if (time_waitready(chan) < 0) 468 1.2.4.2 martin return (-1); 469 1.2.4.2 martin 470 1.2.4.2 martin if (type == SMB_2BYTE_ADDR) { 471 1.2.4.2 martin /* 472 1.2.4.2 martin * Write the device address to the controller. There are two 473 1.2.4.2 martin * parts, the high part goes in the "CMD" field, and the 474 1.2.4.2 martin * low part is the data field. 475 1.2.4.2 martin */ 476 1.2.4.2 martin 477 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_CMD); 478 1.2.4.2 martin WRITE_REG(reg, (devaddr >> 8) & 0x7); 479 1.2.4.2 martin 480 1.2.4.2 martin /* 481 1.2.4.2 martin * Write the data to the controller 482 1.2.4.2 martin */ 483 1.2.4.2 martin 484 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_DATA); 485 1.2.4.2 martin WRITE_REG(reg, (devaddr & 0xff) & 0xff); 486 1.2.4.2 martin } else { /* SMB_1BYTE_ADDR */ 487 1.2.4.2 martin /* 488 1.2.4.2 martin * Write the device address to the controller. 489 1.2.4.2 martin */ 490 1.2.4.2 martin 491 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_CMD); 492 1.2.4.2 martin WRITE_REG(reg, devaddr & 0xff); 493 1.2.4.2 martin } 494 1.2.4.2 martin 495 1.2.4.2 martin /* 496 1.2.4.2 martin * Start the command 497 1.2.4.2 martin */ 498 1.2.4.2 martin 499 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_START); 500 1.2.4.2 martin if (type == SMB_2BYTE_ADDR) 501 1.2.4.2 martin WRITE_REG(reg, V_SMB_TT(K_SMB_TT_WR2BYTE) | V_SMB_ADDR(slaveaddr)); 502 1.2.4.2 martin else /* SMB_1BYTE_ADDR */ 503 1.2.4.2 martin WRITE_REG(reg, V_SMB_TT(K_SMB_TT_WR1BYTE) | V_SMB_ADDR(slaveaddr)); 504 1.2.4.2 martin 505 1.2.4.2 martin /* 506 1.2.4.2 martin * Wait till done 507 1.2.4.2 martin */ 508 1.2.4.2 martin 509 1.2.4.2 martin err = time_waitready(chan); 510 1.2.4.2 martin if (err < 0) 511 1.2.4.2 martin return (err); 512 1.2.4.2 martin 513 1.2.4.2 martin /* 514 1.2.4.2 martin * Read the data byte 515 1.2.4.2 martin */ 516 1.2.4.2 martin 517 1.2.4.2 martin WRITE_REG(reg, V_SMB_TT(K_SMB_TT_RD1BYTE) | V_SMB_ADDR(slaveaddr)); 518 1.2.4.2 martin 519 1.2.4.2 martin err = time_waitready(chan); 520 1.2.4.2 martin if (err < 0) 521 1.2.4.2 martin return (err); 522 1.2.4.2 martin 523 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_DATA); 524 1.2.4.2 martin err = READ_REG(reg); 525 1.2.4.2 martin 526 1.2.4.2 martin return (err & 0xff); 527 1.2.4.2 martin } 528 1.2.4.2 martin 529 1.2.4.2 martin static int 530 1.2.4.2 martin time_writertc(int chan, int slaveaddr, int devaddr, int type, int b) 531 1.2.4.2 martin { 532 1.2.4.2 martin uint32_t reg; 533 1.2.4.2 martin int err, timer; 534 1.2.4.2 martin 535 1.2.4.2 martin /* 536 1.2.4.2 martin * Make sure the bus is idle (probably should 537 1.2.4.2 martin * ignore error here) 538 1.2.4.2 martin */ 539 1.2.4.2 martin 540 1.2.4.2 martin if (time_waitready(chan) < 0) 541 1.2.4.2 martin return (-1); 542 1.2.4.2 martin 543 1.2.4.2 martin /* 544 1.2.4.2 martin * Write the device address to the controller. There are two 545 1.2.4.2 martin * parts, the high part goes in the "CMD" field, and the 546 1.2.4.2 martin * low part is the data field. 547 1.2.4.2 martin */ 548 1.2.4.2 martin 549 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_CMD); 550 1.2.4.2 martin if (type == SMB_2BYTE_ADDR) 551 1.2.4.2 martin WRITE_REG(reg, (devaddr >> 8) & 0x7); 552 1.2.4.2 martin else /* SMB_1BYTE_ADDR */ 553 1.2.4.2 martin WRITE_REG(reg, devaddr & 0xff); 554 1.2.4.2 martin 555 1.2.4.2 martin /* 556 1.2.4.2 martin * Write the data to the controller 557 1.2.4.2 martin */ 558 1.2.4.2 martin 559 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_DATA); 560 1.2.4.2 martin if (type == SMB_2BYTE_ADDR) 561 1.2.4.2 martin WRITE_REG(reg, (devaddr & 0xff) | ((b & 0xff) << 8)); 562 1.2.4.2 martin else /* SMB_1BYTE_ADDR */ 563 1.2.4.2 martin WRITE_REG(reg, b & 0xff); 564 1.2.4.2 martin 565 1.2.4.2 martin /* 566 1.2.4.2 martin * Start the command. Keep pounding on the device until it 567 1.2.4.2 martin * submits or the timer expires, whichever comes first. The 568 1.2.4.2 martin * datasheet says writes can take up to 10ms, so we'll give it 500. 569 1.2.4.2 martin */ 570 1.2.4.2 martin 571 1.2.4.2 martin reg = A_SMB_REGISTER(chan, R_SMB_START); 572 1.2.4.2 martin if (type == SMB_2BYTE_ADDR) 573 1.2.4.2 martin WRITE_REG(reg, V_SMB_TT(K_SMB_TT_WR3BYTE) | V_SMB_ADDR(slaveaddr)); 574 1.2.4.2 martin else /* SMB_1BYTE_ADDR */ 575 1.2.4.2 martin WRITE_REG(reg, V_SMB_TT(K_SMB_TT_WR2BYTE) | V_SMB_ADDR(slaveaddr)); 576 1.2.4.2 martin 577 1.2.4.2 martin /* 578 1.2.4.2 martin * Wait till the SMBus interface is done 579 1.2.4.2 martin */ 580 1.2.4.2 martin 581 1.2.4.2 martin err = time_waitready(chan); 582 1.2.4.2 martin if (err < 0) 583 1.2.4.2 martin return (err); 584 1.2.4.2 martin 585 1.2.4.2 martin /* 586 1.2.4.2 martin * Pound on the device with a current address read 587 1.2.4.2 martin * to poll for the write complete 588 1.2.4.2 martin */ 589 1.2.4.2 martin 590 1.2.4.2 martin err = -1; 591 1.2.4.2 martin timer = 100000000; /* XXX */ 592 1.2.4.2 martin 593 1.2.4.2 martin while (timer-- > 0) { 594 1.2.4.2 martin WRITE_REG(reg, V_SMB_TT(K_SMB_TT_RD1BYTE) | V_SMB_ADDR(slaveaddr)); 595 1.2.4.2 martin 596 1.2.4.2 martin err = time_waitready(chan); 597 1.2.4.2 martin if (err == 0) 598 1.2.4.2 martin break; 599 1.2.4.2 martin } 600 1.2.4.2 martin 601 1.2.4.2 martin return (err); 602 1.2.4.2 martin } 603
Indexes created Wed Oct 22 13:09:56 GMT 2025