TEXT    cosh(SB),$0
       FCOSHD  a+0(FP),F0
       RTS