Brute force could do it. SLR R1,R1 SLR R0,R0 LA R2,FIELD LHI R3,L'FIELD-1 LOOP DS 0H IC R0,0(,R2) GET HIGH BYTE IC R1,1(,R2) GET LOW BYTE NILL R0,0X0F MASK OFF HIGH NYBBLE NILL R1,0XF0 MASK OFF LOW NYBBLE OR R0,R1 COMBINE NYBBLES STC R0,0(,R2) STORE BYTE LA R2,1(,R2) NEXT CHAR BCT R3,LOOP LOOP IC R0,0(,R2) PICK UP LAST BYTE NILL R0,0X0F MASK OFF HIGH NYBBLE STC R0,0(,R2)
On Thu, Mar 28, 2013 at 3:20 PM, [email protected] <[email protected]> wrote: > 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 > -- This is a test of the Emergency Broadcast System. If this had been an actual emergency, do you really think we'd stick around to tell you? Maranatha! <>< John McKown
