142227Sbostic/*- 2*61291Sbostic * Copyright (c) 1990, 1993 3*61291Sbostic * The Regents of the University of California. All rights reserved. 442227Sbostic * 542227Sbostic * This code is derived from software contributed to Berkeley by 642227Sbostic * the Systems Programming Group of the University of Utah Computer 742227Sbostic * Science Department. 842227Sbostic * 942227Sbostic * %sccs.include.redist.c% 1042227Sbostic * 11*61291Sbostic * @(#)tan.s 8.1 (Berkeley) 06/04/93 1242227Sbostic */ 1342227Sbostic 1442227Sbostic/* tan(x) */ 1542227Sbostic 1642227Sbostic .text 1742227Sbostic .globl _tan 1842227Sbostic 1942227Sbostic_tan: 2042227Sbostic ftand sp@(4),fp0 2142227Sbostic fmoved fp0,sp@- 2242227Sbostic movel sp@+,d0 2342227Sbostic movel sp@+,d1 2442227Sbostic rts 25