|
|
1.1 root 1: /* Ashll.c 1.1 86/07/20 */
2:
3:
4: #include "../tahoealign/align.h"
5:
6: shll(infop) process_info *infop;
7: /*
8: /* Shift logical left (longword).
9: /* Checks for overflow.
10: /*
11: /*******************************/
12: {
13: register long Register_12; /* Has to be first reg ! */
14: register long Register_11;
15: register long Register_10;
16:
17: Register_12 = operand(infop,0)->data;
18: Register_11 = operand(infop,1)->data;
19: Register_10 = psl;
20: Set_psl(r10); /*save the orig CC bits of the psl */
21: asm(" shll r12,r11,r10");
22: asm(" movpsl r12");
23: New_cc (Register_12);
24: write_back (infop, Register_10, operand(infop,2));
25: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.