(217 . 7)(217 . 7)
99 ToPos := Block'Last;
100 FromPos := ToPos - SBB + 1;
101 BWord := (others => 0);
102 BWord(Bitword'First .. Bitword'First + SBB - 1) := Block(ToPos..FromPos);
103 BWord(Bitword'First .. Bitword'First + SBB - 1) := Block(FromPos..ToPos);
104 Word := BitsToWord( BWord );
105 S( X, Y ) := S( X, Y ) xor Word;
106 end if;