Обнуления массива слов

data segment
massiv dw 1,-2,3,4,5,6,7,8,9
data ends
code segment
assume es:data, cs:code
start:
push ds
pop es
lea di,massiv
xor ax,ax
mov ax,3
int 10h
code ends
end start

.model small
.386
.stack
.data
massiv dw 1,-2,3,4,5,6,7,8,9
arr_sz  = ($-massiv)/2
.code
start:
    mov ax, @data
    mov ds, ax
    mov es, ax
    lea di, massiv
    mov cx, arr_sz
    xor ax,ax
    rep stosw
    mov ax,4c00h
    int 21h
end start

two segment
s_s dw 1,2,3,9,9,9,3,4,2,2
len=$-s_s
two ends
 
fir segment
assume cs:fir
begin_:
    mov ax,two
    mov ds,ax
    mov es, ax
    lea di,s_s
    mov si, di
    mov cx, len
    push cx
    xor ax, ax
    rep stosb    ;обнуление
    pop cx
lop:
    mov al, [si]
    call OutInt
    mov al, ' '
    int 29h
    inc si
    loop lop
 
     xor ax, ax
     int 16h
    mov ax,4c00h
    int 21h
    
OutInt proc
    push ax
    push dx
    push bx
    push cx
    push di
    
    test ax, ax
    jns oi1
    mov di, 1
    neg ax
oi1:
    xor cx, cx
    mov bx, 10
oi2:
    xor dx, dx
    div bx
    add dx, '0'
    push dx
    inc cx
    test ax, ax
    jne oi2
    
    mov ah, 2
    cmp di, 1
    jne oi3
    mov dl, '-'
    int 21h
oi3:
    pop dx
    int 21h
    loop oi3
    
    pop di
    pop cx
    pop bx
    pop dx
    pop ax
    ret
OutInt endp
fir ends
end begin_

.model small
.386
.stack
.data

arr_sz  = ($-massiv)/2

.model small    ; модель памяти - маленькая: один сегмент кода и один сегмент данных
        ; ну и сегмент стека
.386        ; набор команд под 386 процессор
.stack      ; объявляем сегмнт стека размером в 256 байт
.data       ; объявляем сегмент данных
massiv dw 1,-2,3,4,5,6,7,8,9
arr_sz  = ($-massiv)/2  ; размер массива в словах(DW): (текущий адрес минус адрес
    ; начала массива) делённый на 2(размер слова в байтах)

mov al, [si]
cbw
call OutInt