File: DABS.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/D=DABS(D) DOUBLE PREC. ABSOLUTE VALUE / / / VERSION 40A 27-MAY-80 WVDM / / SECT DABS BASE 0 DPCHK DPABS, FLDA 0 /GET RETURN ADDRESS STARTD FSTA RETRN FADD TWO /GET ADDRESS OF ARG P7S FSTA 3 FLDA% 3 FSTA 3 STARTE FLDA% 3 JGE RETRN /POSITIVE, SKIP NEGATE FNEG RETRN, 0;0 TWO, 0;2 END