.TITLE DBLE   CONVERT REAL ARGUMENT TO DOUBLE
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL DBLE,.DA,.AG
/             CALLING SEQUENCE
/      JMS*   (DBLE)         SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
DBLE   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    DBLE02
DBLE01 CAL    0              /ARGUMENT
DBLE02 JMS*   .AG            /LOAD REAL
       .DSA   DBLE01+400000  / (ARG)
       JMP*   DBLE           /EXIT
       .END