||||||||||
LSR SP2 EXTRACT INTEGRAL PART OF MRA
0r,ita42r	OUT	ca2043	dm0	cp43r	ca2042	cp43r	su47r
cp10r	ao46r		10r,ca47r	su2042	ad48r	ts16r	td19r	ca2043
ica+c	ts16r	clc0	slh0		20r,ex2043	su2043	tst	mr2043
cp49r	cm2044	srh15	ext	sft	ts2043		30r,slr15	ts2044
cst	ad2042	ts2042	IN	icxt	OUT	ca16r	tst		40r,IN
icxt	isp0	ca0	ts16r	sp35r	0.77777	+15	srh0	ca0		50r,tst
sp25r
END OF SUBROUTINE
||||||||||
{61}o