.TITLE DLOG10 COMPUTE COMMON LOGARITHM FOR DOUBLE ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL DLOG10,.DA,.AO,.DE,.AS
/             CALLING SEQUENCE
/      JMS*   (DLOG10)        SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
DLOG10 CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    DL1002
DL1001 CAL    0              /ARGUMENT
DL1002 JMS*   .AO            /LOAD DOUBLE (.AO)
       .DSA   DL1001+400000  / (ARG)
       JMS*   .DE            /COMPUTE LOG2(ARG) (.DE)
       JMS*   .AS            /MULTIPLY DOUBLE (.AS)
       .DSA   DL1007         / (LOG10(2))
       JMP*   DLOG10         /EXIT
DL1007        777777         / LOG10(2) (1)  (0.3010299957)
              232101         /          (2)
       .DSA   152052         /          (3)
	.END