annotate sha1-arm.S @ 908:3ca7113936c1 asm

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