joyent/node

TITLE    ../openssl/crypto/bn/asm/x86-mont.asm
IF @Version LT 800
ECHO MASM version 8.00 or later is strongly recommended.
ENDIF
.686
.MODEL    FLAT
OPTION    DOTNAME
IF @Version LT 800
.text$    SEGMENT PAGE 'CODE'
ELSE
.text$    SEGMENT ALIGN(64) 'CODE'
ENDIF
ALIGN    16
_bn_mul_mont    PROC PUBLIC
$L_bn_mul_mont_begin::
    push    ebp
    push    ebx
    push    esi
    push    edi
    xor    eax,eax
    mov    edi,DWORD PTR 40[esp]
    cmp    edi,4
    jl    $L000just_leave
    lea    esi,DWORD PTR 20[esp]
    lea    edx,DWORD PTR 24[esp]
    mov    ebp,esp
    add    edi,2
    neg    edi
    lea    esp,DWORD PTR [edi*4+esp-32]
    neg    edi
    mov    eax,esp
    sub    eax,edx
    and    eax,2047
    sub    esp,eax
    xor    edx,esp
    and    edx,2048
    xor    edx,2048
    sub    esp,edx
    and    esp,-64
    mov    eax,DWORD PTR [esi]
    mov    ebx,DWORD PTR 4[esi]
    mov    ecx,DWORD PTR 8[esi]
    mov    edx,DWORD PTR 12[esi]
    mov    esi,DWORD PTR 16[esi]
    mov    esi,DWORD PTR [esi]
    mov    DWORD PTR 4[esp],eax
    mov    DWORD PTR 8[esp],ebx
    mov    DWORD PTR 12[esp],ecx
    mov    DWORD PTR 16[esp],edx
    mov    DWORD PTR 20[esp],esi
    lea    ebx,DWORD PTR [edi-3]
    mov    DWORD PTR 24[esp],ebp
    mov    esi,DWORD PTR 8[esp]
    lea    ebp,DWORD PTR 1[ebx]
    mov    edi,DWORD PTR 12[esp]
    xor    ecx,ecx
    mov    edx,esi
    and    ebp,1
    sub    edx,edi
    lea    eax,DWORD PTR 4[ebx*4+edi]
    or    ebp,edx
    mov    edi,DWORD PTR [edi]
    jz    $L001bn_sqr_mont
    mov    DWORD PTR 28[esp],eax
    mov    eax,DWORD PTR [esi]
    xor    edx,edx
ALIGN    16
$L002mull:
    mov    ebp,edx
    mul    edi
    add    ebp,eax
    lea    ecx,DWORD PTR 1[ecx]
    adc    edx,0
    mov    eax,DWORD PTR [ecx*4+esi]
    cmp    ecx,ebx
    mov    DWORD PTR 28[ecx*4+esp],ebp
    jl    $L002mull
    mov    ebp,edx
    mul    edi
    mov    edi,DWORD PTR 20[esp]
    add    eax,ebp
    mov    esi,DWORD PTR 16[esp]
    adc    edx,0
    imul    edi,DWORD PTR 32[esp]
    mov    DWORD PTR 32[ebx*4+esp],eax
    xor    ecx,ecx
    mov    DWORD PTR 36[ebx*4+esp],edx
    mov    DWORD PTR 40[ebx*4+esp],ecx
    mov    eax,DWORD PTR [esi]
    mul    edi
    add    eax,DWORD PTR 32[esp]
    mov    eax,DWORD PTR 4[esi]
    adc    edx,0
    inc    ecx
    jmp    $L0032ndmadd
ALIGN    16
$L0041stmadd:
    mov    ebp,edx
    mul    edi
    add    ebp,DWORD PTR 32[ecx*4+esp]
    lea    ecx,DWORD PTR 1[ecx]
    adc    edx,0
    add    ebp,eax
    mov    eax,DWORD PTR [ecx*4+esi]
    adc    edx,0
    cmp    ecx,ebx
    mov    DWORD PTR 28[ecx*4+esp],ebp
    jl    $L0041stmadd
    mov    ebp,edx
    mul    edi
    add    eax,DWORD PTR 32[ebx*4+esp]
    mov    edi,DWORD PTR 20[esp]
    adc    edx,0
    mov    esi,DWORD PTR 16[esp]
    add    ebp,eax
    adc    edx,0
    imul    edi,DWORD PTR 32[esp]
    xor    ecx,ecx
    add    edx,DWORD PTR 36[ebx*4+esp]
    mov    DWORD PTR 32[ebx*4+esp],ebp
    adc    ecx,0
    mov    eax,DWORD PTR [esi]
    mov    DWORD PTR 36[ebx*4+esp],edx
    mov    DWORD PTR 40[ebx*4+esp],ecx
    mul    edi
    add    eax,DWORD PTR 32[esp]
    mov    eax,DWORD PTR 4[esi]
    adc    edx,0
    mov    ecx,1
