REM   Elapsed time measurement for the MC2000-077
REM
REM   Author: Steven R. Wheeler
REM
REM   Copyright 2002 Vesta Technology, Inc.
REM   All rights reserved.
REM
REM   Revision history:
REM     May 21, 2002     SRW
REM     Initial version.


REM   This file contains two routines which can be used for providing
REM   fairly accurate elapsed time measurements. The measured interval
REM   can be up to about 25 days. The system time information is lost
REM   when these routines are used.
REM
REM   Note that the TIMEDATE_POKE() and TIMEDATE_PEEK() routines can
REM   (and probably should) be used without being "wrapped" in the
REM   Start_Time() and End_Time() routines; the code is written this
REM   way so that the interface is compatible with the elapsed time
REM   code for the SBC2000-074.


REM   This routine is used to zero the time information

VITAL SUBROUTINE Start_Time()
	TIMEDATE_POKE(0)
END


REM   This function will return the current system time in milliseconds
REM   as a long value.

VITAL FUNCTION End_Time() AS LONG
	End_Time = TIMEDATE_PEEK()
END