xref: /csrg-svn/sys/tahoe/align/Astf.c (revision 45699)
1 /*	Astf.c	1.2	90/12/04	*/
2 
3 #include "align.h"
4 stf(infop)	process_info *infop;
5 /*
6 /*	Store accumulator (float) in destination.
7 /*
8 /*************************************************/
9 {
10 
11 	write_back (infop, acc_high, operand(infop,0) );
12 	if (acc_high < 0) negative_1; else negative_0;
13 	if ( (acc_high & 0xff800000) == 0 ) zero_1; else zero_0;
14 	carry_1; overflow_0;
15 }
16