Программа с ассемблерным модулем на паскале сбрасывается

@Lirian · Регистрация: 27.10.2011

Author24 — интернет-сервис помощи студентам

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

Pascal

program prg14101;
function    example(aI:word; bI:word): word; external;
{$L C:\bla\example.obj}
var
    aI, bI, rez: integer;
begin
    aI:=2;
    bI:=3;
    rez:=example(aI, bI);
    writeln(rez);
  readln;
end.

Assembler

MODEL large
.data
extrn aI:word,bI:word
.code
public example
example proc far
        mov ax, aI
    mov bx, bI
    add ax, bx
       
example endp
end

Добавлено через 20 минут
Все исправила.

Charles Kludge · 17.11.2011, 20:07

Как-то так:

Assembler

example proc far pascal       ; для правильного порядка смещений в стеке
        mov ax, aI
        mov bx, bI
        add ax, bx
    ret                  ; для неумаления общности
example endp

@volvo · 17.11.2011, 20:31

Charles Kludge,
только этого недостаточно. Надо как минимум еще правильно вытащить данные из стека, чтобы ими пользоваться (и правильно вернуться из подпрограммы тоже нужно суметь). Иначе я очень хочу посмотреть, как отреагирует программа на
rez := example (10, 11); (без использования этих вспомогательных переменных, в смысле). В результате опять же будет 5... И example (70, 80) - тоже 5

Да и функцию надо в Паскаль-программе описать как Far, иначе как вылетало, так и будет вылетать...

Ну, или сделать как положено:

Assembler

MODEL large, pascal
public example
example proc far aI:word, bI:word returns result:word
 
        mov ax, aI
        mov bx, bI
        add ax, bx
 
    mov result, ax
    ret
       
example endp
end

, чтоб не вычитывать, какой должен быть параметр в RET, и не забыть случайно пролог/эпилог (я про

Assembler

push bp;
mov bp, sp
 
; ...
 
pop bp
ret ...

), пускай транслятор сам делает свою работу...

@Mikl___ · 18.11.2011, 04:42

и еще одна ложка дегтя -- в паскале word беззнаковое число от 0 до 65535, если aI=bI=65535 тогда result=FFFF+FFFF=(1)FFFE=65534 и это не единственные значения, которые будут давать неправильный ответ

поэтому result должен быть типа Longint и должен учитываться перенос

@Mikl___ Ушел с форума 16281 / 7605 / 1066 Регистрация: 11.11.2010 Сообщений: 13,618
	18.11.2011, 04:42	4
	и еще одна ложка дегтя -- в паскале word беззнаковое число от 0 до 65535, если aI=bI=65535 тогда result=FFFF+FFFF=(1)FFFE=65534 и это не единственные значения, которые будут давать неправильный ответ поэтому result должен быть типа Longint и должен учитываться перенос 0