> -----Original Message-----
> From: IBM Mainframe Discussion List On Behalf Of Art Celestini
> 
> Well, just for the sport of it, I think this requires even 
> less (not tested):
> 
>          LHI   R1,8
>          IC    R2,BYTE
> STC      STC   R2,RESULT-1(R1)
>          SRL   R2,1
>          BCT   R1,STC
>          NC    RESULT,=8X'01'
>          OC    RESULT,=8X'F0'
> *
> BYTE     DC    B'01110101'        Sample input
> RESULT   DS    CL8                Output

This is the simplest solution I've seen so far.  One question:  Why LHI
instead of LA to initialize the count register?

    -jc-

----------------------------------------------------------------------
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

Reply via email to