WAP in 8051 to transfer block of data from internal memory location to external memory location

; PROGRAMM STARTS HERE
MOV R0, #30H ; STORE MEMORY LOCATION
MOV A, #00H ; CLEAR ACCUMULATOR
MOV R7, #07H ; COUNTER
MOV DPTR, #0200H; EXTERNAL ADDRESS
BACK :  MOV A, @R0 ; MOVE FROM INTERNAL TO ACCUMULATOR
MOVX @DPTR, A ; MOVE FROM ACCUMULATOR TO EXTERNAL ADDRESS
INC R0 ; INCREMENT INTERNAL ADDRESS
INC DPTR ; INCREMENT EXTERNAL ADDRESS
DJNZ R7, BACK ; COUNT THE LOOP
END