crypto/aes/asm/aes-parisc.pl

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