ds1820new2.asm

来自「PTR2000(短距离无线测试)的温度测试程序」· 汇编 代码 · 共 119 行

 CS BIT P1.2
 PWR BIT P3.1
 TXEN BIT P1.3

     ORG  0000H
     LJMP MAIN
     ORG   0200H
MAIN: CLR  P1.0
      CLR  P1.1
      SETB PWR
      SETB TXEN
      MOV TMOD,#20H        ;定时器工作方式1
      MOV SCON,#0F0H        ;串口方式3
      MOV PCON,#80H         ;SMOD=1
      MOV TL1,#0FAH          ;计数器初值
      MOV TH1,#0FAH
      SETB TR1
      lcall  MAIN1
      CPL P1.1
MAIN1:CLR A
     LCALL GET_TEMP
     CLR A
     LCALL test1
     CLR A
     MOV A,31H
     MOV SBUF,A
     JNB TI,$
     CLR TI
     CLR A
     MOV A,32H
     MOV SBUF,A
     JNB TI,$
     CLR TI
     CLR 33H
     MOV 33H,#7FH
     ADD A ,31H
     ADD A,33H
     MOV SBUF,A
     JNB TI,$
     CLR TI
     SJMP $
GET_TEMP:
         CLR EA ; 使用ds1820一定要禁止任何中断产生
         LCALL INT ; 调用初使化子程序
         MOV A,#0CCH
         LCALL WRITE ; 送入跳过ROM命令
         MOV A, #44H
         LCALL WRITE ; 送入温度转换命令
         LCALL INT ; 温度转换完全,再次初使化ds1820
         MOV A,#0CCH
         LCALL WRITE ; 送入跳过ROM命令
         MOV A,#0BEH
         LCALL WRITE ; 送入读温度暂存器命令
         LCALL READ
         CLR 31H
         MOV 31H,A ; 读出温度值低字节存入31H
         LCALL READ
         CLR 32H
         MOV 32H,A ;读出谩度值高字节存入32H
         SETB EA
          RET
INT: CLR EA ; 初始化ds1820子程序
L0:CLR P1.7 ; ds1820总线为低复位电平
    MOV R2,#200
L1:CLR P1.7
   DJNZ R2,L1 ;总线复位电平保持400us
   SETB P1.7 ; 释放ds1820总线
   MOV R2,#30
L4:DJNZ R2,L4 ;  释放ds1820总线保持60us
   CLR C ;清存在信号
   ORL C,P1.7
   JC L0 ; 存在吗?不存在则重新来
   MOV R6,#80
L5:ORL C,P1.7
   JC L3
   DJNZ R6,L5
   SJMP L0
L3:MOV R2,#240
L2:DJNZ R2,L2
   RET
WRITE: CLR EA;向ds1820写操作命令子程序
       MOV R3,#8 ;写入ds1820的bit数,一个字节8个bit
WR1:SETB P1.7
    MOV R4,#8
    RRC A ;  把一个字节data(A)分成8个bit环移给C
    CLR P1.7 ; 开始写入ds1820总线要处于复位(低)状态
WR2:DJNZ R4,WR2 ;  ds1820总线复位保持16us
   MOV P1.7,C ;写入一个bit
   MOV R4,#20
WR3:DJNZ R4,WR3 ;等待40us
    DJNZ R3,WR1 ;写入下一个bit
    SETB P1.7 ;重新释放ds1820总线
    RET
READ:CLR EA
     MOV R6,#8 ;连续读8个bit
RE1:CLR P1.7 ;读前总线保持为低
    MOV R4,#4
    NOP
    SETB P1.7 ;开始读总线释放
RE2:DJNZ R4,RE2 ;持续8us
    MOV C,P1.7 ;从ds1820总线读得一个bit
    RRC A ;把读得的位值环移给A
    MOV R5,#30
RE3:DJNZ R5,RE3 ;持续60us
    DJNZ R6,RE1 ;读下一个bit
    SETB P1.7 ;重新释放ds1820总线
    RET
test: MOV R1,#10H
test1: MOV A,#55H
      MOV SBUF,A
      JNB TI,$
      CLR TI
      DJNZ R1,test1
      RET
END