ORG 0100H
MOV R0, #40H
MOV DPTR, #3000H
MOV R1, #21H
LOOP: MOV A, @R0
MOVX @DPTR, A
INC R0
INC DPTR
DJNZ R1, LOOP
SJMP $
END