		jmp begin
path		db	'*.*',0
dta		db	256 dup(?)
begin:
		lea	dx,dta
		mov	ah,1ah
		int	21h		;set DTA
	
		mov	ah,4eh
		lea	dx,path
		mov	cx,0ffh		;attrib
		int	21h		;Find 1st
		jc	no_file
	
line:		lea	bx,dta
		mov	al,[bx+21]
		add	bx,30
next:		mov	dl,[bx]
		cmp	dl,0
		je	end_str
		mov	ah,2
		int	21h
		inc	bx
		jmp	next

end_str:	mov	ah,2
		mov	dl,13
		int	21h
		mov	dl,10
		int	21h

		lea	dx,path
		mov	ah,4fh
		int	21h
		jc	fin
		jmp	line

fin:		int	20h

no_file:	mov	ah,2
		mov	dl,7
		int	21h

		int	20h

