Ассемблер "логические операции"

[JohnLemon]

Ребят помогите плзз, необходимо сделать задачу на делфи языком ассемблера.
Вот сама задача: Реализуйте с помощью логических операцию, при которой младший байт слова логически складывается со старшим байтом записанным в обратном порядке.
Есть код:

procedure TForm1.Button1Click(Sender: TObject);
var
op: word;
rez:byte;
label m1;
begin
op:=$8e4f;
 asm
    xor ax,ax
    mov cx,8
    mov si,15
m1:
    bt op,si
    rcr byte ptr ah, 1
    dec si
    loop m1

    or ah,byte ptr op
    mov rez,ah
 end;
 Button1.Caption:=IntTohex(rez,1);
end;

Подскажите пожалуйста он к задаче подходит?? и что нужно исправить чтобы результат был правильный.
У меня пишет результат :7F, а как мне подсказали должен быть 8E7F подскажите кто чем может срочно нужно завтра сдавать уже нада ((

[Step_UA]

Ничего не исправляйте, все правильно считает.
А вот подсказчика на мыло

[JohnLemon]

а сожете подсказать что он в строчках делает ??

    bt op,si
    rcr byte ptr ah, 1
    dec si
    loop m1

    or ah,byte ptr op
    mov rez,ah

и скажите если я изменю значение op:=$8e4f он так же правильно будет считать??