A modification of a previous submission:
LA R1,8
IC R2,BYTE
STC LA R15,RESULT-1(R1)
STC R2,0(,R15)
NI 0(R15),X'01'
OI 0(R15),X'F0'
SRL R2,1
BCT R1,STC
*
BYTE DC B'01110101' Sample input
RESULT DS CL8 Output
32 Instructions
0 Literals
1 Input Area
8 Output Area
41 Total Bytes
8 Total Instructions
----------------------------------------------------------------------
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
