Поиск и запись в файл(Assembler)

[Bullrock]

Необходимо составить программу, которая выполняет поиск в текущем каталоге файлы с расширением .asm и записывает все имена в файл report.exe.
написал вроде, но файл остается пустым. Даже не знаю, что не так ассемблер токо начал учить...

	.model small
	.stack 32
	.data
	
	fname		db	'report.txt', 0		; ASCIIZ-имя файла
	searchPath  db  "*.asm*"
	dta			db	256 dup (?)
	.code
	.startup
	
	mov	ah, 3Ch		; функция ’Создать файл’
	lea	dx, fname	; DS:DX -> ASCIIZ-имя
	xor	cx, cx		; без атрибутов
	int	21h
	
	;Find First File
				 
        mov ah,4eh
        xor cx,cx
        mov dx, offset searchPath

write_n:			; запись имени найденых файлов в созданный файл

        mov dx,  offset fname	;открываю файл
	mov ah, 3dh 
	mov al, 1 ;доступ
	int 21h
	
	mov bx,ax
	mov ah, 40h
	lea	dx, dta+1Eh	; DS:DX -> записываемая строк	
	lea	cx, dta+1Ah	; ???????
	int	21h

 ;Ищем следующий файл
 
        mov ah,4fh
        lea dx, dta
        int 21h
        jnc write_n   
    
exit:	
	mov	ax, 4C00h
	int	21h

	.exit 0
	end

[zhan313]

.model small
	.stack 32
	.data
	
	fname		db	'report.txt', 0		; ASCIIZ-имя файла
	searchPath  db  "*.asm",0  ; ASCIIZ-имя файла поиска
	dta			db	256 dup (?)
	.code
	.startup
	
	mov	ah, 3Ch		; функция 'Создать файл'
	lea	dx, fname	; DS:DX -> ASCIIZ-имя
	xor	cx, cx		; без атрибутов
	int	21h
	
	lea	dx,dta    ; устанавливаем свой DTA
	mov	ah,1ah
	int	21h
	
	;Find First File
				 
        mov ah,4eh
        xor cx,cx
        mov dx, offset searchPath
        int 21h

        mov dx,  offset fname	;открываю файл
	mov ah, 3dh 
	mov al, 1 		;доступ
	int 21h
	mov bx,ax
	
write_n:			; запись имени найденых файлов в созданный файл

	mov	ah, 40h
	lea	dx, dta+1Eh	; DS:DX -> начало записываемой строки	
; определяем длину имени файла
	xor	cx,cx
	mov	si,dx
w1:
	lodsb
	inc	cx
	cmp	al,0
	jne	w1
; записываем имя в формате ASCIIZ в файл
	int	21h

 ;Ищем следующий файл
 
        mov ah,4fh
        lea dx, dta
        int 21h
        jnc write_n   
    
exit:	
	mov	ah,3eh  ; не забываем закрывать файл
	int	21h
	mov	ax, 4C00h
	int	21h

	.exit 0
	end