th6.asm

来自「请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都」· 汇编 代码 · 共 31 行

      ORG   0000H
      SIZE  EQU   10
      ARRAY EQU   50H
      FLAG  BIT   10

START:
       MOV   R0, #01h
       mov   R7, #SIZE-1
       CLR   FLAG
GOON:
       MOV   A,@R0
       MOV   R2,A
       INC   R0
       MOV   B,@R0
       CJNE  A,B,NOTEQUAL
       SJMP  NEXT
NOTEQUAL:
       JC    NEXT
       SETB  FLAG
       XCH   A,@R0
       DEC   R0
       XCH   A,@R0
       INC   R0
NEXT:
       DJNZ  R7,GOON
       JB    FLAG,START
       SJMP  $
       END