/
/ 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