1*45699Sbostic /* Acvfl.c 1.2 90/12/04 */ 229599Ssam 3*45699Sbostic #include "align.h" 429599Ssam cvfl(infop) process_info *infop; 529599Ssam /* 629599Ssam /* Convert single precission accumulator into integer. 729599Ssam /* 829599Ssam /******************************************************/ 929599Ssam { 1029599Ssam register long Register_12; /* Has to be first reg ! */ 1129599Ssam register float *acc_pnt; 1229599Ssam register long result; 1329599Ssam 1429599Ssam acc_pnt = (float *)&acc_high; 1529599Ssam Register_12=psl; 1629599Ssam Set_psl(r12); /* restore the user psl */ 1729599Ssam result = (long) *acc_pnt; 1829599Ssam asm (" movpsl r12"); 1929599Ssam New_cc (Register_12); 2029599Ssam write_back (infop, result, operand(infop,0) ); 2129599Ssam } 22