Вывод всех файлов и поддиректорий в заданной директории (добавить в код ввод директории)

.586p
.model flat, stdcall
std_output_handle equ -11
std_input_handle equ -10
extern wsprintfA:near
extern CharToOemA@8:near
extern GetStdHandle@4:near
extern WriteConsoleA@20:near
extern ReadConsoleA@20:near
extern ExitProcess@4:near
extern GetCommandLineA@0:near
extern lstrcatA@8:near
extern FindFirstFileA@8:near
extern FindNextFileA@8:near
extern FindClose@4:near
_FIND STRUC
atr dword ?
crtime dword ?
dword ?
actime dword ?
dword ?
wrtime dword ?
dword ?
sizeh dword ? 
sizel dword ? 
dword ?
dword ?
nam db 260 dup(0)
anam db 14 dup(0)
_FIND ENDS
includelib c:\masm32\lib\user32.lib
includelib c:\masm32\lib\kernel32.lib
_data segment
buf db 0
db 100 dup(0)
lens dword ? 
handl dword ?
handl1 dword ?
maska db "**", 0
ap db '\', 0
fin _FIND <0>
text db "Для продолжения нажмите:", 13, 10, 0
bufin db 10 dup(0)
findh dword ?
num db 0
numf dword 0 
numd dword 0 
form db "Найденные файлы : %1u", 0
form1 db " Найденные каталоги : %1u", 0
bufer db 100 dup(?)
dir db " <DIR> ", 0
par db ? ; параметрлер саны
_data ends
_text segment
start:
push std_output_handle
call GetStdHandle@4
mov handl, eax
push std_input_handle
call GetStdHandle@4
mov handl1, eax
push offset text
push offset text
call CharToOemA@8
push offset form
push offset form
call CharToOemA@8
push offset form1
push offset form1
call CharToOemA@8
call numpar
mov par, al
cmp eax, 1
je no_par
mov edi, 2
lea ebx, buf
call getpar
push offset buf
call lenstr
cmp byte ptr [buf+ebx-1], "\"
je no_par
push offset ap
push offset buf
call lstrcatA@8
cmp par, 3
jb no_par
mov edi, 3
lea ebx, maska
call getpar
no_par:
call find
push numf
push offset form
push offset bufer
call wsprintfA
lea eax, bufer
mov edi, 1
call write
push numd
push offset form1
push offset bufer
call wsprintfA
lea eax, bufer
mov edi, 1
call write
_end:
push 0
call ExitProcess@4
write proc
push eax
call lenstr
mov esi, eax
cmp edi, 1
jne no_ent
mov byte ptr [ebx+esi], 13
mov byte ptr [ebx+esi+1], 10
mov byte ptr [ebx+esi+2], 0
add ebx, 2
no_ent:
push 0
push offset lens
push ebx
push eax
push handl
call WriteConsoleA@20
ret
write endp
lenstr proc
push ebp
mov ebp, esp
push eax
push edi
cld
mov edi, dword ptr [ebp+08h]
mov ebx, edi
mov ecx, 100
xor al, al
repne scasb 
sub edi, ebx 
mov ebx, edi
dec ebx
pop edi
pop eax
pop ebp
ret 4
lenstr endp
numpar proc
call GetCommandLineA@0
mov esi, eax 
xor ecx, ecx 
mov edx, 1 
L1:
cmp byte ptr [esi], 0
je L4
cmp byte ptr [esi], 32
je L3
add ecx, edx 
mov edx, 0
jmp L2
L3:
or edx, 1
L2:
inc esi
jmp L1
L4:
mov eax, ecx
ret
numpar endp
getpar proc
call GetCommandLineA@0
mov esi, eax 
xor ecx, ecx 
mov edx, 1 
L1:
cmp byte ptr [esi], 0
je L4
cmp byte ptr [esi], 32
je L3
add ecx, edx 
mov edx, 0
jmp L2
L3:
or edx, 1
L2:
cmp ecx, edi
jne L5
mov al, byte ptr [esi]
mov byte ptr [ebx], al
inc ebx
L5:
inc esi
jmp L1
L4:
mov byte ptr [ebx], 0
ret
getpar endp
find proc
push offset maska
push offset buf
call lstrcatA@8
push offset fin
push offset buf
call FindFirstFileA@8
cmp eax, -1
je _err
mov findh, eax
lf:
cmp byte ptr fin.nam, "."
je _no
test byte ptr fin.atr, 10h
je no_dir
push offset dir
push offset fin.nam
call lstrcatA@8
inc numd
dec numf
no_dir:
push offset fin.nam
push offset fin.nam
call CharToOemA@8
lea eax, fin.nam
mov edi, 1
call write
inc numf
inc num
cmp num, 32
jne _no
mov num, 0
mov edi, 0
lea eax, text
call write
push 0
push offset lens
push 10
push offset bufin
push handl1
call ReadConsoleA@20
_no:
push offset fin
push findh
call FindNextFileA@8
cmp eax, 0
jne lf
push findh
call FindClose@4
_err:
ret
find endp
_text ends
end start