--- /dev/null
+/
+/
+/ 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
+\f