лр5

Assembler. Лабораторная работа №5. (4 часа).

«Программирование с использованием взаимодействия Паскаль - Ассемблер».

Цели:

Научиться создавать комбинированные программы, совмещая язык высокого уровня Паскаль и язык низкого уровня Ассемблер.

Ход работы:

1. Изучить (повторить) теоретический материал: Тема 12. Связь ассемблера с языками высокого уровня.

2. Получить (уточнить) у преподавателя номер своего варианта.

3. Выбрать из списка номер своего варианта:

1 2 3 4 5 6 7 8 9 10 11 12

4. Внимательно прочитать условие задачи, если возникли вопросы по условию, задайте их преподавателю.

5. Внимательно изучить пример.

6. Разработать программу для своего варианта.

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

8. Оформить отчет по лабораторной работе - в начале asm-файла записать как комментарий:

номер, название, цель работы;
номер варианта, условие задачи;
результаты тестирования программы (значения исходных данных и полученные результаты в шестнадцатеричной и десятичной системе счисления.
дата окончания работы, Фамилия, Имя, группа.

9. Сдать преподавателю выполненную работу: скопировать папку с файлами проектов (asm, obj, exe) в папку "Рабочий стол\ЛР-сдача\№группы_Фамилия_№ЛР", например, 29в_Петров_5. Оценки по проверенным работам можно посмотреть в электронном журнале.

Пример программы:

Составить программу вычисления:

Основную программу разработать на языке Паскаль. Для вычисления суммы создать функцию Summa(n,k:integer):integer на Ассемблере. Функцию Summa разместить во внешнем obj-файле.

Файл primer.pas:

Program PasAsm;
Function Summa(n,k:integer):integer;external;
Var n,m,y:integer;
{$L asmmod.obj} {подключение файла}
Begin
    Write(‘Введите n,m: ‘);
    Readln(n,m);
    y:=Summa(n,2)-Summa(m,3);
    Writeln(‘y=‘,y);
    Readln;
End.

Файл asmmod.asm:

.model small
.code
begin:
     Summa proc
     Public Summa
            push bp
            mov bp,sp
            mov cx,[bp+6] ;cx:=n
            mov ax,0 ;ax:=0
for:      add ax,cx ;ax:=ax+cx
            loop for ;cx:=cx-1
            imul [bp+4] ;ax:=ax*k
            pop bp
            ret 4
     Summa endp
end begin

Индивидуальные задания

Вариант 1.