; 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