␣␣␣␣␣A = 62

1. Definition

   00076

   +176551074172

   66

   A

   DEC

   .17632698071

   F2ATN067

2. References (2)

   	00015	0 40200 1 00076	16		SUB	A,1	F2ATN017
   	00036	0 30000 1 00076	33		FAD	A,1	F2ATN034

␣␣␣␣␣B = 66

1. Definition

   00102

   +173730570600

   70

   B

   DEC

   .288535059E−1

   F2ATN071

2. Reference

   00032

   0 50200 1 00102

   29

   CLS

   B,1

   F2ATN030

␣␣␣␣␣L = 79

1. Definition

   00117

   +176517101123

   83

   L

   DEC

   .16363636363

   F2ATN084

2. Reference

   00022

   0 26000 0 00117

   21

   FMP

   L

   F2ATN022

␣␣␣␣␣N = 71

1. Definition

   00107

   +000000000000

   75

   N

   DEC

   0

   F2ATN076

2. Reference

   00060

   0 30000 1 00107

   51

   FAD

   N,1 ADD INTERVAL CONSTANT

   F2ATN052

␣␣␣␣␣T = 32766

1. Definition

   77776

   90

   T

   EQU

   −2

   F2ATN091

2. References (12)

   	00031	0 60100 0 77776	28		STO	T	F2ATN029
   	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
   	00044	0 60100 0 77776	39		STO	T	F2ATN040
   	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
   	00053	0 60100 0 77776	46		STO	T	F2ATN047
   	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

␣␣␣␣␣X = 32767

1. Definition

   			88			ERASABLES	F2ATN089
   		77777	89	X	EQU	−1	F2ATN090

2. References (9)

   	00002	0 60100 0 77777	5	T30	STO	X STORE ARGUMENT	F2ATN006
   	00011	0 50000 0 77777	12		CLA	X	F2ATN013
   	00014	0 50000 0 77777	15	T17	CLA	X TEST FOR INTERVAL CONTAINING X	F2ATN016
   	00021	0 56000 0 77777	20		LDQ	X	F2ATN021
   	00027	0 50000 0 77777	26	T3	CLA	X COMPUTE Z=A-B/O+X FOR PROPER INTERVAL	F2ATN027
   	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
   	00054	0 50000 0 77777	47		CLA	X	F2ATN048

␣␣␣␣C1 = 76

1. Definition

   00114

   +174642612432

   80

   C1

   DEC

   .051119459

   F2ATN081

2. Reference

   00043

   0 30000 0 00114

   38

   FAD

   C1

   F2ATN039

␣␣␣␣C2 = 77

1. Definition

   00115

   +170543147755

   81

   C2

   DEC

   .00270998425

   F2ATN082

2. Reference

   00045

   0 50200 0 00115

   40

   CLS

   C2

   F2ATN041

␣␣␣␣C3 = 78

1. Definition

   00116

   +176673545053

   82

   C3

   DEC

   .21664913599

   F2ATN083

2. Reference

   00051

   0 30000 0 00116

   44

   FAD

   C3

   F2ATN045

␣␣␣␣I1 = 81

1. Definition

   00121

   0 00000 0 00000

   85

   I1

   F2ATN086

2. References (3)

   	00000	−0 63400 1 00121	3	ATAN	SXD	I1,1 SAVE INDEX REGISTER ONE	F2ATN004
   	00013	0 53400 1 00121	14	T22	LXA	I1,1	F2ATN015
   	00061	−0 53400 1 00121	52		LXD	I1,1	F2ATN053

␣␣␣␣I4 = 82

1. Definition

   00122

   0 00000 0 00000

   86

   I4

   F2ATN087

2. References (2)

   	00063	−0 63400 4 00122	54	T100	SXD	I4,4 IF ARGUMENT NEGATIVE, SET RETURN NEGATIVE	F2ATN055
   	00066	−0 53400 4 00122	57		LXD	I4,4	F2ATN058

␣␣␣␣SQ = 32765

1. Definition

   77775

   91

   SQ

   EQU

   −3

   F2ATN092

2. References (2)

   	00042	0 60100 0 77775	37		STO	SQ COMPUTE CONTINUED FRACTION	F2ATN038
   	00052	0 30000 0 77775	45		FAD	SQ	F2ATN046

