/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include	"u.h"#include	"../port/lib.h"#include	"mem.h"#include	"dat.h"#include	"io.h"#include	"fns.h"#include	"ureg.h" static	ulong	clkreload; voiddelayloopinit(void){	ulong v;	uvlong x; 	/* initial value for loopconst set in machinit */	m->loopconst = 1000;	v = getdec();	delay(1000);	v -= getdec(); 	x = m->loopconst;	x *= m->dechz;	x /= v;	m->loopconst = x;} voidclockinit(void){	m->dechz = m->bushz/4;	/* true for all 604e */	m->tbhz = m->dechz;	/* conjecture; manual doesn't say */ 	delayloopinit(); 	clkreload = m->dechz/HZ-1;	putdec(clkreload);} voidclockintr(Ureg *){	long v; 	v = -getdec();	if(v > (clkreload >> 1)){		if(v > clkreload)			m->ticks += v/clkreload;		v = 0;	}	putdec(clkreload-v);} voiddelay(int l){	ulong i, j; 	j = 0;	if(m)		j = m->loopconst;	if(j == 0)		j = 1096;	while(l-- > 0)		for(i=0; i < j; i++)			;} voidmicrodelay(int l){	ulong i; 	l *= m->loopconst;	l += 500;	l /= 1000;	if(l <= 0)		l = 1;	for(i = 0; i < l; i++)		;} ulongperfticks(void){	return (ulong)fastticks(nil);}