基于51单片机——Ds18B20温度采集,LCD显示汇编程序(附带proteus仿真图)

1、 TEMP_ZH EQU 24H ;实测温度值存放单元 TEMPL EQU 25H TEMPH EQU 26H TEMP_TH EQU 27H ;高温报警值存放单元 TEMP_TL EQU 28H ;低温报警值存放单元 TEMPHC EQU 29H ;正、负温度值标记 TEMPLC EQU 2AH TEMPFC EQU 2BH K1 EQU P1.4 ;查询按键 K2 EQU P1.5 ;设置/调整键 K3 EQU P1.6 ;调整键 K4 EQU P1.7 ;确定键 BEEP EQU P3.7 ;蜂鸣器 RELAY EQU P1.3 ;指示灯 LCD_X EQU 2FH ;LCD 字符显示位

2、置 LCD_RS EQU P2.0 ;LCD 寄存器选择信号 LCD_RW EQU P2.1 ;LCD 读写信号 LCD_EN EQU P2.2 ;LCD 允许信号 FLAG1 EQU 20H.0 ;DS18B20是否存在标志 KEY_UD EQU 20H.1 ;设定按键的增、减标志 DQ EQU P3.3 ;DS18B20数据信号 ORG 0000H LJMP MAIN ORG 0030HMAIN: MOV SP,#60H MOV A,#00H MOV R0,#20H ;将20H2FH 单元清零 MOV R1,#10HCLEAR: MOV R0,A INC R0 DJNZ R1,CLEAR

3、LCALL SET_LCD LCALL RE_18B20 START: LCALL RST ;调用18B20复位子程序 JNB FLAG1,START1 ;DS1820不存在 LCALL MENU_OK;DS1820存在，调用显示正确信息子程序 MOVTEMP_TH,#055H;设置TH初值85度 MOVTEMP_TL,#019H;设置TL初值25度 LCALL RE_18B20A;调用暂存器操作子程序 LCALL WRITE_E2 ;写入DS18B20 LCALL TEMP_BJ ;显示温度标记 JMP START2START1: LCALL MENU_ERROR;调用显示出错信息子程序 L

4、CALL TEMP_BJ ;显示温度标记 SJMP $START2: LCALL RST;调用DS18B20复位子程序 JNB FLAG1,START1 ;DS18B20不存在 MOV A,#0CCH ;跳过ROM匹配命令 LCALL WRITE MOV A,#44H ;温度转换命令 LCALL WRITE LCALL RST MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE MOV A,#0BEH ;读温度命令 LCALL WRITE LCALL READ;调用DS18B20数据读取操作子程序 LCALL CONVTEMP;调用温度数据BCD 码处理子程序 LCALL DIS

5、PBCD;调用温度数据显示子程序 LCALL CONV;调用LCD显示处理子程序 LCALL TEMP_COMP;调用实测温度值与设定温度值比较子程序 LCALL PROC_KEY ;调用键扫描子程序 SJMP START2;循环;* 键扫描子程序 *PROC_KEY:JB K1,PROC_K1 LCALL BEEP_BL JNB K1,$ MOV DPTR,#M_ALAX1 MOV A,#1 LCALL LCD_PRINT LCALL LOOK_ALARM JB K3,$ LCALL BEEP_BL JMP PROC_K2PROC_K1: JB K2,PROC_END LCALL BEEP_

6、BL JNB K2,$ MOV DPTR,#RST_A1 MOV A,#1 LCALL LCD_PRINT LCALL SET_ALARM LCALL RE_18B20 ;将设定的TH,TL值写入DS18B20 LCALL WRITE_E2PROC_K2: LCALL MENU_OK LCALL TEMP_BJPROC_END:RET;* 设定温度报警值 TH、TL *SET_ALARM:LCALL LOOK_ALARMAS0: JB K1,AS00 LCALL BEEP_BL JNB K1,$ CPL 20H.1 ;UP/DOWN 标记AS00: JB 20H.1,ASZ01 ;20H.1=

7、1，增加 JMP ASJ01 ;20H.1=0，减小ASZ01: JB K2,ASZ02 ;TH值调整(增加) LCALL BEEP_BL INC TEMP_TH MOV A,TEMP_TH CJNE A,#120,ASZ011 MOV TEMP_TH,#0ASZ011: LCALL LOOK_ALARM MOV R5,#10 LCALL DELAY JMP ASZ01ASZ02: JB K3,ASZ03 ;TL值调整(增加) LCALL BEEP_BL INC TEMP_TL MOV A,TEMP_TL CJNE A,#99,ASZ021 MOV TEMP_TL,#00HASZ021: LC

