.TITLE IDINT  TRUNCATION + CONVERSION FROM DOUBLE TO INTEGER ARG
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL IDINT,.DA,.AO,.AX
/             CALLING SEQUENCE
/      JMS*   (IDINT)        CALL SUBR
/      JMP    .+2            SUBR RETURN
/      CAL/XCTADDR           ADDR OF ARGUMENT (XCT IF INDIRECT)
/
IDINT  CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    IDIN02
IDIN01 CAL    0              /ARGUMENT
IDIN02 JMS*   .AO            /LOAD DOUBLE (.AO)
       .DSA   IDIN01+400000  / (ARG)
       JMS*   .AX            /FIX TO INTEGER (.AX)
       JMP*   IDINT          /EXIT
       .END