[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

gEDA: Verilog: ternary test code

To: geda-dev-at-NOSPAMgeda_dot_seul_dot_org
Subject: gEDA: Verilog: ternary test code
From: Peter Monta <pmonta-at-NOSPAMhalibut_dot_imedia_dot_com>
Date: Thu, 9 Sep 1999 04:18:34 -0700
Reply-To: geda-dev-at-NOSPAMseul_dot_org
Sender: owner-geda-dev-at-NOSPAMseul_dot_org

Might as well post this---maybe it will save some typing.
Possibly there is a cleverer for-loop-based version, sigh.

module main;
  wire out;
  reg cond,a,b;
  assign out = cond ? a : b;
  initial begin
    cond = 1'b0; a = 1'b0; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'b0; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'b0; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'b0; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'b1; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'b1; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'b1; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'b1; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bx; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bx; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bx; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bx; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bz; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bz; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bz; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b0; a = 1'bz; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b0; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b0; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b0; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b0; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b1; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b1; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b1; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'b1; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bx; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bx; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bx; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bx; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bz; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bz; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bz; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'b1; a = 1'bz; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b0; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b0; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b0; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b0; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b1; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b1; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b1; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'b1; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bx; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bx; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bx; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bx; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bz; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bz; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bz; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bx; a = 1'bz; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b0; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b0; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b0; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b0; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b1; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b1; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b1; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'b1; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bx; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bx; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bx; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bx; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bz; b = 1'b0;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bz; b = 1'b1;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bz; b = 1'bx;  #1; $display("%b %b %b %b",out,cond,a,b);
    cond = 1'bz; a = 1'bz; b = 1'bz;  #1; $display("%b %b %b %b",out,cond,a,b);
  end
endmodule

Follow-Ups:
- Re: gEDA: Verilog: ternary test code
  - From: Steve Wilson

Prev by Date: gEDA: Verilog: ternary patch
Next by Date: Re: gEDA: Verilog: ternary test code
Prev by thread: Re: gEDA: Verilog: ternary patch
Next by thread: Re: gEDA: Verilog: ternary test code
Index(es):
- Date
- Thread