Запрещен доступ к файлу (ошибка при записи в файл)

;                           -------Ïåðåâîä ÷èñëà èç AX â ñòðîêó
PEREVOD Proc near                              
      xor  cx, cx
      mov  bx, 10                  ;Îñíîâàíèå ÷èñëà
      mov  di, 0
del:  
      xor  dx, dx                  ;Îáíóëÿåì dx, äåëèì òîëüêî òî, ÷òî â AX(÷èñëî)
      div  bx
      mov  Out_2[di], dl
      inc  di
      inc  cx                      ;Óâåëè÷èâàåì çíà÷åíèå äëèíû ÷èñëà íà åäèíèöó        
      cmp  ax, 0                   ;Ñðàâíèâàåì ÷àñòíî ñ íóëåì
      jnz  del                     ;Åñëè íå íîëü, òî ñíîâà äåëèì åãî
vvd:
      mov  dl, out_2[di]
      add  dl, '0'
      mov  out_2[di], dl
      mov  dx, offset out_2[di]
      call write
      dec  di
      loop vvd                     ;Ñòîëüêî ðàç, ñêîëüêî äëèíà ÷èñëà
      ret            
PEREVOD endp                     
;                           -------Âûâîä â ôàéë
WRITE Proc near                              
      mov  bx, handle2      
      mov  cx, 1
      mov  ax, 4000h
      int  21h
      ret            
WRITE endp       
.....
data segment
  out_2    db 10 dup(0)

        out_dec:
                xor si, si
                mov bx, 10
 
        out_dec_div:
                xor dx, dx
                div bx
                or dx, 30h            ;остаток от деления
                push dx               ;сохраняем в стеке
                inc si                ;считаем кол-во цифр
                or ax, ax             ;пока не 0 - делим
                jnz out_dec_div
; готовимся к записи 
        mov ax, 4000h
        mov bx, handle2 
            mov dx, offset out_2
            mov cx,1
        out_dec_out:
                pop     word ptr out_2      ;извлекаем из стека
                int 21h              
            dec si
                jnz out_dec_out       ;и выводим подсчитаенное кол-во цифр
;........... 
data segment
  out_2    dw ?

        out_dec:
                mov     si, out_2_end
                mov     bx, 10
                xor cx,cx
                std
        out_dec_div:
                xor     dx, dx
                div     bx
                or  dx, 30h            ;остаток от деления
                mov [si],dl          ;сохраняем
                inc     cx                ;считаем кол-во цифр
                dec si
                or  ax, ax             ;пока не 0 - делим
                jnz     out_dec_div
; готовимся к записи 
        mov ax, 4000h
        mov bx, handle2 
            mov dx, si
            inc dx
        out_dec_out:
                int 21h        ;и выводим подсчитаенное кол-во цифр      
;........... 
;data segment
  out_2    db 5 dup(?)
out_2_end   = $