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

Листинг 15.8. Второй вариант использования директив extrn и public
модуль - тот же, что и для предыдущего варианта.
<1>
<2> include
<3> extrn
<4> public
<5> data segment
<6>
db "0"
<7> data ends
<8> code segment
<9>
proc far
<10> assume cs:code,ds:data
<11>
символов на экран
<12> mov
<13> mov
<14> mov
<15> OutChar
<16> pushds ;сохранили ds
<17> mov
perl
адрес perl в ds
<18> mov
<19> mov
<20> OutChar
perl
<21> mov dl,per2
<22> OutChar
per2
<23> pop ds
ds
<24> mov
<25> OutChar ;и еще раз
<26> ret

---

Процедуры в языке ассемблера 339
<27> my_proc2 endp
<28> code ends
<29> end
Рассмотрим улучшенный второй вариант программы (листинг 15.9). В преды-
дущем случае мы использовали для адресации данных в разных сегментах данных
один регистр DS, а теперь для
к разделяемым переменным из другого мо-
дуля задействуем один из дополнительных сегментных регистров данных, к при-
меру ES. Заметьте, что обращение к данным другого сегмента осуществляется с по-
мощью префикса замены сегмента (строки 18 и 20).
Листинг
Улучшенный второй вариант использования директив extrn и public
модуль - тот же, что и для предыдущего варианта.
<1>
модуль
<2>
<3> extrn
<4> public
<5> data
<6> per0 db "0"
<7> data ends
<8> code segment
<9>
proc far
<10> assume
:data
символов на экран
<12>
<13> mov
<14> mov dl,per0
<15>
mov
perl
mov
<18> mov
<19> OutChar
mov dl,es:per2
<21> OutChar
<22> mov
OutChar
ret
<25> my_proc2 endp
<26> codeends
<27> end
Третий вариант предполагает использование атрибута комбинирования (объ-
единения) сегментов public в директиве сегментации SEGMENT для сегментов дан-
ных модулей (листинги 15.10и15.11).Это значение атрибута комбинирования за-
ставляет компоновщик объединить последовательно сегменты с одинаковыми
именами. Все адреса и смещения будут вычисляться относительно начала этого
нового сегмента. Тогда не понадобится производить дополнительной настройки
сегментных
(как было в двух предыдущих случаях).
Листинг 15.10. Третий вариант использования директив extrn и public (модуль
модуль
include
extrn
public
stk segment stack
db
256 dup (0)
stk
 продолжение

---

340 Глава
Модульное программирование
Листинг
 (продолжение)
data segment para public "data"
perl db "1"
per2 db "2"
data ends
code segment
main procfar
assume
: stk
mov dl
OutChar
call
main endp
code ends
end main
Листинг
Третий вариант использования директив
и public (модуль 2)
модуль
include
extrn
public
data segment para public "data"
db "0"
data ends
code segment
proc far
assume cs:code,ds:data
;ds загружать не надо, так как компоновщик его присоединит
;к сегменту данных первого модуля
на экран
mov
OutChar
mov
OutChar
mov dl,per2
OutChar
mov
OutChar
ret
endp
code ends
end