[clump.git] / test.pl

#!/usr/bin/perl
use v5.14;
use warnings;
use lib '.';

use asm;

loadi 0, 5;
store 0, 0, 0, 0;
loadi 0, 7;
store 1, 0, 0, 0;

loada 0, 1, 0, alu_select_b;
loadb 1, 0, 1, alu_xor;
store 2, 3, 0, 0;

write_verilog;
Commit	Line	Data
acf21e18 MG	1	#!/usr/bin/perl
	2	use v5.14;
	3	use warnings;
	4	use lib '.';
	5
	6	use asm;
	7
	8	loadi 0, 5;
	9	store 0, 0, 0, 0;
	10	loadi 0, 7;
	11	store 1, 0, 0, 0;
	12
	13	loada 0, 1, 0, alu_select_b;
	14	loadb 1, 0, 1, alu_xor;
	15	store 2, 3, 0, 0;
	16
	17	write_verilog;