home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / oberon / system / amigatimer.mod (.txt) < prev    next >
Oberon Text  |  1977-12-31  |  1KB  |  38 lines
  1. Syntax20b.Scn.Fnt
  2. ParcElems
  3. Alloc
  4. Syntax24b.Scn.Fnt
  5. Syntax10.Scn.Fnt
  6. Syntax10b.Scn.Fnt
  7. (* AMIGA *)
  8. MODULE AmigaTimer;
  9. IMPORT E:=AmigaExec;
  10. CONST
  11. (* unit defintions *)
  12.   microHz    * = 0;
  13.   vBlank     * = 1;
  14.   eClock     * = 2;
  15.   waitUntil  * = 3;
  16.   waitEClock * = 4;
  17.   timerName  * = "timer.device";
  18.   TimeValPtr * = LONGINT;
  19.   TimeVal*=RECORD
  20.    secs*:LONGINT;
  21.    micro*:LONGINT
  22.   END;
  23.   EClockValPtr * = LONGINT;
  24.   EClockVal * = RECORD
  25.     hi* : LONGINT;
  26.     lo* : LONGINT
  27.   END;
  28.   TimeRequestPtr * = LONGINT;
  29.   TimeRequest * = RECORD (E.IORequest)
  30.     time* : TimeVal
  31.   END;
  32. CONST
  33. (* IO_COMMAND to use for adding a timer *)
  34.   addRequest * = E.nonstd+0;
  35.   getSysTime * = E.nonstd+1;
  36.   setSysTime * = E.nonstd+2;
  37. END AmigaTimer.
  38.