Ibm Personal Computer Linker

Version 2.30 (c) Copyright ibm Corp. 1981, 1985

Object Modules [.OBJ]: LINKBAS

Run File [LINKBAS.EXE]: LINKBAS/HIGH

List File [NUL.MAP]: CON

Libraries [.LIB]:

Warning: no stack segment

Start Stop Length Name Class

00000H 00011h 00012h codesg code

D>DEBUG BASIC.COM

-R

AX=0000 BX=0000 CX=0012 DX=0000 SP=FFFF BP=0000 SI=0000 DI=0000

DS=1410 ES=1410 SS=1410 CS=1410 IP=0100 NV UP EI PL NZ NA PO NC

1410:0100 E9E03E JMP 3FE3

-N D:LINKBAS.EXE

-L

-R

AX=FFA3 BX=0000 CX=0012 DX=0000 SP=0000 BP=0000 SI=0000 DI=0000

DS=1410 ES=1410 SS=9FE0 CS=9FE0 IP=0000 NV UP EI PL NZ NA PO NC

9FE0:0000 55

-R SS

SS 9FE0

:1410

-R CS

CS 9FE0

:1410

-R IP

IP 0000

:0100

-G

Ok

DEF SEG = &H9EF0

Ok

BSAVE "D:CLRSCREEN.MOD",0,&H12

Ok

SYSTEM

Program terminated normally

-Q

D>BASIC

IBM Personal Computer Basic

Ver4sion D3.10 Copyright IBM Corp. 1981, 1985

61310 Bytes free

Ok

LOAD"D:BASTEST.BAS

Ok

20 BLOAD "D:CLRSCREEN.MOD"

30 DEF SEG = &H9FE0

40 CLRSCRN = 0

50 CALL CLRSCRN

LIST

10 CLEAR ,32768!

20 BLOAD "D:CLRSCRN.MOD"

30 DEF SEG = &H9FE0

40 CLRSCRN = 0

50 CALL CLRSCRN

60 FOR N = 1 TO 5

70 INPUT "HOURS"; H

80 INPUT "rATE"; R

90 W = H * R

100 PRINT "WAGE = " W

110 NEXT N

120 END

Ok

__________________________________________________________________________

Рис.21.8. Этапы связи BASIC и ассемблера.

КОМПОНОВКА ПРОГРАММ НА ЯЗЫКЕ PASCAL И АССЕМБЛЕРЕ

________________________________________________________________

__________________________________________________________________________

program pascall ( input, output );

procedure move_cursor( const row: integer;

const col: integer ); extern;

var

temp_row: integer;

temp_col: integer;

begin

write( 'Enter cursor row: ' );

readln( temp_row );

write( 'Enter cursor column:' );

readln( temp_col );

move_cursor( temprow, temp_col );

write( 'New cursor location' );

end.

_____________________________________________________________________

TITLE MOVCUR Подпрограмма на ассемблере,

; вызываемая из программы на Паскале

PUBLIC MOVE_CURSOR

;----------------------------------------------------------

; MOVE_CURSOR: Устанавливает курсор

; по переданным параметрам

; Параметры: const row Строка и столбец

; const col для установки курсора

; Возвращаемое значение: Отсутствует

;----------------------------------------------------------

CODESEG SEGMENT PARA PUBLIC 'CODE'

MOVE_CURSOR PROC FAR

ASSUME CS:CODESEG

ROWWPAR EQU 8 ;Параметр "строка"

COLPAR EQU 6 ;Параметр "столбец"

PUSH BP ;Сохранить регистр BP

MOV BP,SP ;Установить BP на параметры

MOV SI,[BP+ROWPAR] ;SI указывает на строку

MOV DH,[SI] ;Поместить столбец в DL

MOV AH,02 ;Функция установки курсора

SUB BH,BH ;Страница #0

INT 10H

POP BP ;Вернуться

RET 4 ; в вызывающую программу

MOVE_CURSOR ENDP

CODESEG ENDS

END

__________________________________________________________________________

