home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / BattClock.def < prev    next >
Text File  |  1996-08-01  |  710b  |  32 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: battclock.h 36.4 (1.5.90)
  4. **    Includes Release 40.15
  5. **
  6. **    BattClock resource name strings.
  7. **
  8. **    (C) Copyright 1989-1993 Commodore-Amiga Inc.
  9. **        All Rights Reserved
  10. **
  11. **      Interface module by Marcel Timmermans
  12. **      (C) Copyright 1995-1996 Marcel Timmermans
  13. **          All Rights Reserved
  14. *)
  15.  
  16. (*$ Implementation- *)
  17. DEFINITION MODULE BattClock;
  18.  
  19. FROM SYSTEM IMPORT ADDRESS;
  20.  
  21. IMPORT Reg;
  22.  
  23. CONST
  24.  battclockName="battclock.resource";
  25.  
  26. PROCEDURE ResetBattClock(base{Reg.A6}:ADDRESS); CODE -6;
  27. PROCEDURE ReadBattClock(base{Reg.A6}:ADDRESS):LONGCARD; CODE -12;
  28. PROCEDURE WriteBattClock(base{Reg.A6}:ADDRESS;time{Reg.D0}:LONGCARD); CODE -18;
  29.  
  30.  
  31. END BattClock.
  32.