1 /* Acvlf.c 1.1 86/07/20 */ 2 3 #include "../tahoealign/align.h" 4 cvlf(infop) process_info *infop; 5 /* 6 /* Convert integer to float (into accumulator). 7 /* 8 /******************************************************/ 9 { 10 register long Register_12; /* Has to be first reg ! */ 11 register long Register_11; 12 register float *Register_10; 13 /* 14 register long Register_9; 15 register long Register_8; 16 */ 17 register struct oprnd *oppnt; 18 19 Register_11 = operand(infop,0)->data; 20 Register_10 = (float *) &acc_high; 21 Register_12 = psl; 22 Set_psl (r12); 23 asm (" cvlf r11"); /* Don't change the order !! */ 24 asm (" movpsl r12"); 25 asm (" stf (r10)"); 26 New_cc ( Register_12 ); 27 } 28