File: ABS.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/R=ABS(R) SINGLE PREC. ABSOLUTE VALUE
/
/
/ VERSION 40A 20-MAY-80 WVDM
/
/
	SECT	IABS
	ENTRY	ABS
	BASE	0		/NO BASE,XR CHANGE
ABS,	FLDA	0		/GET RETURN ADDRESS
	STARTD
	FSTA	RETRN
	FADD	TWO		/GET ADDRESS OF ARG POINTER
	FSTA	3		/USE CALLER'S BASE PAGE VAR 1
	FLDA%	3		/GET ARG ADDRESS
	FSTA	3
	STARTF
	FLDA%	3		/GET ARG
	JGE	RETRN		/POSITIVE, SKIP NEGATE
	FNEG
RETRN,	0;0
TWO,	0;2
	END

---