fc TAPE 1312 m1 ELEVATION VERSUS AZIMUTH HOLST
DECIMAL
(24,6)
t=t1
32|	spa1
40|p1,	6
p2,	+1.0
	+2.0
	+3.0
	+3.5
	+4.0
	+5.0
70|p3,	14
p4,	+0.5
	+1.0
	+1.5
	+2.0
	+2.5
	+3.0
	+3.5
	+4.0
	+4.5
	+5.0
	+5.5
	+6.0
	+6.5
	+7.0
||||||||||
100|a1,	cap1
	tda2
	cap3
	tda3
	si222
	rd0
	tst5
	IN
	isc0
a2,	icr0
a4,	iti2
	isc1
a3,	icr0
a5,	iti3
	icap4+c
	idv4c1
	imr6c1
	itsb
	isps1
	its4b
	icab
	isp5s1
	its3b
	icst5
	icpa6
	iMOAc
	isc0
	icap2+c
	iMOA-i12.345c
	isc1
	icap4+c
	iMOA
	iMOAc
a6,	isc0
	icap2+c
	imr6c1
	iadb
	itsb
	isps1
	its2b
	icab
	isp5s1
	its1b
	icac1
	its2t2
	OUT
	cs1
	ts1t5
	ca0
	tst3
	tsb4
	IN
	ispb1
	ics3b
	its3b
	ispb1
d1,	iFRAME
	iCOLUMN
	iCOLUMN
	isc2
	icr16
d2,	iSOAc
	ictd2
	isc0
	icap2+c
	iSOA-i12.345
	iSOAc
	iSOAc
	isc1
	icap4+c
	iSOA-i12.345
	iFRAME
	ica2t2
	iad4c1
	itsd3
	OUT
	cat3
	adc3
	slr1
	tsd4
	IN
	iFOC1
	+100.
d3,	+0.
	iSCX
	+0.
	+0.
	40
d4,	0
	OUT
	ca0
	tsd6
d5,	IN
	iDIB
	t4
d6,	0
	4
	ics2t4
	itst
	icat4
	iSOC
	2t4
	iSOC
	t
	OUT
	cad6
	ad1d6
	tsd6
	sub4
	ad1d6
	cpd5
	IN
	iFRAME
	isc1
	icta5
	icr6
d7,	iFRAME
	ictd7
	isc0
	icta4
	iSTOP
||||||||||
b1,	itab7
	icac1
b6,	itst2
	isps1
	its5b
	ica1b
	imr3b
	itsb
	ica2b
	imr4b
	imr5b
	iadb
	itsb
	isu2c2
b7,	icp0
	icat2
	isp5s1
	imr4b
	idvb
	isps4
	idv6c1
	its2t4
	ica2b
	imr3b
	itsb
	ica1b
	imr4b
	imr5b
	isub
	isps2
	idv6c1
	itst4
b2,	icst4
	icpb3
	icat4
b3,	iad2t2
	icpb5
	iDOB
	t4
b4,	0
	4
	icst5
	icpb8
	ics1t5
	icpb8
	ica2t4
	iMOA-i12.345t
	icat4
	iMOA-i12.345c
b8,	OUT
	cab4
	ad1b4
	tsb4
	IN
	icat2
	iadc2
	ispb6
b5,	ica2t2
	iad2c1
	its2t2
	OUT
	aot3
	IN
	ispb2
||||||||||
c1,	+0.
	+1.
	+2.
	+1.74532925x10-2
c2,	+.02
	+1.x10-10
c3,	2
t1,
10r|t2,	+0.
	+0.
t3,	0
t4,	0
	0
	0
	0
t5,	0
	0
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,	ita9r
	icp4r
	isps3
	isp9r
4r,	itsb
	icsb
	isps3
	itsb
	icsb
9r,	isp0
s3,
|||||||||||||||||||||||||||||||||||
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}s4,
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}START AT 0
0