On Tue, 4 Feb 2014 11:22:32 -0600, Ron Thomas <ron5...@gmail.com> wrote:
>Ok Thanks .so what would be o/p of this statement "TR BIT,TR@TAB " here ? > When I look at that code, I am left thinking "there has to be an easier way". I would have done a single CVB immediately after the PACK, and then split it up into the byte and bit displacements. However to answer your specific question: The remainder, after dividing by 8, and which has been placed in BIT, is a number in the range 0 to 7. The TR converts 0 to X'80', 1 to X'40', 2 to X'20' etc, for use as the "mask" in the TM. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN