Создание программы для перемещения и просмотра содержимого каталогов на диске

model tiny
.code
.startup
; ---------------------------------------------
        lea dx, DTA     ;установление адрес смещения для
                            ; локального буфера
 
  mov ah, 1ah
        int 21h
 
        call Find_First ;поиск первого файла
        jc exit1          ; если нет файла перейти к exit1
        call Out_Info   ; вывода информации о файле
 
cukl: call Find_Next  ; поиск следующего файла
  jc exit2                 ; если нет файла перейти к exit2
        call Out_Info    ; вывода информации о файле
        loop cukl         ; перейти к cukl
 
exit1: lea dx, info     ; вывода данных info
        mov ah, 09h
        int 21h
 
exit2: mov ah, 4ch    ; завершение программы
        int 21h
; ------------------------------------------------- ---------------
Find_First proc          ; поиск первого файла
        lea dx, Path      ; загрузка в dx адрес строки Path
        mov cx, 00       ; установление атрибутов
        mov ah, 4eh     ; вызов функции для поиска
        int 21h
        ret
Find_First endp
 
Find_Next proc          ; поиск следующего файла
        lea dx, Path      ; загрузка в dx адрес строки Path
        mov cx, 00       ; установление атрибутов
        mov ah, 4fh      ; вызов функции для поиска
        int 21h
        ret
Find_Next endp
 
Out_Info proc            ; вывода информации о файле
; ------------------------------------------------- -----------------
                                ; Вывод имени файла
  lea dx, strk              ; загрузка в dx адрес сроки strk
        mov ah, 9h         ; для перевода курсора на
        int 21h               ; следующую строку
 
        mov cx, 0dh       ; запись в cx 0dh - килкисть байтов,
                                ; Какие будет выводить ф-я 40h
  mov bx, 1eh             ; имени
                                ; Имени файла относительно DTA
  lea dx, DTA + bx       ; загрузка в dx адрес смещение
                                ; Имени файла
  mov bx, 1                ; запись в bx = 1 см. использования
                                ; Функции 40h
  mov ah, 40h             ; вызов функции 40h
        int 21h
; ------------------------------------------------- ----------------
        lea dx, sozdan    ; вывод на экран слова sozdan
        mov ah, 09h
        int 21h
 
        mov cx, 2          ; запись в cx 0dh - килкисть байтов,
        mov bx, 18h       ; загрузка в bx адрес смещение
                                ; Для определения даты
        lea bx, DTA + bx ; загрузка в bx адрес смещения даты
        mov ax, [bx]      ; запись в ax значения, находится, во адресу в bx
        mov di, ax         ; запись в di значение ax (в di будем
                               ; Хранить два байта, хранящие
                               ; данные о дате
                                ; Vuvid chusla
        mov si, 10; запись в si значение 10
        and ax, 001fh; лог. операция сложения числа в ax
                            , С маской 001fh результат в ax
        mov dx, 0; запись в dx значение 0
        div si; AX / 10 результат в AX, остаток в DX
        add dx, '0'; добавления к остатку 30h
        lea bx, chuslo; загрузка в bx адрес смещение
                        ; Сроки chuslo
        mov [bx + 1], dl, запись в строку с адресом смещение
                        ; [Bx + 1] значения, регистра dl
 
        add ax, '0'; добавление к ax 30h
        lea bx, chuslo; загрузка в bx адрес смещение
                        ; Сроки chuslo
        mov [bx], al; запись в строку с адресом смещение
                            ; [Bx] значение, регистра al
        lea dx, chuslo; загрузка в dx адрес смещение
                                ; сроки chuslo
  mov ah, 09h; вызов ф-й вывода на экран сроки
                        ; Сроки chuslo
        int 21h; вывод на экран сроки chuslo
 
  ; Определение года происходит аналогично определению числа, только
  ; Нужно добавить 1980, так как указано в теоретических сведениях
  ; И кроме того нужно делить год на 10 3 раза, потому что он состоит
  ; С четырех цифр (для числа делить 1 раз, оно состав. Из двух цифр),
  ; А все остальное по тому же принципу, что и для определения числа
 
  mov ax, di
        and ax, 0fe00h
        shr ax, 9; Vuvod roky
        add ax, 1980
 
        mov bp 0
        mov di, ax
        lea bx, rik + 4
 
cukl2: mov ax, di
        mov dx, 0
        div si
        add dx, '0'
        mov di, ax
 
        mov [bx], dl
        sub bx, 1
 
        mov cx, 4
        add bp, 1
        sub cx, bp
        loop cukl2
 
        mov dx, di
        add dx, '0'
        mov [bx], dl
 
        lea dx, rik
        mov ah, 9h
        int 21h
 
        lea dx, OB
        mov ah, 09h
        int 21h
        ret
Out_Info endp
; ------------------------------------------------- ------------------------
ret
 
DTA db 50 dup (?), '$'; Локальный буфер информации о файле
Path db "Z:\*.*", 0; путь и маска поиска файлов
strk db 0ah, 0dh, '$'; перев. курсора в нач. следующей строки
rik db 5 dup (?), "roky $ '; строка, в которую записывается год
 
chuslo db '$'; строка, в которую записывается число
 
Sozdan db 'sozdan: $'; строка в памяти со словом sozdan:
OB db 'y $'; строка в памяти со словом y
chas db ':: $'; строка, в которую записывается время
 
end

CODESG SEGMENT PARA 'CODE'
  ASSUME CS:CODESG,DS:CODESG,SS:CODESG,ES:CODESG
  ORG 100H
BEGIN:  JMP MAIN
  A     DB '1 - Создать каталог',10,13,'2 - Удалить каталог',10,13,'3 - Изменить каталог',10,13,'$'
 NUMB  DB,?
 
  dname db "d:\my_diг",0
  PATH     DB   "d:\new",0
 
MAIN  PROC  NEAR
 
  MOV AH,03H
  MOV BH,AL
  INT 10H
 
  MOV AH,09
  LEA DX,A
 ; MOV AX, OFFSET A
  INT 21H
  MOV AH,01
  INT 21H
  MOV BH,AL
  
    cmp ax,1;сравниваем ах с 1
    je inc_a;если =
    cmp ax,2;сравниваем ах с 2
    je dec_a;если =     
    cmp ax,3;сравниваем ах с 3
    je three_a;если =   
          ;во всех остальных случаях        
    jmp done  ;уходим из проверок
 
 
    inc_a:
        mov ah,39h
        mov dx,offset dname
        int 21h
        jmp done ; теперь прыгаем на завершение
        
     dec_a:             ; сюда попадаем если ax=2
            mov ah,3ah
        mov dx,offset dname
        int 21h
        jmp done ; теперь прыгаем на завершение
 
    three_a:
        MOV  AH,3BH        ;номер функции
            LEA  DX,PATH       ;DS:DX должны указывать на путь
        INT  21H           ;устанавливаем текущий каталог
        
 
done:              ; все сделали. в ax лежит результат 
 
  MOV AH,02H
  INT 10H
 
    mov ah,01      ; ждем
    int 21h    ; нажатия клавиши
  
 
  RET
MAIN  ENDP
CODESG  ENDS
  END BEGIN