sw/f4/FRTSRC/abs.ra

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