; Copyright © 2003 Rosiello Security 
; All rights reserved.
;
; http://www.rosiello.org
; ------------------------------------------------------
; Find utility for Windows.
;
; Fix "COMFILE 	DB      '*.COM',0" when you have
; to look for something different from *.COM files.
; ------------------------------------------------------

TITLE FIND FILES *.COM IN THE LOCAL DIRECTORY

.MODEL SMALL

.STACK 200h 

.DATA
	COMFILE 	DB      '*.COM',0	
	CAPO		DB	10,13,"$"         
	DTA             DB      1AH dup (?)
.CODE

MAIN    SEGMENT BYTE
        ASSUME  CS:MAIN,DS:MAIN,SS:NOTHING

START:
	mov ax, @DATA
	mov ds, ax
	
	mov    dx,offset dta          			;point to temporary DTA buffer
        mov    ah,1ah                 			;set new disk transfer area
        int    21h                    			;call dos
        
	CALL 	FIND_FILE
	
	mov     ax,4c00h    				;Returns control to DOS
    	int     21h         				

FIND_FILE:
	mov     dx,offset COMFILE
	mov     cx,3FH          			;search for any file, no matter what the attributes
        mov     ah,4EH          			;do DOS search first function
        int     21H					;interrupt to DOS

FF_LOOP:
	or 	al,al 					;FILE Found ?
	jnz 	EXIT 					;no - jump to EXIT

FOUND:
	mov    bx,offset dta          
	add    bx,30d                 			;move up to filename
        mov    cx,12d                 			;display 12-byte filename

READER:
        mov    al,[bx]                			;get one byte
        cmp    al,0                   			;end of filename reached?
        je     CONTINUE
        mov    ah,0eh                 			;display byte function
        int    10h                    			;call bios Interrupt
	inc 	bx
	loop READER
	
CONTINUE:
	mov     ah,9
    	mov     dx,offset CAPO
    	int     21h   					;print "\n" after the name of the file 
  
SEARCH_NEXT:   		        
	mov 	ah,4FH 					;search for another file
	int 	21H					;interrupt to dos
	jmp	FF_LOOP 				;go back up and see what happened
						
       
EXIT:
        mov     dx,80H          			;fix the DTA
        mov     ah,1AH          			
        int     21H             			;interrupt to DOS 
	ret

ENDS MAIN
END START