1*34480Sbostic/* 2*34480Sbostic * Copyright (c) 1983 Regents of the University of California. 3*34480Sbostic * All rights reserved. 4*34480Sbostic * 5*34480Sbostic * Redistribution and use in source and binary forms are permitted 6*34480Sbostic * provided that this notice is preserved and that due credit is given 7*34480Sbostic * to the University of California at Berkeley. The name of the University 8*34480Sbostic * may not be used to endorse or promote products derived from this 9*34480Sbostic * software without specific written prior permission. This software 10*34480Sbostic * is provided ``as is'' without express or implied warranty. 11*34480Sbostic */ 1222284Smckusick 13*34480Sbostic#if defined(SYSLIBC_SCCS) && !defined(lint) 14*34480Sbostic_sccsid:.asciz "@(#)fabs.s 5.3 (Berkeley) 05/25/88" 15*34480Sbostic#endif /* SYSLIBC_SCCS and not lint */ 16*34480Sbostic 1713415Sroot/* fabs - floating absolute value */ 1813415Sroot 1913415Sroot#include "DEFS.h" 2013415Sroot 2117329SsamENTRY(fabs, 0) 2213415Sroot movd 4(ap),r0 2313415Sroot bgeq 1f 2413415Sroot mnegd r0,r0 2513415Sroot1: 2613415Sroot ret 27