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

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

Код:

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;