$regfile = "M1281def.dat"
$crystal = 7372800
$framesize = 200
$swstack = 200
$hwstack = 200
Dim Databuffer(1500) As Byte
Dim Crc As Word
Dim Xxx As Word
Dim Bb As Byte
' Load the test data
Restore Testdata
For Xxx = 1 To 1031
Read Databuffer(xxx)
Next
'Use the Crc16 function
Crc = 0
Crc = Crc16(databuffer(1) , 1031 )
Print "CRC16 Buffer " ; Hex(crc )
'CRC16 Buffer D290
' BAD Result
'Use the Crc16uni function and do the CRC 1 byte at a time
Crc = 0
For Xxx = 1 To 1031
Crc = Crc16uni(databuffer(xxx) , 1 , Crc , &H1021 , 0 , 0)
Next
Print "CRC16uni Byte 4 Byte " ; Hex(crc )
'CRC16uni Byte 4 Byte D290
' BAD Result
'Use the Crc16uni function and do buffer on one go
Crc = 0
Crc = Crc16uni(Databuffer(1) , 1031 , Crc , &H1021 , 0 , 0)
Print "CRC16uni Buffer " ; Hex(crc )
'CRC16uni Buffer 0000
' GOOD Result ?
Do
Loop
' Sample data
Testdata:
Data &H0A,&H00,&H00,&H00,&H00,&H46,&HAE,&H23,&H40,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,
Data &H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,
Data &H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,
Data &H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,
Data &H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,
Data &H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,
Data &H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,
Data &H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,
Data &H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,
Data &H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,
Data &H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,
Data &H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,
Data &H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,
Data &H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,
Data &H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,
Data &H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,
Data &H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,
Data &H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,
Data &H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,
Data &H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,
Data &H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,
Data &H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,
Data &H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,
Data &H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,
Data &H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,
Data &H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,
Data &H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,
Data &H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,
Data &H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,
Data &H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,
Data &H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,
Data &H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,&H36,&H37,&H38,&H39,&H30,&H31,&H32,&H33,&H34,&H35,
Data &H36,&H37,&H38,&H39,&H30,&H40,&H23
|