1 DS18B20和51单片机连接的汇编程序免费下载-德赢Vwin官网 网

DS18B20和51单片机连接的汇编程序免费下载

电子说

1.3w人已加入

描述

  本汇编程序仅适合单个DS18B20和51单片机的连接,晶振为12MHZ左右

  DQ:DS18B20的数据总线接脚

  FLAG1:标志位,为“1”时表示检测到DS18B20

  TEMPER_NUM:保存读出的温度数据

  TEMPER_LEQU36H

  TEMPER_HEQU35H

  DQBITP1.7

  ; DS18B20初始化汇编程序

  ;//*****************************************//

  INIT_1820:

  SETBDQ

  NOP

  CLRDQ

  MOVR0,#06BH

  TSR1:

  DJNZR0,TSR1; 延时

  SETBDQ

  MOVR0,#25H

  TSR2:

  JNBDQ,TSR3

  DJNZR0,TSR2

  LJMPTSR4; 延时

  TSR3:

  SETBFLAG1; 置标志位,表示DS1820存在

  LJMPTSR5

  TSR4:

  CLRFLAG1; 清标志位,表示DS1820不存在

  LJMPTSR7

  TSR5:

  MOVR0,#06BH

  TSR6:

  DJNZR0,TSR6; 延时

  TSR7:

  SETBDQ

  RET

  ;//*****************************************//

  ; 重新写DS18B20暂存存储器设定值

  ;//*****************************************//

  RE_CONFIG:

  JBFLAG1,RE_CONFIG1; 若DS18B20存在,转RE_CONFIG1

  RET

  RE_CONFIG1:

  MOVA,#0CCH; 发SKIP ROM命令

  LCALLWRITE_1820

  MOVA,#4EH; 发写暂存存储器命令

  LCALLWRITE_1820

  MOVA,#00H; TH(报警上限)中写入00H

  LCALLWRITE_1820

  MOVA,#00H; TL(报警下限)中写入00H

  LCALLWRITE_1820

  MOVA,#1FH; 选择9位温度分辨率

  LCALLWRITE_1820

  RET

  ;//*****************************************//

  ; 读出转换后的温度值

  ;//*****************************************//

  GET_TEMPER:

  SETBDQ; 定时入口

  LCALLINIT_1820

  JBFLAG1,TSS2

  RET; 若DS18B20不存在则返回

  TSS2:

  MOVA,#0CCH; 跳过ROM匹配

  LCALLWRITE_1820

  MOVA,#44H; 发出温度转换命令

  LCALLWRITE_1820

  LCALLINIT_1820

  MOVA,#0CCH; 跳过ROM匹配

  LCALLWRITE_1820

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

  LCALLWRITE_1820

  LCALLREAD_1820

  MOVTEMPER_NUM,A; 将读出的温度数据保存

  RET

  ;//*****************************************//

  ; 读DS18B20的程序,从DS18B20中读出一个字节的数据

  ;//*****************************************//

  READ_1820:

  MOVR2,#8

  RE1:

  CLRC

  SETBDQ

  NOP

  NOP

  CLRDQ

  NOP

  NOP

  NOP

  SETBDQ

  MOVR3,#7

  DJNZR3,$

  MOVC,DQ

  MOVR3,#23

  DJNZR3,$

  RRCA

  DJNZR2,RE1

  RET

  ;//*****************************************//

  ; 写DS18B20的程序

  ;//*****************************************//

  WRITE_1820:

  MOVR2,#8

  CLRC

  WR1:

  CLRDQ

  MOVR3,#6

  DJNZR3,$

  RRCA

  MOVDQ,C

  MOVR3,#23

  DJNZR3,$

  SETBDQ

  NOP

  DJNZR2,WR1

  SETBDQ

  RET

  ;//*****************************************//

  ; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据

  ;//*****************************************//

  READ_18200:

  MOVR4,#2; 将温度高位和低位从DS18B20中读出

  MOVR1,#36H; 低位存入36H(TEMPER_L),高位存入35H(TEMPER_H)

  RE00:

  MOVR2,#8

  RE01:

  CLRC

  SETBDQ

  NOP

  NOP

  CLRDQ

  NOP

  NOP

  NOP

  SETBDQ

  MOVR3,#7

  DJNZR3,$

  MOVC,DQ

  MOVR3,#23

  DJNZR3,$

  RRCA

  DJNZR2,RE01

  MOV@R1,A

  DECR1

  DJNZR4,RE00

  RET

  ;//*****************************************//

  ; 将从DS18B20中读出的温度数据进行转换

  ;//*****************************************//

  TEMPER_COV:

  MOVA,#0F0H

  ANLA,TEMPER_L; 舍去温度低位中小数点后的四位温度数值

  SWAPA

  MOVTEMPER_NUM,A

  MOVA,TEMPER_L

  JNBACC.3,TEMPER_COV1; 四舍五入去温度值

  INCTEMPER_NUM

  TEMPER_COV1:

  MOVA,TEMPER_H

  ANLA,#07H

  SWAPA

  ORLA,TEMPER_NUM

  MOVTEMPER_NUM,A; 保存变换后的温度数据

  LCALLBIN_BCD

  RET

  ;//*****************************************//

  ; 将16进制的温度数据转换成压缩BCD码

  ;//*****************************************//

  BIN_BCD:

  MOVDPTR,#TEMP_TAB

  MOVA,TEMPER_NUM

  MOVCA,@A+DPTR

  MOVTEMPER_NUM,A

  RET

  TEMP_TAB:

  DB00H,01H,02H,03H,04H,05H,06H,07H

  DB08H,09H,10H,11H,12H,13H,14H,15H

  DB16H,17H,18H,19H,20H,21H,22H,23H

  DB24H,25H,26H,27H,28H,29H,30H,31H

  DB32H,33H,34H,35H,36H,37H,38H,39H

  DB40H,41H,42H,43H,44H,45H,46H,47H

  DB48H,49H,50H,51H,52H,53H,54H,55H

  DB56H,57H,58H,59H,60H,61H,62H,63H

  DB64H,65H,66H,67H,68H,69H,70H

  ;//*****************************************//

  下面还介绍一个ds18b20汇编程序

  ;**********************************

  FLAG1 BIT F0 ;DS18B20存在标志位

  DQ BIT P1.7

  TEMPER_L EQU 29H

  TEMPER_H EQU 28H

  A_BIT EQU 35H

  B_BIT EQU 36H

  ;************ds18b20汇编程序起始********************

  ORG 0000H

  AJMP MAIN

  ORG 0100H

  ;**************主程序开始************

  MAIN:

  LCALL INIT_18B20

  ;LCALL RE_CONFIG

  LCALL GET_TEMPER

  AJMP CHANGE

  ;**********DS18B20复位程序*****************

  INIT_18B20: SETB DQ

  NOP

  CLR DQ

  MOV R0,#0FBH

  TSR1: DJNZ R0,TSR1 ;延时

  SETB DQ

  MOV R0,#25H

  TSR2: JNB DQ ,TSR3

  DJNZ R0,TSR2

  TSR3: SETB FLAG1 ;置标志位,表明DS18B20存在

  CLR P2.0 ;二极管指示

  AJMP TSR5

  TSR4: CLR FLAG1

  LJMP TSR7

  TSR5: MOV R0,#06BH

  TSR6: DJNZ R0,TSR6

  TSR7:SETB DQ ;表明不存在

  RET

  ;********************设定DS18B20暂存器设定值**************

  ;RE_CONFIG:

  ;JB FLAG1,RE_CONFIG1

  ;RET

  ;RE_CONFIG1: MOV A,#0CCH ;放跳过ROM命令

  ;LCALL WRITE_18B20

  ;MOV A,#4EH

  ;LCALL WRITE_18B20 ;写暂存器命令

  ;MOV A,#00H ;报警上限中写入00H

  ;LCALL WRITE_18B20

  ;MOV A,#00H ;报警下限中写入00H

  ; LCALL WRITE_18B20

  ;MOV A,#1FH ;选择九位温度分辨率

  ; LCALL WRITE_18B20

  ; RET

  ;*****************读转换后的温度值****************

  GET_TEMPER:

  SETB DQ

  LCALL INIT_18B20

  JB FLAG1,TSS2

  RET ;若不存在则返回

  TSS2: MOV A,#0CCH ;跳过ROM

  LCALL WRITE_18B20

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

  LCALL WRITE_18B20

  LCALL DISPLAY ;延时

  LCALL INIT_18B20

  MOV A,#0CCH ;跳过ROM

  LCALL WRITE_18B20

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

  LCALL WRITE_18B20

  LCALL READ2_18B20 ;读两个字节的温度

  RET

  ;***************写ds18b20汇编程序************

  WRITE_18B20:

  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

  ;***********读18B20程序,读出两个字节的温度*********

  READ2_18B20:

  MOV R4,#2 ;低位存在29 H,高位存在28H

  MOV R1,#29H

  RE00: MOV R2,#8

  RE01: CLR C

  SETB C

  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,RE01

  MOV @R1,A

  DEC R1

  DJNZ R4,RE00

  RET

  ;************读出的温度进行数据转换**************

  CHANGE: MOV A,29H

  MOV C,28H.0 ;将28H中的最低位移入C

  RRC A

  MOV C,28H.1

  RRC A

  MOV C,28H.2

  RRC A

  MOV C,28H.3

  RRC A

  MOV 29H,A

  ;setb p2.0

  LCALL DISPLAY ;调用数码管显示子程序

  ; setb P2.0

  LJMP MAIN

  ;*******************DISPLAY******

  DISPLAY: mov a,29H;将29H中的十六进制数转换成10进制

  mov b,#10 ;10进制/10=10进制

  div ab

  mov b_bit,a ;十位在a

  mov a_bit,b ;个位在b

  mov dptr,#TAB ;指定查表启始地址

  mov r0,#4

  dpl1: mov r1,#250 ;显示1000次

  dplop: mov a,a_bit ;取个位数

  MOVC A,@A+DPTR ;查个位数的7段代码

  mov p0,a ;送出个位的7段代码

  clr p2.5;开个位显示

  acall d1ms ;显示1ms

  setb p2.5

  mov a,b_bit ;取十位数

  MOVC A,@A+DPTR ;查十位数的7段代码

  mov p0,a ;送出十位的7段代码

  clr p2.4;开十位显示

  acall d1ms ;显示1ms

  setb p2.4

  djnz r1,dplop ;100次没完循环

  djnz r0,dpl1 ;4个100次没完循环

  ret

  ;***********************************

  D1MS: MOV R7,#80 ;1MS延时(按12MHZ算)

  DJNZ R7,$

  RET

  ;*************************

  TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H

打开APP阅读更多精彩内容
声明:本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人,不代表德赢Vwin官网 网立场。文章及其配图仅供工程师学习之用,如有内容侵权或者其他违规问题,请联系本站处理。 举报投诉

全部0条评论

快来发表一下你的评论吧 !

×
20
完善资料,
赚取积分