home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / Cia.mod < prev    next >
Encoding:
Text File  |  1992-11-02  |  1.2 KB  |  38 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE Cia;
  10.  
  11. IMPORT e * := Exec;
  12.  
  13. CONST
  14.  
  15.   ciaaName * = "ciaa.resource";
  16.   ciabName * = "ciab.resource";
  17.  
  18.  
  19. VAR
  20.  
  21. (*
  22.  *  You have to put a pointer to the cia?.resource here to use the cia
  23.  *  procedures:
  24.  *)
  25.  
  26.   base * : e.APTR;
  27.  
  28.  
  29. PROCEDURE AddICRVector *{base,- 6}(icrBit{0}    : SHORTINT;
  30.                                    interrupt{9} : e.InterruptPtr):e.InterruptPtr;
  31. PROCEDURE RemICRVector *{base,-12}(icrBit{0}    : SHORTINT;
  32.                                    interrupt{9} : e.InterruptPtr);
  33. PROCEDURE AbleICR      *{base,-18}(mask{0}      : SHORTSET):SHORTSET;
  34. PROCEDURE SetICR       *{base,-24}(mask{0}      : SHORTSET):SHORTSET;
  35.  
  36. END Cia.
  37.  
  38.