fc TAPE 22-100-1 PETERSON
OCTAL
(24,6)
t=4a5
z14,si10
ca3
md13z11		|si17
tst
ad12z11
tsz18
ca2
clc24
ad12z11		|clc 0
tsz5
ts11z11
ca2
md13z11		|m 17
ad12z11		|clc 0
mts2z11
cat
srh3
ad14z11
tdz15
ex0
slh3
ad14z11
tdz16
si17
ca1z11
biz9
ca1
srh2
mz15,ab
ex0
srh1
z16,ab
si11
si245
ca1
bo41z10
si5
rd
su15z11
cp1z16
si245
caz11
boz9
si17
ca1z11
biz9
ca7z11
ts41z9
ca3
clc24
tdz19
td1z19
ca0
ts2a5
ts3a5
ca5
td3a1
a1,ca0
ts3774		|mantissa minor part
ca2a5		|input
slr0		|adjust to no. of sig bits
sf3a5
ts3773
cs3a5		|major part
ts3772
IN
imra5		|pi obtain angle in radiom
isp5a6		|sine routine
OUT
ca2a5
tst		|store input
cs3772
cpa4		|positive exponent check
tda2
ca3773
sa1
cs0
cpa3
ca3773
oma2,srr0
spz1		|print
ao2a5
su24
cpa1
si0
a3,ca3772
srh17
ad3773
srr0
spa2
a4,csa1
sp1
a5,+3.14159265
si0
DITTO
11r|si0
DECIMAL
ova6,
|||||||||||||||||||||||||
LSR FU4 sin x  cos x
0,ita47r	1,iad54r	2,isp6r	3,icst	4,isp10r	5,ita47r
6,imr48r	7,itst	8,icat	9,icp3r	10,isu50r	11,icp13r
|||||||||||||||||||||||||
12,isp10r	13,iad50r	14,isu52r	15,icp28r	16,isu52r	17,icp30r
18,isu52r	19,icp33r	20,isu52r	21,its2t	22,icat	23,icp26r
||||||||||||||||||||||||
24,ica2t
|||||||||||||||||||||||||
25,isp35r	26,ics2t	27,isp35r	28,iad52r	29,isp21r	30,its2t
31,ics2t	32,isp21r	33,iad52r	34,isp30r	35,its2t	36,imr2t
|||||||||||||||||||||||||
37,itst	38,imr56r	39,iad58r	40,imrt	41,iad60r	42,imrt
43,iad62r	44,imrt	45,iad64r	46,imr2t	47,isp
|||||||||||||||||||||||||
MULTIPLE
48,+.636619772	50,+4.	52,+1.	54,+1.570796327	56,+.0001514842	58,-.0046737656
|||||||||||||||||||||||||
60,+.0796896793	62,-.6459637111	64,+1.570796318
|||||||||||||||||||||||||
END OF SUBROUTINE
OCTAL
tmz1,taz2
clc0
ts1t
dm0
cpz2
ca1t
z19,srr
slr
ts
dm0
cpz17
ab0
z18,clc
cp1z2
z2,sp0
ca1
z3,srh2
z4,ab17z9
aoz3
tsz7
su3z11
cpz5-1
spz12
cat
z5,clc1
cpz20
z6,ca1
z7,srh2
ab6z9		|ex (1)
z20,aoz4
aoz3
su3z11
cpz8
spz12
z8,aoz5
su2z11
cp1z2
si245		|analex
caz11
boz9
si17		|clear
ca1z11
biz9
ca7z11
ts41z9
ca6z11
ts1z7
ca4z11
tsz4
ca10z11
tsz3
ca11z11
tsz5
spz2
z9,si0
DITTO
41r|1.20001
z10,si0
DITTO
41r|1.60400
z11,si104
si103
clc17
srh17
ab17z9
z10-z9
ab6z9
1.20001
srh2
clc0
clc0
si17
51z9
si1
tmz12,taz13
ca10z11
tsz3
tsz7
ca5z11
dm0
abz4
ab1z7
z13,sp0
z17,ca1t
spz18
START AT z14
m