[clump.git] / addtest.pl

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

use asm;

sub flag_to_memory {
	my ($address, $flag) = @_;
	alu3 alu_zero, alu_select_f, 0, 0, $address, $flag, flag_zero;
}

storei 0, 5;
storei 1, 7;

add 0, 1, 0, 4;
flag_to_memory 1, 4;
Commit	Line	Data
46a95fd3 MG	1	#!/usr/bin/perl
	2	use v5.14;
	3	use warnings;
	4	use lib '.';
	5
	6	use asm;
	7
	8	sub flag_to_memory {
	9	my ($address, $flag) = @_;
	10	alu3 alu_zero, alu_select_f, 0, 0, $address, $flag, flag_zero;
	11	}
	12
	13	storei 0, 5;
	14	storei 1, 7;
	15
	16	add 0, 1, 0, 4;
	17	flag_to_memory 1, 4;