home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / oberon-a-1.4ß.lha / Oberon-A / source / amiga / Input.mod < prev    next >
Text File  |  1994-08-08  |  1KB  |  71 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: Input.mod $
  4.   Description: Interface to input.device
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.2 $
  8.       $Author: fjc $
  9.         $Date: 1994/08/08 00:49:42 $
  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, 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. MODULE Input;
  23.  
  24. (*
  25. ** $C- CaseChk       $I- IndexChk  $L+ LongAdr   $N- NilChk
  26. ** $P- PortableCode  $R- RangeChk  $S- StackChk  $T- TypeChk
  27. ** $V- OvflChk       $Z- ZeroVars
  28. *)
  29.  
  30. IMPORT E := Exec;
  31.  
  32.  
  33. (*
  34. **      $VER: input.h 36.0 (1.5.90)
  35. **
  36. **      input device command definitions
  37. *)
  38.  
  39. CONST
  40.  
  41.   addHandler    * = E.cmdNonstd+0;
  42.   remHandler    * = E.cmdNonstd+1;
  43.   writeEvent    * = E.cmdNonstd+2;
  44.   setThresh     * = E.cmdNonstd+3;
  45.   setPeriod     * = E.cmdNonstd+4;
  46.   setMPort      * = E.cmdNonstd+5;
  47.   setMType      * = E.cmdNonstd+6;
  48.   setMTrig      * = E.cmdNonstd+7;
  49.  
  50.  
  51. CONST
  52.  
  53.   name * = "input.device";
  54.  
  55. TYPE
  56.  
  57.   InputDevicePtr * = CPOINTER TO InputDevice;
  58.   InputDevice * = RECORD (E.Device) END;
  59.  
  60. VAR
  61.  
  62.   base * : InputDevicePtr;
  63.  
  64. (*
  65. **      $VER: input_protos.h 36.2 (7.11.90)
  66. *)
  67.  
  68. LIBCALL (base : InputDevicePtr) PeekQualifier* () : E.WSET; -42;
  69.  
  70. END Input.
  71.