XProfan

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

proc CRC8_berechnen

    Parámetros crc_data%' Übergabe Daten
    Var bit_counter% = 8' Schleifendurchlauf
    Var feedback_bit% = 0' Bit Rückgabe

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

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

        if feedback_bit% = $01' si 1, entonces...

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

        EndIf

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

        if feedback_bit% = $01' si 1, entonces...

            CRC8_Sp% = CRC8_Sp% | $80' ODER 128

        EndIf

        crc_data% = crc_data% >> 1' Daten Shift rechts
        Dec bit_counter%' Schleifendurchlauf -1

    EndWhile' Ende Endlosschleife

ENDPROC

' Test Aufruf
CRC8_Sp% = 0' Reset CRC8 Speicher

WhileLoop 0,255' Chr$(0) a Chr$(255) durchlaufen

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

EndWhile

waitinput