MOVLW	upper(MYDATA)
	MOVWF	TBLPTRU	
	MOVLW	high(MYDATA)
	MOVWF	TBLPTRH  
	MOVLW	low(MYDATA)
	MOVWF	TBLPTRL	
	BSF		EECON1,EEPGD	
	BCF		EECON1,CFGS 	
	BSF		EECON1,WREN	
	BSF 	EECON1, FREE 	
	BCF		INTCON,GIE	
	MOVLW	55H			
	MOVWF	EECON2		
	MOVLW	0AAH			
	MOVWF	EECON2		
	BSF		EECON1,WR		
	NOP					
	BSF		INTCON,GIE	
	BCF		EECON1,WREN	
	MOVLW	upper(MYDATA)
	MOVWF	TBLPTRU		
	MOVLW	high(MYDATA)
	MOVWF	TBLPTRH  
	MOVLW	low(MYDATA)
	MOVWF	TBLPTRL	
	MOVLW	A'H'			
	MOVWF	TABLAT		
	TBLWT*+	
	MOVLW	A'E'			
	MOVWF	TABLAT		
	TBLWT*+	
	MOVLW	A'L'			
	MOVWF	TABLAT		
	TBLWT*+				
	MOVLW	A'L'			
	MOVWF	TABLAT		
	TBLWT*+				
	MOVLW	A'O'			
	MOVWF	TABLAT		
	TBLWT*+				
	BSF		EECON1,EEPGD	
	BCF		EECON1,CFGS	
	BSF		EECON1,WREN	
	BCF		INTCON,GIE	
	MOVLW	55H			
	MOVWF	EECON2		
	MOVLW	0AAH			
	MOVWF	EECON2		
	BSF		EECON1,WR		
	NOP					
	BSF		INTCON,GIE	
	BCF		EECON1,WREN	
	MOVLW	upper(MYDATA)
	MOVWF	TBLPTRU		
	MOVLW	high(MYDATA)
	MOVWF	TBLPTRH  
	MOVLW	low(MYDATA)
	MOVWF	TBLPTRL	
	CLRF	TRISB			
	MOVLW	0x05			
	MOVWF	COUNT
OVER	TBLRD*+	
	MOVFF	TABLAT,PORTB 	
	CALL		DELAY 
	DECF		COUNT,F		
	BNZ		OVER		
	ORG 1200H
MYDATA data "GOOD BYE"
	END