          ᥬ  IBM PC.  14                            24


          
           14
          ------------------------------------------------------------
          
          ࠡ⪠ ⠡
          
          :   ॡ   । ⠡, ࣠
          樨 ᪠  ⠡  ஢ ⮢ ⠡.
          
          
          ------------------------------------------------------------
             
                ணࠬ   ਬ   ᯮ  ⠡
          ࣠  ⠪  ,    ,  ᠭ, ࠧ,
          業.  ।    ᯮ짮  ⠡  砥  
            ᥬ  -  XLAT.  ࠧ, ᯮ짮
           ⠡  -       孨   ਬ ,
          祭  । .
                     稭    ।   
          饯ਭ ⠡. ࣠ ᪠  ⠡  
          ᯮᮡ  ।.   ࠧ ਠ⮢
          । ⠡  ⬮ ᪠.
          
           
          ------------------------------------------------------------
             
               祭  ⠡筮   ᪠  設⢮  ⠡
          । ⥬筮, ..  ⠡  
           ଠ (ᨬ  ᫮),     
          室  室 ᫥⥫쭮 ⮢.
             ,  ன  㦥 室 짮   
            -    ⥪,  ।⠢騩 ᮡ  ⠡   64-
          樠஢ ᫮:
             
                         STACK     DW   64 DUP(?)
             
             騥    ⠡  樠஢  ᨬ묨  
          ᫮묨 祭ﬨ:
             
                    MONTAB    DB   'JAN','FEB','MAR', ... ,'DEC'
                    COSTAB    DB   205,208,209,212,215,224,...
             
           MONTAB । 䠢 ॢ 楢, 
          COSTAB -  । ⠡ ஢ 㦠.  
          ⠪  ᮤ  ᬥ蠭    (ॣ୮ ।騥
          ᫮    ᨬ  ).    ᫥饩 ⨬⭮
          ⠡    ᫮   ( ) 
                (  ),       ᨬ  
          ()      ⮢.  窨,   
           "Paper"    ⮣    9 .
          窨   뢠,     饥  ࠭⢮  
          ⢮.  窨 易⥫쭮.
          

          
          ᥬ  IBM PC.  14                            25


               STOKTBL DB 12,'Computers',14,'Paper....',17,'Diskettes'
          
           ᭮  ஢  ⠡ ⨪쭮:
          
                    STOKTBL   DB   12,  'Computers'
                              DB   14,  'Paper....'
                              DB   17,  'Diskettes'
             
             ᬮਬ ⥯ ࠧ ᯮᮡ  ᯮ짮 ⠡
           ணࠬ.
          
            
          ------------------------------------------------------------
          
             ।,   짮⥫     -  03 
          ணࠬ    ८ࠧ        䠢⭮
          祭 March.  ணࠬ  믮 ⠪ ८ࠧ
             砥  ।   ⠡   䠢  
          楢,      .    ᠬ 
           - September,  ⠡  ᫥騩 :
             
                         MONTBL    DB   'January..'
                                   DB   'February.'
                                   DB   'March....'
             
            ⠡    9  .   
          'January'  -  MONTBL+0,  'February'  -  MONTBL+9,  'March' -
          MONTBL+18.    樨    03,  ணࠬ  
          믮 ᫥饥:
          
          1.   ८ࠧ         ASCII  33 
               筮 03.
          2.       :   03 - 1 = 02
          3.    १    (9):   02  9 = 18
          4.   ਡ   ந  (18)        MONTBL;  
               १   ॡ㥬   :
               MONTBL+18.
          
          ------------------------------------------------------------
          ------------------------------------------------------------
                    . 14.1. ﬠ ⠡筠 .
             
              .14.1  ਢ  ਬ  אַ 㯠   ⠡
           楢.    ⪮    ணࠬ ᯮ
           ᨬ  - ᨬ. 
              ।      MONIN.  ।,  
            ணࠬ  ନ        
            ASCII-ଠ   MONIN.
             ᠭ  孨 ࠡ    ⠡楩  뢠 
          ⠡ 㯮.  ᪮   ।⢥
            p 室      ⠡,   
          ணࠬ  ॡ 믮 樨 ᪠.


          
          ᥬ  IBM PC.  14                            26


               ﬠ  ⠡筠   祭  䥪⨢, 
            ⮫쪮   ᫥⥫쭮  ࣠樨.  
              ᯮ짮    ⠪   ⠡,    ᫨   
          ᯮ  ॣ୮  ᫥⥫쭮:  1, 2, 3,...
           106,  107, 108,...   5, 10, 15. ,  ᥣ
          ⠡  ஥   ⠪  ࠧ.     ᫥饬  ࠧ
          ᬠਢ ⠡, 騥 ॣ ࣠.
          
           
          ------------------------------------------------------------
          
              ⠡    ᥫ,     
          ୮.  ࠪ  ਬ  -  ⠡ 
          ஢   ᫥⥫묨 ࠬ,  ਬ,  134, 138,
          141,  239  245. 㣮 ⨯ ⠡ ⮨  ।
           ࠭ 稭,  ⠪  室 .  ᫥
          ࠧ ᬮਬ  ⨯ ⠡  ࣠ ⠡筮
          ᪠.
             
               㭨묨 ⠬
             
                 設⢠         
          ᫥⥫쭮 浪.  ,  筮, 㯯 
          ⥣,     㪠뢠     ਡ,
              ⤥.  ஬  ⮣  ६    ६  
          㤠,   .  ⠡ 室 易
                    (, ᫨
          ॡ,     ⮨).       
               ।    ࠧ ⠡,
          ਬ:
             
               STOKNOS DB '101','107','109',...
               STOKDCR DB 'Excavators','Processors','Assemblers',...
          
             ⠡, ਬ:
          
                    STOKTAB   DB   '101','Excavators'
                              DB   '107','Processors'
                              DB   '109','Assemblers'
                              ...
             
             ணࠬ    .14.2  ।  ⠡ 
          믮  ⠡  .     ᮤন    
          ஢  .   ᪠ 笭  ࠢ
            ୮        STOKNIN   
          ஬  ⠡. ᫨  ࠧ,    ⠡
          㢥稢      ࠢ     ᫥騬  
          ஬.  ᫨    ࠢ,    ணࠬ (A30) 뤥
            ⠡  뢠    DESCRN.
              믮 ᨬ  ࠢ  ᫨ ॡ㥬
              ⠡  ,    ந室  室  
          ணࠬ   ࠡ⪨  訡,     뢮    ࠭
          ᮮ⢥饥 ᮮ饭.

          
          ᥬ  IBM PC.  14                            27


                ,       砫  ணࠬ  
          ,     뫠  ᮤন    STOKNIN  
          ॣ AX.   STOKNIN ।   3233,  MOV
          㧨  ॣ AX  祭   ⭮ ᫥⥫
            ⮢  3332.     ⠡   
          ᫥⥫쭮  ⮢,    ᫥    MOV 
            XCHG,    ⠬    ॣ AX,
              ᫥⥫쭮,  .. 3233. 
          CMP,  ।    ᫥⥫쭮,  ࠢ
          ᭠砫  ࠢ  ,    ⥬  -  .  ⥫쭮,
          ஢ઠ   p⢮  㤥   ४⭮,    ஢ન 
                    ࠢ  १.  
          ࠢ         ᫥   
          XCHG,  ᫠   ⠡    MOV,  ᪠, 
          ॣ  BX   ⥬ ࠢ  ᮤন ॣ஢  AX  BX
          ᫥騬 ࠧ:
             
                              MOV  AX,STOKNIN
                              LEA  SI,STOKTAB
                         C20:
                              MOV  BX,[SI]
                              CMP  AX,BX
                              JA  JB ...
             
              ணࠬ ⠪  ⨯ 㣠 ⠡   ।
          ⮨    ⮢.   ணࠬ    
            ⠡,  ᫨ த ⮨ (⢮
          ⮢ 㬭    ⮨  ⮢)    뤠 
          ࠭   ࠤ ⮨ ⮢.
               ਬ   .  14.2   ⠡ ᮤন 塠⮢
            ⨡⮢  . ⠫쭮 ணࠬ
            㤥  o⫨     ࠧ筮  ᫠     
          ⮢.  ਬ,  ࠢ 塠⮢  
          ᯮ짮   REPE  CMPSB,       ⠪
          砥 ᯮ짮 p CX.
             
               ࠭஢
             
             宦      ࠪ  ਬ   ⠡  
          ࠭஢묨   祭ﬨ.    ।⠢   ᥡ   ⠡,
          ᮤঠ  ࠧ  室  o  ,  業
            ࠢ 樥:
             
                室    業     ࠢ -
             
                    0-1000.00           10               0,00
              1000,01-2500,00           15             050,00
              2500,01-4250,00           18             125,00
              4250,01-6000,00           20             260,00
              6000,01             23             390,00
             



          
          ᥬ  IBM PC.  14                            28


             ⠡ 業 㢥稢   ᮮ⢥⢨ 
          㢥祭     室.     ⠡
          室 ᮤঠ ᨬ 稭   蠣:
          
                    TAXTBL    DD   100000,250000,425000,600000,999999
          
           ࣠樨 ᪠  ⠪ ⠡, ணࠬ ࠢ
          x ⨫騪  ⠡ 祭 室:
          
          ᫨   ࠢ,
                ᯮ짮 ᮮ⢥騩 業  ࠢ;
          ᫨ ,  ३  ᫥饬  ⠡.
          
          稭  뢠  㫥:
          
               室    業  : 100 - ࠢ -
          
                ᯮ짮 ࠢ ப
             
             ᫨  ⠡ ॢ蠥    ,   
          樨 ࠢ    ᯮ짮    REPE CMPS.
          ।,    ⠡    ஢  (.14.2)
          ।  塠⮢  ஢.  ᫨ STOKNIN 
               ,   STOKTAB -  ,  
           룫拉 c騬 ࠧ:
             
          : 123035Excavators038Lifters   049Presses    ...
                                                
          :  00  03 06         16 19         29 32
          
          ணࠬ    .14.3  । ⠡ STOKTAB, 
          ᫥   '999'    樨    ⠡ 
          ᪥.   ணࠬ  ᪠  ࠢ  ᮤন  
           ⠡  ᮤন  STOKNIN:
          
           ⠡     STOKNIN    ࠢ
          
               035            123       : ஢ ᫥.-
               038            123       : ஢ ᫥.-
               049            123       : ஢ ᫥.-
               102            123       : ஢ ᫥.-
               123            123       :  
             
             ⨬,   CMPSB  .14.3 ࠢ  
          ⮬,      ࠢ  ⮬᪨ 㢥稢
           ॣp SI  DI.
          
          ------------------------------------------------------------
          ------------------------------------------------------------
             .14.3.    ᯮ짮  CMPSB
          



          
          ᥬ  IBM PC.  14                            29


               CX  樠  祭 03,   砫
          ⭮⥫     ॣ SI    DI ⠭
          ࠢ묨 03  00 ᮮ⢥⢥. ࠢ   ⮬
          ⠡ (035:123)  蠥  ࢮ ,  ᫥ ⮣
          ॣ SI  ᮤন  04,  DI:  01,  CX:  02.  ᫥饣
          ࠢ  ॣ SI     祭 16,   DI: 00.
          ४஢ ॣ  DI  ᢮   ⮩ १㧪
            STOKNIN.   祭     ᫥饣  
          ⠡,     ॣ SI,   ⮣,
               (ࢮ,  ஬    쥬) 稫
          ।饥 ࠢ.   CX  ᮤন  ᫮  , 
            ࠢ,     砥 -  02. ਡ 
          ᮤন  ॣ  SI  祭   ॣ  CX   
          ,   稬   ⭮⥫      ᫥饣
          :
             
                      SI ᫥ CMPSB             04
                    ਡ CX                       02
                    ਡ         10
                    ⭮⥫  ᫥.  16
             
                 ॣ  CX  ᥣ  ᮤন  ᫮  ,  
              ࠢ  (᫨  ⠪   ),    
          ࠢ   砥:  ४饭 ࠢ ᫥ 1,
          2   3  .  ᫨ ࠢ   , 
          ॣ CX  祭 00,    p SI 㪠
           ॡ㥬 .
             
               ⠬ ६ 
             
               ⠡,      ६
          .       ⠪  ⠡    
          ᯥ樠 ᨬ ࠭⥫, ਬ, .00; 
          ⠡      p⥫  .FF.    ⮬
          砥  室  ࠭஢,  ⮡    ⮢
          ⠡  砫 㪠  ࠭⥫. , 
            ᫠  ࠦ  묨 ⮢묨 
          .  ᪠  ᯮ짮  SCAS.
             
            XLAT
          ------------------------------------------------------------
             
              XLAT ࠭᫨ ᮤন    㣮
          ।।  祭.        XLAT 
          ஢  ४⭮  ᮤন  ⮢  . 
          ।     ᮭ  ஬     
          (IBM)      XLAT  믮 ४஢
            ଠ⠬ ASCII  EBCDIC.
              ᫥饬 ਬ ந室  ८ࠧ    0
           9    ASCII   EBCDIC.   ।⠢ 
           ASCII 룫廊  .30-39,   EBCDIC - .F0-F9, 
             믮   OR.  , ⥫쭮
          ८ࠧ㥬  ⠫   ASCII   ஡  (.40) 

          
          ᥬ  IBM PC.  14                            30


             EBCDIC.       XLAT   室  ।
          ⠡ ४஢,   뢠   256 
          ᨬ,   EBCDIC   ASCII :
             
             XLTBL  DB   47 DUP(40H)    ;஡   EBCDIC
                    DB   0F0H,0F1H,0F2H,0F3H,...,0F9H  ;0-9 (EBCDIC)
                    DB   199 DUP(40H)   ;஡   EBCDIC
             
            XLAT  ।   ⠡  ॣ  BX, 
          ࠭᫨㥬   (ਬ,    ASCNO)   ॣ AL.
          騥  믮 ⮢  ࠭ :
          
                              LEA  BX,XLTBL
                              MOV  AL,ASCNO
                              XLAT
          
            XLAT ᯮ 祭   ॣ  AL  ⢥
          ⭮⥫쭮 a  ⠡,  .. ᪫뢠   BX
           ᬥ饭  AL. ᫨, ਬ, ASCNO ᮤন 00,  
            ⠡ 㤥 XLTBL+00    XLAT  00 
          .40   ⠡.  ᫨   ASCNO  cন .32, 
           ᮮ⢥饣   ⠡ 㤥  XLTBL+50. 
           ᮤন  .F2  (2    EBCDIC),   
          XLAT 㦠  ॣ AL.
          
          ------------------------------------------------------------
          ------------------------------------------------------------
               .14.4. ८ࠧ ASCII  EBCDIC.
          
                ணࠬ      .14.4     ८ࠧ
          筮 窨 (2E)    (2D)   ASCII  
          EBCDIC  (4B  60  ᮮ⢥⢥).    ணࠬ ࣠
          横  ࠡ⪨ ⨡⮢ .   ASCNO  砫
          믮  ணࠬ ᮤন  祭  31.5  ᫥騬
          ஡,   .2D33312E3520.   믮 ணࠬ
             EBCNO    . 60F3F14BF540.
             
          :  .  ASCII-
          ------------------------------------------------------------
          
             ணࠬ,  ਢ  .14.5, ⮡ࠦ  ࠭
            ASCII-ᨬ,  ⠪  .祭. ਬ,
          ASCII-ᨬ  .53 -  㪢 S,   ணࠬ
          뢮   53 S.  ࠦ  ࠭ 룫廊 
            1616:
             
                    00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
                    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
                    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
                    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
                    F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF
              
          ------------------------------------------------------------

          
          ᥬ  IBM PC.  14                            31


          ------------------------------------------------------------
               .14.5. ⮡ࠦ .  ASCII-
          
              뫮        .8.1,  ⮡ࠦ ASCII-
          ᨬ,  oᮡ  ஡    뢠.      ᠥ
          ⮡ࠦ .祭  ᨬ ASCII,    
           ᫮.  ਬ,   뢮  ࠭    ASCII
          . 00, 01  .. 室 ८ࠧ .00  .
          3030, .01  .3031  ..
              ணࠬ 砫쭮 祭  HEXCTR  ࠢ 00. 
          祭  ᫥⥫쭮  㢥稢     1.  楤
          C10HEX   饯      HEXCTR         ..
          ।,     HEXCTR ᮤন .  4F. 楤
          ᭠砫 뤥 . 4   ᯮ  祭 
          ४஢  ⠡ XLATAB.  ॣ AL ⠭
             १ 祭 .34.  ⥬ 楤 뤥
            .  F     ४       .46.  
          १ oࠡ⪨ 砥 .3446,   ⮡ࠦ
           ࠭  4F.
                 㭪  DOS    뢮    ࠭  (.40)
          ᬠਢ  .1A      䠩,      ணࠬ
            祭    ஡. ணࠬ, ᯮ
           뢮    ࠭ 㭪 DOS (.09),   
          ᨬ ࠭⥫ '$'  ஡.
                   ࠧ   ᯮᮡ  ८ࠧ
          .    ASCII-ᨬ.    ᯥਬ஢  
          ﬨ ᤢ  ࠢ.
          
          :   
          ------------------------------------------------------------
             
                   室   ஢  ⮢
          ⠡    室饬    室饬  浪.  ਬ,
          짮⥫      ॡ   ᯨ᮪   
          ⮢    䠢⭮   浪    ᯨ᮪     業  
          室饩 ᫥⥫쭮.  筮,  ⠡  
          ।    ।饩  ணࠬ,    㦠 
              ᪠.    ࠧ 饭 ஢
          ⮢   ⠡,     ᠥ  ࠧ  ਬ,
           ஢ ᥩ   ᪠,    
           ᫮ ணࠬ.
               ᪮쪮  ⬮  ஢  ⠡  
          䥪⨢,    ,   䥪⨢   .
          ணࠬ ஢,  ।   ࠧ, 쬠
          䥪⨢     ਬ    襭⢠ ⠡
          ஢.  筮,  ᫨  ஢ ࠧ 
          ஢,      ᠬ  䥪⨢  ணࠬ 
            ࠡ饩    ᪮ ᢥ.   楫 
            -    孨  ᥬ,      ஢.
          ᭮ 室  砥  ࠢ  ᥤ ⮢
          ⠡.  ᫨       ண,  
            ⠬.     ࠧ   믮  ࠢ
          ⮢  1    2,  2    3    ..      ⠡ 

          
          ᥬ  IBM PC.  14                            32


          ⠭  ⮢ ⠬,      室.  ᫨ 
          室 뫨 ᤥ ⠭,    
             砫  ⠡ ..  ࠢ ᭮  1-2,
          2-3   ..  ᫨  室  뫮 ⠭,  ⠡
          ஢   ४ .
               ਢ  ,      ஬  ६  SWAP
           ஬:  뫠 ⠭ ⮢ (YES) 
           (NO):
             
             G10:   ।  ᫥ 
             G20:   ⠭ SWAP=NO
                    ।  ࢮ 
             G30:    > ᫥饣 ?
                         :  ।⠢ 
                              ⠭ SWAP=YES
                    ३  ᫥饬 
                     ⠡?
                         : ३  G30
                         :  SWAP=YES?
                              :  ३  G20 ( .)
                              :  ஢
             
             ணࠬ,     .14.6,  ᯥ稢  
            30  ,  ஢    䠢
           浪  뢮  ࠭ ஢ ᯨ᪠ .
          
          ------------------------------------------------------------
          ------------------------------------------------------------
                    .14.6. ஢ ⠡ .
          
           ,   
          ------------------------------------------------------------
             
             ᥬ  ᮤন   ᯥ樠  ஢, 
             묨    ணࠬ஢. ਬ,
                   ⠡   ਤ  ஢
          ணࠬ  (    ।  ⠡)   楤,
          ஢騥    ⠡.    ⮬  砥  ᯮ짮
          ஢  TYPE  (⨯),  LENGTH  ()    SIZE  (ࠧ)
           㬥 ᫮ 㥬 .
             ᬮਬ । ᫥饩 ⠡   ᫮:
             
                    TABLEX    DW   10 DUP(?) ;  10 ᫮
             
          ணࠬ  ᯮ짮    TYPE  ।
          ⨯ (DW    砥),   LENGTH  ।
          DUP-䠪  (10)      SIZE    । ᫠
          ⮢ (10    2  =  20). 騥   
          ⠪ ਬ:
          
                    MOV  AX,TYPE TABLEX      ;AX=0002
                    MOV  BX,LENGTH TABLEX    ;BX=000A  (10)
                    MOV  CX,SIZE TABLEX      ;CX=0014  (20)

          
          ᥬ  IBM PC.  14                            33


             
             祭 LENGTH  SIZE   ᯮ짫   砭
          ⠡筮 ᪠  ஢.  ਬ, ᫨ ॣ SI
          ᮤন த  ⠡  ⢫ ᪠,
           ஢ઠ   ⠡   ᫥騩:
             
                         CMP  SI,SIZE TABLEX
             
                23  "ࠢ筨  ४⨢ ᥬ" 
          ⠫쭮 ᠭ ஢ TYPE, LENGTH  SIZE.
          
             
          ------------------------------------------------------------
          
                 設⢠   ਬ,   ।  ⠡,
               騥  த⢥         ଠ
               .
          
              ன  ⠡   ᭮  ଠ⮢ . ਬ,
                    ᨬ     ᫮ 
               ,     ⮢ .   
               ࠪ ।  ⠡: , ਬ, 
               ᨬ   祭   p,      㣠   
               塠⮢ 祭  業    ⮢.   
               ᪠   ⮢ ⠡ ஢   㢥
                 3,   ⮢ ⠡ 業 -  2. ᫨
               ࠭ ᫮ 믮 横  ᪥  ࠢ,
               ,  㬭  ᫮   2  (SHL ᤢ    
               ),  稬  ⭮⥫    ᪮ 祭
               業.  (砫쭮 祭 稪  横  
               ࠢ  -1).
          
              ,    DB    ।  祭,  
               ॢ騥  256,    DW  뢠     ⭮
               ᫥⥫쭮.   CMP   CMPSW ।,
                       ࠢ   ᫮    
               ᫥⥫쭮.
          
              ᫨ ⠡ ࣠  ,  
                㯭 ᪮쪨 ணࠬ,     
               .      ᥭ         ⠡  
               ࠧࠡ  ᯥ樠  ணࠬ  䨪樨. 
               ணࠬ    㦠  ⠡     ᪠    
                 ⠡  ᠬ  ணࠬ    㦤  
               .
          
               ᮡ  ⥫   ஢ 
               ணࠬ.    ஢   ஢,
               ⠪    訡   ਢ  ।᪠
                १⠬.
          
            
          ------------------------------------------------------------

          
          ᥬ  IBM PC.  14                            34


          
          14.1. ।  ⠡,     ᮤন     
                , 稭  ᥭ.
          
          14.2  ।,  ᥭ ࠢ 1,  
                אַ  㯠    ⠡,  ।   
                14.1. ᯮ  室騥 .
          
          14.3  ।  ⤥ 易 ⠡, ᮤঠ
                ᫥騥 :
                    ) ᫮ : 06, 10, 14, 21, 24;
                    )  : , ਥ,
                , , ᪥;
                    ) 業: 93.95, 82.25, 90.67, 85.80, 13.85.
          
          14.4  ⠢  ணࠬ,       ᫮
                 (ITEMIN)   ⢮  (QTYIN)   .
                ᯮ   ⠡       14.3,  ࠧࠡ⠩
                ணࠬ ⠡筮  ᪠   ࠢ ITEMIN.
                뤥   ⠡     業. ⠩
                稭 ⮨ (⢮    )   뤠 
                ࠭   ⮨.
          
          14.5  ᯮ ᠭ ⠡    14.3, ⠢
                楤:  ) 뫠 ᮤন  ⠡ 
                  ()  ⠡;  )    ᮤন
                 ⠡  室饩 ᫥⥫쭮.



























          
