数字温度计设计汇编源程序.docx
- 文档编号:9232318
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:24
- 大小:222.64KB
数字温度计设计汇编源程序.docx
《数字温度计设计汇编源程序.docx》由会员分享,可在线阅读,更多相关《数字温度计设计汇编源程序.docx(24页珍藏版)》请在冰豆网上搜索。
数字温度计设计汇编源程序
;================================================================
;DS18B20温度计
;采用4位LED共阳显示器显示测温值,显示精度0.1℃,测温范围-55~+125℃
;用AT89C51单片机,12MHz晶振
;DS1302时钟芯片实现日历年月日时分秒的显示
;============================常数定义=============================
TIMELEQU0E0H;20ms,定时器0时间常数
TIMEHEQU0B1H
SECONDEQU30H
MINUTEEQU31H
HOUREQU32H
DAYEQU33H
MONTHEQU34H
WEEKEQU35H
YEAREQU36H
TEMPHEADEQU38H
TEMP_UPPEREQU2AH
TEMP_LOWEREQU2BH
;==========================工作内存定义============================
BITSTDATA20H
TIME1SOKBITBITST.1
TEMPLDATA26H
TEMPHDATA27H
TEMPHCDATA28H
TEMPLCDATA29H
;=============================引脚定义===========================
TEMPDINBITP3.7
ALARMDINBITP1.6
RSTBITP1.2
CLKBITP1.1
IOBITP1.0
;=============================中断向量区=========================
ORG0000H
LJMPSTART
ORG000BH
LJMPT0IT
;=============================系统初始化==========================
ORG0100H
START:
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:
LCALLDISP_TEMP;调用显示子程序
LCALLDISPLAY_DATE
JNBTIME1SOK,MAIN1
CLRTIME1SOK;测温每1s一次
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
NOP
CLRTEMPDIN
MOVR6,#0A0H
DJNZR6,$
MOVR6,#0A0H
DJNZR6,$
SETBTEMPDIN
MOVR6,#32H
DJNZR6,$
MOVR6,#3CH
LOOP1820:
MOVC,TEMPDIN
JCINITDS1820OUT
DJNZR6,LOOP1820
MOVR6,#064H
DJNZR6,$
SJMPINITDS1820
INITDS1820OUT:
SETBTEMPDIN
RET
;======读DS18B20的程序,从DS18B20中读出一个字节的数据=============
READDS1820:
MOVR7,#08H
SETBTEMPDIN
NOP
NOP
READDS1820LOOP:
CLRTEMPDIN
NOP
NOP
NOP
SETBTEMPDIN
MOVR6,#07H;DELAY15us
DJNZR6,$
MOVC,TEMPDIN
MOVR6,#3CH;DELAY120us
DJNZR6,$
RRCA
SETBTEMPDIN
DJNZR7,READDS1820LOOP
MOVR6,#3CH;DELAY120us
DJNZR6,$
RET
;========写DS18B20的程序,从DS18B20中写一个字节的数据=============
WRITEDS1820:
MOVR7,#08H
SETBTEMPDIN
NOP
NOP
WRITEDS1820LOP:
CLRTEMPDIN
MOVR6,#07H;DELAY15us
DJNZR6,$
RRCA
MOVTEMPDIN,C
MOVR6,#34H;DELAY104us
DJNZR6,$
SETBTEMPDIN
DJNZR7,WRITEDS1820LOP
RET
;=========================READTEMP===========================
READ_TEMP:
LCALLINITDS1820
MOVA,#0CCH
LCALLWRITEDS1820;SKIPROM
MOVR6,#34H;DELAY104us
DJNZR6,$
MOVA,#44H
LCALLWRITEDS1820;STARTCONVERSION
MOVR6,#34H;DELAY104
DJNZR6,$
READTEMP1:
LCALLINITDS1820
MOVA,#0CCH
LCALLWRITEDS1820;SKIPROM
MOVR6,#34H;DELAY104us
DJNZR6,$
MOVA,#0BEH
LCALLWRITEDS1820;SCRATCHPAD
MOVR6,#34H;DELAY104us
DJNZR6,$
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
MOVTEMPL,A
MOVA,TEMPH;-
CPLA
ADDCA,#00H
MOVTEMPH,A;TEMPHCHI=符号位
MOVTEMPHC,#0BH
SJMPTEMPC11
TEMPC1:
MOVTEMPHC,#0AH;+
TEMPC11:
MOVA,TEMPHC
SWAPA
MOVTEMPHC,A
MOVA,TEMPL
ANLA,#0FH;乘0.0625
MOVDPTR,#TEMPDOTTAB
MOVCA,@A+DPTR
MOVTEMPLC,A;TEMPLCLOW=小数部分BCD
MOVA,TEMPL;整数部分
ANLA,#0F0H
SWAPA
MOVTEMPL,A
MOVA,TEMPH
ANLA,#0FH
SWAPA
ORLA,TEMPL
LCALLHEX2BCD1
MOVTEMPL,A
ANLA,#0F0H
SWAPA
ORLA,TEMPHC;TEMPHCLOW=十位数BCD
MOVTEMPHC,A
MOVA,TEMPL
ANLA,#0FH
SWAPA;TEMPLCHI=个位数BCD
ORLA,TEMPLC
MOVTEMPLC,A
MOVA,R7
JZTEMPC12
ANLA,#0FH
SWAPA
MOVR7,A
MOVA,TEMPHC;TEMPLCHI=百位数BCD
ANLA,#0FH
ORLA,R7
MOVTEMPHC,A
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
ANLA,#0FH
MOV71H,A
MOVA,TEMPHC
ANLA,#0FH
MOV72H,A
MOVA,TEMPHC
SWAPA
ANLA,#0FH
MOV73H,A
MOVA,TEMPHC
ANLA,#0F0H
CJNEA,#010H,REFBCD0
SJMPREFBCD2
REFBCD0:
MOVA,TEMPHC
ANLA,#0FH
JNZREFBCD2;十位数是0
MOVA,TEMPHC
SWAPA
ANLA,#0FH
MOV73H,#0AH;符号位不显示
MOV72H,A;十位数显示符号
REFBCD2:
RET
;=======================即时温度显示子程序===============================
;显示数据在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;指向下一地址
MOVA,R5;扫描控制字放入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
DIVAB;B=A%B
SWAPA
ORLA,B
RET
;======================判断报警子程序=================================
ALARM_JUDGE:
PUSHTEMPH
PUSHTEMPL
MOVA,TEMPL
ANLA,#0F0H
SWAPA
MOVR2,A
MOVA,TEMPH
ANLA,#0FH
SWAPA
ORLA,R2;R2保存测得温度值
MOVR2,A
MOVA,TEMP_UPPER
LCALLCMPT
MOVTEMP_UPPER,A
MOVA,TEMP_LOWER
LCALLCMPT
MOVTEMP_LOWER,A
CLRC
MOVA,R2
SUBBA,TEMP_UPPER
JNBACC.7,SETF0
;CLRC
;MOVA,R2
;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;延时
DJNZR6,$
DJNZR7,ALARM_DELAY
SETBALARMDIN
RET
;================日期显示子程序===========================
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
MOVP0,A
LCALLDELAY
SETBP2.7
CLRP2.5
MOVP0,#40H
LCALLDELAY
SETBP2.5
MOVA,MONTH
ANLA,#0F0H
SWAPA
CLRP2.3
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.3
MOVA,MONTH
ANLA,#0FH
CLRP2.4
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.4
CLRP2.2
MOVP0,#40H
LCALLDELAY
SETBP2.2
MOVA,YEAR
ANLA,#0F0H
SWAPA
CLRP2.0
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.0
MOVA,YEAR
ANLA,#0FH
CLRP2.1
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.1
RET
;================时间显示子程序===========================
DISPLAY_TIME:
MOVDPTR,#TABLE
MOVA,SECOND
ANLA,#0F0H
SWAPA
CLRP2.6
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.6
MOVA,SECOND
ANLA,#0FH
CLRP2.7
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.7
CLRP2.5
MOVP0,#40H
LCALLDELAY
SETBP2.5
MOVA,MINUTE
ANLA,#0F0H
SWAPA
CLRP2.3
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.3
MOVA,MINUTE
ANLA,#0FH
CLRP2.4
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.4
CLRP2.2
MOVP0,#40H
LCALLDELAY
SETBP2.2
MOVA,HOUR
ANLA,#0F0H
SWAPA
CLRP2.0
MOVCA,@A+DPTR
MOVP0,A
LCALLDELAY
SETBP2.0
MOVA,HOUR
ANLA,#0FH
CLRP2.1
MOVCA,@A+DPTR
MOVP0,A
LCALLD
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数字 温度计 设计 汇编 源程序