1/*	$NetBSD: fpsetround.S,v 1.7 1999/10/25 23:48:11 thorpej Exp $	*/
2
3/*
4 * Written by J.T. Conklin, Apr 6, 1995
5 * Public Domain.
6 */
7
8#include <machine/asm.h>
9
10#ifdef WEAK_ALIAS
11WEAK_ALIAS(fpsetround, _fpsetround)
12ENTRY(_fpsetround)
13#else
14ENTRY(fpsetround)
15#endif
16	movel %d2,%sp@-
17	fmovel %fpcr,%d1
18	movel %sp@(8),%d2
19	bfextu %d1{#26,#2},%d0
20	bfins %d2,%d1{#26:#2}
21	movel %sp@+,%d2
22	fmovel %d1,%fpcr
23	rts
24