ALIGN    16
$L0032ndmadd:
    mov    ebp,edx
    mul    edi
    add    ebp,DWORD PTR 32[ecx*4+esp]
    lea    ecx,DWORD PTR 1[ecx]
    adc    edx,0
    add    ebp,eax
    mov    eax,DWORD PTR [ecx*4+esi]
    adc    edx,0
    cmp    ecx,ebx
    mov    DWORD PTR 24[ecx*4+esp],ebp
    jl    $L0032ndmadd
    mov    ebp,edx
    mul    edi
    add    ebp,DWORD PTR 32[ebx*4+esp]
    adc    edx,0
    add    ebp,eax
    adc    edx,0
    mov    DWORD PTR 28[ebx*4+esp],ebp
    xor    eax,eax
    mov    ecx,DWORD PTR 12[esp]
    add    edx,DWORD PTR 36[ebx*4+esp]
    adc    eax,DWORD PTR 40[ebx*4+esp]
    lea    ecx,DWORD PTR 4[ecx]
    mov    DWORD PTR 32[ebx*4+esp],edx
    cmp    ecx,DWORD PTR 28[esp]
    mov    DWORD PTR 36[ebx*4+esp],eax
    je    $L005common_tail
    mov    edi,DWORD PTR [ecx]
    mov    esi,DWORD PTR 8[esp]
    mov    DWORD PTR 12[esp],ecx
    xor    ecx,ecx
    xor    edx,edx
    mov    eax,DWORD PTR [esi]
    jmp    $L0041stmadd
ALIGN    16
$L001bn_sqr_mont:
    mov    DWORD PTR [esp],ebx
    mov    DWORD PTR 12[esp],ecx
    mov    eax,edi
    mul    edi
    mov    DWORD PTR 32[esp],eax
    mov    ebx,edx
    shr    edx,1
    and    ebx,1
    inc    ecx
ALIGN    16
$L006sqr:
    mov    eax,DWORD PTR [ecx*4+esi]
    mov    ebp,edx
    mul    edi
    add    eax,ebp
    lea    ecx,DWORD PTR 1[ecx]
    adc    edx,0
    lea    ebp,DWORD PTR [eax*2+ebx]
    shr    eax,31
    cmp    ecx,DWORD PTR [esp]
    mov    ebx,eax
    mov    DWORD PTR 28[ecx*4+esp],ebp
    jl    $L006sqr
    mov    eax,DWORD PTR [ecx*4+esi]
    mov    ebp,edx
    mul    edi
    add    eax,ebp
    mov    edi,DWORD PTR 20[esp]
    adc    edx,0
    mov    esi,DWORD PTR 16[esp]
    lea    ebp,DWORD PTR [eax*2+ebx]
    imul    edi,DWORD PTR 32[esp]
    shr    eax,31
    mov    DWORD PTR 32[ecx*4+esp],ebp
    lea    ebp,DWORD PTR [edx*2+eax]
    mov    eax,DWORD PTR [esi]
    shr    edx,31
    mov    DWORD PTR 36[ecx*4+esp],ebp
    mov    DWORD PTR 40[ecx*4+esp],edx
    mul    edi
    add    eax,DWORD PTR 32[esp]
    mov    ebx,ecx
    adc    edx,0
    mov    eax,DWORD PTR 4[esi]
    mov    ecx,1
