EEMEN     EQU 00001000b
EEMWE     EQU 00011000b
EEPREADY  EQU 00000010b

; ********************************************
;DN WREP8252
;D  Read 8252 EEPROM @DPTR in A
; ********************************************
RDEP8252: ORL   WMCON,#EEMEN    ; Enable EEPROM
          MOVX  A,@DPTR         ; EEPROM @DPTR > A
          XRL   WMCON,#EEMEN    ; Disable EEPROM
          INC   DPTR
          RET

; ********************************************
;DN WRITEEEP 
;D  Write 8252 EEPROM @DPTR 
 ;********************************************
WREP8252: ORL   WMCON,#EEMWE ; Enable write
          MOVX  @DPTR,A
WREEPR1:  MOV   A,WMCON      ; Status
          ANL   A,#EEPREADY  ; Check RDY/BSY'
          JZ    WREEPR1      ; Wait for RDY high
          XRL   WMCON,#EEMWE ; Disable write
          RET