1/* 2 * Copyright (c) 1983 Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 */ 7 8#if defined(LIBC_SCCS) && !defined(lint) 9 .asciz "@(#)fabs.s 5.5 (Berkeley) 06/01/90" 10#endif /* LIBC_SCCS and not lint */ 11 12/* fabs - floating absolute value */ 13 14#include "DEFS.h" 15 16ENTRY(fabs, 0) 17 movd 4(ap),r0 18 bgeq 1f 19 mnegd r0,r0 201: 21 ret 22