powerpc/crypto/aesp8-ppc.pl

121 my ($zero,$in0,$in1,$key,$rcon,$mask,$tmp)=map("v$_",(0..6));
173 	lvx		$in0,0,$inp
184 	vperm		$in0,$in0,$in1,$key	# align [and byte swap in LE]
202 	vperm		$key,$in0,$in0,$mask	# rotate-n-splat
203 	vsldoi		$tmp,$zero,$in0,12	# >>32
204 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
211 	vxor		$in0,$in0,$tmp
213 	vxor		$in0,$in0,$tmp
215 	vxor		$in0,$in0,$tmp
217 	vxor		$in0,$in0,$key
222 	vperm		$key,$in0,$in0,$mask	# rotate-n-splat
223 	vsldoi		$tmp,$zero,$in0,12	# >>32
224 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
231 	vxor		$in0,$in0,$tmp
233 	vxor		$in0,$in0,$tmp
235 	vxor		$in0,$in0,$tmp
237 	vxor		$in0,$in0,$key
239 	vperm		$key,$in0,$in0,$mask	# rotate-n-splat
240 	vsldoi		$tmp,$zero,$in0,12	# >>32
241 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
248 	vxor		$in0,$in0,$tmp
250 	vxor		$in0,$in0,$tmp
252 	vxor		$in0,$in0,$tmp
253 	vxor		$in0,$in0,$key
254 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
269 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
281 	vsldoi		$tmp,$zero,$in0,12	# >>32
284 	vxor		$in0,$in0,$tmp
286 	vxor		$in0,$in0,$tmp
288 	vxor		$in0,$in0,$tmp
291 	vspltw		$tmp,$in0,3
296 	vxor		$in0,$in0,$key
298 	 vsldoi		$stage,$stage,$in0,8
301 	vsldoi		$tmp,$zero,$in0,12	# >>32
309 	 vsldoi		$stage,$in0,$in1,8
310 	vxor		$in0,$in0,$tmp
315 	vxor		$in0,$in0,$tmp
317 	vxor		$in0,$in0,$tmp
321 	vspltw		$tmp,$in0,3
326 	vxor		$in0,$in0,$key
328 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
345 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
355 	vsldoi		$tmp,$zero,$in0,12	# >>32
363 	vxor		$in0,$in0,$tmp
365 	vxor		$in0,$in0,$tmp
367 	vxor		$in0,$in0,$tmp
369 	vxor		$in0,$in0,$key
370 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
378 	vspltw		$key,$in0,3		# just splat
703 my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10..13));
802 	lvx_u		$in0,$x00,$inp		# load first 8 "words"
808 	 le?vperm	$in0,$in0,$in0,$inpperm
813 	vxor		$out0,$in0,$rndkey0
924 	 vxor		$in0,$in0,v31
939 	vncipherlast	$out1,$out1,$in0
940 	 lvx_u		$in0,$x00,$inp		# load next input block
944 	 le?vperm	$in0,$in0,$in0,$inpperm
967 	 vxor		$out0,$in0,$rndkey0
1424 my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10,12..14));
1615 	 lvx_u		$in0,$x00,$inp		# load input
1633 	 le?vperm	$in0,$in0,$in0,$inpperm
1655 	 vxor		$in0,$in0,v31		# xor with last round key
1673 	vcipherlast	$in0,$out0,$in0
1694 	le?vperm	$in0,$in0,$in0,$inpperm
1702 	stvx_u		$in0,$x00,$out
1745 	vcipherlast	$out0,$out0,$in0
2444 my ($in0,  $in1,  $in2,  $in3,  $in4,  $in5 )=map("v$_",(0..5));
2560 	 vperm		$in0,$inout,$inptail,$inpperm
2566 	 vxor		$out0,$in0,$twk0
2621 	xxlor		32+$in0, 0, 0
2622 	vpermxor	$tweak, $tweak, $tmp, $in0
2651 	 vxor		$in0,$twk0,v31		# xor with last round key
2747 	vcipherlast	$out0,$out0,$in0
2748 	 lvx_u		$in0,$x00,$inp		# load next input block
2753 	 le?vperm	$in0,$in0,$in0,$leperm
2762 	 xxlor		10, 32+$in0, 32+$in0
2763 	 xxlor		32+$in0, 0, 0
2764 	 vpermxor	$tweak, $tweak, $tmp, $in0
2765 	 xxlor		32+$in0, 10, 10
2777 	 vxor		$out0,$in0,$twk0
2925 	lvx_u		$in0,0,$inp
2936 	le?vperm	$in0,$in0,$in0,$leperm
2939 	vperm		$in0,$in0,$in0,$inpperm
2957 	lvx_u		$in0,0,$inp
2959 	le?vperm	$in0,$in0,$in0,$leperm
2960 	vperm		$in0,$in0,$in0,$inpperm
2963 	vxor		$in0,$in0,$twk0
2967 	vsel		$out0,$in0,$tmp,$out0	# $tmp is last block, remember?
3089 	lvx_u		$in0,0,$inp
3106 	le?vperm	$in0,$in0,$in0,$leperm
3115 	vperm		$in0,$in0,$in0,$inpperm
3229 	 vperm		$in0,$inout,$inptail,$inpperm
3235 	 vxor		$out0,$in0,$twk0
3290 	xxlor		32+$in0, 0, 0
3291 	vpermxor	$tweak, $tweak, $tmp, $in0
3320 	 vxor		$in0,$twk0,v31		# xor with last round key
3416 	vncipherlast	$out0,$out0,$in0
3417 	 lvx_u		$in0,$x00,$inp		# load next input block
3422 	 le?vperm	$in0,$in0,$in0,$leperm
3431 	 xxlor		10, 32+$in0, 32+$in0
3432 	 xxlor		32+$in0, 0, 0
3433 	 vpermxor	$tweak, $tweak, $tmp, $in0
3434 	 xxlor		32+$in0, 10, 10
3445 	 vxor		$out0,$in0,$twk0
3492 	vxor		$out0,$in0,$twk1
3519 	vxor		$out0,$in0,$twk5
3544 	vxor		$out0,$in0,$twk4
3567 	vxor		$out0,$in0,$twk3
3596 	lvx_u		$in0,0,$inp
3607 	le?vperm	$in0,$in0,$in0,$leperm
3618 	vxor		$out0,$in0,$twk2
3627 	lvx_u		$in0,0,$inp
3628 	le?vperm	$in0,$in0,$in0,$leperm
3629 	vxor		$out0,$in0,$twk1
3645 	lvx_u		$in0,0,$inp
3659 	le?vperm	$in0,$in0,$in0,$leperm
3662 	vperm		$in0,$in0,$in0,$inpperm
3672 	vsel		$out0,$in0,$tmp,$out0
3794 	lvx_u		$in0,0,$inp
3811 	le?vperm	$in0,$in0,$in0,$leperm