section "CODE",code
    cnop    0,4
    xdef    _CallHook
    xdef    _CallHookA

_CallHook
    lea     12(a7),a1
    bra     L_CallHook

_CallHookA
    move.l  12(a7),a1

L_CallHook
    movem.l a2/a6,-(a7)
    move.l  12(a7),a0
    move.l  16(a7),a2
    bsr     L_callit
    movem.l (a7)+,a2/a6
    rts

L_callit
    move.l  8(a0),-(a7)
    rts