Не записывает результат в файл

include macro.lib
qw segment
    a db 253,?,253 dup (?)
    fn db "file"
    fn1 db ?
    m dw 10
    n dw ?
    k dw ?
    mes1 db "Position: $"
    mes2 db "Koli4estvo: $"
qw ends
 
segm segment stack
    dw 128 dup (?)
segm ends
 
qwerty segment
    assume ds:qw, ss:segm, cs:qwerty, es:qw
    begin:
        mov ax, qw
        mov ds, ax
        mov es,ax
    
 
 
 
lea dx,a
Mov ah,0ah
int 21h
    message a+2
    crlf
    message mes1 
    key_$2bin
    mov n,ax
    dec n
    crlf
 
    message mes2
    key_$2bin   
    mov k,ax
 
 
    mov ax,m
    sub ax,n
    sub ax,k
 
    lea di,a
    add di,n
    add di,2    
    lea si,a
    add si,n
    add si,k
    add si,2
    mov cx,ax
    rep movsb
    crlf
    crlf
    message a+2
 Mov ah,3ch
 Mov cx,0
 lea dx,fn
 int 21h
 Mov fn1,ax
 
Mov ah,40h
Mov cx,m
lea dx,fn1
Mov bx,a
add bx,2
int 21h
 
mov ax, 4c00h
 
int 21h
qwerty ends
end begin

Mov ah,40h
Mov cx,m
lea dx,fn1
Mov bx,a
add bx,2
int 21h

Mov ah,40h
Mov cx,m
mov bx,fn1
lea dx,a
add dx,2
int 21h

mov ah, 3eh
mov bx, fn1
int 21h