home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / Potgo.def < prev    next >
Text File  |  1996-08-01  |  888b  |  39 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: potgo.h 36.0 (13.4.90)
  4. **    Includes Release 40.15
  5. **
  6. **    potgo resource name
  7. **
  8. **    (C) Copyright 1986-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 Potgo;
  18.  
  19. FROM SYSTEM   IMPORT ADDRESS;
  20. FROM Hardware IMPORT PotFlags,PotFlagSet;
  21.  
  22. IMPORT Reg;
  23.  
  24. CONST
  25.  potgoName="potgo.resource";
  26.  
  27. TYPE
  28.  PotgoBits   = PotFlags;
  29.  PotgoBitSet = PotFlagSet;
  30.  
  31. PROCEDURE AllocPotBits(potgo{Reg.A6}:ADDRESS;bits{Reg.D0}:PotgoBitSet):PotgoBitSet; CODE -6;
  32.  
  33. PROCEDURE FreePotBits(potgo{Reg.A6}:ADDRESS;allocated{Reg.D0}:PotgoBitSet); CODE -12;
  34.  
  35. PROCEDURE WritePotgo(potgo{Reg.A6}:ADDRESS;word{Reg.D0}:PotgoBitSet;
  36.                      mask{Reg.D1}:PotgoBitSet); CODE -18;
  37.  
  38. END Potgo.
  39.