/* clkinit.c - clkinit, updateleds, dog_timeout */

#include <conf.h>
#include <kernel.h>
#include <sleep.h>
#include <i386.h>

/* Intel 8254-2 clock chip constants */

#define	CLOCKBASE	0x40	/* I/O base port of clock chip	*/
#define	CLOCK0		CLOCKBASE
#define	CLKCNTL		(CLOCKBASE+3)
				/* chip CSW I/O port		*/
    
/* real-time clock variables and sleeping process queue pointers	*/
    
#ifdef	RTCLOCK
/*int	count6;		/* counts in 60ths of a second 6-0	*/
/*int	count10;	/* counts in 10ths of second 10-0	*/
int	count100;	/* counts in 100ths of second 100-0	*/
long	ctr100;		/* counts in 100ths of second 0-INF	*/
/*extern long	cnt100;	/* counts in 100ths of second 10-0	*/
long	boottime;	/* boot time in second 			*/
int	clktime10m;	/* current time in 10 msec		*/
int	clmutex;	/* mutual exclusion for time-of-day	*/
long	clktime;	/* current time in seconds since 1/1/70	*/
int     defclk;		/* non-zero, then deferring clock count */
int     clkdiff;	/* deferred clock ticks			*/
int     slnempty;	/* FALSE if the sleep queue is empty	*/
int     *sltop;		/* address of key part of top entry in	*/
			/* the sleep queue if slnonempty==TRUE	*/
int     clockq;		/* head of queue of sleeping processes  */
int	preempt;	/* preemption counter.	Current process */
			/* is preempted when it reaches zero;	*/
#ifdef	RTCLOCK		/* set in resched; counts in ticks	*/
int	clkruns;	/* set TRUE iff clock exists by setclkr	*/
#else
int	clkruns = FALSE;/* no clock configured; be sure sleep	*/
#endif			/*   doesn't wait forever		*/

/*
 *----------------------------------------------------------
 * clkinit - initialize the clock and sleep queue 
 * (called at startup)
 *----------------------------------------------------------
 */
clkinit()
{
	unsigned char	tmp;
	unsigned short	intv;
	int clkint();

	set_evec(IRQBASE, clkint);

	/* clock rate is 1.190 Mhz; this is 10ms interrupt rate */
/*	intv = 11900;*/
	/* default clock rate is 1.193182 Mhz */
	intv = 11932;

	count100 = 1000;
	clktime10m = 0;

	clkruns = 1;
	clockq = newqueue();
	preempt = QUANTUM;	/* initial time quantum	*/

	/* real time clock initialize */
	rtcinit();

	/*  set to: timer 0, 16-bit counter, rate generator mode,
		counter is binary */
	outb(CLKCNTL, 0x34);
	/* must write LSB first, then MSB */
	outb(CLOCK0, (char)intv);
	outb(CLOCK0, intv>>8);
	outb(CLOCK0, intv>>8);

	enable_clk();

}
#endif


#ifdef notyet
/*
 * dog_timeout -- called when the watchdog timer determines that
 * interrupts have been disabled for too long
 */
dog_timeout()
{
    STATWORD ps;

    disable(ps);
    kprintf("\n\nWatchdog timeout!! -- interrupts disabled too long.\n");
    ret_mon();
    restore(ps);
    return;
}
#endif /* not yet */

int
clktest()
{
	kprintf("from clkint, ctr100 %d\n", ctr100);
}