At 11:39 -0300 on 10/27/2006, Shmuel Metz (Seymour J.) wrote about
Re: Assembler question:
2. You you can shorten that by offsetting the translate table, e.g.,
ST R0,IN
UNPK OUT(9),IN(5)
TR OUT(8),TRTAB-C'0'
TRTAB DC C'0123456789ABCDEF'
taking care to prevent TRTAB from being within the first 240
bytes of the csect.
Jumping into thread late -
Making the code
ST R0,IN
UNPK OUT(9),IN(5)
NC OUT(8),=8X'0F' <--- Alter Fx...Fx to 0x...0x
TR OUT(8),TRTAB
TRTAB DC C'0123456789ABCDEF'
fixes the offset issue for the TRTAB
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
