File: FLOAT.RA of Tape: Sources/Fortran/s2

(Source file text) 

---

	SECT	FLOAT
	BASE	0
	FLDA	0
	STARTD
	FSTA	RETRN		/SAVE RETURN
	FADD	TWO		/ADDR OF ARG POINTER
	FSTA	3
	FLDA%	3		/ADDR OF ARG
	FSTA	3
	STARTF
	FLDA%	3		/GET ARG
RETRN,	0;0			/FLOAT IS A NOP
TWO,	0;2
	END

---