#define CRC24_INIT 0x00b704ceL
#define CRC24_POLY 0x01864cfbL

const unsigned long CRC24tab[256] =
{
0x00000000, 0x00864CFB, 0x008AD50D, 0x000C99F6, 0x0093E6E1, 0x0015AA1A, 0x001933EC, 0x009F7F17, 0x00A18139, 0x0027CDC2,
0x002B5434, 0x00AD18CF, 0x003267D8, 0x00B42B23, 0x00B8B2D5, 0x003EFE2E,
0x00C54E89, 0x00430272, 0x004F9B84, 0x00C9D77F, 0x0056A868, 0x00D0E493, 0x00DC7D65, 0x005A319E, 0x0064CFB0, 0x00E2834B,
0x00EE1ABD, 0x00685646, 0x00F72951, 0x007165AA, 0x007DFC5C, 0x00FBB0A7,
0x000CD1E9, 0x008A9D12, 0x008604E4, 0x0000481F, 0x009F3708, 0x00197BF3, 0x0015E205, 0x0093AEFE, 0x00AD50D0, 0x002B1C2B,
0x002785DD, 0x00A1C926, 0x003EB631, 0x00B8FACA, 0x00B4633C, 0x00322FC7,
0x00C99F60, 0x004FD39B, 0x00434A6D, 0x00C50696, 0x005A7981, 0x00DC357A, 0x00D0AC8C, 0x0056E077, 0x00681E59, 0x00EE52A2,
0x00E2CB54, 0x006487AF, 0x00FBF8B8, 0x007DB443, 0x00712DB5, 0x00F7614E,
0x0019A3D2, 0x009FEF29, 0x009376DF, 0x00153A24, 0x008A4533, 0x000C09C8, 0x0000903E, 0x0086DCC5, 0x00B822EB, 0x003E6E10,
0x0032F7E6, 0x00B4BB1D, 0x002BC40A, 0x00AD88F1, 0x00A11107, 0x00275DFC,
0x00DCED5B, 0x005AA1A0, 0x00563856, 0x00D074AD, 0x004F0BBA, 0x00C94741, 0x00C5DEB7, 0x0043924C, 0x007D6C62, 0x00FB2099,
0x00F7B96F, 0x0071F594, 0x00EE8A83, 0x0068C678, 0x00645F8E, 0x00E21375,
0x0015723B, 0x00933EC0, 0x009FA736, 0x0019EBCD, 0x008694DA, 0x0000D821, 0x000C41D7, 0x008A0D2C, 0x00B4F302, 0x0032BFF9,
0x003E260F, 0x00B86AF4, 0x002715E3, 0x00A15918, 0x00ADC0EE, 0x002B8C15,
0x00D03CB2, 0x00567049, 0x005AE9BF, 0x00DCA544, 0x0043DA53, 0x00C596A8, 0x00C90F5E, 0x004F43A5, 0x0071BD8B, 0x00F7F170,
0x00FB6886, 0x007D247D, 0x00E25B6A, 0x00641791, 0x00688E67, 0x00EEC29C,
0x003347A4, 0x00B50B5F, 0x00B992A9, 0x003FDE52, 0x00A0A145, 0x0026EDBE, 0x002A7448, 0x00AC38B3, 0x0092C69D, 0x00148A66,
0x00181390, 0x009E5F6B, 0x0001207C, 0x00876C87, 0x008BF571, 0x000DB98A,
0x00F6092D, 0x007045D6, 0x007CDC20, 0x00FA90DB, 0x0065EFCC, 0x00E3A337, 0x00EF3AC1, 0x0069763A, 0x00578814, 0x00D1C4EF,
0x00DD5D19, 0x005B11E2, 0x00C46EF5, 0x0042220E, 0x004EBBF8, 0x00C8F703,
0x003F964D, 0x00B9DAB6, 0x00B54340, 0x00330FBB, 0x00AC70AC, 0x002A3C57, 0x0026A5A1, 0x00A0E95A, 0x009E1774, 0x00185B8F,
0x0014C279, 0x00928E82, 0x000DF195, 0x008BBD6E, 0x00872498, 0x00016863,
0x00FAD8C4, 0x007C943F, 0x00700DC9, 0x00F64132, 0x00693E25, 0x00EF72DE, 0x00E3EB28, 0x0065A7D3, 0x005B59FD, 0x00DD1506,
0x00D18CF0, 0x0057C00B, 0x00C8BF1C, 0x004EF3E7, 0x00426A11, 0x00C426EA,
0x002AE476, 0x00ACA88D, 0x00A0317B, 0x00267D80, 0x00B90297, 0x003F4E6C, 0x0033D79A, 0x00B59B61, 0x008B654F, 0x000D29B4,
0x0001B042, 0x0087FCB9, 0x001883AE, 0x009ECF55, 0x009256A3, 0x00141A58,
0x00EFAAFF, 0x0069E604, 0x00657FF2, 0x00E33309, 0x007C4C1E, 0x00FA00E5, 0x00F69913, 0x0070D5E8, 0x004E2BC6, 0x00C8673D,
0x00C4FECB, 0x0042B230, 0x00DDCD27, 0x005B81DC, 0x0057182A, 0x00D154D1,
0x0026359F, 0x00A07964, 0x00ACE092, 0x002AAC69, 0x00B5D37E, 0x00339F85, 0x003F0673, 0x00B94A88, 0x0087B4A6, 0x0001F85D,
0x000D61AB, 0x008B2D50, 0x00145247, 0x00921EBC, 0x009E874A, 0x0018CBB1,
0x00E37B16, 0x006537ED, 0x0069AE1B, 0x00EFE2E0, 0x00709DF7, 0x00F6D10C, 0x00FA48FA, 0x007C0401, 0x0042FA2F, 0x00C4B6D4,
0x00C82F22, 0x004E63D9, 0x00D11CCE, 0x00575035, 0x005BC9C3, 0x00DD8538
};

