use new form of suser()
[unix-history] / usr / src / sys / tahoe / align / Astf.c
CommitLineData
23c17ea5
SL
1/* Astf.c 1.1 86/07/20 */
2
3#include "../tahoealign/align.h"
4stf(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}