Add bx,ax

Mov bp,sp

Push bp

Фрагмент модуля 2

End main

Codesg ends

Main endp

Int 21h

Mov ax,4c00h

Call far ptr submul

Push dat3

Push dat2

Push dat1

Mov ds, ax

Mov ax, datasg

Main proc far

Codesg segment para public

Datasg ends

Dat3 dw 5h

Dat2 dw 2h

Dat1 dw 10h

Stk ends

Stk segment para stack

Extrn submul far

Передача параметров в дальнюю процедуру через стек

End

Code ends

Put endp

Ret

Put proc far

mov buf,’a’

mov buf+1,’s’

mov buf+2,’u’

Пример

Модуль 1

dw 64 dup(?)

datasg segment para ‘data’

assume cs:codesg, ds:datasg, ss:stk

mov ax,[bp+6]

mov bx,[bp+8]

mov cx,[bp+10]

Дата добавления: 2013-12-12