WRITE:  MOV DPTR,#96H        ;ADDRESS OF EECON
        MOV A,#1BH
        MOVX @DPTR,A         ;SET WRITE AND ACCESS ENABLE
       
CHECK:  MOVX A,@DPTR
        CJNE A,#01BH,COMP    ;CHECK IF EEPROM IS BUSY

        MOV DPTR,#10H        ;LOCATION IN EEPROM
        MOV A,#05
        MOVX @DPTR,A         ;STORE 5 AT  10H LOCATION
        SJMP CHECK

COMP:   MOV A,#0BH           ;RESET WRITE ENABLE
        MOV DPTR,#96H
        MOVX @DPTR,A 

READ:   MOV DPTR,#10H
        MOVX A,@DPTR         ;READ DATA FROM 10H          
        ACALL DISPLAY
END:    SJMP END