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