BSF TRISD,7		
	MOVLW	0x20		
	MOVWF TXSTA		
	MOVLW D'15'		
	MOVWF SPBRG		
	BCF 	TRISC, TX	
   	BSF 	RCSTA, SPEN	
OVER	BTFSS PORTD,7
	BRA 	NEXT
	MOVLW	high(MESS1)	
	MOVWF	TBLPTRH
	MOVLW	low(MESS1)
	MOVWF	TBLPTRL
FN	TBLRD*+ 		
	MOVF 	TABLAT,W
	BZ	EXIT		
	CALL 	SENDCOM	
	BRA 	FN		
NEXT	MOVLW	high(MESS2)	
	MOVWF	TBLPTRH
	MOVLW	low(MESS2)
	MOVWF	TBLPTRL		
LN	TBLRD*+ 		
	MOVF 	TABLAT,W	
	BZ	EXIT		
	CALL 	SENDCOM	
	BRA 	LN		
EXIT	MOVLW	0x20		
	CALL	SENDCOM
	GOTO 	OVER	
SENDCOM 
S1	BTFSS PIR1, TXIF  
     	BRA 	S1         	
	MOVWF TXREG      	
     RETURN			
MESS1	DB	"NO",0
MESS2	DB	"YES",0