TEXT    tanh(SB),$0
       FTANHD  a+0(FP),F0
       RTS