1/*	$OpenBSD: s_cos.S,v 1.3 2016/09/12 19:47:02 guenther Exp $ */
2/*
3 * Written by J.T. Conklin <jtc@netbsd.org>.
4 * Public domain.
5 */
6
7#include "DEFS.h"
8
9ENTRY(cos)
10	fldl	4(%esp)
11	fcos
12	fnstsw	%ax
13	andw	$0x400,%ax
14	jnz	1f
15	ret
161:	fldpi
17	fadd	%st(0)
18	fxch	%st(1)
192:	fprem1
20	fnstsw	%ax
21	andw	$0x400,%ax
22	jnz	2b
23	fstp	%st(1)
24	fcos
25	ret
26END_STD(cos)
27