File: DABS.RA of Disk: V50/Source/Source-Listing-RALF-1

(Source file text) 

---

/D=DABS(D) DOUBLE PREC. ABSOLUTE VALUE
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
	SECT	DABS
	BASE	0
	DPCHK
DPABS,	FLDA	0		/GET RETURN ADDRESS
	STARTD
	FSTA	RETRN
	FADD	TWO		/GET ADDRESS OF ARG P7S
	FSTA	3
	FLDA%	3
	FSTA	3
	STARTE
	FLDA%	3
	JGE	RETRN		/POSITIVE, SKIP NEGATE
	FNEG
RETRN,	0;0
TWO,	0;2
	END


---