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

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

ORG    0AA0H

0AA0  7810      L5800:  MOV  R0,#10H     ;查找16个字节

0AA2  7900              MOV  R1,#00H

0AA4  902000            MOV  DPTR,#2000H

0AA7  E0        L5811:  MOVX  A,@DPTR

0AA8  B40001            CJNE  A,#00H,L5816;取出内容与00H相等吗？

0AAB  09                INC  R1          ;取出个数加1

0AAC  A3        L5816:  INC  DPTR

0AAD  D8F8              DJNZ  R0,L5811   ;未完继续

0AAF  902100            MOV  DPTR,#2100H

0AB2  E9                MOV  A,R1

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

0AB4  80FE      L581E:  SJMP  L581E

END