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 PeekQualifiernull37FUNCTION PeekQualifier : WORD; syscall InputBase 042; 38 39 IMPLEMENTATION 40 41 END. (* UNIT INPUT *) 42 43 44 45