;
; Read EEPROM byte
; address is supplied in W on call, data is returned in w
;
ReadEE
;--------------------------------------------------------------------------------
BANKSEL EEADR
;--------------------------------------------------------------------------------
movwf EEADR ;EEADR = w
bsf STATUS,RP0 ;select bank 1
bsf EECON1,RD ;read EEPROM
bcf STATUS,RP0 ;select bank 0
movf EEDATA,w ;get EEDATA into w
;--------------------------------------------------------------------------------
BANKSEL PORTA
;--------------------------------------------------------------------------------
return