Сложение двух последовательностей бит по модулю 2.

32-хprocedure Mod2( Dop : PStr_bit);
16-тиprocedure Mod2( Dop : PStr_bit);

Dop   – дополнительная битовая последовательность.

Процедура выполняет сложение по модулю 2 двух битовых последовательностей текущей и дополнительной Dop . Результат сложения записывается в текущую битовую переменную. Длина текущей битовой переменной устанавливается равной минимальной из длин двух битовых переменных, участвовавших в операции.

Данная процедура, являющаяся упрощенным вариантом процедуры Bool_op , введена для ускорения процесса вычислений в стандартных ситуациях.

Пример дифференциального декодера приведен в таблице. Битовая последовательность кодированных данных хранится в переменной BitStr.

32-х

Var BitStr, Dop : TStr_bit; {Объявление переменной}

…

Dop.Copy ( BitStr, 1, (BitStr.Size-1) ); {Сдвиг посл-ти на 1 бит}
BitStr.Mod2 (Dop); {Сложение двух последовательностей по mod 2}

…

16-ти

Var BitStr, Dop : PStr_bit; {Объявление переменной}

…

Dop^.Copy ( BitStr, 1, (BitStr^.Length-1) ); {Сдвиг посл-ти на 1 бит}

BitStr^.Mod2 (Dop); {Сложение двух последовательностей по mod 2}

…