
*******************************************************************************
*
*	$Header:
*
*******************************************************************************
******* mathieeesingbas.library/IEEESPAbs ***********************************
*
*   NAME
*	IEEESPAbs -- compute absolute value of IEEE single precision argument
*
*   SYNOPSIS
*	  x   = IEEESPAbs(  y  );
*	 d0		    d0
*
*	float	x,y;
*
*   FUNCTION
*	Take the absolute value of argument y and return it to caller.
*
*   INPUTS
*	y -- IEEE single precision floating point value
*
*   RESULT
*	x -- IEEE single precision floating point value
*
*   BUGS
*
*   SEE ALSO
******************************************************************************
	section mathieeesingbas

	xdef  MIIEEESPAbs
MIIEEESPAbs:
	BCLR	#31,D0		* Make positive.
	RTS

	END
