/*
	This C language subroutine computes the floating 
	point absolute value of its input.
	
	The Run Time Library for the C Language.

	Gordon A. Sterling	(617) 461 - 3076
	DSP Development Tools Engineering

	Created on 4/27/90
	Updated on 5/94 by AS

	#include <math.h>		<Header>
	double fabs(double x);		<Prototype>
*/

#include "lib_glob.h"

.SEGMENT/CODE	Code_Space_Name;
.FILE 		RTL_FILENAME;

.GLOBAL	    	_fabs;

_fabs:	    reads(R4,1);
	    F0=ABS F4, reads(R8,2);

	    R1=PASS R8, FETCH_RETURN

restore_state:	RETURN (DB);
		RESTORE_STACK
		RESTORE_FRAME

.ENDSEG;