MOVLW 0x0		
	MOVWF EEADR	
	MOVLW A'H'	
	MOVWF EEDATA	
	CALL	EE_WRT
	INCF	EEADR,F	
	MOVLW A'E'	
	MOVWF EEDATA	
	CALL	EE_WRT
	INCF	EEADR,F	
	MOVLW A'L'	
	MOVWF EEDATA	
	CALL	EE_WRT
	INCF	EEADR,F	
	MOVLW A'L'	
	MOVWF EEDATA	
	CALL	EE_WRT
	INCF	EEADR,F	
	MOVLW A'O'	
	MOVWF EEDATA	
	CALL	EE_WRT
	INCF	EEADR,F	
	MOVLW 0x0	
	MOVWF EEADR		
	BCF	EECON1,EEPGD	
	BCF	EECON1,CFGS	
	MOVLW 0x05		
	MOVWF COUNT
	CLRF	TRISB		
OVER	BSF	EECON1,RD		
	NOP
	MOVFF EEDATA,PORTB	
	CALL	DELAY		
	INCF	EEADR,F		
	DECF	COUNT,F		
	BNZ	OVER			
HERE BRA 	HERE
EE_WRT
	BCF	EECON1,EEPGD	
	BCF	EECON1,CFGS	
	BSF	EECON1,WREN	
	BCF	INTCON,GIE	
	MOVLW 0x55		
	MOVWF EECON2		
	MOVLW 0xAA		
	MOVWF EECON2		
	BSF	EECON1,WR		
	BSF	INTCON,GIE	
EE_WAIT	BTFSS PIR2,EEIF
	BRA	EE_WAIT
	BCF	PIR2,EEIF	
	RETURN