/*
HEADER: 	;
TITLE: 		Frankenstein Cross Assemblers;
VERSION: 	2.0;
DESCRIPTION: "	Reconfigurable Cross-assembler producing Intel (TM)
		Hex format object records.  ";
FILENAME: 	fraebin.h;
SEE-ALSO: 	frapsub.c, fraosub.c;
AUTHORS: 	Mark Zenier;
*/

/*
	description	switch case actions for binary operators for
			both the parse and output phase expression
			evaluators
*/


		case IFC_MUL:
			etop *= (estkm1p--)->v;
			break;

		case IFC_DIV:
			etop = (estkm1p--)->v/etop;
			break;

		case IFC_ADD:
			etop += (estkm1p--)->v;
			break;

		case IFC_SUB:
			etop = (estkm1p--)->v - etop;
			break;

		case IFC_MOD:
			etop = (estkm1p--)->v % etop;
			break;

		case IFC_SHL:
			etop = (estkm1p--)->v << etop;
			break;

		case IFC_SHR:
			etop = (estkm1p--)->v >> etop;
			break;

		case IFC_AND:
			etop &= (estkm1p--)->v;
			break;

		case IFC_OR:
			etop |= (estkm1p--)->v;
			break;

		case IFC_XOR:
			etop ^= (estkm1p--)->v;
			break;

		case IFC_GT:
			etop = (estkm1p--)->v > etop ? 1 : 0;
			break;

		case IFC_GE:
			etop = (estkm1p--)->v >= etop ? 1 : 0;
			break;

		case IFC_LT:
			etop = (estkm1p--)->v < etop ? 1 : 0;
			break;

		case IFC_LE:
			etop = (estkm1p--)->v <= etop ? 1 : 0;
			break;

		case IFC_NE:
			etop = (estkm1p--)->v != etop ? 1 : 0;
			break;

		case IFC_EQ:
			etop = (estkm1p--)->v == etop ? 1 : 0;
			break;