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