aes/asm/aes-s390x.pl

63 $s0="%r8";
215 	llgf	$s0,0($inp)
224 	st	$s0,0($out)
237 	x	$s0,0($key)
247 	sllg	$t1,$s0,`0+3`
248 	srlg	$t2,$s0,`8-3`
249 	srlg	$t3,$s0,`16-3`
250 	srl	$s0,`24-3`
251 	nr	$s0,$mask
265 	l	$s0,0($s0,$tbl)	# Te0[s0>>24]
266 	l	$t1,1($t1,$tbl)	# Te3[s0>>0]
267 	l	$t2,2($t2,$tbl) # Te2[s0>>8]
268 	l	$t3,3($t3,$tbl)	# Te1[s0>>16]
270 	x	$s0,3($i1,$tbl)	# Te1[s1>>16]
291 	x	$s0,2($i1,$tbl)	# Te2[s2>>8]
302 	x	$s0,0($key)
307 	x	$s0,1($t1,$tbl)	# Te3[s3>>0]
316 	sllg	$t1,$s0,`0+3`
317 	srlg	$t2,$s0,`8-3`
319 	srlg	$t3,$s0,`16-3`
320 	srl	$s0,`24-3`
321 	nr	$s0,$mask
334 	llgc	$s0,2($s0,$tbl)	# Te4[s0>>24]
335 	llgc	$t1,2($t1,$tbl)	# Te4[s0>>0]
336 	sll	$s0,24
337 	llgc	$t2,2($t2,$tbl)	# Te4[s0>>8]
338 	llgc	$t3,2($t3,$tbl)	# Te4[s0>>16]
349 	or	$s0,$i1
375 	or	$s0,$i1
395 	or	$s0,$i1
401 	xr	$s0,$t0
541 	llgf	$s0,0($inp)
550 	st	$s0,0($out)
563 	x	$s0,0($key)
573 	srlg	$t1,$s0,`16-3`
574 	srlg	$t2,$s0,`8-3`
575 	sllg	$t3,$s0,`0+3`
576 	srl	$s0,`24-3`
577 	nr	$s0,$mask
591 	l	$s0,0($s0,$tbl)	# Td0[s0>>24]
592 	l	$t1,3($t1,$tbl)	# Td1[s0>>16]
593 	l	$t2,2($t2,$tbl)	# Td2[s0>>8]
594 	l	$t3,1($t3,$tbl)	# Td3[s0>>0]
596 	x	$s0,1($i1,$tbl)	# Td3[s1>>0]
617 	x	$s0,2($i1,$tbl)	# Td2[s2>>8]
628 	x	$s0,0($key)
633 	x	$s0,3($t1,$tbl)	# Td1[s3>>16]
648 	srlg	$i3,$s0,24	# i0
649 	srlg	$t1,$s0,16
650 	srlg	$t2,$s0,8
651 	nr	$s0,$mask	# i3
662 	llgc	$i3,2048($i3,$tbl)	# Td4[s0>>24]
663 	llgc	$t1,2048($t1,$tbl)	# Td4[s0>>16]
664 	llgc	$t2,2048($t2,$tbl)	# Td4[s0>>8]
666 	llgc	$t3,2048($s0,$tbl)	# Td4[s0>>0]
667 	sllg	$s0,$i3,24
677 	or	$s0,$s1
694 	or	$s0,$i1
718 	or	$s0,$i1
723 	xr	$s0,$t0
804 	llgf	$s0,0($inp)
808 	st	$s0,0($key)
840 	xr	$s0,$t2			# rk[4]=rk[0]^...
841 	xr	$s1,$s0			# rk[5]=rk[1]^rk[4]
853 	st	$s0,16($key)
898 	xr	$s0,$t1			# rk[6]=rk[0]^...
899 	xr	$s1,$s0			# rk[7]=rk[1]^rk[6]
903 	st	$s0,24($key)
961 	xr	$s0,$t1			# rk[8]=rk[0]^...
962 	xr	$s1,$s0			# rk[9]=rk[1]^rk[8]
965 	st	$s0,32($key)
1057 .Linv:	lmg	$s0,$s1,0($i1)
1059 	stmg	$s0,$s1,0($i2)
1080 .Lmix:	l	$s0,16($key)	# tp1
1081 	lr	$s1,$s0
1086 	sllg	$t1,$s0,1
1108 	xr	$s1,$s0		# tp2^tp1
1109 	xr	$s2,$s0		# tp4^tp1
1110 	rll	$s0,$s0,24	# = ROTATE(tp1,8)
1112 	xr	$s0,$s1		# ^=tp2^tp1
1114 	xr	$s0,$s2		# ^=tp4^tp1^tp8
1117 	xr	$s0,$s1		# ^= ROTATE(tp8^tp2^tp1,24)
1119 	xr	$s0,$s2    	# ^= ROTATE(tp8^tp4^tp1,16)
1120 	xr	$s0,$s3		# ^= ROTATE(tp8,8)
1122 	st	$s0,16($key)
1216 	llgf	$s0,0($ivp)
1226 	x	$s0,0($inp)
1235 	st	$s0,0($out)
1251 	st	$s0,0($ivp)
1282 	llgf	$s0,0($inp)
1291 	sllg	$s0,$s0,32
1293 	lr	$s0,$s1
1298 	xg	$s0,128($sp)
1304 	stg	$s0,0($out)
1313 	stg	$s0,0($out)
1324 	stg	$s0,128($sp)