;  AMD64 mpn_rshift -- mpn right shift
;
;  Copyright 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
;   
;  This file is part of the GNU MP Library.
;   
;  The GNU MP 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 GNU MP 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 GNU MP Library; see the file COPYING.LIB.  If
;  not, write to the Free Software Foundation, Inc., 59 Temple Place -
;  Suite 330, Boston, MA 02111-1307, USA.
;
;  Adapted by Brian Gladman AMD64 using the Microsoft VC++ v8 64-bit 
;  compiler and the YASM assembler.
;
;  Calling interface:
;	
; mp_limb_t mpn_rshift(
;		mp_ptr dst,			rcx
;		mp_srcptr src,		rdx
;		mp_size_t size,      r8        
;		unsigned shift       r9
; )

%define s_len	 r8
%define	r_tmp	 r9
%define d_ptr	r10
%define s_ptr	r11

	bits 64
	text

	global __gmpn_rshift

%ifdef DLL
	export	__gmpn_rshift
%endif

__gmpn_rshift:
	movsxd	s_len,r8d
	or		s_len,s_len
	jz		.0
	mov		d_ptr,rcx
	mov		s_ptr,rdx
	mov		rcx,r9
	cmp		s_len,byte 2
	jge		.1
	mov		rax,[s_ptr]
	mov		r_tmp,rax
	shr		r_tmp,cl
	neg		cl
	mov		[d_ptr],r_tmp
	shl		rax,cl
.0:	ret
.1:	lea		s_ptr,[s_ptr+s_len*8]
	lea		d_ptr,[d_ptr+s_len*8]
	neg		s_len
	mov		rdx,[s_ptr+s_len*8]
	push	rdx
	shr		rdx,cl
	neg		cl
	inc		s_len
.2:	mov		rax,[s_ptr+s_len*8]
	mov		r_tmp,rax
	shl		r_tmp,cl
	neg		cl
	xor		r_tmp,rdx
	shr		rax,cl
	neg		cl
	mov		rdx,rax
	mov		[d_ptr+s_len*8-8],r_tmp
	inc		s_len
	jnz		.2
	mov		[d_ptr-8],rax
	pop		rax
	shl		rax,cl	
	ret