;	WinSTon

;	ADDA <ea>,An

;	XNZVC
;	-----

PUBLIC _adda_ea_an_word
PUBLIC _adda_ea_an_long

;-----------------------------------------------------------------------
;ADDA.W <ea>,An
_adda_ea_an_word PROC NEAR
	EFFADDR_READ									;Read <ea>
	movsx	ebx,bx									;Sign extend
	mov		edx,DECODE_2[ecx]						;AReg
	add		[edx],ebx								;An
	FRET
_adda_ea_an_word ENDP

;ADDA.L <ea>,An
_adda_ea_an_long PROC NEAR
	EFFADDR_READ									;Read <ea>
	mov		edx,DECODE_2[ecx]						;AReg
	add		[edx],ebx								;An
	FRET
_adda_ea_an_long ENDP
