单片机原理与接口技术 应用型高等教育计算机类 李明毕万新 技能训练 技能训练6 2.docVIP

技能训练6-2 测试外部脉冲频率 一、实训项目：测试外部脉冲频率 二、实训任务： T0方式1定时，T1方式1计数，外部脉冲由P3.5（T1）引脚输入，将1秒内的脉冲计数值在数码管中显示。 三、实训目的： 掌握频率测量的原理； 掌握二－十进制转换程序设计方法； 掌握显示数据传送到显示缓冲区的程序设计方法； 了解数码管动态显示的程序设计思路。 四、实训准备： 1.分析题目要求，在Proteus中绘制原理图（技能训练6-2图1）。 2.根据实训任务设计出相应的程序。 参考源程序： MS EQU 7FH ;50ms定时计数单元 BUFF DATA 40H ; BUFF~BUFF+5存放计数值BCD码,BUFF最 ;低位 THH EQU 51H ;脉冲计数值(二进制）高位地址单元 TLL EQU 50H ;脉冲计数值（二进制）低位地址单元 BTOD EQU 60H ;计数值BCD码的首地址,BTOD单元保存最低 ;字节，BTOD+2单元保存最高位 BINA EQU 70H ;脉冲计数值（二进制）地址单元,BINA保存低 ;位,BINA+1 保存高位 INTF0 BIT 20H.0 ;秒计时到标志 ORG 0000H LJMP START ;转到开始程序入口 ORG 000BH LJMP INT0S ;转到T0中断程序入口 START: MOV MS,#20 ;软计数初值 MOV TMOD,#51H ;T0定时、T1计数模式，工作方式1 MOV TH0,#3CH ;T0定时初值，（晶振频率12MHz,定时50ms） MOV TL0,#0B0H MOV TH1,#0 ;计数值从0开始 MOV TL1,#0 SETB TR0 ;启动T0 SETB TR1 ;启动T1 MOV SP,#30H SETB EA ;允许T0中断 SETB ET0 MAIN: JBC INTF0,CONVT ;判断秒计时到否?秒计时到转CONVT LCALL DISP SETB EA LJMP MAIN CONVT: NOP MOV BINA,TLL MOV BINA+1,THH LCALL B2BCD LCALL SLIP LJMP MAIN B2BCD: CLR A ;二进制数转换BCD码程序 MOV R0,#BTOD ;BTOD~BTOD+2单元清0 MOV R1,#03H D0: MOV @R0,A INC R0 DJNZ R1,D0 MOV R6,#10H ;二进制位数存于R6中 D1: MOV R0,#BINA ;BINA~BINA+1单元二进制数左移一位 ;后存入原单元中 MOV R1,#02H D2: MOV A,@R0 RLC A MOV @R0,A INC R0 DJNZ R1,D2 MOV R0,#BTOD ;BTOD~BTOD+2结果单元内容乘2+Cy并进行 ;调整后存入原单元 MOV R1,#03H D3: MOV A,@R0 ADDC A,@R0 DA A MOV @R0,A INC R0 DJNZ R1,D3 DJNZ R6,D1 ;外循环直到全部处理完毕 RET SLIP: MOV R0,#BTOD ;显示数据送到显示缓冲区中,最低位数据在 ;BUFF单 ;元,最高位显示数据在BUFF+5单元 MOV R1,#BUFF ;显示缓冲区首地址 MOV R2,#03H ;分离次数 SLIP1: MOV A,@R0 ;取显示数据 ANL A,#0FH ;将压缩BCD码低4位送到指定显示缓冲区存储 ;单元中 MOV @R1,A INC R1 ;调整显示缓冲区地址 MOV A,@R0 ANL A,#0F0H ;将压缩B