       .TITLE IDIM   POSITIVE DIFFERENCE FOR INTEGER ARGUMENTS
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL IDIM,.DA,.AY
/             CALLING SEQUENCE
/      JMS*   (IDIM)          SUBR CALL
/      JMP    .+3             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARG1
/      CAL/XCTADDR            ADDR OF ARG2  (XCT IF INDIRECT)
/
IDIM   CAL    0              /ENTRY-EXIT
       JMS*    .DA          /GET ARGUMENTS (.DA)
       JMP    IDIM03
IDIM01 CAL    0              /ARG1
IDIM02 CAL    0              /ARG2
IDIM03 LAC*   IDIM01         /LOAD ARG1
       JMS*   .AY            /SUBTRACT INTEGER (.AY)
       LAC*   IDIM02         / (ARG1-ARG2)
       SPA                   /CLEAR @A@ IF NEGATIVE
       CLA
       JMP*   IDIM           /EXIT
       .END
