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