SORT:MOvA,#N-1;N个数据排序 MOV R4, A ;外循 开始 环次数 外循环次数→R4 LOOP1: Mov A, r4 MoV R3, A ;内循 内循环次数→R3 环次数 首TARR MOVR0,#TAB;设数据指针 B←(R0) L00P2:MOVA,@R0;取二数 (0+1 MOV B, A A≥B? INC RO (R0)+→(RO+1 Mov A, @RO CJNE A,B,L1;比较 匚R0←R0+1 JNC UNEX ;A≥B,不交换R3-R3-1-02 DEC RO ;否则交换数据 XCH A, @RO <R4←R4-1=0 INC RO 循环结束 MOV @RO, A UNEX: DJNZ R3,Lo0P2;内循环结束? DJNZ R4,L0OP1;外循环结束?SORT： MOV A，#N-1 ；N个数据排序 MOV R4，A ；外循 环次数 LOOP1： MOV A，R4 MOV R3，A ；内循 环次数 MOV R0，#TAB ；设数据指针 LOOP2： MOV A，@R0 ；取二数 MOV B，A INC R0 MOV A，@R0 CJNE A，B，L1 ；比较 L1： JNC UNEX ；A≥B，不交换 DEC R0 ；否则交换数据 XCH A ，@R0 INC R0 MOV @R0，A UNEX： DJNZ R3，LOOP2 ；内循环结束？ DJNZ R4，LOOP1 ；外循环结束？ RET R3←R3—1=0 ? B ←（R0） A ← ( R0 + 1 ) 循环结束 外循环次数→R4 R4←R4—1=0 ? 内循环次数→R3 表首TAB→R0 开始 A ≥ B？ (R0)←→(R0+1) R0 ← R0+1 Y N