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

TYPE

VAR
  CiabBase  : ResourcePtr;

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

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

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

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

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

END CiabResource.
