xref: /csrg-svn/sys/tahoe/align/Acvtlb.c (revision 45699)
1*45699Sbostic /*	Acvtlb.c	1.2	90/12/04	*/
229602Ssam 
329602Ssam 
4*45699Sbostic #include "align.h"
529602Ssam cvtlb(infop) 	process_info *infop;
629602Ssam /*
729602Ssam /*	Convert long to byte, checks overflow
829602Ssam /*
929602Ssam /****************************************/
1029602Ssam {
1129602Ssam 	register long result;
1229602Ssam 
1329602Ssam 	result = operand(infop,0)->data;
1429602Ssam 	if (result < 0 )  negative_1 ; else negative_0;
1529602Ssam 	if (result == 0 )  zero_1 ; else zero_0;
1629602Ssam 	carry_1;
1729602Ssam 	if (result > 0x7f || result <= -0x80) overflow_1;
1829602Ssam 	else overflow_0;
1929602Ssam 	write_back (infop, result, operand(infop,1) );
2029602Ssam }
21