基于51和DS1820的温控系统
数字显示
简易实用
代码详细
c和汇编的
DQ EQU P2.0
ORG 0000H
AJMP MAIN
MAIN: MOV TMOD,#20H
MOV SCON,#50H
MOV TH1,#0F3H
MOV TL1,#0F3H
SETB TR1
CLR TI
CLR RI
NOR: JNB RI,$
MOV A,SBUF
CLR RI
CJNE A,#'Y',NOR
MAIN1: ACALL INIT_1820 ;初始化18B20
ACALL GET_TEMPER ;获取温度
MOV R0,#55H
TRNEXT: MOV A,@R0
MOV SBUF,A
JNB TI,$
CLR TI
INC R0
CJNE R0,#57H,TRNEXT
;AJMP MAIN1
MOV R0,#22H
RENEXT:
JNB RI,$
MOV A,SBUF
CLR RI
MOV @R0,A
INC R0
CLR RI
CJNE R0,#29H,RENEXT
NEXT: SETB P2.1
MOV A,22H
CJNE A,#'3',SS
CLR P2.1
SS: AJMP MAIN1
;初始化子程序
INIT_1820:
SETB DQ ;1
NOP
CLR DQ ;0
MOV R0,#0FFH ;主机发出延时553US的抚慰脉冲
TSR1: DJNZ R0,TSR1
SETB DQ ;然后拉高数据线
NOP
NOP
NOP
MOV R0,#25H
TSR2: JNB DQ,TSR3 ;等待18B20回应
DJNZ R0,TSR2 ;延时
AJMP TSR4
TSR3: SETB F1 ;置位标志位，表示18B20存在
CLR P2.2
AJMP TSR5
TSR4: CLR F1 ; 清标志位，表示18B20不存在
AJMP TSR7
TSR5: MOV R0,#06BH
TSR6: DJNZ R0,TSR6 ;时序要求延时一段时间
TSR7: SETB DQ
RET
;温度获取程序
GET_TEMPER:
SETB DQ
ACALL INIT_1820 ;先复位
JB F1,TSS2
RET
TSS2: MOV A,#0CCH ;跳过ROM匹配
ACALL WRITE_1820
MOV A,#44H ;温度转换
ACALL WRITE_1820
MOV 66H,#3 ;等待750MS，等待转换结束
TSS3: MOV 67H,#250
TSS4: DEC 67H
ACALL DIMS
MOV A,67H
JNZ TSS4
DEC 66H
MOV A,66H
JNZ TSS3
ACALL INIT_1820 ;先复位
MOV A,#0CCH ;跳过ROM匹配
ACALL WRITE_1820
MOV A,#0BEH ;读温度命令
ACALL WRITE_1820
ACALL READ_1820 ;读取温度
RET
WRITE_1820:
MOV R2,#8 ;写命令程序
CLR C
WR1: CLR DQ
MOV R3,#5
WR2: DJNZ R3,WR2
RRC A
MOV DQ,C
MOV R3,#23
WR3: DJNZ R3,WR3
SETB DQ
NOP
DJNZ R2,WR1
SETB DQ
RET
;读取温度
READ_1820:
MOV R4,#2
MOV R1,#56H
RE00: MOV R2,#8
RE01: CLR C
SETB DQ
NOP
NOP
CLR DQ
NOP
NOP
NOP
SETB DQ
MOV R3,#5
RE10: DJNZ R3,RE10
MOV C,DQ
MOV R3,#23
RE20: DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
DIMS: MOV R7,#250 ;延时1MS
DLAY: NOP ; 1US
NOP ;1US
NOP ;1US
DJNZ R7,DLAY ;2US
RET
END ;结束
