lpackbit $subpeid $ls0 $t
imm i"4" $nowrite
llsl $mabid $aluf $nowrite
llsl $lmt0v8 $aluf $nowrite
l1bmrsbor $aluf $lb0
l1bmm $lbi $lm0v
hmwrite $lln0v $llx0
hmwrite $lln16v $llx8
hmread $llx0 $lln0v
hmread $llx8 $lln16v
imm h"1.0" $lr8 $ln32
nop/2
sxor $lm0v $ln[6,14,22,30] $omr1
spassa/$imr1 $lr8 $ls0v
sxor $lm0v $ln[14,22,30,6] $omr1
spassa $lr8 $ls0v/$imr1
sxor $lm0v $ln[22,30,6,14] $omr1
spassa $lr8 $ls0v/$imr1
sxor $lm0v $ln[30,6,14,22] $omr1
spassa $lr8 $ls0v/$imr1
msr $ln[6,14,22,30] $lr0v
sxor $lm0v $aluf $omr1
spassa $lr8 $ls0v/$imr1
sxor $lm0v $lr[2,4,6,0] $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[4,6,0,2] $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[6,0,2,4] $omr1
spassa $ln32 $ls0v/$imr1
msr $lr0v $lr0v
sxor $lm0v $aluf $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[2,4,6,0] $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[4,6,0,2] $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[6,0,2,4] $omr1
spassa $ln32 $ls0v/$imr1
msr $lr0v $lr0v
sxor $lm0v $aluf $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[2,4,6,0] $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[4,6,0,2] $omr1
spassa $ln32 $ls0v/$imr1
sxor $lm0v $lr[6,0,2,4] $omr1
spassa $ln32 $ls0v/$imr1
msr $lr0v $lr0v
nop
l1bmrsor $ls0v $lb0
nop/2
l1bmp $lb0 $ln32v
llnot $lbf $ln32v
l1bmp $lb4 $ln40v
llnot $lbf $ln40v
l1bmp $lb8 $ln48v
llnot $lbf $ln48v
l1bmp $lb12 $ln56v
llnot $lbf $ln56v
nop/2
llnot $ln32v $ln32v
nop/2
llnot $ln40v $ln40v
nop/2
llnot $ln48v $ln48v
nop/2
llnot $ln56v $ln56v