␣␣␣␣T1 = 16

1. Definition

   00020

   3 00000 1 00024

   19

   T1

   TXH

   T2,1,0 IF IN INTERVAL ONE LET Z=9X/55

   F2ATN020

2. Reference

   00016

   −0 12000 0 00020

   17

   TMI

   T1

   F2ATN018

␣␣␣␣T2 = 20

1. Definition

   00024

   −0 75400 1 00000

   23

   T2

   PXD

   0,1 TAKE NEGATIVE OF INDEX REGISTER ONE

   F2ATN024

2. Reference

   00020

   3 00000 1 00024

   19

   T1

   TXH

   T2,1,0 IF IN INTERVAL ONE LET Z=9X/55

   F2ATN020

␣␣␣␣T3 = 23

1. Definition

   00027

   0 50000 0 77777

   26

   T3

   CLA

   X COMPUTE Z=A-B/O+X FOR PROPER INTERVAL

   F2ATN027

␣␣␣MAX = 58

1. Definition

   00072

   +233000000000

   62

   MAX

   OCT

   233000000000

   F2ATN063

2. References (2)

   	00003	0 40200 0 00072	6		SUB	MAX TEST IF OUT OF RANGE	F2ATN007
   	00030	0 30000 1 00072	27		FAD	MAX,1	F2ATN028

␣␣␣MIN = 57

1. Definition

   			60			CONSTANTS	F2ATN061
   	00071	+070000000000	61	MIN	OCT	070000000000	F2ATN062

2. Reference

   00007

   0 40000 0 00071

   10

   T21

   ADD

   MIN

   F2ATN011

␣␣␣T11 = 31

1. Definition

   00037

   0 60100 0 77777

   34

   T11

   STO

   X

   F2ATN035

2. Reference

   00023

   0 02000 0 00037

   22

   TRA

   T11

   F2ATN023

␣␣␣T17 = 12

1. Definition

   00014

   0 50000 0 77777

   15

   T17

   CLA

   X TEST FOR INTERVAL CONTAINING X

   F2ATN016

2. Reference

   00017

   1 00001 1 00014

   18

   TXI

   T17,1,1

   F2ATN019

␣␣␣T21 = 7

1. Definition

   00007

   0 40000 0 00071

   10

   T21

   ADD

   MIN

   F2ATN011

2. Reference

   00004

   −0 12000 0 00007

   7

   TMI

   T21

   F2ATN008

␣␣␣T22 = 11

1. Definition

   00013

   0 53400 1 00121

   14

   T22

   LXA

   I1,1

   F2ATN015

2. Reference

   00010

   0 12000 0 00013

   11

   TPL

   T22

   F2ATN012

␣␣␣T30 = 2

1. Definition

   00002

   0 60100 0 77777

   5

   T30

   STO

   X STORE ARGUMENT

   F2ATN006

2. Reference

   00065

   0 07400 4 00002

   56

   TSX

   T30,4 ARRANGE TO SET RETURN NEGATIVE

   F2ATN057

␣␣ATAN = 0

1. Definition

   			2			FL0ATING POINT ARCTANGENT SUBROUTINE, FORTRAN VERSION	F2ATN003
   	00000	−0 63400 1 00121	3	ATAN	SXD	I1,1 SAVE INDEX REGISTER ONE	F2ATN004

␣␣CHAR = 83

1. Definition

   00123

   +200000000000

   87

   CHAR

   OCT

   200000000000

   F2ATN088

2. Reference

   00025

   0 40200 0 00123

   24

   SUB

   CHAR

   F2ATN025

␣␣T100 = 51

1. Definition

   00063

   −0 63400 4 00122

   54

   T100

   SXD

   I4,4 IF ARGUMENT NEGATIVE, SET RETURN NEGATIVE

   F2ATN055

2. Reference

   00001

   −0 12000 0 00063

   4

   TMI

   T100 SET ARGU0ENT POSITIVE

   F2ATN005

␣PI0V2 = 80

1. Definition

   00120

   +201622077325

   84

   PI0V2

   DEC

   1.57079633

   F2ATN085

2. Reference

   00005

   0 50000 0 00120

   8

   CLA

   PI0V2 IF TOO LARGE, RETURN WITH PI/2

   F2ATN009