home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / devices / timer < prev    next >
Encoding:
Text File  |  1989-04-08  |  545 b   |  28 lines
  1.  
  2. EQU  UNIT_MICROHZ       0
  3. EQU  UNIT_VBLANK        1
  4.  
  5. {s timeval
  6.     LONG    tv_secs
  7.     LONG    tv_micro
  8.    s}
  9.  
  10. {s timerequest
  11.     struct  32 tr_node      ( { IORequest=32;exec/io )
  12.     STRUCT  timeval tr_time
  13.    s}
  14.  
  15.  
  16. EQU  TR_ADDREQUEST    9+0   ( CMD_NONSTD=9;exec/io )
  17. EQU  TR_GETSYSTIME    9+1
  18. EQU  TR_SETSYSTIME    9+2
  19.  
  20. : TIMERNAME   " timer.device"  drop  ;
  21.  
  22. libindex: >Timer
  23.  
  24. >Timer   -042 (r A1 A0 r) AddTime (s src dest -- )
  25. >Timer   -048 (r A1 A0 r) SubTime (s src dest -- )
  26. >Timer ^ -054 (r A1 A0 r) CmpTime (s src dest -- -1|0|+1 )
  27.  
  28.