Ассемблер. Запись в файл

[Silverstone]

Подскажите почему не пишет в файл?

d_s segment
 handle dw 0
 filename db 'file.txt',0
 buffer db 'Hello' ;
d_s ends

c_s segment
 assume ds:d_s, cs:c_s
 begin:
  mov ax,d_s
  mov ds, ax

    xor cx, cx ; атрибуты файла - обычный файл
    lea dx, filename
    mov ah, 3ch    
    int 21h
   mov handle, ax

    mov  al,02h  ;режим доступа
    lea  dx,filename  ;формируем указатель на имя файла
    mov ah,3dh  ;номер функции DOS
    int 21h ;открываем файл
   mov  handle,ax

    mov ax, 42h ; курсор на начало  
     xor dx, dx 
     xor cx, cx 
    mov bx, handle 
    int 21h

    mov ax, 40h ;функция записи в файл
    mov dx, offset buffer
    mov cx, 50 
    int 21h
   
c_s ends

end begin