sys/arch/prep/pnpbus/mcclock_pnpbus.c

   1 /* $NetBSD: mcclock_pnpbus.c,v 1.8 2008/03/29 17:52:46 matt Exp $ */
   2 /*-
   3  * Copyright (c) 2006 The NetBSD Foundation, Inc.
   4  * All rights reserved.
   5  *
   6  * This code is derived from software contributed to The NetBSD Foundation
   7  * by Tim Rightnour
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  *
  18  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  19  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  20  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  21  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  22  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  23  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  24  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  25  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  26  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  27  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  28  * POSSIBILITY OF SUCH DAMAGE.
  29  */
  30
  31 /*
  32  * PNPBus driver for the mc146818 compatible time-of-day clock found on all
  33  * IBM Prep machines.  This one is only discernable from the motorola clock
  34  * part by the interface portion of the residual data. (or by the small vendor
  35  * item chip id)
  36  * NOTE: The IBM machines actually have either a dallas 1385 or a dallas 1585
  37  * chip.  This driver should probably be replaced by something that does that
  38  * one day.
  39  */
  40
  41 #include <sys/cdefs.h>
  42 __KERNEL_RCSID(0, "$NetBSD: mcclock_pnpbus.c,v 1.8 2008/03/29 17:52:46 matt Exp $");
  43
  44 #include <sys/types.h>
  45 #include <sys/param.h>
  46 #include <sys/systm.h>
  47 #include <sys/device.h>
  48 #include <sys/malloc.h>
  49
  50 #include <machine/bus.h>
  51 #include <machine/intr.h>
  52 #include <machine/isa_machdep.h>
  53 #include <machine/residual.h>
  54 #include <machine/chpidpnp.h>
  55 /* XXX */
  56 #include <machine/pio.h>
  57
  58 #include <dev/clock_subr.h>
  59 #include <dev/ic/mc146818reg.h>
  60 #include <dev/ic/mc146818var.h>
  61 #include <dev/ic/ds1687reg.h>
  62
  63 #include <dev/isa/isavar.h>
  64
  65 #include <prep/pnpbus/pnpbusvar.h>
  66
  67 static int      mcclock_pnpbus_probe(device_t, cfdata_t, void *);
  68 static void     mcclock_pnpbus_attach(device_t, device_t, void *);
  69
  70 extern struct cfdriver mcclock_cd;
  71
  72 CFATTACH_DECL_NEW(mcclock_pnpbus, sizeof(struct mc146818_softc),
  73     mcclock_pnpbus_probe, mcclock_pnpbus_attach, NULL, NULL);
  74
  75 void    mcclock_pnpbus_write(struct mc146818_softc *, u_int, u_int);
  76 u_int   mcclock_pnpbus_read(struct mc146818_softc *, u_int);
  77 void    ds1585_reboot(void);
  78
  79 int have_ds1585 = 0;
  80 #define MCCLOCK_STD_DEV         0
  81
  82 static int
  83 mcclock_pnpbus_probe(device_t parent, cfdata_t cf, void *aux)
  84 {
  85         struct pnpbus_dev_attach_args *pna = aux;
  86         int ret = 0;
  87
  88         if (strcmp(pna->pna_devid, "PNP0B00") == 0 &&
  89             pna->subtype == RealTimeClock && pna->chipid == DallasRTC)
  90                 ret = 1;
  91         if (strcmp(pna->pna_devid, "PNP0B00") == 0 &&
  92             pna->subtype == RealTimeClock && pna->chipid == Dallas1585)
  93                 ret = 1;
  94
  95         if (ret)
  96                 pnpbus_scan(pna, pna->pna_ppc_dev);
  97         return ret;
  98 }
  99
 100 static void
 101 mcclock_pnpbus_attach(device_t parent, device_t self, void *aux)
 102 {
 103         struct mc146818_softc *sc = device_private(self);
 104         struct pnpbus_dev_attach_args *pna = aux;
 105
 106         sc->sc_dev = self;
 107         sc->sc_bst = pna->pna_iot;
 108         if (pnpbus_io_map(&pna->pna_res, 0, &sc->sc_bst, &sc->sc_bsh)) {
 109                 /* XXX should we panic instead? */
 110                 aprint_error(": couldn't map clock I/O space\n");
 111                 return;
 112         }
 113
 114         if (pna->chipid == Dallas1585)
 115                 have_ds1585 = 1;
 116         sc->sc_year0 = 1900;
 117         sc->sc_mcread = mcclock_pnpbus_read;
 118         sc->sc_mcwrite = mcclock_pnpbus_write;
 119         sc->sc_flag = MC146818_BCD;
 120         mc146818_attach(sc);
 121
 122         aprint_normal("\n");
 123
 124         (*sc->sc_mcwrite)(sc, MC_REGB, MC_REGB_24HR);
 125 }
 126
 127 void
 128 ds1585_reboot(void)
 129 {
 130         struct mc146818_softc *sc;
 131         int i, j;
 132
 133         if (!have_ds1585)
 134                 return;
 135
 136         sc = device_lookup_private(&mcclock_cd, MCCLOCK_STD_DEV);
 137
 138         /* monitors b0: 05,03,01  b1: 49, WIE=1 */
 139
 140         (*sc->sc_mcwrite)(sc, DS1687_ASEC, 0);
 141
 142         /* If we are nearing 59 minutes on the hour, the math is too complex
 143          * to compute out when to reboot, so we just wait for the clock to
 144          * flip back over to zero, then set the alarm time.
 145          */
 146         i = (*sc->sc_mcread)(sc, DS1687_MIN);
 147         if (i == 0x58) {
 148                 (*sc->sc_mcwrite)(sc, DS1687_AMIN, 0x59);
 149                 (*sc->sc_mcwrite)(sc, DS1687_ASEC, 0x59);
 150                 i = 0x59;
 151         } else {
 152                 while (i == 0x59) {
 153                         delay(100);
 154                         i = (*sc->sc_mcread)(sc, DS1687_MIN);
 155                 }
 156                 i += 2;
 157                 if ((i & 0x0f) > 8)
 158                         i = (i & 0xf0) + 0x10;
 159                 (*sc->sc_mcwrite)(sc, DS1687_AMIN, i);
 160         }
 161         i = (*sc->sc_mcread)(sc, DS1687_HOUR);
 162         (*sc->sc_mcwrite)(sc, DS1687_AHOUR, i);
 163         j = (*sc->sc_mcread)(sc, DS1687_DOM); /* get date */
 164         i = (*sc->sc_mcread)(sc, DS1687_CONTROLA);
 165         i |= DS1687_BANK1; /* set DV0 on */
 166         (*sc->sc_mcwrite)(sc, DS1687_CONTROLA, i);
 167         /* write today into wakeup */
 168         (*sc->sc_mcwrite)(sc, DS1687_BANK1_ADATE, j);
 169         i = (*sc->sc_mcread)(sc, 0x4b); /* bank1 reg B */
 170         i |= 0x82; /* WIE + ABE */
 171         (*sc->sc_mcwrite)(sc, 0x4b, i);
 172         i = (*sc->sc_mcread)(sc, 0x4b);
 173         /* XXX power control bit on 7024/7025 */
 174         outb(PREP_BUS_SPACE_IO + 0x856, 1);
 175         for (;;);
 176 }
 177
 178 void
 179 mcclock_pnpbus_write(struct mc146818_softc *sc, u_int reg, u_int datum)
 180 {
 181         bus_space_tag_t iot;
 182         bus_space_handle_t ioh;
 183
 184         iot = sc->sc_bst;
 185         ioh = sc->sc_bsh;
 186
 187         bus_space_write_1(iot, ioh, 0, reg);
 188         bus_space_write_1(iot, ioh, 1, datum);
 189 }
 190
 191 u_int
 192 mcclock_pnpbus_read(struct mc146818_softc *sc, u_int reg)
 193 {
 194         bus_space_tag_t iot;
 195         bus_space_handle_t ioh;
 196         u_int datum;
 197
 198         iot = sc->sc_bst;
 199         ioh = sc->sc_bsh;
 200
 201         bus_space_write_1(iot, ioh, 0, reg);
 202         datum = bus_space_read_1(iot, ioh, 1);
 203
 204         return (datum);
 205 }