Directory of image this file is from
This file as a plain text file

[ARCTAND
[ARCTANGENT OF X
[POWER SERIES METHOD
[CALL:
[JMP 1B
[ADDR X
[ADDR RESULT
[
[TAN 3*PI|8
 0002
2324
0237
[TAN PI|8
 7776
3240
2362
[-PI|2
 1
-3110
-1767
[PI|4
 -0
3110
1767
[ONE
 1
2000
0000
[ZERO
 -0
-0
-0
[TABLE OF TERMS
 7774
2434
2072
7775
5621
4752
7775
3144
1167
7776
5252
6604
[STORAGE
 0
0
0
 0
0
0
[X**2
 0
0
0
[ENTER ARCTAND
#1B LDA
0
JMP 1X-1 [GET ADDR
ADD 1R+1 [RETURN
STC p+135
[SET TABLE START ADDR
LDA i
p-33
STC p+66
[MOVE X TO STORE
LDA 2
STC p-22
[SET SIGN SWITCH
[TAKE ABSOLUTE VALUE
LDA i2
SCR 13
STC p+115
LDA 2
APO
COM
STC p-31+1
LDA i2
APO
COM
STC p-35+2
ADD 3
STC p+76
[X<TAN PI|8?
JMP 1S
p-41
p-75
p-40
LDA
p-42+1
APO
JMP p+104
[X<TAN 3*PI|8?
JMP 1S
p-51
p-110
p-50
LDA
p-52+1
APO
JMP p+100
[X>TAN 3*PI|8
JMP 1D
p-103
p-62
p-63
LDA i
p-115
STC p+46
[REVERSE SIGN SWITCH
ADD p+53
COM
STC p+51
[BEGIN CALCULATION
[X**2
 JMP 1M
p-73
p-74
p-67
CLR
STC p-74
STC p-75+1
STC p-76+2
SET i4
-4
[LOOP
[RESULT=RESULT+TERM
JMP 1A
p-102
 0 [TERM
p-104
[RESULT=RESULT*X**2
JMP 1M
p-106
p-104
p-110
LDA i
3
ADM
p-11
XSK i4
JMP p-13-2
[ADD LAST TERM
JMP 1A
p-145
p-121
p-122
[RESULT=RESULT*X
JMP 1M
p-124
p-130
p-126
[ADD FACTOR
JMP 1A
p-130
 0 [ADDR FACTOR
 0 [ADDR RESULT
SET 3
p-2
LDA i3
SRO i
 SIGN SWITCH
COM
STA 3
LDA i3
SRO
p-5
COM
STA 3
 JMP [RETURN
[CALCULATIONS FOR INITIAL RANGES
 LDA i
p-173
STC p-21
JMP p-64
 JMP 1A
p-160
p-203
p-157
JMP 1S
p-164
p-207
p-166
JMP 1D
p-170
p-166
p-172
LDA i
p-221
STC p-41
JMP p-104
[END ARCTAND
[MJM 4-23-70
[MJM 4-15-71