Вывести содержимое корневого каталога логического диска А, используя Handle-ориентирование и 13 прерывание

.model tiny
.code
.386p
org 100h
start:
mov ax,0003h
int 10h
call ReadRootDir
call ReadFAT
ret
 
; Чтение сектора (DX=номер сектора)
; ES:DI – Адрес для приёма данных
 
ReadSect proc
push di
push es
; Начало расчета сектора/дорожки/головки
push cs
pop ds
mov cx,[gnTrackSect]
mov si,dx
; tmp=(Sector/TrackSectors);
mov ax,si
xor dx,dx
div cx
mov di,ax
; Sec=Sector-(tmp*TrackSectors)+1;
mov ax,di
imul cx
mov dx,si
sub dx,ax
inc dx
mov [AbsSectNum],dx
; Head=tmp & 1;
mov ax,di
and ax,1
mov [AbsHeadNum],ax
; Trk=(Sector-(Head*TrackSectors)-(Sec-1))/(TrackSectors*2);
imul cx
push ax
mov ax,si
pop dx
sub ax,dx
mov dx,[AbsSectNum]
dec dx
sub ax,dx
mov dx,cx
shl dx,1
push ax
push dx
xor dx,dx
pop bx
pop ax
div bx ; AX = AbsTrackNum
; Конец расчетов
mov cx,ax
mov al,cl
shr cx,2
and cl,0C0h
mov ch,al
and cx,0FFC0h
mov ax,[AbsSectNum]
or cl,al
pop es
pop bx ; ES:BX = Куда считывать
mov dx,[AbsHeadNum]
mov dh,dl ; Номер головки
mov dl,0 ; Номер диска 0 = A
mov al,1 ; Количество считываемых секторов
mov ah,2 ; Номер функции
int 13h
ret
ReadSect endp
 
ReadRootDir proc
;Чтение корневого каталога в оперативную память
pusha
mov dx,19 ;Начальный сектор ROOT′a
mov di,offset RootDir
Cont_Read_Root:
push dx
push di
push es
Call ReadSect ;Чтение сектора
pop es
pop di
pop dx
add di,512
inc dx
cmp dx,33
jne Cont_Read_Root
popa
ret
ReadRootDir endp
 
 
ReadFAT proc
;Чтение таблицы размещения файлов в оперативную память
pusha
mov dx,1
mov di,offset Mem_FAT
Cont_Read_Fat:
push dx
push di
push es
Call ReadSect
pop es
pop di
pop dx
add di,512
inc dx
cmp dx,10
jne Cont_Read_Fat
popa
ret
ReadFAT endp
 
AbsSectNum dw 0
AbsHeadNum dw 0
gnTrackSect dw 18 ; Число секторов на дорожку
Mem_FAT db 9*512 dup(?)
RootDir db 15*512 dup (?)
end start

PrintRoot proc
 
lea si,RootDir
prn:
    cmp byte ptr [si],0e5h
    jz nextelem
    mov word ptr [si+11],0d0ah
    xor bx,bx
    mov dx,si
    mov ah,40h
    mov cx,13
    int 21h
 
nextelem:
    add si,32
    
    cmp byte ptr [si],0
    jnz prn
    ret
PrintRoot endp

;Эти floppy - диски записывают 80 цилиндров и 160 дорожек, 
;соответственно. Каждая дорожка имеет 18 секторов. 
DATA SEGMENT
 DATA_BUFER         DB 512 dup(?) ;
 SIZE_DATA_BUFER    = $ - DATA_BUFER
;reedroot.txt    
 PATH1              db "spisok_FDD_failov.txt",0
 point_fname1       dd PATH1
 Perem              db ?
 HANDLE1            dw ?
 Perem_buf          db 11 dup(?)  ;
 point_per_buf      dw perem_buf
 ;номер сектора чтения
 sectors            db 2            ; количество вvделенное для Rootdir
 ;weeldone
 Good_msg           db "Funkcia int 13 otrabotala.$",0ah,0
 ; пустой файл
 info_msg           db "На дискете больше файлов нет.",,0ah,0dh,24h,0
 info_msg_size      = $ - info_msg
 ;Пастая строка     
 zero_str           db " " ,0ah,24h,0
 zero_str_size      = $ - zero_str
DATA ENDS
 
STT SEGMENT STACK
DW 40 DUP(?)
STT ENDS
 
CODE SEGMENT
ASSUME CS:CODE, DS:DATA, ES:DATA, SS:STT
BEGIN:
 
 
 
;установка сегментнvх секторов
           MOV AX,DATA
           MOV DS,AX
           MOV ES,AX
           MOV AX,STT
           MOV SS,AX
           ;отладка
           jmp read_sector
 
 
           
          ; mov Cx, 07 
;читать сектор корневого каталога
read_sector:
          LEA BX, ES:DATA_BUFER
          MOV Ah, 02h     ; чтение
          MOV Al, 01h     ; число читеамых секторов
          MOV Dh, 01h     ; номер головки
          MOV Dl, 00h     ; номер диска
          mov Ch, 00h     ; номер дорожки 0
          mov Cl, sectors ; номер сектора 
          INT 13H
          
          mov DX, offset Good_msg
          MOV Ah, 09h
          INT 21H
