File: SNGL.RA of Tape: OS8/OS8-Latest/new-10

(Source file text) 

---

/R=SNGL(D) DOUBLE PREC. TO REAL
/
/
/ VERSION 40A 23-MAY-80 WVDM
/
/
	SECT	SNGL
	DPCHK
	BASE	0
	FLDA	0
	STARTD
	FSTA	RETRN
	FADD	TWO
	FSTA	3
	FLDA%	3
	FSTA	3
	STARTE
	FLDA%	3
	STARTF
RETRN,	0;0
TWO,	0;2

---