LSR FU5 HYPERBOLIC FUNCTIONS
za1={61}
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
||||||||||
{61}