В слове (16bit) заменить 4-бита

[Tronix]

Привет, чет меня заклинило на, казалось бы, простейшей вещи:
Допустим есть слово (16 bit): $F1E1
Мне нужно поменять предпоследние 4 бита в нем (там где сейчас $E) на, допустим $3, чтобы стало $F131

Щаз реализовал примерно таким говнокодом:

Uses SysUtils;
Var
   i,j : Word;

function ReverseWord(w: word): word;
asm
   xchg   al, ah
end;

Begin
   j := $f1e1;
   i := 3;
   writeln(inttohex(j,4));  // F1E1

   j := reverseword(j);     // переводим из little-endian в big-endian
   writeln(inttohex(j,4));  // E1F1
   j := j shl 4;
   writeln(inttohex(j,4));  // 1F10
   j := j shr 4;
   writeln(inttohex(j,4));  // 01F1
   i := i shl 12;               // i := 3000
   j := j or i;             
   writeln(inttohex(j,4));  // 31F1
   j := reverseword(j);
   writeln(inttohex(j,4));  // F131
   readln;

End.

На такой странный "пошаговый" код не смотрите, пишу на ассемблере, просто воспроизвожу на паскале. Вышеуказанный код работает, но уж как-то очень много телодвижений приходится совершать, наверняка я просто туплю и можно все гораздо проще сделать. Как?

[Serge_Bliznykov]

обычные битовые AND и OR Вас чем то не устраивают?

вот так, например:

procedure TForm1.Button1Click(Sender: TObject);
Var
   i,j : Word;
begin
   j := $f1e1;
   Memo1.Lines.Append('$'+IntToHex(j,4));
   j := (j and $FF0F) or $30;
   Memo1.Lines.Append('$'+IntToHex(j,4))
end;

[Tronix]

Да, старость не в радость. Сам догадался за минуту до этого поста, спасибо. Тема закрыта.