CLRF	 TRISC	
	MOVLW	 A'N'		
	MOVWF	 PORTC	
	SETF	 TRISB	
	MOVLW	 0x99		
	CPFSEQ PORTB	
	BRA	 OVER
	MOVLW	 'Y'
	MOVWF	 PORTC	
OVER	.....