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