home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / CiabResource.def < prev    next >
Encoding:
Text File  |  1994-05-25  |  1.0 KB  |  39 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLHE
  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 CiabResource;
  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. TYPE
  17.  
  18. VAR
  19.   CiabBase  : ResourcePtr;
  20.  
  21. LIBRARY  CiabBase   BY -18
  22.   PROCEDURE AbleIcr(mask IN D0  : CiaIcrFlagSet): CiaIcrFlagSet;
  23.  
  24. LIBRARY  CiabBase   BY -6
  25.   PROCEDURE AddICRVector(icrBit    IN D0 : CiaIcrFlags;
  26.                          interrupt IN A1 : InterruptPtr):InterruptPtr;
  27.  
  28. LIBRARY  CiabBase   BY -12
  29.   PROCEDURE RemICRVector(icrBit    IN D0  : CiaIcrFlags;
  30.                         interrupt IN A1  : InterruptPtr);
  31.  
  32. LIBRARY  CiabBase   BY -24
  33.   PROCEDURE SetICR(mask IN D0  : CiaIcrFlagSet):CiaIcrFlagSet;
  34.  
  35. GROUP
  36.   All  = CiabBase,AbleIcr,AddICRVector,RemICRVector,SetICR;
  37.  
  38. END CiabResource.
  39.