



                                  .
                                                              .

     1.   ᮢ ࠡ .                           2

     2. 譨 ஥ .                                       3

     3.  ணࠬ .                                   4

     4. 䨪 ਬ 楤  㭪権 .

     5. ⮢ ਬ .

     6.  ࠡ ணࠬ .

     7. ᮪  .













                                       .
          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


       ࠡ  :  " ࠡ⪠  몠 -᪠ " .



          ࠡ । ࠧࠡ 쭮

      室  몠 ᮪ ஢ (室  - ᮪-

      饭 ᪠),   ࠦ  室 ᪨

       䬥᪨ 権  ᤥ   ⮣ 몠 

      設  (  ஢) .














                                         .
               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

         ࠡ  ᠭ ணࠬ, ⢫饩
       ॢ ()  , ।⠢  室 몥
       ᮪ ஢ ( ᪠ )    ( 設 ) ஢,
        ⢥ ண ࠭  ய i8088 (8086) ,
       ..  設 ਨ  IBM PC.

                    Ŀ
         室                      室
                                          
                          -              
             >Ĵ                      >
                                   
        (饭멳                          (ᥬ IBM PC)
                                          
         ᪠)   







          䠢  䨪  몠 -᪠ .
          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

       -᪠   ᫥騬 ஬ ᨬ:
          1) 뭥   ⨭᪨ 㪢
          2) ࠡ᪨  ( 0  9)
          3) ᯥ樠 ᨬ
          4) 祢 ᫮

          ᯮ짮  㣨  . -
       ਩ ।⠢ ᫥饩 樥 :

                    {   ⥪  }

          饭    ணࠬ .

            ।⠢ ਠ 몠 ন  ࠧ
       ⠭⭮ ᪠ ,   ࠧ ,  ,  ,
        ,    ,  .

           ࠡ뢠    ⠭   ६.
       ⠭-    , 祭    
       ६ ᯮ ணࠬ .  -᪠ ন
       ⮫쪮 楫 ⠭ - 楫 ᫠  窨 .

           ६ -   ꥪ,    -
        ணࠬ  ਭ ࠧ 祭 .

            ⠭  ६  ᮤঠ 㪢 (..Z) ,
        (0..9)   ન .  ᥣ  稭
        㪢 .

       ⠭ ६ 楫 , ᮪饭 楫  ᪮
       ⨯ 뢠 ᫥騬 ࠧ :
                                       ⨯
                                             
                                     integer    { 2  }
             VAR  <ᯨ᮪ >  :    byte    ; { 1   }
                                     boolean    { 1   }
                                             

            ⠪ 뢠  ⨯.

            ᢥ ᫮ ⨯ ॠ ⨯  :

       VAR < ᨢ> : array [<।1>..<।2>] of <⨯ ⮢>

            - ᪠ । 稥 ⮫쪮  ᨢ,
       ᯮ  ⢥ ⮢ ᨢ ࠭ ᠭ  ࠧ
      ⨯ 㣨 ୠ ᨢ  㫨஢  ᨢ.

           ⥧ ⠭  ६ - ⨯஢ ⠭ :

           CONST <> : <⨯> = 祭 ;

           ⨬ ⠭⠬   ࠡ ணࠬ  ᢠ
      祭   ६.

            ᪠ ணࠬ ⮨      
      ᫥  :

           {  }
           program ;
           {  }
              label                 {ࠧ ⮪}
              const                 {ࠧ ⠭}
              type                  {ࠧ ⨯}
              var                   {ࠧ ६}
              procedure,function    {ࠧ 楤  㭪権}

           begin
             _1;            {ࠧ ஢}
             _2;
               . . .
             _n;
           end.


                    .

           ࠦ   ᫮ ⠭, ६, 㭪権
       権  .   祭 䬥᪨  ᯮ-
       ᨬ : + (᫮) , - (⠭) , * (㬭) 
                       / () ;
       祭 権 ⭮襭 ᯮ ᨬ :
                       = (ࠢ) , < () , > () ;


                    .

            ᢠ .
           騩   :       <> := <ࠦ> ;
        -  ६ , ⥪饥 祭 ன 
       祭 , ।塞 ࠦ .

           ⠢ .
           騩   :    begin
                                      _1;
                                      _2;
                                        . . .
                                      _n;
                                    end;
            begin  end 믮 ஫  ᪮ :
      뢠饩  뢠饩 . ⠢   ⠢
         ணࠬ ,  ᪠ ᯮ짮 
      .

            ᫮ 室.
           騩   :              goto <⪠> ;
      ⪠ - 䨪,    ।⥫쭮 ᠭ
       ࠧ label. ⪠ 뢠 । 祬 ॠ஬,
       ண ⤥ 稥.

            ᫮ 室.
           騩   :
               if <.ࠦ> then <1> [else <2>] ;
            else  ஬2  ⢮.
           ᫨ ࠦ ⨭ ,  믮 1 , 
           믮 2.


           ॠ 横 repeat.
           騩   :
                   repeat
                      < 横᪮ >
                   until <.ࠦ> ;
            横᪮  믮   , 
      ᪮ ࠦ  ,  ⮫쪮 . ࠦ ਭ
      祭 ⨭ , 믮 横 ४頥.













                                    .
               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


             -᪠ ॠ ᭮ ਭ樯
      ஥  ஢  몠 ᪠ - 室
      (ᬮ஢).  ਭ樯 । ,  
      ⪨ , ⠭ , ६ , 楤   ..  
      ।⢥ ᯮ짮  ୮  
       ।⥫쭮 ᠭ  ᮮ⢥ ࠧ.

           ⨢   ࠧ   
      :

               Ŀ   Ŀ   Ŀ
       室                                      室
          >      >      >       >
                                              
                     

         - ᪨  ,
            - ᨭ⠪᪨  ,
            -   .

      ⮪ 室 ᨬ  室 䠩 㯠  ᪨
       ,  뤥 ᥬ (  몠)
       ।     ਭ (᫠, -
       , 稥) . 祭 ᥬ ᯮ  ନ஢
      ⠡ ⮪, ⠭, ६  .. ⠪᪨ 
      ஢ 室 ⮪ ᥬ  ४⭮   ୮ 
      㧢 ࠧ ࠦ      ᥬ᪮
      ॢ.   ᭮ ᥬ - १ࢨ஢ ᫮  ᥬ-
      ᪮ ॢ ந   (室 - ᥬ
      ⨭   i8086).
            室 䠩   ࢮ 訡.

           裡  ⥬ ,  室 -  ꥪ  ,  ⥪⮢ 䠩
         ᥬ ,   -᪠  
      㦥  ࠢ  ⠭ ᪠ .  ,  -
      䨪 ( ६, ⮪, 楤  ..)  
      㭨쭮  ,  ࠧ    ६.
      楤ࠬ  㭪 । ⮫쪮 ࠬ-祭.















                                     -   .
            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   { 뢮 ᥫ  室 䠩  HEX-ଠ }
