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