ds18b20的asm源程序，采用12位转换.txt

DS18B20的asm源程序

主题:DS18B20的源程序，采用12位转换  
 
　 ;***************
;Ds18b20_program 2003-1-3
;***************
TemperL EQU 8H
TemperH EQU TemperL+1
TemperDotL EQU TemperH+1
TemperDotH equ TemperDotL+1
TemperZer equ TemperDotH+1
Led1 equ TemperZer+1
led2 equ led1+1
led3 equ led2+1
DogL equ Led3+1
DogH equ DogL+1
SpData equ 22h

DogX equ 0 ;4Min

Ds18b20F BIT 00H</P><P> DQ BIT P3.7
led_1 bit p3.0
led_2 bit p3.1
led_3 bit p3.4

key_f bit p3.3
pnp1 bit p3.4
pnp2 bit p3.5


oRG 0000H; ;
sJMP start 
ORG 0003H; ;
reti;
ORG 000BH ;
reti ;
ORG 0013H 
reti ;
ORG 001BH ;
reti;aJMP T1 ;
ORG 0023H ;
RETI; AJMP RS_485 ;
;************************************** 
start: 
MOV R7,
7fh ;
MOV R0,
1 ;
CR: INC R0 ;
MOV @R0,
0 ;
djnz r7,cr ;CLR RAM
MOV SP,
SpData ;
;*****************
; MINI_Pragram
;*****************
; mov Dogl,
DogX
mov led1,
0fh
mov led2,
ff_led
mov led3,
ff_led
STAR_BI:
CALL GetTemper
CALL TemperDo
call led
djnz DogL ,Star_bi
; djnz DogH,Star_bi
mov p1,
0ffh
mov p3,
0ffh
mov Pcon,
02
sjmp Star_bi
;*******************
LED: 
mov dptr,
led_asc
;***************************led1
mov a,led1
movc a,@a+dptr
call TurnAsc1
mov p1,a
clr led_1
call timer_1ms
setb led_1
;*************************led2 
led_led2:
mov a,led2
movc a,@a+dptr
call TurnAsc
mov p1,a
clr led_2
call timer_1ms
setb led_2
;*************************led3 
led_led3:
mov a,led3
movc a,@a+dptr
call TurnAsc
mov p1,a
clr led_3
call timer_1ms
setb led_3
led_end:
ret
;*************************
black equ 1Ch
l_led equ 11h
o_led equ 15h
u_led equ 1Bh
r_led equ 18h
QQ_led equ 1dh
p_led equ 16h
a_led equ 0ah
UU_led equ 1ah
s_led equ 19h
e_led equ 0eh 
tt_led equ 1fh
ff_led equ 1eh
c_led equ 0ch
h_led equ 10h
b_led equ 0bh
d_led equ 0dh
f_led equ 0fh 
nn_led equ 12h
n_led equ 13h
cc_led equ 2ah
oo_led equ 15h 
rr_led equ 16h
dot_led equ 2bh 
;"bafgecdh"
;*********************************************
; led=> / abcdefgh
led_asc:
db 11111100B;0
db 01100000B;1
db 11011010B;2
db 11110010B;3
db 01100110B;4
db 10110110B;5
db 10111110B;6
db 11100000B;7
db 11111110B;8
db 11110110B;9
DB 11101110B;a=>A
DB 00111110B;B=>B 
DB 10011100B;C=>C 
DB 01111010B;D=>D 
DB 10011110B;E=>E 
DB 10001110B;F=>F 
DB 01101110B;H=>10H 
DB 00011100B;L=>11H 
DB 11101100B;N=>12H 
db 00101010b;n=>13h
db 11111100b;O=>14h
dB 00111010B;o=>15H
DB 11001110B;P=>16H
DB 11100110B;Q=>17H
DB 00001010B;r=>18H
DB 10110110B;S=>19H 
DB 01111100B;U=>1AH 
DB 00111000B;u=>1BH 
DB 00000000B;BLACK=>1CH
DB 11111111B;8.=>1DH
db 00000010b;-=>1Eh
db 00011110b;t=>1Fh
db 11111101B;0.=>20h
db 01100001B;1.
db 11011011B;2.
db 11110011B;3.
db 01100111B;4.
db 10110111B;5.
db 10111111B;6.
db 11100001B;7.
db 11111111B;8.
db 11110111B;9.=>29h
;************* add 2002.12.10 
DB 11101111B;a.=>A
DB 00111111B;B.=>B 
DB 10011101B;C.=>C 
DB 01111011B;D.=>D 
DB 10011111B;E.=>E 
DB 10001111B;F.=>F 
DB 01101111B;H.=>10H 
DB 00011101B;L.=>11H 
DB 11101101B;N.=>12H 
db 00101011b;n.=>13h
db 11111101b;O.=>14h
dB 00111011B;o.=>15H
DB 11001111B;P.=>16H
DB 11100111B;Q.=>17H
DB 00001011B;r.=>18H
DB 10110111B;S.=>19H 
DB 01111101B;U.=>1AH 
DB 00111001B;u.=>1BH 
DB 00000001B;BLACK.=>1CH
DB 11111111B;8.=>1DH
db 00000011b;-=>1Eh
db 00011111b;t=>1Fh
db 'li jie by 2002.12.24' 
;*************************************
timer_1ms:
djnz b,$
djnz b,$
ret
;"bafgecdh"
;*********************************************
; led=> / abcdefgh ,bafgecdh
TurnAsc:
mov c,acc.0
mov b.0,c
mov c,acc.1
mov b.4,c
mov c,acc.2
mov b.5,c
mov c,acc.3
mov b.3,c
mov c,acc.4
mov b.1,c
mov c,acc.5
mov b.2,c
mov c,acc.6
mov b.7,c
mov c,acc.7
mov b.6,c
mov a,b
ret 
;***************************
;abcdefgh=>bafhecdg
TurnAsc1:
mov c,acc.0
mov b.4,c
mov c,acc.1
mov b.0,c
mov c,acc.2
mov b.5,c
mov c,acc.3
mov b.3,c
mov c,acc.4
mov b.1,c
mov c,acc.5
mov b.2,c
mov c,acc.6
mov b.7,c
mov c,acc.7
mov b.6,c
mov a,b
ret 
;******************
;读出转换后的温度值
GetTemper:
SkipDs18b20 equ 0cch
StartDs18b20 equ 44h
ReadDs equ 0beh 
;***************************
SETB DQ ; 定时入口
call InitDs18b20
JB Ds18b20F,S22
ret
S22:call Delay64uS
MOV A,
SkipDs18b20 ; 跳过ROM匹配------0CC
call WriteByteDs1820
MOV A,
StartDs18b20 ; 发出温度转换命令
call WriteByteDs1820
call DELAY1s
call InitDs18b20
JB Ds18b20F,ABC
ret
ABC:call Delay64uS
MOV A,
SkipDs18b20 ; 跳过ROM匹配
call WriteByteDs1820
MOV A,
ReadDs ; 发出读温度命令
call WriteByteDs1820
call ReadDs18b20 ;READ_1820
RET
;------------------读DS18B20的程序,从DS18B20中读出一个字节的数据
ReadByteDs1820:
MOV R2,
8
RE1:
CLR C
SETB DQ
NOP
NOP
CLR DQ
NOP
NOP
NOP
SETB DQ
MOV R3,
7
DJNZ R3,$
MOV C,DQ
MOV R3,
23
DJNZ R3,$
RRC A
DJNZ R2,RE1
RET
;-------------------写DS18B20的程序
WriteByteDs1820:
MOV R2,
8
CLR C
WR1:
CLR DQ
MOV R3,
6
DJNZ R3,$
RRC A
MOV DQ,C
MOV R3,
23
DJNZ R3,$
SETB DQ
NOP
DJNZ R2,WR1
SETB DQ
RET
;-------------------读DS18B20的程序,从DS18B20中读出两个字节的温度数据
ReadDs18b20:
Call ReadByteDs1820
MOV TemperL,A
Call ReadByteDs1820
MOV TemperH,A
RET
;------------------重新写DS18B20暂存存储器设定值
RE_CONFIG:
JB Ds18b20F,RE_CONFIG1 ; 若DS18B20存在,转RE_CONFIG1
RET
RE_CONFIG1:
MOV A,
0CCH ; 发SKIP ROM命令
call WriteByteDs1820
MOV A,
4EH ; 发写暂存存储器命令
call WriteByteDs1820
MOV A,
00H ; TH(报警上限)中写入00H
;call WriteByteDs1820
MOV A,
00H ; TL(报警下限)中写入00H
;call WriteByteDs1820
MOV A,
7FH ; 选择12位温度分辨率
call WriteByteDs1820
RET
;------------------延时子程序
DELAY:
MOV R7,
00H
Dey1:
call led
DJNZ R7,Dey1
RET
Delay500uS:
MOV R6,
00H
DJNZ R6,$
RET
Delay64uS:
MOV R6,
20H
DJNZ R6,$
RET
;-------------------将从DS18B20中读出的温度数据进行转换
;2^3,2^2,2^1,2^0,2^-1,2^-2,2^-3,2^4 ;L
;SSSSSSS2^6,2^5,2^4;H
;************************
TemperDo:
JB Ds18b20F,Do1
ret
do1:
clr a
mov TemperDotL,a
mov TemperDotH,a
mov TemperZer,a
;***************** 
mov a,TemperH
jnb acc.7,ZhenData ;>0
;<0
mov a,TemperL
cpl a
add a,
01 ;cpl+1 
mov TemperL,a
mov a,TemperH
cpl a
addc a,
0
mov TemperH,a
ZhenData:
call FenLiDot 
call FenLiZer
call HexToLed
call Led
ret
;********************** 
FenLiZer:
mov a,TemperL
jnb acc.4,Fz1
mov a,
01
add a,TemperZer
mov TemperZer,a
Fz1:
mov a,TemperL
jnb acc.5,Fz2
mov a,
02
add a,TemperZer
mov TemperZer,a
Fz2:
mov a,TemperL
jnb acc.6,Fz3
mov a,
04
add a,TemperZer
mov TemperZer,a
Fz3:
mov a,TemperL
jnb acc.7,Fz4
mov a,
08
add a,TemperZer
mov TemperZer,a
Fz4:
mov a,TemperH;!!!!
jnb acc.0,Fz5
mov a,
16
add a,TemperZer
mov TemperZer,a
Fz5:
mov a,TemperH
jnb acc.1,Fz6
mov a,
32
add a,TemperZer
mov TemperZer,a
Fz6:
mov a,TemperH
jnb acc.2,Fz7
mov a,
64
add a,TemperZer
mov TemperZer,a
Fz7:
ret
;****************************
FenLiDot:
mov a,TemperL
jnb acc.3,Fen1 ;2^-1
mov r5,
low(5000)
mov r4,
High(5000)
call Add2
Fen1:
jnb acc.2,Fen2 ;2^-2
mov r5,
low(2500)
mov r4,
High(2500)
call Add2
Fen2:
jnb acc.1,Fen3 ;2^-3
mov r5,
low(1250)
mov r4,
High(1250)
call Add2
Fen3:
jnb acc.0,Fen4 ;2^-4
mov r5,
low(625)
mov r4,
High(625)
call Add2
Fen4:
ret
;****************
;TemperDorHL+r4r5=r2r3
;*****************
Add2:
push a
mov a,TemperDotL
add a,r5
mov TemperDotL,a
mov a,TemperDotH
addc a,r4
mov TemperDotH,a
pop a
ret
;***********************
; D=>BCD_16
;***********************
bcd_16: clr a ;in:r3r2[16 bdata]
mov r4,a ;R6,r5,r4[5 bcddata]
mov r5,a
mov R6,a
mov R7,
10h
lp0: clr c
mov a,r2
rlc a
mov r2,a
mov a,r3
rlc a
mov r3,a
mov a,r4
addc a,r4
da a
mov r4,a
mov a,r5
addc a,r5
da a
mov r5,a
mov a,R6
addc a,R6
da a
mov R6,a
djnz R7,lp0
ret 
;************************
HexToLed:
mov r3,TemperDotH
mov r2,TemperDotL
call Bcd_16 ;r3r2(in)=>r6r5r4(out)
mov a,r5
anl a,
0f0h
swap a
mov led3,a
mov a,r5
anl a,
0fh
cjne a,
05,He1
;>=0.5
He2: 
inc led3
sjmp He3 
He1:
jnc He2
;******* Zer To Bcd
He3:
;***************************
mov a,TemperZer
mov b,
10
div ab ;a.b
mov led1,a
jnz He4
mov led1,
black
He4:
mov a,b
add a,
20h ;Add Dot
mov led2,a
ret
;***************
Delay1S:
mov b,
130
Dela11:
push b 
call Led
call Led
pop b
djnz b,Dela11
ret
;-------------------DS18B20初始化程序
InitDs18b20:
CLR DQ
MOV R7,
80h
DJNZ R7,$ ; 延时
SETB DQ
MOV R7,
25h ;
DJNZ R7,$
SETB Ds18b20F ; 置标志位,表示DS1820存在
JNB DQ,TSR5
CLR Ds18b20F ; 清标志位,表示DS1820不存在
Jmp TSR7
TSR5:
MOV R7,
06BH ;200US
DJNZ R7,$ ; 延时
TSR7:
SETB DQ
RET 


