module Tcasex;
//input[4:0] ADDRESS;
//output A;
//output B;
//wire [4:0] ADDRESS;
reg [4:0] ADDRESS;
reg A;
reg B;
//assign A=0;
//assign B=0;
initial
begin
A = 0;
B = 0;
ADDRESS = 5'b0xxxx;
end
//assign ADDRESS = 5'b0xxxx;
always @(ADDRESS)
casex(ADDRESS)
5'b01xxx:B=1;
5'b00xxx:A=1;
//5'b01xxx:B=1;
5'b10x00,5'b11x00:
begin
A=1;
B=1;
end
endcase
always@ (A or B)
$monitor ("At time %t, A = %b, B = %b", $time, A, B) ;
endmodule
|