LCD_DATA	EQU PORTD		
LCD_CTRL	EQU PORTB		
RS	EQU RB0			
RW	EQU RB1			
EN	EQU RB2			
	CLRF	TRISD		
	CLRF	TRISB		
	BCF	LCD_CTRL,EN 
	CALL	LDELAY   	
	MOVLW	0x38		
	CALL	COMNWRT	
	CALL	LDELAY   	
	MOVLW	0x0E     	
	CALL	COMNWRT	
	CALL	DELAY		
	MOVLW	0x01     	
	CALL	COMNWRT	
	CALL	DELAY		
	MOVLW	0x06     	
	CALL	COMNWRT	
	CALL	DELAY		
	MOVLW	0x84     	
	CALL	COMNWRT	
	CALL	DELAY		
	MOVLW	A'N'     	
	CALL	DATAWRT	
	CALL	DELAY		
	MOVLW	A'O'     	
	CALL	DATAWRT  	
AGAIN	BTG	LCD_CTRL,0	
	BRA	AGAIN		
COMNWRT				
	MOVWF	LCD_DATA	
	BCF	LCD_CTRL,RS 
	BCF	LCD_CTRL,RW 
	BSF	LCD_CTRL,EN 
	CALL 	SDELAY	
	BCF	LCD_CTRL,EN 
	RETURN
DATAWRT				
	MOVWF	LCD_DATA	
	BSF	LCD_CTRL,RS	
	BCF	LCD_CTRL,RW	
	BSF	LCD_CTRL,EN	
	CALL	SDELAY	
	BCF	LCD_CTRL,EN	
	RETURN
	END