function hex(nm:integer):str7;
               { - 訡 }
procedure errors(i:integer);
          {   ⠡ ⮪ }
procedure poisk_lab(nm:str7;var i:integer);
  {   ⠡ ⨯஢ ⠭ }
procedure poisk_const(nm:str7;var i:integer);
             {   ⠡ ⨯ }
procedure poisk_types(name:str7;var i:integer);
          {   ⠡ ६ }
procedure poisk_var(name:str7;var i:integer);
           {   ⠡ १. ᫮ }
procedure poisk_resword(name:str7;var i :integer);
     {   ⠡ 楤  㭪権}
procedure poisk_proc(name:str7;var i :integer);
  {⮫ ᨬ ⭮  室 ⮪}
procedure putchar(cc:char);
   {  ᨬ : ਧ஢  }
Procedure GetChar;
            { ய  }
procedure blankcom;
      { ய ஡ }
procedure blank;
             {  楢  - ; }
procedure poisk_eol;
{ 祭  ⠡ ⨯஢ ⠭ }
procedure append_const(nm:str7;vl:byte);
      { 祭  ⠡ ६   }
procedure append_var(nm:str7;tp:byte);
{祭 ⨯. ⠭  ⠡. ६}
procedure append_tconst(nm:str7;tp:byte;vl:integer);
      { 祭  ⠡ ⮪ }
procedure append_lab(nm:str7);
      { 祭  ⠡ ⨯ }
procedure append_typ(nm:str7;fir,sz,el:byte);
      { 祭  ⠡ 楤/㭪権 }
procedure append_typ(nm:str7;fl:boolean;lb,rb:byte);
          { -  ᥬ  祭  祭 }
procedure getlex(var class : tclass;var name : str7; var value : integer);
                   {  䨪 }
procedure getident(var st:string);
  {  ᫮  ⠭ }
function getvalue:integer;
  { ᮪ ࠡ⪨ :  array [a..b] of xtype }
procedure proc_array;
        {  ᯨ᮪  : name , name , .. name }
procedure getlist;
   { 砥   ࠧ,  ᫥饥  }
procedure poisk_chapter;
   {  ࠦ    }
procedure getexpress(var st:str60);
   { ᬮ    }
procedure pros;









                          .
          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

program proba ;
label lab1,lab2;
const n=10;
      m=100;
    prg:integer=1024;

type ts,paaa,pooo=array[1..8]of integer;
     tts=array[1..n]of ts;
var s:ts;
    i:integer;
  arr:array[n..m]of byte;

function sin(arg:integer):integer;
  begin
    sin:=sin+100;
  end;

procedure bebe(aaaa,bbbb:integer);
 var a,b:integer;
 begin
   a:=a+b+1;
 end;

procedure proc;
 var awp:array[5..100] of boolean;
 begin
 end;

begin
    i:=1;
    proc;
    bebe(12,13);
    repeat
     s[i]:=i;
    until i>200;
    asm
      MVI    AX,100H
      MOV    [I],AX
    endasm;
end.













                                     .
                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

       1. ନ ..  ணࠬ஢  몥 ᪠
                         . : "  " ,1988

       2. ஢ ..   ..
                         ணࠬ஢  ⥣஢
                         । ࡮-᪠.
                         , "" , 1992

       3.       ᥬ  IBM PC  ணࠬ஢.
                         . : " 誮" , 1992








