基于51單片機的DS18B20溫度+LCD顯示(匯編編寫)
單片機源程序如下:
- 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.3
- 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
-
- ORG 0030H
- 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,[ DISCUZ_CODE_1 ]nbsp; ; 時序要求延時一段時間
- 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,[ DISCUZ_CODE_1 ]nbsp; ;總線復位保持16微妙以上
- rrc a ;把一個字節DATA 分成8個BIT環移給C
- mov date_line,c ;寫入一個BIT
- mov r3,#3CH
- djnz r3,[ DISCUZ_CODE_1 ]nbsp; ;等待100微妙
- setb date_line ;重新釋放總線
- nop
- djnz r2,wr1 ;寫入下一個BIT
- setb date_line
- ret
- ;--------------------------------------------------------------------
- read: mov r4,#4 ; 將溫度低位、高位、TH、TL從DS18B20中讀出
- mov r1,#TEMPL ; 存入25H、26H、27H、28H
- re00: mov r2,#8
- re01: clr cy
- setb date_line
- nop
- nop
- clr date_line ;讀前總線保持為低
- nop
- nop
- nop
- setb date_line ;開始讀總線釋放
- mov r3,#09 ;延時18微妙
- djnz r3,$
- mov c,date_line ;從DS18B20總線讀得一個BIT
- mov r3,#3CH
- djnz r3,[ DISCUZ_CODE_1 ]nbsp; ;等待100微妙
- rrc a ;把讀得的位值環移給A
- djnz r2,re01 ;讀下一個BIT
- mov @r1,a
- inc r1
- djnz r4,re00
- ret
- ;*****************************************************
- ; 處理溫度 BCD 碼子程序
- ;****************************************************
- CONVTEMP: MOV A,TEMPH ;判溫度是否零下
- ANL A,#80H
- JZ TEMPC1 ;溫度零上轉
- 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
- SJMP TEMPC11
- TEMPC1: MOV TEMPHC,#0AH ;+
- TEMPC11: MOV A,TEMPHC
- SWAP A
- MOV TEMPHC,A
- MOV A,TEMPL
- ANL A,#0FH ;乘0.0625
- MOV DPTR,#TEMPDOTTAB
- 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 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,A
- TEMPC12: RET
- ;---------------------------------------------------------------
- HEX2BCD1:
- MOV B,#064H ;十六進制-> BCD
- DIV AB ;B= A % 100
- MOV R4,A ;R7 = 百位數
- MOV A,#0AH
- XCH A,B
- DIV AB ;B = A % B
- SWAP A
- ORL A,B
- RET
- ;-------------------------------------------------------------
- ; 小數部分碼表
- ;-------------------------------------------------------------
- TEMPDOTTAB:
- DB 00H,00H,01H,01H,02H,03H,03H,04H
- DB 05H,05H,06H,06H,07H,08H,08H,09H
- ;=====================================================
- LOOK_ALARM:
- MOV DPTR,#M_ALAX2 ;指針指到顯示信息區
- MOV A,#2 ;顯示在第二行
- CALL LCD_PRINT
- MOV A,#0C6H
- CALL TEMP_BJ1
- MOV A,TEMP_TH ;加載TH數據
- MOV LCD_X,#3 ;設置位置
- CALL SHOW_DIG2H ;顯示數據
- MOV A,#0CEH
- CALL TEMP_BJ1
- MOV A,TEMP_TL ;加載TL數據
- MOV LCD_X,#12 ;設置位置
- CALL SHOW_DIG2L ;顯示數據
- RET
- ;--------------------------------------------
- M_ALAX1:
- DB " LOOK ALERT CODE",0
- M_ALAX2:
- DB "TH: TL: ",0
- ;--------------------------------------------
- TEMP_BJ1:
- CALL WCOM
- MOV DPTR,#BJ2 ;指針指到顯示信息區
- MOV R1,#0
- MOV R0,#2
- BBJJ2: MOV A,R1
- MOVC A,@A+DPTR
- CALL WDATA
- INC R1
- DJNZ R0,BBJJ2
- RET
- BJ2:
- DB 00H,"C"
- ;---------------------------------------------------
- SHOW_DIG2H: ;在 LCD 的第二行顯示數字
- MOV B,#100
- DIV AB
- ADD A,#30H
- PUSH B
- MOV B,LCD_X
- CALL LCDP2
- POP B
- MOV A,#0AH
- XCH A,B
- DIV AB
- ADD A,#30H
- INC LCD_X
- PUSH B
- MOV B,LCD_X
- CALL LCDP2
- POP B
- INC LCD_X
- MOV A,B
- MOV B,LCD_X
- ADD A,#30H
- CALL LCDP2
- RET
- SHOW_DIG2L: ;在 LCD 的第二行顯示數字
- MOV B,#100
- DIV AB
- MOV A,#0AH
- XCH A,B
- DIV AB
- ADD A,#30H
- PUSH B
- MOV B,LCD_X
- CALL LCDP2
- POP B
- INC LCD_X
- MOV A,B
- MOV B,LCD_X
- ADD A,#30H
- CALL 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 ;百位
- MOV A,TEMPHC
- ANL A,#0F0H
- CJNE A,#010H,DISPBCD0
- SJMP DISPBCD2
- DISPBCD0: MOV A,TEMPHC
- ANL A,#0FH
- JNZ DISPBCD2 ;十位數是0
- MOV A,TEMPHC
- SWAP A
- ANL A,#0FH
- MOV 73H,#0AH ;符號位不顯示
- MOV 72H,A ;十位數顯示符號
- DISPBCD2: RET
- ;==========================================================
- ; LCD 1602 顯示子程序
- ;==========================================================
- CONV:
- MOV A,73H ;加載百位數據
- MOV LCD_X,#6 ;設置位置
- CJNE A,#1,CONV1
- JMP CONV2
- CONV1: MOV A,#" "
- MOV B,LCD_X
- CALL LCDP2
- JMP CONV3
- CONV2: CALL SHOW_DIG2 ;顯示數據
- CONV3: INC LCD_X ;
- mov a,72h ;十位
- CALL SHOW_DIG2
- inc LCD_X
- mov a,71h ;個位
- CALL SHOW_DIG2
- inc LCD_X
- MOV A,#'.'
- MOV B,LCD_X
- CALL LCDP2
- MOV A,70h ;加載小數點位
- INC LCD_X ;設置位置
- CALL SHOW_DIG2 ;顯示數據
- RET
- ;-------------------------------------------------------
- SHOW_DIG2: ;在 LCD 的第二行顯示數字
- ADD A,#30H
- MOV B,LCD_X
- CALL LCDP2
- RET
- ;---------------------------------------------------------
- LCDP2: ;在LCD的第二行顯示字符
- PUSH ACC ;
- MOV A,B ;設置顯示地址
- ADD A,#0C0H ;設置LCD的第二行地址
- CALL WCOM ;寫入命令
- POP ACC ;由堆棧取出A
- CALL WDATA ;寫入數據
- RET
- ;---------------------------------------------------------
- SET_LCD: ;對 LCD 做初始化設置及測試
- CLR LCD_EN
- CALL INIT_LCD ;初始化 LCD
- CALL STORE_DATA ;將自定義字符存入LCD的CGRAM
- RET
- INIT_LCD: ;8位I/O控制 LCD 接口初始化
- MOV A,#38H ;雙列顯示，字形5*7點陣
- CALL WCOM
- call delay1
- MOV A,#38H
- CALL WCOM
- call delay1
- MOV A,#38H
- CALL WCOM
- call delay1
- MOV A,#0CH ;開顯示，顯示光標，光標不閃爍
- CALL WCOM
- call delay1
- MOV A,#01H ;清除 LCD 顯示屏
- CALL WCOM
- call delay1
- RET
- ;==================================================
- CLR_LINE1: ;清除LCD的第一行字符
- MOV A,#80H ;設置 LCD 的第一行地址
- CALL WCOM ;
- MOV R0,#24 ;設置計數值
- C1: MOV A,#' ' ;載入空格符至LCD
- CALL WDATA ;輸出字符至LCD
- DJNZ R0,C1 ;計數結束
- RET
- ;==================================================
- LCD_PRINT: ;在LCD的第一行或第二行顯示字符
- CJNE A,#1,LINE2 ;判斷是否為第一行
- LINE1: MOV A,#80H ;設置 LCD 的第一行地址
- CALL WCOM ;寫入命令
- CALL CLR_LINE ;清除該行字符數據
- MOV A,#80H ;設置 LCD 的第一行地址
- CALL WCOM ;寫入命令
- JMP FILL
- LINE2: MOV A,#0C0H ;設置 LCD 的第二行地址
- CALL WCOM ;寫入命令
- CALL CLR_LINE ;清除該行字符數據
- MOV A,#0C0H ;設置 LCD 的第二行地址
- CALL WCOM
- FILL: CLR A ;填入字符
- MOVC A,@A+DPTR ;由消息區取出字符
- CJNE A,#0,LC1 ;判斷是否為結束碼
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
所有資料51hei提供下載:
單片機DS18B20.rar
(79.88 KB, 下載次數: 148)
2017-9-2 09:56 上傳
點擊文件名下載附件
|
[復制鏈接]
