65 #define R_00_15(a, b, c, d, w0, w1, p, q, off, k0h, k0l, k1h, k1l) \  argument
67 	and		rT0,b,c;	/* 1: f = b and c		*/ \
69 	andc		rT1,d,b;	/* 1: f' = ~b and d		*/ \
71 	or		rT0,rT0,rT1;	/* 1: f = f or f'		*/ \
72 	addi		w0,w0,k0l;	/* 1: wk = w + k		*/ \
73 	add		a,a,rT0;	/* 1: a = a + f			*/ \
74 	addis		w0,w0,k0h;	/* 1: wk = w + k'		*/ \
76 	add		a,a,w0;		/* 1: a = a + wk		*/ \
78 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
79 	add		d,d,w1;		/* 2: a = a + wk		*/ \
80 	add		a,a,b;		/* 1: a = a + b			*/ \
82 	andc		rT1,c,a;	/* 2: f' = ~b and d		*/ \
84 	add		d,d,rT0;	/* 2: a = a + f			*/ \
86 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
87 	add		d,d,a;		/* 2: a = a + b			*/
89 #define R_16_31(a, b, c, d, w0, w1, p, q, k0h, k0l, k1h, k1l) \  argument
90 	andc		rT0,c,d;	/* 1: f = c and ~d		*/ \
91 	and		rT1,b,d;	/* 1: f' = b and d		*/ \
92 	addi		w0,w0,k0l;	/* 1: wk = w + k		*/ \
93 	or		rT0,rT0,rT1;	/* 1: f = f or f'		*/ \
94 	addis		w0,w0,k0h;	/* 1: wk = w + k'		*/ \
95 	add		a,a,rT0;	/* 1: a = a + f			*/ \
97 	add		a,a,w0;		/* 1: a = a + wk		*/ \
99 	andc		rT0,b,c;	/* 2: f = c and ~d		*/ \
100 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
101 	add		a,a,b;		/* 1: a = a + b			*/ \
102 	add		d,d,w1;		/* 2: a = a + wk		*/ \
103 	and		rT1,a,c;	/* 2: f' = b and d		*/ \
105 	add		d,d,rT0;	/* 2: a = a + f			*/ \
106 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
107 	add		d,d,a;		/* 2: a = a +b			*/
109 #define R_32_47(a, b, c, d, w0, w1, p, q, k0h, k0l, k1h, k1l) \  argument
110 	xor		rT0,b,c;	/* 1: f' = b xor c		*/ \
111 	addi		w0,w0,k0l;	/* 1: wk = w + k		*/ \
112 	xor		rT1,rT0,d;	/* 1: f = f xor f'		*/ \
113 	addis		w0,w0,k0h;	/* 1: wk = w + k'		*/ \
114 	add		a,a,rT1;	/* 1: a = a + f			*/ \
116 	add		a,a,w0;		/* 1: a = a + wk		*/ \
118 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
119 	add		d,d,w1;		/* 2: a = a + wk		*/ \
120 	add		a,a,b;		/* 1: a = a + b			*/ \
122 	add		d,d,rT1;	/* 2: a = a + f			*/ \
123 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
124 	add		d,d,a;		/* 2: a = a + b			*/
126 #define R_48_63(a, b, c, d, w0, w1, p, q, k0h, k0l, k1h, k1l) \  argument
127 	addi		w0,w0,k0l;	/* 1: w = w + k			*/ \
128 	orc		rT0,b,d;	/* 1: f = b or ~d		*/ \
129 	addis		w0,w0,k0h;	/* 1: w = w + k'		*/ \
130 	xor		rT0,rT0,c;	/* 1: f = f xor c		*/ \
131 	add		a,a,w0;		/* 1: a = a + wk		*/ \
133 	add		a,a,rT0;	/* 1: a = a + f			*/ \
135 	rotrwi		a,a,p;		/* 1: a = a rotl x		*/ \
136 	add		a,a,b;		/* 1: a = a + b			*/ \
137 	orc		rT0,a,c;	/* 2: f = b or ~d		*/ \
138 	add		d,d,w1;		/* 2: a = a + wk		*/ \
140 	add		d,d,rT0;	/* 2: a = a + f			*/ \
141 	rotrwi		d,d,q;		/* 2: a = a rotl x		*/ \
142 	add		d,d,a;		/* 2: a = a + b			*/