Program for block transfer from one address to other (8051)

MOV R0,#30H
MOV R1,#50H
MOV R3,#8
RETURN : MOV A,@R0
MOV @R1,A
INC R0
INC R1
DJNZ R3, RETURN
END