1 files changed, 366 insertions, 0 deletions
diff --git a/problems/19-Inversion/02.vsm b/problems/19-Inversion/02.vsm
new file mode 100644
index 0000000..2f562d2
--- /dev/null
+++ b/problems/19-Inversion/02.vsm
@@ -0,0 +1,366 @@
+# j = $l2bid x 8 + $l1bid
+# $n128 = j
+# $s256 = 1
+# $s272 = 0
+# $ls[0:128] = k (from 0 to 63)
+# $ls[128:256] = j >= k
+# $lr[0:128] = A[k]
+# $lr[0:128] = A[j] < A[k]
+# $lr[0:128] = (j >= k) and (A[j] < A[k])
+
+# 64.times { |i| puts "imm i\"#{i}\" $s#{2*i}v/1100 # $s#{2*i} = $s#{2*i+1} = #{i}" }
+# imm i"0" $s0v/1100 # $s0 = $s1 = 0
+imm i"1" $ls2/1000 # $s2 = $s3 = 1
+imm i"2" $ls4/1000 # $s4 = $s5 = 2
+imm i"3" $ls6/1000 # $s6 = $s7 = 3
+imm i"4" $ls8/1000 # $s8 = $s9 = 4
+iadd $aluf $ls2v $ls10v
+iadd $aluf $ls8 $ls18v
+iadd $aluf $ls8 $ls26v
+iadd $aluf $ls8 $ls34v
+iadd $aluf $ls8 $ls42v
+iadd $aluf $ls8 $ls50v
+iadd $aluf $ls8 $ls58v
+iadd $aluf $ls8 $ls66v
+iadd $aluf $ls8 $ls74v
+iadd $aluf $ls8 $ls82v
+iadd $aluf $ls8 $ls90v
+iadd $aluf $ls8 $ls98v
+iadd $aluf $ls8 $ls106v
+iadd $aluf $ls8 $ls114v
+iadd $aluf $ls8 $ls122v/1110
+
+# d getf $ls0n0c0b0m0p0 64
+# quit
+
+ilsl $l2bid $s6 $nowrite
+iadd $l1bid $aluf $n128v
+nop
+nop
+
+# (128/8).times { |i| puts "isub $ln128 $ls#{i*8}v $omr1"; puts "lpassa/$imr1 $ls2 $ls#{128+i*8}v" }
+isub $ln128 $ls0v $omr1
+lpassa/$imr1 $ls2 $ls128v
+isub $ln128 $ls8v $omr1
+lpassa/$imr1 $ls2 $ls136v
+isub $ln128 $ls16v $omr1
+lpassa/$imr1 $ls2 $ls144v
+isub $ln128 $ls24v $omr1
+lpassa/$imr1 $ls2 $ls152v
+isub $ln128 $ls32v $omr1
+lpassa/$imr1 $ls2 $ls160v
+isub $ln128 $ls40v $omr1
+lpassa/$imr1 $ls2 $ls168v
+isub $ln128 $ls48v $omr1
+lpassa/$imr1 $ls2 $ls176v
+isub $ln128 $ls56v $omr1
+lpassa/$imr1 $ls2 $ls184v
+isub $ln128 $ls64v $omr1
+lpassa/$imr1 $ls2 $ls192v
+isub $ln128 $ls72v $omr1
+lpassa/$imr1 $ls2 $ls200v
+isub $ln128 $ls80v $omr1
+lpassa/$imr1 $ls2 $ls208v
+isub $ln128 $ls88v $omr1
+lpassa/$imr1 $ls2 $ls216v
+isub $ln128 $ls96v $omr1
+lpassa/$imr1 $ls2 $ls224v
+isub $ln128 $ls104v $omr1
+lpassa/$imr1 $ls2 $ls232v
+isub $ln128 $ls112v $omr1
+lpassa/$imr1 $ls2 $ls240v
+isub $ln128 $ls120v $omr1
+lpassa/$imr1 $ls2 $ls248v
+
+# d getf $ls0m0p0 64
+# quit
+
+lpackbit $ln128 $ls272 $t
+# (128/16).times { |i| puts "lpassa $llm#{i*16}v $llr#{i*16}v" }
+lpassa $llm0v $llr0v
+lpassa $llm16v $llr16v
+lpassa $llm32v $llr32v
+lpassa $llm48v $llr48v
+lpassa $llm64v $llr64v
+lpassa $llm80v $llr80v
+lpassa $llm96v $llr96v
+lpassa $llm112v $llr112v
+
+# d getd $tm0p0 4
+# quit
+
+# (128/8).times { |i| puts "isub $lmt0 $lr#{i*8}v $omr1"; puts "ipassa/$imr1 $ls2 $lr#{i*8}v" }
+# (128/8).times { |i| puts "ilnot $lr#{i*8}v $lr#{i*8}v" }
+isub $lmt0 $lr0v $omr1
+ipassa/$imr1 $ls2 $lr0v
+isub $lmt0 $lr8v $omr1
+ipassa/$imr1 $ls2 $lr8v
+isub $lmt0 $lr16v $omr1
+ipassa/$imr1 $ls2 $lr16v
+isub $lmt0 $lr24v $omr1
+ipassa/$imr1 $ls2 $lr24v
+isub $lmt0 $lr32v $omr1
+ipassa/$imr1 $ls2 $lr32v
+isub $lmt0 $lr40v $omr1
+ipassa/$imr1 $ls2 $lr40v
+isub $lmt0 $lr48v $omr1
+ipassa/$imr1 $ls2 $lr48v
+isub $lmt0 $lr56v $omr1
+ipassa/$imr1 $ls2 $lr56v
+isub $lmt0 $lr64v $omr1
+ipassa/$imr1 $ls2 $lr64v
+isub $lmt0 $lr72v $omr1
+ipassa/$imr1 $ls2 $lr72v
+isub $lmt0 $lr80v $omr1
+ipassa/$imr1 $ls2 $lr80v
+isub $lmt0 $lr88v $omr1
+ipassa/$imr1 $ls2 $lr88v
+isub $lmt0 $lr96v $omr1
+ipassa/$imr1 $ls2 $lr96v
+isub $lmt0 $lr104v $omr1
+ipassa/$imr1 $ls2 $lr104v
+isub $lmt0 $lr112v $omr1
+ipassa/$imr1 $ls2 $lr112v
+isub $lmt0 $lr120v $omr1
+ipassa/$imr1 $ls2 $lr120v
+ilnot $lr0v $lr0v
+ilnot $lr8v $lr8v
+ilnot $lr16v $lr16v
+ilnot $lr24v $lr24v
+ilnot $lr32v $lr32v
+ilnot $lr40v $lr40v
+ilnot $lr48v $lr48v
+ilnot $lr56v $lr56v
+ilnot $lr64v $lr64v
+ilnot $lr72v $lr72v
+ilnot $lr80v $lr80v
+ilnot $lr88v $lr88v
+ilnot $lr96v $lr96v
+ilnot $lr104v $lr104v
+ilnot $lr112v $lr112v
+ilnot $lr120v $lr120v
+
+# d getf $lr0m0p0 64
+# quit
+
+nop
+
+# (128/8).times { |i| puts "iand $ls#{128+i*8}v $lr#{i*8}v $lr#{i*8}v" }
+iand $ls128v $lr0v $lr0v
+iand $ls136v $lr8v $lr8v
+iand $ls144v $lr16v $lr16v
+iand $ls152v $lr24v $lr24v
+iand $ls160v $lr32v $lr32v
+iand $ls168v $lr40v $lr40v
+iand $ls176v $lr48v $lr48v
+iand $ls184v $lr56v $lr56v
+iand $ls192v $lr64v $lr64v
+iand $ls200v $lr72v $lr72v
+iand $ls208v $lr80v $lr80v
+iand $ls216v $lr88v $lr88v
+iand $ls224v $lr96v $lr96v
+iand $ls232v $lr104v $lr104v
+iand $ls240v $lr112v $lr112v
+iand $ls248v $lr120v $lr120v
+
+# d getf $lr0m0p0 64
+# quit
+
+# (128/8).times { |i| puts "l1bmd $lr#{i*8}v $lb#{i*256}" }
+l1bmd $lr0v $lb0
+l1bmd $lr8v $lb256
+l1bmd $lr16v $lb512
+l1bmd $lr24v $lb768
+l1bmd $lr32v $lb1024
+l1bmd $lr40v $lb1280
+l1bmd $lr48v $lb1536
+l1bmd $lr56v $lb1792
+l1bmd $lr64v $lb2048
+l1bmd $lr72v $lb2304
+l1bmd $lr80v $lb2560
+l1bmd $lr88v $lb2816
+l1bmd $lr96v $lb3072
+l1bmd $lr104v $lb3328
+l1bmd $lr112v $lb3584
+l1bmd $lr120v $lb3840
+
+# (4096/64).times { |i| puts "l2bmriiadd $lb#{i*64} $lc#{i*64}" }
+l2bmriiadd $lb0 $lc0
+l2bmriiadd $lb64 $lc64
+l2bmriiadd $lb128 $lc128
+l2bmriiadd $lb192 $lc192
+l2bmriiadd $lb256 $lc256
+l2bmriiadd $lb320 $lc320
+l2bmriiadd $lb384 $lc384
+l2bmriiadd $lb448 $lc448
+l2bmriiadd $lb512 $lc512
+l2bmriiadd $lb576 $lc576
+l2bmriiadd $lb640 $lc640
+l2bmriiadd $lb704 $lc704
+l2bmriiadd $lb768 $lc768
+l2bmriiadd $lb832 $lc832
+l2bmriiadd $lb896 $lc896
+l2bmriiadd $lb960 $lc960
+l2bmriiadd $lb1024 $lc1024
+l2bmriiadd $lb1088 $lc1088
+l2bmriiadd $lb1152 $lc1152
+l2bmriiadd $lb1216 $lc1216
+l2bmriiadd $lb1280 $lc1280
+l2bmriiadd $lb1344 $lc1344
+l2bmriiadd $lb1408 $lc1408
+l2bmriiadd $lb1472 $lc1472
+l2bmriiadd $lb1536 $lc1536
+l2bmriiadd $lb1600 $lc1600
+l2bmriiadd $lb1664 $lc1664
+l2bmriiadd $lb1728 $lc1728
+l2bmriiadd $lb1792 $lc1792
+l2bmriiadd $lb1856 $lc1856
+l2bmriiadd $lb1920 $lc1920
+l2bmriiadd $lb1984 $lc1984
+l2bmriiadd $lb2048 $lc2048
+l2bmriiadd $lb2112 $lc2112
+l2bmriiadd $lb2176 $lc2176
+l2bmriiadd $lb2240 $lc2240
+l2bmriiadd $lb2304 $lc2304
+l2bmriiadd $lb2368 $lc2368
+l2bmriiadd $lb2432 $lc2432
+l2bmriiadd $lb2496 $lc2496
+l2bmriiadd $lb2560 $lc2560
+l2bmriiadd $lb2624 $lc2624
+l2bmriiadd $lb2688 $lc2688
+l2bmriiadd $lb2752 $lc2752
+l2bmriiadd $lb2816 $lc2816
+l2bmriiadd $lb2880 $lc2880
+l2bmriiadd $lb2944 $lc2944
+l2bmriiadd $lb3008 $lc3008
+l2bmriiadd $lb3072 $lc3072
+l2bmriiadd $lb3136 $lc3136
+l2bmriiadd $lb3200 $lc3200
+l2bmriiadd $lb3264 $lc3264
+l2bmriiadd $lb3328 $lc3328
+l2bmriiadd $lb3392 $lc3392
+l2bmriiadd $lb3456 $lc3456
+l2bmriiadd $lb3520 $lc3520
+l2bmriiadd $lb3584 $lc3584
+l2bmriiadd $lb3648 $lc3648
+l2bmriiadd $lb3712 $lc3712
+l2bmriiadd $lb3776 $lc3776
+l2bmriiadd $lb3840 $lc3840
+l2bmriiadd $lb3904 $lc3904
+l2bmriiadd $lb3968 $lc3968
+l2bmriiadd $lb4032 $lc4032
+
+nop
+
+mvriiadd/n4096 $lc0 $p0@0
+mvb/n4096 $p0@0 $lc0
+
+nop
+nop
+
+# (4096/64).times { |i| puts "l2bmb $lc#{i*64} $lb#{i*64}" }
+l2bmb $lc0 $lb0
+l2bmb $lc64 $lb64
+l2bmb $lc128 $lb128
+l2bmb $lc192 $lb192
+l2bmb $lc256 $lb256
+l2bmb $lc320 $lb320
+l2bmb $lc384 $lb384
+l2bmb $lc448 $lb448
+l2bmb $lc512 $lb512
+l2bmb $lc576 $lb576
+l2bmb $lc640 $lb640
+l2bmb $lc704 $lb704
+l2bmb $lc768 $lb768
+l2bmb $lc832 $lb832
+l2bmb $lc896 $lb896
+l2bmb $lc960 $lb960
+l2bmb $lc1024 $lb1024
+l2bmb $lc1088 $lb1088
+l2bmb $lc1152 $lb1152
+l2bmb $lc1216 $lb1216
+l2bmb $lc1280 $lb1280
+l2bmb $lc1344 $lb1344
+l2bmb $lc1408 $lb1408
+l2bmb $lc1472 $lb1472
+l2bmb $lc1536 $lb1536
+l2bmb $lc1600 $lb1600
+l2bmb $lc1664 $lb1664
+l2bmb $lc1728 $lb1728
+l2bmb $lc1792 $lb1792
+l2bmb $lc1856 $lb1856
+l2bmb $lc1920 $lb1920
+l2bmb $lc1984 $lb1984
+l2bmb $lc2048 $lb2048
+l2bmb $lc2112 $lb2112
+l2bmb $lc2176 $lb2176
+l2bmb $lc2240 $lb2240
+l2bmb $lc2304 $lb2304
+l2bmb $lc2368 $lb2368
+l2bmb $lc2432 $lb2432
+l2bmb $lc2496 $lb2496
+l2bmb $lc2560 $lb2560
+l2bmb $lc2624 $lb2624
+l2bmb $lc2688 $lb2688
+l2bmb $lc2752 $lb2752
+l2bmb $lc2816 $lb2816
+l2bmb $lc2880 $lb2880
+l2bmb $lc2944 $lb2944
+l2bmb $lc3008 $lb3008
+l2bmb $lc3072 $lb3072
+l2bmb $lc3136 $lb3136
+l2bmb $lc3200 $lb3200
+l2bmb $lc3264 $lb3264
+l2bmb $lc3328 $lb3328
+l2bmb $lc3392 $lb3392
+l2bmb $lc3456 $lb3456
+l2bmb $lc3520 $lb3520
+l2bmb $lc3584 $lb3584
+l2bmb $lc3648 $lb3648
+l2bmb $lc3712 $lb3712
+l2bmb $lc3776 $lb3776
+l2bmb $lc3840 $lb3840
+l2bmb $lc3904 $lb3904
+l2bmb $lc3968 $lb3968
+l2bmb $lc4032 $lb4032
+
+# (128/8).times { |i| puts "l1bmd $lb#{i*256} $lm#{i*8}v" }
+l1bmd $lb0 $lm0v
+l1bmd $lb256 $lm8v
+l1bmd $lb512 $lm16v
+l1bmd $lb768 $lm24v
+l1bmd $lb1024 $lm32v
+l1bmd $lb1280 $lm40v
+l1bmd $lb1536 $lm48v
+l1bmd $lb1792 $lm56v
+l1bmd $lb2048 $lm64v
+l1bmd $lb2304 $lm72v
+l1bmd $lb2560 $lm80v
+l1bmd $lb2816 $lm88v
+l1bmd $lb3072 $lm96v
+l1bmd $lb3328 $lm104v
+l1bmd $lb3584 $lm112v
+l1bmd $lb3840 $lm120v
+
+nop
+nop
+
+l1bmd $lmt0 $lb0
+
+nop
+nop
+
+l2bmriiadd $lb0 $lc0
+mvriiadd/n64 $lc0 $p0@0
+mvb/n64 $p0@0 $lc0
+
+nop
+nop
+nop
+
+l2bmb $lc0 $lb0
+
+nop
+nop
+
+l1bmd $lb0 $ln0v