fpu     1
    xdef    _tanh
_tanh
    ftanh.d 4(sp),fp0
    rts