[killbit]

Всем привет.
Передо мной встала задача.
Из слова
01110101
1-нужный бит.
0-незначащий разряд.
Необходимо выбрать нужные биты и составить из них отдельный код.
Помогите пожалуйста.

[lmikle]

Непонятна задача в части "составить".
Выделить значение - наложить маску.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

const   cBit = 1; // 00000001 var   I : Integer;   B : Byte;   Bt : Byte; begin   B := 117; // 01110101   For I := 0 To 7 Do     begin       Bt := B and cBit; // значение правого бита текущего значения, I - его номер 0..7       B := B shr 1; // сдвигаем на 1 вправо     end;

[killbit]

Именно из этих нужных битов составить новое слово. То есть есть приведённый мной выше код в котором картину портят биты, которые просто не используются для вычисления. Мне нужно взять только используемые биты и из них получить слово. Если ещё точнее то в исходном слове лежит переменная в такой вот дурацкой кодировке, где есть биты, которые почему то не используются для вычисления. Надо их вычленить из кода в отдельную переменную.

[killbit]

Нашёл как можно сделать для данной ситуации. Получается
Tyhhff.code and $F0.
Shr 3;
То есть через чистое наложение маски.
Код на самом деле 32 разряда. Исходя из этого какой код я должен записать до слова begin чтобы всё зароботало

[lmikle]

Не понтно, что же тебе действительно надо сделать. Сбросить в 0 ненужные биты? Или убрать их вообще из данных (т.е. было 32 бита, не нужны, например, 8, после убирания остается 24)? Опиши задачу более детально.

Кстати, в принципе, ничто не мешает накладывать 32-разрядную маску за исключением того, что ее описывать не очень удобно...

[killbit]

Подробно выглядит так: есть код, состоящий из 32 разрядов. Для вычисления параметра используются разряды 9-14 и 16-18. Остальные для вычисления не используются. Соответственно нужно для правильного вычисления взять два диапозона разрядов и поставить их рядом и сместить в начало. Также 19 разряд знаковый. Результат должен получиться в дополнительном коде.

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

var   mask: DWORD;   src: DWORD;   dst: DWORD;   i: Integer;     function IntToBinStr(dw: DWORD): string;   var     i: Integer;   begin     Result:='';     for i:=1 to 32 do     begin       Result:=IntToStr(dw and 1)+Result;       dw:=dw shr 1;     end;   end;   begin   mask:=$5200F421;   src:=$6755ED0B;   dst:=0;   Edit1.Text:=IntToBinStr(mask);   Edit2.Text:=IntToBinStr(src);   for i:=1 to 32 do   begin     if (mask and $80000000)<>0 then     begin       dst:=dst shl 1;       if (src and $80000000)<>0 then dst:=dst or 1;     end;     mask:=mask shl 1;     src:=src shl 1;   end;   Edit3.Text:=IntToBinStr(dst); end;

работает с DWORD

[Страдалецъ]

Если ничего не напутал, то можно вот так еще сделать:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   Dig: LongWord;   D1,D2: LongWord; begin  asm   mov Dig, 00000000000001111011111100000000b  end;  D1 := (Dig shr 15) shl 6;  D2 := (Dig shl 18) shr 26;  Dig := D1 or D2;  WriteLn(Dig); end;