(148 . 7)(148 . 7)
16 ToPos := Block'Last;
17 FromPos := ToPos - SBB + 1;
18 BWord := (others => 0);
19 BWord(Bitword'First .. Bitword'First + SBB - 1) := Block(ToPos..FromPos);
20 BWord(Bitword'First .. Bitword'First + SBB - 1) := Block(FromPos..ToPos);
21 Word := BitsToWord( BWord );
22 S( X, Y ) := S( X, Y ) xor Word;
23 end if;