fc TAPE 1309 m0 LOCUS OF CONSTANT RANGE HOLST
DECIMAL
(24,6)
t=t1
32|	spa1
50|p1,	+70.0
p2,	-60.0
p3,	+90.0
p4,	+60.0
p5,	+20.0
70|i1,	3
j1,	10
80|e1,	+2.0
	+7.6
	+15.4
100|r1,	+250.
	+500.
	+750.
	+1000.
	+1250.
	+1500.
	+1750.
	+2000.
	+2250.
	+2500.
	||||||||||
200|a1,	cai1
	tda2
	caj1
	tda5
	IN
	isc0
a2,	icr0
a3,	isc1
	icr10
a4,	iMOAc
	icta4
a5,	icr0
a6,	OUT
	si126
	cak1
	spf1
	si92
	IN
	icap1
	iMOAi12.3s
	OUT
	si126
	spf2
	cap1
	cpa7
	cak2
	spa8
a7,	cak3
a8,	spf1
	si92
	IN
	imr2c2
	its7b
	isps1
	its2b
	ica7b
	isp5s1
	its3b
	icap2
	iMOAi123.4s
	OUT
	si126
	spf2
	cap2
	cpa9
	cak4
	spa10
a9,	cak5
a10,	spf1
	si92
	IN
	iMOAc
	imr2c2
	its1b
	OUT
	si126
	cak6
	spf1
	si92
	IN
	icap3
	iMOA+i123.4s
	OUT
	si126
	spf2
	si92
	IN
	iMOAc
	OUT
	si126
	cak7
	spf1
	si92
	IN
	icap4
	iMOA+i123.4s
	OUT
	si126
	spf2
	si92
	IN
	iMOAc
	iMOAc
	OUT
	si126
	cak8
	spf1
	si92
	IN
	isc0
	icae1+c
	iMOAi12.3s
	OUT
	si126
	spf2
	si92
	IN
	iMOAc
	imr2c2
	its4b
	isps1
	its5b
	ica4b
	isp5s1
	its6b
	OUT
	si126
	cak9
	spf1
	si92
	IN
	isc1
	icar1+c
	iMOAi1234.5s
	OUT
	si126
	spf3
	si92
	IN
	iMOAc
	idvc2
	its4b
	imr5b
	iex4b
	imr6b
	iad2c1
	iex4b
	idv4b
	icpm1
	isps5
	its4b
	isps1
	imr3b
	its5b
	ica4b
	isp5s1
	imr2b
	its6b
	OUT
	si126
	cak10
	spf1
	si92
	IN
	ica4b
	imrc2
	iMOAi1234.5s
	OUT
	si126
	spf3
	si92
	IN
	iMOAc
	iMOAc
	iMOAc
	OUT
	si126
	cak11
	spf1
	si92
	IN
	iMOAc
	iMOAc
	icsc1
	its8b
b1,	ics8b
	ispd1
	ica8b
	icpb2
	ispd1
b2,	ica8b
	iadp5
	its8b
	isup4
	icpb1
	iMOAc
	isc1
	icta6
	isc0
	icta3
	iMOAc
	iSTOP
m1,	OUT
	ca1
	dv0
	si0
c1,	+0.
	+1.
	+2.
c2,	+3437.65
	+1.74532925x10-2
	+3.1415926536
t1,
10r|
||||||||||
d1,	itad10
	iadp3
	iMOA+p123.4t
	imr2c2
	isps1
	imr6b
	iad5b
	isps3
	its9b
	idv2c2
	iMOAp12.3
	itst
	OUT
	si126
	cat
	cpd2
	cak12
	spd3
d2,	cak13
d3,	spf1
	si92
	IN
	ica9b
	isu7b
	iad4b
	idv4c1
	isp5s1
	its10b
	ica4b
	iad7b
	isu9b
	idv4c1
	isp5s1
	imr10b
	its10b
	ica4b
	isu7b
	isu9b
	idv4c1
	isps1
	its11b
	ica4b
	iad7b
	iad9b
	idv4c1
	isps1
	imr11b
	iex10b
	idv10b
	isps2
	isps5
	imr4c1
	iad1b
d4,	its11b
	icpd6
	isu4c2
	icpd7
	isu4c2
	ispd4
d5,	iad4c2
	ispd4
d6,	iad4c2
	icpd5
d7,	ica11b
	idv2c2
	iMOAp123.4
	itst
	OUT
	si126
	cat
	cpd8
	cak14
	spd9
d8,	cak15
d9,	spf1
	si92
	IN
	iMOAc
