summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/aes/asm/aes-parisc.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/aes/asm/aes-parisc.pl')
-rw-r--r--src/lib/libcrypto/aes/asm/aes-parisc.pl1028
1 files changed, 0 insertions, 1028 deletions
diff --git a/src/lib/libcrypto/aes/asm/aes-parisc.pl b/src/lib/libcrypto/aes/asm/aes-parisc.pl
deleted file mode 100644
index f12a1c18ec..0000000000
--- a/src/lib/libcrypto/aes/asm/aes-parisc.pl
+++ /dev/null
@@ -1,1028 +0,0 @@
1#!/usr/bin/env perl
2
3# ====================================================================
4# Written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL
5# project. The module is, however, dual licensed under OpenSSL and
6# CRYPTOGAMS licenses depending on where you obtain it. For further
7# details see http://www.openssl.org/~appro/cryptogams/.
8# ====================================================================
9
10# AES for PA-RISC.
11#
12# June 2009.
13#
14# The module is mechanical transliteration of aes-sparcv9.pl, but with
15# a twist: S-boxes are compressed even further down to 1K+256B. On
16# PA-7100LC performance is ~40% better than gcc 3.2 generated code and
17# is about 33 cycles per byte processed with 128-bit key. Newer CPUs
18# perform at 16 cycles per byte. It's not faster than code generated
19# by vendor compiler, but recall that it has compressed S-boxes, which
20# requires extra processing.
21#
22# Special thanks to polarhome.com for providing HP-UX account.
23
24$flavour = shift;
25$output = shift;
26open STDOUT,">$output";
27
28if ($flavour =~ /64/) {
29 $LEVEL ="2.0W";
30 $SIZE_T =8;
31 $FRAME_MARKER =80;
32 $SAVED_RP =16;
33 $PUSH ="std";
34 $PUSHMA ="std,ma";
35 $POP ="ldd";
36 $POPMB ="ldd,mb";
37} else {
38 $LEVEL ="1.0";
39 $SIZE_T =4;
40 $FRAME_MARKER =48;
41 $SAVED_RP =20;
42 $PUSH ="stw";
43 $PUSHMA ="stwm";
44 $POP ="ldw";
45 $POPMB ="ldwm";
46}
47
48$FRAME=16*$SIZE_T+$FRAME_MARKER;# 16 saved regs + frame marker
49 # [+ argument transfer]
50$inp="%r26"; # arg0
51$out="%r25"; # arg1
52$key="%r24"; # arg2
53
54($s0,$s1,$s2,$s3) = ("%r1","%r2","%r3","%r4");
55($t0,$t1,$t2,$t3) = ("%r5","%r6","%r7","%r8");
56
57($acc0, $acc1, $acc2, $acc3, $acc4, $acc5, $acc6, $acc7,
58 $acc8, $acc9,$acc10,$acc11,$acc12,$acc13,$acc14,$acc15) =
59("%r9","%r10","%r11","%r12","%r13","%r14","%r15","%r16",
60"%r17","%r18","%r19","%r20","%r21","%r22","%r23","%r26");
61
62$tbl="%r28";
63$rounds="%r29";
64
65$code=<<___;
66 .LEVEL $LEVEL
67#if 0
68 .SPACE \$TEXT\$
69 .SUBSPA \$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY
70#else
71 .text
72#endif
73
74 .EXPORT AES_encrypt,ENTRY,ARGW0=GR,ARGW1=GR,ARGW2=GR
75 .ALIGN 64
76AES_encrypt
77 .PROC
78 .CALLINFO FRAME=`$FRAME-16*$SIZE_T`,NO_CALLS,SAVE_RP,ENTRY_GR=18
79 .ENTRY
80 $PUSH %r2,-$SAVED_RP(%sp) ; standard prologue
81 $PUSHMA %r3,$FRAME(%sp)
82 $PUSH %r4,`-$FRAME+1*$SIZE_T`(%sp)
83 $PUSH %r5,`-$FRAME+2*$SIZE_T`(%sp)
84 $PUSH %r6,`-$FRAME+3*$SIZE_T`(%sp)
85 $PUSH %r7,`-$FRAME+4*$SIZE_T`(%sp)
86 $PUSH %r8,`-$FRAME+5*$SIZE_T`(%sp)
87 $PUSH %r9,`-$FRAME+6*$SIZE_T`(%sp)
88 $PUSH %r10,`-$FRAME+7*$SIZE_T`(%sp)
89 $PUSH %r11,`-$FRAME+8*$SIZE_T`(%sp)
90 $PUSH %r12,`-$FRAME+9*$SIZE_T`(%sp)
91 $PUSH %r13,`-$FRAME+10*$SIZE_T`(%sp)
92 $PUSH %r14,`-$FRAME+11*$SIZE_T`(%sp)
93 $PUSH %r15,`-$FRAME+12*$SIZE_T`(%sp)
94 $PUSH %r16,`-$FRAME+13*$SIZE_T`(%sp)
95 $PUSH %r17,`-$FRAME+14*$SIZE_T`(%sp)
96 $PUSH %r18,`-$FRAME+15*$SIZE_T`(%sp)
97
98 blr %r0,$tbl
99 ldi 3,$t0
100L\$enc_pic
101 andcm $tbl,$t0,$tbl
102 ldo L\$AES_Te-L\$enc_pic($tbl),$tbl
103
104 and $inp,$t0,$t0
105 sub $inp,$t0,$inp
106 ldw 0($inp),$s0
107 ldw 4($inp),$s1
108 ldw 8($inp),$s2
109 comib,= 0,$t0,L\$enc_inp_aligned
110 ldw 12($inp),$s3
111
112 sh3addl $t0,%r0,$t0
113 subi 32,$t0,$t0
114 mtctl $t0,%cr11
115 ldw 16($inp),$t1
116 vshd $s0,$s1,$s0
117 vshd $s1,$s2,$s1
118 vshd $s2,$s3,$s2
119 vshd $s3,$t1,$s3
120
121L\$enc_inp_aligned
122 bl _parisc_AES_encrypt,%r31
123 nop
124
125 extru,<> $out,31,2,%r0
126 b L\$enc_out_aligned
127 nop
128
129 _srm $s0,24,$acc0
130 _srm $s0,16,$acc1
131 stb $acc0,0($out)
132 _srm $s0,8,$acc2
133 stb $acc1,1($out)
134 _srm $s1,24,$acc4
135 stb $acc2,2($out)
136 _srm $s1,16,$acc5
137 stb $s0,3($out)
138 _srm $s1,8,$acc6
139 stb $acc4,4($out)
140 _srm $s2,24,$acc0
141 stb $acc5,5($out)
142 _srm $s2,16,$acc1
143 stb $acc6,6($out)
144 _srm $s2,8,$acc2
145 stb $s1,7($out)
146 _srm $s3,24,$acc4
147 stb $acc0,8($out)
148 _srm $s3,16,$acc5
149 stb $acc1,9($out)
150 _srm $s3,8,$acc6
151 stb $acc2,10($out)
152 stb $s2,11($out)
153 stb $acc4,12($out)
154 stb $acc5,13($out)
155 stb $acc6,14($out)
156 b L\$enc_done
157 stb $s3,15($out)
158
159L\$enc_out_aligned
160 stw $s0,0($out)
161 stw $s1,4($out)
162 stw $s2,8($out)
163 stw $s3,12($out)
164
165L\$enc_done
166 $POP `-$FRAME-$SAVED_RP`(%sp),%r2 ; standard epilogue
167 $POP `-$FRAME+1*$SIZE_T`(%sp),%r4
168 $POP `-$FRAME+2*$SIZE_T`(%sp),%r5
169 $POP `-$FRAME+3*$SIZE_T`(%sp),%r6
170 $POP `-$FRAME+4*$SIZE_T`(%sp),%r7
171 $POP `-$FRAME+5*$SIZE_T`(%sp),%r8
172 $POP `-$FRAME+6*$SIZE_T`(%sp),%r9
173 $POP `-$FRAME+7*$SIZE_T`(%sp),%r10
174 $POP `-$FRAME+8*$SIZE_T`(%sp),%r11
175 $POP `-$FRAME+9*$SIZE_T`(%sp),%r12
176 $POP `-$FRAME+10*$SIZE_T`(%sp),%r13
177 $POP `-$FRAME+11*$SIZE_T`(%sp),%r14
178 $POP `-$FRAME+12*$SIZE_T`(%sp),%r15
179 $POP `-$FRAME+13*$SIZE_T`(%sp),%r16
180 $POP `-$FRAME+14*$SIZE_T`(%sp),%r17
181 $POP `-$FRAME+15*$SIZE_T`(%sp),%r18
182 bv (%r2)
183 .EXIT
184 $POPMB -$FRAME(%sp),%r3
185 .PROCEND
186
187 .ALIGN 16
188_parisc_AES_encrypt
189 .PROC
190 .CALLINFO MILLICODE
191 .ENTRY
192 ldw 240($key),$rounds
193 ldw 0($key),$t0
194 ldw 4($key),$t1
195 ldw 8($key),$t2
196 _srm $rounds,1,$rounds
197 xor $t0,$s0,$s0
198 ldw 12($key),$t3
199 _srm $s0,24,$acc0
200 xor $t1,$s1,$s1
201 ldw 16($key),$t0
202 _srm $s1,16,$acc1
203 xor $t2,$s2,$s2
204 ldw 20($key),$t1
205 xor $t3,$s3,$s3
206 ldw 24($key),$t2
207 ldw 28($key),$t3
208L\$enc_loop
209 _srm $s2,8,$acc2
210 ldwx,s $acc0($tbl),$acc0
211 _srm $s3,0,$acc3
212 ldwx,s $acc1($tbl),$acc1
213 _srm $s1,24,$acc4
214 ldwx,s $acc2($tbl),$acc2
215 _srm $s2,16,$acc5
216 ldwx,s $acc3($tbl),$acc3
217 _srm $s3,8,$acc6
218 ldwx,s $acc4($tbl),$acc4
219 _srm $s0,0,$acc7
220 ldwx,s $acc5($tbl),$acc5
221 _srm $s2,24,$acc8
222 ldwx,s $acc6($tbl),$acc6
223 _srm $s3,16,$acc9
224 ldwx,s $acc7($tbl),$acc7
225 _srm $s0,8,$acc10
226 ldwx,s $acc8($tbl),$acc8
227 _srm $s1,0,$acc11
228 ldwx,s $acc9($tbl),$acc9
229 _srm $s3,24,$acc12
230 ldwx,s $acc10($tbl),$acc10
231 _srm $s0,16,$acc13
232 ldwx,s $acc11($tbl),$acc11
233 _srm $s1,8,$acc14
234 ldwx,s $acc12($tbl),$acc12
235 _srm $s2,0,$acc15
236 ldwx,s $acc13($tbl),$acc13
237 ldwx,s $acc14($tbl),$acc14
238 ldwx,s $acc15($tbl),$acc15
239 addib,= -1,$rounds,L\$enc_last
240 ldo 32($key),$key
241
242 _ror $acc1,8,$acc1
243 xor $acc0,$t0,$t0
244 ldw 0($key),$s0
245 _ror $acc2,16,$acc2
246 xor $acc1,$t0,$t0
247 ldw 4($key),$s1
248 _ror $acc3,24,$acc3
249 xor $acc2,$t0,$t0
250 ldw 8($key),$s2
251 _ror $acc5,8,$acc5
252 xor $acc3,$t0,$t0
253 ldw 12($key),$s3
254 _ror $acc6,16,$acc6
255 xor $acc4,$t1,$t1
256 _ror $acc7,24,$acc7
257 xor $acc5,$t1,$t1
258 _ror $acc9,8,$acc9
259 xor $acc6,$t1,$t1
260 _ror $acc10,16,$acc10
261 xor $acc7,$t1,$t1
262 _ror $acc11,24,$acc11
263 xor $acc8,$t2,$t2
264 _ror $acc13,8,$acc13
265 xor $acc9,$t2,$t2
266 _ror $acc14,16,$acc14
267 xor $acc10,$t2,$t2
268 _ror $acc15,24,$acc15
269 xor $acc11,$t2,$t2
270 xor $acc12,$acc14,$acc14
271 xor $acc13,$t3,$t3
272 _srm $t0,24,$acc0
273 xor $acc14,$t3,$t3
274 _srm $t1,16,$acc1
275 xor $acc15,$t3,$t3
276
277 _srm $t2,8,$acc2
278 ldwx,s $acc0($tbl),$acc0
279 _srm $t3,0,$acc3
280 ldwx,s $acc1($tbl),$acc1
281 _srm $t1,24,$acc4
282 ldwx,s $acc2($tbl),$acc2
283 _srm $t2,16,$acc5
284 ldwx,s $acc3($tbl),$acc3
285 _srm $t3,8,$acc6
286 ldwx,s $acc4($tbl),$acc4
287 _srm $t0,0,$acc7
288 ldwx,s $acc5($tbl),$acc5
289 _srm $t2,24,$acc8
290 ldwx,s $acc6($tbl),$acc6
291 _srm $t3,16,$acc9
292 ldwx,s $acc7($tbl),$acc7
293 _srm $t0,8,$acc10
294 ldwx,s $acc8($tbl),$acc8
295 _srm $t1,0,$acc11
296 ldwx,s $acc9($tbl),$acc9
297 _srm $t3,24,$acc12
298 ldwx,s $acc10($tbl),$acc10
299 _srm $t0,16,$acc13
300 ldwx,s $acc11($tbl),$acc11
301 _srm $t1,8,$acc14
302 ldwx,s $acc12($tbl),$acc12
303 _srm $t2,0,$acc15
304 ldwx,s $acc13($tbl),$acc13
305 _ror $acc1,8,$acc1
306 ldwx,s $acc14($tbl),$acc14
307
308 _ror $acc2,16,$acc2
309 xor $acc0,$s0,$s0
310 ldwx,s $acc15($tbl),$acc15
311 _ror $acc3,24,$acc3
312 xor $acc1,$s0,$s0
313 ldw 16($key),$t0
314 _ror $acc5,8,$acc5
315 xor $acc2,$s0,$s0
316 ldw 20($key),$t1
317 _ror $acc6,16,$acc6
318 xor $acc3,$s0,$s0
319 ldw 24($key),$t2
320 _ror $acc7,24,$acc7
321 xor $acc4,$s1,$s1
322 ldw 28($key),$t3
323 _ror $acc9,8,$acc9
324 xor $acc5,$s1,$s1
325 ldw 1024+0($tbl),%r0 ; prefetch te4
326 _ror $acc10,16,$acc10
327 xor $acc6,$s1,$s1
328 ldw 1024+32($tbl),%r0 ; prefetch te4
329 _ror $acc11,24,$acc11
330 xor $acc7,$s1,$s1
331 ldw 1024+64($tbl),%r0 ; prefetch te4
332 _ror $acc13,8,$acc13
333 xor $acc8,$s2,$s2
334 ldw 1024+96($tbl),%r0 ; prefetch te4
335 _ror $acc14,16,$acc14
336 xor $acc9,$s2,$s2
337 ldw 1024+128($tbl),%r0 ; prefetch te4
338 _ror $acc15,24,$acc15
339 xor $acc10,$s2,$s2
340 ldw 1024+160($tbl),%r0 ; prefetch te4
341 _srm $s0,24,$acc0
342 xor $acc11,$s2,$s2
343 ldw 1024+192($tbl),%r0 ; prefetch te4
344 xor $acc12,$acc14,$acc14
345 xor $acc13,$s3,$s3
346 ldw 1024+224($tbl),%r0 ; prefetch te4
347 _srm $s1,16,$acc1
348 xor $acc14,$s3,$s3
349 b L\$enc_loop
350 xor $acc15,$s3,$s3
351
352 .ALIGN 16
353L\$enc_last
354 ldo 1024($tbl),$rounds
355 _ror $acc1,8,$acc1
356 xor $acc0,$t0,$t0
357 ldw 0($key),$s0
358 _ror $acc2,16,$acc2
359 xor $acc1,$t0,$t0
360 ldw 4($key),$s1
361 _ror $acc3,24,$acc3
362 xor $acc2,$t0,$t0
363 ldw 8($key),$s2
364 _ror $acc5,8,$acc5
365 xor $acc3,$t0,$t0
366 ldw 12($key),$s3
367 _ror $acc6,16,$acc6
368 xor $acc4,$t1,$t1
369 _ror $acc7,24,$acc7
370 xor $acc5,$t1,$t1
371 _ror $acc9,8,$acc9
372 xor $acc6,$t1,$t1
373 _ror $acc10,16,$acc10
374 xor $acc7,$t1,$t1
375 _ror $acc11,24,$acc11
376 xor $acc8,$t2,$t2
377 _ror $acc13,8,$acc13
378 xor $acc9,$t2,$t2
379 _ror $acc14,16,$acc14
380 xor $acc10,$t2,$t2
381 _ror $acc15,24,$acc15
382 xor $acc11,$t2,$t2
383 xor $acc12,$acc14,$acc14
384 xor $acc13,$t3,$t3
385 _srm $t0,24,$acc0
386 xor $acc14,$t3,$t3
387 _srm $t1,16,$acc1
388 xor $acc15,$t3,$t3
389
390 _srm $t2,8,$acc2
391 ldbx $acc0($rounds),$acc0
392 _srm $t1,24,$acc4
393 ldbx $acc1($rounds),$acc1
394 _srm $t2,16,$acc5
395 _srm $t3,0,$acc3
396 ldbx $acc2($rounds),$acc2
397 ldbx $acc3($rounds),$acc3
398 _srm $t3,8,$acc6
399 ldbx $acc4($rounds),$acc4
400 _srm $t2,24,$acc8
401 ldbx $acc5($rounds),$acc5
402 _srm $t3,16,$acc9
403 _srm $t0,0,$acc7
404 ldbx $acc6($rounds),$acc6
405 ldbx $acc7($rounds),$acc7
406 _srm $t0,8,$acc10
407 ldbx $acc8($rounds),$acc8
408 _srm $t3,24,$acc12
409 ldbx $acc9($rounds),$acc9
410 _srm $t0,16,$acc13
411 _srm $t1,0,$acc11
412 ldbx $acc10($rounds),$acc10
413 _srm $t1,8,$acc14
414 ldbx $acc11($rounds),$acc11
415 ldbx $acc12($rounds),$acc12
416 ldbx $acc13($rounds),$acc13
417 _srm $t2,0,$acc15
418 ldbx $acc14($rounds),$acc14
419
420 dep $acc0,7,8,$acc3
421 ldbx $acc15($rounds),$acc15
422 dep $acc4,7,8,$acc7
423 dep $acc1,15,8,$acc3
424 dep $acc5,15,8,$acc7
425 dep $acc2,23,8,$acc3
426 dep $acc6,23,8,$acc7
427 xor $acc3,$s0,$s0
428 xor $acc7,$s1,$s1
429 dep $acc8,7,8,$acc11
430 dep $acc12,7,8,$acc15
431 dep $acc9,15,8,$acc11
432 dep $acc13,15,8,$acc15
433 dep $acc10,23,8,$acc11
434 dep $acc14,23,8,$acc15
435 xor $acc11,$s2,$s2
436
437 bv (%r31)
438 .EXIT
439 xor $acc15,$s3,$s3
440 .PROCEND
441
442 .ALIGN 64
443L\$AES_Te
444 .WORD 0xc66363a5, 0xf87c7c84, 0xee777799, 0xf67b7b8d
445 .WORD 0xfff2f20d, 0xd66b6bbd, 0xde6f6fb1, 0x91c5c554
446 .WORD 0x60303050, 0x02010103, 0xce6767a9, 0x562b2b7d
447 .WORD 0xe7fefe19, 0xb5d7d762, 0x4dababe6, 0xec76769a
448 .WORD 0x8fcaca45, 0x1f82829d, 0x89c9c940, 0xfa7d7d87
449 .WORD 0xeffafa15, 0xb25959eb, 0x8e4747c9, 0xfbf0f00b
450 .WORD 0x41adadec, 0xb3d4d467, 0x5fa2a2fd, 0x45afafea
451 .WORD 0x239c9cbf, 0x53a4a4f7, 0xe4727296, 0x9bc0c05b
452 .WORD 0x75b7b7c2, 0xe1fdfd1c, 0x3d9393ae, 0x4c26266a
453 .WORD 0x6c36365a, 0x7e3f3f41, 0xf5f7f702, 0x83cccc4f
454 .WORD 0x6834345c, 0x51a5a5f4, 0xd1e5e534, 0xf9f1f108
455 .WORD 0xe2717193, 0xabd8d873, 0x62313153, 0x2a15153f
456 .WORD 0x0804040c, 0x95c7c752, 0x46232365, 0x9dc3c35e
457 .WORD 0x30181828, 0x379696a1, 0x0a05050f, 0x2f9a9ab5
458 .WORD 0x0e070709, 0x24121236, 0x1b80809b, 0xdfe2e23d
459 .WORD 0xcdebeb26, 0x4e272769, 0x7fb2b2cd, 0xea75759f
460 .WORD 0x1209091b, 0x1d83839e, 0x582c2c74, 0x341a1a2e
461 .WORD 0x361b1b2d, 0xdc6e6eb2, 0xb45a5aee, 0x5ba0a0fb
462 .WORD 0xa45252f6, 0x763b3b4d, 0xb7d6d661, 0x7db3b3ce
463 .WORD 0x5229297b, 0xdde3e33e, 0x5e2f2f71, 0x13848497
464 .WORD 0xa65353f5, 0xb9d1d168, 0x00000000, 0xc1eded2c
465 .WORD 0x40202060, 0xe3fcfc1f, 0x79b1b1c8, 0xb65b5bed
466 .WORD 0xd46a6abe, 0x8dcbcb46, 0x67bebed9, 0x7239394b
467 .WORD 0x944a4ade, 0x984c4cd4, 0xb05858e8, 0x85cfcf4a
468 .WORD 0xbbd0d06b, 0xc5efef2a, 0x4faaaae5, 0xedfbfb16
469 .WORD 0x864343c5, 0x9a4d4dd7, 0x66333355, 0x11858594
470 .WORD 0x8a4545cf, 0xe9f9f910, 0x04020206, 0xfe7f7f81
471 .WORD 0xa05050f0, 0x783c3c44, 0x259f9fba, 0x4ba8a8e3
472 .WORD 0xa25151f3, 0x5da3a3fe, 0x804040c0, 0x058f8f8a
473 .WORD 0x3f9292ad, 0x219d9dbc, 0x70383848, 0xf1f5f504
474 .WORD 0x63bcbcdf, 0x77b6b6c1, 0xafdada75, 0x42212163
475 .WORD 0x20101030, 0xe5ffff1a, 0xfdf3f30e, 0xbfd2d26d
476 .WORD 0x81cdcd4c, 0x180c0c14, 0x26131335, 0xc3ecec2f
477 .WORD 0xbe5f5fe1, 0x359797a2, 0x884444cc, 0x2e171739
478 .WORD 0x93c4c457, 0x55a7a7f2, 0xfc7e7e82, 0x7a3d3d47
479 .WORD 0xc86464ac, 0xba5d5de7, 0x3219192b, 0xe6737395
480 .WORD 0xc06060a0, 0x19818198, 0x9e4f4fd1, 0xa3dcdc7f
481 .WORD 0x44222266, 0x542a2a7e, 0x3b9090ab, 0x0b888883
482 .WORD 0x8c4646ca, 0xc7eeee29, 0x6bb8b8d3, 0x2814143c
483 .WORD 0xa7dede79, 0xbc5e5ee2, 0x160b0b1d, 0xaddbdb76
484 .WORD 0xdbe0e03b, 0x64323256, 0x743a3a4e, 0x140a0a1e
485 .WORD 0x924949db, 0x0c06060a, 0x4824246c, 0xb85c5ce4
486 .WORD 0x9fc2c25d, 0xbdd3d36e, 0x43acacef, 0xc46262a6
487 .WORD 0x399191a8, 0x319595a4, 0xd3e4e437, 0xf279798b
488 .WORD 0xd5e7e732, 0x8bc8c843, 0x6e373759, 0xda6d6db7
489 .WORD 0x018d8d8c, 0xb1d5d564, 0x9c4e4ed2, 0x49a9a9e0
490 .WORD 0xd86c6cb4, 0xac5656fa, 0xf3f4f407, 0xcfeaea25
491 .WORD 0xca6565af, 0xf47a7a8e, 0x47aeaee9, 0x10080818
492 .WORD 0x6fbabad5, 0xf0787888, 0x4a25256f, 0x5c2e2e72
493 .WORD 0x381c1c24, 0x57a6a6f1, 0x73b4b4c7, 0x97c6c651
494 .WORD 0xcbe8e823, 0xa1dddd7c, 0xe874749c, 0x3e1f1f21
495 .WORD 0x964b4bdd, 0x61bdbddc, 0x0d8b8b86, 0x0f8a8a85
496 .WORD 0xe0707090, 0x7c3e3e42, 0x71b5b5c4, 0xcc6666aa
497 .WORD 0x904848d8, 0x06030305, 0xf7f6f601, 0x1c0e0e12
498 .WORD 0xc26161a3, 0x6a35355f, 0xae5757f9, 0x69b9b9d0
499 .WORD 0x17868691, 0x99c1c158, 0x3a1d1d27, 0x279e9eb9
500 .WORD 0xd9e1e138, 0xebf8f813, 0x2b9898b3, 0x22111133
501 .WORD 0xd26969bb, 0xa9d9d970, 0x078e8e89, 0x339494a7
502 .WORD 0x2d9b9bb6, 0x3c1e1e22, 0x15878792, 0xc9e9e920
503 .WORD 0x87cece49, 0xaa5555ff, 0x50282878, 0xa5dfdf7a
504 .WORD 0x038c8c8f, 0x59a1a1f8, 0x09898980, 0x1a0d0d17
505 .WORD 0x65bfbfda, 0xd7e6e631, 0x844242c6, 0xd06868b8
506 .WORD 0x824141c3, 0x299999b0, 0x5a2d2d77, 0x1e0f0f11
507 .WORD 0x7bb0b0cb, 0xa85454fc, 0x6dbbbbd6, 0x2c16163a
508 .BYTE 0x63, 0x7c, 0x77, 0x7b, 0xf2, 0x6b, 0x6f, 0xc5
509 .BYTE 0x30, 0x01, 0x67, 0x2b, 0xfe, 0xd7, 0xab, 0x76
510 .BYTE 0xca, 0x82, 0xc9, 0x7d, 0xfa, 0x59, 0x47, 0xf0
511 .BYTE 0xad, 0xd4, 0xa2, 0xaf, 0x9c, 0xa4, 0x72, 0xc0
512 .BYTE 0xb7, 0xfd, 0x93, 0x26, 0x36, 0x3f, 0xf7, 0xcc
513 .BYTE 0x34, 0xa5, 0xe5, 0xf1, 0x71, 0xd8, 0x31, 0x15
514 .BYTE 0x04, 0xc7, 0x23, 0xc3, 0x18, 0x96, 0x05, 0x9a
515 .BYTE 0x07, 0x12, 0x80, 0xe2, 0xeb, 0x27, 0xb2, 0x75
516 .BYTE 0x09, 0x83, 0x2c, 0x1a, 0x1b, 0x6e, 0x5a, 0xa0
517 .BYTE 0x52, 0x3b, 0xd6, 0xb3, 0x29, 0xe3, 0x2f, 0x84
518 .BYTE 0x53, 0xd1, 0x00, 0xed, 0x20, 0xfc, 0xb1, 0x5b
519 .BYTE 0x6a, 0xcb, 0xbe, 0x39, 0x4a, 0x4c, 0x58, 0xcf
520 .BYTE 0xd0, 0xef, 0xaa, 0xfb, 0x43, 0x4d, 0x33, 0x85
521 .BYTE 0x45, 0xf9, 0x02, 0x7f, 0x50, 0x3c, 0x9f, 0xa8
522 .BYTE 0x51, 0xa3, 0x40, 0x8f, 0x92, 0x9d, 0x38, 0xf5
523 .BYTE 0xbc, 0xb6, 0xda, 0x21, 0x10, 0xff, 0xf3, 0xd2
524 .BYTE 0xcd, 0x0c, 0x13, 0xec, 0x5f, 0x97, 0x44, 0x17
525 .BYTE 0xc4, 0xa7, 0x7e, 0x3d, 0x64, 0x5d, 0x19, 0x73
526 .BYTE 0x60, 0x81, 0x4f, 0xdc, 0x22, 0x2a, 0x90, 0x88
527 .BYTE 0x46, 0xee, 0xb8, 0x14, 0xde, 0x5e, 0x0b, 0xdb
528 .BYTE 0xe0, 0x32, 0x3a, 0x0a, 0x49, 0x06, 0x24, 0x5c
529 .BYTE 0xc2, 0xd3, 0xac, 0x62, 0x91, 0x95, 0xe4, 0x79
530 .BYTE 0xe7, 0xc8, 0x37, 0x6d, 0x8d, 0xd5, 0x4e, 0xa9
531 .BYTE 0x6c, 0x56, 0xf4, 0xea, 0x65, 0x7a, 0xae, 0x08
532 .BYTE 0xba, 0x78, 0x25, 0x2e, 0x1c, 0xa6, 0xb4, 0xc6
533 .BYTE 0xe8, 0xdd, 0x74, 0x1f, 0x4b, 0xbd, 0x8b, 0x8a
534 .BYTE 0x70, 0x3e, 0xb5, 0x66, 0x48, 0x03, 0xf6, 0x0e
535 .BYTE 0x61, 0x35, 0x57, 0xb9, 0x86, 0xc1, 0x1d, 0x9e
536 .BYTE 0xe1, 0xf8, 0x98, 0x11, 0x69, 0xd9, 0x8e, 0x94
537 .BYTE 0x9b, 0x1e, 0x87, 0xe9, 0xce, 0x55, 0x28, 0xdf
538 .BYTE 0x8c, 0xa1, 0x89, 0x0d, 0xbf, 0xe6, 0x42, 0x68
539 .BYTE 0x41, 0x99, 0x2d, 0x0f, 0xb0, 0x54, 0xbb, 0x16
540___
541
542$code.=<<___;
543 .EXPORT AES_decrypt,ENTRY,ARGW0=GR,ARGW1=GR,ARGW2=GR
544 .ALIGN 16
545AES_decrypt
546 .PROC
547 .CALLINFO FRAME=`$FRAME-16*$SIZE_T`,NO_CALLS,SAVE_RP,ENTRY_GR=18
548 .ENTRY
549 $PUSH %r2,-$SAVED_RP(%sp) ; standard prologue
550 $PUSHMA %r3,$FRAME(%sp)
551 $PUSH %r4,`-$FRAME+1*$SIZE_T`(%sp)
552 $PUSH %r5,`-$FRAME+2*$SIZE_T`(%sp)
553 $PUSH %r6,`-$FRAME+3*$SIZE_T`(%sp)
554 $PUSH %r7,`-$FRAME+4*$SIZE_T`(%sp)
555 $PUSH %r8,`-$FRAME+5*$SIZE_T`(%sp)
556 $PUSH %r9,`-$FRAME+6*$SIZE_T`(%sp)
557 $PUSH %r10,`-$FRAME+7*$SIZE_T`(%sp)
558 $PUSH %r11,`-$FRAME+8*$SIZE_T`(%sp)
559 $PUSH %r12,`-$FRAME+9*$SIZE_T`(%sp)
560 $PUSH %r13,`-$FRAME+10*$SIZE_T`(%sp)
561 $PUSH %r14,`-$FRAME+11*$SIZE_T`(%sp)
562 $PUSH %r15,`-$FRAME+12*$SIZE_T`(%sp)
563 $PUSH %r16,`-$FRAME+13*$SIZE_T`(%sp)
564 $PUSH %r17,`-$FRAME+14*$SIZE_T`(%sp)
565 $PUSH %r18,`-$FRAME+15*$SIZE_T`(%sp)
566
567 blr %r0,$tbl
568 ldi 3,$t0
569L\$dec_pic
570 andcm $tbl,$t0,$tbl
571 ldo L\$AES_Td-L\$dec_pic($tbl),$tbl
572
573 and $inp,$t0,$t0
574 sub $inp,$t0,$inp
575 ldw 0($inp),$s0
576 ldw 4($inp),$s1
577 ldw 8($inp),$s2
578 comib,= 0,$t0,L\$dec_inp_aligned
579 ldw 12($inp),$s3
580
581 sh3addl $t0,%r0,$t0
582 subi 32,$t0,$t0
583 mtctl $t0,%cr11
584 ldw 16($inp),$t1
585 vshd $s0,$s1,$s0
586 vshd $s1,$s2,$s1
587 vshd $s2,$s3,$s2
588 vshd $s3,$t1,$s3
589
590L\$dec_inp_aligned
591 bl _parisc_AES_decrypt,%r31
592 nop
593
594 extru,<> $out,31,2,%r0
595 b L\$dec_out_aligned
596 nop
597
598 _srm $s0,24,$acc0
599 _srm $s0,16,$acc1
600 stb $acc0,0($out)
601 _srm $s0,8,$acc2
602 stb $acc1,1($out)
603 _srm $s1,24,$acc4
604 stb $acc2,2($out)
605 _srm $s1,16,$acc5
606 stb $s0,3($out)
607 _srm $s1,8,$acc6
608 stb $acc4,4($out)
609 _srm $s2,24,$acc0
610 stb $acc5,5($out)
611 _srm $s2,16,$acc1
612 stb $acc6,6($out)
613 _srm $s2,8,$acc2
614 stb $s1,7($out)
615 _srm $s3,24,$acc4
616 stb $acc0,8($out)
617 _srm $s3,16,$acc5
618 stb $acc1,9($out)
619 _srm $s3,8,$acc6
620 stb $acc2,10($out)
621 stb $s2,11($out)
622 stb $acc4,12($out)
623 stb $acc5,13($out)
624 stb $acc6,14($out)
625 b L\$dec_done
626 stb $s3,15($out)
627
628L\$dec_out_aligned
629 stw $s0,0($out)
630 stw $s1,4($out)
631 stw $s2,8($out)
632 stw $s3,12($out)
633
634L\$dec_done
635 $POP `-$FRAME-$SAVED_RP`(%sp),%r2 ; standard epilogue
636 $POP `-$FRAME+1*$SIZE_T`(%sp),%r4
637 $POP `-$FRAME+2*$SIZE_T`(%sp),%r5
638 $POP `-$FRAME+3*$SIZE_T`(%sp),%r6
639 $POP `-$FRAME+4*$SIZE_T`(%sp),%r7
640 $POP `-$FRAME+5*$SIZE_T`(%sp),%r8
641 $POP `-$FRAME+6*$SIZE_T`(%sp),%r9
642 $POP `-$FRAME+7*$SIZE_T`(%sp),%r10
643 $POP `-$FRAME+8*$SIZE_T`(%sp),%r11
644 $POP `-$FRAME+9*$SIZE_T`(%sp),%r12
645 $POP `-$FRAME+10*$SIZE_T`(%sp),%r13
646 $POP `-$FRAME+11*$SIZE_T`(%sp),%r14
647 $POP `-$FRAME+12*$SIZE_T`(%sp),%r15
648 $POP `-$FRAME+13*$SIZE_T`(%sp),%r16
649 $POP `-$FRAME+14*$SIZE_T`(%sp),%r17
650 $POP `-$FRAME+15*$SIZE_T`(%sp),%r18
651 bv (%r2)
652 .EXIT
653 $POPMB -$FRAME(%sp),%r3
654 .PROCEND
655
656 .ALIGN 16
657_parisc_AES_decrypt
658 .PROC
659 .CALLINFO MILLICODE
660 .ENTRY
661 ldw 240($key),$rounds
662 ldw 0($key),$t0
663 ldw 4($key),$t1
664 ldw 8($key),$t2
665 ldw 12($key),$t3
666 _srm $rounds,1,$rounds
667 xor $t0,$s0,$s0
668 ldw 16($key),$t0
669 xor $t1,$s1,$s1
670 ldw 20($key),$t1
671 _srm $s0,24,$acc0
672 xor $t2,$s2,$s2
673 ldw 24($key),$t2
674 xor $t3,$s3,$s3
675 ldw 28($key),$t3
676 _srm $s3,16,$acc1
677L\$dec_loop
678 _srm $s2,8,$acc2
679 ldwx,s $acc0($tbl),$acc0
680 _srm $s1,0,$acc3
681 ldwx,s $acc1($tbl),$acc1
682 _srm $s1,24,$acc4
683 ldwx,s $acc2($tbl),$acc2
684 _srm $s0,16,$acc5
685 ldwx,s $acc3($tbl),$acc3
686 _srm $s3,8,$acc6
687 ldwx,s $acc4($tbl),$acc4
688 _srm $s2,0,$acc7
689 ldwx,s $acc5($tbl),$acc5
690 _srm $s2,24,$acc8
691 ldwx,s $acc6($tbl),$acc6
692 _srm $s1,16,$acc9
693 ldwx,s $acc7($tbl),$acc7
694 _srm $s0,8,$acc10
695 ldwx,s $acc8($tbl),$acc8
696 _srm $s3,0,$acc11
697 ldwx,s $acc9($tbl),$acc9
698 _srm $s3,24,$acc12
699 ldwx,s $acc10($tbl),$acc10
700 _srm $s2,16,$acc13
701 ldwx,s $acc11($tbl),$acc11
702 _srm $s1,8,$acc14
703 ldwx,s $acc12($tbl),$acc12
704 _srm $s0,0,$acc15
705 ldwx,s $acc13($tbl),$acc13
706 ldwx,s $acc14($tbl),$acc14
707 ldwx,s $acc15($tbl),$acc15
708 addib,= -1,$rounds,L\$dec_last
709 ldo 32($key),$key
710
711 _ror $acc1,8,$acc1
712 xor $acc0,$t0,$t0
713 ldw 0($key),$s0
714 _ror $acc2,16,$acc2
715 xor $acc1,$t0,$t0
716 ldw 4($key),$s1
717 _ror $acc3,24,$acc3
718 xor $acc2,$t0,$t0
719 ldw 8($key),$s2
720 _ror $acc5,8,$acc5
721 xor $acc3,$t0,$t0
722 ldw 12($key),$s3
723 _ror $acc6,16,$acc6
724 xor $acc4,$t1,$t1
725 _ror $acc7,24,$acc7
726 xor $acc5,$t1,$t1
727 _ror $acc9,8,$acc9
728 xor $acc6,$t1,$t1
729 _ror $acc10,16,$acc10
730 xor $acc7,$t1,$t1
731 _ror $acc11,24,$acc11
732 xor $acc8,$t2,$t2
733 _ror $acc13,8,$acc13
734 xor $acc9,$t2,$t2
735 _ror $acc14,16,$acc14
736 xor $acc10,$t2,$t2
737 _ror $acc15,24,$acc15
738 xor $acc11,$t2,$t2
739 xor $acc12,$acc14,$acc14
740 xor $acc13,$t3,$t3
741 _srm $t0,24,$acc0
742 xor $acc14,$t3,$t3
743 xor $acc15,$t3,$t3
744 _srm $t3,16,$acc1
745
746 _srm $t2,8,$acc2
747 ldwx,s $acc0($tbl),$acc0
748 _srm $t1,0,$acc3
749 ldwx,s $acc1($tbl),$acc1
750 _srm $t1,24,$acc4
751 ldwx,s $acc2($tbl),$acc2
752 _srm $t0,16,$acc5
753 ldwx,s $acc3($tbl),$acc3
754 _srm $t3,8,$acc6
755 ldwx,s $acc4($tbl),$acc4
756 _srm $t2,0,$acc7
757 ldwx,s $acc5($tbl),$acc5
758 _srm $t2,24,$acc8
759 ldwx,s $acc6($tbl),$acc6
760 _srm $t1,16,$acc9
761 ldwx,s $acc7($tbl),$acc7
762 _srm $t0,8,$acc10
763 ldwx,s $acc8($tbl),$acc8
764 _srm $t3,0,$acc11
765 ldwx,s $acc9($tbl),$acc9
766 _srm $t3,24,$acc12
767 ldwx,s $acc10($tbl),$acc10
768 _srm $t2,16,$acc13
769 ldwx,s $acc11($tbl),$acc11
770 _srm $t1,8,$acc14
771 ldwx,s $acc12($tbl),$acc12
772 _srm $t0,0,$acc15
773 ldwx,s $acc13($tbl),$acc13
774 _ror $acc1,8,$acc1
775 ldwx,s $acc14($tbl),$acc14
776
777 _ror $acc2,16,$acc2
778 xor $acc0,$s0,$s0
779 ldwx,s $acc15($tbl),$acc15
780 _ror $acc3,24,$acc3
781 xor $acc1,$s0,$s0
782 ldw 16($key),$t0
783 _ror $acc5,8,$acc5
784 xor $acc2,$s0,$s0
785 ldw 20($key),$t1
786 _ror $acc6,16,$acc6
787 xor $acc3,$s0,$s0
788 ldw 24($key),$t2
789 _ror $acc7,24,$acc7
790 xor $acc4,$s1,$s1
791 ldw 28($key),$t3
792 _ror $acc9,8,$acc9
793 xor $acc5,$s1,$s1
794 ldw 1024+0($tbl),%r0 ; prefetch td4
795 _ror $acc10,16,$acc10
796 xor $acc6,$s1,$s1
797 ldw 1024+32($tbl),%r0 ; prefetch td4
798 _ror $acc11,24,$acc11
799 xor $acc7,$s1,$s1
800 ldw 1024+64($tbl),%r0 ; prefetch td4
801 _ror $acc13,8,$acc13
802 xor $acc8,$s2,$s2
803 ldw 1024+96($tbl),%r0 ; prefetch td4
804 _ror $acc14,16,$acc14
805 xor $acc9,$s2,$s2
806 ldw 1024+128($tbl),%r0 ; prefetch td4
807 _ror $acc15,24,$acc15
808 xor $acc10,$s2,$s2
809 ldw 1024+160($tbl),%r0 ; prefetch td4
810 _srm $s0,24,$acc0
811 xor $acc11,$s2,$s2
812 ldw 1024+192($tbl),%r0 ; prefetch td4
813 xor $acc12,$acc14,$acc14
814 xor $acc13,$s3,$s3
815 ldw 1024+224($tbl),%r0 ; prefetch td4
816 xor $acc14,$s3,$s3
817 xor $acc15,$s3,$s3
818 b L\$dec_loop
819 _srm $s3,16,$acc1
820
821 .ALIGN 16
822L\$dec_last
823 ldo 1024($tbl),$rounds
824 _ror $acc1,8,$acc1
825 xor $acc0,$t0,$t0
826 ldw 0($key),$s0
827 _ror $acc2,16,$acc2
828 xor $acc1,$t0,$t0
829 ldw 4($key),$s1
830 _ror $acc3,24,$acc3
831 xor $acc2,$t0,$t0
832 ldw 8($key),$s2
833 _ror $acc5,8,$acc5
834 xor $acc3,$t0,$t0
835 ldw 12($key),$s3
836 _ror $acc6,16,$acc6
837 xor $acc4,$t1,$t1
838 _ror $acc7,24,$acc7
839 xor $acc5,$t1,$t1
840 _ror $acc9,8,$acc9
841 xor $acc6,$t1,$t1
842 _ror $acc10,16,$acc10
843 xor $acc7,$t1,$t1
844 _ror $acc11,24,$acc11
845 xor $acc8,$t2,$t2
846 _ror $acc13,8,$acc13
847 xor $acc9,$t2,$t2
848 _ror $acc14,16,$acc14
849 xor $acc10,$t2,$t2
850 _ror $acc15,24,$acc15
851 xor $acc11,$t2,$t2
852 xor $acc12,$acc14,$acc14
853 xor $acc13,$t3,$t3
854 _srm $t0,24,$acc0
855 xor $acc14,$t3,$t3
856 xor $acc15,$t3,$t3
857 _srm $t3,16,$acc1
858
859 _srm $t2,8,$acc2
860 ldbx $acc0($rounds),$acc0
861 _srm $t1,24,$acc4
862 ldbx $acc1($rounds),$acc1
863 _srm $t0,16,$acc5
864 _srm $t1,0,$acc3
865 ldbx $acc2($rounds),$acc2
866 ldbx $acc3($rounds),$acc3
867 _srm $t3,8,$acc6
868 ldbx $acc4($rounds),$acc4
869 _srm $t2,24,$acc8
870 ldbx $acc5($rounds),$acc5
871 _srm $t1,16,$acc9
872 _srm $t2,0,$acc7
873 ldbx $acc6($rounds),$acc6
874 ldbx $acc7($rounds),$acc7
875 _srm $t0,8,$acc10
876 ldbx $acc8($rounds),$acc8
877 _srm $t3,24,$acc12
878 ldbx $acc9($rounds),$acc9
879 _srm $t2,16,$acc13
880 _srm $t3,0,$acc11
881 ldbx $acc10($rounds),$acc10
882 _srm $t1,8,$acc14
883 ldbx $acc11($rounds),$acc11
884 ldbx $acc12($rounds),$acc12
885 ldbx $acc13($rounds),$acc13
886 _srm $t0,0,$acc15
887 ldbx $acc14($rounds),$acc14
888
889 dep $acc0,7,8,$acc3
890 ldbx $acc15($rounds),$acc15
891 dep $acc4,7,8,$acc7
892 dep $acc1,15,8,$acc3
893 dep $acc5,15,8,$acc7
894 dep $acc2,23,8,$acc3
895 dep $acc6,23,8,$acc7
896 xor $acc3,$s0,$s0
897 xor $acc7,$s1,$s1
898 dep $acc8,7,8,$acc11
899 dep $acc12,7,8,$acc15
900 dep $acc9,15,8,$acc11
901 dep $acc13,15,8,$acc15
902 dep $acc10,23,8,$acc11
903 dep $acc14,23,8,$acc15
904 xor $acc11,$s2,$s2
905
906 bv (%r31)
907 .EXIT
908 xor $acc15,$s3,$s3
909 .PROCEND
910
911 .ALIGN 64
912L\$AES_Td
913 .WORD 0x51f4a750, 0x7e416553, 0x1a17a4c3, 0x3a275e96
914 .WORD 0x3bab6bcb, 0x1f9d45f1, 0xacfa58ab, 0x4be30393
915 .WORD 0x2030fa55, 0xad766df6, 0x88cc7691, 0xf5024c25
916 .WORD 0x4fe5d7fc, 0xc52acbd7, 0x26354480, 0xb562a38f
917 .WORD 0xdeb15a49, 0x25ba1b67, 0x45ea0e98, 0x5dfec0e1
918 .WORD 0xc32f7502, 0x814cf012, 0x8d4697a3, 0x6bd3f9c6
919 .WORD 0x038f5fe7, 0x15929c95, 0xbf6d7aeb, 0x955259da
920 .WORD 0xd4be832d, 0x587421d3, 0x49e06929, 0x8ec9c844
921 .WORD 0x75c2896a, 0xf48e7978, 0x99583e6b, 0x27b971dd
922 .WORD 0xbee14fb6, 0xf088ad17, 0xc920ac66, 0x7dce3ab4
923 .WORD 0x63df4a18, 0xe51a3182, 0x97513360, 0x62537f45
924 .WORD 0xb16477e0, 0xbb6bae84, 0xfe81a01c, 0xf9082b94
925 .WORD 0x70486858, 0x8f45fd19, 0x94de6c87, 0x527bf8b7
926 .WORD 0xab73d323, 0x724b02e2, 0xe31f8f57, 0x6655ab2a
927 .WORD 0xb2eb2807, 0x2fb5c203, 0x86c57b9a, 0xd33708a5
928 .WORD 0x302887f2, 0x23bfa5b2, 0x02036aba, 0xed16825c
929 .WORD 0x8acf1c2b, 0xa779b492, 0xf307f2f0, 0x4e69e2a1
930 .WORD 0x65daf4cd, 0x0605bed5, 0xd134621f, 0xc4a6fe8a
931 .WORD 0x342e539d, 0xa2f355a0, 0x058ae132, 0xa4f6eb75
932 .WORD 0x0b83ec39, 0x4060efaa, 0x5e719f06, 0xbd6e1051
933 .WORD 0x3e218af9, 0x96dd063d, 0xdd3e05ae, 0x4de6bd46
934 .WORD 0x91548db5, 0x71c45d05, 0x0406d46f, 0x605015ff
935 .WORD 0x1998fb24, 0xd6bde997, 0x894043cc, 0x67d99e77
936 .WORD 0xb0e842bd, 0x07898b88, 0xe7195b38, 0x79c8eedb
937 .WORD 0xa17c0a47, 0x7c420fe9, 0xf8841ec9, 0x00000000
938 .WORD 0x09808683, 0x322bed48, 0x1e1170ac, 0x6c5a724e
939 .WORD 0xfd0efffb, 0x0f853856, 0x3daed51e, 0x362d3927
940 .WORD 0x0a0fd964, 0x685ca621, 0x9b5b54d1, 0x24362e3a
941 .WORD 0x0c0a67b1, 0x9357e70f, 0xb4ee96d2, 0x1b9b919e
942 .WORD 0x80c0c54f, 0x61dc20a2, 0x5a774b69, 0x1c121a16
943 .WORD 0xe293ba0a, 0xc0a02ae5, 0x3c22e043, 0x121b171d
944 .WORD 0x0e090d0b, 0xf28bc7ad, 0x2db6a8b9, 0x141ea9c8
945 .WORD 0x57f11985, 0xaf75074c, 0xee99ddbb, 0xa37f60fd
946 .WORD 0xf701269f, 0x5c72f5bc, 0x44663bc5, 0x5bfb7e34
947 .WORD 0x8b432976, 0xcb23c6dc, 0xb6edfc68, 0xb8e4f163
948 .WORD 0xd731dcca, 0x42638510, 0x13972240, 0x84c61120
949 .WORD 0x854a247d, 0xd2bb3df8, 0xaef93211, 0xc729a16d
950 .WORD 0x1d9e2f4b, 0xdcb230f3, 0x0d8652ec, 0x77c1e3d0
951 .WORD 0x2bb3166c, 0xa970b999, 0x119448fa, 0x47e96422
952 .WORD 0xa8fc8cc4, 0xa0f03f1a, 0x567d2cd8, 0x223390ef
953 .WORD 0x87494ec7, 0xd938d1c1, 0x8ccaa2fe, 0x98d40b36
954 .WORD 0xa6f581cf, 0xa57ade28, 0xdab78e26, 0x3fadbfa4
955 .WORD 0x2c3a9de4, 0x5078920d, 0x6a5fcc9b, 0x547e4662
956 .WORD 0xf68d13c2, 0x90d8b8e8, 0x2e39f75e, 0x82c3aff5
957 .WORD 0x9f5d80be, 0x69d0937c, 0x6fd52da9, 0xcf2512b3
958 .WORD 0xc8ac993b, 0x10187da7, 0xe89c636e, 0xdb3bbb7b
959 .WORD 0xcd267809, 0x6e5918f4, 0xec9ab701, 0x834f9aa8
960 .WORD 0xe6956e65, 0xaaffe67e, 0x21bccf08, 0xef15e8e6
961 .WORD 0xbae79bd9, 0x4a6f36ce, 0xea9f09d4, 0x29b07cd6
962 .WORD 0x31a4b2af, 0x2a3f2331, 0xc6a59430, 0x35a266c0
963 .WORD 0x744ebc37, 0xfc82caa6, 0xe090d0b0, 0x33a7d815
964 .WORD 0xf104984a, 0x41ecdaf7, 0x7fcd500e, 0x1791f62f
965 .WORD 0x764dd68d, 0x43efb04d, 0xccaa4d54, 0xe49604df
966 .WORD 0x9ed1b5e3, 0x4c6a881b, 0xc12c1fb8, 0x4665517f
967 .WORD 0x9d5eea04, 0x018c355d, 0xfa877473, 0xfb0b412e
968 .WORD 0xb3671d5a, 0x92dbd252, 0xe9105633, 0x6dd64713
969 .WORD 0x9ad7618c, 0x37a10c7a, 0x59f8148e, 0xeb133c89
970 .WORD 0xcea927ee, 0xb761c935, 0xe11ce5ed, 0x7a47b13c
971 .WORD 0x9cd2df59, 0x55f2733f, 0x1814ce79, 0x73c737bf
972 .WORD 0x53f7cdea, 0x5ffdaa5b, 0xdf3d6f14, 0x7844db86
973 .WORD 0xcaaff381, 0xb968c43e, 0x3824342c, 0xc2a3405f
974 .WORD 0x161dc372, 0xbce2250c, 0x283c498b, 0xff0d9541
975 .WORD 0x39a80171, 0x080cb3de, 0xd8b4e49c, 0x6456c190
976 .WORD 0x7bcb8461, 0xd532b670, 0x486c5c74, 0xd0b85742
977 .BYTE 0x52, 0x09, 0x6a, 0xd5, 0x30, 0x36, 0xa5, 0x38
978 .BYTE 0xbf, 0x40, 0xa3, 0x9e, 0x81, 0xf3, 0xd7, 0xfb
979 .BYTE 0x7c, 0xe3, 0x39, 0x82, 0x9b, 0x2f, 0xff, 0x87
980 .BYTE 0x34, 0x8e, 0x43, 0x44, 0xc4, 0xde, 0xe9, 0xcb
981 .BYTE 0x54, 0x7b, 0x94, 0x32, 0xa6, 0xc2, 0x23, 0x3d
982 .BYTE 0xee, 0x4c, 0x95, 0x0b, 0x42, 0xfa, 0xc3, 0x4e
983 .BYTE 0x08, 0x2e, 0xa1, 0x66, 0x28, 0xd9, 0x24, 0xb2
984 .BYTE 0x76, 0x5b, 0xa2, 0x49, 0x6d, 0x8b, 0xd1, 0x25
985 .BYTE 0x72, 0xf8, 0xf6, 0x64, 0x86, 0x68, 0x98, 0x16
986 .BYTE 0xd4, 0xa4, 0x5c, 0xcc, 0x5d, 0x65, 0xb6, 0x92
987 .BYTE 0x6c, 0x70, 0x48, 0x50, 0xfd, 0xed, 0xb9, 0xda
988 .BYTE 0x5e, 0x15, 0x46, 0x57, 0xa7, 0x8d, 0x9d, 0x84
989 .BYTE 0x90, 0xd8, 0xab, 0x00, 0x8c, 0xbc, 0xd3, 0x0a
990 .BYTE 0xf7, 0xe4, 0x58, 0x05, 0xb8, 0xb3, 0x45, 0x06
991 .BYTE 0xd0, 0x2c, 0x1e, 0x8f, 0xca, 0x3f, 0x0f, 0x02
992 .BYTE 0xc1, 0xaf, 0xbd, 0x03, 0x01, 0x13, 0x8a, 0x6b
993 .BYTE 0x3a, 0x91, 0x11, 0x41, 0x4f, 0x67, 0xdc, 0xea
994 .BYTE 0x97, 0xf2, 0xcf, 0xce, 0xf0, 0xb4, 0xe6, 0x73
995 .BYTE 0x96, 0xac, 0x74, 0x22, 0xe7, 0xad, 0x35, 0x85
996 .BYTE 0xe2, 0xf9, 0x37, 0xe8, 0x1c, 0x75, 0xdf, 0x6e
997 .BYTE 0x47, 0xf1, 0x1a, 0x71, 0x1d, 0x29, 0xc5, 0x89
998 .BYTE 0x6f, 0xb7, 0x62, 0x0e, 0xaa, 0x18, 0xbe, 0x1b
999 .BYTE 0xfc, 0x56, 0x3e, 0x4b, 0xc6, 0xd2, 0x79, 0x20
1000 .BYTE 0x9a, 0xdb, 0xc0, 0xfe, 0x78, 0xcd, 0x5a, 0xf4
1001 .BYTE 0x1f, 0xdd, 0xa8, 0x33, 0x88, 0x07, 0xc7, 0x31
1002 .BYTE 0xb1, 0x12, 0x10, 0x59, 0x27, 0x80, 0xec, 0x5f
1003 .BYTE 0x60, 0x51, 0x7f, 0xa9, 0x19, 0xb5, 0x4a, 0x0d
1004 .BYTE 0x2d, 0xe5, 0x7a, 0x9f, 0x93, 0xc9, 0x9c, 0xef
1005 .BYTE 0xa0, 0xe0, 0x3b, 0x4d, 0xae, 0x2a, 0xf5, 0xb0
1006 .BYTE 0xc8, 0xeb, 0xbb, 0x3c, 0x83, 0x53, 0x99, 0x61
1007 .BYTE 0x17, 0x2b, 0x04, 0x7e, 0xba, 0x77, 0xd6, 0x26
1008 .BYTE 0xe1, 0x69, 0x14, 0x63, 0x55, 0x21, 0x0c, 0x7d
1009
1010 .data
1011 .STRINGZ "AES for PA-RISC, CRYPTOGAMS by <appro\@openssl.org>"
1012___
1013
1014foreach (split("\n",$code)) {
1015 s/\`([^\`]*)\`/eval $1/ge;
1016
1017 # translate made up instructons: _ror, _srm
1018 s/_ror(\s+)(%r[0-9]+),/shd$1$2,$2,/ or
1019
1020 s/_srm(\s+%r[0-9]+),([0-9]+),/
1021 $SIZE_T==4 ? sprintf("extru%s,%d,8,",$1,31-$2)
1022 : sprintf("extrd,u%s,%d,8,",$1,63-$2)/e;
1023
1024 s/,\*/,/ if ($SIZE_T==4);
1025 s/\bbv\b(.*\(%r2\))/bve$1/ if ($SIZE_T==8);
1026 print $_,"\n";
1027}
1028close STDOUT;
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2025-08-04 13:17:59 +0000