33 my @C = (0..4,$A[3][0],$A[4][0]);
119 	XOR	A$A[0][2],A$A[1][2],A$C[2]	; Theta
120 ||	XOR	B$A[0][2],B$A[1][2],B$C[2]
121 ||	XOR	A$A[0][3],A$A[1][3],A$C[3]
122 ||	XOR	B$A[0][3],B$A[1][3],B$C[3]
123 ||	XOR	A$A[0][0],A$A[1][0],A$C[0]
124 ||	XOR	B$A[0][0],B$A[1][0],B$C[0]
125 	XOR	A$A[2][2],A$C[2],A$C[2]
126 ||	XOR	B$A[2][2],B$C[2],B$C[2]
127 ||	XOR	A$A[2][3],A$C[3],A$C[3]
128 ||	XOR	B$A[2][3],B$C[3],B$C[3]
129 ||	XOR	A$A[2][0],A$C[0],A$C[0]
130 ||	XOR	B$A[2][0],B$C[0],B$C[0]
131 	XOR	A$A[3][2],A$C[2],A$C[2]
132 ||	XOR	B$A[3][2],B$C[2],B$C[2]
133 ||	XOR	A$A[3][3],A$C[3],A$C[3]
134 ||	XOR	B$A[3][3],B$C[3],B$C[3]
135 ||	XOR	A$A[3][0],A$C[0],A$C[0]
136 ||	XOR	B$A[3][0],B$C[0],B$C[0]
137 	XOR	A$A[4][2],A$C[2],A$C[2]
138 ||	XOR	B$A[4][2],B$C[2],B$C[2]
139 ||	XOR	A$A[4][3],A$C[3],A$C[3]
140 ||	XOR	B$A[4][3],B$C[3],B$C[3]
141 ||	XOR	A$A[4][0],A$C[0],A$C[0]
142 ||	XOR	B$A[4][0],B$C[0],B$C[0]
143 	XOR	A$A[0][4],A$A[1][4],A$C[4]
144 ||	XOR	B$A[0][4],B$A[1][4],B$C[4]
145 ||	XOR	A$A[0][1],A$A[1][1],A$C[1]
146 ||	XOR	B$A[0][1],B$A[1][1],B$C[1]
149 ||	XOR	A$A[2][4],A$C[4],A$C[4]
150 ||	XOR	B$A[2][4],B$C[4],B$C[4]
151 ||	XOR	A$A[2][1],A$C[1],A$C[1]
152 ||	XOR	B$A[2][1],B$C[1],B$C[1]
153 ||	ROTL	B$C[2],1,A$C[5]			; ROL64(C[2],1)
154 ||	ROTL	A$C[2],0,B$C[5]
155 	XOR	A$A[3][4],A$C[4],A$C[4]
156 ||	XOR	B$A[3][4],B$C[4],B$C[4]
157 ||	XOR	A$A[3][1],A$C[1],A$C[1]
158 ||	XOR	B$A[3][1],B$C[1],B$C[1]
159 ||	ROTL	B$C[3],1,A$C[6]			; ROL64(C[3],1)
160 ||	ROTL	A$C[3],0,B$C[6]
161 	XOR	A$A[4][4],A$C[4],A$C[4]
162 ||	XOR	B$A[4][4],B$C[4],B$C[4]
163 ||	XOR	A$A[4][1],A$C[1],A$C[1]
164 ||	XOR	B$A[4][1],B$C[1],B$C[1]
165 ||	XOR	A$C[0],A$C[5],A$C[5]		; C[0] ^ ROL64(C[2],1)
166 ||	XOR	B$C[0],B$C[5],B$C[5]
167 	XOR	A$C[5],A$A[0][1],A$A[0][1]
168 ||	XOR	B$C[5],B$A[0][1],B$A[0][1]
169 ||	XOR	A$C[5],A$A[1][1],A$A[1][1]
170 ||	XOR	B$C[5],B$A[1][1],B$A[1][1]
171 ||	XOR	A$C[5],A$A[2][1],A$A[2][1]
172 ||	XOR	B$C[5],B$A[2][1],B$A[2][1]
173 	XOR	A$C[5],A$A[3][1],A$A[3][1]
174 ||	XOR	B$C[5],B$A[3][1],B$A[3][1]
175 ||	XOR	A$C[5],A$A[4][1],A$A[4][1]
176 ||	XOR	B$C[5],B$A[4][1],B$A[4][1]
177 ||	ROTL	B$C[4],1,A$C[5]			; ROL64(C[4],1)
178 ||	ROTL	A$C[4],0,B$C[5]
179 ||	XOR	A$C[1],A$C[6],A$C[6]		; C[1] ^ ROL64(C[3],1)
180 ||	XOR	B$C[1],B$C[6],B$C[6]
181 	XOR	A$C[6],A$A[0][2],A$A[0][2]
182 ||	XOR	B$C[6],B$A[0][2],B$A[0][2]
183 ||	XOR	A$C[6],A$A[1][2],A$A[1][2]
184 ||	XOR	B$C[6],B$A[1][2],B$A[1][2]
185 ||	XOR	A$C[6],A$A[2][2],A$A[2][2]
186 ||	XOR	B$C[6],B$A[2][2],B$A[2][2]
187 ||	ROTL	B$C[1],1,A$C[1]			; ROL64(C[1],1)
188 ||	ROTL	A$C[1],0,B$C[1]
189 	XOR	A$C[6],A$A[3][2],A$A[3][2]
190 ||	XOR	B$C[6],B$A[3][2],B$A[3][2]
191 ||	XOR	A$C[6],A$A[4][2],A$A[4][2]
192 ||	XOR	B$C[6],B$A[4][2],B$A[4][2]
193 ||	ROTL	B$C[0],1,A$C[6]			; ROL64(C[0],1)
194 ||	ROTL	A$C[0],0,B$C[6]
195 ||	XOR	A$C[5],A$C[2],A$C[2]		; C[2] ^= ROL64(C[4],1)
196 ||	XOR	B$C[5],B$C[2],B$C[2]
197 	XOR	A$C[2],A$A[0][3],A$A[0][3]
198 ||	XOR	B$C[2],B$A[0][3],B$A[0][3]
199 ||	XOR	A$C[2],A$A[1][3],A$A[1][3]
200 ||	XOR	B$C[2],B$A[1][3],B$A[1][3]
201 ||	XOR	A$C[2],A$A[2][3],A$A[2][3]
202 ||	XOR	B$C[2],B$A[2][3],B$A[2][3]
203 	XOR	A$C[6],A$C[3],A$C[3]		; C[3] ^= ROL64(C[0],1)
204 ||	XOR	B$C[6],B$C[3],B$C[3]
207 ||	XOR	A$C[2],A$A[3][3],A$A[3][3]
208 ||	XOR	B$C[2],B$A[3][3],B$A[3][3]
209 	XOR	A$C[2],A$A[4][3],A$A[4][3]
210 ||	XOR	B$C[2],B$A[4][3],B$A[4][3]
211 ||	XOR	A$C[3],A$A[0][4],A$A[0][4]
212 ||	XOR	B$C[3],B$A[0][4],B$A[0][4]
213 ||	XOR	A$C[3],A$A[1][4],A$A[1][4]
214 ||	XOR	B$C[3],B$A[1][4],B$A[1][4]
215 	XOR	A$C[3],A$A[2][4],A$A[2][4]
216 ||	XOR	B$C[3],B$A[2][4],B$A[2][4]
217 ||	XOR	A$C[3],A$A[3][4],A$A[3][4]
218 ||	XOR	B$C[3],B$A[3][4],B$A[3][4]
219 ||	XOR	A$C[3],A$A[4][4],A$A[4][4]
220 ||	XOR	B$C[3],B$A[4][4],B$A[4][4]
221 	XOR	A$C[1],A$C[4],A$C[4]		; C[4] ^= ROL64(C[1],1)
222 ||	XOR	B$C[1],B$C[4],B$C[4]
223 ||	MV	A$A[0][1],A$C[1]		; Rho+Pi, "early start"
224 ||	MV	B$A[0][1],B$C[1]
228 	XOR	A$C[4],A$A[0][0],A$A[0][0]
229 ||	XOR	B$C[4],B$A[0][0],B$A[0][0]
230 ||	XOR	A$C[4],A$A[1][0],A$A[1][0]
231 ||	XOR	B$C[4],B$A[1][0],B$A[1][0]
232 ||	MV	A$A[0][3],A$C[3]
233 ||	MV	B$A[0][3],B$C[3]
237 	XOR	A$C[4],A$A[2][0],A$A[2][0]
238 ||	XOR	B$C[4],B$A[2][0],B$A[2][0]
239 ||	XOR	A$C[4],A$A[3][0],A$A[3][0]
240 ||	XOR	B$C[4],B$A[3][0],B$A[3][0]
241 ||	MV	A$A[0][2],A$C[2]
242 ||	MV	B$A[0][2],B$C[2]
246 	XOR	A$C[4],A$A[4][0],A$A[4][0]
247 ||	XOR	B$C[4],B$A[4][0],B$A[4][0]
248 ||	MV	A$A[0][4],A$C[4]
249 ||	MV	B$A[0][4],B$C[4]
255 ||	LDW	*${iotas}++[2],A$C[0]
259 ||	LDW	*${iotas}[-1],B$C[0]
280 	&ROL64	($C[1],   $rhotates[0][1],$A[2][0]);
281 	&ROL64	($C[4],   $rhotates[0][4],$A[3][0]);
282 	&ROL64	($C[2],   $rhotates[0][2],$A[4][0]);
284 ||	ANDN	A$A[0][2],A$A[0][1],A$C[4]	; Chi+Iota
285 ||	ANDN	B$A[0][2],B$A[0][1],B$C[4]
286 ||	ANDN	A$A[0][3],A$A[0][2],A$C[1]
287 ||	ANDN	B$A[0][3],B$A[0][2],B$C[1]
288 ||	ANDN	A$A[0][4],A$A[0][3],A$C[2]
289 ||	ANDN	B$A[0][4],B$A[0][3],B$C[2]
291 	&ROL64	($C[3],   $rhotates[0][3],$A[1][0]);
293 ||	ANDN	A$A[0][0],A$A[0][4],A$C[3]
294 ||	ANDN	B$A[0][0],B$A[0][4],B$C[3]
295 ||	XOR	A$C[4],A$A[0][0],A$A[0][0]
296 ||	XOR	B$C[4],B$A[0][0],B$A[0][0]
297 ||	ANDN	A$A[0][1],A$A[0][0],A$C[4]
298 ||	ANDN	B$A[0][1],B$A[0][0],B$C[4]
299 	XOR	A$C[1],A$A[0][1],A$A[0][1]
300 ||	XOR	B$C[1],B$A[0][1],B$A[0][1]
301 ||	XOR	A$C[2],A$A[0][2],A$A[0][2]
302 ||	XOR	B$C[2],B$A[0][2],B$A[0][2]
303 ||	XOR	A$C[3],A$A[0][3],A$A[0][3]
304 ||	XOR	B$C[3],B$A[0][3],B$A[0][3]
305 	XOR	A$C[4],A$A[0][4],A$A[0][4]
306 ||	XOR	B$C[4],B$A[0][4],B$A[0][4]
307 ||	XOR	A$C[0],A$A[0][0],A$A[0][0]	; A[0][0] ^= iotas[i++];
308 ||	XOR	B$C[0],B$A[0][0],B$A[0][0]
309 ||	EXTU	$iotas,24,24,A0			; A0 is A$C[0], as we done?
311 	ANDN	A$A[1][2],A$A[1][1],A$C[4]
312 ||	ANDN	B$A[1][2],B$A[1][1],B$C[4]
313 ||	ANDN	A$A[1][3],A$A[1][2],A$C[1]
314 ||	ANDN	B$A[1][3],B$A[1][2],B$C[1]
315 ||	ANDN	A$A[1][4],A$A[1][3],A$C[2]
316 ||	ANDN	B$A[1][4],B$A[1][3],B$C[2]
317 	ANDN	A$A[1][0],A$A[1][4],A$C[3]
318 ||	ANDN	B$A[1][0],B$A[1][4],B$C[3]
319 ||	XOR	A$C[4],A$A[1][0],A$A[1][0]
320 ||	XOR	B$C[4],B$A[1][0],B$A[1][0]
321 ||	ANDN	A$A[1][1],A$A[1][0],A$C[4]
322 ||	ANDN	B$A[1][1],B$A[1][0],B$C[4]
323 	XOR	A$C[1],A$A[1][1],A$A[1][1]
324 ||	XOR	B$C[1],B$A[1][1],B$A[1][1]
325 ||	XOR	A$C[2],A$A[1][2],A$A[1][2]
326 ||	XOR	B$C[2],B$A[1][2],B$A[1][2]
327 ||	XOR	A$C[3],A$A[1][3],A$A[1][3]
328 ||	XOR	B$C[3],B$A[1][3],B$A[1][3]
329 	XOR	A$C[4],A$A[1][4],A$A[1][4]
330 ||	XOR	B$C[4],B$A[1][4],B$A[1][4]
332 ||	ANDN	A$A[2][2],A$A[2][1],A$C[4]
333 ||	ANDN	B$A[2][2],B$A[2][1],B$C[4]
334 ||	ANDN	A$A[2][3],A$A[2][2],A$C[1]
335 ||	ANDN	B$A[2][3],B$A[2][2],B$C[1]
336 	ANDN	A$A[2][4],A$A[2][3],A$C[2]
337 ||	ANDN	B$A[2][4],B$A[2][3],B$C[2]
338 ||	ANDN	A$A[2][0],A$A[2][4],A$C[3]
339 ||	ANDN	B$A[2][0],B$A[2][4],B$C[3]
340 ||	XOR	A$C[4],A$A[2][0],A$A[2][0]
341 ||	XOR	B$C[4],B$A[2][0],B$A[2][0]
342 	ANDN	A$A[2][1],A$A[2][0],A$C[4]
343 ||	ANDN	B$A[2][1],B$A[2][0],B$C[4]
344 ||	XOR	A$C[1],A$A[2][1],A$A[2][1]
345 ||	XOR	B$C[1],B$A[2][1],B$A[2][1]
346 ||	XOR	A$C[2],A$A[2][2],A$A[2][2]
347 ||	XOR	B$C[2],B$A[2][2],B$A[2][2]
348 	XOR	A$C[3],A$A[2][3],A$A[2][3]
349 ||	XOR	B$C[3],B$A[2][3],B$A[2][3]
350 ||	XOR	A$C[4],A$A[2][4],A$A[2][4]
351 ||	XOR	B$C[4],B$A[2][4],B$A[2][4]
353 	ANDN	A$A[3][2],A$A[3][1],A$C[4]
354 ||	ANDN	B$A[3][2],B$A[3][1],B$C[4]
355 ||	ANDN	A$A[3][3],A$A[3][2],A$C[1]
356 ||	ANDN	B$A[3][3],B$A[3][2],B$C[1]
357 ||	ANDN	A$A[3][4],A$A[3][3],A$C[2]
358 ||	ANDN	B$A[3][4],B$A[3][3],B$C[2]
359 	ANDN	A$A[3][0],A$A[3][4],A$C[3]
360 ||	ANDN	B$A[3][0],B$A[3][4],B$C[3]
361 ||	XOR	A$C[4],A$A[3][0],A$A[3][0]
362 ||	XOR	B$C[4],B$A[3][0],B$A[3][0]
363 ||	ANDN	A$A[3][1],A$A[3][0],A$C[4]
364 ||	ANDN	B$A[3][1],B$A[3][0],B$C[4]
365 	XOR	A$C[1],A$A[3][1],A$A[3][1]
366 ||	XOR	B$C[1],B$A[3][1],B$A[3][1]
367 ||	XOR	A$C[2],A$A[3][2],A$A[3][2]
368 ||	XOR	B$C[2],B$A[3][2],B$A[3][2]
369 ||	XOR	A$C[3],A$A[3][3],A$A[3][3]
371 	XOR	B$C[3],B$A[3][3],B$A[3][3]
372 ||	XOR	A$C[4],A$A[3][4],A$A[3][4]
373 ||	XOR	B$C[4],B$A[3][4],B$A[3][4]
377 	ANDN	A$A[4][2],A$A[4][1],A$C[4]
378 ||	ANDN	B$A[4][2],B$A[4][1],B$C[4]
379 ||	ANDN	A$A[4][3],A$A[4][2],A$C[1]
380 ||	ANDN	B$A[4][3],B$A[4][2],B$C[1]
381 ||	ANDN	A$A[4][4],A$A[4][3],A$C[2]
382 ||	ANDN	B$A[4][4],B$A[4][3],B$C[2]
383 	ANDN	A$A[4][0],A$A[4][4],A$C[3]
384 ||	ANDN	B$A[4][0],B$A[4][4],B$C[3]
385 ||	XOR	A$C[4],A$A[4][0],A$A[4][0]
386 ||	XOR	B$C[4],B$A[4][0],B$A[4][0]
387 ||	ANDN	A$A[4][1],A$A[4][0],A$C[4]
388 ||	ANDN	B$A[4][1],B$A[4][0],B$C[4]
389 	XOR	A$C[1],A$A[4][1],A$A[4][1]
390 ||	XOR	B$C[1],B$A[4][1],B$A[4][1]
391 ||	XOR	A$C[2],A$A[4][2],A$A[4][2]
392 ||	XOR	B$C[2],B$A[4][2],B$A[4][2]
393 ||	XOR	A$C[3],A$A[4][3],A$A[4][3]
394 ||	XOR	B$C[3],B$A[4][3],B$A[4][3]
395 	XOR	A$C[4],A$A[4][4],A$A[4][4]
396 ||	XOR	B$C[4],B$A[4][4],B$A[4][4]

Last Index update Wed Nov 27 12:03:29 UTC 2024

Dedicated to & Maintained by Room-11