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