I believe there is a typo in this sub...

WAddress: ' write controller address
Write 4,RData[1]
goto ReadEeprom

should read...
WAddress: ' write controller address
Write 5,RData[1] 'matches the reads...
goto ReadEeprom