home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: AssemPro For Development Amiga Driver / Lowe_AssemProForDevelopmentAmigaDriver.adf / Includes / devices / gameport.i < prev    next >
Encoding:
Text File  |  1978-06-06  |  1.5 KB  |  61 lines
  1.    IFND  DEVICES_GAMEPORT_I@
  2. DEVICES_GAMEPORT_I@   =   1
  3. ;*******************************************************************
  4. ;               Commodore-Amiga, Inc.                              ;
  5. ;               gameport.i                                         ;
  6. ;*******************************************************************
  7. ;*******************************************************************
  8. ;
  9. ;  Game Port device command definitions
  10. ;
  11. ;*******************************************************************
  12.  
  13.    IFND  EXEC_IO_I@
  14.    INCLUDE  "exec/io.i"
  15.    ENDIF
  16.  
  17.  
  18. ;*****; GamePort commands ;******
  19.    DEVINIT
  20.  
  21.    DEVCMD   GPD_READEVENT
  22.    DEVCMD   GPD_ASKCTYPE
  23.    DEVCMD   GPD_SETCTYPE
  24.    DEVCMD   GPD_ASKTRIGGER
  25.    DEVCMD   GPD_SETTRIGGER
  26.  
  27. ;*****; GamePort structures ;******
  28.  
  29. ;  gpt_Keys
  30. ;   BITDEF       GPT,DOWNKEYS,0
  31. GPTB_DOWNKEYS = 0
  32. GPTF_DOWNKEYS = 1<<0
  33.  
  34.  
  35. ;   BITDEF       GPT,UPKEYS,1
  36. GPTB_UPKEYS = 1
  37. GPTF_UPKEYS = 1<<1
  38.  
  39.  STRUCTURE  GamePortTrigger,0
  40.        UWORD   gpt_Keys        ;key transition triggers
  41.        UWORD   gpt_Timeout     ;time trigger (vertical blank units)
  42.        UWORD   gpt_XDelta      ;X distance trigger
  43.        UWORD   gpt_YDelta      ;Y distance trigger
  44.        LABEL   gpt_SIZEOF
  45.  
  46. ;*****; Controller Types ;*****
  47. GPCT_ALLOCATED    EQU   -1     ; allocated by another user
  48. GPCT_NOCONTROLLER EQU   0
  49.  
  50. GPCT_MOUSE        EQU   1
  51. GPCT_RELJOYSTICK  EQU   2
  52. GPCT_ABSJOYSTICK  EQU   3
  53.  
  54.  
  55. ;*****; Errors ;*****
  56. GPDERR_SETCTYPE   EQU   1      ; this controller not valid at this time
  57.  
  58.    ENDIF
  59.    END
  60.