xref: /original-bsd/lib/libc/tahoe/gen/fabs.s (revision c3e32dec)
1/*
2 * Copyright (c) 1988, 1993
3 *	The Regents of the University of California.  All rights reserved.
4 *
5 * This code is derived from software contributed to Berkeley by
6 * Computer Consoles Inc.
7 *
8 * %sccs.include.redist.c%
9 */
10
11#if defined(LIBC_SCCS) && !defined(lint)
12	.asciz "@(#)fabs.s	8.1 (Berkeley) 06/04/93"
13#endif /* LIBC_SCCS and not lint */
14
15#include "DEFS.h"
16
17ENTRY(fabs, 0)
18	movl	8(fp),r1
19	movl	4(fp),r0
20	bgeq	1f
21	xorl2	$0x80000000,r0
221:
23	ret
24