e444rs000b8 -+j '/// /orMatrix Inversion l 80ä)ä)) SC 20094 Dl-ll.0 Matrix Inversion l - Rel. Hex. m40k000l'l0lwk'200w5'200w9'2008l'20lk9'20lkk'20085'20l59' 20l5k'20l39'20l3k'l0039'q0l2l'200q9'l000l'2008k' 70lw9'j0ljl'w0l2l'j0lj5'q0l89'j0lw5'60lj5'70lj9' j0llk'q008k'q0l2l'20ll9'20l8k'q0lj5'2009l'20l6l' 3000l'f000l'l0ljk'5000l'j000l'f0000'90000'l008k' q0l2l'20lql'q0llk'20lq5'w0l6l'g0lk9'l0lql'200wk' w0ll9'g00w5'l0l8k'20l25'w0ljl'20l29'w0l8k'g0l25' l0lj5'w0l2l'g000l'k0lj5'f008l'3000l'f000l'w000l'75jw4540' m40k0l0l'f0000'90000'l0ll9'20l4l'l00wk'f0lfk'w000l'l' 4'l000l'k000l'l0l25'q0l2l'f00jk'3000l'f000l' 7000l'q000l'j000l'90000'f0l79'20l65'3000l'f000l' 7000l'k000l'90000'l00wk'q0ljl'f00gk'l0l4l'f0l9l' 20l49'f0l39'8'l000l'q0l2l'20l4l'w0l6l'g0lkl' l00wk'w0l2l'f0l55'q0l2l'f0lg5'20l45'w0lw5'f0l8l' ''20000000'40000002'l0l45'f0lfk'3000l'f000l' 7000l'k000l'90000'l0lql'f00fl'l'20000''k5gg2fgq' s0000200' 80ä)ä)) SC 20095 Dl-ll.0 Matrix Inversion l - Format Controlled Decimal 0000 b0l63' Lo for program Hl-ll.0 000l y006l' connect to program Hl-ll.0 0002 y0062' " 0003 y0032' " 0004 y0l54' " 0005 y0l55' " 0006 y0033' " 0007 y0l22' " 0008 y0l23' " 0009 y0ll4' " 00l0 y0ll5' " 00ll b00l4' 00l2 a0l08' l at 29 00l3 y0058' exit fix exit 00l4 b0000' code word 00l5 y0035' 00l6 m0l62' l at l4 00l7 h0l48' N 00l8 s0l08' l at 29 00l9 h0l49' counter 0020 a0l34' 2 at 29 002l h0l6l' N+l 0022 n0l49' N-l 0023 m0l50' l at 2 0024 h0l07' N**2-l 0025 a0035' Mo 0026 a0l08' l at 29 0027 y0l06' 0028 y0l35' 0029 a0l49' N-l 0030 y0036' 003l y0l24' 0032 r0000' 0033 u0000' to Hl-ll.0 0034 b0l5l' one 0035 d0000' All 0036 h0000' An+l,n 0037 xu0000' 0038 xe0000' 0039 b0035' Mo 0040 a0l08' l at 29 004l y0l56' 0042 a0l07' N**2-l 0043 y0l57' 0044 s0l24'M[Mo+N**2+N-l] 0045 t0l54' next term, first row 0046 b0l56' Mo+N 0047 y0063' 0048 s0l06' S[Mo+N**2] 0049 t006l' next row 0050 b0l35' B[Mo+N**2] 005l y0l09' 0052 s0l48' N 0053 y0ll0' 0054 s0l35' B[Mo+N**2] 0055 t0l09' next term, last row 0056 b0l49' counter 0057 s0l08' l at 29 0058 t0000' exit 0059 c0l49' counter 0060 u0032' repeat 006l r0000' 0062 u0000' to Hl-ll.0 0063 s0000' All 0l00 xu0000' 0l0l xe0000' 0l02 b0l06' Mo+N**2 0l03 y0ll6' 0l04 b0063' 0l05 u0l43' delay 0l06 s0000' S[Mo+N**2] 0l07 z0000' N**2-l 0l08 xz000l' l at 29 0l09 b0000' An+l,j 0ll0 c0000' An,j 0lll b0l09' 0ll2 a0l08' l at 29 0ll3 u005l' do another 0ll4 r0000' 0ll5 u0000' to Hl-ll.0 0ll6 m0000' An+l,j-l 0ll7 a0000' Aij 0ll8 h0000' Ai-l,j-l 0ll9 xe0000' 0l20 u0l30' delay 0l2l y0l25' 0l22 r0000' 0l23 u0000' to Hl-ll.0 0l24 m0000' An+l,N 0l25 c0000' Ai-l,N 0l26 xe0000' 0l27 b0063' 0l28 a0l48' N 0l29 u0047' do another 0l30 b0ll6' 0l3l u0l36' delay 0l32 y0ll8' 0l33 u0ll4' delay 0l34 xz0002' 2 at 29 0l35 b0000' B[Mo+N**2] 0l36 a0l08' l at 29 0l37 y0ll6' 0l38 s0l24' M[Mo+N**2+N-l] 0l39 t0l52' next term 0l40 b0063' 0l4l s0l08' l at 29 0l42 u0l2l' delay 0l43 a0l08' l at 29 0l44 u0l45' delay 0l45 y0ll7' 0l46 s0l6l' N+l 0l47 u0l32' delay ,0000004' 0l48 00000000' N 0l49 00000000' counter 0l50 20000000' l at 2 0l5l 40000002' one 0l52 b0ll7' 0l53 u0l43' do another 0l54 r0000' 0l55 u0000' to Hl-ll.0 0l56 m0000' Aij 0l57 c0000' An+l,j-l 0l58 xe0000' 0l59 b0l56' 0l60 u0040' do another 0l6l z0000' N+l 0l62 xy0000' l at l4 0l63 xz0000' Lo for Hl-ll.0 .0000000'zh