LSR FU1 EXPONENTIAL SUBROUTINE
||||||||||
za1=
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
{61}