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 } 23