.TITLE IABS   ABSOLUTE VALUE FOR INTEGER ARGUMENT  /ARG/
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL IABS,.DA
/             CALLING SEQUENCE
/      JMS*   (IABS)          SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
IABS   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    IABS02
IABS01 CAL    0              /ARGUMENT
IABS02 LAC*   IABS01         /IS ARGUMENT NEGATIVE
       SMA
       JMP*   IABS           /NO-EXIT
       CMA                   /YES-TAKE TWO@S COMP
       TAD    IABS04
       JMP*   IABS           /EXIT
IABS04        1
       .END