Unit TIMER;

Interface

Type
  TimerBuf = LongInt;

Procedure StartTimer(Var t: TimerBuf);
Function TrapTimer(t: TimerBuf; MilliSeconds: Word): Boolean;

Implementation

Procedure StartTimer(Var t: TimerBuf);
Begin
  t := MemL[Seg0040:$6C]
End;

Function TrapTimer(t: TimerBuf; MilliSeconds: Word): Boolean;
Begin
  TrapTimer := Trunc(t+MilliSeconds/54.92549322) > MemL[Seg0040:$6C]
End;

End.