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 / Input.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.3 KB  |  61 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: Input.mod $
  4.   Description: Interface to input.device
  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] Input;
  25.  
  26. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  27. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  28.  
  29. IMPORT e := Exec, s := Sets;
  30.  
  31.  
  32. (*
  33. **      $VER: input.h 36.0 (1.5.90)
  34. **
  35. **      input device command definitions
  36. *)
  37.  
  38. CONST
  39.  
  40.   addHandler    * = e.nonstd+0;
  41.   remHandler    * = e.nonstd+1;
  42.   writeEvent    * = e.nonstd+2;
  43.   setThresh     * = e.nonstd+3;
  44.   setPeriod     * = e.nonstd+4;
  45.   setMPort      * = e.nonstd+5;
  46.   setMType      * = e.nonstd+6;
  47.   setMTrig      * = e.nonstd+7;
  48.  
  49.  
  50. VAR
  51.  
  52.   base * : e.DevicePtr;
  53.  
  54. (*
  55. **      $VER: input_protos.h 36.2 (7.11.90)
  56. *)
  57.  
  58. PROCEDURE PeekQualifier* [base,-42] () : s.SET16;
  59.  
  60. END Input.
  61.