File: DLOG10.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/D=DLOG10(D) DOUBLE PREC. DECIMAL LOGARITHM
/
/
/ VERSION 40A 28-MAY-80 WVDM
/
/
	SECT	DLOG10
	JA	#DLOG10
	DPCHK
	TEXT	+DLOG10+
LOGXR,	SETX	XRLOG
	SETB	BPLOG
	JA	.+3
BPLOG,	FNOP
	0
	0
	F 0.0
XRLOG,	F 0.0
LOG1,	F 0.0
	F 0.0
	ORG	10*3+BPLOG
	FNOP
	JA	LOGXR
	0
LOGRTN,	JA	.
/
ALOG1C,	7777			/1./LNE(10.) = .4342944819032518276
	3362
	6754
	2511
	5624
	1612
/
	BASE	0
#DLOG10, STARTD
	FLDA	10*3
	FSTA	LOGRTN
	FLDA	0
	SETX	XRLOG
	SETB	BPLOG
	BASE	BPLOG
	LDX	1,1
	FSTA	BPLOG
	FLDA%	BPLOG,1		/ADDR OF X
	FSTA	BPLOG
	STARTE
	FLDA%	BPLOG		/GET X
	FSTA	LOG1
	EXTERN 	DLOG
	JSR	DLOG		/CALL DLOG
	JA	.+4
	JA	LOG1
	FMUL	ALOG1C		/CORRECT FOR THE LOG BASE E.
	JA	LOGRTN

---