/* TimerDevice.c ************************************************************
*
*	TimerDevice - Timer control routines, very useful.
*
*	Author...     Olaf 'Olsen' Barthel (ED Electronic Design Hannover)
*	              Brabeckstrasse 35
*	              D-3000 Hannover 71
*
****************************************************************************/

#include <exec/types.h>
#include <devices/timer.h>
#include <exec/memory.h>

struct timerequest	*tr_TimerRequest= NULL,*AllocMem();
struct MsgPort		*tr_TimerPort	= NULL,*CreatePort();

	/* CloseTimerDevice() :
	 *
	 *	Closes the timer.device.
	 */

void
CloseTimerDevice()
{
	if(tr_TimerRequest)
	{
		CloseDevice(tr_TimerRequest);
		FreeMem(tr_TimerRequest,sizeof(struct timerequest));
	}

	if(tr_TimerPort)
		DeletePort(tr_TimerPort);
}

	/* OpenTimerDevice() :
	 *
	 *	Opens the precision timer.
	 */


BOOL
OpenTimerDevice()
{
	if(!(tr_TimerPort = (struct MsgPort *)CreatePort(NULL,0)))
		return(FALSE);

	if(!(tr_TimerRequest = (struct timerequest *)AllocMem(sizeof(struct timerequest),MEMF_PUBLIC | MEMF_CLEAR)))
	{
		DeletePort(tr_TimerPort);
		return(FALSE);
	}

	if(OpenDevice(TIMERNAME,UNIT_VBLANK,tr_TimerRequest,0))
	{
		FreeMem(tr_TimerRequest,sizeof(struct timerequest));
		DeletePort(tr_TimerPort);
		return(FALSE);
	}

	tr_TimerRequest -> tr_node . io_Message . mn_ReplyPort	= tr_TimerPort;
	tr_TimerRequest -> tr_node . io_Command			= TR_ADDREQUEST;
	tr_TimerRequest -> tr_node . io_Flags			= 0;
	tr_TimerRequest -> tr_node . io_Error			= 0;

	return(TRUE);
}

	/* WaitTime(Seconds,Micros) :
	 *
	 *	Waits a couple of seconds/microseconds.
	 */

void
WaitTime(Seconds,Micros)
register ULONG Seconds,Micros;
{
	tr_TimerRequest -> tr_time . tv_secs	= Seconds;
	tr_TimerRequest -> tr_time . tv_micro	= Micros;

	DoIO(tr_TimerRequest);
}