| 1 | /* Amull2.c 1.1 86/07/20 */ |
| 2 | |
| 3 | #include "../tahoealign/align.h" |
| 4 | int zzz1,zzz2,zzz3,zzz4,zzz5; |
| 5 | mull2(infop) process_info *infop; |
| 6 | /* |
| 7 | /* Multiply longwords, 2 operands. |
| 8 | /* |
| 9 | /*****************************************/ |
| 10 | { |
| 11 | register long Register_12; /* Has to be first reg ! */ |
| 12 | register long result, data0, data1; |
| 13 | |
| 14 | data0 = operand(infop,0)->data; |
| 15 | data1 = operand(infop,1)->data; |
| 16 | Register_12=psl; |
| 17 | Set_psl(r12); /* restore the user psl */ |
| 18 | result = data0 * data1; |
| 19 | asm("movpsl r12"); |
| 20 | New_cc (Register_12); |
| 21 | write_back (infop,result, operand(infop,1) ); |
| 22 | } |