Рис.21.9. Компановка PASCAL-ассемблер.

В данном разделе показано, как можно установить связь между

программами на языке PASCAL фирм IBM и MicroSoft с программами на

ассемблере. На рис.21.9 приведен пример связи простой PASCAL-программы с

ассемблерной подпрограммой. PASCAL-программа скомпилирована для получения

OBJ-модуля, а ассемблерная программа оттранслирована также для получения

OBJ-модуля. Программа LINK затем компонует вместе эти два OBJ-модуля в

один выполнимый EXE-модуль.

В PASCAL-программе определены две переменные: temp_row и temp_col,

которые содержат введенные с клавиатуры значения строки и колонки

соответственно. Программа передает адреса переменных temp_row и temp_col в

виде параметров в ассемблерную подпрограмму для установки курсора по этим

координатам. PASCAL-программа определяет также имя ассемблерной

подпрограммы в операторе procedure как move_cursor и определяет два

параметра, как extern (внешние). Оператор в PASCAL-программе, который

вызывает ассемблерную программу по имени и передает параметры, имеет

следующий вид:

move_cursor (temp_row, temp_col);

Через стек передаются следующие величины: указатель блока вызывающей

программы, указатель на сегмент возврата, смещение возврата и адреса двух

передаваемых параметров. Ниже показаны смещения для каждого элемента в

стеке:

00 Указатель блока вызывающей программы

02 Указатель сегмента возврата

04 Указатель смещения возврата

06 Адрес второго параметра

08 Адрес первого параметра

Так как ассемблерная подпрограмма будет использовать регистр BP, то

его необходимо сохранить в стеке для последующего восстановления при

возврате в вызывающую PASCAL-программу. Заметьте, что этот шаг в

вызываемой подпрограмме аналогичен предыдущему примеру на рис.21.6.

Регистр SP обычно адресует элементы стека. Но так как этот регистр

нельзя использовать в качестве индексного регистра, то после сохранения

старого значения регистра BP необходимо переслать адрес из регистра SP в

BP. Этот шаг дает возможность использовать регистр BP в качестве

индексного регистра для доступа к элементам в стеке.

Следующий шаг - получить доступ к адресам двух параметров в стеке.

Первый переданный параметр (адрес строки) находится в стеке по смещению

08, и может быть адресован по BP+08. Второй переданный параметр (адрес

столбца) находится в стеке по смещению 06 и может быть адресован по BP+06.

Два адреса из стека должны быть переданы в один из индексных

регистров BX, DI или SI. В данном примере адрес строки пересылается из

[BP+08] в регистр SI, а затем содержимое из [SI] (значение строки)

пересылается в регистр DH.

Значение столбца пересылается аналогичным способом в регистр DL.

Затем подпрограмма использует значения строки и столбца в регистре DX при

вызове BIOS для установки курсора. При выходе подпрограмма восстанавливает

регистр BP. Команда RET имеет операнд, значение которого в два раза больше

числа параметров, в данном случае 2х2, или 4. Параметры автоматически

выводятся из стека и управление переходит в вызывающую программу.

Если в подпрограмме предстоит изменить сегментный регистр то

необходимо сохранить его значение командой PUSH на входе и восстановить

командой POP на выходе. Можно также использовать стек для передачи величин

из подпрограммы в вызывающую программу. Хотя рассмотренная подпрограмма не

возвращает каких-либо значений, в языке PASCAL предполагается, что

подпрограмма возвращает одно слово в регистре AX или двойное слово в

регистровой паре DX:AX.

В результате компановки двух программ будет построена карта

компановки, в которой первый элемент PASCALL представляет

PASCALL-программу, второй элемент CODESEG (имя сегмента кода) представляет

ассемблерную подпрограмму. Далее следует несколько подпрограмм для

PASCALL-программы. Эта довольно тривиальная программа занимает в

результате шест.5720 байт памяти - более 20К. Компилирующие языки обычно

генерируют объектные коды значительно превышающие по объему размеры

компилируемой программы.

