section "CODE",code
    cnop    0,4
    xdef    _CoerceMethod
    xdef    _CoerceMethodA

_CoerceMethod
    lea     12(a7),a1
    bra     L_CoerceMethod

_CoerceMethodA
    move.l  12(a7),a1

L_CoerceMethod:
    move.l  a2,-(a7)
    movem.l 8(a7),a0/a2
    move.l  a0,d0
    beq     L_Null
    move.l  a2,d0
    beq     L_Null
    bsr     L_Invoke
L_Null
    move.l  (a7)+,a2
    rts

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