Дальняя процедура TASM

[eu8cc]

Помогите написать программу с вызовом дальней процедуры на Tasm
а если точней то необходимо организовать 5-ть вызовов дальней процедуры которая выводит символы?

Может у кого есть кусочек кода, а то не как чтото не получается

[eu8cc]

все, не знаю, можно ли считать это ответом
Но на этом остановлюсь

.MODEL SMALL
.STACK 256
.DATA
CR EQU 0Dh
LF EQU 0Ah
stroka1 db 'abcde', CR, LF, CR, LF, '$'
stroka2 db '', CR, LF, CR, LF, '$'
stroka3 db 'Исходная строка: ', CR, LF, CR, LF, '$'
stroka4 db 'Строка по вертикали строка: ', CR, LF, CR, LF, '$'
.CODE
start:
mov ax, @Data
mov ds, ax
xor ax, ax

lea bx, stroka3
call far ptr Pro
lea bx, stroka1
call far ptr Pro
lea bx, stroka4
call far ptr Pro

mov cx, 5
lea si, stroka1
lea bx, stroka2
m1:
mov al,[si]
mov [bx],al
inc si
dec cx
call far ptr Pro
jnz m1

mov ah,10h
int 16h
mov ah,4ch
int 21h

Pro proc far
mov dx, bx
mov ah,09h
int 21h
retf
Pro endp

END start

если есть кто разбирается, то подкаректируйте

[MalCer]

Вы что ложите строку так: lea bx, stroka3 ???O_0 Ведь нужно DX, а не BX!!!

[airyashov]

помоему все верно

[Stilet]

eu8cc

А этот код чем ругается?

MalCer

Ты уж пояснил бы что функция 9 прерывания 21H требует чтоб указатель загружался в регистр DX