КОМПОНОВКА ПРОГРАММ НА ЯЗЫКЕ CИ И АССЕМБЛЕРЕ

________________________________________________________________

Трудность описания связи программ на языке C и ассемблерных программ

состоит в том, что различные версии языка C имеют разные соглашения о

связях и для более точной информации следует пользоваться руководством по

имеющейся версии языка C. Здесь приведем лишь некоторые соображения,

представляющие интерес:

- Большинство версий языка C обеспечивают передачу параметров

через стек в обратной (по сравнению с другими языками)

последовательности. Обычно доступ, например, к двум параметрам,

передаваемым через стек, осуществляется следующим образом:

MOV ES,BP

MOV BP,SP

MOV DH,[BP+4]

MOV DL,[BP+6]

...

POP BP

RET

- Некоторые версии языка C различают прописные и строчные буквы,

поэтому имя ассемблерного модуля должно быть представлено в том же

символьном регистре, какой используют для ссылки C-программы.

- В некоторых версиях языка C требуется, чтобы ассемблерные

программы, изменяющие регистры DI и SI, записывали их содержимое в

стек при входе и восстанавливали эти значения из стека при выходе.

- Ассемблерные программы должны возвращать значения, если это

необходимо, в регистре AX (одно слово) или в регистровой паре DX:AX

(два слова).

- Для некоторых версий языка C, если ассемблерная программа

устанавливает флаг DF, то она должна сбросить его командой CLD перед

возвратом.

ОСНОВНЫЕ ПОЛОЖЕНИЯ НА ПАМЯТЬ

________________________________________________________________

- В основной программе, вызывающей подпрограмму, необходимо

определять точку входа как EXTRN, а в подпрограмме - как PUBLIC.

- Будьте внимательны при использовании рекурсий, когда подпрограмма 1

вызывает подпрограмму 2, которая в свою очередь вызывает подпрограмму 1.

- Если кодовые сегменты необходимо скомпоновать в один сегмент, то

необходимо определить их с одинаковыми именами, одинаковыми классами и

атрибутом PUBLIC.

- Для простоты программирования начинайте выполнение с основной

программы.

- Определение общих данных в основной программе обычно проще (но не

обязательно). Основная программа определяет общие данные как PUBLIC, а

подпрограмма (или подпрограммы) - как EXTRN.

ВОПРОСЫ ДЛЯ САМОПРОВЕРКИ

________________________________________________________________

21.1. Предположим, что программа MAINPRO должна вызвать под программу

SUBPRO. а) Какая директива в программе MAINPRO указывает ассемблеру, что

имя SUBPRO определено вне ее собственного кода? б) Какая директива в

подпрограмме SUBPRO необходима для того, чтобы имя точки входа было

доступно в основной программе MAINPRO?

21.2. Предположим, что в программе MAINPRO определены переменные QTY

как DB, VALUE как DW и PRICE как DW. Подпрограмма SUBPRO должна разделить

VALUE на QTY и записать частное в PRICE. а) Каким образом программа

MAINPRO указывает ассемблеру, что три переменные должны быть доступный

извне основной программы? б) Каким образом подпрограмма SUBPRO указывает

ассемблеру, что три переменные определены в другом модуле?

21.3. На основании вопросов 21.2 и 21.3 постройте работающую

программу и проверьте ее.

21.4. Измените программу из предыдущего вопроса так, чтобы программа

MAINPRO передавала все три переменные, как параметры. Подпрограмма SUBPRO

должна возвращать результат через параметр.

21.5. Теперь предлагаем упражнение, на которое потребуется больше

времени. Требуется расширить программу из вопроса 21.4 так, чтобы

программа MAINPRO позволяла вводить количество (QTY) и общую стоимость

(VALVE) с клавиатуры, подпрограмма SUBCONV преобразовывала ASCII-величины

в двоичное представление; подпрограмма SUBCALC вычисляла цену (PRICE); и

подпрограмма SUBDISP преобразовывала двоичную цену в ASCII-представление и

выводила результат на экран.