e444rs000b8 -+j 8 -+j z-yip
Matrix Transpose 2
80ä)//r080
SC 20208
Dl-l5.l
Matrix Transpose 2 - Rel. Hex.
m40k000l'l000l'200wk'200w5'20l35'90099'700jk'f0lq9'l00wk'
f006k'l'2009k'w00w5'g009k'l00wk'q00j9'f006k'
l00g5'q00wl'f004k'200jl'f005k'l000l'l0'200g5'
l009k'q0lgk'f007k'200g5'2009k'200wk'f0209'200g9'
f0029'l00jl'q0lwk'20llk'20l05'f00kl'lw0000'l000l'
j00w9'f00g5'g000l'j00q9'f004l'l000l'j000l'l00w9'
j000l'f0085''40000'l0l7k'q009k'20l4k'20ll9'
f0l05'l0000000''''l000l'l'l'85852788'
m40k0l0l'l'l000l'j0lkl'f0ll9'j0055'f0l35'l000l'j000l'
f0l25'l0lkl'f0l4k'l'4'l000l'j000l'f0lk9'
l00q9'w0lg9'f0l55'j000l'f004l'g00f9'j00q9'l00wk'
q0lg5'200wk'20l35'f0l8l'l0l39'q0lgl'f0l8k'4'
l0055'q0lg9'f0lll'20l39'q0205'2025k'f0lf5'20055'
f0l35'l0l35'q00wl'f0ljl'8'8'8'8'
20l35'w0055'g0l35'f0l4l'l'l'l0l3l'q0l35'
20259'f0259'j00wl'q0lg5'j00j9'w0059'f022l'4'75jf3k04'
m20k020l'l'4'l00w5'q00wl'j00w5'l00q9'w0lg5'f00f9'
j00q9'l000l'q0l3l'20239'q0l3l'200f9'l000l'20l39'
q0l3l'2025k'w00wk'g0269'w0lgl'f0265'l000l'j000l'
f0l7l'g00lk'l00wl'600q9'700q5'q00wk'q0lg9'f0l9k'730g23lj'
s0000200'
80ä)//r080
SC 20209
Dl-l5.l
Matrix Transpose 2 - Format Controlled Decimal
0000 b0000' a + 2
000l y0063' key number
0002 y006l' test location
0003 y0ll3' B[a]
0004 e0038' lw0000
0005 m005l' l at l3
0006 u0l58'
0007 b0063' key number
0008 u0027'
0009 z0000'
00l0 y0039' 0032 M
00ll s006l' test location
00l2 t0039' return to minor loop
00l3 b0063' key number, modify loop
00l4 a0050' n + l
00l5 u0027'
00l6 b0045' transpose only 0049 M
00l7 a0060' n
00l8 u00l9'
00l9 y0048' store instruction
0020 u0023'
002l b0000' test location
,000000l'
0022 000000l0' 2 at 28
0023 y0045' B(a,i,j) 0020 M
0024 b0039' B(a,i,j)
0025 a0l47' l at 28
0026 u003l'
0027 y0045' 00l5
0028 y0039' B(a,i,j)
0029 y0063' key number
0030 u0202'
003l y0046' 0026 M
0032 u00l0'
0033 b0048' (49)
0034 a0l63' l at 29
0035 y0l07' H[(a,j,i) + l]
0036 y0l0l' B[(a,j,i) + l]
0037 u0052'
,000000l'
0038 00lw0000' extractor
0039 b0000' M
0040 h0062' storage
004l u0045'
0042 t0000' (207) return
0043 h0058' counter
0044 u00l6'
0045 b0000' a,j,i M
0046 h0000' a,j,i
0047 b0062' storage
0048 h0000' a,j,i
0049 u0033'
,0000002'
0050 00000000' n + l
005l 00040000' l at l3
0052 b0l3l' l at 2 M
0053 a0039' (37)
0054 y0ll9' H[(a,i,j) + l]
0055 y0l06' B[(a,j,i) + l]
0056 u0l0l'
,0000004'
0057 l0000000' l at 3
0058 00000000' counter
0059 00000000'
0060 00000000' n
006l b0000' TL
0062 z0000'
0063 z0000' key number
0l00 z0000'
0l0l b0000' B[(a,j,i) + l] (56) M
0l02 h0l52' storage
0l03 u0l06'
0l04 h002l' (l34)
0l05 u0ll3'
0l06 b0000' B[(a,i,j) + l] M
0l07 h0000' (a,j,i) + l
0l08 u0l09'
0l09 b0l52' storage
0ll0 u0ll9'
0lll z0000'
0ll2 xz000l' l at 29
0ll3 b0000' B[a] N
0ll4 h0000' H[a prime]
0ll5 u0l54'
0ll6 b0058' counter
0ll7 s0l46' l at 28
0ll8 u0l2l'
0ll9 h0000' (a,i,j) + l M
0l20 u00l6' to loop
0l2l t0042' test to take out
0l22 h0058' counter
0l23 b0063' key number
0l24 a0l45' l at 28
0l25 y0063' key number
0l26 y0ll3' B[a]
0l27 u0l32'
0l28 b0ll4' H[ ] N
0l29 a0l44' l at 28
0l30 u0l35'
0l3l xz000l' l at 29
0l32 b002l' test
0l33 a0l46' l at 28
0l34 u0l04'
0l35 y0ll4' H[a prime] N
0l36 a020l' l at 29
0l37 y0223' H[a prime + l]
0l38 u0l4l'
0l39 y002l' test location
0l40 u0ll3'
0l4l b0ll3' B[a] N
0l42 a0060' n
0l43 u0l48'
0l44 xz0002' l at 28
0l45 xz0002' l at 28
0l46 xz0002' l at 28
0l47 xz0002' l at 28
0l48 y0ll3' B[a] N
0l49 s002l' test location
0l50 t0ll3' test to re-loop
0l5l u0ll6' new loop
0l52 z0000' storage
0l53 z0000'
0l54 b0ll2' l at 29 N
0l55 a0ll3' B(a,i,j)
0l56 y0222' B[(a,i,j) + l]
0l57 u0222'
0l58 h0060' (006)n
0l59 a0l45' l at 28
0l60 h0050' n+l
0l6l s0022' 2 at 28
0l62 u0208'
0l63 xz000l' l at 29
0200 z0000'
020l xz000l' l at 29
0202 b006l' (30) test location
0203 a0060' n
0204 h006l' test location
0205 b0058' counter
0206 s0l45' l at 28
0207 u0042'
0208 h0058' (l62) counter
0209 b0000' Lo
02l0 a0ll2' l at 29
02ll y02l4' B at 3
02l2 a0ll2' l at 29
02l3 y0042' establish takeout
02l4 b0000' at 3 M prime 0
02l5 y0ll4' M prime 0 initialize
02l6 a0ll2' l at 29
02l7 y0223'
02l8 s0063' determine whether
02l9 t0226' to move matrix
0220 s0l44'
022l u0225'
0222 b0000' N
0223 h0000'
0224 u0l28'
0225 t0007' (22l)
0226 b0060' n
0227 n0058' n-l
0228 m0057' l at 3 position
0229 a0063' key number
0230 a0l46' l at 28
023l u0l39'
.0000000'l