mukesh,

I'm sorry i didn't read thru the entire listing however it looks like your sequencing is off.

start with E =0

Set RS to either data (1) control (0)
SET WR=0
Set E =1
Set Data
SET E=0
SET WR=1

regards,
p