home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / Cia.def < prev    next >
Text File  |  1996-08-01  |  954b  |  37 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: cia.h 36.4 (9.1.91)
  4. **    Includes Release 40.15
  5. **
  6. **      Interface module by Marcel Timmermans
  7. **      (C) Copyright 1995-1996 Marcel Timmermans
  8. **          All Rights Reserved
  9. *)
  10.  
  11. (*$ Implementation- *)
  12. DEFINITION MODULE Cia;
  13.  
  14. FROM SYSTEM   IMPORT ADDRESS;
  15. FROM ExecD    IMPORT InterruptPtr;
  16. FROM Hardware IMPORT CiaIcrFlags,CiaIcrFlagSet;
  17.  
  18. IMPORT Reg;
  19.  
  20. CONST
  21.  
  22.   ciaaName = "ciaa.resource";
  23.   ciabName = "ciab.resource";
  24.  
  25.  
  26. PROCEDURE AddICRVector(cia{Reg.A6}:ADDRESS;icrBit{Reg.D0}:CiaIcrFlags;
  27.                        interrupt{Reg.A1}:InterruptPtr):InterruptPtr; CODE -6;
  28.  
  29. PROCEDURE RemICRVector(cia{Reg.A6}:ADDRESS;icrBit{Reg.D0}:CiaIcrFlags;
  30.                        interrupt{Reg.A1}:InterruptPtr); CODE -12;
  31.  
  32. PROCEDURE AbleICR(cia{Reg.A6}:ADDRESS;mask{Reg.D0}:CiaIcrFlagSet):CiaIcrFlagSet; CODE -18;
  33.  
  34. PROCEDURE SetICR(cia{Reg.A6}:ADDRESS;mask{Reg.D0}:CiaIcrFlagSet):CiaIcrFlagSet; CODE -24;
  35.  
  36. END Cia.
  37.