Вывести значения из ячеек в файл (файл создает, но он пустой)

CODE segment
ORG 100h 
START:
data segment
handle  dw ?                ;Ячейка для дескриптора
filename db 'MYFILE.txt',0  ;Имя файла в формате ASCIIZ
buff db 255 dup (?)
string  db  'Data source values! $',13,10 
str db   4 dup (?)
stringln  equ $-string
data ends
 
pushf
push cx
push dx
push bx
push di
push es
push ds
push si
assume   DS:data
mov     AX, data
mov     DS,AX
 
     mov     AH,3Ch          ;Функция создания файла
     mov     CX,0                ;Без атрибутов
     mov     DX, offset filename     ;Адрес имени файла
     int     21h
     mov     handle, AX     
     
 
      mov ax,9000h
      mov es,ax
      mov si,20h
      mov es:word ptr[si+9h],28h
      mov es:word ptr[0040h+00A6h],7Fh
      mov es:word ptr[0040h+00A7h],4h
      mov es:word ptr[0040h+00A8h],5h
      mov es:word ptr[0040h+00A9h],6h
      mov cx,3
     
cycle:  
       mov ax, 9000h
       mov es, ax
       mov ax,es:[si+9h]
       mov bx,2h
       xor dx,dx
       div bx
       mov ax,dx
       cmp dx,0
       jne cycle
       jmp set
      
set:  dec cx
      mov ax,9000h
      mov es,ax
      mov si,40h
      mov ax, word ptr es:[si+00A6h]
      ;mov  buff,al
 
      mov ax,word ptr es:[si+00A6h]
      mov dx,ax
      mov ax,word ptr es:[si+00A8h]
      mov bx,ax
      mov ax, word ptr es:[si+00A9h]
    
      mov ah,40h
      mov bx, handle
      mov cx,2
      mov dx, offset str  
      int 21h
       
            
       
pop si
pop ds
pop es
pop di
pop bx
pop dx
pop cx
popf
    
  ret
CODE ends
end START

CODE segment
ORG 100h 
START:
data segment
handle  dw ?                ;Ячейка для дескриптора
filename db 'MYFILE.txt',0  ;Имя файла в формате ASCIIZ
buff db 255 dup (?)
string  db  'Data source values!'
str db   4 dup (?)
stringln  equ $-string
s_error   db 'Error',13,10,'$'
data ends
 
pushf
push cx
push dx
push bx
push di
push es
push ds
push si
assume   DS:data
mov     AX, data
mov     DS,AX
 
      mov     AH,3Ch          ;Функция создания файла
      mov     CX,0                ;Без атрибутов
      mov     DX, offset filename     ;Адрес имени файла
      int     21h
      mov     handle, AX     
       
      mov ax,9000h
      mov es,ax
      mov si,20h
      mov es:word ptr[si+9h],28h
      mov es:byte ptr[0040h+00A6h],7Fh
      mov es:byte ptr[0040h+00A7h],4h
      mov es:byte ptr[0040h+00A8h],5h
      mov es:byte ptr[0040h+00A9h],6h
      mov cx,3
     
cycle:  
       mov ax, 9000h
       mov es, ax
       mov ax,es:[si+9h]
       mov bx,2h
       xor dx,dx
       div bx
       mov ax,dx
       cmp dx,0
       jne cycle
       jmp set
      
set:  dec cx
      mov ax,9000h
      mov es,ax
      mov si,40h
      mov ax, word ptr es:[si+00A6h]// значение из этой ячеек необходимо в файл записать
      
 
      mov ah,40h
      mov bx,handle
      mov cx,2
      mov dx,ax
      int 21h
      
      
       mov ah,9h
       ;mov bx,handle
       mov cx,2
       mov dx,ax    
       int 21h
        
 
      mov ax,word ptr es:[si+00A6h]
      mov dx,ax
      mov ax,word ptr es:[si+00A8h]
      mov bx,ax
      mov ax,word ptr es:[si+00A9h]
      
      mov ah,9h
      mov bx, handle
      mov cx,stringln
      mov dx, offset string  
      int 21h 
 
   close_file:
          mov ax,3Eh
          mov bx, handle
          jnc exit
          call error_msg
 
     error_msg:
          mov ah,9h
          mov cx,5
          mov dx, offset s_error
           int 21h
       
             
       
pop si
pop ds
pop es
pop di
pop bx
pop dx
pop cx
popf
    
  ret
