sw/os8/v3d/sources/fortran/all/ifix.ra

   1 /
   2 / VERSION 5A 4-27-77  PT
   3 /
   4         SECT    IFIX
   5         ENTRY   AINT
   6         ENTRY   INT
   7         BASE    0
   8 AINT,
   9 INT,    FLDA    0               /ADDRESS OF CALL
  10         STARTD
  11         FSTA    RETRN           /SAVE RERN
  12         FADD    TWO             /INCR BY TWO
  13         FSTA    3               /GIVES ADDRESS OF ARG POINTER
  14         FLDA%   3               /GET ADDR OF ARG
  15         FSTA    3
  16         STARTF
  17         FLDA%   3               /GET ARG
  18         JAL     RETRN   /LEAVE BIGGIES ALONE
  19         JLT     NEGFIX          /NEGATIVE ARG
  20         ALN     0               /FIX POSITIVE ARG
  21         FNORM
  22         JA      RETRN           /RETURN
  23 NEGFIX, FNEG                    /FIRST MAKE POSITIVE
  24         ALN     0               /THEN FIX
  25         FNORM
  26         FNEG                    /THEN RE-NEGATE
  27 RETRN,  JA .
  28 TWO,    0;2
  29         END
  30 \f