-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathtb_spi_slave_lbus.v
123 lines (113 loc) · 2.67 KB
/
tb_spi_slave_lbus.v
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
module tb_spi_slave_lbus ();
parameter EXT_CLK_PERIOD_NS = 83;
parameter SCLK_PERIOD_NS = 10000;
reg clk;
reg reset;
reg sclk;
reg ss_n;
reg mosi;
wire miso;
initial begin
clk = 1'b0;
forever
#(EXT_CLK_PERIOD_NS/2) clk = ~clk;
end
task send_byte (input [7:0] byte_val);
begin
$display("Called send_byte task: given byte_val is %h",byte_val);
sclk = 1'b0;
for (int i=7; i >= 0; i=i-1) begin
$display("Inside send_byte for loop, index is %d",i);
mosi = byte_val[i];
#(SCLK_PERIOD_NS/2);
sclk = 1'b1;
#(SCLK_PERIOD_NS/2);
sclk = 1'b0;
end
end
endtask
initial begin
reset = 1'b1;
sclk = 1'b0;
ss_n = 1'b1;
mosi = 1'b0;
#SCLK_PERIOD_NS;
reset = 1'b0;
#SCLK_PERIOD_NS;
$display("Write a single byte to address 0x0000 and then read it back");
ss_n = 1'b0;
mosi = 1'b0;
#(SCLK_PERIOD_NS/2);
send_byte(8'h01);
send_byte(8'h00);
send_byte(8'h00);
send_byte(8'hE1);
ss_n = 1'b1;
#SCLK_PERIOD_NS;
ss_n = 1'b0;
mosi = 1'b0;
#(SCLK_PERIOD_NS/2);
send_byte(8'h02);
send_byte(8'h00);
send_byte(8'h00);
send_byte(8'h00);
ss_n = 1'b1;
#SCLK_PERIOD_NS;
$display("Write a single byte to address 0x0001 and then read it back");
ss_n = 1'b0;
mosi = 1'b0;
#(SCLK_PERIOD_NS/2);
send_byte(8'h01);
send_byte(8'h00);
send_byte(8'h01);
send_byte(8'h35);
ss_n = 1'b1;
#SCLK_PERIOD_NS;
ss_n = 1'b0;
mosi = 1'b0;
#(SCLK_PERIOD_NS/2);
send_byte(8'h02);
send_byte(8'h00);
send_byte(8'h01);
send_byte(8'h00);
ss_n = 1'b1;
#SCLK_PERIOD_NS;
$display("Write 3 bytes byte to address 0x0002 and then read them back");
ss_n = 1'b0;
mosi = 1'b0;
#(SCLK_PERIOD_NS/2);
send_byte(8'h01);
send_byte(8'h00);
send_byte(8'h02);
send_byte(8'h12);
send_byte(8'h34);
send_byte(8'h56);
ss_n = 1'b1;
#SCLK_PERIOD_NS;
ss_n = 1'b0;
mosi = 1'b0;
#(SCLK_PERIOD_NS/2);
send_byte(8'h02);
send_byte(8'h00);
send_byte(8'h02);
send_byte(8'h00);
send_byte(8'h00);
send_byte(8'h00);
ss_n = 1'b1;
#SCLK_PERIOD_NS;
$finish;
end
// dump waveforms
initial begin
$shm_open("waves.shm");
$shm_probe("MAS");
end
spi_regmap_top u_spi_regmap_top
( .clk,
.reset,
.sclk,
.ss_n,
.mosi,
.miso
);
endmodule