.TITLE DEXP   COMPUTE NATURAL EXPONENTIAL FOR DOUBLE ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL DEXP,.DA,.AO,.DF
/             CALLING SEQUENCE
/      JMS*   (DEXP)          SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
DEXP   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    DEXP02
DEXP01 CAL    0              /ARGUMENT
DEXP02 JMS*   .AO            /LOAD DOUBLE (.AO)
       .DSA   DEXP01+400000  / (ARG)
       JMS*   .DF            /COMPUTE EXPONENTIAL (.DF)
       JMP*   DEXP           /EXIT
       .END