* ;* DS18B20的管腳定義：1、GND2、DQ3、VCC*
;溫度顯示用四位，當溫度>=100度時，第四位才顯示。*
;檢測DS18B20狀態(tài)：*
;DS18B20正常顯示：DS18B20OKTEMP:25.8℃←顯示實際溫*
;DS18B20不正常顯示：DS18B20ERRORTEMP:----℃←顯示－－－－*
;一、查看溫度報警值：*
;K1→進入查看溫度報警值狀態(tài)。*
;LCD1602顯示：LOOKALERTCODETH:028℃TL:18℃TH:028高位報警值*
;TL:18低位報警值K3→退出查看溫度報警值狀態(tài)。*
;二、設定溫度報警值：*
;K2→進入設定溫度報警值狀態(tài)?*
;LCD1602顯示：RESETALERTCODETH:028℃TL:18℃*
;K1:設定值加(UP)、減(DOWN)方式選擇鍵（默認為減少）K2:TH值設定鍵*
;K3:TL值設定鍵K4:確定鍵（退出設定狀態(tài)）*
;K2或K3以減(DOWN)方式設定，當設定數(shù)值減到“0”時自動轉換為加(UP)方*
;K2或K3以加(UP)方式設定，當設定數(shù)值TH=120、TL=99時，設定數(shù)值均變?yōu)椤?”*
;K4→確定并退出設定溫度報警值狀態(tài)。*
;將設定的溫度報警值自動存入DS18B20的EEROM中，可永久保存。*
;每次開機時自動從DS18B20的EEROM讀出溫度報警值。*
;三、報警狀態(tài)的顯示：*
;1、當實際溫度大于TH的設定值時，*
;LCD1602顯示：DS18B20OKTEMP:88.8℃>H關閉繼電器，蜂鳴器響，表示超溫*
;2、當實際溫度小于TL的設定值時，LCD1602顯示：*
;DS18B20OKTEMP:18.8℃;3、當實際溫度小于TH的設定值時，繼電器吸合，開始加熱。*
;加熱標記為“!”*
;*資源：繼電器p1.0喇叭p3.718b20p3.3按鍵k1-k4p1.4-p1.71602液晶*

TEMP_ZHDATA24H;實時溫度值存放單元
TEMPLDATA25H;
TEMPHDATA26H;
TEMP_THDATA27H;高溫報警值存放單元
TEMP_TLDATA28H;低溫報警值存放單元
TEMPHCDATA29H;
TEMPLCDATA2AH

K1EQUP1.4
K2EQUP1.5
K3EQUP1.6
K4EQUP1.7

BEEPEQUP3.7
RELAYEQUP1.0
LCD_XEQU2FH;LCD地址變量
LCD_RSEQUP2.0
LCD_RWEQUP2.1
LCD_ENEQUP2.2
flag1equ20H.0;DS18B20是否存在標記
KEY_UDEQU20H.1;設定KEY的UP與DOWN標記
date_lineequp3.3
;=====================================================
ORG0000H
JMPMAIN

MAIN:MOVSP,#60H
MOVA,#00H
MOVR0,#20H;將20H-2FH單元清零
MOVR1,#10H
CLEAR:MOV@R0,A
INCR0
DJNZR1,CLEAR

CALLSET_LCD
CALLRE_18B20

start:CALLRESET;18B20復位子程序
JNBFLAG1,START1;DS1820不存在
CALLMENU_OK
CALLREAD_E2
CALLTEMP_BJ;顯示溫度標記
JMPSTART2
START1:CALLMENU_ERROR
CALLTEMP_BJ;顯示溫度標記
JMP$

START2:
CALLRESET
JNBFLAG1,START1;DS1820不存在
MOVA,#0CCH;跳過ROM匹配
CALLWRITE
MOVA,#44H;發(fā)出溫度轉換命令
CALLWRITE
CALLRESET
MOVA,#0CCH;跳過ROM匹配
CALLWRITE
MOVA,#0BEH;發(fā)出讀溫度命令
CALLWRITE
CALLREAD
callCONVTEMP
CallDISPBCD
CALLCONV
CALLTEMP_COMP
CALLPROC_KEY;鍵掃描

