1			0	F2ATN002
			2			FL0ATING POINT ARCTANGENT SUBROUTINE, FORTRAN VERSION	F2ATN003
	00000	−0 63400 1 00121	3	ATAN	SXD	I1,1 SAVE INDEX REGISTER ONE	F2ATN004
	00001	−0 12000 0 00063	4		TMI	T100 SET ARGU0ENT POSITIVE	F2ATN005
	00002	0 60100 0 77777	5	T30	STO	X STORE ARGUMENT	F2ATN006
	00003	0 40200 0 00072	6		SUB	MAX TEST IF OUT OF RANGE	F2ATN007
	00004	−0 12000 0 00007	7		TMI	T21	F2ATN008
	00005	0 50000 0 00120	8		CLA	PI0V2 IF TOO LARGE, RETURN WITH PI/2	F2ATN009
	00006	0 02000 4 00001	9		TRA	1,4	F2ATN010
	00007	0 40000 0 00071	10	T21	ADD	MIN	F2ATN011
	00010	0 12000 0 00013	11		TPL	T22	F2ATN012
	00011	0 50000 0 77777	12		CLA	X	F2ATN013
	00012	0 02000 4 00001	13		TRA	1,4 IF TOO SMALL, RETURN WITH ARGUMENT	F2ATN014
	00013	0 53400 1 00121	14	T22	LXA	I1,1	F2ATN015
	00014	0 50000 0 77777	15	T17	CLA	X TEST FOR INTERVAL CONTAINING X	F2ATN016
	00015	0 40200 1 00076	16		SUB	A,1	F2ATN017
	00016	−0 12000 0 00020	17		TMI	T1	F2ATN018
	00017	1 00001 1 00014	18		TXI	T17,1,1	F2ATN019
	00020	3 00000 1 00024	19	T1	TXH	T2,1,0 IF IN INTERVAL ONE LET Z=9X/55	F2ATN020
	00021	0 56000 0 77777	20		LDQ	X	F2ATN021
	00022	0 26000 0 00117	21		FMP	L	F2ATN022
	00023	0 02000 0 00037	22		TRA	T11	F2ATN023
	00024	−0 75400 1 00000	23	T2	PXD	0,1 TAKE NEGATIVE OF INDEX REGISTER ONE	F2ATN024
	00025	0 40200 0 00123	24		SUB	CHAR	F2ATN025
	00026	−0 73400 1 00000	25		PDX	0,1	F2ATN026
	00027	0 50000 0 77777	26	T3	CLA	X COMPUTE Z=A-B/O+X FOR PROPER INTERVAL	F2ATN027
	00030	0 30000 1 00072	27		FAD	MAX,1	F2ATN028
	00031	0 60100 0 77776	28		STO	T	F2ATN029
	00032	0 50200 1 00102	29		CLS	B,1	F2ATN030
	00033	0 24100 0 77776	30		FDP	T	F2ATN03I
	00034	−0 60000 0 77776	31		STQ	T	F2ATN032
	00035	0 50000 0 77776	32		CLA	T	F2ATN033
	00036	0 30000 1 00076	33		FAD	A,1	F2ATN034
	00037	0 60100 0 77777	34	T11	STO	X	F2ATN035
	00040	0 56000 0 77777	35		LDQ	X	F2ATN036
	00041	0 26000 0 77777	36		FMP	X COMPUTE Z SQUARED	F2ATN037
	00042	0 60100 0 77775	37		STO	SQ COMPUTE CONTINUED FRACTION	F2ATN038
	00043	0 30000 0 00114	38		FAD	C1	F2ATN039
	00044	0 60100 0 77776	39		STO	T	F2ATN040
	00045	0 50200 0 00115	40		CLS	C2	F2ATN041
	00046	0 24100 0 77776	41		FDP	T	F2ATN042
	00047	−0 60000 0 77776	42		STQ	T	F2ATN043
	00050	0 50000 0 77776	43		CLA	T	F2ATN044
	00051	0 30000 0 00116	44		FAD	C3	F2ATN045
	00052	0 30000 0 77775	45		FAD	SQ	F2ATN046
	00053	0 60100 0 77776	46		STO	T	F2ATN047
	00054	0 50000 0 77777	47		CLA	X	F2ATN048
	00055	0 24100 0 77776	48		FDP	T	F2ATN049
	00056	−0 60000 0 77776	49		STQ	T	F2ATN050
	00057	0 50000 0 77776	50		CLA	T	F2ATN051
	00060	0 30000 1 00107	51		FAD	N,1 ADD INTERVAL CONSTANT	F2ATN052
	00061	−0 53400 1 00121	52		LXD	I1,1	F2ATN053
	00062	0 02000 4 00001	53		TRA	1,4 RETURN	F2ATN054
	00063	−0 63400 4 00122	54	T100	SXD	I4,4 IF ARGUMENT NEGATIVE, SET RETURN NEGATIVE	F2ATN055
	00064	0 76000 0 00003	55		SSP		F2ATN056
	00065	0 07400 4 00002	56		TSX	T30,4 ARRANGE TO SET RETURN NEGATIVE	F2ATN057
	00066	−0 53400 4 00122	57		LXD	I4,4	F2ATN058
	00067	−0 76000 0 00003	58		SSM		F2ATN059
	00070	0 02000 4 00001	59		TRA	1,4	F2ATN060
			60			CONSTANTS	F2ATN061
	00071	+070000000000	61	MIN	OCT	070000000000	F2ATN062
	00072	+233000000000	62	MAX	OCT	233000000000	F2ATN063
	00073	+202537532534	63		DEC	2.7474774195	F2ATN064
	00074	+201461055415	64		DEC	1.1917535926	F2ATN065
	00075	+200447464721	65		DEC	.57735026919	F2ATN066
	00076	+176551074172	66	A	DEC	.17632698071	F2ATN067
	00077	+177714301134	67		DEC	.44958721409	F2ATN068
	00100	+176617307170	68		DEC	.19501422424	F2ATN069
	00101	+175602761366	69		DEC	.94475498595E−1	F2ATN070
	00102	+173730570600	70	B	DEC	.288535059E−1	F2ATN071
	00103	+201546070234	71		DEC	1.398867082	F2ATN072
	00104	+177625431617	72		DEC	.39604526598	F2ATN073
	00105	+176676654157	73		DEC	.21818181818	F2ATN074
	00106	+176531427747	74		DEC	.1687240152	F2ATN075
	00107	+000000000000	75	N	DEC	0	F2ATN076
	00110	+177545343022	76		DEC	.3490658504	F2ATN077
	00111	+200545343022	77		DEC	.6981317008	F2ATN078
	00112	+201414052216	78		DEC	1.047197551	F2ATN079
	00113	+201545343022	79		DEC	1.396263402	F2ATN080
	00114	+174642612432	80	C1	DEC	.051119459	F2ATN081
	00115	+170543147755	81	C2	DEC	.00270998425	F2ATN082
	00116	+176673545053	82	C3	DEC	.21664913599	F2ATN083
	00117	+176517101123	83	L	DEC	.16363636363	F2ATN084
	00120	+201622077325	84	PI0V2	DEC	1.57079633	F2ATN085
	00121	0 00000 0 00000	85	I1			F2ATN086
	00122	0 00000 0 00000	86	I4			F2ATN087
	00123	+200000000000	87	CHAR	OCT	200000000000	F2ATN088
			88			ERASABLES	F2ATN089
		77777	89	X	EQU	−1	F2ATN090
		77776	90	T	EQU	−2	F2ATN091
		77775	91	SQ	EQU	−3	F2ATN092