addtest.pl

   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;