tb.v

module Image_parser;
reg[7:0] threshold,value;
reg[1:0] select;
reg clk;
reg[7:0] inp[97791:0];
reg[7:0] out[97791:0];
reg[7:0] in_byte;
wire[7:0] out_byte;

Main M1(clk,select,value,threshold,in_byte,out_byte);

initial 
begin
    clk = 1'b1;
    forever
        #5 clk = ~clk;
end

initial
begin
    value   <= 8'b00111100;
    threshold <= 8'b10100000;
    select <= 2'b10; 
    $readmemb("C:\\Users\\tibre\\OneDrive\\Desktop\\XRAY Processing\\img.txt",inp);
end

integer i;

initial
begin
#5 in_byte <= inp[0];
#7out[0] = out_byte; 
$display("input : %b  output : %b ",inp[0],out[0]);
for (i=1;i<97792;i=i+1)
    begin
    #5 in_byte <= inp[i];
    #5 out[i] = out_byte; 
    $display("input : %b  output : %b ",inp[i],out[i]);
    end
    #8 select = select + 2'b01;
    $writememb("C:\\Users\\tibre\\OneDrive\\Desktop\\XRAY Processing\\out1.txt",out);
    
#10 $finish;
    
end
endmodule