Fix compilation on sparc
[openssl.git] / crypto / des / asm / des_enc.m4
index f5b1928f99c4ce6f646cf21be53a7a6e3bb49aee..9a17fac6439f4cbd692a81f0ece4ed32d3434dec 100644 (file)
@@ -1,26 +1,9 @@
-!  des_enc.m4
-!  des_enc.S  (generated from des_enc.m4)
+! Copyright 2000-2018 The OpenSSL Project Authors. All Rights Reserved.
 !
-!  UltraSPARC assembler version of the LibDES/SSLeay/OpenSSL des_enc.c file.
-!
-!  Version 1.0. 32-bit version.
-!
-!  June 8, 2000.
-!
-!  Version 2.0. 32/64-bit, PIC-ification, blended CPU adaptation
-!              by Andy Polyakov.
-!
-!  January 1, 2003.
-!
-!  Assembler version: Copyright Svend Olaf Mikkelsen.
-!
-!  Original C code: Copyright Eric A. Young.
-!
-!  This code can be freely used by LibDES/SSLeay/OpenSSL users.
-!
-!  The LibDES/SSLeay/OpenSSL copyright notices must be respected.
-!
-!  This version can be redistributed.
+! Licensed under the Apache License 2.0 (the "License").  You may not use
+! this file except in compliance with the License.  You can obtain a copy
+! in the file LICENSE in the source distribution or at
+! https://www.openssl.org/source/license.html
 !
 !  To expand the m4 macros: m4 -B 8192 des_enc.m4 > des_enc.S
 !
@@ -44,6 +27,7 @@
 !
 
 .ident "des_enc.m4 2.1"
+.file  "des_enc-sparc.S"
 
 #if defined(__SUNPRO_C) && defined(__sparcv9)
 # define ABI64  /* They've said -xarch=v9 at command line */
@@ -60,9 +44,6 @@
 # define       STPTR   stx
 # define       ARG0    128
 # define       ARGSZ   8
-# ifndef OPENSSL_SYSNAME_ULTRASPARC
-# define OPENSSL_SYSNAME_ULTRASPARC
-# endif
 #else
 # define       FRAME   -96
 # define       BIAS    0
@@ -129,7 +110,7 @@ changequote({,})
 !
 ! Loads key first round from address in parameter 5 to out0, out1.
 !
-! After the the original LibDES initial permutation, the resulting left
+! After the original LibDES initial permutation, the resulting left
 ! is in the variable initially used for right and vice versa. The macro
 ! implements the possibility to keep the halfs in the original registers.
 !
