ie_NextEvent      EQU       0
ie_Class          EQU       4
ie_Subclass       EQU       5
ie_Code           EQU       6
ie_Qualifier      EQU       8
ie_EventAddress   EQU      10
ie_X              EQU      14
ie_Y              EQU      18

    XREF	_ereigniss
    XREF        _q
    XREF        _c
    XDEF	_HandlerInterface

_HandlerInterface:
    clr.l    d0
    move.b   ie_Class(a0),d0
    cmpi.b   #1,d0
    bne.s    no_rawkey
    move.w   ie_Code(a0),d0
    cmpi.b   #$50,d0
    bne.s    no_f1
    move.l   #1,_ereigniss
no_f1:
no_rawkey:
no_control:
    move.l   a0,d0
    rts