Jay already pointed that out.  In a previously message I reported that WORK8
should have been changed to OBUFF.

I missed one occurrence (just one!).

You routine executes more instructions.  As to performance, I have not
tested either one, so I can not say.

I wonder how they will run on real IBM hardware.

John P Baker

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Art Celestini
Sent: Wednesday, December 12, 2007 8:52 PM
To: [email protected]
Subject: Re: Mainframe Assembler Coding Contest

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

   32  Instructions
   16  Literals
    1  Input Area
    8  Output Area

   57  Total Bytes
    7  Total Instructions

BTW, John, your second instruction below refers to WORK8, which
doesn't seem to be defined.

-- Art

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