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