home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / devices / timer.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.2 KB  |  60 lines
  1. {$if not def DEVICES_TIMER_H} CONST DEVICES_TIMER_H=0;
  2.  
  3. { *****************************************************************
  4.   ** KickPascal-Include-Datei "devices/timer.h" zu Kickstart 3.0 **
  5.   ***************************************************************** }
  6.  
  7. TYPE p_timeval = ^timeval;
  8. TYPE p_EClockVal = ^EClockVal;
  9. TYPE p_timerequest = ^timerequest;
  10.  
  11. {$if not def EXEC_IO_H;incl "exec/io.h";endif}
  12.  
  13. CONST
  14.  UNIT_MICROHZ    = 0;
  15.  UNIT_VBLANK     = 1;
  16.  UNIT_ECLOCK     = 2;
  17.  UNIT_WAITUNTIL  = 3;
  18.  UNIT_WAITECLOCK = 4;
  19.  
  20. CONST TIMERNAME = "timer.device";
  21.  
  22. TYPE timeval = RECORD
  23.  tv_secs  : Long;
  24.  tv_micro : Long;
  25. END;
  26.  
  27. TYPE EClockVal = RECORD
  28.  ev_hi : Long;
  29.  ev_lo : Long;
  30. END;
  31.  
  32. TYPE timerequest = RECORD
  33.  tr_node : IORequest;
  34.  tr_time : timeval;
  35. END;
  36.  
  37. CONST
  38.  TR_ADDREQUEST = CMD_NONSTD;
  39.  TR_GETSYSTIME = (CMD_NONSTD+1);
  40.  TR_SETSYSTIME = (CMD_NONSTD+2);
  41.  
  42. {$endif}
  43.  
  44.  
  45. {$if not def TIMER_LIB_H} CONST TIMER_LIB_H=0;
  46.  
  47. VAR TimerBase : Ptr;
  48.  
  49. LIBRARY TimerBase :
  50.  
  51. -42 : PROCEDURE AddTime(A0,A1:p_Timeval);
  52. -48 : PROCEDURE SubTime(A0,A1:p_Timeval);
  53. -54 : FUNCTION CmpTime(A0,A1:p_Timeval): LongInt;
  54. { **** Routinen ab V36 / Kickstart Release 2.0  **** }
  55. -60 : FUNCTION ReadEClock(A0:p_EClockVal): Long;
  56. -66 : PROCEDURE GetSysTime(a0: p_Timeval);
  57. END;
  58.  
  59. {$endif}
  60.