Syntax20b.Scn.Fnt
ParcElems
Alloc
Syntax24b.Scn.Fnt
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
(* AMIGA *)
MODULE AmigaTimer;
IMPORT E:=AmigaExec;
CONST
(* unit defintions *)
  microHz    * = 0;
  vBlank     * = 1;
  eClock     * = 2;
  waitUntil  * = 3;
  waitEClock * = 4;
  timerName  * = "timer.device";
  TimeValPtr * = LONGINT;
  TimeVal*=RECORD
   secs*:LONGINT;
   micro*:LONGINT
  END;
  EClockValPtr * = LONGINT;
  EClockVal * = RECORD
    hi* : LONGINT;
    lo* : LONGINT
  END;
  TimeRequestPtr * = LONGINT;
  TimeRequest * = RECORD (E.IORequest)
    time* : TimeVal
  END;
CONST
(* IO_COMMAND to use for adding a timer *)
  addRequest * = E.nonstd+0;
  getSysTime * = E.nonstd+1;
  setSysTime * = E.nonstd+2;
END AmigaTimer.