Задача с массивом вставка asm

[flyinsky]

Привет всем. Задача ("Знак суммы" (Ai * Bij) * X + "знак суммы" (Ci) * Y, где A B C - массивы)
делаю вставку асмовскую в паскале но зараза не хочет запускаться ошибки валятся вот что сделал

program q184006_2;

{$mode objfpc}{$H+}   // игнорит пишет Error 17 : Invalid compiler directive
{$ASMMODE intel}        //игнорит пишет Error 17 : Invalid compiler directive

const
  { Размерность массива }
  N=3;

type
  TMatrix=array[1..N,1..N]of Integer;  { Тип - матрица }
  TVector=array[1..N]of Integer;       { Тип - вектор }

var
  A,C:TVector;		{ Вектора}
  B:TMatrix;		{ Матрица }
  I,J,X,Y:Integer;

function CalcSum(A:TVector; B:TMatrix; C: TVector;  X, Y:Integer):Integer;
stdcall; Assembler;  // пишет Begin expected (ставлю после Begin  пишет Error 3 : Unknown identifier )

begin
  { Вводим данные }

  for I:=1 to N do begin
    for J:=1 to N do begin
      Write('B[',i,',',j,'] = '); ReadLn(B[i,j]);
    end;
  end;
  WriteLn;

  for I:=1 to N do begin
     Write('A[',i,'] = '); ReadLn(A[i]);
  end;
  WriteLn;

  for I:=1 to N do begin
     Write('C[',i,'] = '); ReadLn(C[i]);
  end;
  WriteLn;

  Write('X = '); ReadLn(X);
  Write('Y = '); ReadLn(Y);
  WriteLn;


{sum( (Ai * Bij) * X ) + sum( (Ci) * Y )}
{Расчет ведется следующим образом:}
{1) находим s1=SUM(j=1..3)SUM(i=1..3)(A[i]*B[i,j])}
{2) s1 = s1*X}
{3) находим s2=SUM(i=1..3)(C[i])}
{4) s2 = s2*Y}
{5) Результат s1+s2}

  asm
     push  esi
     push  edi
     push  ebx

     xor   ebx, ebx		{искомая сумма}

     mov   ecx, 3		{счетчик столбцов в массиве B}
     xor   edi, edi		{индекс элемента (i*N + j) в массиве B}
@sumLoop1:			{цикл по столбцам j массива B}
     push  ecx			{сохраним счетчик столбцов в массиве B}
     xor   ecx, ecx		{индекс в массиве A, i}
     mov   esi, A		{адрес массива А}
     push  edi			{сохраним индекс первого элемента в столбце}
@sumLoop2:			{цикл по строкам i массива В}
     mov   eax, [esi+ecx*4]	{элемент массива А, ECX = i}
     mov   edx, B		{адрес массива В}
     imul  dword ptr[edi*4+edx] {eax = A[i]*B[i*N+j]}
     add   ebx, eax		{накапливаем сумму}
     add   edi, N		{на следующий элемент столбца, i=i+1}
     inc   ecx			{на следующий элемент массива А}
     cmp   ecx, N		{прошли все строки у столбеца и массив А?}
     jb    @sumLoop2		{нет - на повтор}
     pop   edi			{восстанавливаем индекс первого элемента в
столбце}
     inc   edi			{на следующий столбец массива В}
     pop   ecx			{восстанавливаем счетчик столбцов в массиве B}
     loop  @sumLoop1		{по всем столбцам}

     mov   eax, ebx		{посчитанная сумма}
     imul  x			{умножаем на Х}
     mov   ebx, eax		{сохраним}

     xor   eax, eax		{посчитаем sum(ci)}
     mov   edi, C		{адрес массива С}
				{после последнего loop, ECX=0}
@sumLoop:			{цикл по элементам массива}
     add   eax, [edi+ecx*4]	{складываем, ECX = i}
     inc   ecx			{на следующий элемент}
     cmp   ecx, N		{проверим на конец}
     jb    @sumLoop
     imul  Y			{eax = sum * Y}

     add   eax, ebx		{eax = искомой сумме}

     pop   ebx
     pop   edi
     pop   esi
  end;


  WriteLn('Result = ', CalcSum(A, B, C, X, Y));

  ReadLn;
end.

Заранее благодарю !

[flyinsky]

версия паскаль : TURBO PASCAL 7.1

[Serge_Bliznykov]

версия паскаль : TURBO PASCAL 7.1

{$mode objfpc}{$H+}   // игнорит пишет Error 17 : Invalid compiler directive
{$ASMMODE intel}        //игнорит пишет Error 17 : Invalid compiler directive

...
  push  esi
  mov   eax, ebx

Вы шутите?! Какие директивы ассемблера?! Какой 32-битный код (вы пытаетесь задействовать 32-х битные регистры).
ТурбоПаскаль - это DOS приложение. Поэтому ТОЛЬКО ИСКЛЮЧИТЕЛЬНО 16-ти битное приложение (и ассемблер можно использовать только 16-ти битные команды! например:

  asm
    push    ds
    mov     cx,StackWords
    jcxz    @@NoParams
    lds     si,StackData
    mov     ax,cx
    dec     ax
    shl     ax,1
    add     si,ax
    std
....
    end;

[flyinsky]

Извиняюсь, пользую FPC, ошибка одна на другой к примеру где function CalcSum(A:TVector; B:TMatrix; C: TVector; X, Y:Integer):Integer;
stdcall; Assembler; то пишет Error illegal expression

[ViktorR]

А где у функции начало (begin), и где у функции конец (end)?
А где начало программы begin?
Думаю, что следует посчитать операторные скобки.