File: IFIX.RA of Tape: Sources/Fortran/s2
(Source file text)
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 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, 0;0 TWO, 0;2 END