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

[Max00766]

Задание такое:
Написать программу обнуления массива слов длинною 100 элементов, используя все возможные режимы адресации.
Написал код:

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

Подскажите, пожалуйста, правильно ли я написал код? И почему когда я в dos-box'е tlink этого кода то выбивает Warning: No stack?

[Max00766]

Исправил код, прошу проверить:

.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

[Max00766]

И как вывести обнуленный массив?

[R71MT]

Сообщение от Max00766

обнуления массива слов длинною 100 элементов, используя все возможные режимы адресации.

;;== FASM code =======================

org 100h
jmp start

array   dw  100 dup(?)

start:
; Clear array ========================
      mov   si,array
      mov   cx,100
      push  cx si
clr:  shr   word[si],16
      add   si,2
      loop  clr

; Print array ========================
      pop   si cx
prn:  lodsw
      or    ax,3030h
      int   29h
      xchg  ah,al
      int   29h
      loop  prn

; Exit ===============================
exit:
      xor   ax,ax
      int   16h
      int   20h

[Max00766]

Сообщение от R71MT

;;== FASM code =======================

org 100h
jmp start

array   dw  100 dup(?)

start:
; Clear array ========================
      mov   si,array
      mov   cx,100
      push  cx si
clr:  shr   word[si],16
      add   si,2
      loop  clr

; Print array ========================
      pop   si cx
prn:  lodsw
      or    ax,3030h
      int   29h
      xchg  ah,al
      int   29h
      loop  prn

; Exit ===============================
exit:
      xor   ax,ax
      int   16h
      int   20h

Спасибо за помощь, увидел свои ошибки