1nd1g0 писал(а):
мы всё дальше уходим от HiAsm
[flood]в конце этой темы, будет что-то в роде

#pas
procedure asm_cycle;
label
lb;
var
d: integer;
begin
asm
mov ebx,0
mov d,0
lb:
add d,1
inc ebx
cmp ebx,10
jnz lb
mov ebx,0
end;
Writeln(d);
end;
[/offtop]