@@ -265,7 +246,7 @@ define(ip_macro, {
 ! other half (use).
 !
 ! In this version we do two rounds in a loop repeated 7 times
-! and two rounds seperately.
+! and two rounds separately.
 !
 ! One half has the bits for the sboxes in the following positions:
 !
@@ -315,16 +296,16 @@ $4:
        ld      [global1+local1], local1
        xor     $2, out1, out1            ! 8642
        xor     $2, out0, out0            ! 7531
-       fmovs   %f0, %f0                  ! fxor used for alignment
+       ! fmovs %f0, %f0                  ! fxor used for alignment
 
        srl     out1, 4, local0           ! rotate 4 right
        and     out0, local5, local3      ! 3
-       fmovs   %f0, %f0
+       ! fmovs %f0, %f0
 
        ld      [$5+$3*8], local7         ! key 7531 next round
        srl     local3, 8, local3         ! 3
        and     local0, 252, local2       ! 2
-       fmovs   %f0, %f0
+       ! fmovs %f0, %f0
 
        ld      [global3+local3],local3   ! 3
        sll     out1, 28, out1            ! rotate
@@ -422,11 +403,7 @@ $4:
        xor     $2, local1, $2            ! 1 finished
 
        xor     $2, local2, $2            ! 3 finished
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bne,pt  %icc, $4
-#else
        bne     $4
-#endif
        and     local4, 252, local1       ! sbox 1 next round
 
 ! two rounds more:
@@ -549,8 +526,8 @@ $4:
 !  parameter 3   1 for optional store to [in0]
 !  parameter 4   1 for load input/output address to local5/7
 !
-!  The final permutation logic switches the halfes, meaning that
-!  left and right ends up the the registers originally used.
+!  The final permutation logic switches the halves, meaning that
+!  left and right ends up the registers originally used.
 
 define(fp_macro, {
 
@@ -752,7 +729,7 @@ define(fp_ip_macro, {
        sll     $4, 3, local2
        xor     local4, temp2, $2
 
-       ! reload since used as temporar:
+       ! reload since used as temporary:
 
        ld      [out2+280], out4          ! loop counter
 
@@ -774,7 +751,7 @@ define(fp_ip_macro, {
 ! parameter 1  address
 ! parameter 2  destination left
 ! parameter 3  destination right
-! parameter 4  temporar
+! parameter 4  temporary
 ! parameter 5  label
 
 define(load_little_endian, {
@@ -784,18 +761,6 @@ define(load_little_endian, {
 
        ! first in memory to rightmost in register
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       andcc   $1, 3, global0
-       bne,pn  %icc, $5
-       nop
-
-       lda     [$1] 0x88, $2
-       add     $1, 4, $4
-
-       ba,pt   %icc, $5a
-       lda     [$4] 0x88, $3
-#endif
-
 $5:
        ldub    [$1+3], $2
 
@@ -835,7 +800,7 @@ $5a:
 ! parameter 1  address
 ! parameter 2  destination left
 ! parameter 3  destination right
-! parameter 4  temporar
+! parameter 4  temporary
 ! parameter 4  label
 !
 ! adds 8 to address
@@ -847,19 +812,6 @@ define(load_little_endian_inc, {
 
        ! first in memory to rightmost in register
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       andcc   $1, 3, global0
-       bne,pn  %icc, $5
-       nop
-
-       lda     [$1] 0x88, $2
-       add     $1, 4, $1
-
-       lda     [$1] 0x88, $3
-       ba,pt   %icc, $5a
-       add     $1, 4, $1
-#endif
-
 $5:
        ldub    [$1+3], $2
 
@@ -973,7 +925,7 @@ $7.jmp.table:
 ! parameter 1  address
 ! parameter 2  source left
 ! parameter 3  source right
-! parameter 4  temporar
+! parameter 4  temporary
 
 define(store_little_endian, {
 
@@ -982,18 +934,6 @@ define(store_little_endian, {
 
        ! rightmost in register to first in memory
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       andcc   $1, 3, global0
-       bne,pn  %icc, $5
-       nop
-
-       sta     $2, [$1] 0x88
-       add     $1, 4, $4
-
-       ba,pt   %icc, $5a
-       sta     $3, [$4] 0x88
-#endif
-
 $5:
        and     $2, 255, $4
        stub    $4, [$1+0]
@@ -1179,17 +1119,16 @@ DES_encrypt1:
 
        save    %sp, FRAME, %sp
 
-       call    .PIC.me.up
-       mov     .PIC.me.up-(.-4),out0
+       sethi   %hi(.PIC.DES_SPtrans-1f),global1
+       or      global1,%lo(.PIC.DES_SPtrans-1f),global1
+1:     call    .+8
+       add     %o7,global1,global1
+       sub     global1,.PIC.DES_SPtrans-.des_and,out2
 
        ld      [in0], in5                ! left
        cmp     in2, 0                    ! enc
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       be,pn   %icc, .encrypt.dec        ! enc/dec
-#else
        be      .encrypt.dec
-#endif
        ld      [in0+4], out5             ! right
 
        ! parameter 6  1/2 for include encryption/decryption
@@ -1237,8 +1176,11 @@ DES_encrypt2:
 
        save    %sp, FRAME, %sp
 
-       call    .PIC.me.up
-       mov     .PIC.me.up-(.-4),out0
+       sethi   %hi(.PIC.DES_SPtrans-1f),global1
+       or      global1,%lo(.PIC.DES_SPtrans-1f),global1
+1:     call    .+8
+       add     %o7,global1,global1
+       sub     global1,.PIC.DES_SPtrans-.des_and,out2
 
        ! Set sbox address 1 to 6 and rotate halfs 3 left
        ! Errors caught by destest? Yes. Still? *NO*
@@ -1274,11 +1216,7 @@ DES_encrypt2:
 
        ! we use our own stackframe
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       be,pn   %icc, .encrypt2.dec       ! decryption
-#else
        be      .encrypt2.dec
-#endif
        STPTR   in0, [%sp+BIAS+ARG0+0*ARGSZ]
 
        ld      [in3], out0               ! key 7531 first round
@@ -1352,8 +1290,11 @@ DES_encrypt3:
 
        save    %sp, FRAME, %sp
        
-       call    .PIC.me.up
-       mov     .PIC.me.up-(.-4),out0
+       sethi   %hi(.PIC.DES_SPtrans-1f),global1
+       or      global1,%lo(.PIC.DES_SPtrans-1f),global1
+1:     call    .+8
+       add     %o7,global1,global1
+       sub     global1,.PIC.DES_SPtrans-.des_and,out2
 
        ld      [in0], in5                ! left
        add     in2, 120, in4             ! ks2
@@ -1394,8 +1335,11 @@ DES_decrypt3:
 
        save    %sp, FRAME, %sp
        
-       call    .PIC.me.up
-       mov     .PIC.me.up-(.-4),out0
+       sethi   %hi(.PIC.DES_SPtrans-1f),global1
+       or      global1,%lo(.PIC.DES_SPtrans-1f),global1
+1:     call    .+8
+       add     %o7,global1,global1
+       sub     global1,.PIC.DES_SPtrans-.des_and,out2
 
        ld      [in0], in5                ! left
        add     in3, 120, in4             ! ks3
@@ -1424,105 +1368,6 @@ DES_decrypt3:
 .DES_decrypt3.end:
        .size    DES_decrypt3,.DES_decrypt3.end-DES_decrypt3
 
-       .align  256
-       .type    .des_and,#object
-       .size    .des_and,284
-
-.des_and:
-
-! This table is used for AND 0xFC when it is known that register
-! bits 8-31 are zero. Makes it possible to do three arithmetic
-! operations in one cycle.
-
-       .byte  0, 0, 0, 0, 4, 4, 4, 4
-       .byte  8, 8, 8, 8, 12, 12, 12, 12
-       .byte  16, 16, 16, 16, 20, 20, 20, 20
-       .byte  24, 24, 24, 24, 28, 28, 28, 28
-       .byte  32, 32, 32, 32, 36, 36, 36, 36
-       .byte  40, 40, 40, 40, 44, 44, 44, 44
-       .byte  48, 48, 48, 48, 52, 52, 52, 52
-       .byte  56, 56, 56, 56, 60, 60, 60, 60
-       .byte  64, 64, 64, 64, 68, 68, 68, 68
-       .byte  72, 72, 72, 72, 76, 76, 76, 76
-       .byte  80, 80, 80, 80, 84, 84, 84, 84
-       .byte  88, 88, 88, 88, 92, 92, 92, 92
-       .byte  96, 96, 96, 96, 100, 100, 100, 100
-       .byte  104, 104, 104, 104, 108, 108, 108, 108
-       .byte  112, 112, 112, 112, 116, 116, 116, 116
-       .byte  120, 120, 120, 120, 124, 124, 124, 124
-       .byte  128, 128, 128, 128, 132, 132, 132, 132
-       .byte  136, 136, 136, 136, 140, 140, 140, 140
-       .byte  144, 144, 144, 144, 148, 148, 148, 148
-       .byte  152, 152, 152, 152, 156, 156, 156, 156
-       .byte  160, 160, 160, 160, 164, 164, 164, 164
-       .byte  168, 168, 168, 168, 172, 172, 172, 172
-       .byte  176, 176, 176, 176, 180, 180, 180, 180
-       .byte  184, 184, 184, 184, 188, 188, 188, 188
-       .byte  192, 192, 192, 192, 196, 196, 196, 196
-       .byte  200, 200, 200, 200, 204, 204, 204, 204
-       .byte  208, 208, 208, 208, 212, 212, 212, 212
-       .byte  216, 216, 216, 216, 220, 220, 220, 220
-       .byte  224, 224, 224, 224, 228, 228, 228, 228
-       .byte  232, 232, 232, 232, 236, 236, 236, 236
-       .byte  240, 240, 240, 240, 244, 244, 244, 244
-       .byte  248, 248, 248, 248, 252, 252, 252, 252
-
-       ! 5 numbers for initil/final permutation
-
-       .word   0x0f0f0f0f                ! offset 256
-       .word   0x0000ffff                ! 260
-       .word   0x33333333                ! 264
-       .word   0x00ff00ff                ! 268
-       .word   0x55555555                ! 272
-
-       .word   0                         ! 276
-       .word   LOOPS                     ! 280
-       .word   0x0000FC00                ! 284
-.PIC.DES_SPtrans:
-       .word   %r_disp32(DES_SPtrans)
-
-! input:       out0    offset between .PIC.me.up and caller
-! output:      out0    pointer to .PIC.me.up
-!              out2    pointer to .des_and
-!              global1 pointer to DES_SPtrans
-       .align  32
-.PIC.me.up:
-       add     out0,%o7,out0                   ! pointer to .PIC.me.up
-#if 1
-       ld      [out0+(.PIC.DES_SPtrans-.PIC.me.up)],global1
-       add     global1,(.PIC.DES_SPtrans-.PIC.me.up),global1
-       add     global1,out0,global1
-#else
-# ifdef OPENSSL_PIC
-       ! In case anybody wonders why this code is same for both ABI.
-       ! To start with it is not. Do note LDPTR below. But of course
-       ! you must be wondering why the rest of it does not contain
-       ! things like %hh, %hm and %lm. Well, those are needed only
-       ! if OpenSSL library *itself* will become larger than 4GB,
-       ! which is not going to happen any time soon. 
-       sethi   %hi(DES_SPtrans),global1
-       or      global1,%lo(DES_SPtrans),global1
-       sethi   %hi(_GLOBAL_OFFSET_TABLE_-(.PIC.me.up-.)),out2
-       add     global1,out0,global1
-       add     out2,%lo(_GLOBAL_OFFSET_TABLE_-(.PIC.me.up-.)),out2
-       LDPTR   [out2+global1],global1
-# elif 0
-       setn    DES_SPtrans,out2,global1        ! synthetic instruction !
-# elif defined(ABI64)
-       sethi   %hh(DES_SPtrans),out2
-       or      out2,%hm(DES_SPtrans),out2
-       sethi   %lm(DES_SPtrans),global1
-       or      global1,%lo(DES_SPtrans),global1
-       sllx    out2,32,out2
-       or      out2,global1,global1
-# else
-       sethi   %hi(DES_SPtrans),global1
-       or      global1,%lo(DES_SPtrans),global1
-# endif
-#endif
-       retl
-       add     out0,.des_and-.PIC.me.up,out2
-
 ! void DES_ncbc_encrypt(input, output, length, schedule, ivec, enc)
 ! *****************************************************************
 
@@ -1539,16 +1384,15 @@ DES_ncbc_encrypt:
        define({OUTPUT}, { [%sp+BIAS+ARG0+1*ARGSZ] })
        define({IVEC},   { [%sp+BIAS+ARG0+4*ARGSZ] })
 
-       call    .PIC.me.up
-       mov     .PIC.me.up-(.-4),out0
+       sethi   %hi(.PIC.DES_SPtrans-1f),global1
+       or      global1,%lo(.PIC.DES_SPtrans-1f),global1
+1:     call    .+8
+       add     %o7,global1,global1
+       sub     global1,.PIC.DES_SPtrans-.des_and,out2
 
        cmp     in5, 0                    ! enc   
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       be,pn   %icc, .ncbc.dec
-#else
        be      .ncbc.dec
-#endif
        STPTR   in4, IVEC
 
        ! addr  left  right  temp  label
@@ -1556,11 +1400,7 @@ DES_ncbc_encrypt:
 
        addcc   in2, -8, in2              ! bytes missing when first block done
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bl,pn   %icc, .ncbc.enc.seven.or.less
-#else
        bl      .ncbc.enc.seven.or.less
-#endif
        mov     in3, in4                  ! schedule
 
 .ncbc.enc.next.block:
@@ -1584,11 +1424,7 @@ DES_ncbc_encrypt:
 
        rounds_macro(in5, out5, 1, .ncbc.enc.1, in3, in4) ! include encryption  ks in3
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bl,pn   %icc, .ncbc.enc.next.block_fp
-#else
        bl      .ncbc.enc.next.block_fp
-#endif
        add     in0, 8, in0               ! input address
 
        ! If 8 or more bytes are to be encrypted after this block,
@@ -1619,7 +1455,7 @@ DES_ncbc_encrypt:
        xor     global4, local1, out5     ! iv xor next block
 
        ba      .ncbc.enc.next.block_2
-       add     in1, 8, in1               ! output adress
+       add     in1, 8, in1               ! output address
 
 .ncbc.enc.next.block_fp:
 
@@ -1629,22 +1465,14 @@ DES_ncbc_encrypt:
 
        addcc   in2, -8, in2              ! bytes missing when next block done
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bpos,pt %icc, .ncbc.enc.next.block  ! also jumps if 0
-#else
        bpos    .ncbc.enc.next.block
-#endif
        add     in1, 8, in1
 
 .ncbc.enc.seven.or.less:
 
        cmp     in2, -8
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       ble,pt  %icc, .ncbc.enc.finish
-#else
        ble     .ncbc.enc.finish
-#endif
        nop
 
        add     in2, 8, local1            ! bytes to load
@@ -1671,11 +1499,7 @@ DES_ncbc_encrypt:
        add     in3, 120, in3
 
        LDPTR   IVEC, local7              ! ivec
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       ble,pn  %icc, .ncbc.dec.finish
-#else
        ble     .ncbc.dec.finish
-#endif
        mov     in3, in4                  ! schedule
 
        STPTR   in1, OUTPUT
@@ -1691,7 +1515,7 @@ DES_ncbc_encrypt:
        ! parameter 7  1 for mov in1 to in3
        ! parameter 8  1 for mov in3 to in4
 
-       ip_macro(in5, out5, out5, in5, in4, 2, 0, 1) ! include decryprion  ks in4
+       ip_macro(in5, out5, out5, in5, in4, 2, 0, 1) ! include decryption  ks in4
 
        fp_macro(out5, in5, 0, 1) ! 1 for input and output address to local5/7
 
@@ -1699,11 +1523,7 @@ DES_ncbc_encrypt:
        ! in2 is compared to 8 in the rounds
 
        xor     out5, in0, out4           ! iv xor
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bl,pn   %icc, .ncbc.dec.seven.or.less
-#else
        bl      .ncbc.dec.seven.or.less
-#endif
        xor     in5, in1, global4         ! iv xor
 
        ! Load ivec next block now, since input and output address might be the same.
@@ -1716,11 +1536,7 @@ DES_ncbc_encrypt:
        add     local7, 8, local7
        addcc   in2, -8, in2
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bg,pt   %icc, .ncbc.dec.next.block
-#else
        bg      .ncbc.dec.next.block
-#endif
        STPTR   local7, OUTPUT
 
 
@@ -1745,7 +1561,7 @@ DES_ncbc_encrypt:
        .size    DES_ncbc_encrypt, .DES_ncbc_encrypt.end-DES_ncbc_encrypt
 
 
-! void DES_ede3_cbc_encrypt(input, output, lenght, ks1, ks2, ks3, ivec, enc)
+! void DES_ede3_cbc_encrypt(input, output, length, ks1, ks2, ks3, ivec, enc)
 ! **************************************************************************
 
 
@@ -1761,18 +1577,17 @@ DES_ede3_cbc_encrypt:
        define({KS2}, { [%sp+BIAS+ARG0+4*ARGSZ] })
        define({KS3}, { [%sp+BIAS+ARG0+5*ARGSZ] })
 
-       call    .PIC.me.up
-       mov     .PIC.me.up-(.-4),out0
+       sethi   %hi(.PIC.DES_SPtrans-1f),global1
+       or      global1,%lo(.PIC.DES_SPtrans-1f),global1
+1:     call    .+8
+       add     %o7,global1,global1
+       sub     global1,.PIC.DES_SPtrans-.des_and,out2
 
        LDPTR   [%fp+BIAS+ARG0+7*ARGSZ], local3          ! enc
        LDPTR   [%fp+BIAS+ARG0+6*ARGSZ], local4          ! ivec
        cmp     local3, 0                 ! enc
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       be,pn   %icc, .ede3.dec
-#else
        be      .ede3.dec
-#endif
        STPTR   in4, KS2
 
        STPTR   in5, KS3
@@ -1781,11 +1596,7 @@ DES_ede3_cbc_encrypt:
 
        addcc   in2, -8, in2              ! bytes missing after next block
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bl,pn   %icc,  .ede3.enc.seven.or.less
-#else
        bl      .ede3.enc.seven.or.less
-#endif
        STPTR   in3, KS1
 
 .ede3.enc.next.block:
@@ -1815,11 +1626,7 @@ DES_ede3_cbc_encrypt:
        call .des_enc                     ! ks3 in3  compares in2 to 8
        nop
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bl,pn   %icc, .ede3.enc.next.block_fp
-#else
        bl      .ede3.enc.next.block_fp
-#endif
        add     in0, 8, in0
 
        ! If 8 or more bytes are to be encrypted after this block,
@@ -1861,22 +1668,14 @@ DES_ede3_cbc_encrypt:
 
        addcc   in2, -8, in2              ! bytes missing when next block done
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bpos,pt %icc, .ede3.enc.next.block
-#else
        bpos    .ede3.enc.next.block
-#endif
        add     in1, 8, in1
 
 .ede3.enc.seven.or.less:
 
        cmp     in2, -8
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       ble,pt  %icc, .ede3.enc.finish
-#else
        ble     .ede3.enc.finish
-#endif
        nop
 
        add     in2, 8, local1            ! bytes to load
@@ -1904,11 +1703,7 @@ DES_ede3_cbc_encrypt:
        STPTR   in3, KS1
        cmp     in2, 0
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       ble     %icc, .ede3.dec.finish
-#else
        ble     .ede3.dec.finish
-#endif
        STPTR   in5, KS3
 
        LDPTR   [%fp+BIAS+ARG0+6*ARGSZ], local7          ! iv
@@ -1937,11 +1732,7 @@ DES_ede3_cbc_encrypt:
        ! in2 is compared to 8 in the rounds
 
        xor     out5, in0, out4
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bl,pn   %icc, .ede3.dec.seven.or.less
-#else
        bl      .ede3.dec.seven.or.less
-#endif
        xor     in5, in1, global4
 
        load_little_endian_inc(local5, in0, in1, local3, .LLE10)   ! iv next block
@@ -1952,11 +1743,7 @@ DES_ede3_cbc_encrypt:
        addcc   in2, -8, in2
        add     local7, 8, local7
 
-#ifdef OPENSSL_SYSNAME_ULTRASPARC
-       bg,pt   %icc, .ede3.dec.next.block
-#else
        bg      .ede3.dec.next.block
-#endif
        STPTR   local7, OUTPUT
 
 .ede3.dec.store.iv:
@@ -1978,3 +1765,202 @@ DES_ede3_cbc_encrypt:
 
 .DES_ede3_cbc_encrypt.end:
        .size    DES_ede3_cbc_encrypt,.DES_ede3_cbc_encrypt.end-DES_ede3_cbc_encrypt
+
+       .align  256
+       .type    .des_and,#object
+       .size    .des_and,284
+
+.des_and:
+
+! This table is used for AND 0xFC when it is known that register
+! bits 8-31 are zero. Makes it possible to do three arithmetic
+! operations in one cycle.
+
+       .byte  0, 0, 0, 0, 4, 4, 4, 4
+       .byte  8, 8, 8, 8, 12, 12, 12, 12
+       .byte  16, 16, 16, 16, 20, 20, 20, 20
+       .byte  24, 24, 24, 24, 28, 28, 28, 28
+       .byte  32, 32, 32, 32, 36, 36, 36, 36
+       .byte  40, 40, 40, 40, 44, 44, 44, 44
+       .byte  48, 48, 48, 48, 52, 52, 52, 52
+       .byte  56, 56, 56, 56, 60, 60, 60, 60
+       .byte  64, 64, 64, 64, 68, 68, 68, 68
+       .byte  72, 72, 72, 72, 76, 76, 76, 76
+       .byte  80, 80, 80, 80, 84, 84, 84, 84
+       .byte  88, 88, 88, 88, 92, 92, 92, 92
+       .byte  96, 96, 96, 96, 100, 100, 100, 100
+       .byte  104, 104, 104, 104, 108, 108, 108, 108
+       .byte  112, 112, 112, 112, 116, 116, 116, 116
+       .byte  120, 120, 120, 120, 124, 124, 124, 124
+       .byte  128, 128, 128, 128, 132, 132, 132, 132
+       .byte  136, 136, 136, 136, 140, 140, 140, 140
+       .byte  144, 144, 144, 144, 148, 148, 148, 148
+       .byte  152, 152, 152, 152, 156, 156, 156, 156
+       .byte  160, 160, 160, 160, 164, 164, 164, 164
+       .byte  168, 168, 168, 168, 172, 172, 172, 172
+       .byte  176, 176, 176, 176, 180, 180, 180, 180
+       .byte  184, 184, 184, 184, 188, 188, 188, 188
+       .byte  192, 192, 192, 192, 196, 196, 196, 196
+       .byte  200, 200, 200, 200, 204, 204, 204, 204
+       .byte  208, 208, 208, 208, 212, 212, 212, 212
+       .byte  216, 216, 216, 216, 220, 220, 220, 220
+       .byte  224, 224, 224, 224, 228, 228, 228, 228
+       .byte  232, 232, 232, 232, 236, 236, 236, 236
+       .byte  240, 240, 240, 240, 244, 244, 244, 244
+       .byte  248, 248, 248, 248, 252, 252, 252, 252
+
+       ! 5 numbers for initial/final permutation
+
+       .word   0x0f0f0f0f                ! offset 256
+       .word   0x0000ffff                ! 260
+       .word   0x33333333                ! 264
+       .word   0x00ff00ff                ! 268
+       .word   0x55555555                ! 272
+
+       .word   0                         ! 276
+       .word   LOOPS                     ! 280
+       .word   0x0000FC00                ! 284
+
+       .global DES_SPtrans
+       .type   DES_SPtrans,#object
+       .size   DES_SPtrans,2048
+.align 64
+DES_SPtrans:
+.PIC.DES_SPtrans:
+       ! nibble 0
+       .word   0x02080800, 0x00080000, 0x02000002, 0x02080802
+       .word   0x02000000, 0x00080802, 0x00080002, 0x02000002
+       .word   0x00080802, 0x02080800, 0x02080000, 0x00000802
+       .word   0x02000802, 0x02000000, 0x00000000, 0x00080002
+       .word   0x00080000, 0x00000002, 0x02000800, 0x00080800
+       .word   0x02080802, 0x02080000, 0x00000802, 0x02000800
+       .word   0x00000002, 0x00000800, 0x00080800, 0x02080002
+       .word   0x00000800, 0x02000802, 0x02080002, 0x00000000
+       .word   0x00000000, 0x02080802, 0x02000800, 0x00080002
+       .word   0x02080800, 0x00080000, 0x00000802, 0x02000800
+       .word   0x02080002, 0x00000800, 0x00080800, 0x02000002
+       .word   0x00080802, 0x00000002, 0x02000002, 0x02080000
+       .word   0x02080802, 0x00080800, 0x02080000, 0x02000802
+       .word   0x02000000, 0x00000802, 0x00080002, 0x00000000
+       .word   0x00080000, 0x02000000, 0x02000802, 0x02080800
+       .word   0x00000002, 0x02080002, 0x00000800, 0x00080802
+       ! nibble 1
+       .word   0x40108010, 0x00000000, 0x00108000, 0x40100000
+       .word   0x40000010, 0x00008010, 0x40008000, 0x00108000
+       .word   0x00008000, 0x40100010, 0x00000010, 0x40008000
+       .word   0x00100010, 0x40108000, 0x40100000, 0x00000010
+       .word   0x00100000, 0x40008010, 0x40100010, 0x00008000
+       .word   0x00108010, 0x40000000, 0x00000000, 0x00100010
+       .word   0x40008010, 0x00108010, 0x40108000, 0x40000010
+       .word   0x40000000, 0x00100000, 0x00008010, 0x40108010
+       .word   0x00100010, 0x40108000, 0x40008000, 0x00108010
+       .word   0x40108010, 0x00100010, 0x40000010, 0x00000000
+       .word   0x40000000, 0x00008010, 0x00100000, 0x40100010
+       .word   0x00008000, 0x40000000, 0x00108010, 0x40008010
+       .word   0x40108000, 0x00008000, 0x00000000, 0x40000010
+       .word   0x00000010, 0x40108010, 0x00108000, 0x40100000
+       .word   0x40100010, 0x00100000, 0x00008010, 0x40008000
+       .word   0x40008010, 0x00000010, 0x40100000, 0x00108000
+       ! nibble 2
+       .word   0x04000001, 0x04040100, 0x00000100, 0x04000101
+       .word   0x00040001, 0x04000000, 0x04000101, 0x00040100
+       .word   0x04000100, 0x00040000, 0x04040000, 0x00000001
+       .word   0x04040101, 0x00000101, 0x00000001, 0x04040001
+       .word   0x00000000, 0x00040001, 0x04040100, 0x00000100
+       .word   0x00000101, 0x04040101, 0x00040000, 0x04000001
+       .word   0x04040001, 0x04000100, 0x00040101, 0x04040000
+       .word   0x00040100, 0x00000000, 0x04000000, 0x00040101
+       .word   0x04040100, 0x00000100, 0x00000001, 0x00040000
+       .word   0x00000101, 0x00040001, 0x04040000, 0x04000101
+       .word   0x00000000, 0x04040100, 0x00040100, 0x04040001
+       .word   0x00040001, 0x04000000, 0x04040101, 0x00000001
+       .word   0x00040101, 0x04000001, 0x04000000, 0x04040101
+       .word   0x00040000, 0x04000100, 0x04000101, 0x00040100
+       .word   0x04000100, 0x00000000, 0x04040001, 0x00000101
+       .word   0x04000001, 0x00040101, 0x00000100, 0x04040000
+       ! nibble 3
+       .word   0x00401008, 0x10001000, 0x00000008, 0x10401008
+       .word   0x00000000, 0x10400000, 0x10001008, 0x00400008
+       .word   0x10401000, 0x10000008, 0x10000000, 0x00001008
+       .word   0x10000008, 0x00401008, 0x00400000, 0x10000000
+       .word   0x10400008, 0x00401000, 0x00001000, 0x00000008
+       .word   0x00401000, 0x10001008, 0x10400000, 0x00001000
+       .word   0x00001008, 0x00000000, 0x00400008, 0x10401000
+       .word   0x10001000, 0x10400008, 0x10401008, 0x00400000
+       .word   0x10400008, 0x00001008, 0x00400000, 0x10000008
+       .word   0x00401000, 0x10001000, 0x00000008, 0x10400000
+       .word   0x10001008, 0x00000000, 0x00001000, 0x00400008
+       .word   0x00000000, 0x10400008, 0x10401000, 0x00001000
+       .word   0x10000000, 0x10401008, 0x00401008, 0x00400000
+       .word   0x10401008, 0x00000008, 0x10001000, 0x00401008
+       .word   0x00400008, 0x00401000, 0x10400000, 0x10001008
+       .word   0x00001008, 0x10000000, 0x10000008, 0x10401000
+       ! nibble 4
+       .word   0x08000000, 0x00010000, 0x00000400, 0x08010420
+       .word   0x08010020, 0x08000400, 0x00010420, 0x08010000
+       .word   0x00010000, 0x00000020, 0x08000020, 0x00010400
+       .word   0x08000420, 0x08010020, 0x08010400, 0x00000000
+       .word   0x00010400, 0x08000000, 0x00010020, 0x00000420
+       .word   0x08000400, 0x00010420, 0x00000000, 0x08000020
+       .word   0x00000020, 0x08000420, 0x08010420, 0x00010020
+       .word   0x08010000, 0x00000400, 0x00000420, 0x08010400
+       .word   0x08010400, 0x08000420, 0x00010020, 0x08010000
+       .word   0x00010000, 0x00000020, 0x08000020, 0x08000400
+       .word   0x08000000, 0x00010400, 0x08010420, 0x00000000
+       .word   0x00010420, 0x08000000, 0x00000400, 0x00010020
+       .word   0x08000420, 0x00000400, 0x00000000, 0x08010420
+       .word   0x08010020, 0x08010400, 0x00000420, 0x00010000
+       .word   0x00010400, 0x08010020, 0x08000400, 0x00000420
+       .word   0x00000020, 0x00010420, 0x08010000, 0x08000020
+       ! nibble 5
+       .word   0x80000040, 0x00200040, 0x00000000, 0x80202000
+       .word   0x00200040, 0x00002000, 0x80002040, 0x00200000
+       .word   0x00002040, 0x80202040, 0x00202000, 0x80000000
+       .word   0x80002000, 0x80000040, 0x80200000, 0x00202040
+       .word   0x00200000, 0x80002040, 0x80200040, 0x00000000
+       .word   0x00002000, 0x00000040, 0x80202000, 0x80200040
+       .word   0x80202040, 0x80200000, 0x80000000, 0x00002040
+       .word   0x00000040, 0x00202000, 0x00202040, 0x80002000
+       .word   0x00002040, 0x80000000, 0x80002000, 0x00202040
+       .word   0x80202000, 0x00200040, 0x00000000, 0x80002000
+       .word   0x80000000, 0x00002000, 0x80200040, 0x00200000
+       .word   0x00200040, 0x80202040, 0x00202000, 0x00000040
+       .word   0x80202040, 0x00202000, 0x00200000, 0x80002040
+       .word   0x80000040, 0x80200000, 0x00202040, 0x00000000
+       .word   0x00002000, 0x80000040, 0x80002040, 0x80202000
+       .word   0x80200000, 0x00002040, 0x00000040, 0x80200040
+       ! nibble 6
+       .word   0x00004000, 0x00000200, 0x01000200, 0x01000004
+       .word   0x01004204, 0x00004004, 0x00004200, 0x00000000
+       .word   0x01000000, 0x01000204, 0x00000204, 0x01004000
+       .word   0x00000004, 0x01004200, 0x01004000, 0x00000204
+       .word   0x01000204, 0x00004000, 0x00004004, 0x01004204
+       .word   0x00000000, 0x01000200, 0x01000004, 0x00004200
+       .word   0x01004004, 0x00004204, 0x01004200, 0x00000004
+       .word   0x00004204, 0x01004004, 0x00000200, 0x01000000
+       .word   0x00004204, 0x01004000, 0x01004004, 0x00000204
+       .word   0x00004000, 0x00000200, 0x01000000, 0x01004004
+       .word   0x01000204, 0x00004204, 0x00004200, 0x00000000
+       .word   0x00000200, 0x01000004, 0x00000004, 0x01000200
+       .word   0x00000000, 0x01000204, 0x01000200, 0x00004200
+       .word   0x00000204, 0x00004000, 0x01004204, 0x01000000
+       .word   0x01004200, 0x00000004, 0x00004004, 0x01004204
+       .word   0x01000004, 0x01004200, 0x01004000, 0x00004004
+       ! nibble 7
+       .word   0x20800080, 0x20820000, 0x00020080, 0x00000000
+       .word   0x20020000, 0x00800080, 0x20800000, 0x20820080
+       .word   0x00000080, 0x20000000, 0x00820000, 0x00020080
+       .word   0x00820080, 0x20020080, 0x20000080, 0x20800000
+       .word   0x00020000, 0x00820080, 0x00800080, 0x20020000
+       .word   0x20820080, 0x20000080, 0x00000000, 0x00820000
+       .word   0x20000000, 0x00800000, 0x20020080, 0x20800080
+       .word   0x00800000, 0x00020000, 0x20820000, 0x00000080
+       .word   0x00800000, 0x00020000, 0x20000080, 0x20820080
+       .word   0x00020080, 0x20000000, 0x00000000, 0x00820000
+       .word   0x20800080, 0x20020080, 0x20020000, 0x00800080
+       .word   0x20820000, 0x00000080, 0x00800080, 0x20020000
+       .word   0x20820080, 0x00800000, 0x20800000, 0x20000080
+       .word   0x00820000, 0x00020080, 0x20020080, 0x20800000
+       .word   0x00000080, 0x20820000, 0x00820080, 0x00000000
+       .word   0x20000000, 0x20800080, 0x00020000, 0x00820080
+