File: IFIX.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/R=AINT(R),I=INT(R),IFIX(R) REAL TO INTEGER FIX / / / VERSION 40A 22-MAY-80 WVDM / / SECT IFIX ENTRY AINT ENTRY INT BASE 0 AINT, INT, FLDA 0 /ADDRESS OF CALL STARTD FSTA RETRN /SAVE RERN FADD TWO /INCR BY TWO FSTA 3 /GIVES ADDRESS OF ARG POINTER FLDA% 3 /GET ADDR OF ARG FSTA 3 STARTF FLDA% 3 /GET ARG JAL ERROR /BIGGIES ARE NO GOOD JLT NEGFIX /NEGATIVE ARG ALN 0 /FIX POSITIVE ARG FNORM JA RETRN /RETURN NEGFIX, FNEG /FIRST MAKE POSITIVE ALN 0 /THEN FIX FNORM FNEG /THEN RE-NEGATE RETRN, JA . TWO, 0;2 EXTERN #ARGER ERROR, TRAP4 #ARGER END