1			0	F2TNH002
			2			FLOATING POINT HYPERBOLIC TANGENT SUBROUTINE, FORTRAN VERSION	F2TNH003
	00000	0 60100 0 77776	3	TANH	STO	F	F2TNH004
	00001	0 76000 0 00003	4		SSP		F2TNH005
	00002	0 40200 0 00115	5		SUB	MIN	F2TNH006
	00003	0 12000 0 00006	6		TPL	T5	F2TNH007
	00004	0 50000 0 77776	7		CLA	F TEST IF ARGUMENT LESS THAN .00034	F2TNH008
	00005	0 02000 4 00001	8		TRA	1,4 IF SO LET TANH X EOUAL X	F2TNH009
	00006	0 40200 0 00114	9	T5	SUB	MAX TEST IF ARGUMENT LARGER THAN 12	F2TNH010
	00007	−0 12000 0 00012	10		TMI	T6	F2TNH011
	00010	0 50000 0 00120	11		CLA	CH IF SO LET TANH X EQUAL ONE	F2TNH012
	00011	0 02000 4 00001	12		TRA	1,4	F2TNH013
	00012	0 50000 0 77776	13	T6	CLA	F	F2TNH014
	00013	0 76500 0 00033	14		LRS	27	F2TNH015
	00014	−0 76000 0 00003	15		SSM		F2TNH016
	00015	0 40000 0 00117	16		ADD	CHAR CONVERT T0 FIXED POINT	F2TNH017
	00016	0 62100 0 00020	17		STA	SH1	F2TNH018
	00017	0 20000 0 00116	18		MPY	LOGE X TIMES LOG E BASE 2	F2TNH019
