[Delphi, ассемблерные вставки]: Как уменьшить каждый элемент массива на единицу?

[Павел_ТГУ]

День добрый. Помогите реализовать в Delphi следующее:
есть массив P: array[0..693] of Byte = (...тут байты...)
как при помощи asm можно из каждого элемента массива вычесть 1.
т.е. на делфи я понимаю как сделать->
for i:=0 to 693 do
P[i]:=P[i]-1;
А как сделать на asm пока затрудняюсь. Помогите кто знает. Спасибо.

[newerow1989]

asm
      mov eax,693
@for: dec byte ptr p[eax]
      dec eax
      jnz @for
      dec byte ptr p[0]
end;

[p51x]

newerow1989, вы в курсе, что поощряете идиотов не думать и засорять форум темами "срочно", "помогите", "быстро"?..