[pdp8.git] / sw / f4 / FRTSRC / float.ra

/
/ VERSION 5A 4-27-77  PT
/
	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
\f
Commit	Line	Data
7af5ad59 PH	1	/
	2	/ VERSION 5A 4-27-77 PT
	3	/
	4	SECT FLOAT
	5	BASE 0
	6	FLDA 0
	7	STARTD
	8	FSTA RETRN /SAVE RETURN
	9	FADD TWO /ADDR OF ARG POINTER
	10	FSTA 3
	11	FLDA% 3 /ADDR OF ARG
	12	FSTA 3
	13	STARTF
	14	FLDA% 3 /GET ARG
	15	RETRN, 0;0 /FLOAT IS A NOP
	16	TWO, 0;2
	17	END
	18	\f