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

masm
.model small
.data
    error db 'ERROR$'
    buf db 'operation is complete!'
    sz db $-buf
    file db 30 dup (?)
.stack  100h
.code
start:
    mov ax, @data
    mov ds, ax
    
    mov cl, es:80h
    cmp cl, 0
    je exit
    dec cl
    mov si, 82h
    mov di, 0
cicle:
    mov al, byte ptr es:[si]
    mov file[di], al
    inc si
    inc di
    loop cicle
    mov file[di], '0'
    
    mov ah, 3ch
    xor cx, cx
    lea dx, file
    int 21h
    JC @err
    
    mov bx, ax
    mov ah, 40h
    mov cl, sz
    lea dx, buf
    int 21h
 
    mov ah, 3Eh
    int 21h
    jmp exit
    
@err:
    lea dx, error
    mov ah, 9
    int 21h
exit:
    mov ah, 4ch
    int 21h
end start

masm
.model small
.data
    error db 'ERROR$'
    buf db 'operation is complete!'
    sz db $-buf
    file db 30 dup (?)
.stack  100h
.code
start:
    mov ax, @data
    mov ds, ax
    
    mov cl, es:80h
    cmp cl, 0
    je exit
    dec cl
    mov si, 81h
    mov di, 0
cicle:
    mov al, byte ptr es:[si]
    mov file[di], al
    inc si
    inc di
    loop cicle
    mov file[di], '$'
    
    lea dx, file
    mov ah, 9
    int 21h
    
exit:
    mov ah, 4ch
    int 21h
end start

masm
.model small
.data
    file db 'PRG.ASM',0
.stack  100h
.code
start:
        mov ax, @data
    mov ds, ax
 
    mov ax, 3d00h
    lea dx, file
    int 21h
    jc exit
    mov bx, ax
 
    mov ax, 4202h
    xor dx, dx
    xor cx, cx
    int 21h
    mov cx, dx  
exit:
    mov ax, 4c00h
    int 21h
end start

masm
.model small
.data
    file db 'PRG.ASM',0
    buf db 60000 dup (?)
    db 22h
.stack  100h
.code
start:
        mov ax, @data
    mov ds, ax
 
    mov ax, 3d00h
    lea dx, file
    int 21h
    jc exit
    mov bx, ax
 
    mov ax, 4202h
    xor dx, dx
    xor cx, cx
    int 21h
    mov cx, ax
    
    mov ah, 3fh
    lea dx, buf
    int 21h
    push cx
    pop di
    mov byte ptr buf[di], '$'
    mov ah, 9
    int 21h
    
exit:
    mov ax, 4c00h
    int 21h
end start

.model small
.stack 100h
.data
buf db 'operation is complete!'
sz=$-buf
file    db 30 dup(?)
error   db 'ERROR$'
.code
start:
    mov ax,@data
    mov es,ax
    mov si,82h
    lea di,file
    xor cx,cx
    mov cl,byte ptr ds:[80h]
    dec cx      
    rep movsb
    mov byte ptr[di],0
 
    mov ax,@data
    mov ds,ax
 
    mov ah,3ch
    xor cx,cx
    lea dx,file
    int 21h
    jc @err
 
    mov bx,ax
    mov ah,40h
    mov cl,sz
    lea dx,buf
    int 21h
 
    mov ah,3eh
    int 21h
    jmp exit
@err:   
    lea dx,error
    mov ah,9
    int 21h
exit:
    mov ax,4c00h
    int 21h
end start

masm
.model small
.data
    file db 'PRG.ASM',0
    buf db 60000 dup (?)
    db 22h
.stack  100h
.code
start:
        mov ax, @data
    mov ds, ax
 
    mov ax, 3d00h
    lea dx, file
    int 21h
    jc exit
    mov bx, ax
 
    mov ax, 4202h
    xor dx, dx
    xor cx, cx
    int 21h
    
    push ax 
 
    mov ax,4200h
    xor cx,cx
    xor dx,dx
    int 21h
 
    pop cx
    
    mov ah, 3fh
    lea dx, buf
    int 21h
    push cx
    pop di
    mov byte ptr buf[di], '$'
    mov ah, 9
    int 21h
    
exit:
    mov ax, 4c00h
    int 21h
end start