initial

                begin

                $dumpvars;
                $dumpfile("h7reso.dump");

                clk = 1;
                reset = 0;
                add = 0; subtract=0; andfunc=0; orfunc=0; bit_compare=0; carry_in=0; A=0; B=0;


                #10      reset = 1;

                #20     add=1; A=5; B=4; carry_in=1;
                #20	add=0; subtract=1; A=6; B=2; carry_in=1;
                #20	subtract=0; andfunc=1; A=89; B=62; carry_in=0;
                #20	andfunc=0; orfunc=1;
                #20	orfunc=0; bit_compare=1; A=12; B=23;
                #20	bit_compare=0; add=1; A=34; B=56; 
                #20	add=0; A=0; B=0;
                #40	$finish;
                
                end

always
 #5 clk = ~clk;