单片机将片内30H~40H及片外0010H~0100H清零.docxVIP

将片内30H~40H及片外0010H~0100H清零，然后将片内41H~47H的内容移到片外0041H~0047H，判断：

若（0041H）＜15，则求其平方存到0050H中,并将位00H置1。

（0041H）=15，则加15存到0050H中，并将位01H置1。

（0041H）＞15,则减15存到0050H中，并将位02H置1。

ORG0000H

SJMPMAIN

ORG0030H

MAIN:MOVR0,#30H

MOVDPTR,#0010H

MOVR1,#11H

MOVR2,#0F1H

CLRA

LOOP:MOVX@DPTR,A

INCDPTR

DJNZR2,LOOP

LOOP1:MOV@R0,A

INCR0

DJNZR1,LOOP1

YISHU: MOVR0,#41H

MOVDPTR,#0041H

MOVR1,#07H

LOOP2: MOVA,@R0

MOVX@DPTR,A

INCR0

INCDPTR

DJNZR1,LOOP2

PANDUAN:MOVDPTR,#0041H

MOVXA,@DPTR

CJNEA,#15,AX1