list b=4
		list	p=18F25k80		; 10 bit A/D
		#include p18F25k80.inc

		CONFIG	XINST = OFF

	cblock	0x000
INTCON_SAVE
	endc

	org	0x0

	movlb	0
	movlw	0x55
	movwf	EEDATA
	movlw	0
	movwf	EEADR
	movwf	EEADRH
	rcall	EEPROM_KIIR1
	bra		$

EEPROM_KIIR1
     bcf	EECON1,CFGS
     BCF	EECON1,EEPGD
     BSF	EECON1,WREN       
     movf	INTCON,W
     movwf	INTCON_SAVE
     BCF	INTCON,GIEL
     BCF	INTCON,GIEH
     MOVLW	0x55
     MOVWF	EECON2
     MOVLW	0xAA
     MOVWF	EECON2   
     BSF	EECON1,WR
     
     BTFSC	INTCON_SAVE,GIEH
     BSF	INTCON,GIEH
     BTFSC	INTCON_SAVE,GIEL
     BSF	INTCON,GIEL
IRAS
     BTFSC 	EECON1,WR
     BRA 	IRAS
     BCF 	EECON1,WREN 
     
     BTFSC	EECON1,WRERR
     BRA	EEPROM_KIIR1
     RETURN

	END