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

[ARCTANS
[ARC TAN X
[CONTINUED FRACTION
[SINGLE PRECISION
[USES FLOS-1R 1S,1M,1A,1D,1X,1R,1N,1H,1Q
[JMP 1B
[ADDR X
[ADDR RESULT
[
[PI|2  1B-34
1
3110
[X  1B-32
0
0
[TEMP  1B-30
0
0
[TWO  1B-26
2
2000
[P<N-2>  1B-24
0
0
[P<N-1>  1B-22
0
0
[P<N>  1B-20
0
0
[Q<N-2>  1B-16
0
0
[Q<N-1>  1B-14
0
0
[Q<N>  1B-12
0
0
[B<N-1>  1B-10
0
0
[A<N>  1B-6
0
0
[ONE  1B-4
1
2000
[N-2  1B-2
0
0
#1B CLR
ADD 0
JMP 1X-1
ADD 1R+1 [RETURN
STC 1B+220
ADD 3
STC 1B+211
[TEST X, SEND TO 1B-32
LDA 2
STC 1B-32
LDA i2
SCRi1
ROLi1 [SIGN TO LINK BIT
APO
COM
STC 1B-31
LZEi
ADD 1B-4 [1 +
STC 1B+202 [SET SIGN FLAG
ADD 1B-32
AZE
APO
JMP p+7
JMP 1D
1B-4
1B-32
1B-32
CLR
JMP p+3
LDA i
1
STC 1B+173 [SET RECIP FLAG
[INITIALIZE AT N=3
[0 TO P<N-2>,N-2
STC 1B-24
STC 1B-23
STC 1B-2
STC 1B-1
[X TO P<N-1>
ADD 1B-32
STC 1B-22
ADD 1B-31
STC 1B-21
[ONE TO Q<N-2>,Q<N-1>,A<N>
ADD 1B-4
STA
1B-16
STA
1B-14
STC 1B-6
ADD 1B-3
STA
1B-15
STA
1B-13
STC 1B-5
[B<N-1>
JMP 1A [1B+63
1B-4
1B-2
1B-2
JMP 1M
1B-2
1B-32
1B-10
JMP 1M
1B-10
1B-10
1B-10
[A<N>
JMP 1A
1B-26
1B-6
1B-6
[P<N>
JMP 1M
1B-6
1B-22
1B-20
JMP 1M
1B-10
1B-24
1B-30
JMP 1A
1B-30
1B-20
1B-20
[Q<N>
JMP 1M
1B-6
1B-14
1B-12
JMP 1M
1B-10
1B-16
1B-30
JMP 1A
1B-30
1B-12
1B-12
[COMPARE FOR LOOP
LDA i
14
ADD 1B-12 [EXP Q<N>
ADD 1B-12
ADD 1B-14 [EXP Q<N-1>
COM
ADD 1B-20 [EXP P<N>
APOi
JMP 1B+166 [FINISH
[MOVE BACK ONE
CLR
ADD 1B-22 [P<N-1>
STC 1B-24
ADD 1B-21
STC 1B-23
ADD 1B-20 [P<N>
STC 1B-22
ADD 1B-17
STC 1B-21
ADD 1B-14 [Q<N-1>
STC 1B-16
ADD 1B-13
STC 1B-15
ADD 1B-12 [Q<N>
STC 1B-14
ADD 1B-11
STC 1B-13
JMP 1B+63
[FINISH
JMP 1D [1B+166
1B-20
1B-12
1B-30
SROi
RECIP FLAG [1B+173
JMP p+5 [1  OK
JMP 1S  [0 NOK
1B-34
1B-30
1B-30
SROi
SIGN FLAG [1B+202
JMP p+5
LDA
1B-27
COM
STC 1B-27
SET i1
ADDR RESULT [1B+211
LDA
1B-30
STA 1
LDA
1B-27
STAi1
RETURN [1B+220
[END ARCTANS
[JAN 9|1|69