i2c8_write_byte.v

I2c 总线测试程序,经过多次验证的.包括读写模式(第一次上传)

    
    # 100;
    
    i8=0;
    repeat(8)
    begin
      if(wdat8[i8]==1'b1) wdat8_tmp[i8] = 1'bz; else wdat8_tmp[i8] = 1'b0;
      i8=i8+1;
    end
    
    # 100;
    
    i8=0;
    repeat(8)
    begin
      SDA8_M = wdat8_tmp[7-i8]; # 1000; SCL8_M = 1'bz; # 1000; SCL8_M = 1'b0; # 100;
      i8=i8+1;
    end
    
    SDA8_M = 1'bz; 
    # 1000; 
    SCL8_M = 1'bz; 
    ack8 = SDA8;
    # 100;
    if(ack8==1'b1)
    begin
      $display("######################################");
      $display("#            ack8 is high!           #");
      $display("######################################");
      $stop;
    end
    # 1000; 
    SCL8_M = 1'b0; 
    # 2000;