long crc_octets_tab (char *octets, int len)
{
long crc = CRC24_INIT;
long temp;
int arg;

while (len--)
{
temp = crc;
temp >>= 8;
temp >>= 8;
temp ^= *octets++;
arg = temp & 0x000000FF;
crc <<= 8;
crc ^= CRC24tab[arg];
}
crc &= 0x00ffffffL;
return crc;
}[/code][code]long crc_octets_shift (char *octets, int len)
{
long crc = CRC24_INIT;
long temp;
int i;

while (len--)
{
temp = *octets++;
temp <<= 8;
temp <<= 8;
crc ^= temp;
for (i = 0; i < 8; i++)
{
crc <<= 1;
if (crc & 0x01000000)
crc ^= CRC24_POLY;
}
}

crc &= 0x00ffffffL;
return crc;
}

EXPORT CRC24Add

RSEG CODE

;------------------------------------------------------------------------------
; Подпрограмма расчета crc24.
;
; Описание:
; Подпрограмма принимает указатель на последовательность байтов, рассчитывает
; crc24 для заданного их числа, начиная с четвертого по счету, и записывает
; полученное значение в начальные три байта.
;
; Параметры:
; R12 - указатель на последовательность байтов,
; R14 - число байтов, от которого необходимо рассчитать crc24.
;
; Возвращаемые значения:
; отсутствуют.
;
; Использование регистров: R11, R12 - сохраняются;
; R12, R13, R14 и R15 - не сохраняются.
;
; Размер кода:
; 64 байта.
;------------------------------------------------------------------------------

CRC24Add
push R11 ; зарезервировать R11 под локальную переменную
push R12 ;
;*** вычислить crc24
mov R12,R15 ; R15 - указатель на массив байтов
add #3,R15 ; сместить указатель на 3 байта
mov #004CEh,R12; R13:R12 - рабочий буфер
mov #000B7h,R13; 0xB704CE = CRC24_INIT
CRC24Add_0
xor.b @R15+,R13 ; crc ^= (*octets++) << 16
mov #8,R11 ; R11 = 8 (8 циклов)
CRC24Add_1
rla R12 ; R12 <<= 1
rlc.b R13 ; C <- R13 <- C
jnc CRC24Add_2 ; if © goto CRC24_2
xor #04CFBh,R12; исключающее или с полиномом
xor #00186h,R13; 0x01864cfb = CRC24_POLY
CRC24Add_2
dec R11 ; R11--
jnz CRC24Add_1 ; if (R11 >= 0) goto CRC24_1
dec R14 ; R14--
jnz CRC24Add_0 ; if (R14 >= 0) goto CRC24_0
;
pop R15 ; восстановить указатель на байтовый массив
mov.b R12,0(R15) ; первый байт CRC24
swpb R12 ; поменять местами байты в регистре R12
mov.b R12,1(R15) ; второй байт CRC24
mov.b R13,2(R15) ; третий байт CRC24
;
pop R11 ; вернуть в исходное
;
ret ; выход из подпрограммы