Subversion Repositories tms1000

// This file is part of TMS1000 CPU

// 

// tms1000_tb.v -  Testbench for the TMS1000 processor

//                 Simulates SR16 calculator

// Written By -  Nand Gates (2021)

//

// This program is free software; you can redistribute it and/or modify it

// under the terms of the GNU General Public License as published by the

// Free Software Foundation; either version 2, or (at your option) any

// later version.

//

// This program is distributed in the hope that it will be useful,

// but WITHOUT ANY WARRANTY; without even the implied warranty of

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

// GNU General Public License for more details.

//

// In other words, you are welcome to use, share and improve this program.

// You are forbidden to forbid anyone else to use, share and improve

// what you give them.   Help stamp out software-hoarding!

module tms1000_tb();

   /*AUTOREGINPUT*/

   // Beginning of automatic reg inputs (for undeclared instantiated-module inputs)

   reg        clk;                    // To tms1000 of tms1000.v

   tri0 [3:0] k;                      // To tms1000 of tms1000.v

   reg        reset_n;                // To tms1000 of tms1000.v

   // End of automatics

   /*AUTOWIRE*/

   // Beginning of automatic wires (for undeclared instantiated-module outputs)

   wire [7:0] q;                      // From tms1000 of tms1000.v

   wire [12:0] r;                      // From tms1000 of tms1000.v

   // End of automatics

   parameter  key_0 = 5'h00;

   parameter  key_1 = 5'h01;

   parameter  key_2 = 5'h02;

   parameter  key_3 = 5'h03;

   parameter  key_4 = 5'h04;

   parameter  key_5 = 5'h05;

   parameter  key_6 = 5'h06;

   parameter  key_7 = 5'h07;

   parameter  key_8 = 5'h08;

   parameter  key_9 = 5'h09;

   parameter  key_c   = 5'h0a;

   parameter  key_ce    = 5'h0b;

   parameter  key_eq    = 5'h0c;

   parameter  key_plus  = 5'h0d;

   parameter  key_minus = 5'h0e;

   parameter  key_mul   = 5'h0f;

   parameter  key_div   = 5'h10;

   parameter  key_sum   = 5'h11;

   parameter  key_1byx  = 5'h12;

   parameter  key_x2    = 5'h13;

   parameter  key_10x   = 5'h14;

   parameter  key_sqrt  = 5'h15;

   parameter  key_log   = 5'h16;

   parameter  key_lnx   = 5'h17;

   parameter  key_ex    = 5'h18;

   parameter  key_ee    = 5'h19;

   parameter  key_yx    = 5'h1a;

   parameter  key_rcl   = 5'h1b;

   parameter  key_sto   = 5'h1c;

   parameter  key_plmi  = 5'h1d;

   parameter  key_dp    = 5'h1e;

   reg key0     ;

   reg key1     ;

   reg key2     ;

   reg key3     ;

   reg key4     ;

   reg key5     ;

   reg key6     ;

   reg key7     ;

   reg key8     ;

   reg key9     ;

   reg keyclk   ;

   reg keyc     ;

   reg keyeq   ;

   reg keyplus  ;

   reg keyminus ;

   reg keymul   ;

   reg keydiv   ;

   reg keysum   ;

   reg key1byx  ;

   reg keyx2    ;

   reg key10x   ;

   reg keysqrt  ;

   reg keylog   ;

   reg keylnx   ;

   reg keyex    ;

   reg keyee    ;

   reg keyce    ;

   reg keyyx    ;

   reg keyrcl   ;

   reg keysto   ;

   reg keyplmi  ;

   reg keydp  ;

   reg clk_60;

   integer     count;

   reg [7:0]d0, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12;

   tms1000 tms1000(/*AUTOINST*/

                   // Outputs

                   .r           (r[12:0]),

                   .q           (q[7:0]),

                   // Inputs

                   .clk         (clk),

                   .reset_n     (reset_n),

                   .k           (k[3:0]));

   bufif1 buf0 (k[3], key0    , r[0]);

   bufif1 buf1 (k[3], key1    , r[1]);

   bufif1 buf2 (k[3], key2    , r[2]);

   bufif1 buf3 (k[3], key3    , r[3]);

   bufif1 buf4 (k[3], key4    , r[4]);

   bufif1 buf5 (k[3], key5    , r[5]);

   bufif1 buf6 (k[3], key6    , r[6]);

   bufif1 buf7 (k[3], key7    , r[7]);

   bufif1 buf8 (k[3], key8    , r[8]);

   bufif1 buf9 (k[3], key9    , r[9]);

   bufif1 buf10(k[2], keyrcl  , r[0]);

   bufif1 buf11(k[2], keyce   , r[1]);

   bufif1 buf12(k[2], keyplmi , r[2]);

   bufif1 buf13(k[2], keydp   , r[3]);

   bufif1 buf14(k[2], keyee   , r[4]);

   bufif1 buf15(k[2], keysto  , r[5]);

   bufif1 buf16(k[2], keyyx   , r[6]);

   bufif1 buf17(k[2], keyex   , r[8]);

   bufif1 buf18(k[2], keylnx  , r[10]);

   bufif1 buf19(k[1], keyminus, r[0]);

   bufif1 buf20(k[1], keyplus , r[1]);

   bufif1 buf21(k[1], keymul  , r[2]);

   bufif1 buf22(k[1], keydiv  , r[3]);

   bufif1 buf23(k[1], keyeq   , r[4]);

   bufif1 buf24(k[1], keysum  , r[5]);

   bufif1 buf25(k[1], key1byx , r[6]);

   bufif1 buf26(k[1], keyx2   , r[7]);

   bufif1 buf27(k[1], key10x  , r[8]);

   bufif1 buf28(k[1], keysqrt , r[9]);

   bufif1 buf29(k[1], keylog  , r[10]);

   bufif1 buf30(k[0], keyc ,r[10]);

   task do_key;

      input [4:0] key;

      begin

         case (key)

           key_0     : begin key0    = 1'b1 ; #25000; key0    = 1'b0; end

           key_1     : begin key1    = 1'b1 ; #25000; key1    = 1'b0; end

           key_2     : begin key2    = 1'b1 ; #25000; key2    = 1'b0; end

           key_3     : begin key3    = 1'b1 ; #25000; key3    = 1'b0; end

           key_4     : begin key4    = 1'b1 ; #25000; key4    = 1'b0; end

           key_5     : begin key5    = 1'b1 ; #25000; key5    = 1'b0; end

           key_6     : begin key6    = 1'b1 ; #25000; key6    = 1'b0; end

           key_7     : begin key7    = 1'b1 ; #25000; key7    = 1'b0; end

           key_8     : begin key8    = 1'b1 ; #25000; key8    = 1'b0; end

           key_9     : begin key9    = 1'b1 ; #25000; key9    = 1'b0; end

           key_c     : begin keyc    = 1'b1 ; #25000; keyc    = 1'b0; end

           key_ce    : begin keyce   = 1'b1 ; #25000; keyce   = 1'b0; end

           key_eq    : begin keyeq   = 1'b1 ; #25000; keyeq   = 1'b0; end

           key_plus  : begin keyplus = 1'b1 ; #25000; keyplus = 1'b0; end

           key_minus : begin keyminus= 1'b1 ; #25000; keyminus= 1'b0; end

           key_mul   : begin keymul  = 1'b1 ; #25000; keymul  = 1'b0; end

           key_div   : begin keydiv  = 1'b1 ; #25000; keydiv  = 1'b0; end

           key_rcl  : begin keyrcl  = 1'b1 ; #25000;  keyrcl   = 1'b0; end

           key_plmi : begin keyplmi = 1'b1 ; #25000;  keyplmi  = 1'b0; end

           key_dp   : begin keydp   = 1'b1 ; #25000;  keydp    = 1'b0; end

           key_ee   : begin keyee   = 1'b1 ; #25000;  keyee    = 1'b0; end

           key_sto  : begin keysto  = 1'b1 ; #25000;  keysto   = 1'b0; end

           key_yx   : begin keyyx   = 1'b1 ; #25000;  keyyx    = 1'b0; end

           key_ex   : begin keyex   = 1'b1 ; #25000;  keyex    = 1'b0; end

           key_lnx  : begin keylnx  = 1'b1 ; #25000;  keylnx   = 1'b0; end

           key_sum  : begin keysum  = 1'b1 ; #25000;  keysum   = 1'b0; end

           key_1byx : begin key1byx = 1'b1 ; #25000;  key1byx  = 1'b0; end

           key_x2   : begin keyx2   = 1'b1 ; #25000;  keyx2    = 1'b0; end

           key_10x  : begin key10x  = 1'b1 ; #25000;  key10x   = 1'b0; end

           key_sqrt : begin keysqrt = 1'b1 ; #25000;  keysqrt  = 1'b0; end

           key_log  : begin keylog  = 1'b1 ; #25000;  keylog   = 1'b0; end

         endcase // case(key)

      end

   endtask // do_key

   initial begin

      clk = 0;

      key0     = 0;

      key1     = 0;

      key2     = 0;

      key3     = 0;

      key4     = 0;

      key5     = 0;

      key6     = 0;

      key7     = 0;

      key8     = 0;

      key9     = 0;

      keyc     = 0;

      keyce    = 0;

      keyeq    = 0;

      keyplus  = 0;

      keyminus = 0;

      keymul   = 0;

      keydiv   = 0;

      keyrcl   = 1'b0;

      keyplmi  = 1'b0;

      keyee    = 1'b0;

      keysto   = 1'b0;

      keyyx    = 1'b0;

      keyex    = 1'b0;

      keylnx   = 1'b0;

      keysum   = 1'b0;

      key1byx  = 1'b0;

      keyx2    = 1'b0;

      key10x   = 1'b0;

      keysqrt  = 1'b0;

      keylog   = 1'b0;

      keydp    = 1'b0;

      clk_60 = 0;

      count = 0;

      d0 = 0;

      d1 = 0;

      d2 = 0;

      d3 = 0;

      d4 = 0;

      d5 = 0;

      d6 = 0;

      d7 = 0;

      d8 = 0;

      d9 = 0;

      d10 = 0;

      d11 = 0;

      d12 = 0;

      reset_n = 0;

      #33 reset_n = 1;

