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

/	SUBROUTINE SNGL  -   DBL PREC TO REAL
/
/ VERSION 5A 4-26-77 MH
/
	SECT	SNGL
	DPCHK
	BASE	0
	FLDA	0
	STARTD
	FSTA	RETRN
	FADD	TWO
	FSTA	3
	FLDA%	3
	FSTA	3
	STARTE
	FLDA%	3
	STARTF
	JA	RETRN
RETRN,	0;0
TWO,	0;2
\f
Commit	Line	Data
7af5ad59 PH	1	/ SUBROUTINE SNGL - DBL PREC TO REAL
	2	/
	3	/ VERSION 5A 4-26-77 MH
	4	/
	5	SECT SNGL
	6	DPCHK
	7	BASE 0
	8	FLDA 0
	9	STARTD
	10	FSTA RETRN
	11	FADD TWO
	12	FSTA 3
	13	FLDA% 3
	14	FSTA 3
	15	STARTE
	16	FLDA% 3
	17	STARTF
	18	JA RETRN
	19	RETRN, 0;0
	20	TWO, 0;2
	21	\f