URL https://opencores.org/ocsvn/oms8051mini/oms8051mini/trunk

Subversion Repositories oms8051mini

[/] [oms8051mini/] [trunk/] [verif/] [agents/] [spi/] [spi_tasks.v] - Blame information for rev 13

Go to most recent revision | Details | Compare with Previous | View Log


 
// #################################################################
// Module: spi tasks
//
// Description : All ST and ATMEL commands are made into tasks
// #################################################################
 
event      spi_error_detected;
reg  [1:0] spi_chip_no;
 
integer spi_err_cnt;
 
task spi_init;
begin
   spi_err_cnt = 0;
   spi_chip_no = 0;
end
endtask
 
 
always @spi_error_detected
begin
  `TB_GLBL.test_err;
        spi_err_cnt = spi_err_cnt + 1;
end
 
// Write One Byte
task spi_write_byte;
    input [7:0] datain;
    reg  [31:0] read_data;
    begin
 
      @(posedge tb_top.app_clk)
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{datain,24'h0});
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
                                spi_chip_no[1:0],
                                2'b0,    // Write Operatopm
                                2'b0,    // Single Transfer
                                6'h10,    // sck clock period
                                5'h2,    // cs setup/hold period
                                8'h40 }); // cs bit information
 
     tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
     while(read_data[31]) begin
        @(posedge tb_top.app_clk) ;
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
      end
    end
endtask
 
//***** ST : Write Enable task ******//
task spi_write_dword;
    input [31:0] cmd;
    input [7:0]  cs_byte;
    reg   [31:0] read_data;
    begin
      @(posedge tb_top.app_clk)
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{cmd});
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
                                spi_chip_no[1:0],
                                2'b0,    // Write Operatopm
                                2'h3,    // 4 Transfer
                                6'h10,    // sck clock period
                                5'h2,    // cs setup/hold period
                                cs_byte[7:0] }); // cs bit information
 
     tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
     while(read_data[31]) begin
        @(posedge tb_top.app_clk) ;
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
      end
    end
endtask
 
 
//***** ST : Write Enable task ******//
task spi_read_dword;
    output [31:0] dataout;
    input  [7:0]  cs_byte;
    reg    [31:0] read_data;
    begin
 
      @(posedge tb_top.app_clk)
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
                                spi_chip_no[1:0],
                                2'b1,    // Read Operatopm
                                2'h3,    // 4 Transfer
                                6'h10,    // sck clock period
                                5'h2,    // cs setup/hold period
                                cs_byte[7:0] }); // cs bit information
 
     tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
 
     while(read_data[31]) begin
        @(posedge tb_top.app_clk) ;
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
     end
 
     tb_top.cpu_read(`ADDR_SPACE_SPI,'h8,dataout);
 
    end
endtask
 
 
 
