File: XFIX.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/IN-LINE FIX FUNCTION
/
/
/ VERSION 40A 23-MAY-80 WVDM
/
/
	SECT	#FIX
/
	JA	.
	JAL	ERROR
	JLT	NEGFIX
	ALN	0
	FNORM
	JA	#FIX
NEGFIX,	FNEG
	ALN	0
	FNORM
	FNEG
	JA	#FIX
	EXTERN	#ARGER
ERROR,	TRAP4	#ARGER
	END

---