OpenCores
URL https://opencores.org/ocsvn/uart2spi/uart2spi/trunk

Subversion Repositories uart2spi

[/] [uart2spi/] [trunk/] [verif/] [tb/] [uart_test.v] - Blame information for rev 3

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 3 dinesha
task uart_test;
2
 
3
reg [1:0] data_bit        ;
4
reg       stop_bits       ; // 0: 1 stop bit; 1: 2 stop bit;
5
reg       parity_en       ; // parity enable
6
reg       even_odd_parity ; // 0: odd parity; 1: even parity
7
 
8
reg [15:0] timeout       ;// wait time limit
9
 
10
reg [15:0] rx_nu;
11
reg [15:0] tx_nu;
12
reg [7:0] read_data;
13
reg [31:0] read_word;
14
reg [7:0] write_data;
15
reg       flag;
16
reg     fifo_enable      ;      // fifo mode disable
17
integer i,j;
18
begin
19
tb_uart.uart_init;
20
 
21
data_bit         = 2'b11;
22
stop_bits         = 1'b1;
23
parity_en         = 1'b0;
24
even_odd_parity   = 1'b1;
25
timeout           = 500;
26
fifo_enable       = 0;
27
 
28
  tb_top.tb_uart.control_setup (data_bit, stop_bits, parity_en, even_odd_parity, timeout, fifo_enable);
29
 
30
 
31
 
32
   $write ("\n(%t)Received Character:\n",$time);
33
   flag = 0;
34
   while(flag == 0)
35
   begin
36
        tb_top.tb_uart.read_char(read_data,flag);
37
        //$write ("%c",read_data);
38
   end
39
 
40
 
41
   tb_top.reg_write(16'h0000,32'h11223344);
42
   tb_top.reg_write(16'h0004,32'h55667788);
43
 
44
 
45
   tb_top.reg_read(16'h0000,read_word);
46
   tb_top.reg_read(16'h0004,read_word);
47
 
48
   #100
49
   tb_top.tb_uart.report_status(rx_nu, tx_nu);
50
 
51
end
52
endtask
53
 
54
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.