CODE ends
end START

      mov ah,40h
      mov bx,handle
      mov cx,2
      mov dx,ax
      int 21h

mov bx, [handle] ; <--- именно до изменения ds
 
push ds
mov ax, 9000h
mov ds, ax
 
mov ah, 40h
;mov bx, [handle]   ;<--- тут просто так показано, что в регистре
mov cx, 2
mov dx, 00A6h
int 21h
 
pop ds

  mov ah,9h
        mov cx,2
       mov dx,[si+00A6h]   
       int 21h

.model small
 
.stack 200h
 
.data
        CrLf            db      0Dh, 0Ah, '$'
        msgPressAnyKey  db      0Dh, 0Ah, 'Press any key to exit...', '$'
 
        errFileOpenWr   db      'File open (for write) error', '$'
        errFileWrite    db      'File write error', '$'
        errFileClose    db      'File close error', '$'
 
        DstFileName     db      'outfile.txt', 0
.data?
        DstFileHandler  dw      ?
.code
 
main    proc
        ;инициализация сегментного регистра ds адресом сегмента данных
        mov     ax,     @data
        mov     ds,     ax
 
        ;создание файла для сохранения результата
        mov     ah,     3Ch
        mov     cx,     0000h   ;создать простой файл
        lea     dx,     [DstFileName]
        int     21h
        jnc     @@DstFileOpenOk
                mov     ah,     09h
                lea     dx,     [errFileOpenWr]
                int     21h
                jmp     @@Exit
        @@DstFileOpenOk:
        mov     [DstFileHandler],        ax
        ;подготовка данных в другом сегменте
        mov     ax,     9000h
        mov     es,     ax
        mov     es:[00A6h],     word ptr 'kO'
        mov     es:[00A8h],     word ptr '!!'
 
        ;сохранить результат в итоговый файл
        push    ds
        mov     bx,     [DstFileHandler]
        mov     ax,     9000h
        mov     ds,     ax
        mov     ah,     40h
        mov     cx,     4
        mov     dx,     00A6h
        int     21h
        pop     ds
        jnc     @@DstFileWriteOk
                ;если ошибка записи - вывести диагностическое сообщение
                mov     ah,     09h
                lea     dx,     [errFileWrite]
                int     21h
        @@DstFileWriteOk:
 
        ;закрытие итогового файла
        mov     ah,     3Eh
        mov     bx,     [DstFileHandler]
        int     21h
        jnc     @@SrcFileClose
                mov     ah,     09h
                lea     dx,     [errFileClose]
                int     21h
        @@SrcFileClose:
 
@@Exit:
        ;ожидание нажатия любой клавиши
        mov     ah,     09h
        lea     dx,     [msgPressAnyKey]
        int     21h
        mov     ah,     00h
        int     16h
 
        ;завершение программы
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main

        mov     es:[00A6h],     word ptr 7h
        mov     es:[00A8h],     word ptr '!!'

;преобразование 16-разрядного числа со знаком в строку
;на входе:
;  ax - число для преобразования
;  ds:[di] - адрес буфера строки
;на выходе:
;  ds:[di] - строка с записью числа
;  ax - длина строки
UInt16ToStr     proc
        push    bx
        push    cx
        push    dx
        push    di
        mov     bx,     10      ;делитель (основание системы счисления)
        xor     cx,     cx      ;cx - цифр в числе (длина строки)
        @@div:
                xor     dx,     dx      ;делим (dx:ax) на bx
                div     bx
                add     dl,     '0'     ;преобразуем остаток деления в символ цифры
                push    dx              ;и сохраняем его в стеке
                inc     cx              ;увеличиваем счётчик цифр
                or      ax,     ax      ;в числе ещё есть цифры?
        jnz     @@div                   ;да - повторить цикл выделения цифры
        mov     ax,     cx      ;длина строки возвращается в ax
        @@store:
                pop     bx      ;извлекаем из стека очередную цифру
                mov     [di],   bl      ;сохраняем в строке
                inc     di      ;переходим к следующему элементу строки
        loop    @@store         ;и так поступаем столько раз, сколько нашли цифр в числе (cx)
        pop     di
        pop     dx
        pop     cx
        pop     bx
        ret
UInt16ToStr     endp

.data?
        abBuffer        db      1024 dup(?)
        nStrLen         dw      ?

mov ax, число
lea di, [abBuffer]
call UInt16ToStr
mov [nStrLen], ax
 
далее сохраните в файле не число из памяти, а текстовую строку из буфера abBuffer длиной nStrLen