簡單軟件實(shí)現(xiàn)1-Wire溫度器件的硬件CRC校驗(yàn)和串行碼流的誤碼檢測

所有1-Wire溫度器件均包含一個(gè)唯一的識(shí)別碼，保存在只讀存儲(chǔ)器(ROM)內(nèi)，該識(shí)別碼在1-Wire總線中用作唯一的網(wǎng)絡(luò)地址。另外，部分溫度器件的暫存器還有一個(gè)CRC (循環(huán)冗余校驗(yàn))字節(jié)用于1-Wire通信驗(yàn)證。本應(yīng)用筆記以及附帶的程序提供了一種簡單途徑，驗(yàn)證1-Wire器件之間通信的正確性，并檢測串行數(shù)據(jù)流的誤碼。這種方法能夠在每個(gè)器件中通過軟件計(jì)算DOW (Dallas單線) CRC，并與器件的硬件CRC值進(jìn)行對(duì)比。本文將以DS1822經(jīng)濟(jì)型1-Wire數(shù)字溫度計(jì)為例進(jìn)行說明。

CRC算法

CRC (循環(huán)冗余校驗(yàn))是串行數(shù)據(jù)流中檢測誤碼最有效的方法，CRC校驗(yàn)?zāi)軌蚴褂脩舸_保溫度檢測器件之間的數(shù)據(jù)傳輸正確，該方法對(duì)硬件需求最小。DOW (Dallas單線) CRC用于Maxim的1-Wire溫度檢測產(chǎn)品，例如：DS1821、DS1822和DS18B20。DOW CRC可以利用下列多項(xiàng)式表示：

多項(xiàng)式 = X⁸ + X⁵ + X⁴ + 1

詳細(xì)的CRC算法，請(qǐng)參考應(yīng)用筆記27：“理解和運(yùn)用Maxim iButton?產(chǎn)品中的循環(huán)冗余校驗(yàn)(CRC)”。

從以下硬件電路的功能可以很容易理解CRC，通常表示為帶反饋的移位寄存器，圖1給出了DS1822的硬件電路框圖。


圖1. CRC硬件模型
?

ROM碼CRC

每個(gè)DS1822都在其ROM中保存了一個(gè)唯一的8字節(jié)識(shí)別碼，該ROM碼的最低有效字節(jié)為DS1822的1-Wire家族碼：22h。隨后6個(gè)字節(jié)是唯一的序列號(hào)，最高有效字節(jié)為CRC字節(jié)，由ROM碼的前面7個(gè)字節(jié)計(jì)算得到。
?

暫存器CRC

DS1822暫存器的前8個(gè)字節(jié)為高溫、低溫門限以及配置寄存器。這些字節(jié)還包括DS1822讀取的溫度值和保留備用的寄存器。第9個(gè)字節(jié)是由前8個(gè)字節(jié)計(jì)算得到的CRC值。

用于暫存器和ROM的CRC字節(jié)的計(jì)算方法相同，請(qǐng)參考應(yīng)用筆記27。圖1中的移位寄存器的初始條件為每位數(shù)值均為零。LSB首先移入寄存器，當(dāng)所有位均移入寄存器后，其結(jié)果即為特定數(shù)據(jù)的CRC值。總之，ROM碼需要移入56位(7字節(jié))數(shù)據(jù)，暫存器需要移入64位(8字節(jié))數(shù)據(jù)。
?

硬件CRC校驗(yàn)

DS1822具有CRC硬件電路，可以為ROM碼或暫存器提供CRC計(jì)算，該值將傳送到1-Wire總線。接收到的數(shù)據(jù)可能被通信接口破壞，利用軟件計(jì)算的CRC可以檢驗(yàn)接收到的數(shù)據(jù)包(ROM碼為8字節(jié)，暫存器為9字節(jié))是否正確。

可使用Microsoft? Excel表格(采用Microsoft Excel 2003)計(jì)算DS1822的CRC值，圖2給出了一個(gè)屏幕截圖示例。


圖2. Excel CRC計(jì)算器屏幕截圖示例

