G
	ALN	1		/FIX POSITIVE ARG
	FNORM
	JA	#GOBAK		/RETURN
NEGFIX,	FNEG			/FIRST MAKE POSITIVE
	ALN	1		/THEN FIX
	FNORM
	FNEG			/THEN RE-NEGATE
	JA	#GOBAK
	END