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

(Source file text) 

---

/R=ALOG10(R) SINGLE PREC. BASE 10 LOGARITHM
/
/
/ VERSION 40A 22-MAY-80 WVDM
/
/
	SECT	ALOG10
	JA	#ALOG
	TEXT	+ALOG10+
LOGXR,	SETX	XRLOG
	SETB	BPLOG
BPLOG,	FNOP
	0
	0
XRLOG,	F 0.0
LOG1,	F 0.0
ALOG1C,	F 0.43429448		/1./LN(10)
	ORG	10*3+BPLOG
	FNOP
	JA	LOGXR
	0
LOGRTN,	JA	.
	BASE	0
#ALOG,	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
	STARTF
	FLDA%	BPLOG		/GET X
	FSTA	LOG1
	EXTERN 	ALOG
	JSR	ALOG		/CALL ALOG
	JA	.+4
	JA	LOG1
	FMUL	ALOG1C		/CORRECT FOR THE LOG BASE E.
	JA	LOGRTN

---