10-12.txt

来自「单片机快速入门原程序」· 文本 代码 · 共 21 行

ORG  1000H
BUBBLE：MOV  R0,#30H
        MOV  B,#64H
        CLR  10H
        DEC  B                 ;长度计数
  LOOP：MOV  A,@R0
        MOV  20H,A            ;暂存,为交换作准备
        INC  R0
        MOV  21H,@R0
        CJNE  A,21H,BUEU      ;若（20H）≠（21H）转移
  BUEU：JNC  BUNEXT         ;（20H）≥（21H）转移
        MOV  A,@R0            ;若（20H）< （21H）则交换
        MOV  @R0,20H
         DEC  R0                ;使R0退格指向小地址
         MOV  @R0,A
         INC  R0                ;恢复R0指向大地址
         SETB  10H              ;置交换标志
BUNEXT： DJNZ  B,LOOP
         JB  10H,BUBBLE        ;判断标志位为1否？若为1,则继续
         END