LSR 141-100-100
za1=a2	zf1=f1
0r,ita51r	ispzf1	its1t	its4t	ica8+za1	isu10+za1	isu10+za1	its8+za1	icaza1
iex4+za1	10r,itsza1	ispzf1	iad4t	imr58r	its4t	icaza1	iex4+za1	iex2+za1	itsza1	ica8+za1
20r,iad10+za1	its8+za1	ispzf1	its2t	iad4t	imr10+za1	imr54r	iad6+za1	iexza1	iex4+za1
30r,its6+za1	ica8+za1	iad10+za1	iad10+za1	its8+za1	ispzf1	its3t	ica1t	imr60r
iad2t	40r,iad3t	imr10+za1	imr56r	iad4+za1	iexza1	isuza1	its1t	ica1t	icp52r
isu12+za1	50r,icp35r	isp	ics1t	isp49r	-1.3333333	56r,+0.3333333	-2.0	60r,+4.0
END OF SUBROUTINE
{61}