xref: /csrg-svn/sys/tahoe/align/Astd.c (revision 45760) 
1*45760Sbostic /*-
2*45760Sbostic  * Copyright (c) 1986 The Regents of the University of California.
3*45760Sbostic  * All rights reserved.
4*45760Sbostic  *
5*45760Sbostic  * This code is derived from software contributed to Berkeley by
6*45760Sbostic  * Computer Consoles Inc.
7*45760Sbostic  *
8*45760Sbostic  * %sccs.include.redist.c%
9*45760Sbostic  *
10*45760Sbostic  *	@(#)Astd.c	7.1 (Berkeley) 12/06/90
11*45760Sbostic  */
1229635Ssam 
1345699Sbostic #include "align.h"
std(infop)1429635Ssam std(infop)	process_info *infop;
1529635Ssam /*
1629635Ssam /*	Store accumulator (double) in destination.
1729635Ssam /*
1829635Ssam /*************************************************/
1929635Ssam {
2029635Ssam 	quadword ac;
2129635Ssam 
2229635Ssam 	ac.high = acc_high;
2329635Ssam 	ac.low = acc_low;
2429635Ssam 	write_quadword (infop, ac, operand(infop,0) );
2529635Ssam 	if (ac.high < 0) negative_1; else negative_0;
2629635Ssam 	if ( (ac.high & 0xff800000) == 0 ) zero_1; else zero_0;
2729635Ssam 	carry_1;
2829635Ssam 	overflow_0;
2929635Ssam }
30