另一个程序

1Wire 温度传感器18B20汇编程序

; FLAG1: 标志位,为"1"时表示检测到DS18B20
; DQ: DS18B20的数据总线接脚
; TEMPER_NUM:保存读出的温度数据

;RAM
TEMPER_L EQU 36H
TEMPER_H EQU 35H
TEMPER_NUM EQU 37H
;BIT
FLAG1 EQU 20H

DQ BIT P1.1

ORG 00H
LJMP MAIN
MAIN: NOP
MOV SP,#0E0H
MAIN_1: 
CALL INIT_1820
CALL RE_CONFIG
CALL GET_TEMPER
CALL TEMPER_COV
JMP MAIN_1

; DS18B20初始化程序
INIT_1820:
SETB P1.1
NOP
CLR P1.1
MOV R0,#06BH
MOV R1,#03H
TSR1:
DJNZ R0,TSR1 ; 延时
MOV R0,#6BH
DJNZ R1,TSR1
SETB P1.1
NOP
NOP
NOP
MOV R0,#25H
TSR2:
JNB P1.1,TSR3
DJNZ R0,TSR2
LJMP TSR4 ; 延时
TSR3:
SETB FLAG1 ; 置标志位,表示DS1820存在
LJMP TSR5
TSR4:
CLR FLAG1 ; 清标志位,表示DS1820不存在
LJMP TSR7
TSR5:
MOV R0,#06BH
TSR6:
DJNZ R0,TSR6 ; 延时
TSR7:
SETB P1.1
RET