用戶輸入ROM碼的最后7個(gè)字節(jié)或暫存器的前8個(gè)字節(jié)后，按下“Calculate CRC”按鈕，即可得到對(duì)應(yīng)的CRC值，這些數(shù)值可以用來與硬件給出的結(jié)果進(jìn)行比較。

用于開發(fā)該Excel電子表的VBA程序如下。
?

---

Private Sub ROMCRC_Click()
    
    Dim InHex, OutBinStr As String
    Dim OutBinArr(1 To 56) As Integer
    Dim OutDec, i, CRC(1 To 8), CRCTemp As Integer
    
    InHex = Range("ROMByte1").Value & Range("ROMByte2").Value &
      	Range("ROMByte3").Value & Range("ROMByte4").Value &
      	Range("ROMByte5").Value & Range("ROMByte6").Value &
      	Range("ROMByte7").Value
    OutBinStr = HexToBin(InHex)
    
    ' Convert string to array, LSB = OutBinArr(1)
    For i = 1 To 56
        OutBinArr(57 - i) = Mid$(OutBinStr, i, 1) ' Split(OutBinStr)
    Next i
    
    'Initialize CRC
    For i = 1 To 8
        CRC(i) = 0
    Next i
    
    'Calculate CRC
    For i = 1 To 56
        CRCTemp = CRC(1) Xor OutBinArr(i)
        CRC(1) = CRC(2)
        CRC(2) = CRC(3)
        CRC(3) = CRC(4) Xor CRCTemp
        CRC(4) = CRC(5) Xor CRCTemp
        CRC(5) = CRC(6)
        CRC(6) = CRC(7)
        CRC(7) = CRC(8)
        CRC(8) = CRCTemp
    Next i
    
    DecCRC = BinToDec(CRC)
    
    Range("ROMCRCValue").Value = DecCRC

End Sub

---

Private Sub ScratchCRC_Click() Dim InHex, OutBinStr As String Dim OutBinArr(1 To 64) As Integer Dim OutDec, i, CRC(1 To 8), CRCTemp As Integer InHex = Range("HexByte1").Value & Range("HexByte2").Value & Range("HexByte3").Value & Range("HexByte4").Value & Range("HexByte5").Value & Range("HexByte6").Value & Range("HexByte7").Value & Range("HexByte8").Value OutBinStr = HexToBin(InHex) ' Convert string to array, LSB = OutBinArr(1) For i = 1 To 64 OutBinArr(65 - i) = Mid$(OutBinStr, i, 1) ' Split(OutBinStr) Next i 'Initialize CRC For i = 1 To 8 CRC(i) = 0 Next i 'Calculate CRC For i = 1 To 64 CRCTemp = CRC(1) Xor OutBinArr(i) CRC(1) = CRC(2) CRC(2) = CRC(3) CRC(3) = CRC(4) Xor CRCTemp CRC(4) = CRC(5) Xor CRCTemp CRC(5) = CRC(6) CRC(6) = CRC(7) CRC(7) = CRC(8) CRC(8) = CRCTemp Next i DecCRC = BinToDec(CRC) Range("DecCRCValue").Value = DecCRC End Sub

---

Private Function HexToBin(hstr) 'convert hex string to binary string cnvarr = Array("0000", "0001", "0010", "0011", _ "0100", "0101", "0110", "0111", "1000", _ "1001", "1010", "1011", "1100", "1101", _ "1110", "1111") bstr = "" For i = 1 To Len(hstr) hdgt = Mid(hstr, i, 1) cix = CInt("&H" & hdgt) bstr = bstr & cnvarr(cix) Next HexToBin = bstr End Function

---

Function BinToDec(bstr) 'convert 8 bit Binary number to Decimal Dim j, Out As Integer Out = 0 For j = 1 To 8 Out = Out + bstr(j) * 2 ^ (j - 1) Next j BinToDec = Out End Function

---

結(jié)論

計(jì)算CRC可以很容易地保證1-Wire器件之間的通信正確，對(duì)照基于軟件的CRC結(jié)果和1-Wire器件的硬件CRC計(jì)算結(jié)果，從而保證1-Wire總線通信的可靠性。