fpu     1
    xdef    _cosh
_cosh
    fcosh.d 4(sp),fp0
    rts