这段C代码如何改成Pascal的代码?
/**********************************************************
CRC
**********************************************************/
u8 CRC8(u8 *pBuffer, u8 len)
{
u8 count = 0, dummy = 0, crc = 0;
for(count = 0; count < len; count++, pBuffer++)
{
dummy = *pBuffer ^ crc;
crc = 0;
if(dummy & 0x01)
crc ^= 0x5e;
if(dummy & 0x02)
crc ^= 0xbc;
if(dummy & 0x04)
crc ^= 0x61;
if(dummy & 0x08)
crc ^= 0xc2;
if(dummy & 0x10)
crc ^= 0x9d;
if(dummy & 0x20)
crc ^= 0x23;
if(dummy & 0x40)
crc ^= 0x46;
if(dummy & 0x80)
crc ^= 0x8c;
}
crc &= 0x7f;
return(crc);
}