Pascal + assembler

[kommunist]

Здраствуйте. Нужна помощ по ассемблеру. Задача следующая. Написать процедуру выисления выражения (2*с - d/4)/(a*a + 1) на ассемблере. Данные ввести с паскаля и вывести результат тоже. Компилятор tasm.

Я сделал так:

program lab2;
uses crt;
{L$ lab.obj}
var a,d,c:integer;
     ax,dx,de:integer;
 procedure Raschet(x,y,z; var ch1,ch,del:integer);external;
begin
   clrscr;
   write('Vvedite a,d,c');
   readln(a,d,c);
   Raschet(c,d,a,ax,dx,de)
   write('(2*c - d/4)/(a*a +1)=',ax + Frac(dx/de));
readln;
end;

assembler

code segment byte public 
assume cs:code

   public Raschet
Raschet proc near
            push bp
            mov  bp,sp
            
            mov ax,word ptr[bp+16]
            mov bx,4
            idiv bx
                  ;;;;;;;;;;;;;;;;;;;;;;;;; d/4
            mov cx,dx
            mov bx,ax
    
             mov ax,word ptr[bp+18]
             muv si,2
             imul si
                   ;;;;;;;;;;;;;;;;;;;;;;;;  c*2
             sub ax,bx
             sbb dx,cx
                     ;;;;;;;;;;;;;;;;;;;; c*2 - d/4
             mov ax,word ptr[bp+20]
             imul bx
             add bx,1
             idiv bx
                   ;;;;;;;;;;;;;;;;;;;;;;;;;; (2*с - d/4)/(a*a + 1)
Передача данных в паскаль
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
             les di,dword ptr[bp+12]
             mov ES:[DI],AX

             les di,dword ptr[bp+8]
             mov ES:[DI],dx

             les di,dword ptr[bp+4]
             mov ES:[DI],bx
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
             mov sp,bp
             pop bp
             ret 18
Raschet endp
code ends
end

Программа работает, но считает не правильно, где я допустил ошибку?
Зараннее всем спасибо.

[rpy3uH]

ошибка наверно с моделью вызова процедур. в Pascal по умолчанию используется модель вызова register, т.е. параметры передаются через регистры. В ассемблерной процедуре модель вызова похожа на stdcall.

[kommunist]

Да вроде нет, я снаала пробывал считать только левую ччастьвсе работает нормально а вот целое выражение нет.

[alexBlack]

У Вас смещения параметров для модели near, как и указано в коде на asm, а вызов в pascal делается как far (если, конечно, в настройках не указано $F-}.

procedure Raschet(x,y,z; var ch1,ch,del:integer); near; external;

И еще по-моему с порядком параметров напутано. В asm'e 16, 18, 20 - (d, c, a), а в pascal передается c, d, a.

Это легко проверить. Напишите:

Raschet proc near
            push bp
            mov  bp,sp
            
            mov ax,word ptr[bp+24]   ; с запасом
            mov ax,word ptr[bp+22]
            mov ax,word ptr[bp+20]
            mov ax,word ptr[bp+18]
            mov ax,word ptr[bp+16]

Вызов: Raschet(1,2,3,ax,dx,de);

и в Turbo Debug посмотрите какие смещения получатся - в ax увидите переданные значения.
-------
Да, еще:
умножение a*a - проверьте что на что Вы умножаете
и перед делением на слово я бы очистил регистр dx, а при умножении на слово dx задействован - в нем нельзя сохранять промежуточные результаты.