mirror of
https://github.com/claunia/cuetools.net.git
synced 2025-12-16 18:14:25 +00:00
181 lines
3.7 KiB
Plaintext
181 lines
3.7 KiB
Plaintext
|
|
%include "Tools64.inc"
|
|
|
|
segment_code
|
|
|
|
;
|
|
; void Adapt ( short* pM, const short* pAdapt, int nDirection, int nOrder )
|
|
;
|
|
; r9d nOrder
|
|
; r8d nDirection
|
|
; rdx pAdapt
|
|
; rcx pM
|
|
; [esp+ 0] Return Address
|
|
|
|
align 16
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
proc Adapt
|
|
|
|
shr r9d, 4
|
|
|
|
cmp r8d, byte 0 ; nDirection
|
|
jle short AdaptSub
|
|
|
|
AdaptAddLoop:
|
|
movq mm0, [rcx]
|
|
paddw mm0, [rdx]
|
|
movq [rcx], mm0
|
|
movq mm1, [rcx + 8]
|
|
paddw mm1, [rdx + 8]
|
|
movq [rcx + 8], mm1
|
|
movq mm2, [rcx + 16]
|
|
paddw mm2, [rdx + 16]
|
|
movq [rcx + 16], mm2
|
|
movq mm3, [rcx + 24]
|
|
paddw mm3, [rdx + 24]
|
|
movq [rcx + 24], mm3
|
|
add rcx, byte 32
|
|
add rdx, byte 32
|
|
dec r9d
|
|
jnz AdaptAddLoop
|
|
|
|
emms
|
|
ret
|
|
|
|
align 16
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
AdaptSub: je short AdaptDone
|
|
|
|
AdaptSubLoop:
|
|
movq mm0, [rcx]
|
|
psubw mm0, [rdx]
|
|
movq [rcx], mm0
|
|
movq mm1, [rcx + 8]
|
|
psubw mm1, [rdx + 8]
|
|
movq [rcx + 8], mm1
|
|
movq mm2, [rcx + 16]
|
|
psubw mm2, [rdx + 16]
|
|
movq [rcx + 16], mm2
|
|
movq mm3, [rcx + 24]
|
|
psubw mm3, [rdx + 24]
|
|
movq [rcx + 24], mm3
|
|
add rcx, byte 32
|
|
add rdx, byte 32
|
|
dec r9d
|
|
jnz AdaptSubLoop
|
|
|
|
emms
|
|
AdaptDone:
|
|
|
|
endproc
|
|
|
|
;
|
|
; int CalculateDotProduct ( const short* pA, const short* pB, int nOrder )
|
|
;
|
|
; [esp+12] nOrder
|
|
; [esp+ 8] pB
|
|
; [esp+ 4] pA
|
|
; [esp+ 0] Return Address
|
|
|
|
align 16
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
proc CalculateDotProduct
|
|
|
|
shr r8d, 4
|
|
pxor mm7, mm7
|
|
|
|
loopDot: movq mm0, [rcx] ;pA
|
|
pmaddwd mm0, [rdx] ;pB
|
|
paddd mm7, mm0
|
|
movq mm1, [rcx + 8]
|
|
pmaddwd mm1, [rdx + 8]
|
|
paddd mm7, mm1
|
|
movq mm2, [rcx + 16]
|
|
pmaddwd mm2, [rdx + 16]
|
|
paddd mm7, mm2
|
|
movq mm3, [rcx + 24]
|
|
pmaddwd mm3, [rdx + 24]
|
|
add rcx, byte 32
|
|
add rdx, byte 32
|
|
paddd mm7, mm3
|
|
dec r8d
|
|
jnz loopDot
|
|
|
|
movq mm6, mm7
|
|
psrlq mm7, 32
|
|
paddd mm6, mm7
|
|
movd eax, mm6
|
|
emms
|
|
endproc
|
|
|
|
|
|
;
|
|
; BOOL GetMMXAvailable ( void );
|
|
;
|
|
|
|
proc GetMMXAvailable
|
|
push rax
|
|
push rcx
|
|
push rdx
|
|
push rbx
|
|
pushfq
|
|
pop rax
|
|
mov rcx, rax
|
|
xor rax, 0x200000
|
|
push rax
|
|
popfq
|
|
pushfq
|
|
pop rax
|
|
cmp rax, rcx
|
|
jz short return ; no CPUID command, so no MMX
|
|
|
|
mov rax,1
|
|
CPUID
|
|
test rdx,0x800000
|
|
return: pop rbx
|
|
pop rdx
|
|
pop rcx
|
|
pop rax
|
|
setnz al
|
|
and eax, byte 1
|
|
endproc
|
|
|
|
end
|