Subversion Repositories vtach

`timescale 1us/1ns

module vtach_tb();

   reg clk;

   reg reset;

   top dut(clk,reset);

    always #1 clk=~clk;

initial

  begin

   $dumpfile("vtach_tb.vcd");

   $dumpvars;

   clk=1'b0;

   reset=1'b1;

/*

   dut.mem.row0[0]=13'h120;  // load location 1 into acc (acc=500)

   dut.mem.row0[1]=13'h500;  // output location 0 (print 101)

   dut.mem.row0[2]=13'h033;  // Input to location 33 (X)

   dut.mem.row0[3]=13'h533;  // output location 33

   dut.mem.row0[4]=13'h200;  // add acc + location 0 (500+101=601)

   dut.mem.row0[5]=13'h733;  // sub acc - location 33 (601-X)

   dut.mem.row0[6]=13'h610;  // store acc to location 10

   dut.mem.row0[7]=13'h510;  // output location 10

   dut.mem.row0[8]=13'h820;  // goto location 20

  dut.mem.row2[0]=13'h599;   // output return address from jump (should be 9)

  dut.mem.row2[1]=13'h900;  // halt!

*/

     dut.mem.row0[0]=13'h120;  // load location 20 (10)

     dut.mem.row0[1]=13'h622;  // Store to location 22

     dut.mem.row0[2]=13'h522;  // output location 22

     dut.mem.row0[3]=13'h721;  // subtract [21] (1)

     dut.mem.row0[4]=13'h310;  // if negative goto 10

     dut.mem.row0[5]=13'h801;  // goto 1

     dut.mem.row1[0]=13'h900;  // halt

     dut.mem.row2[0]=13'h010;  // constant 10

     dut.mem.row2[1]=13'h001;  // constant 1

     dut.mem.row2[2]=13'h000;  // workspace

//   dut.mem.row0[6]=13'h800;

// Only use this line with io_input.v

// not with io_input_keyboard.v

//   dut.execunit.in.inputvalues[0]=13'h222;

   #5 reset=1'b0;

  end

  endmodule