1 {
2     This file is part of the Free Pascal run time library.
3 
4     A file in Amiga system run time library.
5     Copyright (c) 1998 by Nils Sjoholm
6     member of the Amiga RTL development team.
7 
8     See the file COPYING.FPC, included in this distribution,
9     for details about the copyright.
10 
11     This program is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14 
15  **********************************************************************}
16 
17 unit input;
18 
19 INTERFACE
20 
21 uses exec;
22 
23 
24 const
25 
26     IND_ADDHANDLER      = CMD_NONSTD + 0;
27     IND_REMHANDLER      = CMD_NONSTD + 1;
28     IND_WRITEEVENT      = CMD_NONSTD + 2;
29     IND_SETTHRESH       = CMD_NONSTD + 3;
30     IND_SETPERIOD       = CMD_NONSTD + 4;
31     IND_SETMPORT        = CMD_NONSTD + 5;
32     IND_SETMTYPE        = CMD_NONSTD + 6;
33     IND_SETMTRIG        = CMD_NONSTD + 7;
34 
35 VAR InputBase : pDevice;
36 
PeekQualifiernull37 FUNCTION PeekQualifier : WORD; syscall InputBase 042;
38 
39 IMPLEMENTATION
40 
41 END. (* UNIT INPUT *)
42 
43 
44 
45