.TITLE ALOG   COMPUTE NATURAL LOGARITHM FOR REAL ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 1   10-22-70
       .GLOBL ALOG,.DA,.AG,.EE,.AK
/             CALLING SEQUENCE
/      JMS*   (ALOG)          SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
ALOG   CAL    0              /ENTRY EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    ALOG02
ALOG01 CAL    0              /ARGUMENT
ALOG02 JMS*   .AG            /LOAD REAL (.AG)
       .DSA   ALOG01+400000  / (ARG)
       JMS*   .EE            /COMPUTE LOG2(ARG)
       JMS*   .AK            /MULTIPLY REAL (.AK)
       .DSA   ALOG07         / (LOGE2)
       JMP*   ALOG           /EXIT
ALOG07        140000         /LOGE(2) (1)  (0.6931471806)
              261344         /        (2)
       .END