`timescale 100ps / 10ps

// stimulus file for a digital window comparator

module window_stim;
   reg [3:0] Top_Limit, Value, Bottom_Limit;
   wire Too_High, OK, Too_Low;

   window Window (Too_High, OK, Too_Low, Top_Limit, Value, Bottom_Limit);

   initial
      begin
            Top_Limit = 11;
            Bottom_Limit = 4;
            Value = 0;
         #1700
            $stop;
            $finish;
      end

   always
      begin
         #100
            Value = Value + 1;
      end

   initial
      begin
         $gr_waves( "Top_Limit %d", Top_Limit,
                 "Value %d", Value,
                 "Bottom_Limit %d", Bottom_Limit,
                 "Too_High", Too_High,
                 "OK", OK,
                 "Too_Low", Too_Low);
      end

   //VSIM COMMAND: add wave -label "Top_Limit" -unsigned Top_Limit
   //VSIM COMMAND: add wave -label "Value" -unsigned Value
   //VSIM COMMAND: add wave -label "Bottom_Limit" -unsigned Bottom_Limit
   //VSIM COMMAND: add wave -label "Too_High" Too_High
   //VSIM COMMAND: add wave -label "OK" OK
   //VSIM COMMAND: add wave -label "Too_Low" Too_Low
   //VSIM COMMAND: run -all

endmodule