fpu     1
    xdef    _ldexp
_ldexp
    fmove.d 4(sp),fp0
    fbeq.s  null
    ftwotox.l   12(sp),fp1
    fmul.x  fp1,fp0
null
    rts