File: XFIX.RA of Disk: V50/Source/Source-Listing-RALF-1

(Source file text) 

---

/IN-LINE FIX FUNCTION
/
/
/ VERSION 50A 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


---