1*42228Sbostic/*- 2*42228Sbostic * Copyright (c) 1990 The Regents of the University of California. 3*42228Sbostic * All rights reserved. 4*42228Sbostic * 5*42228Sbostic * This code is derived from software contributed to Berkeley by 6*42228Sbostic * the Systems Programming Group of the University of Utah Computer 7*42228Sbostic * Science Department. 8*42228Sbostic * 9*42228Sbostic * %sccs.include.redist.c% 10*42228Sbostic * 11*42228Sbostic * @(#)tanh.s 5.1 (Berkeley) 05/17/90 12*42228Sbostic */ 13*42228Sbostic 14*42228Sbostic/* tanh(x) */ 15*42228Sbostic 16*42228Sbostic .text 17*42228Sbostic .globl _tanh 18*42228Sbostic 19*42228Sbostic_tanh: 20*42228Sbostic ftanhd sp@(4),fp0 21*42228Sbostic fmoved fp0,sp@- 22*42228Sbostic movel sp@+,d0 23*42228Sbostic movel sp@+,d1 24*42228Sbostic rts 25