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

[COSSINS
[COS OR SIN OF X
[SINGLE PRECISION
[TAYLOR SERIES
[USES FLOS-1R 1A,1M,1D,1S,1R,1H,1Q,1X,1N
[JMP 1W [COS, 1Y FOR SIN
[ADDR X
[ADDR RESULT
[
[COS OF X
[ONE 1W-14
1
2000
[POWER OF X  1W-12
0
0
[FACTORIAL  1W-10
0
0
[TERM  1W-6
0
0
[X"2  1W-4
0
0
[N  1W-2
0
0
#1W CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC 1W+115
ADD 3 [RESULT
STA
1W+112
STA
1W+102
STC 1W+104
[ONE TO SUM,POWER X,FACT
ADD1W-14
STA 3
STA
1W-12
STC 1W-10
ADD 1W-13
STAi3
STA
1W-11
STC 1W-7
[0 TO N
STC 1W-2
STC 1W-1
LDAi
JMP 1A
STA
1W+101
BCOi
JMP 1S
STC 1W+77
ADD 2
STA 
p+6
STC p+6
LDAi2
AZEi
JMP 1W+115
JMP 1M
ADDR X
ADDR X
1W-4
[LOOP
JMP 1M [1W+51
1W-12
1W-4
1W-12
JMP 1A
1W-14
1W-2
1W-2
JMP 1M
1W-2
1W-10
1W-10
SRO i
2525
JMP p-12
JMP 1D
1W-12
1W-10
1W-6
LDA
p+4
BCOi
ALTERNATE + , ,  1W+77
STC p+1
JMP 1A [1W+101
ADDR RESULT  1W+102
1W-6
ADDR RESULT
LDAi
14
ADD 1W-6
COM
ADA 
ADDR RESULT  1W+112
APO
JMP 1W+51
JMP RETURN 1W+115
[ENTER SIN OF X
#1Y CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC 1W+115
ADD 3
STC 1Y+20
ADD 2
STC p+3
JMP 1S
1Y+23
ADDR X
1W-6
SET i2
1W-6
SET i3
ADDR RESULT [1Y+20
CLR
JMP 1W+5
1  [PI|2  1Y+23
3110
[END COSSINS
[JAN 9|1|69