;	WinSTon

;	MOVEA <ea>,An

;	XNZVC
;	-----

PUBLIC _movea_ea_an_word
PUBLIC _movea_ea_an_long

;-----------------------------------------------------------------------
;MOVEA.W <ea>,An
_movea_ea_an_word PROC NEAR
	EFFADDR_READ									;Read <ea>
	movsx	ebx,bx									;Sign extend

	mov		edx,DECODE_2[ecx]
	mov		[edx],ebx								;Dest An
	FRET
_movea_ea_an_word ENDP

;MOVEA.L <ea>,An
_movea_ea_an_long PROC NEAR
	EFFADDR_READ									;Read <ea>

	mov		edx,DECODE_2[ecx]
	mov		[edx],ebx								;Dest An
	FRET
_movea_ea_an_long ENDP
