In
<[EMAIL PROTECTED]>,
on 10/24/2006
at 03:46 PM, "Alan C. Field" <[EMAIL PROTECTED]> said:
>If what you want printed is X'0FFF' you need code similar to the
>following:
>
> ST R0,IN
> UNPK OUT(9),IN(5)
> MVZ OUT(8),OUT-1
> TR OUT(8),=C'0123456789ABCDEF'
Two notes:
1. You must ensure that there are pad bytes after IN and OUT. The
easy way is to place them before some other DS.
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.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)
----------------------------------------------------------------------
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