; 重新写DS18B20暂存存储器设定值
RE_CONFIG:
JB FLAG1,RE_CONFIG1 ; 若DS18B20存在,转RE_CONFIG1
RET
RE_CONFIG1:
MOV A,#0CCH ; 发SKIP ROM命令
LCALL WRITE_1820
MOV A,#4EH ; 发写暂存存储器命令
LCALL WRITE_1820
MOV A,#00H ; TH(报警上限)中写入00H
LCALL WRITE_1820
MOV A,#00H ; TL(报警下限)中写入00H
LCALL WRITE_1820
MOV A,#1FH ; 选择9位温度分辨率
LCALL WRITE_1820
RET

; 读出转换后的温度值
GET_TEMPER:
SETB P1.1 ; 定时入口
LCALL INIT_1820
JB FLAG1,TSS2
RET ; 若DS18B20不存在则返回
TSS2:
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#44H ; 发出温度转换命令
LCALL WRITE_1820

LCALL INIT_1820
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#0BEH ; 发出读温度命令
LCALL WRITE_1820
LCALL READ_18200
MOV TEMPER_NUM,A ; 将读出的温度数据保存
MOV A,#0ECH
CALL WRITE_1820
RET

; 读DS18B20的程序,从DS18B20中读出一个字节的数据
READ_1820:
MOV R2,#8
RE1:
CLR C
SETB P1.1
NOP
NOP
CLR P1.1
NOP
NOP
NOP
SETB P1.1
MOV R3,#7
DJNZ R3,$
MOV C,P1.1
MOV R3,#23
DJNZ R3,$
RRC A
DJNZ R2,RE1
RET

