|
|
1.1 root 1: /* Aand3.c 1.1 86/07/20 */
2:
3:
4:
5: #include "../tahoealign/align.h"
6: and3(infop) process_info *infop;
7: /*
8: /* And , 3 operands.
9: /*
10: /*****************************************/
11: {
12: register long Register_12; /* Has to be first reg ! */
13: register long data0, data1, result;
14:
15: data0 = operand(infop,0)->data;
16: data1 = operand(infop,1)->data;
17: Register_12=psl;
18: Set_psl(r12); /* restore the user psl */
19: result = data0 & data1;
20: asm (" movpsl r12");
21: New_cc (Register_12);
22: write_back (infop,result, operand(infop,2) );
23: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.