ALIGN    16
$L0073rdmadd:
    mov    ebp,edx
    mul    edi
    add    ebp,DWORD PTR 32[ecx*4+esp]
    adc    edx,0
    add    ebp,eax
    mov    eax,DWORD PTR 4[ecx*4+esi]
    adc    edx,0
    mov    DWORD PTR 28[ecx*4+esp],ebp
    mov    ebp,edx
    mul    edi
    add    ebp,DWORD PTR 36[ecx*4+esp]
    lea    ecx,DWORD PTR 2[ecx]
    adc    edx,0
    add    ebp,eax
    mov    eax,DWORD PTR [ecx*4+esi]
    adc    edx,0
    cmp    ecx,ebx
    mov    DWORD PTR 24[ecx*4+esp],ebp
    jl    $L0073rdmadd
    mov    ebp,edx
    mul    edi
    add    ebp,DWORD PTR 32[ebx*4+esp]
    adc    edx,0
    add    ebp,eax
    adc    edx,0
    mov    DWORD PTR 28[ebx*4+esp],ebp
    mov    ecx,DWORD PTR 12[esp]
    xor    eax,eax
    mov    esi,DWORD PTR 8[esp]
    add    edx,DWORD PTR 36[ebx*4+esp]
    adc    eax,DWORD PTR 40[ebx*4+esp]
    mov    DWORD PTR 32[ebx*4+esp],edx
    cmp    ecx,ebx
    mov    DWORD PTR 36[ebx*4+esp],eax
    je    $L005common_tail
    mov    edi,DWORD PTR 4[ecx*4+esi]
    lea    ecx,DWORD PTR 1[ecx]
    mov    eax,edi
    mov    DWORD PTR 12[esp],ecx
    mul    edi
    add    eax,DWORD PTR 32[ecx*4+esp]
    adc    edx,0
    mov    DWORD PTR 32[ecx*4+esp],eax
    xor    ebp,ebp
    cmp    ecx,ebx
    lea    ecx,DWORD PTR 1[ecx]
    je    $L008sqrlast
    mov    ebx,edx
    shr    edx,1
    and    ebx,1
ALIGN    16
$L009sqradd:
    mov    eax,DWORD PTR [ecx*4+esi]
    mov    ebp,edx
    mul    edi
    add    eax,ebp
    lea    ebp,DWORD PTR [eax*1+eax]
    adc    edx,0
    shr    eax,31
    add    ebp,DWORD PTR 32[ecx*4+esp]
    lea    ecx,DWORD PTR 1[ecx]
    adc    eax,0
    add    ebp,ebx
    adc    eax,0
    cmp    ecx,DWORD PTR [esp]
    mov    DWORD PTR 28[ecx*4+esp],ebp
    mov    ebx,eax
    jle    $L009sqradd
    mov    ebp,edx
    add    edx,edx
    shr    ebp,31
    add    edx,ebx
    adc    ebp,0
$L008sqrlast:
    mov    edi,DWORD PTR 20[esp]
    mov    esi,DWORD PTR 16[esp]
    imul    edi,DWORD PTR 32[esp]
    add    edx,DWORD PTR 32[ecx*4+esp]
    mov    eax,DWORD PTR [esi]
    adc    ebp,0
    mov    DWORD PTR 32[ecx*4+esp],edx
    mov    DWORD PTR 36[ecx*4+esp],ebp
    mul    edi
    add    eax,DWORD PTR 32[esp]
    lea    ebx,DWORD PTR [ecx-1]
    adc    edx,0
    mov    ecx,1
    mov    eax,DWORD PTR 4[esi]
    jmp    $L0073rdmadd
ALIGN    16
$L005common_tail:
    mov    ebp,DWORD PTR 16[esp]
    mov    edi,DWORD PTR 4[esp]
    lea    esi,DWORD PTR 32[esp]
    mov    eax,DWORD PTR [esi]
    mov    ecx,ebx
    xor    edx,edx
ALIGN    16
$L010sub:
    sbb    eax,DWORD PTR [edx*4+ebp]
    mov    DWORD PTR [edx*4+edi],eax
    dec    ecx
    mov    eax,DWORD PTR 4[edx*4+esi]
    lea    edx,DWORD PTR 1[edx]
    jge    $L010sub
    sbb    eax,0
    and    esi,eax
    not    eax
    mov    ebp,edi
    and    ebp,eax
    or    esi,ebp
ALIGN    16
$L011copy:
    mov    eax,DWORD PTR [ebx*4+esi]
    mov    DWORD PTR [ebx*4+edi],eax
    mov    DWORD PTR 32[ebx*4+esp],ecx
    dec    ebx
    jge    $L011copy
    mov    esp,DWORD PTR 24[esp]
    mov    eax,1
$L000just_leave:
    pop    edi
    pop    esi
    pop    ebx
    pop    ebp
    ret
_bn_mul_mont ENDP
DB    77,111,110,116,103,111,109,101,114,121,32,77,117,108,116,105
DB    112,108,105,99,97,116,105,111,110,32,102,111,114,32,120,56
DB    54,44,32,67,82,89,80,84,79,71,65,77,83,32,98,121
DB    32,60,97,112,112,114,111,64,111,112,101,110,115,115,108,46
DB    111,114,103,62,0
.text$    ENDS
END