;///////////////////////////////////////////
;本程序源代碼由單片機培訓網提供.
;單片機培訓網,讓更多人學習單片機更容易.
;第一網址----www.mcuedu.com
;第二網址----http://51_train.nease.net
;創辦人------劉永忠
;熱線電話----(0755)27529998
;email-------aa815@163.com
;請將片外數據存儲器地址為1000H~1030H的數據塊，全部搬遷到片內RAM30H~60H中，并將原數據塊區域全部清“0”。	
;程序難易等級--------稍難
;///////////////////////////////////////////
	
	
	
	org 0000h
	ljmp main
	org 0030h
main:
	mov dptr,#1000h
	mov a,#22h
	movx @dptr,a
	mov dptr,#1030h
	mov a,#33h
	movx @dptr,a

	mov dptr,#1000h
	mov r2,#31h
	mov r0,#30h
loop:
	movx a,@dptr
	mov @r0,a
	inc dptr
	inc r0
	djnz r2,loop
	mov dptr,#1000h
	mov a,#00
	mov r2,#31h
loop1:
	movx @dptr,a
	inc dptr
	djnz r2,loop1
	sjmp $
	end