	/DTANH-TANH
	.GLOBL DTANH,TANH,.SET,.DA,.DC
	.GLOBL .DF,.AA,.FS,.AG
	.GLOBL .AR,.AQ,.AS,.XA,.T1,.BA
	.GLOBL .AW,.AV,ONE,TWO,.AN
.XX=.XA
DTANH	0
	LAC	.-1
	JMS*	.SET
TANH	0
	JMS*	.DA
	JMP	.+2
ARG	0
	JMS*	.AG	/.AO IF 2-WD
		ARG+400000
	DAC	ARG
	DZM*	.FS	/SIGN=+
	SNL		/ARG=0?
	LAW	-1
	TAD*	.AA
	SMA		/ARG<1?
	JMP	TH01	/YES
	TAD	BIAS	/=377774
	SMA!CLC		/X>16?
	JMP	FLOAT1	/YES,ANS=1
	ISZ*	.AA	/FORM 2X
	JMS*	.DF	/USE DEXP
	JMS*	.AQ	/+1.0
		ONE+400000
	JMS*	.AN	/RDIV 2.0
		TWO+400000
	JMS*	.AR	/-1.0
		ONE+400000
	JMP	TH02
TH01	JMS*	.DC	/POLY
		HTERM
	JMS*	.AV	/X**2/F
		.T1+400000
	JMS*	.AS	/*X
		.XX+400000
	JMS*	.AR	/-X
		.XX+400000
	SKP
FLOAT1	JMS*	.AW	/FLOAT -1.0
TH02	LAC	ARG
	SMA
	JMS*	.BA	/-ANS
	JMP*	TANH
HTERM	-5
/C6=
	-24; 210000
BIAS	377774
/C5=
	-20; 712570; 547617
/C4=
	-13; 205071; 213506
/C3=
	-7; 673175; 301773
/C2=
	1; 231463; 146213
/C1=
	2; 300000; 000001
	.END
