An Ada compiler for a subset of Ada instructions