home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / PotgoResource.def < prev    next >
Text File  |  1994-05-25  |  845b  |  33 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLID
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE PotgoResource;
  11. (* $A- *)
  12. FROM Exec     IMPORT LibraryPtr;
  13. FROM Hardware IMPORT PotFlags,PotFlagSet;
  14. FROM System   IMPORT Regs;
  15.  
  16. VAR
  17.   PotgoBase : LibraryPtr;
  18.  
  19. LIBRARY  PotgoBase  BY -6
  20.   PROCEDURE AllocPotBits(bits     IN D0 : PotFlagSet):PotFlagSet;
  21.  
  22. LIBRARY  PotgoBase  BY -12
  23.   PROCEDURE FreePotBits(allocated IN D0 : PotFlagSet);
  24.  
  25. LIBRARY  PotgoBase  BY -18
  26.   PROCEDURE WritePotgo(word       IN D0  : PotFlagSet;
  27.                        mask       IN D1  : PotFlagSet);
  28.  
  29. GROUP
  30.   All  = PotgoBase,AllocPotBits,FreePotBits,WritePotgo,PotFlags,PotFlagSet;
  31.  
  32. END PotgoResource.
  33.