home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / CiaaResource.def < prev    next >
Text File  |  1994-05-25  |  1KB  |  38 lines
  1. |##########|
  2. |#MAGIC   #|CLABLNJM
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE CiaaResource;
  11. (* $A- *)
  12. FROM Exec     IMPORT InterruptPtr,Resource,ResourcePtr,Interrupt,IntVector;
  13. FROM Hardware IMPORT CiaIcrFlagSet,IntFlagSet,CiaIcrFlags;
  14. FROM System   IMPORT Regs;
  15.  
  16. VAR
  17.   CiaaBase  : ResourcePtr;
  18.  
  19. LIBRARY  CiaaBase   BY -18
  20.   PROCEDURE AbleIcr(mask IN D0  : CiaIcrFlagSet): CiaIcrFlagSet;
  21.  
  22. LIBRARY  CiaaBase   BY -6
  23.   PROCEDURE AddICRVector(icrBit    IN D0 : CiaIcrFlags;
  24.                          interrupt IN A1 : InterruptPtr):InterruptPtr;
  25.  
  26. LIBRARY  CiaaBase   BY -12
  27.   PROCEDURE RemICRVector(icrBit    IN D0  : CiaIcrFlags;
  28.                          interrupt IN A1  : InterruptPtr);
  29.  
  30. LIBRARY  CiaaBase   BY -24
  31.   PROCEDURE SetICR(mask IN D0  : CiaIcrFlagSet):CiaIcrFlagSet;
  32.  
  33.  
  34. GROUP
  35.   All  = CiaaBase,AbleIcr,AddICRVector,RemICRVector,SetICR;
  36.  
  37. END CiaaResource.
  38.