/IMPROVED FITR() FUNCTION  -JVZ

/THIS ROUTINE REPLACES FOCAL'S NORMAL FITR() FUNCTION WITH
/ONE WHICH COMPUTES A 35 BIT INTEGER RATHER THAN A 23 BIT
/ONE.  THIS ELIMINATES THE ROUND-OFF ERRORS WHICH OTHERWISE
/OCCUR FOR ARGUMENTS WITH MORE THAN 4-5 SIGNIFICANT DIGITS.

/FOCAL SYMBOLS:

	FIELD 1
	EX1=40
	EXP=44
	FNTABF=355
	NEGATE=4451
	FLOAT=5512
	RETURN=5536
	ABSOLV=5571
	ALIGN=6623
	RESOLV=7173

	*34		/PAGE-ZERO SPACE
ALN,	ALIGN
ABS,	ABSOLV
RES,	RESOLV

	*FNTABF+4
	FITR		/NEW LOCATION

	*4724
	FNEG

	*5002
	JMS FNEG

	*5162		/OVERLAP FLAG1
FNEG,	0
	NEGATE
	CLA CMA
	JMP I FNEG

FITR,	JMS I ABS	/AVOID PROBLEMS
	TAD EXP		/CHECK BINARY POINT
	SPA SNA CLA	/IS ARGUMENT < 1 ?
	FLOAT		/YES, RETURN ZERO
	TAD P43
	DCA EX1
	JMS I ALN	/FORM 35-BIT INTEGER
P43,	43
	JMS I RES	/CORRECT SIGN
	RETURN
	$