?? lcd18b20.asm
字號:
/********************************************************************************
* 標題: xl系列單片機實驗儀演示程序 DS18B20溫度控制lcd1602顯示 *
* 文件: lcd18b20.asm *
* 日期: 2006-1-5 *
* 版本: 3.0 （試驗通過版）可用xl600-xl1000單片機綜合試驗儀試驗 *
* 郵箱: sxj1974@163.com *
* 網站： http://www.51c51.com www.8951.com *
;********************************************************************************
;* 描述: *
;* DS18B20的管腳定義：1、GND 2、DQ 3、VCC *
;溫度顯示用四位，當溫度>=100度時，第四位才顯示。 *
;檢測 DS18B20 狀態： *
;DS18B20正常顯示：DS18B20 OK TEMP: 25.8℃ ← 顯示實際溫 *
;DS18B20不正常顯示：DS18B20 ERROR TEMP: ----℃ ← 顯示－－－－ *
;一、查看溫度報警值： *
;K1 → 進入查看溫度報警值狀態。 *
;LCD 1602 顯示： LOOK ALERT CODE TH:028℃ TL:18℃ TH:028 高位報警值 *
;TL:18 低位報警值 K3 → 退出查看溫度報警值狀態。 *
;二、設定溫度報警值： *
;K2 → 進入設定溫度報警值狀態? *
;LCD 1602 顯示：RESET ALERT CODE TH:028℃ TL:18℃ *
;K1 : 設定值加(UP)、減(DOWN)方式選擇鍵（默認為減少）K2 : TH值設定鍵 *
;K3 : TL值設定鍵 K4 : 確定鍵 （退出設定狀態） *
; K2 或 K3 以減(DOWN)方式設定，當設定數值減到“0”時自動轉換為加(UP)方 *
; K2 或 K3 以加(UP)方式設定，當設定數值 TH=120、TL=99 時，設定數值均變為“0” *
;K4 → 確定并退出設定溫度報警值狀態。 *
;將設定的溫度報警值自動存入 DS18B20 的 EEROM 中，可永久保存。 *
;每次開機時自動從 DS18B20 的 EEROM 讀出溫度報警值。 *
;三、報警狀態的顯示： *
;1、當實際溫度大于 TH 的設定值時， *
; LCD1602 顯示： DS18B20 OK TEMP: 88.8℃ > H 關閉繼電器，蜂鳴器響，表示超溫 *
;2、當實際溫度小于 TL 的設定值時，LCD1602 顯示： *
; DS18B20 OK TEMP: 18.8℃ < L蜂鳴器響，表示加熱部分出現故障。 *
;3、當實際溫度小于 TH 的設定值時，繼電器吸合，開始加熱。 *
; 加熱標記為“!” *
;* 資源： 繼電器p1.0 喇叭p3.7 18b20 p3.3 按鍵k1-k4 p1.4-p1.7 1602液晶 *
;********************************************************************************
* 【版權】 Copyright(C)深圳市學林電子有限公司 www.51c51.com *
* 【聲明】 此程序僅用于學習與參考，引用請注明版權和作者信息！ *
* 【技術支持】請訪問http://www.51c51.com/bbs/index.asp 官方論壇 *
********************************************************************************/
TEMP_ZH DATA 24H ;實時溫度值存放單元
TEMPL DATA 25H ;
TEMPH DATA 26H ;
TEMP_TH DATA 27H ;高溫報警值存放單元
TEMP_TL DATA 28H ;低溫報警值存放單元
TEMPHC DATA 29H ;
TEMPLC DATA 2AH
K1 EQU P1.4
K2 EQU P1.5
K3 EQU P1.6
K4 EQU P1.7
BEEP EQU P3.7
RELAY EQU P1.0
LCD_X EQU 2FH ;LCD 地址變量
LCD_RS EQU P2.0
LCD_RW EQU P2.1
LCD_EN EQU P2.2
flag1 equ 20H.0 ;DS18B20是否存在標記
KEY_UD EQU 20H.1 ;設定 KEY 的UP與DOWN 標記
date_line equ p3.3
;=====================================================
ORG 0000H
JMP MAIN
MAIN: MOV SP,#60H
MOV A,#00H
MOV R0,#20H ;將 20H-2FH 單元清零
MOV R1,#10H
CLEAR: MOV @R0,A
INC R0
DJNZ R1,CLEAR
CALL SET_LCD
CALL RE_18B20
start: CALL RESET ;18B20復位子程序
JNB FLAG1,START1 ;DS1820不存在
CALL MENU_OK
CALL READ_E2
CALL TEMP_BJ ;顯示溫度標記
JMP START2
START1: CALL MENU_ERROR
CALL TEMP_BJ ;顯示溫度標記
JMP $
START2:
CALL RESET
JNB FLAG1,START1 ;DS1820不存在
MOV A,#0CCH ; 跳過ROM匹配
CALL WRITE
MOV A,#44H ; 發出溫度轉換命令
CALL WRITE
CALL RESET
MOV A,#0CCH ; 跳過ROM匹配
CALL WRITE
MOV A,#0BEH ; 發出讀溫度命令
CALL WRITE
CALL READ
call CONVTEMP
Call DISPBCD
CALL CONV
CALL TEMP_COMP
CALL PROC_KEY ; 鍵掃描
SJMP START2
;-----------------------------------------------------
PROC_KEY:
JB K1,PROC_K1 ; 按鍵K1處理
CALL BEEP_BL
JNB K1,$
MOV DPTR,#M_ALAX1
MOV A,#1
CALL LCD_PRINT
CALL LOOK_ALARM
JB K3,$
CALL BEEP_BL
JMP PROC_K2
PROC_K1: ; 按鍵K2處理
JB K2,PROC_END
CALL BEEP_BL
JNB K2,$
MOV DPTR,#RESET_A1
MOV A,#1
CALL LCD_PRINT
CALL SET_ALARM
CALL RE_18B20 ;將設定的TH,TL值寫入DS18B20內
CALL WRITE_E2
PROC_K2:
CALL MENU_OK
CALL TEMP_BJ
PROC_END:
RET
;============================================
;設定報警值 TH、TL
;============================================
SET_ALARM:
;CALL RESET_ALARM
CALL LOOK_ALARM
AS0:
JB K1,AS00
CALL BEEP_BL
JNB K1,$
CPL 20H.1 ;UP/DOWN 標記
AS00: JB 20H.1,ASZ01 ;20H.1=1，UP
JMP ASJ01 ;20H.1=0，DOWN
ASZ01: JB K2,ASZ02 ;TH值調整（增加）
CALL BEEP_BL
INC TEMP_TH
MOV A,TEMP_TH
CJNE A,#120,ASZ011
MOV TEMP_TH,#0
ASZ011: CALL LOOK_ALARM
MOV R5,#10
CALL DELAY
JMP ASZ01
ASZ02: JB K3,ASZ03 ;TL值調整（增加）
CALL BEEP_BL
INC TEMP_TL
MOV A,TEMP_TL
CJNE A,#99,ASZ021
MOV TEMP_TL,#00H
ASZ021: CALL LOOK_ALARM ;
MOV R5,#10
CALL DELAY
JMP ASZ02
ASZ03: JB K4,AS0 ;確定調整 OK
CALL BEEP_BL
JNB K4,$
RET
ASJ01:
JB K2,ASJ02 ;TH值調整 （減少）
CALL BEEP_BL
DEC TEMP_TH
MOV A,TEMP_TH
CJNE A,#0FFH,ASJ011
JMP ASJ022
ASJ011: CALL LOOK_ALARM
MOV R5,#10
CALL DELAY
JMP AS0
ASJ02: JB K3,ASJ03 ;TL值調整（減少）
CALL BEEP_BL
DEC TEMP_TL
MOV A,TEMP_TL
CJNE A,#0FFH,ASJ021
JMP ASJ022
ASJ021: CALL LOOK_ALARM ;
MOV R5,#10
CALL DELAY
JMP AS0
ASJ022: CPL 20H.1
JMP ASZ01
ASJ03: JMP ASZ03
RET
RESET_ALARM:
MOV DPTR,#RESET_A1 ;指針指到顯示信息區
MOV A,#1 ;顯示在第一行
CALL LCD_PRINT
RET
RESET_A1:
DB "RESET ALERT CODE"
;====================================================
;實際溫度值與標記溫度值比較子程序
;====================================================
TEMP_COMP:
MOV A,TEMP_TH
SUBB A,TEMP_ZH ;減數>被減數，則
JC CHULI1 ;借位標志位C=1，轉
MOV A,TEMP_ZH
SUBB A,TEMP_TL ;減數>被減數，則
JC CHULI2 ;借位標志位C=1，轉
MOV DPTR,#BJ5
CALL TEMP_BJ3
CLR RELAY ;繼電器吸合
RET
CHULI1:
MOV DPTR,#BJ3
CALL TEMP_BJ3
SETB RELAY ;繼電器關閉
CALL BEEP_BL
RET
CHULI2:
MOV DPTR,#BJ4
CALL TEMP_BJ3
CALL BEEP_BL
RET
;-----------------------------------------
TEMP_BJ3:
MOV A,#0CEH
CALL WCOM
MOV R1,#0
MOV R0,#2
BBJJ3: MOV A,R1
MOVC A,@A+DPTR
CALL WDATA
INC R1
DJNZ R0,BBJJ3
RET
BJ3:
DB ">H"
BJ4:
DB "<L"
BJ5:
DB " !"
;==================================================
;顯示溫度標記子程序
;==================================================
TEMP_BJ:
MOV A,#0CBH
CALL WCOM
MOV DPTR,#BJ1 ;指針指到顯示消息
MOV R1,#0
MOV R0,#2
BBJJ1: MOV A,R1
MOVC A,@A+DPTR
CALL WDATA
INC R1
DJNZ R0,BBJJ1
RET
BJ1:
DB 00H,"C"
;=================================================
MENU_OK:
MOV DPTR,#M_OK1 ;指針指到顯示消息
MOV A,#1 ;顯示在第一行
CALL LCD_PRINT
MOV DPTR,#M_OK2 ;指針指到顯示消息
MOV A,#2 ;顯示在第一行
CALL LCD_PRINT
RET
M_OK1:
DB " DS18B20 OK ",0
M_OK2:
DB " TEMP: ",0
;-----------------------------------------------
MENU_ERROR:
MOV DPTR,#M_ERROR1 ;指針指到顯示消息1
MOV A,#1 ;顯示在第一行
CALL LCD_PRINT
MOV DPTR,#M_ERROR2 ;指針指到顯示消息1
MOV A,#2 ;顯示在第一行
CALL LCD_PRINT
RET
M_ERROR1:
DB " DS18B20 ERROR ",0
M_ERROR2:
DB " TEMP: ---- ",0
;====================================================
reset: setb date_line
nop
clr date_line
mov r0,#6bh ;主機發出延時復位低脈沖
mov r1,#04h
tsr1: djnz r0,$
mov r0,#6bh
djnz r1,tsr1
setb date_line ;然后拉高數據線
nop
nop
nop
mov r0,#32h
tsr2: jnb date_line,tsr3 ;等待DS18B20回應
djnz r0,tsr2
jmp tsr4 ; 延時
tsr3: setb flag1 ; 置標志位,表示DS1820存在
jmp tsr5
tsr4: clr flag1 ; 清標志位,表示DS1820不存在
jmp tsr7
tsr5: mov r0,#06bh
tsr6: djnz r0,$ ; 時序要求延時一段時間
tsr7: setb date_line
ret
;=======================================================
RE_18B20:
JB FLAG1,RE_18B20A
RET
RE_18B20A:
CALL RESET
MOV A,#0CCH ;跳過ROM匹配
LCALL WRITE
MOV A,#4EH ;寫暫存寄存器
LCALL WRITE
MOV A,TEMP_TH ;TH(報警上限）
LCALL WRITE
MOV A,TEMP_TL ;TL(報警下限）
LCALL WRITE
MOV A,#7FH ;12位精確度
LCALL WRITE
RET
;------------------------------------------------------------
WRITE_E2:
CALL RESET
MOV A,#0CCH ;跳過ROM匹配
LCALL WRITE
MOV A,#48H ;把暫存器里的溫度報警值拷貝到EEROM
LCALL WRITE
RET
;--------------------------------------------------------------
READ_E2:
CALL RESET
MOV A,#0CCH ;跳過ROM匹配
LCALL WRITE
MOV A,#0B8H ;把EEROM里的溫度報警值拷貝回暫存器
CALL WRITE
RET
;--------------------------------------------------------------
;將自定義字符寫入LCD1602的CGRAM中
;--------------------------------------------------------------
STORE_DATA:
MOV A,#40H
CALL WCOM
MOV R2,#08H
MOV DPTR,#D_DATA
MOV R3,#00H
S_DATA:
MOV A,R3
MOVC A,@A+DPTR
CALL WDATA ;寫入數據
INC R3
DJNZ R2,S_DATA
RET
D_DATA:
DB 0CH,12H,12H,0CH,00H,00H,00H,00H
;==============================================================
write: mov r2,#8 ;一共8位數據
CLR C
wr1:
clr date_line ;開始寫入DS18B20總線要處于復位（低）狀態
mov r3,#07
djnz r3,$ ;總線復位保持16微妙以上
rrc a ;把一個字節DATA 分成8個BIT環移給C
mov date_line,c ;寫入一個BIT
mov r3,#3CH
djnz r3,$ ;等待100微妙
setb date_line ;重新釋放總線
nop
djnz r2,wr1 ;寫入下一個BIT
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -