.TITLE DLOG10 COMPUTE COMMON LOGARITHM FOR DOUBLE ARGUMENT
/
/COPYRIGHT (C) 1975
/DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
/
/THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
/ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
/THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS
/SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO-
/VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
/EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO
/THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
/SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
/WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM-
/MITMENT BY DIGITAL EQUIPMENT CORPORATION.
/
/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
/OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
	.EJECT
/EDIT 1  1-25-71
/EDIT 2  27-JAN-75
/ EDIT 3	20-AUG-75	M. HEBENSTREIT	DISCLAIMER
/FOR HARDWARE FLOATING POINT PROCESSOR (FPP), DEFINE %FPP,
       .GLOBL DLOG10,.DA,.DE,.CAT1D
	.IFUND %FPP
	.GLOBL .AO,.AS
	.ENDC
	.IFUND %FPP
	.DEFIN DLD%,A
	JMS* A			/DOUBLE LOAD (.AO)
	.ENDM
	.ENDC
	.IFDEF %FPP
DLD=713150
	.DEFIN DLD%
	DLD
	.ENDM
	.ENDC
	.IFUND %FPP
	.DEFIN DMP%,A
	JMS* A			/DOUBLE MULTIPLY (.AS)
	.ENDM
	.ENDC
	.IFDEF %FPP
DMP=711540
	.DEFIN DMP%
	DMP
	.ENDM
	.ENDC
/             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	LAC	DL1001		/SEE IF ARG =0 **002**
	JMS*	.CAT1D		/**002**
	SKP			/NO COMPUTE LOG **002**
	JMP* DLOG10		/YEEP RETURN (FAC SET TO 0 ) **002**
	DLD%   .AO            /LOAD DOUBLE (.AO)**002**
       .DSA   DL1001+400000  / (ARG)
       JMS*   .DE            /COMPUTE LOG2(ARG) (.DE)
       DMP%   .AS            /MULTIPLY DOUBLE (.AS)
       .DSA   DL1007         / (LOG10(2))
       JMP*   DLOG10         /EXIT
DL1007        777777         / LOG10(2) (1)  (0.3010299957)
              232101         /          (2)
       .DSA   152052         /          (3)
	.END