polynomical x16+x12+x5+1 - CRC is always 0

komatic

for example

FUNCTION FC 50 : VOID
TITLE =
AUTHOR : BERMIT
FAMILY : MODBUS
NAME : CRC16
VERSION : 1.0

VAR_INPUT
MSG_DB_NO : INT ;// Номер DB в котором подсчитывается CRC16 области
MSG_DBB_NO : INT ;// Смещение на начало области
MSG_LEN : INT ;//Длина области
CRC_DB_NO : INT ;//Номер DB с таблицей CRC16
END_VAR
VAR_OUTPUT
CRC_VAL : WORD ;//Вычисленное CRC16 области
END_VAR
VAR_TEMP
MSG_POINTER : DWORD ;//указатель на сообщение
CRC_POINTER : DWORD ;//указатель на таблицу с полиномами
CRC_AUX : WORD ;//вспомогательная переменная для вычесления
CHAR_CNT : WORD ;//счетчик байт в сообщении
MSG_DB : WORD ;
CRC_DB : WORD ;
END_VAR
BEGIN
NETWORK
TITLE =Проверка на длину области

L #MSG_LEN;
L 0;
<=I ;
BEC ; // выход если длина области меньше 0

NETWORK
TITLE =Номера блоков данных

L #MSG_DB_NO;
T #MSG_DB;

L #CRC_DB_NO;
T #CRC_DB;

NETWORK
TITLE =Формирование указателя на область

L #MSG_DBB_NO;
SLD 3;
T #MSG_POINTER;

L W#16#FFFF; // константа инициализации CRC
T #CRC_AUX;

NETWORK
TITLE =Вычисление CRC сообщения

L #MSG_LEN; //Длина области
NXT1: T #CHAR_CNT;

OPN DB [#MSG_DB]; //блок данных для сообщения
L DBB [#MSG_POINTER]; //прочитали байт сообщения
L #CRC_AUX; // промежуточное значение
XOW ; //xor
L W#16#FF;
AW ; //выделили один байт из слова
ITD ; // в двойное слово
SLD 3; // для адресации на байт
SLD 1; // для адресации на слово
T #CRC_POINTER; // получили указатель на таблицу слов

L #CRC_AUX; // сдвинули на 8
SRW 8;
L W#16#FF; // выделили байт
AW ;
T #CRC_AUX; // сохранили для следующей итерации

OPN DB [#CRC_DB]; // открыли таблицу кфтов
L DBW [#CRC_POINTER]; // считали константу
L #CRC_AUX;
XOW ;
T #CRC_AUX; // сохранили для следующей итерации

L #MSG_POINTER; // инкремент указателя на сообщение
L P#1.0;
+D ;
T #MSG_POINTER;

L #CHAR_CNT;
LOOP NXT1; //до тех пор пока не закончится сообщение
NETWORK
TITLE =Переставление байтов

L #CRC_AUX; // перестановка байтов
CAW ;
T #CRC_VAL;
END_FUNCTION