LSR MA 9 CM MATRIX TRANSPOSE (SQUARE) (30-j,j)
0r,ta37r	ta7r	ta19r	ao37r	td10r	5r,ao37r	ao1	su	tst	ts1t	10r,ca
ts2t	ts3t	ao1	dm0	ab51r	ab3t	td25r	td27r	ca	20r,mh51r
slh15	ad2t	td26r	IN	25r,ica	iex	its	OUT	aot	30r,cp13r
ca1t	ad1	cp38r	ca0	ts51r	ts52r	sp0	tst	ts1t	40r,ca50r
ad52r	ad3t	ts3t	ts2t	45r,ca0	ts51r	ao52r	ao52r	sp13r	50r,+4
+0	+0
END OF SUBROUTINE
{61}m