aes/asm/aesp8-ppc.pl

62 my ($zero,$in0,$in1,$key,$rcon,$mask,$tmp)=map("v$_",(0..6));
115 	lvx		$in0,0,$inp
126 	vperm		$in0,$in0,$in1,$key	# align [and byte swap in LE]
144 	vperm		$key,$in0,$in0,$mask	# rotate-n-splat
145 	vsldoi		$tmp,$zero,$in0,12	# >>32
146 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
153 	vxor		$in0,$in0,$tmp
155 	vxor		$in0,$in0,$tmp
157 	vxor		$in0,$in0,$tmp
159 	vxor		$in0,$in0,$key
164 	vperm		$key,$in0,$in0,$mask	# rotate-n-splat
165 	vsldoi		$tmp,$zero,$in0,12	# >>32
166 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
173 	vxor		$in0,$in0,$tmp
175 	vxor		$in0,$in0,$tmp
177 	vxor		$in0,$in0,$tmp
179 	vxor		$in0,$in0,$key
181 	vperm		$key,$in0,$in0,$mask	# rotate-n-splat
182 	vsldoi		$tmp,$zero,$in0,12	# >>32
183 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
190 	vxor		$in0,$in0,$tmp
192 	vxor		$in0,$in0,$tmp
194 	vxor		$in0,$in0,$tmp
195 	vxor		$in0,$in0,$key
196 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
211 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
223 	vsldoi		$tmp,$zero,$in0,12	# >>32
226 	vxor		$in0,$in0,$tmp
228 	vxor		$in0,$in0,$tmp
230 	vxor		$in0,$in0,$tmp
233 	vspltw		$tmp,$in0,3
238 	vxor		$in0,$in0,$key
240 	 vsldoi		$stage,$stage,$in0,8
243 	vsldoi		$tmp,$zero,$in0,12	# >>32
251 	 vsldoi		$stage,$in0,$in1,8
252 	vxor		$in0,$in0,$tmp
257 	vxor		$in0,$in0,$tmp
259 	vxor		$in0,$in0,$tmp
263 	vspltw		$tmp,$in0,3
268 	vxor		$in0,$in0,$key
270 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
287 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
297 	vsldoi		$tmp,$zero,$in0,12	# >>32
305 	vxor		$in0,$in0,$tmp
307 	vxor		$in0,$in0,$tmp
309 	vxor		$in0,$in0,$tmp
311 	vxor		$in0,$in0,$key
312 	 vperm		$outtail,$in0,$in0,$outperm	# rotate
320 	vspltw		$key,$in0,3		# just splat
652 my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10..13));
751 	lvx_u		$in0,$x00,$inp		# load first 8 "words"
757 	 le?vperm	$in0,$in0,$in0,$inpperm
762 	vxor		$out0,$in0,$rndkey0
873 	 vxor		$in0,$in0,v31
888 	vncipherlast	$out1,$out1,$in0
889 	 lvx_u		$in0,$x00,$inp		# load next input block
893 	 le?vperm	$in0,$in0,$in0,$inpperm
916 	 vxor		$out0,$in0,$rndkey0
1358 my ($in0, $in1, $in2, $in3, $in4, $in5, $in6, $in7 )=map("v$_",(0..3,10,12..14));
1549 	 lvx_u		$in0,$x00,$inp		# load input
1567 	 le?vperm	$in0,$in0,$in0,$inpperm
1589 	 vxor		$in0,$in0,v31		# xor with last round key
1607 	vcipherlast	$in0,$out0,$in0
1628 	le?vperm	$in0,$in0,$in0,$inpperm
1636 	stvx_u		$in0,$x00,$out
1679 	vcipherlast	$out0,$out0,$in0