stk   segment         STACK
        db      64 dup(?)
stk   ends
data    segment
 mes db    0ah,0dh,'massiv- ","$' 
 mas db    10 dup(?) 
 i   db    0
data    ends
code    SEGMENT
assume ss:stk,ds:data,cs:code
prg_12_1   proc    far
     push    ds
     sub     ax,ax
     push    ax
;---------------------
     mov  ax,data
     mov  ds,ax
;----------------------
     xor  ax,ax ;ax=0000
----
----
---
----
---
---
exit:
    mov ax,4c00h  
    int 21h
      ret
prg_12_1 endp
code  ends
      end  prg_12_1