.TITLE DABS   ABSOLUTE VALUE FOR DOUBLE ARGUMENT  /ARG/
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL DABS,.DA,.AO,.AB
/             CALLING SEQUENCE
/      JMS*   (DABS)          SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
DABS   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    DABS02
DABS01 CAL    0              /ARGUMENT
DABS02 JMS*   .AO            /LOAD DOUBLE (.AO)
       .DSA   DABS01+400000  / (A9G)
       LAC*   .AB            /GET SIGN WORD (.AB)
       AND    DABS06         /MAKE POSITIVE
       DAC*   .AB            /RESTORE (.AB)
       JMP*   DABS           /EXIT
DABS06        377777
       .END