URL https://opencores.org/ocsvn/usb11/usb11/trunk
Subversion Repositories usb11

[/] [usb11/] [trunk/] [bench/] [verilog/] [tests_ocp.v] - Blame information for rev 13

Details | Compare with Previous | View Log

/////////////////////////////////////////////////////////////////////
////                                                             ////
////  Test Case Collection                                       ////
////                                                             ////
////                                                             ////
////  Author: Rudolf Usselmann                                   ////
////          rudi@asics.ws                                      ////
////                                                             ////
////  Modifications: Alfredo Luiz Foltran Fialho                 ////
////                 alfoltran@opencores.org                     ////
////                                                             ////
////  Downloaded from: http://www.opencores.org/cores/usb1_funct/////
////                                                             ////
/////////////////////////////////////////////////////////////////////
////                                                             ////
//// Copyright (C) 2000-2002 Rudolf Usselmann                    ////
////                         www.asics.ws                        ////
////                         rudi@asics.ws                       ////
////                                                             ////
//// This source file may be used and distributed without        ////
//// restriction provided that this copyright statement is not   ////
//// removed from the file and that any derivative work contains ////
//// the original copyright notice and the associated disclaimer.////
////                                                             ////
////     THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY     ////
//// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED   ////
//// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS   ////
//// FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR      ////
//// OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,         ////
//// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES    ////
//// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE   ////
//// GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR        ////
//// BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF  ////
//// LIABILITY, WHETHER IN  CONTRACT, STRICT LIABILITY, OR TORT  ////
//// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT  ////
//// OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE         ////
//// POSSIBILITY OF SUCH DAMAGE.                                 ////
////                                                             ////
/////////////////////////////////////////////////////////////////////
 
//  CVS Log
//
//  $Id: tests_ocp.v,v 1.3 2004-05-28 23:13:16 alfoltran Exp $
//
//  $Date: 2004-05-28 23:13:16 $
//  $Revision: 1.3 $
//  $Author: alfoltran $
//  $Locker:  $
//  $State: Exp $
//
// Change History:
//               $Log: not supported by cvs2svn $
//               Revision 1.2  2004/05/11 18:51:08  alfoltran
//               Task in5 correction: no ACK for length zero packet.
//
//               Revision 1.1  2004/05/10 19:23:26  alfoltran
//               Initial version in OpenCores.org (2004/04/10 - 19:22GMT)
//
//               Revision 1.1  2002/09/25 06:10:10  rudi
//               Added Test Bench
//
//
//
//
//
//
//
 
 
task send_setup;
input   [7:0]    fa;
input   [7:0]    req_type;
input   [7:0]    request;
input   [15:0]   wValue;
input   [15:0]   wIndex;
input   [15:0]   wLength;
 
integer         len;
begin
 
buffer1[0] = req_type;
buffer1[1] = request;
buffer1[3] = wValue[15:8];
buffer1[2] = wValue[7:0];
buffer1[5] = wIndex[15:8];
buffer1[4] = wIndex[7:0];
buffer1[7] = wLength[15:8];
buffer1[6] = wLength[7:0];
 
buffer1_last = 0;
send_token(     fa,                     // Function Address
                0,                       // Logical Endpoint Number
                `USBF_T_PID_SETUP       // PID
                );
 
repeat(1)       @(posedge clk);
 
send_data(`USBF_T_PID_DATA0, 8, 1);
 
// Wait for ACK
utmi_recv_pack(len);
 
