fc 131-238-926 ABRAMOWITZ
(24,6)
icr15	b2,icaz1	iadx1	itsx1	imrz1+2	ispe1	itsv1	imrz1+6	itsz1+4
b1,ica4t1	ispc1+5	imrx1	ispe1	itsu1+2	icau1	idvu1+2	iexv1
iadv1	imrt1+2	iadv1+2	itsv1+2	icav1	isuz1+6	icpb3	icat1	iad4t1	its4t1
ispb1	b3,icax1	iTOA+n.1234t	ica2v1	iTOA+n.1234567c	ictb4	STOP
b4,icat1	itst1+4	icaz1+8	its2v1	ispb2	z1,+.1	-1.	+.	+1.x10-7	+.
x1,+1.4	t1,+.05	+.025	+.05	u1,+1.	+.	v1,+.	+.
c1,LSR FU5 HYPERBOLIC FUNCTIONS
za1=b
0r,ita53r	OUT	ca87r	sp8r	+0	ita53r	OUT	ca86r
ts51r	cs2042	10r,su88r	ts4r	cp17r	cs51r	ad87r	cp54r
sp19r	cs88r	ts2042	IN	20r,its+za1	idv84r	iad72r	imr+za1
idv82r	iad72r	imr+za1	idv80r	iad72r	imr+za1	30r,imr78r	iad72r
imr+za1	idv76r	iad72r	imr+za1	imr74r	iad72r	imr+za1	iad72r	40r,isp43r
IN	imr+za1	its+za1	OUT	ao4r	cp41r	IN	ica72r	idv+za1
50r,iex+za1	+0	imr74r	isp	IN	its+za1	imr+za1
idv82r	idv84r	iad72r	60r,imr+za1	imr+za1	imr78r	idv80r	iad72r
imr+za1	imr+za1	imr74r	idv76r	iad72r	70r,imr+za1	isp53r	+1.
+.5	+3.	+.25	80r,+5.	+6.	+7.	iad+za1	isu+za1	+2
END OF SUBROUTINE
||||||||||
e1,LSR FU1 EXPONENTIAL SUBROUTINE
||||||||||
za1=b
0r,ita38r	OUT	cs2042	su39r	ts54r	cp7r	sp9r	cs39r	ts2042	IN
10r,its+za1	idv52r	iad40r	imr+za1	idv50r	iad40r	imr+za1	idv48r	iad40r	imr+za1
20r,imr46r	iad40r	imr+za1	idv44r	iad40r	imr+za1	imr42r	iad40r	imr+za1	iad40r
30r,isp33r	IN	imr+za1	its+za1	OUT	ao54r	cp31r	IN	isp	+2
40r,+1.		+.5		+3.		+.25		+5.	
50r,+6.		+7.		+0
||||||||||
END OF SUBROUTINE
b3+3|iTOA+n.12345678c
i START ATb2-1
ov