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