X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Falog10.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Falog10.ra;h=1517ea7bea79bccf064b4682b01c0d0bc94c4f3e;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/os8/v3d/sources/fortran/all/alog10.ra b/sw/os8/v3d/sources/fortran/all/alog10.ra
new file mode 100644
index 0000000..1517ea7
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/alog10.ra
@@ -0,0 +1,48 @@
+/
+/
+/	A  L  O  G  1  0
+/	-  -  -  -  -  -
+/
+/ VERSION 5A 4-27-77  PT
+/
+/SUBROUTINE 	ALOG10(X)
+	SECT	ALOG10
+	JA	#ALOG
+	TEXT	+ALOG10+
+LOGXR,	SETX	XRLOG
+	SETB	BPLOG
+BPLOG,	FNOP
+	0
+	0
+XRLOG,	F 0.0
+LOG1,	F 0.0
+ALOG1C,	7777	/FUDGE CONSTANT
+	3362
+	6754
+	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
+