Вивчення компіляторів мови Паскаль та асемблер (Звіт з лабораторної роботи № 1)

Міністерство освіти та науки України

Національний Технічний Університет

«Харківський Політехнічний Інститут»

Звіт

з лабораторної роботи № 1

з дисципліни «системного програмування»

Виконав:  студент

групи КІТ-14в     

Богачов О. С.      

Викладачі:           

Межерицький С. Г.

Харків-2006 р.

Тема: Вивчення компіляторів мови Паскаль та асемблер.

Ціль роботи: ознайомитися з компіляторами. Вивчити особливості компіляції. Аналіз коду, отриманного після компіляції.

Хід виконання роботи:

Індивідуальне завдання:

Задано масиви А и В по N = 25 елементів (констант типу WORD). Визначити суму й кількість елементів Ai, що задовольняють умові Ai > Bi. Використовуючи відладник debug.exe, отримати лістінг машиних кодів програм та провести аналіз цих кодів.

Текст програми на асемблері:

data segment

  n    dw 25; kol-vo elementov

  a    dw 5 dup (10,4,4,0,1)

  b    dw 5 dup (9,10,2,1,3)

  s    dw 8738

  k    dw 4369

data ends

code segment

assume cs:code,ds:data

start: mov ax,data

          mov ds,ax

          lea si,a

          lea di,b

          mov cx,n

          xor ax,ax

                   pop bp

                   xor bp,bp

   m2:mov bx,[si]

          mov dx,[di]

          cmp bx,dx

          jle m1

          add ax,bx

                   inc bp              

    m1:add si,2

           add di,2

           loop m2

           mov s,ax

               mov k,bp

                    push bp

           mov ah,4ch

           int 21h

      code ends

              end start

Текст програми на мові Паскаль:

program l4;

var

               q,i:integer;

               a:array[1..25] of integer;

  b:array[1..25] of integer;

  s:integer;

  k:integer;

begin

               randomize;

  q:=$5555;

               for i:=1 to 25 do

  begin

    a[i]:=random(10);

    write(a[i],' ');

  end;

  writeln;

  q:=$5555;

               for i:=1 to 25 do

  begin

    b[i]:=random(10);

    write(b[i],' ');

  end;

  writeln;

  q:=$5555;

  k:=0;

  s:=0;

  for i:=1 to 25 do

  if (a[i]>b[i]) then

  begin

               inc(k);

    s:=s+a[i];

  end;

  write(s,' ',k);

  q:=$5555;

  end.

Текст програми на мові С:

void main(void)

{

 int i,k=0,a[25],b25,s=0;

  i=0x5555;

  for(i=0;i<25;i++)

  a[i]=random(10);

  i=0x5555;

  for(i=0;i<25;i++)

  b[i]=random(10);

  i=0x5555;

  for(i=0;i<25;i++)

  if(a[i]>b[i])

 {

k++;

s=s+[i];

 }

  i=0x5555;

  cout<<s<<” ”<<k;

  i=0x5555;

}

Лістінг машиних кодів:

Pascal