/* A high-resolution wall-clock timer for the RS/6000
   This code uses the timer.s assembly language code to
   get at the high resolution timer registers, which are
   reported to have a resolution of better than 10 clock
   periods (i.e. better than 0.5 microseconds) */

double hires()
{
	double	tl,tu;

	tu = rtc_upper();
	tl = rtc_lower();

	return ( tu + tl*1.e-9 );
}