78 my @A = map([ "r$_", "r".($_+1), "r".($_+2), "r".($_+3), "r".($_+4) ],
80    $A[1][1] = "r6"; # r13 is reserved
101 	xor	$C[0],$A[0][0],$A[1][0]		; Theta
102 	std	$A[0][4],`$TEMP+0`($sp)
103 	xor	$C[1],$A[0][1],$A[1][1]
104 	std	$A[1][4],`$TEMP+8`($sp)
105 	xor	$C[2],$A[0][2],$A[1][2]
106 	std	$A[2][4],`$TEMP+16`($sp)
107 	xor	$C[3],$A[0][3],$A[1][3]
108 	std	$A[3][4],`$TEMP+24`($sp)
110 	$C[4]=$A[0][4];
111 	$C[5]=$A[1][4];
112 	$C[6]=$A[2][4];
113 	$C[7]=$A[3][4];
115 	xor	$C[4],$A[0][4],$A[1][4]
116 	xor	$C[0],$C[0],$A[2][0]
117 	xor	$C[1],$C[1],$A[2][1]
118 	xor	$C[2],$C[2],$A[2][2]
119 	xor	$C[3],$C[3],$A[2][3]
120 	xor	$C[4],$C[4],$A[2][4]
121 	xor	$C[0],$C[0],$A[3][0]
122 	xor	$C[1],$C[1],$A[3][1]
123 	xor	$C[2],$C[2],$A[3][2]
124 	xor	$C[3],$C[3],$A[3][3]
125 	xor	$C[4],$C[4],$A[3][4]
126 	xor	$C[0],$C[0],$A[4][0]
127 	xor	$C[2],$C[2],$A[4][2]
128 	xor	$C[1],$C[1],$A[4][1]
129 	xor	$C[3],$C[3],$A[4][3]
131 	xor	$C[4],$C[4],$A[4][4]
136 	xor	$A[0][1],$A[0][1],$C[5]
137 	xor	$A[1][1],$A[1][1],$C[5]
138 	xor	$A[2][1],$A[2][1],$C[5]
139 	xor	$A[3][1],$A[3][1],$C[5]
140 	xor	$A[4][1],$A[4][1],$C[5]
149 	xor	$C[1],   $A[0][2],$C[6]			;mr	$C[1],$A[0][2]
150 	xor	$A[1][2],$A[1][2],$C[6]
151 	xor	$A[2][2],$A[2][2],$C[6]
152 	xor	$A[3][2],$A[3][2],$C[6]
153 	xor	$A[4][2],$A[4][2],$C[6]
155 	xor	$A[0][0],$A[0][0],$C[4]
156 	xor	$A[1][0],$A[1][0],$C[4]
157 	xor	$A[2][0],$A[2][0],$C[4]
158 	xor	$A[3][0],$A[3][0],$C[4]
159 	xor	$A[4][0],$A[4][0],$C[4]
166 	ld	$A[0][4],`$TEMP+0`($sp)
167 	xor	$C[0],   $A[0][3],$C[2]			;mr	$C[0],$A[0][3]
168 	ld	$A[1][4],`$TEMP+8`($sp)
169 	xor	$A[1][3],$A[1][3],$C[2]
170 	ld	$A[2][4],`$TEMP+16`($sp)
171 	xor	$A[2][3],$A[2][3],$C[2]
172 	ld	$A[3][4],`$TEMP+24`($sp)
173 	xor	$A[3][3],$A[3][3],$C[2]
174 	xor	$A[4][3],$A[4][3],$C[2]
176 	xor	$C[2],   $A[0][4],$C[3]			;mr	$C[2],$A[0][4]
177 	xor	$A[1][4],$A[1][4],$C[3]
178 	xor	$A[2][4],$A[2][4],$C[3]
179 	xor	$A[3][4],$A[3][4],$C[3]
180 	xor	$A[4][4],$A[4][4],$C[3]
182 	mr	$C[3],$A[0][1]				; Rho+Pi
183 	rotldi	$A[0][1],$A[1][1],$rhotates[1][1]
184 	;mr	$C[1],$A[0][2]
185 	rotldi	$A[0][2],$A[2][2],$rhotates[2][2]
186 	;mr	$C[0],$A[0][3]
187 	rotldi	$A[0][3],$A[3][3],$rhotates[3][3]
188 	;mr	$C[2],$A[0][4]
189 	rotldi	$A[0][4],$A[4][4],$rhotates[4][4]
191 	rotldi	$A[1][1],$A[1][4],$rhotates[1][4]
192 	rotldi	$A[2][2],$A[2][3],$rhotates[2][3]
193 	rotldi	$A[3][3],$A[3][2],$rhotates[3][2]
194 	rotldi	$A[4][4],$A[4][1],$rhotates[4][1]
196 	rotldi	$A[1][4],$A[4][2],$rhotates[4][2]
197 	rotldi	$A[2][3],$A[3][4],$rhotates[3][4]
198 	rotldi	$A[3][2],$A[2][1],$rhotates[2][1]
199 	rotldi	$A[4][1],$A[1][3],$rhotates[1][3]
201 	rotldi	$A[4][2],$A[2][4],$rhotates[2][4]
202 	rotldi	$A[3][4],$A[4][3],$rhotates[4][3]
203 	rotldi	$A[2][1],$A[1][2],$rhotates[1][2]
204 	rotldi	$A[1][3],$A[3][1],$rhotates[3][1]
206 	rotldi	$A[2][4],$A[4][0],$rhotates[4][0]
207 	rotldi	$A[4][3],$A[3][0],$rhotates[3][0]
208 	rotldi	$A[1][2],$A[2][0],$rhotates[2][0]
209 	rotldi	$A[3][1],$A[1][0],$rhotates[1][0]
211 	rotldi	$A[1][0],$C[0],$rhotates[0][3]
212 	rotldi	$A[2][0],$C[3],$rhotates[0][1]
213 	rotldi	$A[3][0],$C[2],$rhotates[0][4]
214 	rotldi	$A[4][0],$C[1],$rhotates[0][2]
216 	andc	$C[0],$A[0][2],$A[0][1]			; Chi+Iota
217 	andc	$C[1],$A[0][3],$A[0][2]
218 	andc	$C[2],$A[0][0],$A[0][4]
219 	andc	$C[3],$A[0][1],$A[0][0]
220 	xor	$A[0][0],$A[0][0],$C[0]
221 	andc	$C[0],$A[0][4],$A[0][3]
222 	xor	$A[0][1],$A[0][1],$C[1]
224 	xor	$A[0][3],$A[0][3],$C[2]
225 	xor	$A[0][4],$A[0][4],$C[3]
226 	xor	$A[0][2],$A[0][2],$C[0]
229 	andc	$C[0],$A[1][2],$A[1][1]
231 	andc	$C[1],$A[1][3],$A[1][2]
232 	andc	$C[2],$A[1][0],$A[1][4]
233 	 xor	$A[0][0],$A[0][0],$C[3]			; A[0][0] ^= Iota
234 	andc	$C[3],$A[1][1],$A[1][0]
235 	xor	$A[1][0],$A[1][0],$C[0]
236 	andc	$C[0],$A[1][4],$A[1][3]
237 	xor	$A[1][1],$A[1][1],$C[1]
238 	xor	$A[1][3],$A[1][3],$C[2]
239 	xor	$A[1][4],$A[1][4],$C[3]
240 	xor	$A[1][2],$A[1][2],$C[0]
242 	andc	$C[0],$A[2][2],$A[2][1]
243 	andc	$C[1],$A[2][3],$A[2][2]
244 	andc	$C[2],$A[2][0],$A[2][4]
245 	andc	$C[3],$A[2][1],$A[2][0]
246 	xor	$A[2][0],$A[2][0],$C[0]
247 	andc	$C[0],$A[2][4],$A[2][3]
248 	xor	$A[2][1],$A[2][1],$C[1]
249 	xor	$A[2][3],$A[2][3],$C[2]
250 	xor	$A[2][4],$A[2][4],$C[3]
251 	xor	$A[2][2],$A[2][2],$C[0]
253 	andc	$C[0],$A[3][2],$A[3][1]
254 	andc	$C[1],$A[3][3],$A[3][2]
255 	andc	$C[2],$A[3][0],$A[3][4]
256 	andc	$C[3],$A[3][1],$A[3][0]
257 	xor	$A[3][0],$A[3][0],$C[0]
258 	andc	$C[0],$A[3][4],$A[3][3]
259 	xor	$A[3][1],$A[3][1],$C[1]
260 	xor	$A[3][3],$A[3][3],$C[2]
261 	xor	$A[3][4],$A[3][4],$C[3]
262 	xor	$A[3][2],$A[3][2],$C[0]
264 	andc	$C[0],$A[4][2],$A[4][1]
265 	andc	$C[1],$A[4][3],$A[4][2]
266 	andc	$C[2],$A[4][0],$A[4][4]
267 	andc	$C[3],$A[4][1],$A[4][0]
268 	xor	$A[4][0],$A[4][0],$C[0]
269 	andc	$C[0],$A[4][4],$A[4][3]
270 	xor	$A[4][1],$A[4][1],$C[1]
271 	xor	$A[4][3],$A[4][3],$C[2]
272 	xor	$A[4][4],$A[4][4],$C[3]
273 	xor	$A[4][2],$A[4][2],$C[0]
316 	ld	$A[0][0],`8*0`(r3)		; load A[5][5]
317 	ld	$A[0][1],`8*1`(r3)
318 	ld	$A[0][2],`8*2`(r3)
319 	ld	$A[0][3],`8*3`(r3)
320 	ld	$A[0][4],`8*4`(r3)
321 	ld	$A[1][0],`8*5`(r3)
322 	ld	$A[1][1],`8*6`(r3)
323 	ld	$A[1][2],`8*7`(r3)
324 	ld	$A[1][3],`8*8`(r3)
325 	ld	$A[1][4],`8*9`(r3)
326 	ld	$A[2][0],`8*10`(r3)
327 	ld	$A[2][1],`8*11`(r3)
328 	ld	$A[2][2],`8*12`(r3)
329 	ld	$A[2][3],`8*13`(r3)
330 	ld	$A[2][4],`8*14`(r3)
331 	ld	$A[3][0],`8*15`(r3)
332 	ld	$A[3][1],`8*16`(r3)
333 	ld	$A[3][2],`8*17`(r3)
334 	ld	$A[3][3],`8*18`(r3)
335 	ld	$A[3][4],`8*19`(r3)
336 	ld	$A[4][0],`8*20`(r3)
337 	ld	$A[4][1],`8*21`(r3)
338 	ld	$A[4][2],`8*22`(r3)
339 	ld	$A[4][3],`8*23`(r3)
340 	ld	$A[4][4],`8*24`(r3)
345 	std	$A[0][0],`8*0`(r3)		; return A[5][5]
346 	std	$A[0][1],`8*1`(r3)
347 	std	$A[0][2],`8*2`(r3)
348 	std	$A[0][3],`8*3`(r3)
349 	std	$A[0][4],`8*4`(r3)
350 	std	$A[1][0],`8*5`(r3)
351 	std	$A[1][1],`8*6`(r3)
352 	std	$A[1][2],`8*7`(r3)
353 	std	$A[1][3],`8*8`(r3)
354 	std	$A[1][4],`8*9`(r3)
355 	std	$A[2][0],`8*10`(r3)
356 	std	$A[2][1],`8*11`(r3)
357 	std	$A[2][2],`8*12`(r3)
358 	std	$A[2][3],`8*13`(r3)
359 	std	$A[2][4],`8*14`(r3)
360 	std	$A[3][0],`8*15`(r3)
361 	std	$A[3][1],`8*16`(r3)
362 	std	$A[3][2],`8*17`(r3)
363 	std	$A[3][3],`8*18`(r3)
364 	std	$A[3][4],`8*19`(r3)
365 	std	$A[4][0],`8*20`(r3)
366 	std	$A[4][1],`8*21`(r3)
367 	std	$A[4][2],`8*22`(r3)
368 	std	$A[4][3],`8*23`(r3)
369 	std	$A[4][4],`8*24`(r3)
464 	ld	$A[0][0],`8*0`(r3)		; load A[5][5]
465 	ld	$A[0][1],`8*1`(r3)
466 	ld	$A[0][2],`8*2`(r3)
467 	ld	$A[0][3],`8*3`(r3)
468 	ld	$A[0][4],`8*4`(r3)
469 	ld	$A[1][0],`8*5`(r3)
470 	ld	$A[1][1],`8*6`(r3)
471 	ld	$A[1][2],`8*7`(r3)
472 	ld	$A[1][3],`8*8`(r3)
473 	ld	$A[1][4],`8*9`(r3)
474 	ld	$A[2][0],`8*10`(r3)
475 	ld	$A[2][1],`8*11`(r3)
476 	ld	$A[2][2],`8*12`(r3)
477 	ld	$A[2][3],`8*13`(r3)
478 	ld	$A[2][4],`8*14`(r3)
479 	ld	$A[3][0],`8*15`(r3)
480 	ld	$A[3][1],`8*16`(r3)
481 	ld	$A[3][2],`8*17`(r3)
482 	ld	$A[3][3],`8*18`(r3)
483 	ld	$A[3][4],`8*19`(r3)
484 	ld	$A[4][0],`8*20`(r3)
485 	ld	$A[4][1],`8*21`(r3)
486 	ld	$A[4][2],`8*22`(r3)
487 	ld	$A[4][3],`8*23`(r3)
488 	ld	$A[4][4],`8*24`(r3)
506 	xor	$A[0][0],$A[0][0],r0
509 	xor	$A[0][1],$A[0][1],r0
512 	xor	$A[0][2],$A[0][2],r0
515 	xor	$A[0][3],$A[0][3],r0
518 	xor	$A[0][4],$A[0][4],r0
521 	xor	$A[1][0],$A[1][0],r0
524 	xor	$A[1][1],$A[1][1],r0
527 	xor	$A[1][2],$A[1][2],r0
530 	xor	$A[1][3],$A[1][3],r0
533 	xor	$A[1][4],$A[1][4],r0
536 	xor	$A[2][0],$A[2][0],r0
539 	xor	$A[2][1],$A[2][1],r0
542 	xor	$A[2][2],$A[2][2],r0
545 	xor	$A[2][3],$A[2][3],r0
548 	xor	$A[2][4],$A[2][4],r0
551 	xor	$A[3][0],$A[3][0],r0
554 	xor	$A[3][1],$A[3][1],r0
557 	xor	$A[3][2],$A[3][2],r0
560 	xor	$A[3][3],$A[3][3],r0
563 	xor	$A[3][4],$A[3][4],r0
566 	xor	$A[4][0],$A[4][0],r0
569 	xor	$A[4][1],$A[4][1],r0
572 	xor	$A[4][2],$A[4][2],r0
575 	xor	$A[4][3],$A[4][3],r0
578 	xor	$A[4][4],$A[4][4],r0
597 	std	$A[0][0],`8*0`(r3)		; return A[5][5]
598 	std	$A[0][1],`8*1`(r3)
599 	std	$A[0][2],`8*2`(r3)
600 	std	$A[0][3],`8*3`(r3)
601 	std	$A[0][4],`8*4`(r3)
602 	std	$A[1][0],`8*5`(r3)
603 	std	$A[1][1],`8*6`(r3)
604 	std	$A[1][2],`8*7`(r3)
605 	std	$A[1][3],`8*8`(r3)
606 	std	$A[1][4],`8*9`(r3)
607 	std	$A[2][0],`8*10`(r3)
608 	std	$A[2][1],`8*11`(r3)
609 	std	$A[2][2],`8*12`(r3)
610 	std	$A[2][3],`8*13`(r3)
611 	std	$A[2][4],`8*14`(r3)
612 	std	$A[3][0],`8*15`(r3)
613 	std	$A[3][1],`8*16`(r3)
614 	std	$A[3][2],`8*17`(r3)
615 	std	$A[3][3],`8*18`(r3)
616 	std	$A[3][4],`8*19`(r3)
617 	std	$A[4][0],`8*20`(r3)
618 	std	$A[4][1],`8*21`(r3)
619 	std	$A[4][2],`8*22`(r3)
620 	std	$A[4][3],`8*23`(r3)
621 	std	$A[4][4],`8*24`(r3)

Last Index update Tue Jul 02 20:04:09 UTC 2024

Dedicated to & Maintained by Room-11