Re: Mainframe Assembler Coding Contest

[J R]

Untested:  
 
DISPBITS SUBENTRY , 
         IC    R0,INPUT            GET BYTE TO DISPLAY IN R0 
         LA    R2,8                NUMBER OF BITS 
LOOP     DS    0H 
         SRDL  R0,1                SHIFT NEXT BIT INTO R1 
         SRL   R1,7+24             SHIFT TO THE BOTTOM 
         STC   R1,OUTPUT-1(R2)     STORE IT IN CORRECT SPOT 
         BCT   R2,LOOP             GO BACK FOR MORE 
         OC    OUTPUT,=C'00000000' SET THE CORRECT ZONES 
         SUBEXIT , 
INPUT    DC    B'11111111' 
OUTPUT   DC    CL8' ' 
         END 
 
_________________________________________________________________
i’m is proud to present Cause Effect, a series about real people making a 
difference.
http://im.live.com/Messenger/IM/MTV/?source=text_Cause_Effect
----------------------------------------------------------------------
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