/* Acvfl.c 1.1 86/07/20 */
#include "../tahoealign/align.h"
cvfl(infop
) process_info
*infop
;
/* Convert single precission accumulator into integer.
/******************************************************/
register long Register_12
; /* Has to be first reg ! */
acc_pnt
= (float *)&acc_high
;
Set_psl(r12
); /* restore the user psl */
result
= (long) *acc_pnt
;
write_back (infop
, result
, operand(infop
,0) );