8、ALL LOOK_ALARM MOV R5,#10 LCALL DELAY JMP ASZ02ASZ03: JB K4,AS0 ;确定调整 LCALL BEEP_BL JNB K4,$ RETASJ01: JB K2,ASJ02 ;TH值调整（减少） LCALL BEEP_BL DEC TEMP_TH MOV A,TEMP_TH CJNE A,#0FFH,ASJ011 JMP ASJ022ASJ011: LCALL LOOK_ALARM MOV R5,#10 LCALL DELAY JMP AS0ASJ02: JB K3,ASJ03 ;TL值调整（减少） LCALL BEEP_BL DEC T

9、EMP_TL MOV A,TEMP_TL CJNE A,#0FFH,ASJ021 JMP ASJ022ASJ021: LCALL LOOK_ALARM ; MOV R5,#10 LCALL DELAY JMP AS0ASJ022: CPL 20H.1 JMP ASZ01ASJ03: JMP ASZ03 RETRST_A1: DB SET ALERT CODE ,0;* 实测温度值与设定温度值比较子程序 *TEMP_COMP:MOV A,TEMP_TH SUBB A,TEMP_ZH ;减数被减数，则 JC CHULI1 ;借位标志位C=1，转 MOVA,TEMPFC CJNEA,#0BH,COM

10、P SJMPCHULI2COMP: MOV A,TEMP_ZH SUBB A,TEMP_TL ;减数被减数，则 JC CHULI2 ;借位标志位C=1，转 MOV DPTR,#BJ5 LCALL TEMP_BJ3 CLR RELAY ;点亮指示灯 RET CHULI1: MOV DPTR,#BJ3 LCALL TEMP_BJ3 SETB RELAY ;熄灭指示灯 LCALL BEEP_BL;蜂鸣器响 RET CHULI2: MOV DPTR,#BJ4 LCALL TEMP_BJ3 SETB RELAY ;熄灭指示灯 LCALL BEEP_BL;蜂鸣器响 RET;-TEMP_BJ3: MOV A

11、,#0CEH LCALL WCOM MOV R1,#0 MOV R0,#2BBJJ3: MOV A,R1 MOVC A,A+DPTR LCALL WDATA INC R1 DJNZ R0,BBJJ3 RETBJ3: DB HBJ4: DB LBJ5: DB !; ;* 显示温度标记子程序 *TEMP_BJ: MOV A,#0CBH LCALL WCOM MOV DPTR,#BJ1 ;指针指到显示消息 MOV R1,#0 MOV R0,#2BBJJ1: MOV A,R1 MOVC A,A+DPTR LCALL WDATA INC R1 DJNZ R0,BBJJ1 RETBJ1: DB 00H,C

12、;* 显示正确信息子程序 *MENU_OK: MOV DPTR,#M_OK1 ;指针指到显示消息 MOV A,#1 ;显示在第一行 LCALL LCD_PRINT MOV DPTR,#M_OK2 ;指针指到显示消息 MOV A,#2 ;显示在第一行 LCALL LCD_PRINT RETM_OK1: DB DS18B20 OK ,0M_OK2: DB TEMP: ,0;* 显示出错信息子程序 *MENU_ERROR:MOV DPTR,#M_ERROR1 ;指针指到显示消息 MOV A,#1 ;显示在第一行 LCALL LCD_PRINT MOV DPTR,#M_ERROR2 ;指针指到显示消息

13、1 MOV A,#2 ;显示在第一行 LCALL LCD_PRINT RETM_ERROR1: DB DS18B20 ERROR ,0M_ERROR2: DB TEMP: - ,0;*DS18B20复位子程序 *RST: SETB DQ NOP CLR DQ MOV R0,#6BH ;主机发出延时复位低脉冲 MOV R1,#04HTSR1: DJNZ R0,$ MOV R0,#6BH DJNZ R1,TSR1 SETB DQ ;拉高数据线 NOP NOP NOP MOV R0,#32HTSR2: JNB DQ,TSR3 ;等待DS18B20回应 DJNZ R0,TSR2 JMP TSR4 ;

14、延时TSR3: SETB FLAG1 ; 置1标志位,表示DS1820存在 JMP TSR5TSR4: CLR FLAG1 ; 清0标志位,表示DS1820不存在 JMP TSR7TSR5: MOV R0,#06BHTSR6: DJNZ R0,$ ; 时序要求延时一段时间TSR7: SETB DQ RET;* DS18B20暂存器操作子程序 *RE_18B20:JB FLAG1,RE_18B20A RETRE_18B20A:LCALL RST MOV A,#0CCH ;跳过ROM匹配 LCALL WRITEWR_SCRAPD: MOV A,#4EH ;写暂器 LCALL WRITE MOV A

