fc 327-240-100
(24,6)
t=t1
32|0	+1.	-1.	+0.	+.5	41|+57.295780	+.017453293

45|+3.1415927	+4.7123890	+1.5707963
t1,+0.	12r|p1,+5.	+10.	+15.	+20.	+25.	+30.	p2,+.0001	+90.	+.0001	+0.
+0.	+0.	+0.	+0.	+0.	+0.	1	0	+1.	+1.	+1.
p3,2	1	2r|s1,+0.
12r|s2,+0.	12r|s3,+0.	12r|s4,+0.	12r|s5,+0.
12r|d1,+0.	4r|z1,+0.	50r|b1,+0.	28r|h3,+60.
h4,+808.3	+6082.	+3444.	h5,ca3h5	ts4h5	spe1	STOP	sp26
r7,+0.	8r|a2,ita 4a2	isp h1	isp 110h1
imr 43	isp	a6,ita 4a6	imr 41	isp h1	isp 110h1	isp
m1,ita 21m1	isu 20z1	its 28z1	isp a1	imr 22z1
iad 33	its 4t	ica 28z1	isp 1a1	imr 16z1	idv 4t	imr 22z1
its 28z1	idv 22z1	icp m2	isp a5	imr 35	iad 45	isu 28z1
imr 26z1	iad 24z1	isp	m2,imr 35	isp a5	iad 45	isp 18m1
i1,0	2048	4096	6144	8192
e1,ca 1i1	si 451	ca 5e1	bi a1	sp e2	5s11-a1
i2,bi	sp
DA 2048|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
a3,
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
||||||||||
a4,
LSR FU 7 ARC TAN
0r,ita 33r	its 4t	2r,its t	icp 34r	iad 54r	5r,icp 32r
ica t	iad 38r	iex t	isu 38r	10r,idv t	its t	imr t	its 2t
imr 54r	15r,iad 52r	imr 2t	iad 50r	imr 2t	iad 48r	20r,imr 2t
iad 46r	imr 2t	iad 44r	imr 2t	25r,iad 42r	imr 2t	iad 40r
imr t	iad 56r	30r,iex 4t	icp 36r	ica 4t	33r,isp 0	34r,ics 4t
35r,isp 2r	36r,ics 4t	37r,isp 33r	38r,+1.	40r,+.9999993329
42r,-.3332985605	44r,+.1994653599	46r,-.1390853351	48r,+.0964200441
50r,-.0559098861	52r,+.0218612288	54r,-.004054058	56r,+.7853981634
END OF SUBROUTINE
h1,
|||||||||||||||||||||||||
LSR OD 2 DELAYED (30 - j,j) PRINT
za1=0
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
a5,
||||||||||||||||||||||||||||
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
h2,+.5	+.5	+1.	+100.	+.5	+.5	+1.	+100.	+.5	+.5	+1.
+100.	+.5	+.5	+1.	+100.	+.5	+.5	+1.	+100.	+.5	+.5
+1.	+100.	48r|s6,+0.	12r|s7,+0.	12r|s8,+0.	12r|s9,+0.
12r|s12,
e2,IN	ica p2	isp a2	its p2	ica 2p2	isp a2	its 2p2	
ica 4p2	isp a2	its 4p2
ica 6p2	isp a2	ica 8p2	isp a2	ica 10p2	isp h1	isp 120h1	ica 10p2
imr h3	idv h4	its 10p2
ica p1	isp a2	its p1	ica 2p1	isp a2	its 2p1	ica 4p1	isp a2	
its 4p1
ica 6p1	isp a2	its 6p1	ica 8p1	isp a2	its 8p1	ica 10p1	isp a2	its 10p1
isp 120h1	sp e6
e4,ita 3e4	idv 2h4	idv 4h4	isp	e5,ica h2	0
2	8
e6,cs p3	ad 1	ts 1e5	e3,IN	ica h2	isp a2	its h2	ica 2h2	isp a2
its 2h2	ica 4h2	isp a2	ica 4h2	idv 4h4	its 4h2	ica 6h2	isp a2
ica6h2	ispe4	imrh4	its6h2
isp 120h1	OUT	ca 1e3	ad 3e5	td 1e3	td 3e3	ad 2e5	td 4e3
td6e3	ad2e5	td7e3	td9e3	td11e3	ad2e5	td17e3	td12e3	td14e3
ao1e5
cpe3
cae5	td1e3	td3e3	ad2e5	td4e3	td6e3	ad2e5	td7e3
td9e3	td11e3
ad2e5	td17e3	td12e3	td14e3	
IN	r1,ics 8p2	imr 8p2	iad 33	imr 6p2	its 8z1	isu 24p2	idv 24p2	idv 8p2
imr 35	isp a5	imr 35	iad 47	iad 4p2	its r7	isp a1	its 2z1	ica p2
isp a1	its 12z1	imr 35	imr 2z1	isp a5	imr 35	iad 49	its 2z1	
its 4r7	isp a6
ica 2z1	isp 1a1	its 6z1	ica 2z1	isp a1	idv 6z1	its 2z1	ica p2	isp 1a1
its 14z1	idv 12z1	imr 2z1	its 2z1	isp a5	imr 35	iad 49	icp r2	
r3,its 2z1
isp r4	r2,imr 35	isp r3	r4,ica 2p2	isu 45	icp r5	ica 2p2
isu 2z1	its 6r7	isp a6	isp r6	r5,ica 2p2
iad 2z1	isp a6	its 6r7	r6,ica 8p2	its 22z1	iad 33	its 6z1	
ics 8p2	imr 8p2
iad 33	isp a3	its 16z1	ica 4p2	its 20z1	ica 10p2	its 24z1	
ica 6p2	isp a3
imr 6p2	idv 26p2	its 26z1	ica r7	isp m1	its 2r7
idv h3	imr h4	isp h1	isp 120h1
w1,ica 8z1	idv 24p2	its z1	ica 4p2	isp 1a1	imr 8p2	its 2z1	
ica 2p2	isp a1
its 4z1	ica 2p2	isp 1a1	its 30z1	idv 4z1	its 6z1	imr 14z1	its 10z1	
ica 14z1
imr 4z1	imr z1	its 4z1	ica 12z1	imr 24p2	its 32z1	ica 30z1	icp w2	
w3,imr z1
its 34z1	isp w4	w2,ics 30z1	isp w3	w4,ica z1	imr 12z1	
its z1
ica 4p2	isp a1	imr 8p2	its 30z1	ica 8z1	isp a3	imr 26p2	its 36z1	
ica 6p2
isp a3	its 38z1	ica 26p2	idv 38z1	its 38z1	ica 6p2	imr 6p2	imr 8p2	imr 8p2
its 40z1	OUT	ca 0	ts d1	cs p3	ad 1	ts 1d1	w5,IN	
ica p1	isp a1
its 18z1	ica p1	isp 1a1	idv 18z1	its 18z1	imr 34z1	imr 35	isu 2z1	its 28z1
imr 28z1	its 44z1	ics 18z1	imr 4z1	iad z1	iad 30z1	its 42z1	imr 42z1	iad 44z1
its 44z1	isu 33	isp a3	its 46z1	imr 42z1	iad 28z1	idv 44z1	its 48z1	ica 46z1
imr 28z1	isu 42z1	idv 44z1	its 42z1	ica 48z1	idv 42z1	its 44z1	imr 6z1	imr 35
iad 14z1	its 46z1	ica 44z1	iad 10z1	idv 46z1	isp a4	w6,its s1	its 28z1	
isp a6
ica 28z1	isp a1	imr 18z1	isp a4	w7,its s2	isp a6	ica 30z1	imr 42z1	
its 28z1
ica 2z1	imr 48z1	iad 28z1	iad 33	its 28z1	ica 8z1	idv 28z1	its 28z1	ics 12z1
imr 42z1	its 18z1	imr 18z1	imr 35	iad 33	isp a3	its 18z1	w8,ica s2	
isp a1	
its 46z1	w13,ica h2	idv 46z1	its h2	ica 18z1	imr 28z1	idv 46z1	
w9,its s3	imr 4h4	isp a2	ica 36z1	idv 28z1	idv 28z1	its 46z1	ica 6p2	isu 28z1	its 44z1	imr 44z1	imr 35	iad 40z1
isp a3	idv 28z1	imr 38z1	its 44z1	ica 32z1	imr 42z1	iad 28z1	imr 44z1
its 44z1	ics 46z1	imr 28z1	imr 48z1	imr 32z1	iad 44z1	w10,idv s3	w11,its s4
imr 4h4	imr 2h4	idv h4	isp a2

