       .TITLE ALOG10 COMPUTE COMMON LOGARITHM FOR REAL ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 1   10-22-70
       .GLOBL ALOG10,.DA,.AG,.EE,.AK
/             CALLING SEQUENCE
/      JMS*   (ALOG10)        SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
ALOG10 CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    AL1002
AL1001 CAL    0              /ARGUMENT
AL1002 JMS*   .AG            /LOAD REAL (.AG)
       .DSA   AL1001+400000  / (ARG)
       JMS*   .EE            /COMPUTE LOG2(ARG) (.EE)
       JMS*   .AK            /MULTIPLY REAL (.AK)
       .DSA   AL1007         / (LOG10(2))
       JMP*   ALOG10         /EXIT
AL1007 .DSA   152777         /LOG10(2) (1) (0.3010299957)
              232101         /         (2)
       .END
