home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / GamePort.mod < prev    next >
Encoding:
Text File  |  1992-11-02  |  1.5 KB  |  55 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE GamePort;
  10.  
  11. IMPORT e * := Exec;
  12.  
  13. CONST
  14.  
  15. (******  GamePort commands ******)
  16.   readEvent   * = e.nonstd+0;
  17.   askCType    * = e.nonstd+1;
  18.   setCType    * = e.nonstd+2;
  19.   askTrigger  * = e.nonstd+3;
  20.   setTrigger  * = e.nonstd+4;
  21.  
  22. (******  GamePort structures ******)
  23.  
  24. (* gpt_Keys *)
  25.   downKeys  * = 0;
  26.   upKeys    * = 1;
  27.  
  28. TYPE
  29.  
  30.   GamePortTriggerPtr * = UNTRACED POINTER TO GamePortTrigger;
  31.   GamePortTrigger * = STRUCT
  32.     keys * : SET;             (* key transition triggers *)
  33.     timeout * : INTEGER;      (* time trigger (vertical blank units) *)
  34.     xDelta * : INTEGER;       (* X distance trigger *)
  35.     yDelta * : INTEGER;       (* Y distance trigger *)
  36.   END;
  37.  
  38.  
  39. CONST
  40.  
  41. (****** Controller Types ******)
  42.   allocated    * = -1;  (* allocated by another user *)
  43.   noController * = 0;
  44.  
  45.   mouse       * = 1;
  46.   relJoystick * = 2;
  47.   absJoystick * = 3;
  48.  
  49.  
  50. (****** Errors ******)
  51.   errSetCType * = 1;     (* this controller not valid at this time *)
  52.  
  53. END GamePort.
  54.  
  55.