; 写DS18B20的程序
WRITE_1820:
MOV R2,#8
CLR C
WR1:
CLR P1.1
MOV R3,#6
DJNZ R3,$
RRC A
MOV P1.1,C
MOV R3,#23
DJNZ R3,$
SETB P1.1
NOP
DJNZ R2,WR1
SETB P1.1
RET

; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据
READ_18200:
MOV R4,#2 ; 将温度高位和低位从DS18B20中读出
MOV R1,#36H ; 低位存入36H(TEMPER_L),高位存入35H(TEMPER_H)
RE00:
MOV R2,#8
RE01:
CLR C
SETB P1.1
NOP
NOP
CLR P1.1
NOP
NOP
NOP
SETB P1.1
MOV R3,#09
RE10: 
DJNZ R3,RE10
MOV C,P1.1
MOV R3,#23
RE20: 
DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
; 将从DS18B20中读出的温度数据进行转换
TEMPER_COV:
MOV A,#0F0H
ANL A,TEMPER_L ; 舍去温度低位中小数点后的四位温度数值
SWAP A
MOV TEMPER_NUM,A
MOV A,TEMPER_L
JNB ACC.3,TEMPER_COV1 ; 四舍五入去温度值
INC TEMPER_NUM
TEMPER_COV1:
MOV A,TEMPER_H
ANL A,#07H
SWAP A
ORL A,TEMPER_NUM
MOV TEMPER_NUM,A ; 保存变换后的温度数据
LCALL BIN_BCD
RET

; 将16进制的温度数据转换成压缩BCD码
BIN_BCD:
MOV DPTR,#TEMP_TAB
MOV A,TEMPER_NUM
MOVC A,@A+DPTR
MOV TEMPER_NUM,A
RET

TEMP_TAB:
DB 00H,01H,02H,03H,04H,05H,06H,07H
DB 08H,09H,10H,11H,12H,13H,14H,15H
DB 16H,17H,18H,19H,20H,21H,22H,23H
DB 24H,25H,26H,27H,28H,29H,30H,31H
DB 32H,33H,34H,35H,36H,37H,38H,39H
DB 40H,41H,42H,43H,44H,45H,46H,47H
DB 48H,49H,50H,51H,52H,53H,54H,55H
DB 56H,57H,58H,59H,60H,61H,62H,63H
DB 64H,65H,66H,67H,68H,69H,70H