home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Gameport.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  545 b   |  38 lines
  1. unit Gameport;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pGamePortTrigger = ^tGamePortTrigger;
  9.     tGamePortTrigger = record
  10.         gpt_Keys: word;
  11.         gpt_Timeout: word;
  12.         gpt_XDelta: word;
  13.         gpt_YDelta: word;
  14.         end;
  15.  
  16.  
  17.  
  18. const
  19.     GPCT_NOCONTROLLER = 0;
  20.     GPTB_DOWNKEYS = 0;
  21.     GPD_ASKCTYPE = $A;
  22.     GPTF_DOWNKEYS = 1;
  23.     GPCT_ABSJOYSTICK = 3;
  24.     GPD_SETCTYPE = $B;
  25.     GPCT_ALLOCATED = $FFFFFFFF;
  26.     GPCT_RELJOYSTICK = 2;
  27.     GPD_ASKTRIGGER = $C;
  28.     GPDERR_SETCTYPE = 1;
  29.     GPTB_UPKEYS = 1;
  30.     GPD_SETTRIGGER = $D;
  31.     GPTF_UPKEYS = 2;
  32.     GPD_READEVENT = 9;
  33.     GPCT_MOUSE = 1;
  34.  
  35.  
  36. IMPLEMENTATION
  37. end.
  38.