.TITLE EXP    COMPUTE NATURAL EXPONENTIAL FOR REAL ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 1   10-22-70
       .GLOBL EXP,.DA,.AG,.EF
/             CALLING SEQUENCE
/      JMS*   (EXP)           SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
EXP    CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    EXP02
EXP01  CAL    0              /ARGUMENT
EXP02  JMS*   .AG            /LOAD REAL (.AG)
       .DSA   EXP01+400000   / (ARG)
       JMS*   .EF            /COMPUTE EXPONENTIAL (.EF)
       JMP*   EXP            /EXIT
       .END