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