文档详情

数字温度计汇编程序.doc

发布:2017-11-16约5.37千字共7页下载文档
文本预览下载声明
3;------------------------------------------------------------------- ;数字温度计 ;晶振12MHz ;用数字温度传感器DS18B20测量温度、显示温度。 ;显示段码接P0口,显示位码接P2.2、P2.3、P2.4。 ;数字温度传感器DS18B20的数据引脚接单片机的P3.7口。 ;显示格式是:百十个.小数c ;设计:黄有全 ;日期:2009年12月26日 ;----------------------------------------------------------------------- ????? DAT?? BIT? p3.7?????????? ;数据通信口 ????? TEMPER_L DATA 30H???????? ;读出的温度低字节 ????? TEMPER_H DATA 31H???????? ;读出的温度高字节 ????? TEMPER?? EQU? 32H????? ?? ;温度的整数单元 ????? T_DOT??? EQU? 33H?????????;温度的小数点单元 ????? ORG 0000H ????? LJMP MAIN ????? ORG 000BH ????? SJMP TIMER0?????????????? ;定时显示 ;主程序: ????? ORG 0030H MAIN: ????? LCALL INITIAL???????????? ;初始化模块 LOOP: LCALL DSWD??????????????? ;调用读出DS18B20温度程序 ????? SJMP LOOP?????????????????;读出DS18B20温度程序 ;---------------------------------------------------------------- ;定时显示子程序,采用循环扫描方式 ;显示缓冲区40H~47H ;---------------------------------------------------------------- ????? TIMER0: ????? push acc???????????????? ;入栈 ??????mov dptr,#tab? ????? mov a,TEMPER???????????? ;将温度的百位分离出来。 ????? mov b,#100 ????? div ab ????? movc a,@a+dptr????????? ?;查百位的段码。 ????? mov p0,a???????????????? ;显示在最高位的数码管上。 ? ????? CLR p2.2???????????????? ;送第1位数码管的位码。 ????? CLR p2.3 ????? CLR p2.4 ????? ????? lcall ys100????????????? ;延时 ???? ????? mov a,b????????????????? ;将温度的十位分离出来。 ????? mov b,#10 ????? div ab ????? movc a,@a+dptr????????? ?;查十位的段码。 ????? mov p0,a???????????????? ;显示在第2位的数码管上。 ????? SETB p2.2??????????????? ;送第2位数码管的位码. ????? CLR? p2.3 ????? CLR? p2.4 ????? lcall ys100 ????? ????? mov a,b ????? movc a,@a+dptr?????????? ;查个位的段码。 ????? mov p0,a???????????????? ;显示在第3位的数码管上。 ????? CLR p2.2???????????????? ;送第3位数码管的位码. ????? SETB P2.3 ????? CLR p2.4 ????? CLR p0.7???????????????? ;显示在第3位数码管的小数点,即在温度的个位上显示小数点。 ????? lcall ys100 ????? ????? mov a,T_DOT?????????????;显示温度的小数位。 ????? jz uu?????????????????? ;判断小数单元T_DOT是否为0. ????? mov a,#92h????????????? ;T_DOT不是0,送显示5的段码。 ????? sjmp uu1 uu:?? mov a,#0c0h??????????? ?;T_DOT是0,送显示0的段码。 uu1:? mov p0,a ?????
显示全部
相似文档