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