;Page 127 Program 3, Moving a Block of Data 2-byte at a time
;Modified and Tested By David Munguia

        ORG     	$2000
R1      EQU     	$1000
        LDX     	#$1200
        LDY     	#$1300
        LDAA    	#25     ;Set Counter
        STAA    	R1
OVER    LDD     	0,X
        STD		0,Y
        INX
        INX
        INY
        INY
        DEC     	R1
        BNE     	OVER
        END