Ewrite		movff	    E_data, EEDATA	; Data to be written
		movff	    E_adr, EEADR	; Address pointer
		
		bcf	    EECON1, EEPGD, 1	; Point to data mode
		bcf	    EECON1, CFGS, 1	; Access EEPROM
		bsf	    EECON1, WREN, 1	; Enable write mode
		
		bcf	    INTCON, GIE, 1	; Disable all interrupts
		
		btfsc	    EECON1, WR, 1	; Check to see if a write is still 
		goto	    $-2			; in progress
		
		movlw	    0x55
		movwf	    EECON2, 1
		movlw	    0xAA
		movwf	    EECON2, 1		; Required sequence
		
		bsf	    EECON1, WR, 1	; Start write
		
		bsf	    INTCON, GIE, 1	; Turn back on interrupts
		
		bcf	    EECON1, WREN, 1	; Turn off write mode