DS18B20与单片机应用

DS18B20与单片机应用
2012年01月19日
　　;DS18B20温度传感器和7个LED数码显示程序（原创程序，请支持）
　　;版权归Luiing所有,转载请说明出处
　　ORG 0000H
　　;LED数码管采用动态，P0口接八个数据口，P2.0-P2.2采用3-8译码器控制七个LED
　　TX BIT P2.3 ;DS18B20数据口接P2.3
　　FLAG BIT 10H
　　TEMH EQU 50H ;整数部分
　　TEML EQU 51H ;小数部分
　　MOV SP,#60H
　　CLR EA
　　AJMP MAIN
　　ORG 0200H
　　MAIN:
　　;MOV R0,#10
　　LCALL TMP;温度传感器设置
　　LCALL CHANG;温度转换为十进制
　　STR:LCALL DISPLAY;温度显示
　　;DJNZ R0,STR
　　AJMP MAIN
　　;//////////////////////////
　　TMP:;温度传感器DS18B20
　　LCALL RESERT
　　MOV A,#0CCH
　　LCALL WRITE
　　MOV A,#44H
　　LCALL WRITE
　　;LCALL DELAY750;延时750Ms
　　LCALL RESERT
　　MOV A,#0CCH
　　LCALL WRITE
　　MOV A,#0BEH
　　LCALL WRITE
　　LCALL READ
　　MOV 30H,A
　　LCALL READ
　　MOV 31H,A
　　RET
　　DELAY750:;750USDELAY
　　SETB RS0
　　MOV R0,#20
　　MS2:MOV R1,#20
　　MS1:MOV R2,#20
　　DJNZ R2,$
　　DJNZ R1,MS1
　　DJNZ R0,MS2
　　CLR RS0
　　RET
　　;////////////////////////////
　　CHANG:;温度转换为十进制
　　PUSH A
　　PUSH B
　　MOV A,31H
　　ANL A,#07H
　　SWAP A
　　MOV B,A
　　MOV A,30H
　　ANL A,#0F0H
　　SWAP A
　　ADD A,B MOV TEMH,A MOV A,30H ANL A,#0FH MOV TEML,A MOV A,31H JNB ACC.3,POSI;区分正负温度
　　;//////////////负温度转化
　　MOV A,TEML
　　SWAP A
　　CPL A
　　ANL A,#0F0H
　　ADD A,#10H
　　SWAP A
　　MOV 1FH,C
　　MOV TEML,A
　　MOV A,TEMH
　　CPL A
　　SUBB A,#80H
　　MOV C,1FH
　　ADDC A,#0
　　MOV 70H,#20
　　AJMP  NEG
　　POSI:
　　MOV A,TEMH
　　MOV B,#100
　　DIV AB
　　MOV 70H,A
　　MOV A,B
　　NEG:
　　MOV B,#10
　　DIV AB
　　MOV 71H,A
　　MOV A,B
　　ADD A,#10
　　MOV 72H,A
　　;整数部分分离
　　MOV A,TEML
　　MOV B,#5
　　MUL AB
　　MOV B,#10
　　DIV AB
　　MOV 76H,B
　　MOV 75H,A
　　MOV A,TEML
　　MOV B,#2
　　MUL AB
　　ADD A,75H
　　MOV B,#10
　　DIV AB
　　MOV 75H,B
　　MOV 74H,A
　　MOV A,TEML
　　MOV B,#6
　　MUL AB
　　ADDC A,74H
　　MOV B,#10
　　DIV AB
　　MOV 74H,B
　　MOV 73H,A
　　;小数部分分离
　　POP B
　　POP A
　　RET
　　;//////////////////////
　　DISPLAY: ;温度显示 70H---76H XXX.XXXX
　　;采用默认的12位，精度0.0625，-55~~+125
　　SETB RS0
　　MOV R0,#70H
　　MOV R1,#7
　　MOV R2,#0
　　MOV DPTR,#TABLE
　　DIS:
　　MOV A,@R0
　　MOVC A,@A+DPTR
　　MOV P2,R2
　　MOV P0,A
　　INC R2
　　INC R0
　　LCALL DELAY1MS
　　DJNZ R1,DIS
　　CLR RS0
　　RET
　　;/////////////////////////
　　DELAY1MS:
　　SETB RS1
　　MOV R0,#100
　　MS:MOV R1,#20
　　DJNZ R1,$
　　DJNZ R0,MS
　　CLR RS1
　　RET
　　;////////////////////
　　RESERT:;DS18B20初始化
　　;SETB RS0
　　SETB TX
　　NOP
　　CLR TX
　　MOV R0,#240
　　;RST:CLR TX
　　DJNZ R0,$;DELAY480US
　　SETB TX
　　MOV R1,#30;DELAY 60US
　　DJNZ R1,$
　　JNB TX,RE1
　　CLR FLAG
　　SETB TX
　　RET
　　RE1:SETB FLAG
　　MOV R2,#200
　　DJNZ R2,$ ;DELAY 400us
　　SETB TX
　　RET
　　;///////////
　　WRITE:;DS18B20写字节
　　;SETB RS0
　　CLR C
　　MOV R0,#8
　　WW:
　　MOV R1,#6
　　MOV R2,#23
　　RRC A
　　CLR TX
　　DJNZ R1,$;DELAY 12US
　　MOV TX,C
　　DJNZ R2,$;DELAY 46US SETB TX NOP DJNZ R0,WW SETB TX ;CLR RS0 RET ;/////////// READ:;DS18B20读字节
　　;SETB RS0
　　CLR C
　　MOV R0,#8;八位
　　RE:
　　SETB TX
　　MOV R1,#10;延时20us
　　MOV R2,#15 ;延时30us
　　CLR TX
　　NOP
　　SETB TX;此句最重要，读取数据的时候一定要释放总线，否则读不出暂存器数据
　　DJNZ R1,$
　　MOV C,TX
　　DJNZ R2,$
　　RRC A
　　DJNZ R0,RE
　　SETB TX
　　;CLR RS0
　　RET
　　;//////////////
　　TABLE:
　　DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH;0-9   需要加点应用ADD 80H即可
　　DB 0BFH,86H,0DBH,0CFH,0E6H,0EDH,0FDH,87H,0FFH,0EFH;0. -9.
　　DB 40H                                            ;-
　　END