SJMPSTART2
;-----------------------------------------------------
PROC_KEY:
JBK1,PROC_K1;按鍵K1處理
CALLBEEP_BL
JNBK1,$
MOVDPTR,#M_ALAX1
MOVA,#1
CALLLCD_PRINT
CALLLOOK_ALARM
JBK3,$
CALLBEEP_BL
JMPPROC_K2
PROC_K1:;按鍵K2處理
JBK2,PROC_END
CALLBEEP_BL
JNBK2,$
MOVDPTR,#RESET_A1
MOVA,#1
CALLLCD_PRINT
CALLSET_ALARM
CALLRE_18B20;將設定的TH,TL值寫入DS18B20內
CALLWRITE_E2
PROC_K2:
CALLMENU_OK
CALLTEMP_BJ
PROC_END:
RET
;============================================
;設定報警值TH、TL
;============================================
SET_ALARM:
;CALLRESET_ALARM
CALLLOOK_ALARM
AS0:
JBK1,AS00
CALLBEEP_BL
JNBK1,$
CPL20H.1;UP/DOWN標記
AS00:JB20H.1,ASZ01;20H.1=1，UP
JMPASJ01;20H.1=0，DOWN

ASZ01:JBK2,ASZ02;TH值調整（增加）
CALLBEEP_BL
INCTEMP_TH
MOVA,TEMP_TH
CJNEA,#120,ASZ011
MOVTEMP_TH,#0
ASZ011:CALLLOOK_ALARM
MOVR5,#10
CALLDELAY
JMPASZ01

ASZ02:JBK3,ASZ03;TL值調整（增加）
CALLBEEP_BL
INCTEMP_TL
MOVA,TEMP_TL
CJNEA,#99,ASZ021
MOVTEMP_TL,#00H
ASZ021:CALLLOOK_ALARM;
MOVR5,#10
CALLDELAY
JMPASZ02
ASZ03:JBK4,AS0;確定調整OK
CALLBEEP_BL
JNBK4,$
RET

ASJ01:
JBK2,ASJ02;TH值調整（減少）
CALLBEEP_BL
DECTEMP_TH
MOVA,TEMP_TH
CJNEA,#0FFH,ASJ011
JMPASJ022
ASJ011:CALLLOOK_ALARM
MOVR5,#10
CALLDELAY
JMPAS0

ASJ02:JBK3,ASJ03;TL值調整（減少）
CALLBEEP_BL
DECTEMP_TL
MOVA,TEMP_TL
CJNEA,#0FFH,ASJ021
JMPASJ022
ASJ021:CALLLOOK_ALARM;
MOVR5,#10
CALLDELAY
JMPAS0
ASJ022:CPL20H.1
JMPASZ01
ASJ03:JMPASZ03
RET


RESET_ALARM:
MOVDPTR,#RESET_A1;指針指到顯示信息區(qū)
MOVA,#1;顯示在第一行
CALLLCD_PRINT
RET
RESET_A1:
DB"RESETALERTCODE"
;====================================================
;實際溫度值與標記溫度值比較子程序
;====================================================
TEMP_COMP:
MOVA,TEMP_TH
SUBBA,TEMP_ZH;減數(shù)>被減數(shù)，則
JCCHULI1;借位標志位C=1，轉
MOVA,TEMP_ZH
SUBBA,TEMP_TL;減數(shù)>被減數(shù)，則
JCCHULI2;借位標志位C=1，轉
MOVDPTR,#BJ5
CALLTEMP_BJ3
CLRRELAY;繼電器吸合
RET
CHULI1:
MOVDPTR,#BJ3
CALLTEMP_BJ3
SETBRELAY;繼電器關閉
CALLBEEP_BL
RET
CHULI2:
MOVDPTR,#BJ4
CALLTEMP_BJ3
CALLBEEP_BL
RET
;-----------------------------------------
TEMP_BJ3:
MOVA,#0CEH
CALLWCOM
MOVR1,#0
MOVR0,#2

