DS18B20温度控制数码管显示汇编非常详细.doc

- -

; DS18B20 温度控制数码管显示(汇编非常详细)

*

;* 1、P1.6= → 进入设定温度报警值 TL 状态: *

;* L－－20 *

;* 2、P1.6 → 进入设定温度报警值 TH 状态: *

;* H－－28 *

;* 3、P1.6 → 返回 *

TEMPL DATA 26H

TEMPH DATA 27H

TEMP_TH DATA 28H

TEMP_TL DATA 29H

TEMPHC DATA 2AH

TEMPLC DATA 2BH

TEMP_ZH DATA 2CH

BEEP EQU P3.7

DATA_LINE EQU P3.3

RELAY EQU P1.3

K4 EQU P1.7

;==============================================

===

ORG 0000H

JMP MAIN

ORG 000BH

- word.zl-

- -

AJMP INT_T0

;--------------------------------------------------

MAIN: MOV SP,#30H

MOV TMOD,#01H ;T0,方式 1

MOV TIMER_L,#00H ;50ms 定时值

MOV TIMER_H,#4CH

MOV TIMER_COUN,#00H ;中断计数

JNB FLAG1,MAIN1 ;FLAG1=0，DS18B20 不存在

JMP START

MAIN1: CALL RESET

FLAG1,START

LCALL BEEP_BL ;DS18B20 错误，报警

JMP MAIN1

START:

MOV A,#0CCH ; 跳过 ROM 匹配

CALL WRITE

MOV A,#044H ; 发出温度转换命令

CALL WRITE

CALL RESET

MOV A,#0CCH ; 跳过 ROM 匹配

MOV A,#0BEH ; 发出读温度命令

CALL READ ;读温度数据

CALL DISPBCD

CALL DISP1

CALL SCANKEY

LCALL TEMP_P

JMP MAIN1

;==============================================

- word.zl-

- -

=======

;DS18B20 复位与检测子程序

;FLAG1=1 OK, FLAG1=0 ERROR

RESET:

RESET2: JNB DATA_LINE,RESET3 ;等待 DS18B20 回应

DJNZ R0,RESET2

JMP RESET4 ; 延时

RESET3: SETB FLAG1 ; 置标志位,表示 DS1820 存在

JMP RESET5

RESET4: CLR FLAG1 ; 清标志位,表示 DS1820 不存在

JMP RESET6

RESET5: MOV R0,#064H

DJNZ R0,$ ; 时序要求延时一段时间

RESET6: SETB DATA_LINE

RET

;==============================================

=============

=============

WRITE: MOV R2,#8 ;一共 8 位数据

CLR DATA_LINE ;开场写入 DS18B20 总线要处于复位〔低〕状态

MOV R3,#09

DJNZ R3,$ ;总线复位保持 18 微妙以上

MOV R3,#23

- word.zl-

- -

NOP

DJNZ R2,WR1 ;写入下一个 BIT

SETB DATA_LINE

==============

;从 DS18B20 中读出温度低位、高位和报警值 TH、TL

;存入 26H、27H、28H、29H

CLR DATA_LINE ;读前总线保持为低

NOP

NOP

NOP

SETB DATA_LINE ;开场读总线释放

MOV R3,#09 ;延时 18 微妙

DJNZ R3,$

MOV C,DATA_LINE ;从 DS18B20 总线读得一个 BIT

MOV R3,#23

DJNZ R3,$ ;等待 46 微妙

RRC A ;把读得的位值环移给 A

DJNZ R2,RE01 ;读下一个 BIT

MOV R1,A

RET

;200ms 对闪动标记取反一次

PUSH ACC

PUSH PSW

MOV TL0,TIMER_L

MOV TH0,TIMER_H

INC TIMER_COUN

MOV A,TIMER_COUN

CJNE A,#04H,INT_END

- word.zl-