You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
139 lines
2.9 KiB
139 lines
2.9 KiB
;;;;;;;;;;;;;;;;;;;;;;
|
|
; copy
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
; Copies
|
|
; Params:
|
|
; rsi <= the src
|
|
; rdi <= the dest
|
|
;
|
|
; Nidified registers:
|
|
; rax
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
<%=name%>_copy:
|
|
<% for (let i=0; i<=n64; i++) { %>
|
|
mov rax, [rsi + <%= i*8 %>]
|
|
mov [rdi + <%= i*8 %>], rax
|
|
<% } %>
|
|
ret
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
; copy an array of integers
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
; Copies
|
|
; Params:
|
|
; rsi <= the src
|
|
; rdi <= the dest
|
|
; rdx <= number of integers to copy
|
|
;
|
|
; Nidified registers:
|
|
; rax
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
<%=name%>_copyn:
|
|
<%=name%>_copyn_loop:
|
|
mov r8, rsi
|
|
mov r9, rdi
|
|
mov rax, <%= n64+1 %>
|
|
mul rdx
|
|
mov rcx, rax
|
|
cld
|
|
rep movsq
|
|
mov rsi, r8
|
|
mov rdi, r9
|
|
ret
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
; rawCopyS2L
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
; Convert a 64 bit integer to a long format field element
|
|
; Params:
|
|
; rsi <= the integer
|
|
; rdi <= Pointer to the overwritted element
|
|
;
|
|
; Nidified registers:
|
|
; rax
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
rawCopyS2L:
|
|
mov al, 0x80
|
|
shl rax, 56
|
|
mov [rdi], rax ; set the result to LONG normal
|
|
|
|
cmp rsi, 0
|
|
js u64toLong_adjust_neg
|
|
|
|
mov [rdi + 8], rsi
|
|
xor rax, rax
|
|
<% for (let i=1; i<n64; i++) { %>
|
|
mov [rdi + <%= 8+i*8 %>], rax
|
|
<% } %>
|
|
ret
|
|
|
|
u64toLong_adjust_neg:
|
|
add rsi, [q] ; Set the first digit
|
|
mov [rdi + 8], rsi ;
|
|
|
|
mov rsi, -1 ; all ones
|
|
<% for (let i=1; i<n64; i++) { %>
|
|
mov rax, rsi ; Add to q
|
|
adc rax, [q + <%= i*8 %> ]
|
|
mov [rdi + <%= (i+1)*8 %>], rax
|
|
<% } %>
|
|
ret
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
; toInt
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
; Convert a 64 bit integer to a long format field element
|
|
; Params:
|
|
; rsi <= Pointer to the element
|
|
; Returs:
|
|
; rax <= The value
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
<%=name%>_toInt:
|
|
mov rax, [rdi]
|
|
bt rax, 63
|
|
jc <%=name%>_long
|
|
movsx rax, eax
|
|
ret
|
|
|
|
<%=name%>_long:
|
|
bt rax, 62
|
|
jnc <%=name%>_longNormal
|
|
<%=name%>_longMontgomery:
|
|
call <%=name%>_toLongNormal
|
|
|
|
<%=name%>_longNormal:
|
|
mov rax, [rdi + 8]
|
|
mov rcx, rax
|
|
shr rcx, 31
|
|
jnz <%=name%>_longNeg
|
|
<% for (let i=1; i< n64; i++) { %>
|
|
mov rcx, [rdi + <%= i*8+8 %>]
|
|
test rcx, rcx
|
|
jnz <%=name%>_longNeg
|
|
<% } %>
|
|
ret
|
|
|
|
<%=name%>_longNeg:
|
|
mov rax, [rdi + 8]
|
|
sub rax, [q]
|
|
jnc <%=name%>_longErr
|
|
<% for (let i=1; i<n64; i++) { %>
|
|
mov rcx, [rdi + <%= i*8+8 %>]
|
|
sbb rcx, [q + <%= i*8 %>]
|
|
jnc <%=name%>_longErr
|
|
<% } %>
|
|
mov rcx, rax
|
|
sar rcx, 31
|
|
add rcx, 1
|
|
jnz <%=name%>_longErr
|
|
ret
|
|
|
|
<%=name%>_longErr:
|
|
push rdi
|
|
mov rdi, 0
|
|
call <%=name%>_fail
|
|
pop rdi
|
|
|
|
|
|
|