task spi_sector_errase;
    input [23:0] address;
    reg   [31:0] read_data;
    begin
 
      @(posedge tb_top.app_clk) ;
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{8'hD8,address[23:0]});
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
                                spi_chip_no[1:0],
                                2'b0,    // Write Operatopm
                                2'h3,    // 4 Transfer
                                6'h10,    // sck clock period
                                5'h2,    // cs setup/hold period
                                8'h1 }); // cs bit information
 
     tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
 
      $display("%t : %m : Sending Sector Errase for Address : %x",$time,address);
 
 
     tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
     while(read_data[31]) begin
        @(posedge tb_top.app_clk) ;
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
     end
   end
endtask
 
 
task spi_page_write;
    input [23:0] address;
    reg [7:0] i;
    reg [31:0] write_data;
    begin
 
      spi_write_dword({8'h02,address[23:0]},8'h0);
 
      for(i = 0; i < 252 ; i = i + 4) begin
         write_data [31:24]  = i;
         write_data [23:16]  = i+1;
         write_data [15:8]   = i+2;
         write_data [7:0]    = i+3;
         spi_write_dword(write_data,8'h0);
         $display("%m : Writing Data : %x",write_data);
      end
 
      // Writting last 4 byte with de-selecting the chip select 
         write_data [31:24]  = i;
         write_data [23:16]  = i+1;
         write_data [15:8]   = i+2;
         write_data [7:0]    = i+3;
      spi_write_dword(write_data,8'h1);
      $display("%m : Writing Data : %x",write_data);
 
    end
endtask
 
 
task spi_page_read_verify;
    input [23:0] address;
    reg   [31:0] read_data;
    reg [7:0] i;
    reg [31:0] exp_data;
    begin
 
      spi_write_dword({8'h03,address[23:0]},8'h0);
 
      for(i = 0; i < 252 ; i = i + 4) begin
         exp_data [31:24]  = i;
         exp_data [23:16]  = i+1;
         exp_data [15:8]   = i+2;
         exp_data [7:0]    = i+3;
         spi_read_dword(read_data,8'h0);
         if(read_data != exp_data) begin
            -> spi_error_detected;
            $display("%m : ERROR : Exp Data : %x Rxd Data : %x",exp_data,read_data);
         end else begin
            $display("%m : STATUS :  Data Matched : %x ",read_data);
         end
 
      end
 
      // Reading last 4 byte with de-selecting the chip select 
         exp_data [31:24]  = i;
         exp_data [23:16]  = i+1;
         exp_data [15:8]   = i+2;
         exp_data [7:0]    = i+3;
 
         spi_read_dword(read_data,8'h0);
         if(read_data != exp_data) begin
            -> spi_error_detected;
            $display("%m : ERROR : Exp Data : %x Rxd Data : %x",exp_data,read_data);
         end else begin
            $display("%m : STATUS :  Data Matched : %x ",read_data);
         end
 
    end
endtask
 
 
 
 
task spi_op_over;
    reg [31:0] read_data;
    begin
     tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
      while(read_data[31]) begin
        @(posedge tb_top.app_clk) ;
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
      end
      #100;
    end
endtask
 
task spi_wait_busy;
    reg [31:0] read_data;
    reg        exit_flag;
    integer    pretime;
begin
    read_data = 1;
 
    pretime = $time;
 
 
   exit_flag = 1;
   while(exit_flag == 1) begin
 
    tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{8'h05,24'h0});
    tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
                                spi_chip_no[1:0],
                                2'b0,    // Write Operation
                                2'b0,    // 1 Transfer
                                6'h10,    // sck clock period
                                5'h2,    // cs setup/hold period
                                8'h0 }); // cs bit information
 
 
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
        while(read_data[31]) begin
          @(posedge tb_top.app_clk) ;
          tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
        end
 
     // Send Status Request Cmd
 
 
      tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
                                spi_chip_no[1:0],
                                2'b1,    // Read Operation
                                2'b0,    // 1 Transfer
                                6'h10,    // sck clock period
                                5'h2,    // cs setup/hold period
                                8'h40 }); // cs bit information
 
 
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
        while(read_data[31]) begin
          @(posedge tb_top.app_clk) ;
          tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
        end
 
        tb_top.cpu_read(`ADDR_SPACE_SPI,'h8,read_data);
        exit_flag = read_data[24];
        $display("Total time Elapsed: %0t(us): %m : Checking the SPI RDStatus : %x",($time - pretime)/1000000 ,read_data);
      repeat (1000) @ (posedge tb_top.app_clk) ;
     end
  end
endtask
 
 
 
task spi_tb_status;
begin
 
   $display("#############################");
   $display("   Test Statistic            ");
   if(spi_err_cnt >0) begin
      $display("TEST STATUS : FAILED ");
      $display("TOTAL ERROR COUNT : %d ",spi_err_cnt);
   end else begin
      $display("TEST STATUS : PASSED ");
   end
   $display("#############################");
end
endtask
 

Line No.	Rev	Author	Line
1	2	dinesha
2			`// #################################################################`
3			`// Module: spi tasks`
4			`//`
5			`// Description : All ST and ATMEL commands are made into tasks`
6			`// #################################################################`
7
8			`event spi_error_detected;`
9			`reg [1:0] spi_chip_no;`
10
11			`integer spi_err_cnt;`
12
13			`task spi_init;`
14			`begin`
15			`spi_err_cnt = 0;`
16			`spi_chip_no = 0;`
17			`end`
18			`endtask`
19
20
21			`always @spi_error_detected`
22			`begin`
23			`TB_GLBL.test_err;
24			`spi_err_cnt = spi_err_cnt + 1;`
25			`end`
26
27			`// Write One Byte`
28			`task spi_write_byte;`
29			`input [7:0] datain;`
30			`reg [31:0] read_data;`
31			`begin`
32
33			`@(posedge tb_top.app_clk)`
34	10	dinesha	tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{datain,24'h0});
35			tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
36	2	dinesha	`spi_chip_no[1:0],`
37			`2'b0, // Write Operatopm`
38			`2'b0, // Single Transfer`
39			`6'h10, // sck clock period`
40			`5'h2, // cs setup/hold period`
41			`8'h40 }); // cs bit information`
42
43	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
44	2	dinesha	`while(read_data[31]) begin`
45			`@(posedge tb_top.app_clk) ;`
46	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
47	2	dinesha	`end`
48			`end`
49			`endtask`
50
51			`//*** ST : Write Enable task ****//`
52			`task spi_write_dword;`
53			`input [31:0] cmd;`
54			`input [7:0] cs_byte;`
55			`reg [31:0] read_data;`
56			`begin`
57			`@(posedge tb_top.app_clk)`
58	10	dinesha	tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{cmd});
59			tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
60	2	dinesha	`spi_chip_no[1:0],`
61			`2'b0, // Write Operatopm`
62			`2'h3, // 4 Transfer`
63			`6'h10, // sck clock period`
64			`5'h2, // cs setup/hold period`
65			`cs_byte[7:0] }); // cs bit information`
66
67	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
68	2	dinesha	`while(read_data[31]) begin`
69			`@(posedge tb_top.app_clk) ;`
70	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
71	2	dinesha	`end`
72			`end`
73			`endtask`
74
75
76			`//*** ST : Write Enable task ****//`
77			`task spi_read_dword;`
78			`output [31:0] dataout;`
79			`input [7:0] cs_byte;`
80			`reg [31:0] read_data;`
81			`begin`
82
83			`@(posedge tb_top.app_clk)`
84	10	dinesha	tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
85	2	dinesha	`spi_chip_no[1:0],`
86			`2'b1, // Read Operatopm`
87			`2'h3, // 4 Transfer`
88			`6'h10, // sck clock period`
89			`5'h2, // cs setup/hold period`
90			`cs_byte[7:0] }); // cs bit information`
91
92	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
93	2	dinesha
94			`while(read_data[31]) begin`
95			`@(posedge tb_top.app_clk) ;`
96	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
97	2	dinesha	`end`
98
99	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h8,dataout);
100	2	dinesha
101			`end`
102			`endtask`
103
104
105
106			`task spi_sector_errase;`
107			`input [23:0] address;`
108			`reg [31:0] read_data;`
109			`begin`
110
111			`@(posedge tb_top.app_clk) ;`
112	10	dinesha	tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{8'hD8,address[23:0]});
113			tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
114	2	dinesha	`spi_chip_no[1:0],`
115			`2'b0, // Write Operatopm`
116			`2'h3, // 4 Transfer`
117			`6'h10, // sck clock period`
118			`5'h2, // cs setup/hold period`
119			`8'h1 }); // cs bit information`
120
121	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
122	2	dinesha
123			`$display("%t : %m : Sending Sector Errase for Address : %x",$time,address);`
124
125
126	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
127	2	dinesha	`while(read_data[31]) begin`
128			`@(posedge tb_top.app_clk) ;`
129	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
130	2	dinesha	`end`
131			`end`
132			`endtask`
133
134
135			`task spi_page_write;`
136			`input [23:0] address;`
137			`reg [7:0] i;`
138			`reg [31:0] write_data;`
139			`begin`
140
141			`spi_write_dword({8'h02,address[23:0]},8'h0);`
142
143			`for(i = 0; i < 252 ; i = i + 4) begin`
144			`write_data [31:24] = i;`
145			`write_data [23:16] = i+1;`
146			`write_data [15:8] = i+2;`
147			`write_data [7:0] = i+3;`
148			`spi_write_dword(write_data,8'h0);`
149			`$display("%m : Writing Data : %x",write_data);`
150			`end`
151
152			`// Writting last 4 byte with de-selecting the chip select`
153			`write_data [31:24] = i;`
154			`write_data [23:16] = i+1;`
155			`write_data [15:8] = i+2;`
156			`write_data [7:0] = i+3;`
157			`spi_write_dword(write_data,8'h1);`
158			`$display("%m : Writing Data : %x",write_data);`
159
160			`end`
161			`endtask`
162
163
164			`task spi_page_read_verify;`
165			`input [23:0] address;`
166			`reg [31:0] read_data;`
167			`reg [7:0] i;`
168			`reg [31:0] exp_data;`
169			`begin`
170
171			`spi_write_dword({8'h03,address[23:0]},8'h0);`
172
173			`for(i = 0; i < 252 ; i = i + 4) begin`
174			`exp_data [31:24] = i;`
175			`exp_data [23:16] = i+1;`
176			`exp_data [15:8] = i+2;`
177			`exp_data [7:0] = i+3;`
178			`spi_read_dword(read_data,8'h0);`
179			`if(read_data != exp_data) begin`
180			`-> spi_error_detected;`
181			`$display("%m : ERROR : Exp Data : %x Rxd Data : %x",exp_data,read_data);`
182			`end else begin`
183			`$display("%m : STATUS : Data Matched : %x ",read_data);`
184			`end`
185
186			`end`
187
188			`// Reading last 4 byte with de-selecting the chip select`
189			`exp_data [31:24] = i;`
190			`exp_data [23:16] = i+1;`
191			`exp_data [15:8] = i+2;`
192			`exp_data [7:0] = i+3;`
193
194			`spi_read_dword(read_data,8'h0);`
195			`if(read_data != exp_data) begin`
196			`-> spi_error_detected;`
197			`$display("%m : ERROR : Exp Data : %x Rxd Data : %x",exp_data,read_data);`
198			`end else begin`
199			`$display("%m : STATUS : Data Matched : %x ",read_data);`
200			`end`
201
202			`end`
203			`endtask`
204
205
206
207
208			`task spi_op_over;`
209			`reg [31:0] read_data;`
210			`begin`
211	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
212	2	dinesha	`while(read_data[31]) begin`
213			`@(posedge tb_top.app_clk) ;`
214	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
215	2	dinesha	`end`
216			`#100;`
217			`end`
218			`endtask`
219
220			`task spi_wait_busy;`
221			`reg [31:0] read_data;`
222			`reg exit_flag;`
223			`integer pretime;`
224			`begin`
225			`read_data = 1;`
226
227			`pretime = $time;`
228
229
230			`exit_flag = 1;`
231			`while(exit_flag == 1) begin`
232
233	10	dinesha	tb_top.cpu_write(`ADDR_SPACE_SPI,'h4,{8'h05,24'h0});
234			tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
235	2	dinesha	`spi_chip_no[1:0],`
236			`2'b0, // Write Operation`
237			`2'b0, // 1 Transfer`
238			`6'h10, // sck clock period`
239			`5'h2, // cs setup/hold period`
240			`8'h0 }); // cs bit information`
241
242
243	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
244	2	dinesha	`while(read_data[31]) begin`
245			`@(posedge tb_top.app_clk) ;`
246	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
247	2	dinesha	`end`
248
249			`// Send Status Request Cmd`
250
251
252	10	dinesha	tb_top.cpu_write(`ADDR_SPACE_SPI,'h0,{1'b1,6'h0,
253	2	dinesha	`spi_chip_no[1:0],`
254			`2'b1, // Read Operation`
255			`2'b0, // 1 Transfer`
256			`6'h10, // sck clock period`
257			`5'h2, // cs setup/hold period`
258			`8'h40 }); // cs bit information`
259
260
261	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
262	2	dinesha	`while(read_data[31]) begin`
263			`@(posedge tb_top.app_clk) ;`
264	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h0,read_data);
265	2	dinesha	`end`
266
267	10	dinesha	tb_top.cpu_read(`ADDR_SPACE_SPI,'h8,read_data);
268	2	dinesha	`exit_flag = read_data[24];`
269			`$display("Total time Elapsed: %0t(us): %m : Checking the SPI RDStatus : %x",($time - pretime)/1000000 ,read_data);`
270			`repeat (1000) @ (posedge tb_top.app_clk) ;`
271			`end`
272			`end`
273			`endtask`
274
275
276
277			`task spi_tb_status;`
278			`begin`
279
280			`$display("#############################");`
281			`$display(" Test Statistic ");`
282			`if(spi_err_cnt >0) begin`
283			`$display("TEST STATUS : FAILED ");`
284			`$display("TOTAL ERROR COUNT : %d ",spi_err_cnt);`
285			`end else begin`
286			`$display("TEST STATUS : PASSED ");`
287			`end`
288			`$display("#############################");`
289			`end`
290			`endtask`
291

Browse

Tools

Subversion Repositories oms8051mini

[/] [oms8051mini/] [trunk/] [verif/] [agents/] [spi/] [spi_tasks.v] - Blame information for rev 13