------------------- vsm --------------------
linc $subpeid $nowrite
imm i"7" $r13/1000; dmwrite $aluf $lx0
iand $peid $aluf $s200; dmread $lx0 $lr0v
ipackbit $l2bid $t $s300/1000
# s0 <- {(([$mabid]>>1)<<2)+([$l1bid]>>1)}<<7
ilsr $mabid $r1 $nowrite
ilsl $aluf $r3 $s0/1000
ilsr $l1bid $r1 $nowrite
iadd $aluf $s0 $nowrite
ilsl $aluf $r13 $s0/1000
# s0 += ([$l2bid]<<4) + (([$l1bid]&1)<<3) + ([$peid]&7)
iand $l1bid $r1 $nowrite
iadd $aluf $s300 $nowrite
ilsl $aluf $r5 $nowrite
iadd $aluf $s0 $s0/1000
iadd $s200 $aluf $nowrite
# s0 <- 2*s0+1, s1 <- s0+1
ilsl $aluf $r1 $nowrite
iinc $aluf $s0/1000
iinc $aluf $s1/1000