ica 48z1	isp a5	imr 35	iad 45	isp m1
w12,its s5	idv h3	imr h4	isp h1	isp 120h1	OUT	
ao 1w5	
ao 1w5	ts 4w5	ao w6	ao w6	ao w7	ao w7	ao w8	ao w8	ao w9
ao w9	ao w10	ao w10	ao w11	ao w11	ao w12	ao w12	ca w13	ad 2q4	ts w13	td 2w13	ao d1	ad 1d1
cp w5	ca 0	ts 3d1
sp 1217
1217|ca23b8	si451	ca24b8	bi1550	cap3	ts1e5	b3,IN	isp110h1	icas2	ispa1
its10t	icaf1	ispa2	idv10t	itsf1	ica2f1	ispa2	its2f1	ica4f1	ispa2
ica4f1	idv4h4	its4f1	ica6f1	ispa2	ica6f1	ispe4	imrh4	its6f1	isp120h1
OUT	ca1e5	su1	ts1e5	cp2b8	ca5b3	ad3e5	td5b3	td8b3	ad2e5	td9b3
td11b3	ad2e5	td12b3	td14b3	td16b3	ad2e5	td17b3	td19b3	td22b3	ca2b3
ad2e5	td2b3	spb3	b8,caf1	cas2	ca1b8	td2b3	cab8	td5b3	td8b3	ad2e5
td9b3	td11b3	ad2e5	td12b3	td14b3	td16b3	ad2e5	td17b3	td19b3	td22b3	ca23b8
si455	ca24b8	bof1	spq6	4452	+48
1296|q6,ca q5	ts q1	ca 1q5	ts q2	ca 2q5	ts q3	ca 0	ts d1	cs p3
ad 1	ts 2d1	q7,ca 0	ts 1d1	q8,IN	isp n1	q1,imr h2	q2,iad s1
q3,its s6	OUT	ca q2	ad q4	ts q2	ca q3	ad q4	ts q3
ao q1	ao q1	ao 1d1	ad 3q4	cp q8	ca q2
su 1q4	ts q2	ca q3	su 1q4	ts q3	ao d1	ad 2d1	cp q7	sps10
q5,imr h2	iad s1	its s6	q4,12	46	8	-3	
r8,ita v5	OUT	ca 2v7	mh 1v7	slh 15	ts 2v7	ca 3v7	mh v7
slh 15	tst	ca 3v7	mh 1v7	sa t	sa 2v7	ts 2v7	slh 15	ts 3v7
srh 15	ad 2v7	su 0	cp v6	v8,ts 1t	sf 1t	ts t	ex 0	su 1t
slh 9	ts 1t	IN	ica t	v5,isp	v6,ex 0	slh 9	su 0	cp 2r8
srh 24	sp v8	v7,0.02722	0.07335	0	0.36412	n1,ita v1	isp r8
isp s15	its 4t	isp r8	isp s15	imr 2g1	its 6t	isu g1	its t	imr t
imr v3	isu 4t	icp 1n1	v2,isp r8	iad v3	icp v4	ics 6t	its 6t
v4,ica 6t	v1,isp	v3,-.5	g1,+1.	-1.
s15,
|||||||||||||||||||||||||
LSR FU 3 LN x
za1=6
0,ita32r	1,OUT	2,ca33r	3,ex2042	4,su33r	5,sf35r
6,tst	7,cs35r	8,ad34r	9,slh15-za1	10,ts1t	11,IN
|||||||||||||||||||||||||
12,isu36r	13,its2t	14,imr40r	15,iad42r	16,imr2t	17,iad44r
18,imr2t	19,iad46r	20,imr2t	21,iad48r	22,imr2t	23,iad50r
|||||||||||||||||||||||||
24,imr2t	25,iad52r	26,imr2t	27,iad54r	28,imr2t	29,iext
30,imr38r	31,iadt	32,isp0	33,+1	34,+15	35,+0
|||||||||||||||||||||||||
MULTIPLE
36,+1.		38,+.6931471806		40,-.0064535442
42,+.0360884937		44,-.0953293897		46,+.1676540711
48,-.2407338084		50,+.3317990258		52,-.4998741238
54,+.9999964239
|||||||||||||||||||||||||
END OF SUBROUTINE
s10,ca 1i1	ad 3s11	si 455	ca 4s11	bo r8
ca 1s11	td i2	ca 2s11	td 1i2	ca 2i1	si 451	ca s11	sp i2
s11,f6-c2	s12	c1	r8-a1	3g1-r8
DA32|32|	3i1|-0	+1
DA2048|317|
37r1|icar7	ispa1	its4t	icar7	isp1a1	idv4t	idv14z1	ispa4
iad2p2	its6r7	ispa6	ispr6
i START AT e1
