proc FileNameFromFile,cFile
		mov esi, [cFile]
		mov ecx, esi
	next:
		lodsb
		or al, al
		jz done
		cmp al, '\'
		cmove ecx, esi
		cmp al, '.'
		jnz next
		xor eax, eax
		mov [esi-1], al
		jmp next
	done:
		mov [cFile], ecx
		ret
endp