A	00020	0 76500 0 00000	19	SH1	LRS	SEPARATE INTEGER AND FRACTION	F2TNH020
	00021	0 76700 0 00033	20		ALS	27	F2TNH021
	00022	0 60100 0 77777	21		STO	M	F2TNH022
	00023	0 76300 0 00002	22		LLS	2	F2TNH023
	00024	0 10000 0 00071	23		TZE	T2 IF ARGUMENT LESS THAN .25 TRANSFER	F2TNH024
	00025	0 76500 0 00006	24		LRS	6 IF GREATER COMPUTE E TO THE X	F2TNH025
	00026	−0 60000 0 77776	25		STQ	F	F2TNH026
	00027	0 20000 0 77776	26		MPY	F COMPUTE FRACTION SQUARED	F2TNH027
	00030	0 60100 0 77775	27		STO	SQ COMPUTE CONTINUED FRACTION	F2TNH028
	00031	0 40000 0 00121	28		ADD	A 8,27 SCALING	F2TNH029
	00032	0 60100 0 77774	29		STO	T 8,27	F2TNH030
	00033	0 50000 0 00122	30		CLA	B 12,23	F2TNH031
	00034	0 22100 0 77774	31		DVP	T 8,27 4,31	F2TNH032
	00035	−0 60000 0 77774	32		STQ	T 4,3I	F2TNH033
	00036	0 56000 0 77775	33		LDQ	SQ 8,27	F2TNH034
	00037	0 20000 0 00123	34		MPY	C 00,35 8,27	F2TNH035
	00040	0 76300 0 00004	35		LLS	4 4,31	F2TNH036
	00041	0 40200 0 77774	36		SUB	T 4,31	F2TNH037
	00042	0 40000 0 00124	37		ADD	D 4,31	F2TNH038
	00043	0 40200 0 77776	38		SUB	F 4,31	F2TNH039
	00044	0 60100 0 77774	39		STO	T 4,31	F2TNH040
	00045	0 50000 0 77776	40		CLA	F 5,31 NUMERATOR EQUALS 2F	F2TNH041
	00046	0 22100 0 77774	41		DVP	T	F2TNH042
	00047	−0 60000 0 77774	42		STQ	T	F2TNH043
	00050	0 50000 0 77774	43		CLA	T	F2TNH044
	00051	0 76500 0 00010	44		LRS	8	F2TNH045
	00052	0 40000 0 00120	45		ADD	CH ADD ONE ANO CONVERT TO FLOATING POINT	F2TNH046
	00053	0 40000 0 77777	46	T1	ADD	M	F2TNH047
	00054	0 60100 0 77777	47		STO	M COMPUTE TANH X FROM E TO THE X	F2TNH048
	00055	0 50000 0 00120	48		CLA	CH	F2TNH049
	00056	0 24100 0 77777	49		FDP	M	F2TNH050
	00057	−0 60000 0 77776	50		STQ	F	F2TNH051
	00060	0 50000 0 77777	51		CLA	M	F2TNH052
	00061	0 30000 0 77776	52		FAD	F	F2TNH053
	00062	0 60100 0 77774	53		STO	T	F2TNH054
	00063	0 50000 0 77777	54		CLA	M	F2TNH055
	00064	0 30200 0 77776	55		FSB	F	F2TNH056
	00065	0 24100 0 77774	56	T10	FDP	T	F2TNH057
	00066	−0 60000 0 77774	57		STQ	T	F2TNH058
	00067	0 50000 0 77774	58		CLA	T	F2TNH059
	00070	0 02000 4 00001	59		TRA	1,4 RETURN	F2TNH060
	00071	0 56000 0 77776	60	T2	LDQ	F COMPUTE TANH 4LOGE IF X SMALL	F2TNH061
	00072	0 26000 0 00130	61		FMP	4LOGE COMPUTE X TIMES 4LOGE	F2TNH062
	00073	0 60100 0 77776	62		STO	F	F2TNH063
	00074	0 56000 0 77776	63		LDQ	F	F2TNH064
	00075	0 26000 0 77776	64		FMP	F	F2TNH065
	00076	0 60100 0 77775	65		STO	SQ	F2TNH066
	00077	0 30000 0 00127	66		FAD	D1 COMPUTE CONTINUED FRACTION	F2TNH067
	00100	0 60100 0 77774	67		STO	T	F2TNH068
	00101	0 50000 0 00126	68		CLA	C1	F2TNH069
	00102	0 24100 0 77774	69		FDP	T	F2TNH070
	00103	−0 60000 0 77774	70		STQ	T	F2TNH071
	00104	0 50000 0 77774	71		CLA	T	F2TNH072
	00105	0 30000 0 00125	72		FAD	B1	F2TNH073
	00106	0 76500 0 00043	73		LRS	35	F2TNH074
	00107	0 26000 0 77775	74		FMP	SQ	F2TNH075
	00110	0 30000 0 00130	75		FAD	4LOGE	F2TNH076
	00111	0 60100 0 77774	76		STO	T	F2TNH077
	00112	0 50000 0 77776	77		CLA	F	F2TNH078
	00113	0 02000 0 00065	78		TRA	T10	F2TNH079
			79			CONSTANTS	F2TNH080
	00114	+017000000000	80	MAX	OCT	017000000000	F2TNH081
	00115	+165544410070	81	MIN	DEC	.00034	F2TNH082
	00116	+270524354513	82	LOGE	DEC	1.4426950409B1	F2TNH083
	00117	+000000000242	83	CHAR	OCT	242	F2TNH084
	00120	+201400000000	84	CH	OCT	201400000000	F2TNH085
	00121	+127325604305	85	A	DEC	87.417497202B8	F2TNH086
	00122	+046477071523	86	B	DEC	617.9722695B12	F2TNH087
	00123	+010676467774	87	C	DEC	.03465735903B0	F2TNH088
	00124	+237214030720	88	D	DEC	9.9545957821B4	F2TNH089
	00125	+173433723377	89	B1	DEC	.01732867951	F2TNH090
	00126	+204704333566	90	C1	DEC	14.1384114018	F2TNH091
	00127	+211535527021	91	D1	DEC	349.6699888	F2TNH092
	00130	+203561250731	92	4LOGE	DEC	5.7707801636	F2TNH093
			93			ERASABLES	F2TNH094
		77777	94	M	EQU	−1	F2TNH095
		77776	95	F	EQU	−2	F2TNH096
		77775	96	SQ	EQU	−3	F2TNH097
		77774	97	T	EQU	−4	F2TNH098