home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 382.lha / ST / inputhandler.a < prev    next >
Encoding:
Text File  |  1990-06-05  |  418 b   |  26 lines
  1. ; Input Handler
  2. ; created by John Schultz, 17-Sep-89
  3.  
  4.     section    "TotalInput",code
  5.  
  6.     xdef    _totalinput
  7.  
  8. ; Input event structure offsets
  9.  
  10. IECLASS    equ    4
  11. IECODE    equ    6
  12.  
  13. ; A0 = inputevent pointer
  14. ; A1 = data pointer
  15.  
  16. _totalinput:
  17.     cmp.b    #1,IECLASS(A0)    ; event->ie_Class == IECLASS_RAWKEY ?
  18.     bne.b    notrawkey
  19.     move.w    IECODE(A0),(A1)    ; raw = event->ie_Code
  20. notrawkey:
  21.     moveq.l    #0,D0        ; don't pass events to intuition
  22.     rts
  23.  
  24.     END
  25.  
  26.