Justinianus (482–565) keletrómai császár, a Corpus Juris Civilis megalkotója