Model small

Masm

End.

Begin

Var

Program prg;

Пример взаимодействия программ

Возврат данных в вызывающую программу

End main

Asmproc endp

Ret

Int 10h; вывод символа

Mov cx, kol

Xor bh, bh

Mov bl, 07h

Mov al, chr

Mov ah, 09h

Mov dl, byte ptr x

Mov dh, byte ptr y

Public asmproc

Code

main:

asmproc proc near chr:byte, x:word, y:word, kol:word

mov ah, 02h

int 10h ;позиционирование курсора в нужное место

Программа на ассемблере возвращает результат в регистрах:

· ax – слово

· al – байт

· в паре dx:ax – двойное слово: dx – старшие разряды, ax–младшие

· в паре dx:ax – указатель: dx – адрес сегмента, ax – смещение

Программа на языке Pascal

function addasm : word; external;

{$L <имя>, obj} ; подключение объектного файла

value1: word;

value2:word;

rez:word;

value1:=2;

value2:=3;

rez:=addasm;

writeln ('Результат:', rez);

Программа на языке Assembler