/* -----\/----- EXCLUDED -----\/-----

      #88000;

      do_key(key_3);

      #28000;

      do_key(key_minus);

      #28000;

      do_key(key_1);

      #28000;

      do_key(key_eq);

      #28000;

      $display("Xreg_0 = %h",tms1000_tb.tms1000.ram.Xreg_0[63:0]);

      $display("Xreg_1 = %h",tms1000_tb.tms1000.ram.Xreg_1[63:0]);

      $display("Xreg_2 = %h",tms1000_tb.tms1000.ram.Xreg_2[63:0]);

      $display("Xreg_3 = %h",tms1000_tb.tms1000.ram.Xreg_3[63:0]);

      $finish;

 -----/\----- EXCLUDED -----/\----- */

/* -----\/----- EXCLUDED -----\/-----

       do_key(key_1);

       #28000;

       do_key(key_2);

       #28000;

       do_key(key_3);

       #28000;

       do_key(key_4);

       #28000;

       do_key(key_5);

       #28000;

       do_key(key_6);

       #28000;

       do_key(key_7);

       #28000;

       do_key(key_8);

       #28000;

       do_key(key_9);

 -----/\----- EXCLUDED -----/\----- */

/* -----\/----- EXCLUDED -----\/-----

         do_key(key_4);

         #28000;

         do_key(key_ent);

         #28000;

         do_key(key_2);

         #28000;

         do_key(key_minus/-*key_plus key_mul*-/);

        #80000;

        $display("Xreg_0 = %h",tms1000_tb.tms1000.ram.Xreg_0[63:0]);

        $display("Xreg_1 = %h",tms1000_tb.tms1000.ram.Xreg_1[63:0]);

        $display("Xreg_2 = %h",tms1000_tb.tms1000.ram.Xreg_2[63:0]);

        $display("Xreg_3 = %h",tms1000_tb.tms1000.ram.Xreg_3[63:0]);

        $finish;

 -----/\----- EXCLUDED -----/\----- */

   end // initial begin

   always @(r) begin

      case (1'b1)

        r[0] : d0 = q;

        r[1] : d1 = q;

        r[2] : d2 = q;

        r[3] : d3 = q;

        r[4] : d4 = q;

        r[5] : d5 = q;

        r[6] : d6 = q;

        r[7] : d7 = q;

        r[8] : d8 = q;

        r[9] : d9 = q;

        r[10] : d10 = q;

        r[11] : d11 = q;

        r[12] : d12 = q;

      endcase

   end

   always #5 clk = ~clk;

   always @(posedge clk)

     if (count == 1000) begin

        clk_60 <= ~clk_60;

        count <= 0;

     end else

        count <= count + 1;

endmodule // tms1000_tb