Дипломированных специалистов «Информатика и вычислительная техника»

Использование директив EXTRN и PUBLIC
Директивы EXTRN и PUBLIC мы уже упоминали, когда рассматривали варианты вза-
имного расположения вызывающей программы и вызываемой процедуры. Ко все-
му сказанному добавим, что директивы EXTRN и
также можно использовать
для обмена информацией между модулями. Назначение и форматы этих директив
остаются теми же, поэтому сейчас опишем только порядок их использования для
обмена данными. Возможны несколько вариантов их применения:
оба модуля используют сегмент данных вызывающей программы;
у каждого из модулей есть собственный сегмент данных;
модули используют атрибут комбинирования (объединения) сегментов private
в директиве сегментации SEGMENT.
Рассмотрим эти варианты на примере программы, которая определяет в сег-
менте данных две символьные переменные и вызывает процедуру, выводящую эти
символы на экран.
В первом варианте, в котором два модуля используют только сегмент данных
вызывающей программы, не требуется переопределения сегмента данных в вызы-
ваемой процедуре. В листинге
в вызывающей программе определены две пе-
ременные, вывод на экран которых осуществляет вызываемая программа (лис-
тинг 15.7).
Листинг
Первый вариант использования директив EXTRN и PUBLIC (модуль
модуль
include
extrn
public
stk segment stack
db
256 dup (0)
stk ends
data segment
perl db "1"
per2 db "2"
data ends
code segment
main proc far
call
продолжение

---

338 Глава
Модульное программирование
Листинг
main
code ends
end main
Листинг
Первый вариант использования директив extrn и public (модуль 2)
модуль
include
extrn perl:byte,per2:byte
public
code segment
procfar
assume
символов на экран
mov dl,per2
OutChar
ret
my_proc2 endp
code ends
end
Сборка программы из двух модулей для этого и следующих вариантов осуще-
ствляется так же, как было показано в листингах 15.4 и 15.5.
Во втором варианте у каждого из модулей есть свой собственный сегмент дан-
ных. В этом случае для доступа к разделяемым переменным из другого модуля
требуется переопределение сегмента данных в вызываемой процедуре
19 и 23-24 листинга 15.8).