On 10/10/2017 1:52 PM, Ed Jaffe wrote:
Actually, that clarification is worth the cost of this exercise. So in
this particular case, so long as R0 isn't any of the obvious
two-character values C'00' - C'FF' it should work!
Thanks to input from Tony Harminc and others, we have rehabilitated this
routine so that it now conforms to standards:
| XGR R0,R0 Ensure no stop char match
| DO UNTIL=NO Do for all chars
| TROT R14,R2 Convert to hex
| ENDDO , EndDo
It looks a lot better without the ORG/DC/ORG and nonsense comment about
OPTABLE(YOP) being an issue. Best of all, it works!!!
--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/
