Разработать программу, работающую с файлами, используя описатели

data segment
  msgVvod db 10,13,'Enter filename: $' 
  msgNeOtkr db 10,13,'Do you want to create file (y/n): $'
  msgOtkr db 10,13,'The file is opened$'
  msgError db 10,13,'Read error$'
  filename db 20,00,20 dup(?)
  buf db 50,00,50 dup('$')
  ansver_yn db 2,0,?
data ends

code segment 
  assume cs:code,ss:stk,ds:data
  ; процедура перевода в 16-ую систему счисления
  proc16 proc
    mov bl,dh
    mov cl,4
    shr bl,cl
    and bl,00001111b
    xor bh,bh
    mov dl,tab[bx]
    mov ah,2h
    int 21h
    mov bl,dh
    and bl,00001111b
    xor bh,bh
    mov dl,tab[bx]
    mov ah,2h
    int 21h
    ret
  proc16 endp
 
start:
  mov bx,data
  mov ds,bx
  mov ah,9h
  mov dx,offset msg
  int 21h
  mov ah,0ah
  mov dx,offset buf
  int 21h
  mov ah,9h
  mov dx,offset mes
  int 21h       
 
; преобразование введенной строки символов в число
  mov di,0
  lea bx,buf+1  ;в bx адрес второго элемента буфера
  mov cx,[bx]       ;в cx количество введенных символов
  xor ch,ch
  mov si,1      ;в si множитель 
met:    
  push si       ;сохраняем si (множитель) в стеке
  mov si,cx     ;в si помещаем номер текущего символа 
  mov ax,[bx+si]    ;в ax помещаем текущий символ     
  xor ah,ah
  pop si        ;извлекаем множитель (si)из стека
  sub ax,30h        ;получаем из символа (ax) цифру
  mul si        ;умножаем цифру (ax)на множитель (si)
  add di,ax     ;складываем с результирующим числом
  mov ax,si     ;помещаем множитель (si) в ax
  mov dx,10 
  mul dx        ;увеличиваем множитель (ax) в 10 раз
  mov si,ax     ;перемещаем множитель (ax) назад в si
loop met        ;переходим к предыдущему символу
 
; перевод в 16-ую систему счисления
  mov dx,di
  call proc16
  mov dx,di
  xchg dh,dl
  call proc16
  mov ah,2h
  mov dl,'h'
  int 21h
  mov ah,9h
  mov dx,offset mes 
  int 21h       
code ends
end start

;TASM, COM - файл
;tasm.exe /m
;tlink.exe /t /x
;
.model tiny
.code
.386
org 100h
start:
    mov ah,9
    lea dx,EnterFilename
    int 21h
 
    mov ah,0Ah
    lea dx,Filename
    int 21h
 
    push dx
    pop di
 
    inc di
    xor bx,bx
    mov bl,[di]
    inc di
    mov byte ptr [di+bx],0
 
    mov ax,3D00h        ;Откроем файл
    mov dx,di
    int 21h
    jc short NotFound   ;При ошибке - на выход..
    mov [ID],ax
    mov bx,ax
 
    mov ah,3Fh      ;читать из файла
    lea dx,Buf
    mov cx,0FA00h
    int 21h
 
    mov cx,ax
    mov si,dx
    xor bx,bx
m1:
    lodsb           ;читать первый символ
push cx
    mov cx,10
    lea di,tab
    repne scasb     ;цифра или все остальное?
    jnz short no    ;если не цифра
    inc bx          ;иначе увеличить счетчик
no:
pop cx
    loop m1
 
    mov ah,9
    lea dx,Rezult
    int 21h
;Преобразовать и вывести на экран
    mov cx,2
    mov al,bh
m_c10:
    xor ah,ah
    shl ax,4
    shr al,4
    xchg al,ah
    cmp al,10
    sbb al,69h
    das
    mov dl,al
push ax
    mov ah,2
    int 21h
pop ax
    mov al,ah
    cmp al,10
    sbb al,69h
    das
    mov dl,al
    mov ah,2
    int 21h
    mov al,bl
    loop m_c10
 
    mov ah,2
    mov dl,'h'
    int 21h
 
    mov ah,3Eh      ;закрыть файл
    mov bx,[ID]
    int 21h
 
    jmp short exit
 
NotFound:
    mov ah,9
    lea dx,StrNotFound
    int 21h
exit:
    mov ah,0
    int 16h
 
    ret
 
EnterFilename db 10,13,'Enter file name: $'
StrNotFound   db 10,13,'File not found!$'
Rezult        db 10,13,'Number of digital file: $'
Tab           db '0123456789'
Filename      db 13,?,11 dup (?)
ID            dw ?
Buf:
 
    end start