数字温度计设计汇编源程序Word格式.docx
《数字温度计设计汇编源程序Word格式.docx》由会员分享，可在线阅读，更多相关《数字温度计设计汇编源程序Word格式.docx（24页珍藏版）》请在冰豆网上搜索。
MOVSP,#60H
CLSMEM:
MOVR0,#20H
MOVR1,#60H
CLSMEM1:
MOV@R0,#00H
INCR0
DJNZR1,CLSMEM1
MOVTMOD,#00010001B;
定时器0工作方式1（16BIT）
MOVTH0,#TIMEH
MOVTL0,#TIMEL;
20ms
MOVSECOND,#00H
MOVMINUTE,#00H
MOVHOUR,#14H
MOVDAY,#17H
MOVMONTH,#01H
MOVWEEK,#01H
MOVYEAR,#13H
MOVTEMP_UPPER,#0AH
MOVTEMP_LOWER,#8AH
SETBET0
SETBEA
MOVPSW,#00H
=================================================================
=============================主程序=============================
LCALLSETDS1302
START1:
LCALLREAD_TEMP;
读出温度值子程序
LCALLCONVTEMP;
温度BCD码计算处理子程序
LCALLREFBCD;
显示区BCD码温度值刷新子程序
LCALLGETDS1302
SETBTR0
LCALLALARM_JUDGE
JNBF0,MAIN
LCALLALARM_BEEP
MAIN:
LCALLDISP_TEMP;
调用显示子程序
LCALLDISPLAY_TIME
JNBTIME1SOK,MAIN
CLRTIME1SOK;
测温每1s一次
MAIN1:
LCALLDISPLAY_DATE
JNBTIME1SOK,MAIN1
LJMPSTART1
======================定时器0中断服务程序=======================
T0IT:
PUSHPSW
MOVPSW,#10H
MOVTH0,#TIMEH
MOVTL0,#TIMEL
INCR7
CJNER7,#50,T0IT1
MOVR7,#00H
SETBTIME1SOK;
1s定时到标志
T0IT1:
POPPSW
RETI
=============================子程序区===========================
=============================初始化DS18B20=======================
INITDS1820:
SETBTEMPDIN
NOP
CLRTEMPDIN
MOVR6,#0A0H
DJNZR6,$
MOVR6,#0A0H
SETBTEMPDIN
MOVR6,#32H
MOVR6,#3CH
LOOP1820:
MOVC,TEMPDIN
JCINITDS1820OUT
DJNZR6,LOOP1820
MOVR6,#064H
SJMPINITDS1820
INITDS1820OUT:
SETBTEMPDIN
RET
======读DS18B20的程序，从DS18B20中读出一个字节的数据=============
READDS1820:
MOVR7,#08H
SETBTEMPDIN
NOP
READDS1820LOOP:
CLRTEMPDIN
NOP
SETBTEMPDIN
MOVR6,#07H;
DELAY15us
DJNZR6,$
MOVC,TEMPDIN
MOVR6,#3CH;
DELAY120us
RRCA
DJNZR7,READDS1820LOOP
DELAY120us
========写DS18B20的程序，从DS18B20中写一个字节的数据=============
WRITEDS1820:
WRITEDS1820LOP:
MOVTEMPDIN,C
MOVR6,#34H;
DELAY104us
DJNZR7,WRITEDS1820LOP
=========================READTEMP===========================
READ_TEMP:
LCALLINITDS1820
MOVA,#0CCH
LCALLWRITEDS1820;
SKIPROM
MOVR6,#34H;
DJNZR6,$
MOVA,#44H
STARTCONVERSION
DELAY104
READTEMP1:
LCALLINITDS1820
LCALLWRITEDS1820;
MOVR6,#34H;
MOVA,#0BEH
SCRATCHPAD
MOVR5,#09H
MOVR0,#TEMPHEAD
MOVB,#00H
READTEMP2:
LCALLREADDS1820
MOV@R0,A
INCR0
DJNZR5,READTEMP2
MOVA,TEMPHEAD+0
MOVTEMPL,A
MOVA,TEMPHEAD+1
MOVTEMPH,A
READTEMPOUT:
RET
==================处理温度BCD码子程序==========================
CONVTEMP:
MOVA,TEMPH
ANLA,#80H
JZTEMPC1
CLRC
MOVA,TEMPL
CPLA
ADDA,#01H
MOVA,TEMPH;
-
ADDCA,#00H
MOVTEMPH,A;
TEMPHCHI=符号位
MOVTEMPHC,#0BH
SJMPTEMPC11
TEMPC1:
MOVTEMPHC,#0AH;
+
TEMPC11:
MOVA,TEMPHC
SWAPA
MOVTEMPHC,A
ANLA,#0FH;
乘0.0625
MOVDPTR,#TEMPDOTTAB
MOVCA,@A+DPTR
MOVTEMPLC,A;
TEMPLCLOW=小数部分BCD
MOVA,TEMPL;
整数部分
ANLA,#0F0H
MOVA,TEMPH
ANLA,#0FH
ORLA,TEMPL
LCALLHEX2BCD1
ORLA,TEMPHC;
TEMPHCLOW=十位数BCD
SWAPA;
TEMPLCHI=个位数BCD
ORLA,TEMPLC
MOVTEMPLC,A
MOVA,R7
JZTEMPC12
MOVR7,A
MOVA,TEMPHC;
TEMPLCHI=百位数BCD
ORLA,R7
TEMPC12:
RET
=========================小数部分码表===========================
TEMPDOTTAB:
DB00H,01H,01H,02H,03H,03H,04H,04H,05H,06H
DB06H,07H,08H,08H,09H,09H
======================刷新BCD码温度值子程序===============
REFBCD:
MOVA,TEMPLC
ANLA,#0FH
MOV70H,A
MOVA,TEMPLC
SWAPA
MOV71H,A
MOVA,TEMPHC
MOV72H,A
SWAPA
MOV73H,A
ANLA,#0F0H
CJNEA,#010H,REFBCD0
SJMPREFBCD2
REFBCD0:
MOVA,TEMPHC
JNZREFBCD2;
十位数是0
MOV73H,#0AH;
符号位不显示
MOV72H,A;
十位数显示符号
REFBCD2:
=======================即时温度显示子程序===============================
显示数据在70H~73H单元内，用4位LED共阳数码管显示，P0口输出段码数据，
P3口做扫描控制，每个LED数码管亮1ms时间再逐位循环。
=========================================================================
DISP_TEMP:
MOVR1,#70H;
指向显示数据首址
MOVR5,#0FEH;
扫描控制字初值
PLAY:
MOVP0,#0FFH
MOVA,R5;
扫描字放入A
MOVP3,A;
从P3口输出
MOVA,@R1;
取显示数据到A
MOVDPTR,#TAB;
取段码表地址
MOVCA,@A+DPTR;
查显示数据对应段码
MOVP0,A;
段码放入P0口
MOVA,R5
JBACC.1,LOOP5;
小数点处理
CLRP0.7
LOOP5:
LCALLDL1MS;
显示1ms
INCR1;
指向下一地址
扫描控制字放入A
JNBACC.3,ENDOUT;
ACC.3=0时一次显示结束
RLA;
A中数据循环左移
MOVR5,A;
放回R5内
AJMPPLAY;
跳回PLAY循环
ENDOUT:
MOVP0,#0FFH;
一次显示结束，P0口复位
MOVP3,#0FFH;
P3口复位
RET;
子程序返回
TAB:
DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH
共阳段码表“0”“1”“2”“3”“4”“5”“6”“7”“8”“9”“不亮”“-”
DL1MS:
MOVR6,#2;
1ms延时程序，LED显示程序用
DL:
MOVR7,#250
DJNZR7,$
DJNZR6,DL
RET
=====================单字节十六进制转BCD=======================
HEX2BCD1:
MOVB,#064H;
十六进制->
BCD
DIVAB;
B=A%100
MOVR7,A;
R7=百位数
MOVA,#0AH
XCHA,B
B=A%B
ORLA,B
======================判断报警子程序=================================
ALARM_JUDGE:
PUSHTEMPH
PUSHTEMPL
MOVA,TEMPL
ANLA,#0F0H
SWAPA
MOVR2,A
MOVA,TEMPH
ANLA,#0FH
ORLA,R2;
R2保存测得温度值
MOVA,TEMP_UPPER
LCALLCMPT
MOVTEMP_UPPER,A
MOVA,TEMP_LOWER
MOVTEMP_LOWER,A
CLRC
MOVA,R2
SUBBA,TEMP_UPPER
JNBACC.7,SETF0
SUBBA,TEMP_LOWER
;
JBACC.7,SETF0
SJMPALARMOUT
SETF0:
SETBF0
ALARMOUT:
POPTEMPL
POPTEMPH
RET
=================求补码子程序============================
CMPT:
JNBACC.7,CMPT_END
MOVC,ACC.7
CPLA
ADDA,#01H
MOVACC.7,C
CMPT_END:
RET
=================报警子程序===============================
ALARM_BEEP:
CLRALARMDIN
MOVR7,#0FFH
ALARM_DELAY:
MOVR6,#0FFH;
延时
DJNZR7,ALARM_DELAY
SETBALARMDIN
================日期显示子程序===========================
DISPLAY_DATE:
MOVDPTR,#TABLE
MOVA,DAY
ANLA,#0F0H
SWAPA
CLRP2.6
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.6
MOVA,DAY
ANLA,#0FH
CLRP2.7
MOVCA,@A+DPTR
SETBP2.7
CLRP2.5
MOVP0,#40H
LCALLDELAY
SETBP2.5
MOVA,MONTH
SWAPA
CLRP2.3
SETBP2.3
CLRP2.4
SETBP2.4
CLRP2.2
SETBP2.2
MOVA,YEAR
CLRP2.0
SETBP2.0
CLRP2.1
SETBP2.1
================时间显示子程序===========================
DISPLAY_TIME:
MOVA,SECOND
MOVA,SECOND
MOVA,MINUTE
MOVA,HOUR
LCALLD
升级会员 