8  * Software Foundation; either version 2 of the License, or (at your option)
70 #define R_00_15(a, b, c, d, w0, w1, p, q, off, k0h, k0l, k1h, k1l) \  argument
78 	add		a,a,rT0;	/* 1: a = a + f			*/ \
80 	addis		w1,w1,k1h;	/* 2: wk = w + k		*/ \
81 	add		a,a,w0;		/* 1: a = a + wk		*/ \
82 	addi		w1,w1,k1l;	/* 2: wk = w + k'		*/ \
83 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
84 	add		d,d,w1;		/* 2: a = a + wk		*/ \
85 	add		a,a,b;		/* 1: a = a + b			*/ \
86 	and		rT0,a,b;	/* 2: f = b and c		*/ \
87 	andc		rT1,c,a;	/* 2: f' = ~b and d		*/ \
88 	or		rT0,rT0,rT1;	/* 2: f = f or f'		*/ \
89 	add		d,d,rT0;	/* 2: a = a + f			*/ \
91 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
92 	add		d,d,a;		/* 2: a = a + b			*/
94 #define R_16_31(a, b, c, d, w0, w1, p, q, k0h, k0l, k1h, k1l) \  argument
100 	add		a,a,rT0;	/* 1: a = a + f			*/ \
101 	addi		w1,w1,k1l;	/* 2: wk = w + k		*/ \
102 	add		a,a,w0;		/* 1: a = a + wk		*/ \
103 	addis		w1,w1,k1h;	/* 2: wk = w + k'		*/ \
104 	andc		rT0,b,c;	/* 2: f = c and ~d		*/ \
105 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
106 	add		a,a,b;		/* 1: a = a + b			*/ \
107 	add		d,d,w1;		/* 2: a = a + wk		*/ \
108 	and		rT1,a,c;	/* 2: f' = b and d		*/ \
109 	or		rT0,rT0,rT1;	/* 2: f = f or f'		*/ \
110 	add		d,d,rT0;	/* 2: a = a + f			*/ \
111 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
112 	add		d,d,a;		/* 2: a = a +b			*/
114 #define R_32_47(a, b, c, d, w0, w1, p, q, k0h, k0l, k1h, k1l) \  argument
119 	add		a,a,rT1;	/* 1: a = a + f			*/ \
120 	addi		w1,w1,k1l;	/* 2: wk = w + k		*/ \
121 	add		a,a,w0;		/* 1: a = a + wk		*/ \
122 	addis		w1,w1,k1h;	/* 2: wk = w + k'		*/ \
123 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
124 	add		d,d,w1;		/* 2: a = a + wk		*/ \
125 	add		a,a,b;		/* 1: a = a + b			*/ \
126 	xor		rT1,rT0,a;	/* 2: f = b xor f'		*/ \
127 	add		d,d,rT1;	/* 2: a = a + f			*/ \
128 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
129 	add		d,d,a;		/* 2: a = a + b			*/
131 #define R_48_63(a, b, c, d, w0, w1, p, q, k0h, k0l, k1h, k1l) \  argument
136 	add		a,a,w0;		/* 1: a = a + wk		*/ \
137 	addi		w1,w1,k1l;	/* 2: w = w + k			*/ \
138 	add		a,a,rT0;	/* 1: a = a + f			*/ \
139 	addis		w1,w1,k1h;	/* 2: w = w + k'		*/ \
140 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
141 	add		a,a,b;		/* 1: a = a + b			*/ \
142 	orc		rT0,a,c;	/* 2: f = b or ~d		*/ \
143 	add		d,d,w1;		/* 2: a = a + wk		*/ \
144 	xor		rT0,rT0,b;	/* 2: f = f xor c		*/ \
145 	add		d,d,rT0;	/* 2: a = a + f			*/ \
146 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
147 	add		d,d,a;		/* 2: a = a + b			*/