if(8'hd2 !== txmem[0])
   begin
        $display("ERROR: SETUP: ACK mismatch. Expected: %h, Got: %h (%t)",
        8'hd2, txmem[0], $time);
        error_cnt = error_cnt + 1;
   end
 
if(len !== 1)
   begin
        $display("ERROR: SETUP: Length mismatch. Expected: %h, Got: %h (%t)",
        8'h1, len, $time);
        error_cnt = error_cnt + 1;
   end
 
repeat(1)       @(posedge clk);
setup_pid = 1;
repeat(1)       @(posedge clk);
end
 
endtask
 
 
 
task data_in;
input   [7:0]    fa;
input   [7:0]    pl_size;
 
integer         rlen;
reg     [3:0]    pid, expect_pid;
begin
 
        buffer1_last = 0;
        repeat(5)       @(posedge clk);
        send_token(     fa,             // Function Address
                        0,               // Logical Endpoint Number
                        `USBF_T_PID_IN  // PID
                        );
 
        recv_packet(pid,rlen);
        if(setup_pid)   expect_pid = 4'hb; // DATA 1
        else            expect_pid = 4'h3; // DATA 0
 
        if(pid !== expect_pid)
           begin
                $display("ERROR: Data IN PID mismatch. Expected: %h, Got: %h (%t)",
                        expect_pid, pid, $time);
                error_cnt = error_cnt + 1;
           end
 
        setup_pid = ~setup_pid;
        if(rlen != pl_size)
           begin
                $display("ERROR: Data IN Size mismatch. Expected: %d, Got: %d (%t)",
                        pl_size, rlen, $time);
                error_cnt = error_cnt + 1;
           end
 
        for(n=0;n<rlen;n=n+1)
                $display("RCV Data[%0d]: %h",n,buffer1[n]);
 
        repeat(5)       @(posedge clk);
        send_token(     fa,             // Function Address
                        0,               // Logical Endpoint Number
                        `USBF_T_PID_ACK // PID
                        );
 
        repeat(5)       @(posedge clk);
 
end
endtask
 
 
 
task data_out;
input   [7:0]    fa;
input   [7:0]    pl_size;
 
integer len;
 
begin
        send_token(     fa,             // Function Address
                        0,               // Logical Endpoint Number
                        `USBF_T_PID_OUT // PID
                        );
 
        repeat(1)       @(posedge clk);
 
        if(setup_pid==0) send_data(`USBF_T_PID_DATA0, pl_size, 1);
        else                    send_data(`USBF_T_PID_DATA1, pl_size, 1);
 
        setup_pid = ~setup_pid;
 
        // Wait for ACK
        utmi_recv_pack(len);
 
        if(8'hd2 !== txmem[0])
           begin
                $display("ERROR: ACK mismatch. Expected: %h, Got: %h (%t)",
                8'hd2, txmem[0], $time);
                error_cnt = error_cnt + 1;
           end
 
        if(len !== 1)
           begin
                $display("ERROR: SETUP: Length mismatch. Expected: %h, Got: %h (%t)",
                8'h1, len, $time);
                error_cnt = error_cnt + 1;
           end
        repeat(5)       @(posedge clk);
 
end
endtask
 
 
parameter       GET_STATUS      =       8'h0,
                CLEAR_FEATURE   =       8'h1,
                SET_FEATURE     =       8'h3,
                SET_ADDRESS     =       8'h5,
                GET_DESCRIPTOR  =       8'h6,
                SET_DESCRIPTOR  =       8'h7,
                GET_CONFIG      =       8'h8,
                SET_CONFIG      =       8'h9,
                GET_INTERFACE   =       8'ha,
                SET_INTERFACE   =       8'hb,
                SYNCH_FRAME     =       8'hc;
 
 
task setup0;
 
begin
$display("\n\n");
$display("*****************************************************");
$display("*** CTRL ep test 0                                ***");
$display("*****************************************************\n");
 
 
$display("\n\nSetting Address ...");
 
send_setup(     8'h0,           // Function Address
                8'h00,          // Request Type
                SET_ADDRESS,    // Request
                16'h012,        // wValue
                16'h0,          // wIndex
                16'h0           // wLength
                );
 
// Status OK
data_in(        8'h0,           // Function Address
                8'h0            // Expected payload size
        );
 
$display("\n\nGetting descriptor ...");
send_setup(     8'h12,          // Function Address
                8'h80,          // Request Type
                GET_DESCRIPTOR, // Request
                16'h0100,       // wValue
                16'h0,          // wIndex
                16'h12          // wLength
                );
 
data_in(        8'h12,          // Function Address
                8'd18           // Expected payload size
        );
 
// Status OK
data_out(       8'h12,          // Function Address
                8'h0            // Expected payload size
        );
 
$display("\n\nGetting descriptor ...");
send_setup(     8'h12,          // Function Address
                8'h80,          // Request Type
                GET_DESCRIPTOR, // Request
                16'h0200,       // wValue
                16'h0,          // wIndex
                16'h9           // wLength
                );
 
data_in(        8'h12,          // Function Address
                8'd9            // Expected payload size
        );
 
// Status OK
data_out(       8'h12,          // Function Address
                8'h0            // Expected payload size
        );
 
$display("\n\nGetting descriptor ...");
send_setup(     8'h12,          // Function Address
                8'h80,          // Request Type
                GET_DESCRIPTOR, // Request
                16'h0200,       // wValue
                16'h0,          // wIndex
                16'd060         // wLength
                );
 
data_in(        8'h12,          // Function Address
                8'd060          // Expected payload size
        );
 
// Status OK
data_out(       8'h12,          // Function Address
                8'h0            // Expected payload size
        );
 
$display("\n\nGetting descriptor ...");
send_setup(     8'h12,          // Function Address
                8'h80,          // Request Type
                GET_DESCRIPTOR, // Request
                16'h0300,       // wValue
                16'h0,          // wIndex
                16'd08          // wLength
                );
 
data_in(        8'h12,          // Function Address
                8'd08           // Expected payload size
        );
 
// Status OK
data_out(       8'h12,          // Function Address
                8'h0            // Expected payload size
        );
 
$display("\n\nGetting descriptor ...");
send_setup(     8'h12,          // Function Address
                8'h80,          // Request Type
                GET_DESCRIPTOR, // Request
                16'h0301,       // wValue
                16'h0416,       // wIndex
                16'd026         // wLength
                );
 
data_in(        8'h12,          // Function Address
                8'd026          // Expected payload size
        );
 
// Status OK
data_out(       8'h12,          // Function Address
                8'h0            // Expected payload size
        );
 
$display("\n\nGetting descriptor ...");
send_setup(     8'h12,          // Function Address
                8'h80,          // Request Type
                GET_DESCRIPTOR, // Request
                16'h0302,       // wValue
                16'h0416,       // wIndex
                16'd028         // wLength
                );
 
data_in(        8'h12,          // Function Address
                8'd028          // Expected payload size
        );
 
// Status OK
data_out(       8'h12,          // Function Address
                8'h0            // Expected payload size
        );
 
$display("\n\nGetting descriptor ...");
send_setup(     8'h12,          // Function Address
                8'h80,          // Request Type
                GET_DESCRIPTOR, // Request
                16'h0303,       // wValue
                16'h0416,       // wIndex
                16'd054         // wLength
                );
 
data_in(        8'h12,          // Function Address
                8'd054          // Expected payload size
        );
 
// Status OK
data_out(       8'h12,          // Function Address
                8'h0            // Expected payload size
        );
 
show_errors;
$display("*****************************************************");
$display("*** Test DONE ...                                 ***");
$display("*****************************************************\n\n");
 
end
endtask
 
task in1;
 
reg     [6:0]    my_fa;
integer         quick, n, m, rlen,fc;
reg     [7:0]    fd;
integer         pack_cnt, pack_cnt_max;
reg     [7:0]    x;
reg     [3:0]    pid;
reg     [3:0]    expect_pid;
reg     [31:0]   data;
reg             pid_cnt;
 
begin
 
$display("\n\n");
$display("*****************************************************");
$display("*** IN ep test 1                                  ***");
$display("*****************************************************\n");
 
send_sof(11'h000 );     // Send SOF
 
pack_sz_max = 256;
pack_cnt_max = 4;
 
pid_cnt = 0;
my_fa = 7'h12;
 
ep_f_addr=32'h01;
cmd=3'b000;
 
for(pack_sz=0;pack_sz<=pack_sz_max;pack_sz=pack_sz+32)
begin
 
$display("PL size: %0d", pack_sz);
 
for(pack_cnt=0;pack_cnt<pack_cnt_max;pack_cnt=pack_cnt+1)
   begin
 
        // Fill Buffer
        buffer1_last = 0;
        for(fc=0;fc<pack_sz;fc=fc+1)
           begin
                #2;
                while(flags[1]) @(posedge clk);
 
                #1;
                //x = fc[7:0];
                x = $random;
                ep_f_din = x;
                buffer0[fc] = x;
                cmd = 3'b001;
                @(posedge clk);
                #1;
                cmd = 3'b000;
                @(posedge clk);
           end
        #1;
        cmd = 3'b000;
        @(posedge clk);
 
        // Send Data
        repeat(1)       @(posedge clk);
        send_sof(11'h000 );     // Send SOF
        repeat(1)       @(posedge clk);
        send_token(     my_fa,          // Function Address
                        1,              // Logical Endpoint Number
                        `USBF_T_PID_IN  // PID
                        );
 
        repeat(1)       @(posedge clk);
 
        recv_packet(pid,rlen);
 
        if(pid_cnt)     expect_pid = 4'hb;
        else            expect_pid = 4'h3;
        expect_pid = 4'h3;
 
        if(pid !== expect_pid)
           begin
                $display("ERROR: PID mismatch. Expected: %h, Got: %h (%t)",
                        expect_pid, pid, $time);
                error_cnt = error_cnt + 1;
           end
        pid_cnt = ~pid_cnt;
 
        if(rlen != pack_sz)
           begin
                $display("ERROR: Size mismatch. Expected: %d, Got: %d (%t)",
                        pack_sz, rlen, $time);
                error_cnt = error_cnt + 1;
           end
 
        repeat(4)       @(posedge clk);
 
        // Verify Data
        for(fc=0;fc<pack_sz;fc=fc+1)
           begin
                x =  buffer0[fc];
                if( (buffer1[fc] !== x) | ( (^buffer1[fc] ^ ^x) === 1'hx) )
                   begin
                        $display("ERROR: Data (%0d) mismatch. Expected: %h, Got: %h (%t)",
                                fc, x, buffer1[fc], $time);
                        error_cnt = error_cnt + 1;
                   end
           end
   end
 
repeat(50)      @(posedge clk);
end
 
cmd = 100;
ep_f_addr=32'h0;
 
show_errors;
$display("*****************************************************");
$display("*** Test DONE ...                                 ***");
$display("*****************************************************\n\n");
 
end
 
endtask
 
task out2;
reg     [6:0]    my_fa;
reg     [31:0]   data;
integer         len, n, no_pack, pl_sz;
integer         no_pack_max, pl_sz_max;
reg             pid;
 
reg     [7:0]    x;
 
begin
$display("\n\n");
$display("*****************************************************");
$display("*** OUT ep test 2                                 ***");
$display("*****************************************************\n");
 
 
no_pack_max = 4;        // Number Of packets to transfer
pl_sz_max   = 256;      // Payload Size
 
no_pack = 4;            // Number Of packets to transfer
pl_sz = 0;
my_fa = 7'h12;
 
ep_f_addr=32'h02;
cmd=3'b000;
 
for(pl_sz=0;pl_sz<=pl_sz_max;pl_sz=pl_sz+32)
begin
pid = 0;
 
$display("PL size: %0d", pl_sz);
 
for(n=0;n<4096;n=n+1)
        //buffer1[n] = $random;
        buffer1[n] = n;
 
buffer1_last = 0;
 
fork
for(no_pack=0;no_pack<no_pack_max;no_pack=no_pack+1)     // Send no_pack Out packets
   begin
        repeat(1)       @(posedge clk);
        send_sof(11'h000 );     // Send SOF
        repeat(1)       @(posedge clk);
 
        send_token(     my_fa,          // Function Address
                        2,              // Logical Endpoint Number
                        `USBF_T_PID_OUT // PID
                        );
 
        repeat(1)       @(posedge clk);
 
        if(pid==0)       send_data(`USBF_T_PID_DATA0, pl_sz, 1);
        else            send_data(`USBF_T_PID_DATA1, pl_sz, 1);
   end
 
   begin
        repeat(10)      @(posedge clk2);
        for(n=0;n<(no_pack_max*pl_sz);n=n+1)     // Compare Buffers
           begin
 
                #4;
                cmd = 3'b000;
                repeat(1)       @(posedge clk2);
 
                while(flags[0])
                   begin
                        cmd = 3'b000;
                        repeat(2)       @(posedge clk2);
                   end
 
                #2;
                if(buffer1[n] !== ep_f_dout)
                   begin
                        $display("ERROR: DATA mismatch. Expected: %h, Got: %h (%t)",
                                buffer1[n], ep_f_dout, $time);
                        error_cnt = error_cnt + 1;
                   end
 
                cmd = 3'b010;
                @(posedge clk2);
           end
        #1;
        cmd = 3'b000;
        @(posedge clk2);
    end
 
join
 
repeat(1)       @(posedge clk);
end
 
cmd = 3'b100;
ep_f_addr=32'h0;
 
show_errors;
$display("*****************************************************");
$display("*** Test DONE ...                                 ***");
$display("*****************************************************\n\n");
end
endtask
 
task in3;
 
reg     [6:0]    my_fa;
integer         quick, n, m, rlen,fc;
reg     [7:0]    fd;
integer         pack_cnt, pack_cnt_max;
reg     [7:0]    x;
reg     [3:0]    pid;
reg     [3:0]    expect_pid;
reg     [31:0]   data;
reg             pid_cnt;
 
begin
 
$display("\n\n");
$display("*****************************************************");
$display("*** IN ep test 3                                  ***");
$display("*****************************************************\n");
 
send_sof(11'h000 );     // Send SOF
 
pack_sz_max = 64;
pack_cnt_max = 4;
 
pid_cnt = 0;
my_fa = 7'h12;
 
ep_f_addr=32'h03;
cmd=3'b000;
 
for(pack_sz=0;pack_sz<=pack_sz_max;pack_sz=pack_sz+8)
begin
 
$display("PL size: %0d", pack_sz);
 
for(pack_cnt=0;pack_cnt<pack_cnt_max;pack_cnt=pack_cnt+1)
   begin
 
        // Fill Buffer
        buffer1_last = 0;
        for(fc=0;fc<pack_sz;fc=fc+1)
           begin
                #2;
                while(flags[1]) @(posedge clk);
 
                #1;
                //x = fc[7:0];
                x = $random;
                ep_f_din = x;
                buffer0[fc] = x;
                cmd = 3'b001;
                @(posedge clk);
                #1;
                cmd = 3'b000;
                @(posedge clk);
           end
        #1;
        cmd = 3'b000;
        @(posedge clk);
 
        // Send Data
        repeat(1)       @(posedge clk);
        send_sof(11'h000 );     // Send SOF
        repeat(1)       @(posedge clk);
        send_token(     my_fa,          // Function Address
                        3,              // Logical Endpoint Number
                        `USBF_T_PID_IN  // PID
                        );
 
        repeat(1)       @(posedge clk);
 
        recv_packet(pid,rlen);
 
        if(pid_cnt)     expect_pid = 4'hb;
        else            expect_pid = 4'h3;
 
        if(pid !== expect_pid)
           begin
                $display("ERROR: PID mismatch. Expected: %h, Got: %h (%t)",
                        expect_pid, pid, $time);
                error_cnt = error_cnt + 1;
           end
        pid_cnt = ~pid_cnt;
 
        if(rlen != pack_sz)
           begin
                $display("ERROR: Size mismatch. Expected: %d, Got: %d (%t)",
                        pack_sz, rlen, $time);
                error_cnt = error_cnt + 1;
           end
 
        repeat(4)       @(posedge clk);
        send_token(     my_fa,          // Function Address
                        3,              // Logical Endpoint Number
                        `USBF_T_PID_ACK // PID
                        );
        repeat(5)       @(posedge clk);
 
        // Verify Data
        for(fc=0;fc<pack_sz;fc=fc+1)
           begin
                x =  buffer0[fc];
                if( (buffer1[fc] !== x) | ( (^buffer1[fc] ^ ^x) === 1'hx) )
                   begin
                        $display("ERROR: Data (%0d) mismatch. Expected: %h, Got: %h (%t)",
                                fc, x, buffer1[fc], $time);
                        error_cnt = error_cnt + 1;
                   end
           end
   end
 
repeat(50)      @(posedge clk);
end
 
cmd = 3'b100;
ep_f_addr=32'h0;
 
show_errors;
$display("*****************************************************");
$display("*** Test DONE ...                                 ***");
$display("*****************************************************\n\n");
 
end
 
endtask
 
task out4;
reg     [6:0]    my_fa;
reg     [31:0]   data;
integer         len, n, no_pack, pl_sz;
integer         no_pack_max, pl_sz_max;
reg             pid;
 
reg     [7:0]    x;
 
begin
$display("\n\n");
$display("*****************************************************");
$display("*** OUT ep test 4                                 ***");
$display("*****************************************************\n");
 
 
no_pack_max = 4;        // Number Of packets to transfer
pl_sz_max   = 64;       // Payload Size
 
no_pack = 4;            // Number Of packets to transfer
pl_sz = 0;
my_fa = 7'h12;
 
ep_f_addr=32'h04;
cmd=3'b000;
 
for(pl_sz=0;pl_sz<=pl_sz_max;pl_sz=pl_sz+8)
begin
pid = 0;
 
$display("PL size: %0d", pl_sz);
 
for(n=0;n<4096;n=n+1)
        //buffer1[n] = $random;
        buffer1[n] = n;
 
buffer1_last = 0;
 
fork
for(no_pack=0;no_pack<no_pack_max;no_pack=no_pack+1)     // Send no_pack Out packets
   begin
        repeat(1)       @(posedge clk);
        send_sof(11'h000 );     // Send SOF
        repeat(1)       @(posedge clk);
 
        send_token(     my_fa,          // Function Address
                        4,              // Logical Endpoint Number
                        `USBF_T_PID_OUT // PID
                        );
 
        repeat(1)       @(posedge clk);
 
        if(pid==0)       send_data(`USBF_T_PID_DATA0, pl_sz, 1);
        else            send_data(`USBF_T_PID_DATA1, pl_sz, 1);
 
        pid = ~pid;
 
        // Wait for ACK
        utmi_recv_pack(len);
 
        if(8'hd2 !== txmem[0])
           begin
                $display("ERROR: ACK mismatch. Expected: %h, Got: %h (%t)",
                8'hd2, txmem[0], $time);
                error_cnt = error_cnt + 1;
           end
 
        if(len != 1)
           begin
                $display("ERROR: Size mismatch. Expected: %d, Got: %d (%t)",
                        pl_sz, len, $time);
                error_cnt = error_cnt + 1;
           end
 
        repeat(1)       @(posedge clk);
   end
 
   begin
        repeat(10)      @(posedge clk2);
        for(n=0;n<(no_pack_max*pl_sz);n=n+1)     // Compare Buffers
           begin
 
                #4;
                cmd = 3'b000;
                repeat(1)       @(posedge clk2);
 
                while(flags[0])
                   begin
                        cmd = 3'b000;
                        repeat(2)       @(posedge clk2);
                   end
 
                #2;                                     // Comment this line for XILINX Timed Simulation
                //@(posedge clk2);      // Comment this line for Standard Simulation
                if(buffer1[n] !== ep_f_dout)
                   begin
                        $display("ERROR: DATA mismatch. Expected: %h, Got: %h (%t)",
                                buffer1[n], ep_f_dout, $time);
                        error_cnt = error_cnt + 1;
                   end
 
                cmd = 3'b010;
                @(posedge clk2);
           end
        #1;
        cmd = 3'b000;
        @(posedge clk2);
    end
 
join
 
repeat(1)       @(posedge clk);
end
 
cmd=3'b100;
ep_f_addr=32'h0;
 
show_errors;
$display("*****************************************************");
$display("*** Test DONE ...                                 ***");
$display("*****************************************************\n\n");
end
endtask
 
task in5;
 
reg     [6:0]    my_fa;
integer         quick, n, m, rlen,fc;
reg     [7:0]    fd;
integer         pack_cnt, pack_cnt_max;
reg     [7:0]    x;
reg     [3:0]    pid;
reg     [3:0]    expect_pid;
reg     [31:0]   data;
reg             pid_cnt;
 
begin
 
$display("\n\n");
$display("*****************************************************");
$display("*** IN ep test 5                                  ***");
$display("*****************************************************\n");
 
send_sof(11'h000 );     // Send SOF
 
pack_sz_max = 64;
pack_cnt_max = 4;
 
pid_cnt = 0;
my_fa = 7'h12;
 
ep_f_addr=32'h05;
cmd=3'b000;
 
for(pack_sz=0;pack_sz<=pack_sz_max;pack_sz=pack_sz+8)
begin
 
$display("PL size: %0d", pack_sz);
 
for(pack_cnt=0;pack_cnt<pack_cnt_max;pack_cnt=pack_cnt+1)
   begin
 
        // Fill Buffer
        buffer1_last = 0;
        for(fc=0;fc<pack_sz;fc=fc+1)
           begin
                #2;
                while(flags[1]) @(posedge clk);
 
                #1;
                //x = fc[7:0];
                x = $random;
                ep_f_din = x;
                buffer0[fc] = x;
                cmd = 3'b001;
                @(posedge clk);
                #1;
                cmd = 3'b000;
                @(posedge clk);
           end
        #1;
        cmd = 3'b000;
        @(posedge clk);
 
        // Send Data
        repeat(1)       @(posedge clk);
        send_sof(11'h000 );     // Send SOF
        repeat(1)       @(posedge clk);
        send_token(     my_fa,          // Function Address
                        5,              // Logical Endpoint Number
                        `USBF_T_PID_IN  // PID
                        );
 
        repeat(1)       @(posedge clk);
 
        recv_packet(pid,rlen);
 
        if (pack_sz == 0)        expect_pid = 4'ha;
        else if(pid_cnt)        expect_pid = 4'hb;
        else                    expect_pid = 4'h3;
 
        if(pid !== expect_pid)
           begin
                $display("ERROR: PID mismatch. Expected: %h, Got: %h (%t)",
                        expect_pid, pid, $time);
                error_cnt = error_cnt + 1;
           end
        pid_cnt = ~pid_cnt;
 
        if(rlen != pack_sz)
           begin
                $display("ERROR: Size mismatch. Expected: %d, Got: %d (%t)",
                        pack_sz, rlen, $time);
                error_cnt = error_cnt + 1;
           end
 
        repeat(4)       @(posedge clk);
 
        if(pack_sz != 0)
           begin
                send_token(     my_fa,          // Function Address
                                5,              // Logical Endpoint Number
                                `USBF_T_PID_ACK // PID
                                );
                repeat(5)       @(posedge clk);
           end
 
        // Verify Data
        for(fc=0;fc<pack_sz;fc=fc+1)
           begin
                x =  buffer0[fc];
                if( (buffer1[fc] !== x) | ( (^buffer1[fc] ^ ^x) === 1'hx) )
                   begin
                        $display("ERROR: Data (%0d) mismatch. Expected: %h, Got: %h (%t)",
                                fc, x, buffer1[fc], $time);
                        error_cnt = error_cnt + 1;
                   end
           end
   end
 
repeat(50)      @(posedge clk);
end
 
cmd=3'b100;
ep_f_addr=32'h0;
 
show_errors;
$display("*****************************************************");
$display("*** Test DONE ...                                 ***");
$display("*****************************************************\n\n");
 
end
 
endtask
 
task out6;
reg     [6:0]    my_fa;
reg     [31:0]   data;
integer         len, n, no_pack, pl_sz;
integer         no_pack_max, pl_sz_max;
reg             pid;
 
reg     [7:0]    x;
 
begin
$display("\n\n");
$display("*****************************************************");
$display("*** OUT ep test 6                                 ***");
$display("*****************************************************\n");
 
 
no_pack_max = 4;        // Number Of packets to transfer
pl_sz_max   = 64;       // Payload Size
 
no_pack = 4;            // Number Of packets to transfer
pl_sz = 0;
my_fa = 7'h12;
 
ep_f_addr=32'h06;
cmd=3'b000;
 
for(pl_sz=0;pl_sz<=pl_sz_max;pl_sz=pl_sz+8)
begin
pid = 0;
 
$display("PL size: %0d", pl_sz);
 
for(n=0;n<4096;n=n+1)
        //buffer1[n] = $random;
        buffer1[n] = n;
 
buffer1_last = 0;
 
fork
for(no_pack=0;no_pack<no_pack_max;no_pack=no_pack+1)     // Send no_pack Out packets
   begin
        repeat(1)       @(posedge clk);
        send_sof(11'h000 );     // Send SOF
        repeat(1)       @(posedge clk);
 
        send_token(     my_fa,          // Function Address
                        6,              // Logical Endpoint Number
                        `USBF_T_PID_OUT // PID
                        );
 
        repeat(1)       @(posedge clk);
 
        if(pid==0)       send_data(`USBF_T_PID_DATA0, pl_sz, 1);
        else            send_data(`USBF_T_PID_DATA1, pl_sz, 1);
 
        pid = ~pid;
 
        // Wait for ACK
        utmi_recv_pack(len);
 
        if(8'hd2 !== txmem[0])
           begin
                $display("ERROR: ACK mismatch. Expected: %h, Got: %h (%t)",
                8'hd2, txmem[0], $time);
                error_cnt = error_cnt + 1;
           end
 
        if(len != 1)
           begin
                $display("ERROR: Size mismatch. Expected: %d, Got: %d (%t)",
                        pl_sz, len, $time);
                error_cnt = error_cnt + 1;
           end
 
        repeat(1)       @(posedge clk);
   end
 
   begin
        repeat(10)      @(posedge clk2);
        for(n=0;n<(no_pack_max*pl_sz);n=n+1)     // Compare Buffers
           begin
 
                #4;
                cmd = 3'b000;
                repeat(1)       @(posedge clk2);
 
                while(flags[0])
                   begin
                        cmd = 3'b000;
                        repeat(2)       @(posedge clk2);
                   end
 
                #2;                                     // Comment this line for XILINX Timed Simulation
                //@(posedge clk2);      // Comment this line for Standard Simulation
                if(buffer1[n] !== ep_f_dout)
                   begin
                        $display("ERROR: DATA mismatch. Expected: %h, Got: %h (%t)",
                                buffer1[n], ep_f_dout, $time);
                        error_cnt = error_cnt + 1;
                   end
 
                cmd = 3'b010;
                @(posedge clk2);
           end
        #1;
        cmd = 3'b000;
        @(posedge clk2);
    end
 
join
 
repeat(1)       @(posedge clk);
end
 
cmd=3'b100;
ep_f_addr=8'h0;
 
show_errors;
$display("*****************************************************");
$display("*** Test DONE ...                                 ***");
$display("*****************************************************\n\n");
end
endtask
 
Browse

Tools

Subversion Repositories usb11

[/] [usb11/] [trunk/] [bench/] [verilog/] [tests_ocp.v] - Blame information for rev 13

Line No.	Rev	Author	Line
1	2	alfoltran	`/////////////////////////////////////////////////////////////////////`
2			`//// ////`
3			`//// Test Case Collection ////`
4			`//// ////`
5			`//// ////`
6			`//// Author: Rudolf Usselmann ////`
7			`//// rudi@asics.ws ////`
8			`//// ////`
9			`//// Modifications: Alfredo Luiz Foltran Fialho ////`
10			`//// alfoltran@opencores.org ////`
11			`//// ////`
12			`//// Downloaded from: http://www.opencores.org/cores/usb1_funct/////`
13			`//// ////`
14			`/////////////////////////////////////////////////////////////////////`
15			`//// ////`
16			`//// Copyright (C) 2000-2002 Rudolf Usselmann ////`
17			`//// www.asics.ws ////`
18			`//// rudi@asics.ws ////`
19			`//// ////`
20			`//// This source file may be used and distributed without ////`
21			`//// restriction provided that this copyright statement is not ////`
22			`//// removed from the file and that any derivative work contains ////`
23			`//// the original copyright notice and the associated disclaimer.////`
24			`//// ////`
25			//// THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY ////
26			`//// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED ////`
27			`//// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ////`
28			`//// FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR ////`
29			`//// OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ////`
30			`//// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ////`
31			`//// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ////`
32			`//// GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR ////`
33			`//// BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF ////`
34			`//// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ////`
35			`//// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT ////`
36			`//// OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ////`
37			`//// POSSIBILITY OF SUCH DAMAGE. ////`
38			`//// ////`
39			`/////////////////////////////////////////////////////////////////////`
40