запись данных в массив + цикл ассемблерной вставкой

[ahz4et]

Добрый день!

есть программа на паскале:

      Program test005;
      Var i,d:integer;
         A:array [5..11] of integer;
      Begin
         d:=1;
         i:=5;
       while i<=11 do    
          begin
             A[i]:=i or d;
             d:=d + A[i];
             if d>10 then A[i]:=127-i;
             inc(i);    
      end;
      for i:=5 to 11 do
            write(A[i]:4);writeln;
       End.

и интерпретация цикла ассемблером:

      Program test005;
      Var i,d:byte;
         A:array [5..11] of integer;
      Begin
         d:=1;
         i:=5;
      { while i<=11 do }
      asm
      @10:
      CMP   byte ptr i,000Bh
      JG     @30
      {begin}
      {       A[i]:=i or d; }
       
      MOV    AX,word ptr i
      OR     AX,word ptr d
      MOV    BX, word ptr i
      SHL    BX,1
      MOV    word ptr A[BX],AX
       
       {      d:=d + A[i]; }
      MOV    AX,word ptr d
      MOV    BX,word ptr i
      SHL    BX,1
      ADD    AX, word ptr A[BX]
      MOV    word ptr d,AX
       
      {       if d>10 then A[i]:=127-i;}
      CMP    byte ptr d,000Ah
      JNG    @20
      MOV    AX,007Fh
      SUB    AX,word ptr i
      MOV    BX,word ptr i
      SHL    BX,1
      MOV    word ptr A[BX],AX
      @20:
      {       inc(i);    }
      INC    byte ptr i
      JMP    @10
      @30:
      end;
      for i:=5 to 11 do
            write(A[i]:4);writeln;
       
       readln;
       End.

вроде работает, но какая то лажа с передачей данных в массив. подскажи где я мог натупить?

мне кажется что вся загвоздка тут:

MOV BX,word ptr i
SHL BX,1
MOV word ptr A[BX],AX

и ещё не могу разобраться зачем делать смещение влево на 1 бит.

Буду весьма признателен за какие-угодно объяснения!!

[ahz4et]

а так заработало... ничего не понимаю

Program test005;
Var i,d:integer;
   A:array [5..11] of integer;
Begin
   d:=1;
   i:=5;
{ while i<=11 do }
asm
@10:
CMP  i,000Bh
JG     @30
{begin}
{       A[i]:=i or d; }

MOV    AX,i
OR     AX,d
MOV    BX,i
SHL    BX,1
MOV    word ptr A[BX-10],AX

 {      d:=d + A[i]; }
MOV    AX,d
MOV    BX,i
SHL    BX,1
ADD    AX, word ptr A[BX-10]
MOV    d,AX

{       if d>10 then A[i]:=127-i;}
CMP    d,000Ah
JNG    @20
MOV    AX,007Fh
SUB    AX,i
MOV    BX,i
SHL    BX,1
MOV    word ptr A[BX-10],AX
@20:
{       inc(i);    }
INC    i
JMP    @10
@30:
end;
for i:=5 to 11 do
      write(A[i]:4);writeln;

 readln;
 End.

[Stilet]

А я бы так писал:

       Var i,d:integer;
         A:array [5..11] of integer;
label exx,els,whil;
begin
 asm
  mov dword ptr [i],5;
  mov dword ptr [d],1;
  mov esi,offset a;
  whil:
  cmp i,11
  jg exx
   mov eax,i
   or eax,[d]
   mov [esi],eax
   add [d],eax
   cmp [d],10
   jl els
    mov eax,127
    sub eax,i
    mov [esi],eax
   els:
   inc [i]
   add esi,4
   jmp whil
  exx:
 end;
       for i:=5 to 11 do
            write(A[i]:4);writeln;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Эт не совсем паскаль но схема такая.

[Stilet]

А я бы так писал:

       Var i,d:integer;
         A:array [5..11] of integer;
label exx,els,whil;
begin
 asm
  mov dword ptr [i],5;
  mov dword ptr [d],1;
  mov esi,offset a;
  whil:
  cmp i,11
  jg exx
   mov eax,i
   or eax,[d]
   mov [esi],eax
   add [d],eax
   cmp [d],10
   jl els
    mov eax,127
    sub eax,i
    mov [esi],eax
   els:
   inc [i]
   add esi,4
   jmp whil
  exx:
 end;
       for i:=5 to 11 do
            write(A[i]:4);writeln;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Эт не совсем паскаль но схема такая.