|##########|
|#MAGIC   #|CLABLNJM
|#PROJECT #|"IMPORTALL"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx-x-x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE CiaaResource;
(* $A- *)
FROM Exec     IMPORT InterruptPtr,Resource,ResourcePtr,Interrupt,IntVector;
FROM Hardware IMPORT CiaIcrFlagSet,IntFlagSet,CiaIcrFlags;
FROM System   IMPORT Regs;

VAR
  CiaaBase  : ResourcePtr;

LIBRARY  CiaaBase   BY -18
  PROCEDURE AbleIcr(mask IN D0  : CiaIcrFlagSet): CiaIcrFlagSet;

LIBRARY  CiaaBase   BY -6
  PROCEDURE AddICRVector(icrBit    IN D0 : CiaIcrFlags;
                         interrupt IN A1 : InterruptPtr):InterruptPtr;

LIBRARY  CiaaBase   BY -12
  PROCEDURE RemICRVector(icrBit    IN D0  : CiaIcrFlags;
                         interrupt IN A1  : InterruptPtr);

LIBRARY  CiaaBase   BY -24
  PROCEDURE SetICR(mask IN D0  : CiaIcrFlagSet):CiaIcrFlagSet;


GROUP
  All  = CiaaBase,AbleIcr,AddICRVector,RemICRVector,SetICR;

END CiaaResource.