1*29632Ssam /* Ashar.c 1.1 86/07/20 */ 2*29632Ssam 3*29632Ssam 4*29632Ssam #include "../tahoealign/align.h" 5*29632Ssam shar(infop) process_info *infop; 6*29632Ssam /* 7*29632Ssam /* Shift arithmetic right (longword). 8*29632Ssam /* 9*29632Ssam /*******************************/ 10*29632Ssam { 11*29632Ssam register long Register_12; /* Has to be first reg ! */ 12*29632Ssam register long Register_11; 13*29632Ssam register long Register_10; 14*29632Ssam 15*29632Ssam Register_12 = operand(infop,0)->data; 16*29632Ssam Register_11 = operand(infop,1)->data; 17*29632Ssam Register_10=psl; 18*29632Ssam Set_psl(r10); /* restore the user psl */ 19*29632Ssam asm (" shar r12,r11,r10"); 20*29632Ssam asm (" movpsl r12"); 21*29632Ssam New_cc (Register_12); 22*29632Ssam write_back (infop, Register_10, operand(infop,2)); 23*29632Ssam } 24