Subversion Repositories t6507lp

alu_chk.e
<'
import alu_components;
 
unit alu_chk_u {
	reg_a : byte;
	reg_x : byte;
	reg_y : byte;
	reg_status : byte;
 
	count_cycles : int;
	first_cycle : bool;
 
	keep first_cycle == TRUE;
	keep count_cycles == 0;
 
	store(input : alu_input_s) is {
		out ("input stored: ", input);
	};
 
	compare(alu_result:byte, alu_status:byte, alu_x:byte, alu_y:byte ) is {
		if (first_cycle) {
			first_cycle = FALSE;
			reg_x = alu_x;
			reg_y = alu_y;
			reg_status = alu_status;
			reg_a = ???? // TODO
		}
	};
};
'>