|
|
1.1 root 1: /* Acvld.c 1.1 86/07/20 */
2:
3: #include "../tahoealign/align.h"
4: cvld(infop) process_info *infop;
5: /*
6: /* Convert integer to double (into accumulator).
7: /*
8: /******************************************************/
9: {
10: register long Register_12; /* Has to be first reg ! */
11: register double *Register_11;
12: register long Register_10;
13:
14: Register_11 = (double *) &acc_high;
15: Register_10 = operand(infop,0)->data;
16: Register_12=psl;
17: Set_psl(r12); /* restore the user psl */
18: asm (" cvld r10"); /* Don't change the order !! */
19: asm (" movpsl r12");
20: asm (" std (r11)");
21: New_cc (Register_12);
22: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.