Вывести количество свободных кластеров в fat, Диск C

.model small 
.stack 100h 
.data
 
INT25Block struc 
    sectorno  dw ?  ; номер сектора 2^32 секторов
    nsectors  dw ?  ; количество считываемых секторов 
    offs      dw ?  ; смещение – часть дальнего указателя на буфер 
    segm      dw ?  ; сегмент – часть дальнего указателя на буфер
    
INT25Block ends
; блок параметров и буфер данных 
block INT25Block <> 
buf  db 512 dup (?)
count dw 0
.code 
 
Cikl proc near
xor si, si
DEC si
DEC si
m2:
add si, 2
cmp si, 514
JZ exit
cmp word ptr [block.offs+si], 0
JNZ m2
INC count
JMP m2
exit:
Ret 
Cikl endp
 
OUTPUT proc near
 
mov ax, count
m4:
mov bx, 10
div bx
mov dl, ah
mov ah, 02h
int 21h
cmp ax, 0
jnz m4
Ret
OUTPUT endp
 
main:
mov ax, @data 
mov ds, ax
mov di, 1
 
m1:
mov block.sectorno , di ;номер считываемого сектора 
mov block.nsectors, 1 ; количество считываемых секторов 
mov block.offs, offset buf  ; смещение дальнего указателя на буфер 
mov block.segm, ds          ; сегмент дальнего указателя на буфер
mov al, 02h        ; AL==00h логический диск0-A:, 1-B:, 2-C:,... 
mov cx, 0FFFFh     ; признак расширенной функции 
lea bx, block      ; DS:BX – адрес блока описания операции чтения 
int 25h            ; вызываем сервис 
 
call Cikl
inc di
cmp di, 252
JNZ m1
 
;mov ah, 02h
;mov dl, word PTR[count]
;int 21h
call OUTPUT
 
end main

;fasm-code..
;------------
org     100h
jmp     start
 
disk    db   13,10,'------------------------'
        db   13,10,'Disk (A,B,C,D)......: $'
mes0    db   13,10,'   Sector size......: $'
mes1    db   13,10,'   Sector to Cluster: $'
mes2    db   13,10,'   Free Clusters....: $'
mes3    db   13,10,'   Total Cluster....: $'
err     db   '  <-- DISK ERROR!!!$'
 
start:  mov   bp,4         ; кол-во дисков
 
;---- запрос на ввод буквы диска
@dsk:   mov   dx,disk
        call  Message      ;
        xor   ax,ax        ;
        int   16h          ;
        and   al,0dfh      ; переводим в вехний регистр
        int   29h          ;
 
        sub   al,40h       ; делаем из буквы цифру
        mov   dl,al        ; номер диска для fn.36h
 
;---- Дать свободную память диска!
        mov   ah,36h       ;
        int   21h          ;
        or    ax,ax        ;
        jns   @ok          ;
        mov   dx,err       ; ошибка диска!
        call  Message      ;
        jmp   @next        ; сл.попытка
 
;---- Вывод инфы на экран
@ok:    push  dx bx ax cx  ; запомнить выхлоп функции
        mov   dx,mes0      ;
        call  Message      ;
        pop   ax           ; СХ = размер сектора
        call  hex2asc      ;
 
;---- АХ = секторов в кластере
        mov   dx,mes1      ;
        call  Message      ;
        pop   ax           ;
        call  hex2asc      ;
 
;---- ВХ = свободно кластеров
        mov   dx,mes2      ;
        call  Message      ;
        pop   ax           ;
        call  hex2asc      ;
 
;---- Всего кластеров на диске
        mov   dx,mes3      ;
        call  Message      ;
        pop   ax           ;
        call  hex2asc      ;
 
;---- Все диски показали?
@next:  dec   bp           ;
        jnz   @dsk         ; нет..
 
@exit:  xor   ax,ax        ;
        int   16h          ;
        int   20h          ;
 
;---- ПРОЦЕДУРЫ ----------------------------------//
Message:                   ; мессага
   mov   ah,9
   int   21h
   ret
;------------
hex2asc:                   ; вывод на экран числа(АХ/EAX)
   mov   ebx,10            ; система счисления для вывода
   xor   ecx,ecx
isDiv:
   xor   edx,edx
   div   ebx
   push  edx
   inc   ecx
   or    eax,eax
   jnz   isDiv
isOut:
   pop   eax
   cmp   al,9
   jle   noHex
   add   al,7
noHex:
   add   al,30h
   int   29h
   loop  isOut
ret