------------------- vsm --------------------
ipassa $peid $lr68
ipassa $mabid $lr72; l1bmd $aluf $lb0
ipassa $l2bid $lr74
ipackbit $l1bid $ls128 $lr76
iinc $lr128 $t; l1bmp $llb8 $lls16v; # 8,C,9,D,A,E,B,F
linc $aluf $lr80; l1bmp $llb0 $lls0v # 0,4,1,5,2,6,3,7
iand $lr[72,76,68,74] $ls[18,18,30,30] $lr96v # [mabid_h,l1bid_h<<1,peid,l2bid] & [0xc,0xc,0xf,0xf]
ilsl $aluf $ls[16,10,4,6] $lr256v # [mabid_h,l1bid_h<<1,peid,l2bid] << [8,6,1,5]
iadd $aluf $lr[80,80,80,256] $nowrite
iadd $aluf $lr[258,260,262,258] $nowrite
iadd $aluf $lr[260,262,256,260] $ls64v
iadd $aluf $lr[262,256,258,80] $t
idec $aluf $lr500
d getf $r500n0c0b0m0p0 1
d getf $r500n0c0b0m0p1 1
d getf $r500n0c0b0m0p2 1
d getf $r500n0c0b0m1p0 1
d getf $r500n0c0b0m2p0 1
d getf $r500n0c1b0m0p0 1
d getf $r500n1c0b0m0p0 1
d getf $r500n2c0b0m0p0 1
d getf $r500n0c0b2m0p0 1
d getf $r500n0c0b4m0p0 1
d getf $r500n0c0b0m4p0 1