delphi ассемблерные вставки

[tanek]

Здраствуйте дорогие форумчанины! возникла проблема! нужно написать программу, которая считывает одномерный массив и делает смещение этого массива на несколько единиц... Процедуру, которая производит смещение на несколько единиц я написала на делфи... Она прекрасно работает. А вот на ассемблер не могу переписать.... Я Зделала кое какие наброски, но они не работают.
Посмотри пожалуйста в чем ошибка....!

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Grids;
type
  matrix=array of extended;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    BitBtn1: TBitBtn;
    StringGrid1:TStringGrid;
    Label2: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure OutputResult(massiv1:matrix;count:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
  count,count2:integer;
  smeshenie:integer;
  massiv1,massiv2:matrix;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  count:=StrToInt(Edit1.Text);
  smeshenie:=StrToInt(Edit2.Text);
  StringGrid1.ColCount:=count+1;

end;
procedure Tform2.OutputResult(massiv1:matrix;count:integer);
var
 i:integer;
 temp:string;
begin
   for I := 1 to count do begin
     temp:=temp+FloatToStr(massiv1[i]);
     temp:=temp+'';
   end;
     Memo1.Lines.Add(temp) ;
end;
procedure Calculation (smeshenie:integer;massiv2:matrix; count:integer; var massiv1:matrix);register;
var
  i:integer;
begin
{   for i:=1 to count do begin
     if smeshenie>=i then
       massiv1[i]:=0
     else
       massiv1[i]:=massiv2[i-smeshenie];
   end;  }

asm
     mov cx,count
     mov dx,smeshenie
     lea bx,massiv1
     lea ax,massiv2
     dec bx
     @Above5: mov bx,$0
     @LessM3: sub dx,cx
              mov bx[cx],ax[dx]
     @Test: inc bx
            cmp dx,cx
            jae @Above5
            jbe @LessM3
     loopne @Test
     lea massiv1,bx
   end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
  i:integer;
  temp:boolean;
begin
   count2:=count+smeshenie;
   SetLength(massiv1,count+1);
   Setlength(massiv2,count+1);
   for i:=1 to count do begin
      massiv1[i]:=StrToFloat( StringGrid1.Cells[i,0]);
      massiv2[i]:=massiv1[i];
   end;
   Calculation (smeshenie,massiv2,count,massiv1);

   OutputResult(massiv1,count);
end;

end.

[tanek]

Мальчики и девочки.... подскажите мне.... У меня даже прога не компилится ругается на асемлерную вставку... Хотя я прописала как в книжках написано....(((((

[Grag]

А что значит "смещение"? Разъясни, плиз...

[tanek]

Grag допустим у нас есть такой одномерный массив 123456 И нам сказано что нужно сместить его на 3 единицы. После преобразований мы получим вот такой массив 000456. Вот что нужно сделать. Помогите мне исправить

[Goodwin98]

Просто переписал то, что у вас на дельфи. Самой дельфи у меня нет, поэтому не компилировал.

  xor ecx,ecx
@cycle:
  inc ecx
  cmp ecx,[count]
  jnb @exit

  cmp ecx,[smeshenie]
  jb @less
  
  mov [massiv1 + ecx*4],0
  jmp @cycle
@less:
  mov eax,ecx
  sub eax,[smeshenie]
  mov eax,[massiv2 + eax*4]
  mov [massiv1 + ecx*4],eax
  jmp @cycle
@exit:

[tanek]

Goodwin98 Спасибо тебе большое... А ты не мог бы объяснить для чего ты написал первую строчку? Что она делает....
Народ подскажите как в делфи включить асемблерную вставку????

[Goodwin98]

xor ecx,ecx обнуляет регистр ecx

Народ подскажите как в делфи включить асемблерную вставку????

А что

asm
end;

?

[tanek]

Goodwin98 Ругается он на это..... может я не так написала?

[tanek]

Goodwin98 я посмотрела ваш код, но он не работает... он выводит точно такой же массив без изменений((((((((