e444rs000b8 -+j   80   //rMatrix Transpose l
   80ä)//r0   SC 20l06
Dl-l5.0
Matrix Transpose l - Rel. Hex.

m40k000l'l000l'200wk'200w5'20l35'90lfl'70l9k'j00wl'q0lgl'
j0lq5'f00j9'2009k'w00w5'g009k'l00wk'q0lq5'f006k'
l00g5'q00wl'f004k'200jl'f005k'l000l'8'200g5'
l009k'q0lgk'f007k'200g5'2009k'200wk'f0085'200g9'
f0029'l00w5'q00wl'j00w5'l00q9'w0lg5'f00f9'l000l'
j00w9'f00g5'g000l'j00q9'f004l'l000l'j000l'l00w9'
j000l'f004l'w0059'j00q9'l000l'q0lg5'20l0l'q0lg5'
200f9'f0l0l''''l000l'''75gq2jq8'
m36k0l0l'l000l'20l39'w00wk'g0ll9'w0lg5'g0lkl'l00wl'600q9'
70l95'q00wk'q0lg9'20055'f0l35'l000l'j000l'f0l7l'
l00q9'w0lg9'j00q9'g00f9'f0l59'l'l00wk'q0lg5'
200wk'20l35'l0055'f0l7k'l0l39'q0lgl'f0l8k'q0lg9'
j0055'f0l35'l'20l39'f0lf5'20000000''20000'
lw0000'l0l35'q00wl'f0ljl'4'4'4'4'
20l35'w0055'g0l35'f0l4l'l00wk'f006k'94w43l08'
s0000200'
   80ä)//r0   SC 20l07
Dl-l5.0
Matrix Transpose l - Format Controlled Decimal

0000     b0000'  n at l5 and Mo at 29
000l     y0063'
0002     y006l'
0003     y0ll3'
0004     e0l40'  lw0000	save n at l5
0005     m0l39'  l at l4
0006     h0060'  	n at 29
0007     a0l44'  l at 29
0008     h0l57'  	(n+l) at 29
0009     u0050'
00l0     y0039'  	Ti(j+l)
00ll     s006l'  Mo+n
00l2     t0039'  	move next element
00l3     b0063'  address of Mij
00l4     a0l57'  n+l
00l5     u0027'
00l6     b0045'  address of Mij
00l7     a0060'  n
00l8     u00l9'
00l9     y0048'  M(i+n)j
0020     u0023'
002l     b0000'
      ,000000l'
0022  00000008'
0023     y0045'  	M(i+n)j
0024     b0039'  address of Tij
0025     a0l47'  l at 29
0026     u003l'
0027     y0045'  address of Mij
0028     y0039'  address of Tij
0029     y0063'  address of Mij
0030     u0033'
003l     y0046'  	Ti(j+l)
















0032     u00l0'
0033     b006l'  Mo
0034     a0060'  n
0035     h006l'  Mo+n
0036     b0058'  column counter
0037     s0l45'  l at 29
0038     u0042'
0039     b0000'
0040     h0062'
004l     u0045'
0042     t0000'  	exit
0043     h0058'  column counter - l
0044     u00l6'
0045     b0000'
0046     h0000'
0047     b0062'
0048     h0000'
0049     u00l6'
0050     s0022'  2 at 29
005l     h0058'  	(n-l) at 29
0052     b0000'  alpha + 2
0053     a0l45'  l at 29
0054     y0l00'  	alpha + 3
0055     a0l45'  l at 29
0056     y0042'  	alpha + 4, set exit
0057     u0l00'
      ,0000003'
0058  00000000'  	(n-l) at 29
0059  00000000'
0060  00000000'
006l     b0000'
      ,0000002'
0062  00000000'
0063  00000000'  	Mij

















0l00     b0000'  To at 29
0l0l     y0ll4'
0l02     s0063' Mo at 29	(To-Mo) at 29
0l03     t0l06'  	To not equal Mo
0l04     s0l45'  l at 29
0l05     t0l52'  	To equal Mo
0l06     b0060'  n at 29
0l07     n0058'  (n-l) at 29
0l08     m0l37'  	(n-l) at 29
0l09     a0063'  Mo at 29
0ll0     a0l46'  l at 29
0lll     y002l'  	Mo+(n**2)-n+l
0ll2     u0ll3'
0ll3     b0000'  M(i+n)j
0ll4     h0000'  Ti(j+l)	Mij to Tij
0ll5     u0l28'
0ll6     b0058'  n-l	column counter
0ll7     s0l46'  l at 29
0ll8     h0058'  column counter - l
0ll9     t0042'  	to exit
0l20     u0l22'  	traspose next column
0l2l     z0000'
0l22     b0063'  address of Mlj
0l23     a0l45'  l at 29
0l24     y0063'  address of Ml(j+l)
0l25     y0ll3'     "    "     "
0l26     b002l'  address of Mn(l+j)
0l27     u0l3l'
0l28     b0ll4'  address of Tij
0l29     a0l44'  l at 29
0l30     u0l35'
0l3l     a0l46'  l at 29



















0l32     h002l'  Mn(l+j+l)
0l33     u0ll3'
0l34     z0000'
0l35     y0ll4'  address of Ti(j+l)
0l36     u0l4l'
      ,0000004'
0l37  20000000'
0l38  00000000'
0l39  00020000'
0l40  00lw0000'
0l4l     b0ll3'  address of Mij
0l42     a0060'  n
0l43     u0l48'
0l44    xz000l'
0l45    xz000l'
0l46    xz000l'
0l47    xz000l'
0l48     y0ll3'  address of M(i+n)j
0l49     s002l'  Mo+n - Mn(i+j)
0l50     t0ll3'  	move next element
0l5l     u0ll6'  	to test for end
0l52     b0063'  Mo
0l53     u0027'
0l54     z0000'
0l55     z0000'
0l56     z0000'
0l57     z0000'  	n+l
      .0000000'0