;
; Открvть фал
;    
     xor    cx,cx           ; обvчнvй файл
     mov    bx, 2           ; для чтения-записи в режиме бvферизации в dos
     mov    dx, 12h         ; если файл суествует, то открvть его без сохранения содержимого
     lds    si, point_fname1    ; формируем указатель на имя файла
     mov    ah, 6ch         ; номер функции 
     int    21h         ; открvваем, создаїм файл
          
     MOV HANDLE1, AX
     ;JC ERROR
     ;
     ; курсор на начало файла 
     ;
     mov   ah, 42h
     xor   al, al
     xor   cx, cx
     xor   dx, dx
     mov   bx, handle1
     int   21h          
         
         
          ;
          ;
          ;
     
          
          ; число читаемых файлов
          mov cx, 10
          ;начальное смещение
          mov di, 0
          mov dx, offset DATA_BUFER ;ds:dx<= offset DATA_bufer
      next_name:
          ;заносим в стек текущую позицию цикла
          push cx
          ;mov bx, dx
          
          ;
          ;     
          ;
          LEA BX, ES:DATA_BUFER
          MOV Ah, 02h     ; чтение
          MOV Al, 01h     ; число читеамых секторов
          MOV Dh, 01h     ; номер головки
          MOV Dl, 00h     ; номер диска
          mov Ch, 00h     ; номер дорожки 0
          mov Cl, sectors ; номер сектора 
          INT 13H
                         
          ;проверка на наличае файлов
          cmp byte ptr ds:[bx], 0e5h
          je info
         
         ;запись найденных результатов
 
           mov cx, 11        ; количество символов на вывод
           mov bx, handle1   ; 1 - monitor
           mov Ah, 40h       ;
           mov dx, offset DATA_BUFER  ; ds:dx<= offset DATA_bufer
           add dx, di
           int 21h
           
          push dx
           
            mov cx, zero_str_size        ; количество символов на вывод
            mov bx, handle1   ; 1 - monitor
            mov Ah, 40h       ;
            mov dx, offset zero_str  ; ds:dx<= offset zero_str
            int 21h
           
           pop dx
  
 
          ;переход на следущий файл +32
           add di, 32
           ;Забираем из стека предыдущую позицию цикла  
           pop cx
       ;читать следующее имя файла
       loop next_name
     
     ;выводит сообщение о отсутствии фалов
     info: 
        mov cx, info_msg_size
        mov bx, handle1
        mov Ah, 40h
        mov dx, offset info_msg
        int 21h
         
        
        
     ;
     ; Закрытие файла
     ;     
     MOV Ah, 3eh         ;функция закрvтия файла
     MOV BX, HANDLE1    ;в T- должен находиться описатель файла
     INT 21H             
     JC ERROR        
   
          
 
           
          jmp find_files
 
find_files:
;          mov Cx, SIZE_DATA_BUFER
;          xor Si, Si
; fnd_loop:
;          ; 1-й символ расширения = C, если нет, то на next файл (+32) 
;          add si, 9
;          cmp DATA_BUFER[Si], 'c'
;          jne Next_file
;          inc si
;          cmp DATA_BUFER[Si], 'o'
;          jne Next_file
;          inc si
;          cmp DATA_BUFER[Si], 'm'
;          jne Next_file
          
          
;  Next_file:
;           add Si, 32
;           jmp fnd_loop
 
;
; Отладка
;
;mov DX, offset DATA_BUFER
;ADD DX, 03h
;MOV Ah, 09h
;INT 21H
 
 
;
; Открvть фал
;    
     xor    cx,cx           ; обvчнvй файл
     mov    bx, 2           ; для чтения-записи в режиме бvферизации в dos
     mov    dx, 12h         ; если файл суествует, то открvть его без сохранения содержимого
     lds    si, point_fname     ; формируем указатель на имя файла
     mov    ah, 6ch         ; номер функции 
     int    21h         ; открvваем, создаїм файл
          
     MOV HANDLE, AX
     JC ERROR
    ;
    ; курсор на начало файла 
    ;
    mov   ah, 42h
    xor   al, al
    xor   cx, cx
    xor   dx, dx
    mov   bx, handle
    int   21h
 
 
;
; Записать в файл
;
     
 
      mov     ah, 40h
      mov     bx, HANDLE
      mov     cx, SIZE_DATA_BUFER
      mov     dx, offset DATA_BUFER
      int     21h     ;DATA_BUFER   ; указатель на область, Bufer откуда будем вvводить даннvе      
      JC ERROR
 
; Закрvть файл
 
     MOV Ah, 3eh         ;функция закрvтия файла
     MOV BX, HANDLE      ;в T- должен находиться описатель файла
     INT 21H             
     JC ERROR            ;если флаг взведен, то ошибка
;
; Обработка ошибок
;
ERROR:
  jmp KON
 
 
 
KON:
MOV AH,4CH
INT 21H
CODE ENDS
 END BEGIN;//ітот файл создан с помоьі ASM Tool v0.85
 
 
 
 
   ;cmp byte ptr ES:[BX], 0e5h ; сравнение на пустой элемент
   ;определяем положение загрузочного сектора
   ;первого раздела жесткого диска
   ;MOV Dh, ES:DATA_BUFER [ 1bfh ]         ;1T+=+1
   ;MOV Cx,WORD PTR ES:DATA_BUFER[1c0h]  ;1T+=+2
   
   ;MOV DH,ES:BUFER [1]
   ;MOV CX,WORD PTR ES:BUFER[1] 
   
   ;читаем загрузочнvй сектор
   ;MOV AX,0201H
   ;INT 13H
   
   ;MOV byte PTR ES:DATA_BUFER [3+8],'$' ;отмечаем конец строки
   ;вvводим создателя загрузочного сектора

mov dx,19 ;Начальный сектор ROOT′a