134480Sbostic/* 234480Sbostic * Copyright (c) 1983 Regents of the University of California. 334480Sbostic * All rights reserved. 434480Sbostic * 5*42637Sbostic * %sccs.include.redist.c% 634480Sbostic */ 722284Smckusick 834819Sbostic#if defined(LIBC_SCCS) && !defined(lint) 9*42637Sbostic .asciz "@(#)fabs.s 5.5 (Berkeley) 06/01/90" 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