;Page 127 Program 3, Moving a Block of Data
;Modified and Tested By David Munguia

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