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

[2PIRLESD
[REDUCES X TO WITHIN APPROX +-2*PI
[DOUBLE PRECISION
[USES FLOD-1R 1A,1S,1N,1R,1H,1Q,1X
[JMP 1V
[ADDR X
[ADDR RESULT
[
[2*PI  1V-3
3
3110
1767
#1V CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC 1V+26
ADD 3
STC 1V+43
LDAi
JMP 1S
STC 1V+40
LDA 2
STA 3
LDA i2
STA i3
LDA i2
STA i3
JMP 1V+44
LDA 2 [1V+21
COM
ADA i
4
APOi
JMP RETURN [1V+26
LDA
2
STC 1V+41
LDAi2
APOi
JMP p+4
LDAi
JMP 1A
STC p+1
JMP 1S [1V+40
ADDR X [1V+41
1V-3
ADDR RESULT 1V+43
SET 2
p-2
JMP 1V+21
[END 2PIRLESD
[JAN 9|2|69
[MOD: MJM 3-11-70