/*	$NetBSD: tsrtc.c,v 1.2 2005/12/11 12:17:11 christos Exp $	*/

/*
 * Copyright (c) 1995, 1996 Carnegie-Mellon University.
 * All rights reserved.
 *
 * Author: Chris G. Demetriou
 *
 * Permission to use, copy, modify and distribute this software and
 * its documentation is hereby granted, provided that both the copyright
 * notice and this permission notice appear in all copies of the
 * software, derivative works or modified versions, and any portions
 * thereof, and that both notices appear in supporting documentation.
 *
 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND
 * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
 *
 * Carnegie Mellon requests users of this software to return to
 *
 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
 *  School of Computer Science
 *  Carnegie Mellon University
 *  Pittsburgh PA 15213-3890
 *
 * any improvements or extensions that they make and grant Carnegie the
 * rights to redistribute these changes.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: tsrtc.c,v 1.2 2005/12/11 12:17:11 christos Exp $");

#include <sys/cdefs.h>			/* RCS ID & Copyright macro defns */

#include <sys/param.h>
#include <sys/kernel.h>
#include <sys/systm.h>
#include <sys/device.h>

#include <machine/bus.h>

#include <dev/clock_subr.h>
#include <dev/ic/mc146818reg.h>
#include <dev/ic/mc146818var.h>

#include <evbarm/tsarm/tspldvar.h>
#include <evbarm/tsarm/tsarmreg.h>

int	tsrtc_match __P((struct device *, struct cfdata *, void *));
void	tsrtc_attach __P((struct device *, struct device *, void *));

struct tsrtc_softc {
	struct mc146818_softc	sc_mc;
	bus_space_tag_t		sc_iot;
	bus_space_handle_t	sc_dath;
	bus_space_handle_t	sc_idxh;
};

CFATTACH_DECL(tsrtc, sizeof (struct tsrtc_softc),
    tsrtc_match, tsrtc_attach, NULL, NULL);

void	tsrtc_write __P((struct mc146818_softc *, u_int, u_int));
u_int	tsrtc_read __P((struct mc146818_softc *, u_int));


int
tsrtc_match(parent, match, aux)
	struct device *parent;
	struct cfdata *match;
	void *aux;
{
	struct tspld_attach_args *aa = aux;
	struct tsrtc_softc tsrtc, *sc;
	unsigned int t1, t2;
	static int found = -1;

	if (found != -1) return found;

	sc = &tsrtc;
	sc->sc_iot = aa->ta_iot;
	if (bus_space_map(sc->sc_iot, TS7XXX_IO8_HWBASE + TS7XXX_RTCIDX, 1, 0,
		 &sc->sc_idxh))
		return (0);
	if (bus_space_map(sc->sc_iot, TS7XXX_IO8_HWBASE + TS7XXX_RTCDAT, 1, 0,
		 &sc->sc_dath))
		return (0);

	/* Read from the seconds counter. */
	t1 = FROMBCD(tsrtc_read((struct mc146818_softc *)sc, MC_SEC));
	if (t1 > 59)
		goto unmap;

	/* Wait, then look again. */
	DELAY(1100000);
	t2 = FROMBCD(tsrtc_read((struct mc146818_softc *)sc, MC_SEC));
	if (t2 > 59)
		goto unmap;

        /* If [1,2) seconds have passed since, call it a clock. */
	if ((t1 + 1) % 60 == t2 || (t1 + 2) % 60 == t2)
		found = 1;

 unmap:
	bus_space_unmap(sc->sc_iot, sc->sc_idxh, 1);
	bus_space_unmap(sc->sc_iot, sc->sc_dath, 1);

	return (found);
}

void
tsrtc_attach(parent, self, aux)
	struct device *parent, *self;
	void *aux;
{
	struct tsrtc_softc *sc = (void *)self;
	struct tspld_attach_args *aa = aux;

	sc->sc_iot = aa->ta_iot;
	if (bus_space_map(sc->sc_iot, TS7XXX_IO8_HWBASE + TS7XXX_RTCIDX,
	    1, 0, &sc->sc_idxh))
		panic("tsrtc_attach: couldn't map clock I/O space");
	if (bus_space_map(sc->sc_iot, TS7XXX_IO8_HWBASE + TS7XXX_RTCDAT,
	    1, 0, &sc->sc_dath))
		panic("tsrtc_attach: couldn't map clock I/O space");

	sc->sc_mc.sc_year0 = 2000;
	sc->sc_mc.sc_mcread = tsrtc_read;
	sc->sc_mc.sc_mcwrite = tsrtc_write;
	sc->sc_mc.sc_flag = MC146818_BCD;
	mc146818_attach(&sc->sc_mc);

	printf("\n");

	(*sc->sc_mc.sc_mcwrite)((struct mc146818_softc *)sc, MC_REGB, 
		MC_REGB_24HR);

	todr_attach(&sc->sc_mc.sc_handle);
}

void
tsrtc_write(mc_sc, reg, datum)
	struct mc146818_softc *mc_sc;
	u_int reg, datum;
{
	struct tsrtc_softc *sc = (struct tsrtc_softc *)mc_sc;

	bus_space_write_1(sc->sc_iot, sc->sc_idxh, 0, reg);
	bus_space_write_1(sc->sc_iot, sc->sc_dath, 0, datum);
}

u_int
tsrtc_read(mc_sc, reg)
	struct mc146818_softc *mc_sc;
	u_int reg;
{
	struct tsrtc_softc *sc = (struct tsrtc_softc *)mc_sc;
	u_int datum;

	bus_space_write_1(sc->sc_iot, sc->sc_idxh, 0, reg);
	datum = bus_space_read_1(sc->sc_iot, sc->sc_dath, 0);

	return (datum);
}