Создать файл и записать в него текст. Имя файла и текст вводятся с клавиатуры

codesg  segment para    'code'
assume  cs:codesg,ds:codesg,ss:codesg
    org  100h
begin:
;;;;;;;;;;;;;;;;;;;;    
call    clear                     ;i?enoea ye?aia
call    fname                 ;aaia eiaie oaeea n eeaaeaoo?u
call    fopen                 ;ioe?uoea oaeea
mov cx,1                  ;?enei caienae a oaee
f1:        call inputstr      ;aaia no?ie n eeaaeaoo?u
call    fwrite                ;caienu a oaee
loop    f1                        ;eni-ny aey i?aaiecaoee oeeea n ?aaeno?ii cx
call    fclose                ;cae?uoea oaeea
int     20h                       ;int 20h - caaa?oaiea i?ia?aiiu
;;;;;;;;;;;;;;;;;;;;
clear   proc near             ;i?enoea ye?aia
    push    cx                ;?acianoeou cia?aiea a noaea
    mov ax,0600h      ;i?ie?ooea ye?aia
    mov bh,07h            ;iaoeeuo?o?uee eiinieuiue aaia
    mov cx,0000h      ;eii?aeiaou aa?oiaai oaea
    mov dx,184fh      ;eii?aeiaou ie?iaai oaea
    int 10h
    pop cx                ;pop - ecaea?aiea cia?aiey ec noaea
    ret                       ; aica?ao ec aee?aeoae i?ioaao?u
clear   endp
;;;;;;;;;;;;;;;;;;;;
fname   proc near         ;aaia eiaie oaeea
    lea dx,prompt     ;auaia i?eaeaoaiey ia ye?ai
    mov ah,09h
    int     21h
    lea dx,namefile   ;aaia eiaie oaeea
    mov ah,0ah
    int     21h
    mov bl,len
    cmp bl,0
        je  D1            
    xor bh,bh
    mov file[bx],0
    ret                       ;aica?ao ec aee?aeoae i?ioaao?u
fname endp
;;;;;;;;;;;;;;;;;;;;
inputstr    proc near     ;aaia no?iee n eeaaeaoo?u
    call    clear
    call    clstr
    mov ah,0ah
    lea dx,namefile
    int 21h
    mov bl,len
    xor bh,bh
    mov file[bx],' '
    ret                       ;aica?ao ec aee?aeoae i?ioaao?u
inputstr    endp
;;;;;;;;;;;;;;;;;;;;
clstr   proc near
    push    cx
    mov cx,20
    xor bx,bx
l2: mov file[bx],' '
    inc bx
    loop    l2
    pop cx                ;pop - ecaea?aiea cia?aiey ec noaea
    ret                       ;aica?ao ec aee?aeoae i?ioaao?u
clstr endp
;;;;;;;;;;;;;;;;;;;;
fopen   proc near         ;ioe?uoea oaeea ia aenea
    mov ah,3ch
    mov cx,00
    lea dx,file
    int 21h
    jc  t3
    mov handle,ax
    ret
t3: lea dx,msg1           ;auaia niiauaiey a neo?aa ioeaee ioe?uoey
    mov ah,09h
    int 21h
    ret                       ;aica?ao ec aee?aeoae i?ioaao?u
fopen endp
;;;;;;;;;;;;;;;;;;;;
fwrite  proc near                 ;caienu a oaee
    push    cx
    mov ah,40h
    mov bx,handle
    mov cx,22
    lea dx,file
    int 21h
    jc t4                     ;jc - ia?aoia a neo?aa onoaiiaee ia?aiina
    cmp ax,22
    jne t5
    pop cx               ;pop - ecaea?aiea cia?aiey ec noaea
    ret
t4: lea dx,msg2          ;auaia niiauaiey a neo?aa 1-e ioeaee  
    jmp t6
t5: lea dx,msg3          ;auaia niiauaiey a neo?aa 2-e ioeaee
t6: mov ah,09h
    int 21h
    pop cx               ;pop - ecaea?aiea cia?aiey ec noaea
    ret                      ;aica?ao ec aee?aeoae i?ioaao?u
fwrite endp
;;;;;;;;;;;;;;;;;;;;
fclose  proc near        ;cae?uoea oaeea
    mov ah,3eh
    mov bx,handle
        int     21h
    ret                      ;aica?ao ec aee?aeoae i?ioaao?u
fclose endp
;;;;;;;;;;;;;;;;;;;;
D1:
        mov ah,09h
        mov dx,offset msg4
        int 21h
        ret
namefile    label byte       ;eiy nicaaaaaiiai oaeea
maxlen  db  20               ;iaeneiaeuiay aeeia iacaaiey oaeea-1 = 30 
len     db  ?        ;oaeoe?aneay aeeia no?iee
file        db  20 dup(0),0dh,0ah
handle  dw  ?
errcode db  0
prompt  db  'VVEDITE NAZVANIE FAILA: ','$'
msg1    db  'OSHIBKA OTKRITIYA!', 0dh,0ah,'$'
msg2    db  'OSHIBKA ZAPISI #1', 0dh,0ah,'$'
msg3    db  'OSHIBKA ZAPISI #2', 0dh,0ah,'$'
msg4    db  'DLINA VVEDENNOY STROKI RANVA 0!!!$'
;;;;;;;;;;;;;;;;;;;;
codesg  ends                     ;eiiao i?ia?aiiu
    end begin