;	WinSTon

;	SUBA <ea>,An

;	XNZVC
;	-----

PUBLIC _suba_ea_an_word
PUBLIC _suba_ea_an_long

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

;SUBA.L <ea>,An
_suba_ea_an_long PROC NEAR
	EFFADDR_READ									;Read <ea>
	mov		edx,DECODE_2[ecx]						;AReg
	sub		[edx],ebx								;An
	FRET
_suba_ea_an_long ENDP
