if (Value and $80) <> 0 then
Value := ((Value shl 1) xor $31)
else
Value := (Value shl 1);
можно заменить на flag := (Value and $80);
Value := (Value shl 1);
if (flag <> 0) then Value := (Value xor $31);
Т.е. по сути в ассемблере XOR делается только при взведённом флаге ...
Найдено 2 результата
- 28.11.2018 11:51:57
- Форум: Общее
- Тема: CRC8 как посчитать
- Ответы: 7
- Просмотры: 24335
- 21.11.2018 11:38:24
- Форум: Разработки на нашем сайте
- Тема: Библиотека для работы с ККМ АТОЛ
- Ответы: 124
- Просмотры: 316309
Re: Библиотека для работы с ККМ АТОЛ
alexs писал(а):Последние доработки были по 3-й - attid доделывал.
3.1 делать некогда.
А где можно посмотреть реализацию 3го протокола?