TITLE          Лабораторная работа № 4

     SSTACK     SEGMENT PARA STACK  'STACK'
                DB   64 DUP('СТЕК____')
     SSTACK     ENDS

     DSEG          SEGMENT  PARA PUBLIC 'DATA'
     X         DB      1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5
     DSEG          ENDS

SUBTTL         Программа
PAGE
     CSEG      SEGMENT PARA PUBLIC 'CODE'
               ASSUME CS:CSEG,DS:DSEG,SS:SSTACK

     START     PROC FAR
               MOV  AX,DSEG
               MOV  DS,AX

     SETUP:       MOV   AL,4
               MOV   BX, OFFSET X
               MOV   CL, 5
            DEC CL

     EXTERNAL
               PUSH CX
              MOV CL, AL
               MOV DI, 4
               MOV SI, 1

     INTERNAL:
            PUSH DI
            ADD DI, SI

               MOV DL, [BX][SI]
               XCHG DL, [BX][DI]
               MOV [BX][SI], DL
            POP DI

               ADD DI, 4

               INC SI
              LOOP INTERNAL

               DEC AL
               ADD BX, 6
               POP CX
               LOOP EXTERNAL



     OUT:       MOV  AH,4CH
               MOV  AL,0
               INT 21H
     START     ENDP

     CSEG      ENDS
               END  START