GetSHTCRC:'---- Расчет CRC ------------------------------
     CRCCalc = 0                 
     DataByte = tmp1
     GOSUB Calc_CRC
     DataByte = RawData.HIGHBYTE
     GOSUB Calc_CRC
     DataByte = RawData.LOWBYTE
     GOSUB Calc_CRC
     CRC = CRC REV 8
     RETURN

Calc_CRC:'------------ CRC Bit Calcuation Method -----------------------------
     FOR tmp = 0 TO 7
     DataBit = CRCCalc.7 ^ DataByte.7
     DataByte = DataByte << 1
     IF DataBit = 0 THEN ShiftSHT
     CRCCalc = CRCCalc ^ $18
ShiftSHT:
     CRCCalc = CRCCalc << 1
     CRCCalc.0 = DataBit
     NEXT tmp
     RETURN

crc__16:'--------Функция расчета контрольной суммы CRC16 ------------
      Generator var WORD
      Temp var WORD
      CRC var WORD
      j var BYTE
      BitVal var BIT
       CRC = 65535
      Generator = 40961
       FOR i = 1 TO Length
          Temp = buffer[i]
          CRC = CRC ^ Temp
          FOR j = 1 TO 8
              BitVal = CRC.0
              CRC = CRC >> 1
              IF BitVal THEN
                 CRC = CRC ^ Generator
              ENDIF
           NEXT j
      NEXT i
      crc16[1] = (CRC // 256)    ' CRC16 low byte
      crc16[2] = (CRC / 256)    ' CRC16 high byte
RETURN'------------------------------------------------------------------------

Calcul_CRC16:
     CRC16=$FFFF  
     For i=0 to Nbr-3
         CRC16=CRC16^BufTx[i]
         For j=1 to 8  
             IF CRC16.Bit0=1 Then  
                 CRC16=$A001^(CRC16>>1)
             Else  
                 CRC16=CRC16>>1
             EndIF
         Next j
     Next i
Return