xref: /csrg-svn/lib/libc/vax/gen/fabs.s (revision 17329)
1*17329Ssam/*	fabs.s	4.2	84/11/01	*/
213415Sroot/* fabs - floating absolute value */
313415Sroot
413415Sroot#include "DEFS.h"
513415Sroot
6*17329SsamENTRY(fabs, 0)
713415Sroot	movd	4(ap),r0
813415Sroot	bgeq	1f
913415Sroot	mnegd	r0,r0
1013415Sroot1:
1113415Sroot	ret
12