//2024-1-19 姜青羊
//8位补码转换默写

`timescale 1ns/10ps
module comp_conv (
                            A,
                            A_comp
                        );

input[7:0]                  A;
output[7:0]                 A_comp;

wire[6:0]                   b;
wire[6:0]                   c;
wire[7:0]                   D;

assign                      b=~A[6:0]
assign                      c=b+1;
assign                      D={A[7],c};

assign                      A_comp=A[7]?D:A;
    
endmodule


//----------testbench------------

module tb_comp_conv ();

reg[7:0]                    aa;
wire[7:0]                   cc;

initial begin
                           aa=8'b0000_0000;
                #3000      $stop;
end

always          #10        aa=aa+1;       

comp_conv u_comp_conv (
                            .A(aa),
                            .A_comp(cc)
                        );

endmodule