* Copyright (c) 1986 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
* @(#)Acvdl.c 7.1 (Berkeley) %G%
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) );