单片机编程作业.docVIP

实验四 80C51综合软件设计 实验目的： 熟练掌握80C51的指令系统和编写程序的方法。 实验内容： 将RAM50H~59H中的数据从小到大顺序排列。 借助51单片机开发系统及参考程序，编程求出10个正整数的最大值、最小值、和、平均数。 三、程序 ORG 0000H REAET:AJMP MAIN ORG 0100H MAIN: MOV SP,#60H ；（MAIN函数） MOV R0,#50H ；（将十个数存入CPU内部存储器，起始地址为50H） MOV @R0,#6FH INC R0 MOV @R0,#6EH INC R0 MOV @R0,#6AH INC R0 MOV @R0,#6CH INC R0 MOV @R0,#6DH INC R0 MOV @R0,#6BH INC R0 MOV @R0,#67H INC R0 MOV @R0,#69H INC R0 MOV @R0,#68H INC R0 MOV @R0,#64H INC R0 ACALL QMM ；（调用求平均值、最大值、最小值函数） ACALL SUM ；（调用求和函数） ACALL AVARAGE ；（调用求平均值函数） SJMP $ QMM: CLR 00H ；（求平均值、最大值、最小值函数） MOV R7,#09H ；（每个循环进行9次两两比较） MOV R0,#50H MOV A,@R0 ；（将第一个数的值送到累加器A） L2: INC R0 MOV B,@R0 ；（将后面一个数的值送到B） CLR C ；（符号位清零） CJNE A,B,L3 ；（前后两个数进行比较，若前后两数不相等则跳到L3） L3: JC L1 ；（若符号位为1，即前面的数小于后面的数则程序跳到L1） SETB 00H ；（若符号位为1，即前面的数小于后面的数，则程序继续向下执行，00H单元置为1） XCH A,@R0 ；（后面单元中的数与累加器A中的数进行交换） DEC R0 XCH A,@R0 ；（前面单元中的数与累加器A中的数进行交换） INC R0 L1: MOV A,@R0 DJNZ R7,L2 ；（若未进行完9次比较则程序跳回L2继续执行） JB 00H,QMM ；（进行完9次比较若仍有交换存在，则程序跳回QMM继续循环，直到10个单元中的数不再进行交换，即完成从小到大排序） MOV A,59H ；（将最大值送到30H单元） MOV 30H,A MOV A,50H ；（将最小值送到20H单元） MOV 20H,A RET SUM: CLR C ；（求和函数） MOV R0,#50H MOV R1,#10 MOV A,R1 MOV R7,A ；（10个数相加循环10次） MOV R2,#00H ；（R2中存放累加值） MOV R3,#00H ；（R3中存放进位的累加值） LP0: MOV A,R2 ADD A,@R0 MOV R2,A MOV A,R3 ADDC A,#00H MOV R3,A INC R0 DJNZ R7,LP0 MOV 5AH,R2 ；（将和的低八位存放在5A单元中） MOV 5BH,R3 ；（将和的高八位存放在5B单元中） RET AVARAGE: ；（求平均值） MOV 5AH,R2 MOV 5BH,R3 INC R3 MOV R4,#00H ；（R4中存放减10的次数） MOV A,R2 Q1: CLR C MOV R5,#0AH Q2: DEC A ；（减10次1） DJNZ R5,Q2 CJNE A,0AH,Q3 Q3: INC R4 ；（每减一个10，R4加1） JNC Q1 ；（循环减10，直到低位小于0） DJNZ R3,Q1 ；（低位减完向高位借位，直到高位小于0） DEC R4 MOV 5CH,R4 ；（将商送到5CH单元） MOV R5,0AH Q4: INC A DJNZ R5,Q4 MOV 5DH,A ；（将余数送到5DH单元） RET