[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape1 / xfix.ra

/
/ VERSION 5A 4-26-77 MH
/
	SECT	#FIX
	JA	.
	JLT	NEGFIX
	ALN	0
	FNORM
	JA	#FIX
NEGFIX,	FNEG
	ALN	0
	FNORM
	FNEG
	JA	#FIX
	END
\f
Commit	Line	Data
81e70d48 PH	1	/
	2	/ VERSION 5A 4-26-77 MH
	3	/
	4	SECT #FIX
	5	JA .
	6	JLT NEGFIX
	7	ALN 0
	8	FNORM
	9	JA #FIX
	10	NEGFIX, FNEG
	11	ALN 0
	12	FNORM
	13	FNEG
	14	JA #FIX
	15	END
	16	\f