fpu     1
    xdef    _exp
_exp
    fetox.d  4(sp),fp0
    rts