Updated Ada Code For D6052