home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / Timer.def < prev    next >
Encoding:
Modula Definition  |  1988-11-06  |  728 b   |  38 lines
  1. (*$M-*)
  2. DEFINITION MODULE Timer;
  3.  
  4. FROM SYSTEM IMPORT
  5.  ADDRESS;
  6. FROM Exec IMPORT
  7.  nonstd,IORequest;
  8.  
  9. CONST
  10.  timerName="timer.device";
  11.  addRequest=nonstd+0;
  12.  getSysTime=nonstd+1;
  13.  setSysTime=nonstd+2;
  14.  microHz=0;
  15.  vBlank=1;
  16.  
  17. TYPE
  18.  TimeVal=RECORD
  19.   secs:LONGCARD;
  20.   micro:LONGCARD
  21.  END;
  22.  TimeValPtr=POINTER TO TimeVal;
  23.  IOTimer=RECORD
  24.   node:IORequest;
  25.   time:TimeVal
  26.  END;
  27.  IOTimerPtr=POINTER TO IOTimer;
  28.  
  29. PROCEDURE AddTime(timer{14}:ADDRESS;
  30.                   dest{8},source{9}:TimeValPtr); CODE -42;
  31. PROCEDURE CmpTime(timer{14}:ADDRESS;
  32.                   tv1{8},
  33.                   tv2{9}:TimeValPtr):INTEGER; CODE -54;
  34. PROCEDURE SubTime(timer{14}:ADDRESS; 
  35.                   dest{8},source{9}:TimeValPtr); CODE -48;
  36.  
  37. END Timer.
  38.