Способ 2. Через общий сегмент

Способ 1. Через регистры

ГОТОВО. Возврат из процедуры выполнен.

РАЗМЕЩЕНИЕ ПРОЦЕДУР В ДРУГОМ МОДУЛЕ

.model small, stdcall .stack 100h .data txt db 'Ты ввел пробел.', 13, 10, '$' .code starting_point: extrn clearSCR: proc mov ax, @data mov ds, ax mov ah, 1 int 21h; ввожу символ cmp al, ' '; это пробел? jnz @1; если не пробел - очисти экран ; а если пробел - выведи сообщение call PRINT, offset txt jmp @2 @1: call clearSCR; чистка экрана @2: mov ah, 4ch int 21h ;===это внутренняя процедура== PRINT proc msg: word uses dx, ax mov dx, msg mov ah, 9 int 21h ret endp ;============================= end starting_point

.model small, stdcall .code PUBLIC clearSCR clearSCR proc mov ah, 6 mov al, 0 mov bh, 7 mov cx, 0; чистим mov dx, 184fh; весь экран int 10h ret Endp end

Компилируем

TASM.EXE MAIN.ASM

TASM.EXE MODUL_2.ASM

Компонуем

TLINK.EXE MAIN.OBJ MODUL_2.OBJ, MYPROG

Исполняем

MYPROG.EXE

ПЕРЕДАЧА ПАРАМЕТРОВ

.386

.model small

.stack 100h

.data

txt db 'Строка текста.', 13, 10, '$'

.code

eingang:

mov ax, @data

mov ds, ax

; передаю параметры ч/з ah и dx

mov ah,9

lea dx, txt

call ServiceFuncs; вместо int 21h

mov ah, 4ch

int 21h

;===ИМИТАТОР ОБРАБОТЧИКА int 21h==

ServiceFuncs proc

pusha; сохраняем регистры

cmp ah, 1; распознавание

je Fn1; заказанной

cmp ah, 2; функции

je Fn2

cmp ah,9

je Fn9

jmp Ausgang; "нет такой функции"

Fn1:

; тут код функции 1

jmp Ausgang

Fn2:

; тут код функции 2

jmp Ausgang

Fn9:;функция 9: вывод ASCII$-строки

mov si, dx

povtor:

mov ah,2

mov dl, byte ptr [si]

cmp dl,'$'

je Ausgang

int 21h

inc si

jmp povtor

ex: ret

Ausgang:

popa; восстанавливаем регистры

ret

endp

;=============================

end eingang

ЭТО – ПЛОХОЙ СПОСОБ.

Дата добавления: 2014-01-07