3  * Fast SHA-1 implementation for SPE instruction set (PPC)
106 #define	R_00_15(a, b, c, d, e, w0, w1, k, off) \  argument
107 	LOAD_DATA(w0, off)		/* 1: W				*/ \
108 	and		rT2,b,c;	/* 1: F' = B and C 		*/ \
109 	LOAD_K##k##1							   \
110 	andc		rT1,d,b;	/* 1: F" = ~B and D 		*/ \
111 	rotrwi		rT0,a,27;	/* 1: A' = A rotl 5		*/ \
112 	or		rT2,rT2,rT1;	/* 1: F = F' or F"		*/ \
113 	add		e,e,rT0;	/* 1: E = E + A'		*/ \
114 	rotrwi		b,b,2;		/* 1: B = B rotl 30		*/ \
115 	add		e,e,w0;		/* 1: E = E + W			*/ \
117 	add		e,e,rT2;	/* 1: E = E + F			*/ \
119 	add		e,e,rK;		/* 1: E = E + K			*/ \
121 	add		d,d,rK;		/* 2: E = E + K			*/ \
123 	rotrwi		rT0,e,27;	/* 2: A' = A rotl 5		*/ \
124 	add		d,d,w1;		/* 2: E = E + W			*/ \
126 	add		d,d,rT0;	/* 2: E = E + A'		*/ \
127 	evmergelo	w1,w1,w0;	/*    mix W[0]/W[1]		*/ \
128 	add		d,d,rT2		/* 2: E = E + F			*/
130 #define R_16_19(a, b, c, d, e, w0, w1, w4, w6, w7, k) \  argument
131 	and		rT2,b,c;	/* 1: F' = B and C 		*/ \
133 	andc		rT1,d,b;	/* 1: F" = ~B and D 		*/ \
135 	or		rT1,rT1,rT2;	/* 1: F = F' or F"		*/ \
137 	add		e,e,rT1;	/* 1: E = E + F			*/ \
139 	rotrwi		rT2,a,27;	/* 1: A' = A rotl 5		*/ \
140 	evrlwi		w0,w0,1;	/*    W = W rotl 1		*/ \
141 	add		e,e,rT2;	/* 1: E = E + A'		*/ \
143 	rotrwi		b,b,2;		/* 1: B = B rotl 30		*/ \
144 	LOAD_K##k##1							   \
146 	add		e,e,rT0;	/* 1: E = E + WK		*/ \
147 	add		d,d,rT1;	/* 2: E = E + WK		*/ \
150 	rotrwi		rT0,e,27;	/* 2: A' = A rotl 5		*/ \
152 	add		d,d,rT0;	/* 2: E = E + A'		*/ \
154 	add		d,d,rT1		/* 2: E = E + F			*/
156 #define R_20_39(a, b, c, d, e, w0, w1, w4, w6, w7, k) \  argument
158 	xor		rT2,b,c;	/* 1: F' = B xor C		*/ \
160 	xor		rT2,rT2,d;	/* 1: F = F' xor D		*/ \
162 	add		e,e,rT2;	/* 1: E = E + F			*/ \
164 	rotrwi		rT2,a,27;	/* 1: A' = A rotl 5		*/ \
165 	evrlwi		w0,w0,1;	/*    W = W rotl 1		*/ \
166 	add		e,e,rT2;	/* 1: E = E + A'		*/ \
168 	rotrwi		b,b,2;		/* 1: B = B rotl 30		*/ \
169 	LOAD_K##k##1							   \
171 	add		e,e,rT0;	/* 1: E = E + WK		*/ \
173 	add		d,d,rT1;	/* 2: E = E + WK		*/ \
175 	rotrwi		rT0,e,27;	/* 2: A' = A rotl 5		*/ \
176 	add		d,d,rT2;	/* 2: E = E + F			*/ \
178 	add		d,d,rT0		/* 2: E = E + A'		*/
180 #define R_40_59(a, b, c, d, e, w0, w1, w4, w6, w7, k) \  argument
181 	and		rT2,b,c;	/* 1: F' = B and C		*/ \
183 	or		rT1,b,c;	/* 1: F" = B or C		*/ \
185 	and		rT1,d,rT1;	/* 1: F" = F" and D		*/ \
187 	or		rT2,rT2,rT1;	/* 1: F = F' or F"		*/ \
189 	add		e,e,rT2;	/* 1: E = E + F			*/ \
190 	evrlwi		w0,w0,1;	/*    W = W rotl 1		*/ \
191 	rotrwi		rT2,a,27;	/* 1: A' = A rotl 5		*/ \
193 	add		e,e,rT2;	/* 1: E = E + A'		*/ \
194 	LOAD_K##k##1							   \
196 	rotrwi		b,b,2;		/* 1: B = B rotl 30		*/ \
197 	add		e,e,rT0;	/* 1: E = E + WK		*/ \
200 	add		d,d,rT1;	/* 2: E = E + WK		*/ \
204 	rotrwi		rT0,e,27;	/* 2: A' = A rotl 5		*/ \
205 	add		d,d,rT2;	/* 2: E = E + F			*/ \
206 	add		d,d,rT0		/* 2: E = E + A'		*/
208 #define R_60_79(a, b, c, d, e, w0, w1, w4, w6, w7, k) \  argument
209 	R_20_39(a, b, c, d, e, w0, w1, w4, w6, w7, k)
224 	R_00_15(rH0, rH1, rH2, rH3, rH4, rW1, rW0, 1, 0)