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