> -----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
BCT R2,L1
O R1,WORD2
ST R1,WORD2
LA R2,4
L2 SRDL R0,1
SRL R0,7
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
