Курсовая: реализовать функцию, которая возвращает количество файлов в корневом директории, имя которых состоит из одной буквы

.model  tiny
.code
.386
org 100h
start:
jmp initialize
 
Int_60h:
    xor cx, cx
    mov cl, ah
    push ds
pusha   
    mov bl, ah
    sal bx, 1   
    mov ax, cs
    mov ds, ax  
    call TAB[bx]    
popa
    mov dx, result  
    pop ds
iret
 
one_char proc near
;считываем BOOT-sector
    mov dl,00h ; номердиска 0=А
    mov dh,00h ; номерголовки
    mov ch,00h ; номердорожки
    mov cl,01h ; номерсектора
    mov al,01h ; числосекторов
    mov ah,02h ; номерфункциичтения
    mov bx,offset MyBoot
    int 13h
;считаемсколькосекторовзанимаеттаблицы ФАТ + ВООТ
    mov ax,es:MyBoot.SectorsPerFAT
    mov dl,es:MyBoot.NumberOfFATs
    mul dl ;умножаемколичествотаблиц ФАТ наихразмер в секторах
    inc al ;+ 1 секторна BOOT
    inc al ;следовательосчитываемследующийсекторзапоследнейтаблицей ФАТ
;вычисляемнакакойстороне, дорожке и какойпосчетупервыйсекторкорневогодиректория
    cmp ax,es:MyBoot.SectorsPerHead ;сравниваемнашномерсектора с количествомсекторовнадорожке
    jg lab1 ;еслибольше, тонаметку lab1
    jle lab2 ;еслименьшеилиравно, тона lab2
lab1:
    sub ax,es:MyBoot.SectorsPerHead ;вычитаемизномераSectorsPerHead
    mov dh,01h ;меняемномерголовки
    mov cl,al ; номерсектора
    jmp read ; считываем
lab2:
    mov dh,00h ; неменямномерголовки
read:
    mov cl,al ; номерсектора
    mov dl,00h ; номердиска 0=А
    mov ch,00h ; номердорожки
    mov ax,0Eh ; числосекторов =14
    mov ah,02h ; номерфункциичтения
    mov bx,offset ROOT
    int 13h
;проходимповсемдискрипторам и сравниваемпервыебуквы с 00FF
    xor cx,cx ; обнуляемсчётчик
do_loop: ;цикл
    mov ax,word ptr es:[bx+1] ; помещаем в AX кодвторых 2х букв
    add bx,20h ; следующийдискрипторчерез 20h байт
    cmp ax,0000h ; сравниваемкод с нулём(т.е. дискрипторанет)
    je end_loop ; еслмэтотак, товыходим
    cmp ax,2020h ; иначесравниваемэти 2 символа с 2020h
    jne do_loop ; еслинеравно, тонаначалоцикла
    inc cx ; иначеувеличиваемсчётчик
    jmp do_loop
end_loop:
mov result, cx
ret
BOOT_STRUCTURE struc
Jmp_Command         db  3 dup (?) ;Инструкцияпереходанапрограммузагрузки
OEM_Identifier      db  8 dup (?) ;Аббревиатураоперационнойсистемы +3
BytesPerSector      dw  (?) ;Числобайтов в секторе (512) +11
SectorsPerCluster   db  (?) ;Числосекторов в кластере +13
ReservedSectors     dw  (?) ;Размерсистемнойобласти (включаяэтотсектор) (1) +14
NumberOfFATs        db  (?) ;Числотаблиц FAT (2) +16
RootEntries         dw  (?) ;Числосекторов, занимаемыхкорневымкаталогом +17
NumberOfSectors     dw  (?) ;Общеечислосекторовнадиске +19
MediaDescriptor     db  (?) ;Типустройства +21
SectorsPerFAT       dw  (?) ;?1Размер одной FAT в секторах +22
SectorsPerHead      dw  (?) ;Числосекторовнадорожке
HeadsPerCylinder    dw  (?) ;Числоголовок
HiddenSectors       db 4 dup (?) ;Количествоскрытыхсекторов
BigNumberOfSectors  db 4 dup (?) ;Общееколичествосекторовбольше 32 мегабайт.
BigSectorsPerFAT    db (?) ;
NotUsed_1           db (?) ;
ExtFlags            db (?) ;
DriveNumber         db 4 (?)
DriveLabel          db 11 (?)
FSVersion           db 8 (?)
NotUsed_2           db 448 dup (?)
SignatireValue      dw (?)
BOOT_STRUCTURE ends
MyBoot BOOT_STRUCTURE {}
ROOT db 7168 dup (?) ;размер ROOT 7168 байтили 14 секторов
one_char endp
 
cap proc    near
    pusha
    mov     ax, bx
    shr     ax, 1
    mov     cx, max
convert:
    xor     dx, dx
    mov di, cx
    div del
    mov bx, dx
    mov dl, chararray[bx]
    mov CapNmbr[di-1], dl
    cmp     ax, 0
    jz cont
    loop convert
cont:
    mov     si, offset CapMsg
OutputCapMsg:
    mov     al, [si]
    mov     ah, 0Eh
    inc     si
    int 10h
    cmp byte ptr[si], '$'
    jne OutputCapMsg
    popa
    ret
CapMsg      db  "Function "
CapNmbr     db  3 dup (?)
CapMsg2     db  "h not realized.", 0Dh, 0Ah, '$'
max         dw  3
del         dw  16
chararray   db  '0', '1', '2', '3', '4', '5', '6', '7', '8', '9'
cap endp
 
TAB dw  51 DUP (cap)
    dw  (one_char)
    dw  204 DUP (cap)
result dw (?)
 
initialize:
    mov ax,2560h
    mov dx,offset Int_60h
    int 21h
    mov dx, (initialize-start+10Fh)/16
    mov ah, 31h
    int 21h
end start