TASM. Копирование указанного файла (имена исходного и результирующего файла задаются в командной строке)

; tasm /m filecopy.asm
; tlink /t /x filecopy.obj
 
.MODEL Tiny
.CODE
ORG 100h
 
BufSize     =   32768          ; Размер буфера
 
Start:
 
        mov si,81h         ; Адрес командной строки
        lea di,Filename1   ; Сначала будем читать имя первого файла
        mov cx,2           ; Нам нужно 2 параметра
        cld                    ; Прямой порядок чтения
 
ClearSpaces:    lodsb                  ; Читаем символ из командной строки
        cmp al,' '         ; Это пробел?
        je  ClearSpaces    ; Да, пропускаем его!
NextChar:
        jb  CmdStrEnd      ; Выходим, предполагаем, что это 0Dh (конец строки)
        stosb                  ; Нет, копируем этот символ
        lodsb                  ; Следующий символ командной строки
        cmp al,' '         ; Это пробел?
        jne NextChar       ; Нет, повторяем цикл
CmdStrEnd:  mov al,0           ; Не используем XOR AL,AL, т.к. нужно сохранить флаги
        stosb                  ; Записываем ноль (конец строки)
        lea di,Filename2   ; Буфер для копирования второго параметра
        loope   ClearSpaces    ; Повторяем цикл (читаем следующий параметр)
; Цикл будет повторен только в том случае, если флаг ZF=1, т.е. после JE, но не после JB :)
 
        cmp Filename2,0    ; Проверяем - задано ли имя второго файла
        lea dx,WrongMsg    ; Готовим сообщение об ошибке
        je  ShowMsg        ; Нет (не задано), выходим
 
; Основная процедура копирования файлов
        mov ax,3D00h       ; AL = 0, для чтения...
        lea dx,Filename1
        int 21h            ; Открываем исходный файл
        jc  Error          ; Если CF=1, выводим сообщение об ошибке
        mov Handle1,ax     ; Сохраняем handle файла
 
        mov ah,3Ch
        mov cx,20h         ; Атрибуты создаваемого файла = Archive
        lea dx,Filename2
        int 21h            ; Создаем получаемый файл
        jc  Error
        mov Handle2,ax     ; Сохраняем handle файла
CopyNext:
        mov ax,4406h
        mov bx,Handle1
        int 21h            ; Проверяем - достигнут ли конец исходного файла
        or  al,al          ; Аналогично CMP AL,0
        je  EOF            ; Выходим из цикла, если достигнут конец файла
 
        mov ah,3Fh
        ; BX уже содержит handle исходного файла (от предыдущей функции)
        mov cx,BufSize
        lea dx,Buffer
        int 21h            ; Читаем из исходного файла
        jc  Error
 
        xchg    cx,ax          ; Перемещаем AX в CX
        mov ah,40h
        mov bx,Handle2
        ; DX уже содержит адрес буфера (от предыдущей функции)
        int 21h            ; Записываем в получаемый файл столько байт,
        jnc CopyNext       ; сколько мы смогли прочесть из исходного
 
Error:
        lea dx,ErrorMsg    ; Готовим сообщение об ошибке
ShowMsg:    mov ah,9
        int 21h            ; Выводим сообщение
 
        int 20h            ; Выходим из программы
 
EOF:
        mov ah,3Eh
        int 21h            ; Закрываем исходный файл (BX=Handle1 от ф-ии 4406h)
 
        mov ah,3Eh
        mov bx,Handle2
        int 21h            ; Закрываем получаемый файл
 
        lea dx,OkMsg       ; Готовим сообщение
        jmp ShowMsg        ; Идем на вывод сообщения
 
OkMsg       db  'Успешное завершение!',13,10,'$'
ErrorMsg    db      'Ошибка ввода/вывода!',13,10,'$'
WrongMsg    db  'Необходимо задать имена исходного и получаемого файлов!',13,10,'$'
 
Filename2   db  0,127 dup (?)  ; Имя получаемого файла
Filename1   db  128 dup (?)    ; Имя исходного файла
 
Handle1     dw  ?              ; Handle исходного файла
Handle2     dw  ?              ; Handle получаемого файла
 
Buffer      label   byte           ; Буфер для копирования
 
END     Start

; tasm /m filecopy.asm
; tlink /t /x filecopy.obj