Pętla w asemblerze

Dla koderów ceniących nowe wrażenia Sunday postanowił przygotować znów jakiś nieczytelny kod. Jeśli sobie ktoś z tym poradzi - szczerze gratuluję :)

Procek

Tak wygląda pętla typu for-to-do w asemblerze:

function pentle(liczba1,liczba2:word):tpoint;
var i1,i2:word;
begin
asm
mov i1,0
mov i2,0
@petlai1:
inc i1
mov cx,liczba2
mov i2,0
@petlai2:
inc i2
//polecenia
//koniec polecen
loop @petlai2
mov dx,liczba1
cmp i1,dx
jnz @petlai1
end;
result.x := i1;
result.y := i2;
end;

Sunday