XProfan

CLS
Def %CRC8POLY  $18' 0X18 = X^8+X^5+X^4+X^0
Var CRC8_Sp% = 0' CRC8 grenier

proc CRC8_berechnen

    Paramètres crc_data%' Übergabe données
    Var bit_counter% = 8' Schleifendurchlauf
    Var feedback_bit% = 0' Bit Rückgabe

    tandis que bit_counter% > 0' 8x Durchläufe

        feedback_bit% = Xor(CRC8_Sp%,crc_data%) & $01' XOR sur 1 überprüfen

        si feedback_bit% = $01' si 1, ensuite...

            CRC8_Sp% = Xor(CRC8_Sp%,%CRC8POLY)' XOR avec Poly

        EndIf

        CRC8_Sp% = (CRC8_Sp% >> 1) & $7F' Shift à droite & 247

        si feedback_bit% = $01' si 1, ensuite...

            CRC8_Sp% = CRC8_Sp% | $80' ODER 128

        EndIf

        crc_data% = crc_data% >> 1' données Shift à droite
        Décembre bit_counter%' Schleifendurchlauf -1

    Endwhile' Ende Endlosschleife

endproc

' Test Aufruf
CRC8_Sp% = 0' Reset CRC8 grenier

WhileLoop 0,255' Chr$(0) jusqu'à Chr$(255) durchlaufen

    CRC8_berechnen(&Boucle)' CRC berechnen
    Imprimer "Daten="+Str$(&Boucle)+"   CRC8="+Str$(CRC8_Sp%),
    CRC8_berechnen(  val( "%"+right$("00000000"+suis$(&Boucle),8)+right$("00000000"+suis$(CRC8_Sp%),8) )  )
    Imprimer tab(40);Str$(CRC8_Sp%)

Endwhile

waitinput