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

   1 /
   2 / VERSION 5A 4-27-77  PT
   3 /
   4         SECT    DABS
   5         BASE    0
   6         DPCHK
   7 DPABS,  FLDA    0               /GET RETURN ADDRESS
   8         STARTD
   9         FSTA    RETRN
  10         FADD    TWO             /GET ADDRESS OF ARG P7S
  11         FSTA    3
  12         FLDA%   3
  13         FSTA    3
  14         STARTE
  15         FLDA%   3
  16         JGE     RETRN           /POSITIVE, SKIP NEGATE
  17         FNEG
  18 RETRN,  0;0
  19 TWO,    0;2
  20         END
  21 \f