MCS-51查找相同数个数程序

　　在2000~200FH中查出有几个字节是零，把零的个数放在2100H中。
　　
　　程序框图

ORG 0AA0H

0AA07810 L5800:MOVR0,#10H ;查找16个字节

0AA27900 MOVR1,#00H

0AA4902000 MOVDPTR,#2000H

0AA7E0 L5811:MOVXA,@DPTR

0AA8B40001 CJNEA,#00H,L5816;取出内容与00H相等吗？

0AAB09 INCR1 ;取出个数加1

0AACA3 L5816:INCDPTR

0AADD8F8 DJNZR0,L5811 ;未完继续

0AAF902100 MOVDPTR,#2100H

0AB2E9 MOVA,R1

0AB3F0 MOVX@DPTR,A ;相同数个数送2100H

0AB480FE L581E:SJMPL581E

END