/* Ashlq.c 1.1 86/07/20 */
#include "../tahoealign/align.h"
shlq(infop
) process_info
*infop
;
/********************************/
register long Register_12
; /* Has to be first reg ! */
register long Register_11
;
register long Register_10
;
register long *Register_9
;
Register_12
= operand(infop
,0)->data
; /* Counter */
Register_9
= &operand(infop
,1)->data
; /* Source */
Set_psl(r10
); /* restore the user psl */
asm (" shlq r12,(r9),r10");
result
.high
= Register_10
;
result
.low
= Register_11
;
write_quadword (infop
, result
, operand(infop
,2));