BSF	TRISC,7	
	CLRF	TRISD		
AGAIN	BTFSS	PORTC,7	
	BRA	OVER		
	MOVLW	A'Y'		
	MOVWF	PORTD		
	GOTO	AGAIN		
OVER	MOVLW	A'N'		
	MOVWF	PORTD		
	GOTO	AGAIN