.TITLE DIM    POSITIVE DIFFERENCE FOR REAL ARGUMENTS
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL DIM,.DA,.AG,.AJ,.AB,.AW
/             CALLING SEQUENCE
/      JMS*   (DIM)           SUBR CALL
/      JMP    .+3             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARG1
/      CAL/XCTADDR            ADDR OF ARG2 (XCT IF INDIRECT)
/
DIM    CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENTS (.DA)
       JMP    DIM03
DIM01  CAL    0              /ARG1
DIM02  CAL    0              /ARG2
DIM03  JMS*   .AG            /LOAD REAL (.AG)
       .DSA   DIM01+400000   / (ARG1)
       JMS*   .AJ            /SUBTRACT REAL (.AJ)
       .DSA   DIM02+400000   / (ARG1-ARG2)
       LAC*   .AB            /GET SIGN WORD
       SPA!CLA               /SKIP IF POSITIVE
       JMS*   .AW	    /OTHERWISE FLOAT A ZERO
       JMP*   DIM            /EXIT
       .END