mpir/mpn/x86_64w/k8/mod_1_2.asm

108 lines
2.5 KiB
NASM
Raw Normal View History

; Copyright 2009 Jason Moxham
;
; Windows Conversion Copyright 2008 Brian Gladman
;
; This file is part of the MPIR Library.
;
; The MPIR Library is free software; you can redistribute it and/or modify
; it under the terms of the GNU Lesser General Public License as published
; by the Free Software Foundation; either version 2.1 of the License, or (at
; your option) any later version.
;
; The MPIR Library is distributed in the hope that it will be useful, but
; WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
; License for more details.
;
; You should have received a copy of the GNU Lesser General Public License
; along with the MPIR Library; see the file COPYING.LIB. If not, write
; to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
; Boston, MA 02110-1301, USA.
;
; mp_limb_t mpn_mod_1_2(mp_ptr, mp_ptr, mp_size_t, mp_ptr)
; rax rdi rsi rdx rcx
; rax rcx rdx r8d r9
%include '..\yasm_mac.inc'
CPU Athlon64
BITS 64
%define reg_save_list rsi, rdi, r12, r13, r14
FRAME_PROC mpn_mod_1_2, 0, reg_save_list
mov rsi, rdx
movsxd rdx, r8d
mov r14, [rsi+rdx*8-8]
mov r13, [rsi+rdx*8-16]
mov r11, [rsi+rdx*8-32]
mov r8, [r9]
mov r10, [r9+16]
mov r9, [r9+8]
mov rdi, rdx
mov rax, [rsi+rdx*8-24]
sub rdi, 6
jc L_skiplp
xalign 16
L_lp:
mul r8
mov r12, 0
add r11, rax
adc r12, rdx
mov rax, r9
mul r13
add r11, rax
adc r12, rdx
mov r13, r11
mov rax, r10
mul r14
add r13, rax
mov r11, [rsi+rdi*8+0]
mov r14, r12
adc r14, rdx
mov rax, [rsi+rdi*8+8]
sub rdi, 2
jnc L_lp
L_skiplp:
mul r8
mov r12, 0
add r11, rax
adc r12, rdx
mov rax, r9
mul r13
add r11, rax
adc r12, rdx
mov r13, r11
mov rax, r10
mul r14
add r13, rax
mov r14, r12
adc r14, rdx
cmp rdi, -2
je L_case0
L_case1:
mov r11, [rsi+rdi*8+8]
mov r12, 0
mov rax, r8
mul r13
add r11, rax
adc r12, rdx
mov r13, r11
mov rax, r9
mul r14
add r13, rax
mov r14, r12
adc r14, rdx
L_case0:
mov rax, r8
mul r14
add r13, rax
adc rdx, 0
mov [rcx], r13
mov [rcx+8], rdx
END_PROC reg_save_list
end