18b20程序及应用
;---------------------------------------------------------------------------------------------------------------------------------
;数据整合子程序
;温度源数据的整合,读出数据的高字节的低四位决定温度的整数部分
;低字节的低四位决定小数部分
;-----------------------------------------------------------------------------------------------------------------------------
ZHENGHE:MOV A,#0FH
ANL A,WENDU_L ;低字节的低四位就是小数部分
MOV XIAOSHU,A ;获得小数部分
MOV A,WENDU_L ;将高字节的低四位移入低字节的高4位,
MOV C,40H ;获得的新字节就是整数部分的数据
RRC A
MOV C,41H
RRC A
MOV C,42H
RRC A
MOV C,43H
RRC A
MOV ZHENGSHU,A
RET
;-----------------------------------------------------------------------------------------------------------------------------------------
;显示数据拆解程序、显示程序、延时程序
;----------------------------------------------------------------------------------------------------------------------------------------
;数据拆解程序
BCD:MOV A,ZHENGSHU
MOV B,#10
DIV AB
MOV 50H,A
MOV 51H,B
MOV A,XIAOSHU
MOV R0,#52H
MOV R2,#4
D0:MOV B,#10
MUL AB
MOV B,#16
DIV AB
MOV @R0,A
INC R0
MOV A,B
DJNZ R2,D0
RET
;-----------------------------------
;显示程序
;----------------------------------
DISP:ACALL TIME
MOV R7,#6
MOV DPTR,#TAB
MOV R0,#55H
LP1:MOV A ,@R0;
MOVC A,@A+DPTR
CJNE R7,#2,NE1
ANL A,#07FH
NE1:MOV SBUF,A
JNB TI ,$
CLR TI
DEC R0
DJNZ R7,LP1
RET
;----------------------------------------
;延时程序
;----------------------------------------
TIME1:MOV R6,#4
LOOP2:MOV R5,#250
LOOP1:ACALL D1MS
DJNZ R5,LOOP1
DJNZ R6,LOOP2
RET
TIME:MOV R6,#200
LOOP3:ACALL D1MS
DJNZ R6,LOOP3
RET
D1MS:MOV R7,#250
LOOP0:NOP
NOP
NOP本文引用地址：http://www.eepw.com.cn/article/150417.htm
评论