X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ff4%2FFRTSRC%2Ftanh.ra;fp=sw%2Ff4%2FFRTSRC%2Ftanh.ra;h=9c6a3d5b58360521304d3a15911de657986dbca0;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/f4/FRTSRC/tanh.ra b/sw/f4/FRTSRC/tanh.ra
new file mode 100644
index 0000000..9c6a3d5
--- /dev/null
+++ b/sw/f4/FRTSRC/tanh.ra
@@ -0,0 +1,52 @@
+/
+/
+/	T  A  N  H
+/	-  -  -  -
+/
+/SUBROUTINE TANH(X)
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	TANH
+	JA	#TANH
+	TEXT	+TANH  +
+TANHXR,	SETX	XRTANH
+	SETB	BPTANH
+BPTANH,	FNOP
+	0
+	0
+XRTANH,	F 0.0
+TANH1,	F 0.0
+TANH2,	F 0.0
+	ORG	10*3+BPTANH
+	FNOP
+	JA	TANHXR
+	0
+TNHRTN,	JA	.
+	BASE	0
+#TANH,	STARTD
+	FLDA	10*3
+	FSTA	TNHRTN
+	FLDA	0
+	SETX	XRTANH
+	SETB	BPTANH
+	BASE	BPTANH
+	LDX	1,1
+	FSTA	BPTANH
+	FLDA%	BPTANH,1	/ADDR OF X
+	FSTA	BPTANH
+	STARTF
+	FLDA%	BPTANH	/GET X
+	FSTA	TANH1	/SAV IT
+	EXTERN	COSH
+	JSR	COSH	/CALL COSH
+	JA	.+4
+	JA	TANH1
+	FSTA	TANH2	/SAVE COSH(X)
+	EXTERN	SINH
+	JSR	SINH	/CALL SINH
+	JA	.+4
+	JA	TANH1
+	FDIV	TANH2	/SINH/COSH=TANH
+	JA 	TNHRTN
+