home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / BattClock.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  659 b   |  49 lines
  1. unit BattClock;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. var
  8.     BattClockBase: pLibrary;
  9.  
  10.  
  11. const
  12.     RESOURCES_BATTCLOCK_H = 1;
  13.     BATTCLOCKNAME = 'battclock.resource';
  14.  
  15.  
  16. procedure ResetBattClock;
  17. function ReadBattClock: long;
  18. procedure WriteBattClock (time: long);
  19.  
  20.  
  21. IMPLEMENTATION
  22. procedure ResetBattClock; xassembler;
  23. asm
  24.     move.l    a6,-(sp)
  25.     move.l    BattClockBase,a6
  26.     jsr        -6(a6)
  27.     move.l    (sp)+,a6
  28. end;
  29.  
  30. function ReadBattClock; xassembler;
  31. asm
  32.     move.l    a6,-(sp)
  33.     move.l    BattClockBase,a6
  34.     jsr        -$C(a6)
  35.     move.l    d0,8(sp)
  36.     move.l    (sp)+,a6
  37. end;
  38.  
  39. procedure WriteBattClock; xassembler;
  40. asm
  41.     move.l    a6,-(sp)
  42.     move.l    8(sp),d0
  43.     move.l    BattClockBase,a6
  44.     jsr        -$12(a6)
  45.     move.l    (sp)+,a6
  46. end;
  47.  
  48. end.
  49.