MVC WORK_L,INPUT MVC WORK_R,INPUT NC WORK_L,=XLsamewhatever'F0' NC WORK_R,=XLsamewhatever'0F' OC WORK_R(samewhatever-1),WORK_L+1 WORK_R is the output field
INPUT DS CLwhatever WORK_L DS CLsamewhatever INPUT_R DS CLsamewhatever * assumes whatever is <257 * if INPUT field can be trashed, use it for WORK_R IBM Mainframe Assembler List <[email protected]> wrote on 03/28/2013 04:20:08 PM: > From: "[email protected]" <[email protected]> > To: [email protected], > Date: 03/28/2013 04:25 PM > Subject: Shifting The High Order Bits > Sent by: IBM Mainframe Assembler List <[email protected]> > > Hi, > > does anyone have a routine, or event know an instruction > that would shift the high order bits of "n" bytes > either 8 bits of 4 bits to the left as a unit: > for example > X 'D48199838840F2F96bF2F0F1F340' > > D89884FF6FFFF4 > 41938029B20130 > > then shift the high order bits to the left > 89884FF6FFFF40 > 41938029B20130 > > > Paul D'Angelo ----------------------------------------- The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you