BBJJ3:MOVA,R1
MOVCA,@A+DPTR
CALLWDATA
INCR1
DJNZR0,BBJJ3
RET
BJ3:
DB">H"
BJ4:
DB"BJ5:
DB"!"
;==================================================
;顯示溫度標記子程序
;==================================================
TEMP_BJ:
MOVA,#0CBH
CALLWCOM
MOVDPTR,#BJ1;指針指到顯示消息
MOVR1,#0
MOVR0,#2

BBJJ1:MOVA,R1
MOVCA,@A+DPTR
CALLWDATA
INCR1
DJNZR0,BBJJ1
RET
BJ1:
DB00H,"C"
;=================================================
MENU_OK:

MOVDPTR,#M_OK1;指針指到顯示消息
MOVA,#1;顯示在第一行
CALLLCD_PRINT
MOVDPTR,#M_OK2;指針指到顯示消息
MOVA,#2;顯示在第一行
CALLLCD_PRINT

RET
M_OK1:
DB"DS18B20OK",0
M_OK2:
DB"TEMP:",0
;-----------------------------------------------
MENU_ERROR:
MOVDPTR,#M_ERROR1;指針指到顯示消息1
MOVA,#1;顯示在第一行
CALLLCD_PRINT
MOVDPTR,#M_ERROR2;指針指到顯示消息1
MOVA,#2;顯示在第一行
CALLLCD_PRINT
RET
M_ERROR1:
DB"DS18B20ERROR",0
M_ERROR2:
DB"TEMP:----",0
;====================================================
reset:setbdate_line
nop
clrdate_line
MOVr0,#6bh;主機發(fā)出延時復位低脈沖
MOVr1,#04h
tsr1:djnzr0,$
MOVr0,#6bh
djnzr1,tsr1
setbdate_line;然后拉高數(shù)據線
nop
nop
nop
MOVr0,#32h
tsr2:jnbdate_line,tsr3;等待DS18B20回應
djnzr0,tsr2
jmptsr4;延時
tsr3:setbflag1;置標志位,表示DS1820存在
jmptsr5
tsr4:clrflag1;清標志位,表示DS1820不存在
jmptsr7
tsr5:MOVr0,#06bh
tsr6:djnzr0,$;時序要求延時一段時間
tsr7:setbdate_line
ret
;=======================================================
RE_18B20:
JBFLAG1,RE_18B20A
RET
RE_18B20A:
CALLRESET
MOVA,#0CCH;跳過ROM匹配
LCALLWRITE
MOVA,#4EH;寫暫存寄存器
LCALLWRITE
MOVA,TEMP_TH;TH(報警上限）
LCALLWRITE
MOVA,TEMP_TL;TL(報警下限）
LCALLWRITE
MOVA,#7FH;12位精確度
LCALLWRITE
RET
;------------------------------------------------------------
WRITE_E2:
CALLRESET
MOVA,#0CCH;跳過ROM匹配
LCALLWRITE
MOVA,#48H;把暫存器里的溫度報警值拷貝到EEROM
LCALLWRITE
RET
;--------------------------------------------------------------
READ_E2:
CALLRESET
MOVA,#0CCH;跳過ROM匹配
LCALLWRITE
MOVA,#0B8H;把EEROM里的溫度報警值拷貝回暫存器
CALLWRITE
RET
;--------------------------------------------------------------
;將自定義字符寫入LCD1602的CGRAM中
;--------------------------------------------------------------
STORE_DATA:
MOVA,#40H
CALLWCOM
MOVR2,#08H
MOVDPTR,#D_DATA
MOVR3,#00H
S_DATA:
MOVA,R3
MOVCA,@A+DPTR
CALLWDATA;寫入數(shù)據
INCR3
DJNZR2,S_DATA
RET

D_DATA:
DB0CH,12H,12H,0CH,00H,00H,00H,00H
;==============================================================
write:MOVr2,#8;一共8位數(shù)據
CLRC
wr1:
clrdate_line;開始寫入DS18B20總線要處于復位（低）狀態(tài)
MOVr3,#07
djnzr3,$;總線復位保持16微妙以上
rrca;把一個字節(jié)DATA分成8個BIT環(huán)移給C
MOVdate_line,c;寫入一個BIT
MOVr3,#3CH
djnzr3,$;等待100微妙
setbdate_line;重新釋放總線
nop
djnzr2,wr1;寫入下一個BIT
setbdate_line
ret
;--------------------------------------------------------------------
read:MOVr4,#4;將溫度低位、高位、TH、TL從DS18B20中讀出
MOVr1,#TEMPL;存入25H、26H、27H、28H
re00:MOVr2,#8
re01:clrcy
setbdate_line
nop
nop
clrdate_line;讀前總線保持為低
nop
nop
nop
setbdate_line;開始讀總線釋放
MOVr3,#09;延時18微妙
djnzr3,$
MOVc,date_line;從DS18B20總線讀得一個BIT
MOVr3,#3CH
djnzr3,$;等待100微妙
rrca;把讀得的位值環(huán)移給A
djnzr2,re01;讀下一個BIT
MOV@r1,a
incr1
djnzr4,re00
ret


;*****************************************************
;處理溫度BCD碼子程序
;****************************************************
CONVTEMP:MOVA,TEMPH;判溫度是否零下
ANLA,#80H
JZTEMPC1;溫度零上轉
CLRC
MOVA,TEMPL;二進制數(shù)求補（雙字節(jié)）
CPLA;取反加1
ADDA,#01H
MOVTEMPL,A
MOVA,TEMPH
CPLA
ADDCA,#00H
MOVTEMPH,A
SJMPTEMPC11

TEMPC1:MOVTEMPHC,#0AH;+
TEMPC11:MOVA,TEMPHC
SWAPA
MOVTEMPHC,A
MOVA,TEMPL
ANLA,#0FH;乘0.0625
MOVDPTR,#TEMPDOTTAB
MOVCA,@A+DPTR
MOVTEMPLC,A;TEMPLCLOW=小數(shù)部分BCD

MOVA,TEMPL;整數(shù)部分
ANLA,#0F0H;取出高四位
SWAPA
MOVTEMPL,A
MOVA,TEMPH;取出低四位
ANLA,#0FH
SWAPA
ORLA,TEMPL;重新組合
MOVTEMP_ZH,A
LCALLHEX2BCD1
MOVTEMPL,A
ANLA,#0F0H
SWAPA
ORLA,TEMPHC;TEMPHCLOW=十位數(shù)BCD
MOVTEMPHC,A
MOVA,TEMPL
ANLA,#0FH
SWAPA;TEMPLCHI=個位數(shù)BCD
ORLA,TEMPLC
MOVTEMPLC,A
MOVA,R4
JZTEMPC12
ANLA,#0FH
SWAPA
MOVR4,A
MOVA,TEMPHC;TEMPHCHI=百位數(shù)BCD
ANLA,#0FH
ORLA,R4
MOVTEMPHC,A
TEMPC12:RET
;---------------------------------------------------------------
HEX2BCD1:
MOVB,#064H;十六進制->BCD
DIVAB;B=A%100
MOVR4,A;R7=百位數(shù)
MOVA,#0AH
XCHA,B
DIVAB;B=A%B
SWAPA
ORLA,B
RET
;-------------------------------------------------------------
;小數(shù)部分碼表
;-------------------------------------------------------------
TEMPDOTTAB:
DB00H,00H,01H,01H,02H,03H,03H,04H
DB05H,05H,06H,06H,07H,08H,08H,09H
;=====================================================
LOOK_ALARM:

MOVDPTR,#M_ALAX2;指針指到顯示信息區(qū)
MOVA,#2;顯示在第二行
CALLLCD_PRINT

MOVA,#0C6H
CALLTEMP_BJ1
MOVA,TEMP_TH;加載TH數(shù)據
MOVLCD_X,#3;設置位置
CALLSHOW_DIG2H;顯示數(shù)據

MOVA,#0CEH
CALLTEMP_BJ1
MOVA,TEMP_TL;加載TL數(shù)據
MOVLCD_X,#12;設置位置
CALLSHOW_DIG2L;顯示數(shù)據
RET
;--------------------------------------------
M_ALAX1:
DB"LOOKALERTCODE",0
M_ALAX2:
DB"TH:TL:",0
;--------------------------------------------
TEMP_BJ1:
CALLWCOM
MOVDPTR,#BJ2;指針指到顯示信息區(qū)
MOVR1,#0
MOVR0,#2

BBJJ2:MOVA,R1
MOVCA,@A+DPTR
CALLWDATA
INCR1
DJNZR0,BBJJ2
RET
BJ2:
DB00H,"C"

;---------------------------------------------------
SHOW_DIG2H:;在LCD的第二行顯示數(shù)字
MOVB,#100
DIVAB
ADDA,#30H
PUSHB
MOVB,LCD_X
CALLLCDP2
POPB
MOVA,#0AH
XCHA,B
DIVAB
ADDA,#30H
INCLCD_X
PUSHB
MOVB,LCD_X
CALLLCDP2
POPB
INCLCD_X
MOVA,B
MOVB,LCD_X
ADDA,#30H
CALLLCDP2
RET

SHOW_DIG2L:;在LCD的第二行顯示數(shù)字
MOVB,#100
DIVAB
MOVA,#0AH
XCHA,B
DIVAB
ADDA,#30H
PUSHB
MOVB,LCD_X
CALLLCDP2
POPB
INCLCD_X
MOVA,B
MOVB,LCD_X
ADDA,#30H
CALLLCDP2
RET
;-------------------------------------------------------------
;顯示區(qū)BCD碼溫度值刷新子程序
;-------------------------------------------------------------
DISPBCD:
MOVA,TEMPLC
ANLA,#0FH
MOV70H,A;小數(shù)位
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,DISPBCD0
SJMPDISPBCD2

DISPBCD0:MOVA,TEMPHC
ANLA,#0FH
JNZDISPBCD2;十位數(shù)是0
MOVA,TEMPHC
SWAPA
ANLA,#0FH
MOV73H,#0AH;符號位不顯示
MOV72H,A;十位數(shù)顯示符號
DISPBCD2:RET

;==========================================================
;LCD1602顯示子程序
;==========================================================
CONV:
MOVA,73H;加載百位數(shù)據
MOVLCD_X,#6;設置位置
CJNEA,#1,CONV1
JMPCONV2
CONV1:MOVA,#""
MOVB,LCD_X
CALLLCDP2
JMPCONV3
CONV2:CALLSHOW_DIG2;顯示數(shù)據
CONV3:INCLCD_X;
MOVa,72h;十位
CALLSHOW_DIG2
incLCD_X
MOVa,71h;個位
CALLSHOW_DIG2
incLCD_X
MOVA,#’.’
MOVB,LCD_X
CALLLCDP2
MOVA,70h;加載小數(shù)點位
INCLCD_X;設置位置
CALLSHOW_DIG2;顯示數(shù)據
RET
;-------------------------------------------------------
SHOW_DIG2:;在LCD的第二行顯示數(shù)字
ADDA,#30H
MOVB,LCD_X
CALLLCDP2
RET
;---------------------------------------------------------
LCDP2:;在LCD的第二行顯示字符
PUSHACC;
MOVA,B;設置顯示地址
ADDA,#0C0H;設置LCD的第二行地址
CALLWCOM;寫入命令
POPACC;由堆棧取出A
CALLWDATA;寫入數(shù)據
RET
;---------------------------------------------------------


SET_LCD:;對LCD做初始化設置及測試
CLRLCD_EN
CALLINIT_LCD;初始化LCD
CALLSTORE_DATA;將自定義字符存入LCD的CGRAM
RET
INIT_LCD:;8位I/O控制LCD接口初始化
MOVA,#38H;雙列顯示，字形5*7點陣
CALLWCOM
calldelay1
MOVA,#38H
CALLWCOM
calldelay1

MOVA,#38H
CALLWCOM
calldelay1
MOVA,#0CH;開顯示，顯示光標，光標不閃爍
CALLWCOM
calldelay1
MOVA,#01H;清除LCD顯示屏
CALLWCOM
calldelay1
RET
;==================================================
CLR_LINE1:;清除LCD的第一行字符
MOVA,#80H;設置LCD的第一行地址
CALLWCOM;
MOVR0,#24;設置計數(shù)值
C1:MOVA,#’’;載入空格符至LCD
CALLWDATA;輸出字符至LCD
DJNZR0,C1;計數(shù)結束
RET
;==================================================
LCD_PRINT:;在LCD的第一行或第二行顯示字符

CJNEA,#1,LINE2;判斷是否為第一行
LINE1:MOVA,#80H;設置LCD的第一行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據
MOVA,#80H;設置LCD的第一行地址
CALLWCOM;寫入命令
JMPFILL

LINE2:MOVA,#0C0H;設置LCD的第二行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據
MOVA,#0C0H;設置LCD的第二行地址
CALLWCOM
FILL:CLRA;填入字符
MOVCA,@A+DPTR;由消息區(qū)取出字符
CJNEA,#0,LC1;判斷是否為結束碼
RET
LC1:CALLWDATA;寫入數(shù)據
INCDPTR;指針加1
JMPFILL;繼續(xù)填入字符
RET
;=========================================
CLR_LINE:;清除該行LCD的字符
MOVR0,#24
CL1:MOVA,#’’
CALLWDATA
DJNZR0,CL1
RET
DE:MOVR7,#250
DJNZR7,$
RET
;============================================
WCOM:;以8位控制方式將命令寫至LCD
MOVP0,A;寫入命令
CLRLCD_RS;RS=L,RW=L,D0-D7=指令碼，E=高脈沖
CLRLCD_RW
SETBLCD_EN
ACALLDELAY1
CLRLCD_EN
RET
;=============================================
WDATA:;以8位控制方式將數(shù)據寫至LCD
MOVP0,A;寫入數(shù)據
SETBLCD_RS
CLRLCD_RW
SETBLCD_EN
CALLDE
CLRLCD_EN
CALLDE
RET
;=============================================
;PRINTACHARONLINE1
;A=ASCDATA,B=LINEXPOS
;==============================================
LCDP1:;在LCD的第一行顯示字符
PUSHACC;
MOVA,B;設置顯示地址
ADDA,#80H;設置LCD的第一行地址
CALLWCOM;寫入命令
POPACC;由堆棧取出A
CALLWDATA;寫入數(shù)據
RET

;==============================================
BEEP_BL:
MOVR6,#100
BL2:CALLDEX1
CPLBEEP
DJNZR6,BL2
MOVR5,#10
CALLDELAY
RET
DEX1:MOVR7,#180
DE2:NOP
DJNZR7,DE2
RET
DELAY:;(R5)*延時10MS
MOVR6,#50
DL1:MOVR7,#100
DJNZR7,$
DJNZR6,DL1
DJNZR5,DELAY
RET

DELAY1:;延時5MS
MOVR6,#25
DL2:MOVR7,#100
DJNZR7,$
DJNZR6,DL2
RET
;================================================
END