помогите, почему выдаёт ошибку деление на ноль? Опции

[ne_ass]

uses crt;
var i,k:word;
BEGIN
clrscr;

asm
        mov cx, i             { ; это будет i}
        mov si, k       {; это будет k}
        mov bx, 11      {; число для вычисления модуля}

@l0:
        cmp cx, 199     {; если i больше или равно 199 выходим из цикла}
        jge @ext1

        mov ax, si
        shr ax, 1 {; деление k на 2}
        add ax, cx {; добавляем i}
        xor dx, dx {; очищаем dx для деления}
        div bx  {; делим на 11}

        cmp dx, 5{ ; сравниваем остаток}
        jnz @label2{ ; если не равен 5 - то на label2}

        sub cx, si{ ; иначе i = i - k}
        jmp @l0 ; {в начало цикла}

@label2:
        mov ax, si {; подготавливаем деление}
        xor dx, dx
        mul ax {; умножаем на себя (k*k)}
        mov dx, cx
        shr dx, 1 {; делим i на 2 }
        add ax, dx {; добавляем к резульату k*k}
        mov si, ax {; заносим результат в k }
        jmp @l0 {; в начало цикла}

@ext1:
        {... ; обработка результата}
end;
writeln('REZULTAT-ASSAMBLER');
writeln('k=',k,' i=',i);
readkey;
end.

сам цикл таков

i:=57; k:=19;
   while i<199 do
     if ((i + k div 2) mod 11) = 5 then i:=i-k else k:=k*k+(i div 2)

Сообщение отредактировано: volvo - 18.01.2007 11:18

[Asm]

hiv,а есть вероятность что при заданных значениях i и k он когда нибудь расциклится????

[Malice]

hiv,а есть вероятность что при заданных значениях i и k он когда нибудь расциклится????

как это будет выглядеть в Паскале?

[forum4uxa]

как это будет выглядеть в Паскале?

Друг, а ты её запускал? работала?