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