1*29599Ssam /* Acvfl.c 1.1 86/07/20 */ 2*29599Ssam 3*29599Ssam #include "../tahoealign/align.h" 4*29599Ssam cvfl(infop) process_info *infop; 5*29599Ssam /* 6*29599Ssam /* Convert single precission accumulator into integer. 7*29599Ssam /* 8*29599Ssam /******************************************************/ 9*29599Ssam { 10*29599Ssam register long Register_12; /* Has to be first reg ! */ 11*29599Ssam register float *acc_pnt; 12*29599Ssam register long result; 13*29599Ssam 14*29599Ssam acc_pnt = (float *)&acc_high; 15*29599Ssam Register_12=psl; 16*29599Ssam Set_psl(r12); /* restore the user psl */ 17*29599Ssam result = (long) *acc_pnt; 18*29599Ssam asm (" movpsl r12"); 19*29599Ssam New_cc (Register_12); 20*29599Ssam write_back (infop, result, operand(infop,0) ); 21*29599Ssam } 22