.TITLE AINT   TRUNCATION FOR LARGEST INTEGER FOR REAL ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL AINT,.DA,.AG,.AX,.AW
/             CALLING SEQUENCE
/      JMS*   (AINT)          SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
AINT   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET-ARGUMENT
       JMP    AINT02
AINT01 CAL    0              /ARGUMENT
AINT02 JMS*   .AG            /LOAD REAL (.AG)
       .DSA   AINT01+400000  / (ARG)
       JMS*   .AX            /FIX ARG (.AX)
       JMS*   .AW            /FLOAT TRUNCATED ARG (.AW)
       JMP*   AINT           /EXIT
       .END