John:
This may be a little more code and a nanosec or more slower than John P's but
in the same vein as yours :
LA R1,OP1+7 LA R2,8
SR R14,R14 ICM
R14,15,BYTES NXT SRDL R14,4
SRL R15,28 STC R15,0(,R1)
BCTR R1,R0 BCT R2,NXT
TR OP2(8),=C'0123456789ABCDEF' b
whereverBYTES DC X'FF2B1C3F' OP1 DS CL8' '
Bill > Date: Wed, 12 Dec 2007 15:09:47 -0600> From: [EMAIL
PROTECTED]> Subject: Re: Mainframe Assembler Coding Contest> To:
[email protected]> > > -----Original Message-----> > From: Chase, John > > >
> > -----Original Message-----> > > From: IBM Mainframe Discussion List On
Behalf Of Arthur T.> > > > > > I don't have a working assembler or emulator at
the > > moment, so I > > > can't test this. Also, I'm not joining a Yahoo group
just for this > > > contest. But I think this is a solution to #6: "Given a > >
byte, create > > > 8 EBCDIC zero and one characters displaying the individual >
> bits in the > > > byte". ...> > > > Here's another:> > > > BINPRINT CSECT ,>
> YREGS > > LB R0,BYTE> > LA R2,4> > L1 SRDL R0,1> > SRL R0,7> > Correction:> >
SRL R1,7 **NOT** R0> > > BCT R2,L1> > O R1,WORD2> > ST R1,WORD2> > LA R2,4> >
L2 SRDL R0,1> > SRL R0,7> > Correction:> > SRL R1,7 **NOT** R0> > BCT R2,L2> >
O R1,WORD1> > ST R1,WORD1> > WORD DS 0D> > WORD1 DC C'0000'> > WORD2 DC
C'0000'> > END BINPRINT> > > > -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
----------------------------------------------------------------------
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
