R3, R4,标志位Cy，F0
;出口参数：排序后数据仍放在30H开始的15个内部数据存储器单元中
PAIXU2: PUSH ACC ;保护现场 PUSH PSW MOV PSW, #10H ;设定2区寄存器区，同时0→F0 MOV R3, #14 ;暂存比较次数→R3 CLR F0 ;进入循环前，清除交换标志F0 NEXT: MOV R0, #30H ;首地址→R0 MOV R2, 13H ;当前比较次数(R3)→R2 LOOP: MOV A,@R0 ;取出前一个数 MOV R4, A ;前数送R4暂存 INC R0 ;R0指向下个数 MOV B, @R0 XRL A, B JB ACC.7, YH ; 如果前后数异号，转加法 TH: MOV A, R4 ; 如果前后数同号，则执行减法，将前数重新放入ACC CLR C ; SUBB A, B ;前数－后数 JZ NEXCH ; 差为0，即前绝对值=后绝对值，不交换 XRL A, B ;差值和减数异或，判断是否同号 JB ACC.7, NEXCH ;如果差值和减数异号，则前绝对值<后绝对值，不交换 SJMP EXCH ;如果同号(即上句不成立)，则转前后交换 YH: MOV A, R4 ;前后数异号，执行加法，将前数重新放入ACC ADD A, B ; 前数+后数 JZ NEXCH ; 和为0，即前绝对值=后绝对值，不交换 XRL A, B ; 和与加数异或，判断是否同号 JNB ACC.7, NEXCH ;如果和与加数同号，则前绝对值<后绝对值，不交换 EXCH: SETB F0 ;前>后，交换位置，置标志F0 MOV A, @R0 ;后数→ACC DEC R0 ;R0指向前单元 XCH A, @R0 ;后数→前单元，前数→ACC INC R0 ;R0恢复指向后单元 MOV @R0, A ;前数→后单元 NEXCH: DJNZ R2, LOOP ;判断一次冒泡是否完成 DEC R3 ;修改每次冒泡中的比较次数 JBC F0, NEXT ;判断冒泡中有无交换，清除F0 POP PSW ;若上次冒泡中无交换，则排序完成 POP ACC RET 4-18 编制一子程序，将内部数据存储器30H～39H单元的数据连起来 41
向左移动一位，39H最低位添0。 ;10个单元数据块左移一位子程序
;入口参数：子程序名MBRL1，数据块位于30H～39H单元，影响ACC，3区寄存器R0，标志位Cy
;出口参数：移位后数据仍位于30H～39H单元中 MBRL1: 位
MOV R0, #39H ;数据块尾地址送R0
;单元数据送ACC
PUSH PSW
;保护PSW内容 ;保护ACC内容
PUSH ACC
MOV PSW, #18H ;设置3区为当前工作寄存器区，同时清除Cy
LOOP: MOV A, @R0 RLC DEC
A
;带进位左移
;R0指向前一个单元
R0
CJNE R0, #2FH ,LOOP ;判断R0是否已指向2FH（即30H已
移位完成）
方法2：将上述子程序修改一下，可以适用m个单元左移n位的功能。 ;m个单元数据块左移n位子程序
42
POP POP RET END
ACC ;恢复ACC
PSW
;恢复PSW ;返回
;入口参数：子程序名MBRLN，数据块起始地址在R0中，数据块长度m放在R6中，移位数n放在R7中 ;影响ACC，寄存器B，标志位Cy
;出口参数：移位后R0指向数据块起始地址 MBRLN: PUSH PSW
PUSH ACC PUSH B
;保护PSW内容 ;保护ACC内容
;保护B内容
;数据块长度m暂存入寄存器B ;数据块长度m重新赋值给R6
MOV B, R6
NEXT: MOV R6, B
MOV A, R0 ADD A, R6 DEC
A
;数据块首地址＋m－1＝数据块尾地址→
ACC
MOV R0, A CLR
C
;R0指向数据块尾地址 ;清除Cy位
LOOP: MOV A, @R0 RLC DEC
A R0
DJNZ R6 , LOOP ;内层循环完成m个单元左移一位 INC
R0
;使R0指向数据块首地址
DJNZ R7, NEXT ;外层循环完成n次移一位，即移动n位 POP
B ;恢复现场
43
POP
ACC PSW ;返回
POP RET END
44
相关推荐：
loading