Паскаль = Ассемблер.

[yurassik]

Уважаемые форумчане, есть задача:
i:=1;
k:=1024;
repeat
if ((i*i+k) or 9)=3 then i:=i*(i+k) else k:=k-i
until i>k;

Прога на паскале. Нужно реализовать данный фрагмент на ассемблере. Ответы и на паскале и на ассемблере должны быть одинаковыми. У меня не выходит. Направьте меня пожалуйста!
Я сделал это так, но похоже неправильно:

program kontr1;
uses crt;
var i,k:word;
begin
clrscr;
asm
mov i,1
mov k,1024
@cycle:
mov ax,i
mul i
mov bx,ax
add bx,k
or bx,9
cmp bx,3
je @then
mov ax,i
sub k,ax
jmp @end
@then:
mov ax,i
add ax,k
mul i
mov i,ax
@end:
cmp ax,k
ja @cycle
end;
writeln ('i=',i,' k=',k);
i:=1;
k:=1024;
repeat
if ((i*i+k) or 9)=3 then i:=i*(i+k) else k:=k-i
until i>k;
writeln ('i=',i,' k=',k);
readln;
end.

Заранее спасибо

[MalCer]

     mov eax,1 
     mov edx,1024
l3:  mov ecx,eax
     imul ecx,eax
     add ecx, edx
     or  ecx,9
     cmp  ecx,3
     jnz     l1
     lea     ecx, [edx+eax]
     imul    ecx, eax
     mov     eax, ecx
     jmp     l2
l1:  sub     edx, eax
l2:  cmp     edx, eax
     jnl     l3
     ret

[yurassik]

Спасибо огромное! Но к сожалению не получилось вставить этот код в паскалевскую программку а компилятора нет никакого... Мозгов нет. Но буду пробовать...

[Mikl___]

yurassik
В DOS-овском паскалевском комплекте должны быть ассемблер tasm и компилятор tlink, а в борландовском Дельфи -- ассемблер tasm32 и компилятор tlink32 и ilink32 -- ищи лучше!

[Somebody]

Сообщение от yurassik

@end:
cmp ax,k
ja @cycle
...
until i>k;

В until - условие выхода из цикла, а в ассемблерном варианте должно быть условие продолжения, то есть jbe.

[elka]

А МОЖИТЕ НАПИСАТЬ ПОДРОБНЕЕ КАК ПОЛУЧИТЬ ЕХЕ-ШНИК?
Я СОХРАНИЛА С РАСШИРЕНИЕМ ASM ТЕКСТ ИЗ БЛОКНОТА, НО ЧТО ДЕЛАТЬ ДАЛЬШЕ? ЧТО ИМЕННО ЗАПУСКАТЬ ИЗ БОРЛАНД ПАСКАЛЯ???
ОБЪЯСНИТЕ, ПОЖАЛУЙСТА!!!

[anyx]

Сообщение от elka

А МОЖИТЕ НАПИСАТЬ ПОДРОБНЕЕ КАК ПОЛУЧИТЬ ЕХЕ-ШНИК?
Я СОХРАНИЛА С РАСШИРЕНИЕМ ASM ТЕКСТ ИЗ БЛОКНОТА, НО ЧТО ДЕЛАТЬ ДАЛЬШЕ? ЧТО ИМЕННО ЗАПУСКАТЬ ИЗ БОРЛАНД ПАСКАЛЯ???
ОБЪЯСНИТЕ, ПОЖАЛУЙСТА!!!

;МОЖИТЕ -> можЕте

Для начала - читать учебник по ассемблеру.
Потом - качать компилятор (masm, tasm, fasm, nasm, нужное подчеркнуть) и компилить