IDEAL
MODEL
small
STACK 256

Taillen EQU 0080h
CommandTail EQU 0081h
cr EQU  13
If EQU 10

 
DATASEG
exCode  DB    0
inFile     DW    0
outFile   DW    0
oneByte DB    0

params db 128 dup(?)
Prompt   db  cr, if ,' Стереть этот файл?(У/п)' , 0
diskFul    db cr, if ,' **Ошибка: Диск полон' , 0

CODESEG

Start:

    mov    ax, @data
    mov    es, ax
    call    GetParams
    call    ParamCount
    cmp    dx, 2
    je    @@10
    mov    di, offset notes
    call    StrWrite
    jmp    Exit
@@10:
    xor    cx, cx
    call    GetOneParam
    mov     dx, di
    xor    al, al
    mov    ah, 3Dh
    int    21h
    jnc    @@20
    jmp    Errors

@@20:
   
    mov     [inFile], ax
    mov    cx, 1
    call    GetOneParam
    mov    dx, di
    call    FileExists
    jc    @@30
    call    StrWrite
    call    Confirm
    je    @@30
    jmp    Exit

@@30'
    mov    cx, 1
    calI    GetOneParam
    mov    dx, di
    xor    cx, cx
    mov    ah, 3Ch
    int    21h
    jnc    @@40
    jmp    Errors
@@40:
    mov    [outFile], ax

@@50:
    mov ah, 3Fh
    mov bx, [inFile]
    mov    cx, 1
    mov    dx, offset oneByte
    int    21h
    j nc    @@60
    jmp    Errors
@@60:
    or    ax, ax
    jz    @@80
    mov    ah, 40h
    mov    bx, [outFile]
    mov    cx, 1
    mov    dx, offset oneByte
    int    21h
    jnc    @@70
    jmp    Errors
@@70:
    or    ax, ax
    j nz    @@50

    mov di, offset diskFul
    call StrWrite

@@80:
    mov    bx, [inFile]
    mov    ah, 3Eh
    int    21h
    mov    bx, [outFi le]
    mov    ah, 3Eh
    int    21h
    jnc    Exit
    jmp    Errors
    Exit:
    mov    ah, 04Ch
    mov    al, [exCode]
    int    21h

Errors:
    mov    [exCode], a I
    call    DiskErr
    jmp    Exit

PROC FileExists
    xor al, al
    mov ah, 3Dh
    int 21h
    jc    @@99
    mov bx, ax
    mov ah, 3Eh
    int 21h
    clc
@@99:
    ret
ENDP FileExists

PROC Confirm
    mov    di, offset Prompt
    call    StrWrite
    mov    ah, 1
    int    21 h
    cmp    al, 'Y'
    je    @@99
    cmp    al, 'y'
    je    @@99
    cmp    al, 'N'
    je    @@20
    cmp    al, ' n'
    jne    Confirm
@@20:
    cmp    al, '@'
@@99:
    ret   
ENDP Confirm
END Start

ideal
model small
stack 256

    dataseg

ss1 db 'Hello, Replace$'       
    codeseg

startt:
    mov ax,@data
    mov ds,ax
                       
    mov ah,09h
    mov dx,offset ss1
    int 21h

exit:
    mov ah,04ch
    int 21h

    end startt