/* Ashrl.c 1.1 86/07/20 */
#include "../tahoealign/align.h"
shrl(infop
) process_info
*infop
;
/* Shift logical right (longword).
/*******************************/
register long Register_12
; /* Has to be first reg ! */
register long Register_11
;
register long Register_10
;
Register_12
= operand(infop
,0)->data
;
Register_11
= operand(infop
,1)->data
;
Set_psl(r10
); /* restore the user psl */
asm (" shrl r12,r11,r10");
write_back (infop
, Register_10
, operand(infop
,2));