Ассемблерная вставка

[Arigato]

То ли я что-то сильно тупить начал, то ли что-то не то с компилятором в Delphi.
Использую простенькую Ассемблерную вставку:

label next;
var Res: Word;
begin
  asm
    mov DX, 1
    mov CX, 2
    next:
      shl DX, 1
    loop next
    mov Res, DX
  end;
  WriteLn (Res);
  ReadLn;
end.

Это чисто ради эксперимента. Код должен делать что-то вроде SHL DX, CX.
Логично предположить, что результатом будет 4, но получается 0 (компилировал в Delphi 6).
Что бы выяснить, в чём дело, выполняю программу в пошаговом режиме с открытым окном CPU. Видно, что в момент loop регистр CX, как и должно быть, уменьшается на 1. Но, как он принимает значение 0, управление передаётся не на следующую команду, а опять на метку next, после чего происходит зацикливание (предполагаю, что цикл выполняется порядка 65 000 раз).
Что я сделал не так или в чём тут вообще дело?

[Arigato]

Только отправил сообщение и понял, что это я ступил. Надо было указывать mov ECX, 2