fc TAPE 327-282-200 WILLMANN
(24,6)
t=t1
t1,+0.	150r|t2,+1942.5416	+81.626693	+.013675503
+1.4138314	+1929.5025	+36.7039345	+.027971111
+1.4114494	+0.	+14.	+65.	+36.5428416
+1.x10-5	-1.	+0.	+2.	+1.	+1.57079638
+57.2957795	+3.908097x10-3	+3437.	k1,+.00336	+0.
+.058608727	+805.92786	k3,+1.0016270	k5,+0.	26r|k7,+0.
a1,
LSR FU4a RAPID SIN-COS
0r,iad64r	imr66r	OUT	ca2042	su0	cp32r	su1
cp57r	su59r	cp11r	10r,sp0	ad61r	ts18r	cm2043
ts2043	cm2044	srh15	ad2043	+0	clh1	20r,ts18r
md63r	clh1	cp47r	sf2042	ts2043	slh15	ex2044	sd18r
cp52r	30r,cs2042	ts2042	IN	ita46r	its2t
imr2t	itst	imr68r	iad70r	imrt	40r,iad72r
imrt	iad74r	imrt	iad76r	imr2t	isp	sd62r	clh16
sd62r	50r,clh16	sp24r	cs2043	ts2043	cs2044	ts2044
sp30r	ca60r	sp12r	+28	60r,srh1	slh27	1.77777
0.77777	MULTIPLE	+1.570796327	+.636619772	+.0001514842
70r,-.0046737656	+.0796896793	-.6459637111	+1.570796318
END OF SUBROUTINE
{61}a3,
LSR FU6a ARC SIN
za1=t	za2=2t	za3=4t
a3,0,ita26r	itsza3	icp47r	3,imr29r	iad31r	imrza3	iad33r
imrza3	iad35r	imrza3	iad37r	imrza3	iad39r	imrza3
iad41r	itsza1	ica27r	isuza3	isp52r	imrza1	iad43r
imr45r	itsza3	ica27r	its45r	icaza3	26,isp	27,+1.
29,-.0022959648	31,+0.0111462294	33,-.0268999482
35,+.0488025043	37,-.0887556286	39,+.2145852647
41,-1.5707961728	43,+1.570796327	45,+1.	47,ics27r
its45r	icsza3	itsza3	isp3r	52,0r,ita26r	its+za3
OUT	ca2043	dm0	cp25r	ab0	cp0	ao2042	srh1
ts2042	sp12r	ta22r	IN	its+za2	ica+za3
idv+za2	iad+za2	OUT	ca2042	su1	ts2042	sp
sp12r	sp12r	IN	isp
END OF SUBROUTINE
{61}a4,
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,+.096420441
50r,-.0559098861	52r,+.0218612288	54r,-.004054058
56r,+.7853981634
END OF SUBROUTINE
{61}a5,
LSR OD 2 DELAYED (30 - j,j) PRINT
za1={61}
0r,ita99r	OUT	ca2043	ts114r	cp7r	ca141r
sp8r	ca142r	sp115r	clc8	sp115r	ca0
|||||||||||||||||||||||||
12r,ts91r	ca109r	ts29r	ca2042	ts44r	cp20r
ao29r	ao29r	ca2044	ts89r	sa129r	cp124r
|||||||||||||||||||||||||
24r,cs2042	su106r	cp31r	ao91r	IN	+0
sp24r	ad105r	cp27r	ad119r	ex44r	ts2042
|||||||||||||||||||||||||
36r,cp39r	cs91r	ts91r	ca104r	ex89r	ex2044
srh15	ad2043	+0	ts44r	slh15	ex114r
|||||||||||||||||||||||||
48r,ts2043	ca107r	sp53r	ao91r	ca108r	ts67r
cm114r	mh146r	ts29r	slr15	ts114r	cm44r
|||||||||||||||||||||||||
60r,mh146r	ts70r	slr15	sa29r	ts44r	ca70r
su0	+0	ad102r	ts70r	+0	sp115r
|||||||||||||||||||||||||
72r,ao89r	cp52r	cm91r	mh145r	ad102r	ex89r
slr15	mh146r	ad102r	ex91r	cp85r	ca144r
|||||||||||||||||||||||||
84r,sp86r	ca143r	sp115r	clc8	sp115r	+0
sp115r	+0	sp115r	clc8	sp115r	si94
|||||||||||||||||||||||||
96r,si95	si408	IN	isp0	ita99r	sp102r
ca131r	sp93r	-7+za1	+4	+3	cp51r
|||||||||||||||||||||||||
108r,sp68r	imr126r	ita99r	sp112r	ca130r	sp94r
+0	ta118r	si94	rc117r	sp0	srr511
|||||||||||||||||||||||||
120r,ita99r	sp122r	ca130r	sp93r	ao2044	sp24r
+10.	+.10	1.13246	1.75042
|||||||||||||||||||||||||
132r,0.53042	0.37042	0.17042	0.27042	0.47042	0.67042
0.57042	0.07042	1.55042	0.33106	0.73106	0.13066
|||||||||||||||||||||||||
144r,0.13166	0.06315	+10
|||||||||||||||||||||||||
END OF SUBROUTINE
{61}i START AT g1
