134480Sbostic/* 2*61225Sbostic * Copyright (c) 1983, 1993 3*61225Sbostic * The Regents of the University of California. All rights reserved. 434480Sbostic * 542637Sbostic * %sccs.include.redist.c% 634480Sbostic */ 722284Smckusick 834819Sbostic#if defined(LIBC_SCCS) && !defined(lint) 9*61225Sbostic .asciz "@(#)fabs.s 8.1 (Berkeley) 06/04/93" 1034819Sbostic#endif /* LIBC_SCCS and not lint */ 1134480Sbostic 1213415Sroot/* fabs - floating absolute value */ 1313415Sroot 1413415Sroot#include "DEFS.h" 1513415Sroot 1617329SsamENTRY(fabs, 0) 1713415Sroot movd 4(ap),r0 1813415Sroot bgeq 1f 1913415Sroot mnegd r0,r0 2013415Sroot1: 2113415Sroot ret 22