aes/asm/aes-armv4.pl

45 $i1="r7";
292 	ldmia	$key!,{$t1-$i1}
297 	eor	$s3,$s3,$i1
301 	and	$i1,lr,$s0
306 	ldr	$t1,[$tbl,$i1,lsl#2]	@ Te3[s0>>0]
307 	and	$i1,lr,$s1,lsr#16	@ i0
315 	ldr	$i1,[$tbl,$i1,lsl#2]	@ Te1[s1>>16]
318 	eor	$s0,$s0,$i1,ror#8
320 	and	$i1,lr,$s2,lsr#8	@ i0
322 	and	$i2,lr,$s2,lsr#16	@ i1
325 	ldr	$i1,[$tbl,$i1,lsl#2]	@ Te2[s2>>8]
331 	eor	$s0,$s0,$i1,ror#16
333 	and	$i1,lr,$s3		@ i0
335 	and	$i2,lr,$s3,lsr#8	@ i1
338 	ldr	$i1,[$tbl,$i1,lsl#2]	@ Te3[s3>>0]
344 	eor	$s0,$s0,$i1,ror#24
345 	ldr	$i1,[$key],#16
353 	eor	$s0,$s0,$i1
355 	and	$i1,lr,$s0
368 	ldrb	$t1,[$tbl,$i1,lsl#2]	@ Te4[s0>>0]
369 	and	$i1,lr,$s1,lsr#16	@ i0
377 	ldrb	$i1,[$tbl,$i1,lsl#2]	@ Te4[s1>>16]
380 	eor	$s0,$i1,$s0,lsl#8
382 	and	$i1,lr,$s2,lsr#8	@ i0
384 	and	$i2,lr,$s2,lsr#16	@ i1
387 	ldrb	$i1,[$tbl,$i1,lsl#2]	@ Te4[s2>>8]
393 	eor	$s0,$i1,$s0,lsl#8
395 	and	$i1,lr,$s3		@ i0
397 	and	$i2,lr,$s3,lsr#8	@ i1
400 	ldrb	$i1,[$tbl,$i1,lsl#2]	@ Te4[s3>>0]
406 	eor	$s0,$i1,$s0,lsl#8
407 	ldr	$i1,[$key,#0]
416 	eor	$s0,$s0,$i1
525 	and	$i1,lr,$s3,lsr#16
528 	ldrb	$i1,[$tbl,$i1]
531 	orr	$t2,$t2,$i1,lsl#24
589 	and	$i1,lr,$i3,lsr#16
592 	ldrb	$i1,[$tbl,$i1]
595 	orr	$t2,$t2,$i1,lsl#24
616 	ldr	$i1,[$key,#-32]
618 	eor	$i1,$i1,$s3			@ rk[10]=rk[4]^rk[9]
619 	eor	$i3,$i2,$i1			@ rk[11]=rk[5]^rk[10]
620 	str	$i1,[$key,#-8]
661 	and	$i1,lr,$i3,lsr#16
664 	ldrb	$i1,[$tbl,$i1]
667 	orr	$t2,$t2,$i1,lsl#24
689 	and	$i1,lr,$s3,lsr#8
692 	ldrb	$i1,[$tbl,$i1]
695 	orr	$t2,$t2,$i1,lsl#8
701 	ldr	$i1,[$key,#-44]
705 	eor	$i1,$i1,$t1			@ rk[13]=rk[5]^rk[12]
707 	eor	$i2,$i2,$i1			@ rk[14]=rk[6]^rk[13]
708 	str	$i1,[$key,#-12]
751 	mov	$i1,r0			@ input
757 .Linv:	ldr	$s0,[$i1],#16
758 	ldr	$s1,[$i1,#-12]
759 	ldr	$s2,[$i1,#-8]
760 	ldr	$s3,[$i1,#-4]
773 	teq	$i1,$i2
776 	ldr	$s0,[$i1]
777 	ldr	$s1,[$i1,#4]
778 	ldr	$s2,[$i1,#8]
779 	ldr	$s3,[$i1,#12]
786 $mask80=$i1;
1060 	ldmia	$key!,{$t1-$i1}
1065 	eor	$s3,$s3,$i1
1069 	and	$i1,lr,$s0,lsr#16
1074 	ldr	$t1,[$tbl,$i1,lsl#2]	@ Td1[s0>>16]
1075 	and	$i1,lr,$s1		@ i0
1083 	ldr	$i1,[$tbl,$i1,lsl#2]	@ Td3[s1>>0]
1086 	eor	$s0,$s0,$i1,ror#24
1088 	and	$i1,lr,$s2,lsr#8	@ i0
1090 	and	$i2,lr,$s2		@ i1
1093 	ldr	$i1,[$tbl,$i1,lsl#2]	@ Td2[s2>>8]
1099 	eor	$s0,$s0,$i1,ror#16
1101 	and	$i1,lr,$s3,lsr#16	@ i0
1103 	and	$i2,lr,$s3,lsr#8	@ i1
1106 	ldr	$i1,[$tbl,$i1,lsl#2]	@ Td1[s3>>16]
1112 	eor	$s0,$s0,$i1,ror#8
1113 	ldr	$i1,[$key],#16
1119 	eor	$s0,$s0,$i1
1123 	and	$i1,lr,$s0,lsr#16
1146 	ldrb	$t1,[$tbl,$i1]		@ Td4[s0>>16]
1147 	and	$i1,lr,$s1		@ i0
1154 	ldrb	$i1,[$tbl,$i1]		@ Td4[s1>>0]
1157 	eor	$s0,$i1,$s0,lsl#24
1160 	and	$i1,lr,$s2,lsr#8	@ i0
1162 	and	$i2,lr,$s2		@ i1
1163 	ldrb	$i1,[$tbl,$i1]		@ Td4[s2>>8]
1170 	eor	$s0,$s0,$i1,lsl#8
1173 	and	$i1,lr,$s3,lsr#16	@ i0
1175 	and	$i2,lr,$s3,lsr#8	@ i1
1176 	ldrb	$i1,[$tbl,$i1]		@ Td4[s3>>16]
1184 	eor	$s0,$s0,$i1,lsl#16
1185 	ldr	$i1,[$key,#0]
1193 	eor	$s0,$s0,$i1