Updated Ada Code For D6112