openssl/crypto/bn/asm/bn86unix.cpp
1998-12-21 10:56:39 +00:00

753 lines
13 KiB
C++

/* Run the C pre-processor over this file with one of the following defined
* ELF - elf object files,
* OUT - a.out object files,
* BSDI - BSDI style a.out object files
* SOL - Solaris style elf
*/
#define TYPE(a,b) .type a,b
#define SIZE(a,b) .size a,b
#if defined(OUT) || defined(BSDI)
#define bn_mul_add_words _bn_mul_add_words
#define bn_mul_words _bn_mul_words
#define bn_sqr_words _bn_sqr_words
#define bn_div64 _bn_div64
#define bn_add_words _bn_add_words
#endif
#ifdef OUT
#define OK 1
#define ALIGN 4
#endif
#ifdef BSDI
#define OK 1
#define ALIGN 4
#undef SIZE
#undef TYPE
#define SIZE(a,b)
#define TYPE(a,b)
#endif
#if defined(ELF) || defined(SOL)
#define OK 1
#define ALIGN 16
#endif
#ifndef OK
You need to define one of
ELF - elf systems - linux-elf, NetBSD and DG-UX
OUT - a.out systems - linux-a.out and FreeBSD
SOL - solaris systems, which are elf with strange comment lines
BSDI - a.out with a very primative version of as.
#endif
/* Let the Assembler begin :-) */
/* Don't even think of reading this code */
/* It was automatically generated by bn-586.pl */
/* Which is a perl program used to generate the x86 assember for */
/* any of elf, a.out, BSDI,Win32, or Solaris */
/* eric <eay@cryptsoft.com> */
.file "bn-586.s"
.version "01.01"
gcc2_compiled.:
.text
.align ALIGN
.globl bn_mul_add_words
TYPE(bn_mul_add_words,@function)
bn_mul_add_words:
pushl %ebp
pushl %ebx
pushl %esi
pushl %edi
xorl %esi, %esi
movl 20(%esp), %edi
movl 28(%esp), %ecx
movl 24(%esp), %ebx
andl $4294967288, %ecx
movl 32(%esp), %ebp
pushl %ecx
jz .L000maw_finish
.L001maw_loop:
movl %ecx, (%esp)
/* Round 0 */
movl (%ebx), %eax
mull %ebp
addl %esi, %eax
movl (%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, (%edi)
movl %edx, %esi
/* Round 4 */
movl 4(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 4(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 4(%edi)
movl %edx, %esi
/* Round 8 */
movl 8(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 8(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 8(%edi)
movl %edx, %esi
/* Round 12 */
movl 12(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 12(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 12(%edi)
movl %edx, %esi
/* Round 16 */
movl 16(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 16(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 16(%edi)
movl %edx, %esi
/* Round 20 */
movl 20(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 20(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 20(%edi)
movl %edx, %esi
/* Round 24 */
movl 24(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 24(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 24(%edi)
movl %edx, %esi
/* Round 28 */
movl 28(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 28(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 28(%edi)
movl %edx, %esi
movl (%esp), %ecx
addl $32, %ebx
addl $32, %edi
subl $8, %ecx
jnz .L001maw_loop
.L000maw_finish:
movl 32(%esp), %ecx
andl $7, %ecx
jnz .L002maw_finish2
jmp .L003maw_end
.align ALIGN
.L002maw_finish2:
/* Tail Round 0 */
movl (%ebx), %eax
mull %ebp
addl %esi, %eax
movl (%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
decl %ecx
movl %eax, (%edi)
movl %edx, %esi
jz .L003maw_end
/* Tail Round 1 */
movl 4(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 4(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
decl %ecx
movl %eax, 4(%edi)
movl %edx, %esi
jz .L003maw_end
/* Tail Round 2 */
movl 8(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 8(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
decl %ecx
movl %eax, 8(%edi)
movl %edx, %esi
jz .L003maw_end
/* Tail Round 3 */
movl 12(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 12(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
decl %ecx
movl %eax, 12(%edi)
movl %edx, %esi
jz .L003maw_end
/* Tail Round 4 */
movl 16(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 16(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
decl %ecx
movl %eax, 16(%edi)
movl %edx, %esi
jz .L003maw_end
/* Tail Round 5 */
movl 20(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 20(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
decl %ecx
movl %eax, 20(%edi)
movl %edx, %esi
jz .L003maw_end
/* Tail Round 6 */
movl 24(%ebx), %eax
mull %ebp
addl %esi, %eax
movl 24(%edi), %esi
adcl $0, %edx
addl %esi, %eax
adcl $0, %edx
movl %eax, 24(%edi)
movl %edx, %esi
.L003maw_end:
movl %esi, %eax
popl %ecx
popl %edi
popl %esi
popl %ebx
popl %ebp
ret
.bn_mul_add_words_end:
SIZE(bn_mul_add_words,.bn_mul_add_words_end-bn_mul_add_words)
.ident "bn_mul_add_words"
.text
.align ALIGN
.globl bn_mul_words
TYPE(bn_mul_words,@function)
bn_mul_words:
pushl %ebp
pushl %ebx
pushl %esi
pushl %edi
xorl %esi, %esi
movl 20(%esp), %edi
movl 24(%esp), %ebx
movl 28(%esp), %ebp
movl 32(%esp), %ecx
andl $4294967288, %ebp
jz .L004mw_finish
.L005mw_loop:
/* Round 0 */
movl (%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, (%edi)
movl %edx, %esi
/* Round 4 */
movl 4(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 4(%edi)
movl %edx, %esi
/* Round 8 */
movl 8(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 8(%edi)
movl %edx, %esi
/* Round 12 */
movl 12(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 12(%edi)
movl %edx, %esi
/* Round 16 */
movl 16(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 16(%edi)
movl %edx, %esi
/* Round 20 */
movl 20(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 20(%edi)
movl %edx, %esi
/* Round 24 */
movl 24(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 24(%edi)
movl %edx, %esi
/* Round 28 */
movl 28(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 28(%edi)
movl %edx, %esi
addl $32, %ebx
addl $32, %edi
subl $8, %ebp
jz .L004mw_finish
jmp .L005mw_loop
.L004mw_finish:
movl 28(%esp), %ebp
andl $7, %ebp
jnz .L006mw_finish2
jmp .L007mw_end
.align ALIGN
.L006mw_finish2:
/* Tail Round 0 */
movl (%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, (%edi)
movl %edx, %esi
decl %ebp
jz .L007mw_end
/* Tail Round 1 */
movl 4(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 4(%edi)
movl %edx, %esi
decl %ebp
jz .L007mw_end
/* Tail Round 2 */
movl 8(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 8(%edi)
movl %edx, %esi
decl %ebp
jz .L007mw_end
/* Tail Round 3 */
movl 12(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 12(%edi)
movl %edx, %esi
decl %ebp
jz .L007mw_end
/* Tail Round 4 */
movl 16(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 16(%edi)
movl %edx, %esi
decl %ebp
jz .L007mw_end
/* Tail Round 5 */
movl 20(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 20(%edi)
movl %edx, %esi
decl %ebp
jz .L007mw_end
/* Tail Round 6 */
movl 24(%ebx), %eax
mull %ecx
addl %esi, %eax
adcl $0, %edx
movl %eax, 24(%edi)
movl %edx, %esi
.L007mw_end:
movl %esi, %eax
popl %edi
popl %esi
popl %ebx
popl %ebp
ret
.bn_mul_words_end:
SIZE(bn_mul_words,.bn_mul_words_end-bn_mul_words)
.ident "bn_mul_words"
.text
.align ALIGN
.globl bn_sqr_words
TYPE(bn_sqr_words,@function)
bn_sqr_words:
pushl %ebp
pushl %ebx
pushl %esi
pushl %edi
movl 20(%esp), %esi
movl 24(%esp), %edi
movl 28(%esp), %ebx
andl $4294967288, %ebx
jz .L008sw_finish
.L009sw_loop:
/* Round 0 */
movl (%edi), %eax
mull %eax
movl %eax, (%esi)
movl %edx, 4(%esi)
/* Round 4 */
movl 4(%edi), %eax
mull %eax
movl %eax, 8(%esi)
movl %edx, 12(%esi)
/* Round 8 */
movl 8(%edi), %eax
mull %eax
movl %eax, 16(%esi)
movl %edx, 20(%esi)
/* Round 12 */
movl 12(%edi), %eax
mull %eax
movl %eax, 24(%esi)
movl %edx, 28(%esi)
/* Round 16 */
movl 16(%edi), %eax
mull %eax
movl %eax, 32(%esi)
movl %edx, 36(%esi)
/* Round 20 */
movl 20(%edi), %eax
mull %eax
movl %eax, 40(%esi)
movl %edx, 44(%esi)
/* Round 24 */
movl 24(%edi), %eax
mull %eax
movl %eax, 48(%esi)
movl %edx, 52(%esi)
/* Round 28 */
movl 28(%edi), %eax
mull %eax
movl %eax, 56(%esi)
movl %edx, 60(%esi)
addl $32, %edi
addl $64, %esi
subl $8, %ebx
jnz .L009sw_loop
.L008sw_finish:
movl 28(%esp), %ebx
andl $7, %ebx
jz .L010sw_end
/* Tail Round 0 */
movl (%edi), %eax
mull %eax
movl %eax, (%esi)
decl %ebx
movl %edx, 4(%esi)
jz .L010sw_end
/* Tail Round 1 */
movl 4(%edi), %eax
mull %eax
movl %eax, 8(%esi)
decl %ebx
movl %edx, 12(%esi)
jz .L010sw_end
/* Tail Round 2 */
movl 8(%edi), %eax
mull %eax
movl %eax, 16(%esi)
decl %ebx
movl %edx, 20(%esi)
jz .L010sw_end
/* Tail Round 3 */
movl 12(%edi), %eax
mull %eax
movl %eax, 24(%esi)
decl %ebx
movl %edx, 28(%esi)
jz .L010sw_end
/* Tail Round 4 */
movl 16(%edi), %eax
mull %eax
movl %eax, 32(%esi)
decl %ebx
movl %edx, 36(%esi)
jz .L010sw_end
/* Tail Round 5 */
movl 20(%edi), %eax
mull %eax
movl %eax, 40(%esi)
decl %ebx
movl %edx, 44(%esi)
jz .L010sw_end
/* Tail Round 6 */
movl 24(%edi), %eax
mull %eax
movl %eax, 48(%esi)
movl %edx, 52(%esi)
.L010sw_end:
popl %edi
popl %esi
popl %ebx
popl %ebp
ret
.bn_sqr_words_end:
SIZE(bn_sqr_words,.bn_sqr_words_end-bn_sqr_words)
.ident "bn_sqr_words"
.text
.align ALIGN
.globl bn_div64
TYPE(bn_div64,@function)
bn_div64:
pushl %ebp
pushl %ebx
pushl %esi
pushl %edi
movl 20(%esp), %edx
movl 24(%esp), %eax
movl 28(%esp), %ebx
divl %ebx
popl %edi
popl %esi
popl %ebx
popl %ebp
ret
.bn_div64_end:
SIZE(bn_div64,.bn_div64_end-bn_div64)
.ident "bn_div64"
.text
.align ALIGN
.globl bn_add_words
TYPE(bn_add_words,@function)
bn_add_words:
pushl %ebp
pushl %ebx
pushl %esi
pushl %edi
movl 20(%esp), %ebx
movl 24(%esp), %esi
movl 28(%esp), %edi
movl 32(%esp), %ebp
xorl %eax, %eax
andl $4294967288, %ebp
jz .L011aw_finish
.L012aw_loop:
/* Round 0 */
movl (%esi), %ecx
movl (%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, (%ebx)
/* Round 1 */
movl 4(%esi), %ecx
movl 4(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 4(%ebx)
/* Round 2 */
movl 8(%esi), %ecx
movl 8(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 8(%ebx)
/* Round 3 */
movl 12(%esi), %ecx
movl 12(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 12(%ebx)
/* Round 4 */
movl 16(%esi), %ecx
movl 16(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 16(%ebx)
/* Round 5 */
movl 20(%esi), %ecx
movl 20(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 20(%ebx)
/* Round 6 */
movl 24(%esi), %ecx
movl 24(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 24(%ebx)
/* Round 7 */
movl 28(%esi), %ecx
movl 28(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 28(%ebx)
addl $32, %esi
addl $32, %edi
addl $32, %ebx
subl $8, %ebp
jnz .L012aw_loop
.L011aw_finish:
movl 32(%esp), %ebp
andl $7, %ebp
jz .L013aw_end
/* Tail Round 0 */
movl (%esi), %ecx
movl (%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
decl %ebp
movl %ecx, (%ebx)
jz .L013aw_end
/* Tail Round 1 */
movl 4(%esi), %ecx
movl 4(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
decl %ebp
movl %ecx, 4(%ebx)
jz .L013aw_end
/* Tail Round 2 */
movl 8(%esi), %ecx
movl 8(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
decl %ebp
movl %ecx, 8(%ebx)
jz .L013aw_end
/* Tail Round 3 */
movl 12(%esi), %ecx
movl 12(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
decl %ebp
movl %ecx, 12(%ebx)
jz .L013aw_end
/* Tail Round 4 */
movl 16(%esi), %ecx
movl 16(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
decl %ebp
movl %ecx, 16(%ebx)
jz .L013aw_end
/* Tail Round 5 */
movl 20(%esi), %ecx
movl 20(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
decl %ebp
movl %ecx, 20(%ebx)
jz .L013aw_end
/* Tail Round 6 */
movl 24(%esi), %ecx
movl 24(%edi), %edx
addl %eax, %ecx
movl $0, %eax
adcl %eax, %eax
addl %edx, %ecx
adcl $0, %eax
movl %ecx, 24(%ebx)
.L013aw_end:
movl %eax, %eax
popl %edi
popl %esi
popl %ebx
popl %ebp
ret
.bn_add_words_end:
SIZE(bn_add_words,.bn_add_words_end-bn_add_words)
.ident "bn_add_words"