annotate sha1-arm.S @ 911:367205a2c1c4 asm

Include license information for Cryptogams routines
author Matt Johnston <matt@ucc.asn.au>
date Thu, 27 Feb 2014 22:30:56 +0800
parents 3ca7113936c1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
911
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
1 @ Generated by sha1-armv4-large.pl
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
2 @ ====================================================================
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
3 @ Written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
4 @ project. The module is, however, dual licensed under OpenSSL and
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
5 @ CRYPTOGAMS licenses depending on where you obtain it. For further
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
6 @ details see http://www.openssl.org/~appro/cryptogams/.
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
7 @ ====================================================================
367205a2c1c4 Include license information for Cryptogams routines
Matt Johnston <matt@ucc.asn.au>
parents: 908
diff changeset
8 @
908
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
9 #define __ARM_ARCH__ 6
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
11 .text
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
12
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
13 .global sha1_block_data_order
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
14 .type sha1_block_data_order,%function
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
15
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
16 .align 2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
17 sha1_block_data_order:
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
18 stmdb sp!,{r4-r12,lr}
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
19 add r2,r1,r2,lsl#6 @ r2 to point at the end of r1
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
20 ldmia r0,{r3,r4,r5,r6,r7}
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
21 .Lloop:
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
22 ldr r8,.LK_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
23 mov r14,sp
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
24 sub sp,sp,#15*4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
25 mov r5,r5,ror#30
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
26 mov r6,r6,ror#30
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
27 mov r7,r7,ror#30 @ [6]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
28 .L_00_15:
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
29 #if __ARM_ARCH__<7
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
30 ldrb r10,[r1,#2]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
31 ldrb r9,[r1,#3]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
32 ldrb r11,[r1,#1]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
33 add r7,r8,r7,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
34 ldrb r12,[r1],#4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
35 orr r9,r9,r10,lsl#8
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
36 eor r10,r5,r6 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
37 orr r9,r9,r11,lsl#16
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
38 add r7,r7,r3,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
39 orr r9,r9,r12,lsl#24
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
40 #else
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
41 ldr r9,[r1],#4 @ handles unaligned
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
42 add r7,r8,r7,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
43 eor r10,r5,r6 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
44 add r7,r7,r3,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
45 #ifdef __ARMEL__
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
46 rev r9,r9 @ byte swap
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
47 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
48 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
49 and r10,r4,r10,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
50 add r7,r7,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
51 eor r10,r10,r6,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
52 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
53 add r7,r7,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
54 #if __ARM_ARCH__<7
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
55 ldrb r10,[r1,#2]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
56 ldrb r9,[r1,#3]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
57 ldrb r11,[r1,#1]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
58 add r6,r8,r6,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
59 ldrb r12,[r1],#4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
60 orr r9,r9,r10,lsl#8
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
61 eor r10,r4,r5 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
62 orr r9,r9,r11,lsl#16
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
63 add r6,r6,r7,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
64 orr r9,r9,r12,lsl#24
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
65 #else
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
66 ldr r9,[r1],#4 @ handles unaligned
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
67 add r6,r8,r6,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
68 eor r10,r4,r5 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
69 add r6,r6,r7,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
70 #ifdef __ARMEL__
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
71 rev r9,r9 @ byte swap
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
72 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
73 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
74 and r10,r3,r10,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
75 add r6,r6,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
76 eor r10,r10,r5,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
77 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
78 add r6,r6,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
79 #if __ARM_ARCH__<7
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
80 ldrb r10,[r1,#2]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
81 ldrb r9,[r1,#3]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
82 ldrb r11,[r1,#1]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
83 add r5,r8,r5,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
84 ldrb r12,[r1],#4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
85 orr r9,r9,r10,lsl#8
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
86 eor r10,r3,r4 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
87 orr r9,r9,r11,lsl#16
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
88 add r5,r5,r6,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
89 orr r9,r9,r12,lsl#24
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
90 #else
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
91 ldr r9,[r1],#4 @ handles unaligned
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
92 add r5,r8,r5,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
93 eor r10,r3,r4 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
94 add r5,r5,r6,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
95 #ifdef __ARMEL__
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
96 rev r9,r9 @ byte swap
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
97 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
98 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
99 and r10,r7,r10,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
100 add r5,r5,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
101 eor r10,r10,r4,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
102 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
103 add r5,r5,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
104 #if __ARM_ARCH__<7
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
105 ldrb r10,[r1,#2]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
106 ldrb r9,[r1,#3]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
107 ldrb r11,[r1,#1]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
108 add r4,r8,r4,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
109 ldrb r12,[r1],#4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
110 orr r9,r9,r10,lsl#8
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
111 eor r10,r7,r3 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
112 orr r9,r9,r11,lsl#16
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
113 add r4,r4,r5,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
114 orr r9,r9,r12,lsl#24
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
115 #else
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
116 ldr r9,[r1],#4 @ handles unaligned
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
117 add r4,r8,r4,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
118 eor r10,r7,r3 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
119 add r4,r4,r5,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
120 #ifdef __ARMEL__
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
121 rev r9,r9 @ byte swap
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
122 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
123 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
124 and r10,r6,r10,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
125 add r4,r4,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
126 eor r10,r10,r3,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
127 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
128 add r4,r4,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
129 #if __ARM_ARCH__<7
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
130 ldrb r10,[r1,#2]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
131 ldrb r9,[r1,#3]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
132 ldrb r11,[r1,#1]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
133 add r3,r8,r3,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
134 ldrb r12,[r1],#4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
135 orr r9,r9,r10,lsl#8
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
136 eor r10,r6,r7 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
137 orr r9,r9,r11,lsl#16
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
138 add r3,r3,r4,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
139 orr r9,r9,r12,lsl#24
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
140 #else
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
141 ldr r9,[r1],#4 @ handles unaligned
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
142 add r3,r8,r3,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
143 eor r10,r6,r7 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
144 add r3,r3,r4,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
145 #ifdef __ARMEL__
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
146 rev r9,r9 @ byte swap
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
147 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
148 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
149 and r10,r5,r10,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
150 add r3,r3,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
151 eor r10,r10,r7,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
152 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
153 add r3,r3,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
154 teq r14,sp
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
155 bne .L_00_15 @ [((11+4)*5+2)*3]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
156 sub sp,sp,#25*4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
157 #if __ARM_ARCH__<7
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
158 ldrb r10,[r1,#2]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
159 ldrb r9,[r1,#3]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
160 ldrb r11,[r1,#1]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
161 add r7,r8,r7,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
162 ldrb r12,[r1],#4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
163 orr r9,r9,r10,lsl#8
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
164 eor r10,r5,r6 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
165 orr r9,r9,r11,lsl#16
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
166 add r7,r7,r3,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
167 orr r9,r9,r12,lsl#24
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
168 #else
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
169 ldr r9,[r1],#4 @ handles unaligned
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
170 add r7,r8,r7,ror#2 @ E+=K_00_19
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
171 eor r10,r5,r6 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
172 add r7,r7,r3,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
173 #ifdef __ARMEL__
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
174 rev r9,r9 @ byte swap
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
175 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
176 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
177 and r10,r4,r10,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
178 add r7,r7,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
179 eor r10,r10,r6,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
180 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
181 add r7,r7,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
182 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
183 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
184 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
185 add r6,r8,r6,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
186 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
187 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
188 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
189 eor r10,r4,r5 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
190 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
191 add r6,r6,r7,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
192 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
193 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
194 and r10,r3,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
195 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
196 add r6,r6,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
197 eor r10,r10,r5,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
198 add r6,r6,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
199 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
200 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
201 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
202 add r5,r8,r5,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
203 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
204 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
205 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
206 eor r10,r3,r4 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
207 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
208 add r5,r5,r6,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
209 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
210 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
211 and r10,r7,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
212 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
213 add r5,r5,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
214 eor r10,r10,r4,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
215 add r5,r5,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
216 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
217 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
218 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
219 add r4,r8,r4,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
220 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
221 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
222 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
223 eor r10,r7,r3 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
224 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
225 add r4,r4,r5,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
226 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
227 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
228 and r10,r6,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
229 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
230 add r4,r4,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
231 eor r10,r10,r3,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
232 add r4,r4,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
233 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
234 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
235 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
236 add r3,r8,r3,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
237 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
238 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
239 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
240 eor r10,r6,r7 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
241 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
242 add r3,r3,r4,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
243 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
244 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
245 and r10,r5,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
246 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
247 add r3,r3,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
248 eor r10,r10,r7,ror#2 @ F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
249 add r3,r3,r10 @ E+=F_00_19(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
250
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
251 ldr r8,.LK_20_39 @ [+15+16*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
252 cmn sp,#0 @ [+3], clear carry to denote 20_39
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
253 .L_20_39_or_60_79:
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
254 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
255 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
256 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
257 add r7,r8,r7,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
258 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
259 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
260 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
261 eor r10,r5,r6 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
262 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
263 add r7,r7,r3,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
264 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
265 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
266 eor r10,r4,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
267 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
268 add r7,r7,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
269 add r7,r7,r10 @ E+=F_20_39(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
270 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
271 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
272 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
273 add r6,r8,r6,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
274 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
275 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
276 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
277 eor r10,r4,r5 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
278 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
279 add r6,r6,r7,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
280 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
281 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
282 eor r10,r3,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
283 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
284 add r6,r6,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
285 add r6,r6,r10 @ E+=F_20_39(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
286 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
287 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
288 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
289 add r5,r8,r5,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
290 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
291 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
292 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
293 eor r10,r3,r4 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
294 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
295 add r5,r5,r6,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
296 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
297 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
298 eor r10,r7,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
299 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
300 add r5,r5,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
301 add r5,r5,r10 @ E+=F_20_39(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
302 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
303 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
304 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
305 add r4,r8,r4,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
306 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
307 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
308 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
309 eor r10,r7,r3 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
310 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
311 add r4,r4,r5,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
312 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
313 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
314 eor r10,r6,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
315 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
316 add r4,r4,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
317 add r4,r4,r10 @ E+=F_20_39(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
318 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
319 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
320 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
321 add r3,r8,r3,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
322 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
323 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
324 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
325 eor r10,r6,r7 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
326 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
327 add r3,r3,r4,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
328 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
329 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
330 eor r10,r5,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
331 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
332 add r3,r3,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
333 add r3,r3,r10 @ E+=F_20_39(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
334 teq r14,sp @ preserve carry
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
335 bne .L_20_39_or_60_79 @ [+((12+3)*5+2)*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
336 bcs .L_done @ [+((12+3)*5+2)*4], spare 300 bytes
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
337
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
338 ldr r8,.LK_40_59
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
339 sub sp,sp,#20*4 @ [+2]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
340 .L_40_59:
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
341 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
342 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
343 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
344 add r7,r8,r7,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
345 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
346 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
347 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
348 eor r10,r5,r6 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
349 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
350 add r7,r7,r3,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
351 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
352 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
353 and r10,r4,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
354 and r11,r5,r6 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
355 add r7,r7,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
356 add r7,r7,r10 @ E+=F_40_59(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
357 add r7,r7,r11,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
358 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
359 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
360 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
361 add r6,r8,r6,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
362 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
363 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
364 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
365 eor r10,r4,r5 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
366 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
367 add r6,r6,r7,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
368 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
369 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
370 and r10,r3,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
371 and r11,r4,r5 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
372 add r6,r6,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
373 add r6,r6,r10 @ E+=F_40_59(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
374 add r6,r6,r11,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
375 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
376 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
377 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
378 add r5,r8,r5,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
379 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
380 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
381 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
382 eor r10,r3,r4 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
383 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
384 add r5,r5,r6,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
385 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
386 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
387 and r10,r7,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
388 and r11,r3,r4 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
389 add r5,r5,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
390 add r5,r5,r10 @ E+=F_40_59(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
391 add r5,r5,r11,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
392 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
393 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
394 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
395 add r4,r8,r4,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
396 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
397 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
398 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
399 eor r10,r7,r3 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
400 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
401 add r4,r4,r5,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
402 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
403 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
404 and r10,r6,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
405 and r11,r7,r3 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
406 add r4,r4,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
407 add r4,r4,r10 @ E+=F_40_59(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
408 add r4,r4,r11,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
409 ldr r9,[r14,#15*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
410 ldr r10,[r14,#13*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
411 ldr r11,[r14,#7*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
412 add r3,r8,r3,ror#2 @ E+=K_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
413 ldr r12,[r14,#2*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
414 eor r9,r9,r10
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
415 eor r11,r11,r12 @ 1 cycle stall
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
416 eor r10,r6,r7 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
417 mov r9,r9,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
418 add r3,r3,r4,ror#27 @ E+=ROR(A,27)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
419 eor r9,r9,r11,ror#31
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
420 str r9,[r14,#-4]!
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
421 and r10,r5,r10,ror#2 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
422 and r11,r6,r7 @ F_xx_xx
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
423 add r3,r3,r9 @ E+=X[i]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
424 add r3,r3,r10 @ E+=F_40_59(B,C,D)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
425 add r3,r3,r11,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
426 teq r14,sp
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
427 bne .L_40_59 @ [+((12+5)*5+2)*4]
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
428
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
429 ldr r8,.LK_60_79
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
430 sub sp,sp,#20*4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
431 cmp sp,#0 @ set carry to denote 60_79
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
432 b .L_20_39_or_60_79 @ [+4], spare 300 bytes
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
433 .L_done:
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
434 add sp,sp,#80*4 @ "deallocate" stack frame
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
435 ldmia r0,{r8,r9,r10,r11,r12}
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
436 add r3,r8,r3
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
437 add r4,r9,r4
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
438 add r5,r10,r5,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
439 add r6,r11,r6,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
440 add r7,r12,r7,ror#2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
441 stmia r0,{r3,r4,r5,r6,r7}
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
442 teq r1,r2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
443 bne .Lloop @ [+18], total 1307
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
444
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
445 #if __ARM_ARCH__>=5
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
446 ldmia sp!,{r4-r12,pc}
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
447 #else
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
448 ldmia sp!,{r4-r12,lr}
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
449 tst lr,#1
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
450 moveq pc,lr @ be binary compatible with V4, yet
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
451 .word 0xe12fff1e @ interoperable with Thumb ISA:-)
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
452 #endif
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
453 .align 2
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
454 .LK_00_19: .word 0x5a827999
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
455 .LK_20_39: .word 0x6ed9eba1
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
456 .LK_40_59: .word 0x8f1bbcdc
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
457 .LK_60_79: .word 0xca62c1d6
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
458 .size sha1_block_data_order,.-sha1_block_data_order
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
459 .asciz "SHA1 block transform for ARMv4, CRYPTOGAMS by <[email protected]>"
3ca7113936c1 aes and sha1 for arm
Matt Johnston <matt@ucc.asn.au>
parents:
diff changeset
460 .align 2