d10,	isp0
s1,
|||||||||||||||||||||||||
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
{61}s2,
LSR FU 2b (30-j,j) SQUARE ROOT
za1=t	za2=2t
0r,ita26r	its+za1	OUT	ca2043	dm0	cp25r	ab0	cp0
ao2042	srh1	ts2042	sp12r	ta22r	IN	its+za2	ica+za1	idv+za2
iad+za2	OUT	ca2042	su1	ts2042	sp	sp12r	sp12r	IN
isp
END OF SUBROUTINE
||||||||||
{61}s3,	ita9r
	icp4r
	isps4
	isp9r
4r,	itsb
	icsb
	isps4
	itsb
	icsb
9r,	isp0
s4,
|||||||||||||||||||||||||||||||||||
LSR FU6 arc sin x
MULTIPLE
0,ita15r	itsb	ica18r	icx32r	icr6	5,imrb	iad20r+c	ict5r	its4t	ica16r	isub	isp36r
imr4t	iad34r	icx32r		15,isp		16,+1.		18,-.0022959648	+0.0111462294
-.0268999482		24,+.0488025043	-.0887556286	+.2145852647	-1.5707961728
32,+0	+0		34,+1.570796327
36,
0r,ita26r	its2t	OUT	ca2043	dm0	cp31r	ao2042	srh1
ts2042	ca29r		10r,ts2044	ex2043	cp0	IN	itst
ica2t	idvt	iadt	imr27r	iext		20r,isut	idvt
isu29r	icp25r	isp15r	icat	isp	0.40000	+0	0.77777
	30r,1.51000	IN	isp26r
||||||||||||||||||||||||||||||||||||
END OF SUBROUTINE
{61}s5,
LSR FU 7 ARC TAN
0r,ita33r	its4t	2r,itst	icp34r	iad54r	5r,icp32r
icat	iad38r	iext	isu38r	10r,idvt	itst	imrt	its2t
imr54r	15r,iad52r	imr2t	iad50r	imr2t	iad48r	20r,imr2t
iad46r	imr2t	iad44r	imr2t	25r,iad42r	imr2t	iad40r
imrt	iad56r	30r,iex4t	icp36r	ica4t	33r,isp0	34r,ics4t
35r,isp2r	36r,ics4t	37r,isp33r	38r,+1.	40r,+.9999993329
42r,-.3332985605	44r,+.1994653599	46r,-.1390853351	48r,+.0964200441
50r,-.0559098861	52r,+.0218612288	54r,-.004054058	56r,+.7853981634
END OF SUBROUTINE
{61}||||||||||
f1,	ta3r
	td2r
2r,	ca0
3r,	cp0
	clc10
	rc0
	ao2r
	sp2r
f2,	ta3r
	ca4r
	spf1
3r,	sp0
4r,	5r
5r,	18
	2
	52
	20
	2
	2
	10
	8
	-1
f3,	ta3r
	ca4r
	spf1
3r,	sp0
4r,	5r
5r,	57
	24
	56
	61
	8
	-1
k1,	ca1r
	10
	12
	32
	2
	57
	9
	61
	8
k2,	ca1r
	57
	24
	61
	48
	20
	32
	40
	25
	8
k3,	ca1r
	57
	10
	61
	48
	14
	32
	40
	25
	8
k4,	ca1r
	57
	2
	61
	6
	10
	32
k5,	ca1r
	57
	38
	61
	2
	10
	32
k6,	ca1r
	28
	2
	24
	32
	2
	20
	8
	6
	34
	12
	56
	14
	32
	40
	8
	9
	8
k7,	ca1r
	26
	6
	24
	8
	40
	6
	36
	26
	8
	38
	12
	18
	32
	40
	8
	9
	8
k8,	ca1r
	26
	6
	24
	8
	2
	36
	2
	60
	6
	32
	12
	48
	24
	8
	9
	8
k9,	ca1r
	20
	6
	18
	6
	20
	8
	20
	6
	24
	52
	2
	8
	9
	8
k10,	ca1r
	52
	20
	48
	14
	24
	18
	8
	20
	6
	24
	52
	2
	8
	9
	8
k11,	ca1r
	6
	34
	12
	56
	14
	32
	40
	37
	36
	6
	32
	17
	37
	36
	48
	24
	52
	17
	37
	57
	25
	61
	6
	36
	36
	8
	12
	24
	8
	18
	2
	52
	17
	57
	17
	61
k12,	ca1r
	57
	24
	61
	37
k13,	ca1r
	57
	10
	61
	37
k14,	ca1r
	57
	2
	61
k15,	ca1r
	57
	38
	61
	ca1r
START AT 0
0