The TR translates a bit position in the range 0 to 7
to the appropriate bit mask, that is

0 is translated to B'10000000'
1 to B'01000000'
2 to B'00100000'
3 to B'00010000'

and so on

So the XI inverts the bit that is specified by those two parameters
on entry to the procedure:

ZAP BYTE,T@SAVE(7) QUOTIENT IS BYTE DISPLACEMENT. * 00000910 ZAP BIT,T@SAVE+7(1) REMAINDER IS BIT DISPLACEMENT. * 00000920

Kind regards

Bernd



Am 04.02.2014 18:22, schrieb Ron Thomas:
Ok Thanks .so what would be o/p of this statement "TR    BIT,TR@TAB " here ?

Thanks,
Ron T

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to