Работа с файлами

[Kayako]

Помогите пожалуйста разобраться!
Необходимо, чтобы в создаваемый программой файл записывались все имена файлов директории, а также размер каждого файла в байтах. У меня есть программа, которая делает все необходимые функции, вот только записывает в файл рядом с именем - атрибуты. Подскажите пожалуйста, как можно записывать в файл имя и размер каждого файла. Вот код:

.model	small
.stack	100h
.data
filename db "Atributi.txt",0
handle dw 0         ; дескриптор файла
find db '*.*',0
attribute db ' ',8 dup(0),0Dh,0Ah
dta  db 256 DUP(?)
.code
start:
mov	ax,@data   ; адрес сегмента данных в регистр ах
mov	ds,ax
xor	ax,ax

lea dx,dta        ; DS:DX укaзывaют нa DTA
mov ah,1AH        ; функция уcтaнoвки DTA
int 21h

;---открыть файл для записи---

xor cx,cx   ; атрибуты файла - обычный файл
mov bx,2   ; режим доступа - для чтения-записи
mov dx,12h   ; если файл существует, открыть его без сохранения прежнего содежимого или создать его
lea si,filename   ; формирование указателя на имя файла
mov ah,6Ch   ; номер функции DOS
int 21h   ; открываем (создаем) файл
jc exit   ; если ошибка - переход на конец
mov handle,ax   ; сохраняем десриптор файла

;---поиск первого файла по шаблону---

mov ah,4Eh          ; поиск первого файла
lea dx, find
int 21h
jc exit   ; переход, если ошибка

;---запись в файл---

m5:
lea dx,dta[1Eh]
xor cx,cx
xor si,si
mov bx,dx
m1:
   cmp byte ptr bx[si],0
   je m2
   inc cx
   inc si
   jmp m1
m2: 
mov bx,handle   ; дескриптор файла в bx
mov ah,40h
int 21h
mov al,dta[15h]
mov cx,8
mov si,1
m3:
shl ax,1
add ah,30h
mov attribute[si],ah
xor ah,ah
inc si
loop m3
lea dx,attribute
mov cx,11
mov ah,40h
int 21h

;---поиск остальных файлов и запись в файл---

lea dx, find
m4:
mov ah,4Fh          ; найти следующий файл
int 21h
jnc m5
;--------------------------------------------

exit:
mov	ax,4c00h
int	21h
end	start