|
Тема |
Re: MP-50 Datecs - въпрос за CRC [re: DP-5O] |
|
Автор | DP-5O (Нерегистриран) | |
Публикувано | 24.01.07 17:56 |
|
|
function ShiftLeftWithCarry(a: integer; b: byte): integer;
asm
rcl dl, 1
rcl ax, 1
// btc ax, 15
// jc @L1
// xor ax, $81
//@L1:
// NOP
end;
function CalculateCRConReceive(RC: byte; S01: integer): Integer;
var i: byte;
begin
for i:= 1 to 8 do begin
S01:= ShiftLeftWithCarry(S01, RC);
if S01 >= 128 then S01:= S01 xor $81;
RC:= RC shl 1;
end;
Result:= S01;
end;
Пробвах какви ле не варианти, но чек сумата все не ми излиза.
Някой да се е занимавал с касови апарати на датекс и да знае как се изчислява CRC?
|
| |
|
|
|