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