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
2
2324
0237
[TAN PI|8
-1
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
6601
[STORAGE
 0
0
0
 0
0
0
[X**2
 0
0
0
[ENTER ARCTAND
#1B LDA
0
JMP 1X-1 [SET-UP RETURN
ADD 1R+1
STC p+134
[SET TABLE START ADDR
LDA i
p-33
STC p+64
[MOVE X TO STORE
LDA 2
STC p-22
[SET SIGN SWITCH
[TAKE ABSOLUTE VALUE
LDA i2
SCR 13
STC p+114
LDA 2
APO
COM
STC p-31+1
LDA i2
APO
COM
STC p-35+2
ADD 3
STC p+75
[X<TAN PI|8
JMP 1S
p-41
p-75
p-40
LDA
p-42+1
APO
JMP p+103 [YES
[X<TAN 3*PI|8
JMP 1S
p-51
p-110
p-50
LDA
p-52+1
APO
JMP p+77 [YES
[X>TAN 3*PI|8
JMP 1D
p-103
p-62
p-63
LDA i
p-115
STC p+45
[REVERSE SIGN SWITCH
ADD p+52
COM
STC p+50
[BEGIN CALCULATION
[X**2
 JMP 1M
p-73
p-74
p-67
CLR
STC p-74
STC p-75+1
STC p-76+2
[LOOP
[RESULT=RESULT+TERM
JMP 1A
p-100
 TERM
p-102
[RESULT=RESULT*X**2
JMP 1M
p-104
p-102
p-106
LDA i
3
ADM
p-11
SRO i
3567
JMP p-14-2
[ADD LAST TERM
JMP 1A
p-144
p-120
p-121
[RESULT=RESULT*X
JMP 1M
p-123
p-127
p-125
[ADD FACTOR
JMP 1A
p-127
 ADDR FACTOR
 ADDR RESULT
SET 3
p-2
LDA i3
SRO i
 SIGN SWITCH
COM
STA 3
LDA i3
SRO
p-5
COM
STA 3
 RETURN
 LDA i
p-172
STC p-21
JMP p-63
 JMP 1A
p-157
p-202
p-156
JMP 1S
p-163
p-206
p-165
JMP 1D
p-167
p-165
p-171
LDA i
p-220
STC p-41
JMP p-103
[END ARCTAND
[MJM 5-9-70