15、,TEMP_TH ;TH(报警上限） LCALL WRITE MOV A,TEMP_TL ;TL(报警下限） LCALL WRITE MOV A,#7FH ;12位精度 LCALL WRITE RET;* 复制暂存器子程序 *WRITE_E2:LCALL RST MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE MOV A,#48H ;把暂存器里的温度报警值拷贝到EEROM LCALL WRITE RET;* 重读EEROM子程序 *READ_E2:LCALL RST MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE MOV A,#0B8H ;把EEROM里的温

16、度报警值拷贝回暂存器 LCALL WRITE RET;* 将自定义字符写入LCD的CGRAM中 *STORE_DATA: MOV A,#40H LCALL WCOM MOV R2,#08H MOV DPTR,#D_DATA MOV R3,#00HS_DATA: MOV A,R3 MOVC A,A+DPTR LCALL WDATA ;写入数据 INC R3 DJNZ R2,S_DATA RETD_DATA: DB 0CH,12H,12H,0CH,00H,00H,00H,00H;* DS18B20数据写入操作子程序 *WRITE: MOV R2,#8 ;一共8位数据 CLR CWR1: CLR D

17、Q ;开始写入DS18B20总线要处于复位（低）状态 MOV R3,#07 DJNZ R3,$ ;总线复位保持16微妙以上 RRC A ;把一个字节DATA 分成8个BIT环移给C MOV DQ,C ;写入一位 MOV R3,#3CH DJNZ R3,$ ;等待100微妙 SETB DQ ;重新释放总线 NOP DJNZ R2,WR1 ;写入下一位 SETB DQ RET;* DS18B20数据读取操作子程序 *READ: MOV R4,#4 ;将温度低位、高位、TH、TL从DS18B20中读出 MOV R1,#TEMPL ;存入25H、26H、27H、28H单元RE00: MOV R2,#8

18、RE01: CLR CY SETB DQ NOP NOP CLR DQ ;读前总线保持为低 NOP NOP NOP SETB DQ ;开始读总线释放 MOV R3,#09 ;延时18微妙 DJNZ R3,$ MOV C,DQ ;从DS18B20总线读得一位 MOV R3,#3CH DJNZ R3,$ ;等待100微妙 RRC A ;把读得的位值环移给A DJNZ R2,RE01 ;读下一位 MOV R1,A INC R1 DJNZ R4,RE00 RET;* 温度值 BCD 码处理子程序 *CONVTEMP: MOV A,TEMPH ;判温度是否零下 ANL A,#08H JZ TEMPC1

19、;温度零上转 CLR C MOV A,TEMPL ;二进制数求补（双字节） CPL A ;取反加1 ADD A,#01H MOV TEMPL,A MOV A,TEMPH CPL A ADDC A,#00H MOV TEMPH,A MOV TEMPHC,#0BH;负温度标志 MOV TEMPFC,#0BH SJMP TEMPC11TEMPC1: MOV TEMPHC,#0AH ;正温度标志 MOV TEMPFC,#0AHTEMPC11: MOV A,TEMPHC SWAP A MOV TEMPHC,A MOV A,TEMPL ANL A,#0FH ;乘0.0625 MOV DPTR,#TEMPD

20、OTTAB MOVC A,A+DPTR MOV TEMPLC,A ;TEMPLC LOW=小数部分 BCD MOV A,TEMPL ;整数部分 ANL A,#0F0H ;取出高四位 SWAP A MOV TEMPL,A MOV A,TEMPH ;取出低四位 ANL A,#0FH SWAP A ORL A,TEMPL ;重新组合 MOV TEMP_ZH,A LCALL HEX2BCD1 MOV TEMPL,A ANL A,#0F0H SWAP A ORL A,TEMPHC ;TEMPHC LOW = 十位数 BCD MOV TEMPHC,A MOV A,TEMPL ANL A,#0FH SWAP

21、 A ;TEMPLC HI = 个位数 BCD ORL A,TEMPLC MOV TEMPLC,A MOV A,R4 JZ TEMPC12 ANL A,#0FH SWAP A MOV R4,A MOV A,TEMPHC ;TEMPHC HI = 百位数 BCD ANL A,#0FH ORL A,R4 MOV TEMPHC,ATEMPC12: RET;* 二-十进制转换子程序 *HEX2BCD1: MOV B,#064H DIV AB MOV R4,A MOV A,#0AH XCH A,B DIV AB SWAP A ORL A,B RETTEMPDOTTAB: DB 00H,00H,01H,0

22、1H,02H,03H,03H,04H ; 小数部分码表 DB 05H,05H,06H,06H,07H,08H,08H,09H;* 查询温度报警值子程序 *LOOK_ALARM: MOV DPTR,#M_ALAX2 ;指针指到显示信息区 MOV A,#2 ;显示在第二行 LCALL LCD_PRINT MOV A,#0C6H LCALL TEMP_BJ1 MOV A,TEMP_TH ;加载TH数据 MOV LCD_X,#3 ;设置显示位置 LCALL SHOW_DIG2H ;显示数据 MOV A,#0CEH LCALL TEMP_BJ1 MOV A,TEMP_TL ;加载TL数据 MOV LCD

23、_X,#12 ;设置显示位置 LCALL SHOW_DIG2L ;显示数据 RETM_ALAX1: DB LOOK ALERT CODE,0M_ALAX2: DB TH: TL: ,0TEMP_BJ1: LCALL WCOM MOV DPTR,#BJ2 ;指针指到显示信息区 MOV R1,#0 MOV R0,#2 BBJJ2: MOV A,R1 MOVC A,A+DPTR LCALL WDATA INC R1 DJNZ R0,BBJJ2 RETBJ2: DB 00H,C;* LCD显示子程序 *SHOW_DIG2H: MOV B,#100 DIV AB ADD A,#30H PUSH B MO

24、V B,LCD_X LCALL LCDP2 POP B MOV A,#0AH XCH A,B DIV AB ADD A,#30H INC LCD_X PUSH B MOV B,LCD_X LCALL LCDP2 POP B INC LCD_X MOV A,B MOV B,LCD_X ADD A,#30H LCALL LCDP2 RETSHOW_DIG2L: MOV B,#100 DIV AB MOV A,#0AH XCH A,B DIV AB ADD A,#30H PUSH B MOV B,LCD_X LCALL LCDP2 POP B INC LCD_X MOV A,B MOV B,LCD_

25、X ADD A,#30H LCALL LCDP2 RET;* 显示区 BCD 码温度值刷新子程序 *DISPBCD: MOV A,TEMPLC ANL A,#0FH MOV 70H,A ;小数位 MOV A,TEMPLC SWAP A ANL A,#0FH MOV 71H,A ;个位 MOV A,TEMPHC ANL A,#0FH MOV 72H,A ;十位 MOV A,TEMPHC SWAP A ANL A,#0FH MOV 73H,A ;百位DISPBCD2: RET;* LCD 显示数据处理子程序 *CONV: MOV A,73H ;加载百位数据 MOV LCD_X,#6 ;设置位置 C

26、JNE A,#1,CONV1 JMP CONV2CONV1: CJNE A,#0BH,CONV11 MOV A,#- ;-号显示 JMP CONV111CONV11: MOV A,# ;+号不显示CONV111: MOV B,LCD_X LCALL LCDP2 JMP CONV3CONV2: LCALL SHOW_DIG2 ;显示数据CONV3: INC LCD_X MOV A,72H ;十位 LCALL SHOW_DIG2 INC LCD_X MOV A,71H ;个位 LCALL SHOW_DIG2 INC LCD_X MOV A,#. MOV B,LCD_X LCALL LCDP2 MO

27、V A,70H ;加载小数点位 INC LCD_X ;设置显示位置 LCALL SHOW_DIG2 ;显示数据 RET;* 第二行显示数字子程序 *SHOW_DIG2:ADD A,#30H MOV B,LCD_X LCALL LCDP2 RET;* 第二行显示数字子程序 *LCDP2: PUSH ACC MOV A,B ;设置显示地址 ADD A,#0C0H ;设置LCD的第二行地址 LCALL WCOM ;写入命令 POP ACC ;由堆栈取出A LCALL WDATA ;写入数据 RET;* 对 LCD 做初始化设置及测试*SET_LCD: CLR LCD_EN LCALL INIT_LC

28、D ;初始化 LCD LCALL STORE_DATA ;将自定义字符存入LCD的CGRAM RET;* LCD初始化 *INIT_LCD: MOV A,#38H ;2行显示，字形5*7点阵 LCALL WCOM LCALL DELAY1 MOV A,#38H LCALL WCOM LCALL DELAY1 MOV A,#38H LCALL WCOM LCALL DELAY1 MOV A,#0CH ;开显示，显示光标，光标不闪烁 LCALL WCOM LCALL DELAY1 MOV A,#01H ;清除 LCD 显示屏 LCALL WCOM LCALL DELAY1 RET;* 清除LCD的

29、第一行字符 *CLR_LINE1:MOV A,#80H ;设置 LCD 的第一行地址 LCALL WCOM MOV R0,#24 ;设置计数值 C1: MOV A,# ;载入空格符至LCD LCALL WDATA ;输出字符至LCD DJNZ R0,C1 ;计数结束 RET;* LCD的第一行或第二行显示字符 *LCD_PRINT:CJNE A,#1,LINE2 ;判断是否为第一行 LINE1: MOV A,#80H ;设置 LCD 的第一行地址 LCALL WCOM ;写入命令 LCALL CLR_LINE ;清除该行字符数据 MOV A,#80H ;设置 LCD 的第一行地址 LCALL WCOM ;写入命令 JMP FILL LINE2: MOV A,#0C0H ;设置 LCD 的第二行地址 LCALL WCO