Category : Modula II Source Code
Archive   : M2-LIB2.ZIP
Filename : PMPTIMER.MOD

(*====================================================================
= Program Id: PMPTIMER.MOD =
= Programmer: Peter M. Perchansky =
= Purpose: Export timing procedures. =
= Date Written: 12-16-89 =
====================================================================*)

IMPLEMENTATION MODULE PMPTimer;

FROM PMPDos IMPORT DayType, GetDate, GetTime;

TYPE
TimeRec = RECORD
day : CARDINAL;
time : LONGCARD;
END;

VAR
tick [40H:108] : LONGCARD;
(* number of ticks (18.2 times per second) since midnight *)

tickInstall : LONGCARD;
(* timer tick at installation *)

timeInstall : TimeRec;
(* time of installation using StartTimer *)

PROCEDURE StartTimer ();
(* Saves current day and time value in timeInstall *)

VAR
hrs, min, sec, hsec : CARDINAL;
day, month, year : CARDINAL;
hsecValue : LONGCARD;
dayType : DayType;

BEGIN
GetDate (day, month, year, dayType);
GetTime (hrs, min, sec, hsec);

timeInstall.day := day;
hsecValue := (LONGCARD (hrs) * 360000) + (LONGCARD (min) * 6000)
+ (LONGCARD (sec) * 100) + LONGCARD (hsec);

timeInstall.time := hsecValue;
END StartTimer;

PROCEDURE ElapsedTime () : LONGCARD;
(* Returns elapsed time from call to StartTimer to *)
(* current time. Elapsed time is in hundredths of *)
(* a second. *)

VAR
day, month, year : CARDINAL;
hrs, min, sec, hsec : CARDINAL;
hsecValue : LONGCARD;
dayType : DayType;

BEGIN
GetTime (hrs, min, sec, hsec);
GetDate (day, month, year, dayType);

IF day > timeInstall.day THEN
INC (hrs, 23) (* hrs go from 0..23 *)
END;

hsecValue := (LONGCARD (hrs) * 360000) + (LONGCARD (min) * 6000)
+ (LONGCARD (sec) * 100) + LONGCARD (hsec);

RETURN (hsecValue - timeInstall.time);
END ElapsedTime;

PROCEDURE StartTick ();
(* Saves number of ticks at time of installation. *)

BEGIN
tickInstall := tick;
END StartTick;

PROCEDURE ElapsedTicks (): LONGCARD;
(* Returns elapsed time from call of StartTick to *)
(* current tick value. Elapsed time is in seconds. *)

BEGIN
RETURN (LONGCARD (FLOAT (ABS (tick - tickInstall)) / 18.20));
END ElapsedTicks;

END PMPTimer.