home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source1.lha / source / amiga / Cia.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.8 KB  |  90 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: Cia.mod $
  4.   Description: Interface to ciaa.resource and ciab.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   Includes Release 40.15
  12.  
  13.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  14.       All Rights Reserved
  15.  
  16.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  17.   This file is part of the Oberon-A Interface.
  18.   See Oberon-A.doc for conditions of use and distribution.
  19.  
  20. ***************************************************************************)
  21.  
  22. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  23.  
  24. MODULE [2] Cia;
  25.  
  26. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  27. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  28.  
  29. IMPORT e := Exec, s := Sets;
  30.  
  31.  
  32. (*
  33. **      $VER: cia.h 36.4 (9.1.91)
  34. **
  35. **      Cia resource name strings.
  36. *)
  37.  
  38. CONST
  39.  
  40.   ciaaName * = "ciaa.resource";
  41.   ciabName * = "ciab.resource";
  42.  
  43. (*
  44. **      $VER: ciabase.h 1.2 (16.5.90)
  45. **
  46. **      cia base definitions
  47. *)
  48.  
  49.  
  50. (*
  51.  *      There is no public information in CiaBase
  52.  *)
  53.  
  54.  
  55. (**-- Resource Base variable --------------------------------------------*)
  56.  
  57. (*
  58.  *  You have to put a pointer to the cia?.resource here to use the cia
  59.  *  procedures:
  60.  *)
  61.  
  62. VAR
  63.  
  64.   base * : e.APTR;
  65.  
  66.  
  67. (**-- Resource Functions ------------------------------------------------*)
  68.  
  69. (*
  70. **      $VER: cia_protos.h 1.7 (19.7.90)
  71. *)
  72.  
  73.  
  74. PROCEDURE AddICRVector* [base,-6]
  75.   ( icrBit    [0] : SHORTINT;
  76.     interrupt [9] : e.InterruptPtr )
  77.   : e.InterruptPtr;
  78. PROCEDURE RemICRVector* [base,-12]
  79.   ( icrBit    [0] : LONGINT;
  80.     interrupt [9] : e.InterruptPtr );
  81. PROCEDURE AbleICR* [base,-18]
  82.   ( mask [0] : s.SET8 )
  83.   : s.SET8;
  84. PROCEDURE SetICR* [base,-24]
  85.   ( mask [0] : s.SET8 )
  86.   : s.SET8;
  87.  
  88. BEGIN base := NIL
  89. END Cia.
  90.