/* Acvdl.c 1.2 90/12/04 */
cvdl(infop
) process_info
*infop
;
/* Convert double precission accumulator into integer.
/******************************************************/
register long Register_12
; /* Has to be first reg ! */
register double *acc_pnt
;
acc_pnt
= (double *)&acc_high
;
Set_psl(r12
); /* restore the user psl */
result
= (long) *acc_pnt
;
write_back (infop
, result
, operand(infop
,0) );