142228Sbostic/*- 2*61291Sbostic * Copyright (c) 1990, 1993 3*61291Sbostic * The Regents of the University of California. All rights reserved. 442228Sbostic * 542228Sbostic * This code is derived from software contributed to Berkeley by 642228Sbostic * the Systems Programming Group of the University of Utah Computer 742228Sbostic * Science Department. 842228Sbostic * 942228Sbostic * %sccs.include.redist.c% 1042228Sbostic * 11*61291Sbostic * @(#)tanh.s 8.1 (Berkeley) 06/04/93 1242228Sbostic */ 1342228Sbostic 1442228Sbostic/* tanh(x) */ 1542228Sbostic 1642228Sbostic .text 1742228Sbostic .globl _tanh 1842228Sbostic 1942228Sbostic_tanh: 2042228Sbostic ftanhd sp@(4),fp0 2142228Sbostic fmoved fp0,sp@- 2242228Sbostic movel sp@+,d0 2342228Sbostic movel sp@+,d1 2442228Sbostic rts 25