;寫一個字節程序
WR18B20:MOV R2,#8
        CLR C
WR1: CLR DS1820_BIT
     MOV R3,#6
     DJNZ R3,$
     RRC A
     MOV DS1820_BIT,C
     MOV R3,#23
     DJNZ R3,$
     SETB DS1820_BIT
     NOP
     DJNZ R2,WR1
     SETB DS1820_BIT
     RET