Удаление комментариев из текстового файла

my_data     segment
    assume cs:my_data, ds:my_data
iFILEg          db  'iFILE.txt',0
OLDDIRR         db   'FILE.txt',0
NEWDIRR         db   'FILE.bak',0
fname       db  '1.txt', 0      ; ASCIIZ-имя файла
string      db  'something'     ; записываемая строк
len     =   $-string        ; длина строки
ermes       db  'Err!'
Buffer  DB 14h  DUP(0)  ; буфер на 20 символов
mes db "text from FILE.txt:"
    db  10,13,"=======================",10,13,"$"
mes2 db 10,13,"======================="
     db 10,13,"copy into iFILE.txt",10,13,"$"
 
; Код
begin:  mov ax, my_data
        mov ds, ax      ; инициализация DS адресом сегмента данных
        mov es, ax
        MOV  AH,41H         ;удалить копию файла
        LEA  DX,NEWDIRR     ;
        INT  21H
        
        
        mov di,OFFSET NEWDIRR  ;новое имя
        mov ah,56H              ;
        int 21H                 ;переносим файл
        
;======работа с file.txt=====
            ; Запишем в файл FILE.txt Строку,которую потом будем копировать
            mov bx, ax      ; сохраним дескриптор созданного файла
            mov ah, 40h     ; функция записи в файл или на устройство
            lea dx, string      ; DS:DX -> записываемая строка
            mov cx, len
            int 21h
        
            mov ax,3d00h ; открываем FILE.txt
            mov dx, OFFSET OLDDIRR
            int 21h
            jc er
            ;Копируем все что записано в file.txt в буфер
            mov bx,ax           ; дескриптор файла в ВХ
            mov ah,3fh      ; функция чтения файла
            mov cx,14h      ; сколько читать-20 символов
            mov dx,OFFSET Buffer    ; заносим в буфер
            int 21h         
            jc er
            ;закрываем file.txt
            mov ah, 3Eh
            int 21h
;===========================
    mov ah, 9    ;месага о том что копируем
    lea dx, mes               
    int 21h
    
    MOV   DI,  offset buffer    ;Адрес буфера с прочитанными данными
    MOV   BX,  17       ;количеству символов в строке
    MOV   BYTE PTR [DI+BX], '$' ;вывод текста без косяков
        
    MOV   AH,  9        ;Выводим строку, считанную из файла
    MOV   DX,  offset buffer    ;на экран
    INT   21h
    
 
;=========Работа с iFILE.txt======
        MOV  AH,3CH         ;создаем iFILE.txt
        MOV  CX,00          ; обычного файла,без атрибутов
        LEA  DX,iFILEg     ;
        INT  21H            ;
        jc er
        ;запись из буффера в файл   
        mov bx, ax      ; сохраним дескриптор созданного файла
        mov ah, 40h     ; з
        lea dx, buffer      ;
        mov cx, len
        int 21h
 
        mov ah, 3Eh;закрыть iFile
        int 21h
    
        mov ah, 9    ;
        lea dx, mes2               
        int 21h
        ;======================
        jmp exit
 
er:
        mov ah, 9   ; и выводим сообщение на экран
        lea dx, ermes       ; вывод сообщения ermes
        jmp exit
exit:   mov ax, 4C00h
        int     21h
my_data   ends 
    end     begin