URL
https://opencores.org/ocsvn/usb2uart/usb2uart/trunk
Subversion Repositories usb2uart
[/] [usb2uart/] [trunk/] [verify/] [tests/] [usb_test1.v] - Rev 3
Compare with Previous | Blame | View Log
`define usbbfm tb.u_usb_agent.bfm_inst task usb_test1; reg [6:0] address; reg [3:0] endpt; reg [3:0] Status; reg [31:0] ByteCount; integer i,j; reg [7:0] startbyte; reg [15:0] mask; integer MaxPktSize; reg [3:0] PackType; parameter MYACK = 4'b0000, MYNAK = 4'b0001, MYSTALL = 4'b0010, MYTOUT = 4'b0011, MYIVRES = 4'b0100, MYCRCER = 4'b0101; begin $display("%0d: USB Reset -----", $time); tb.u_usb_agent.bfm_inst.usb_reset(48); address = 1; endpt = 0; $display("%0d: Set Address = %x -----", $time,address); `usbbfm.SetAddress (address); $display("%0d: Sending Setup Command ", $time); `usbbfm.setup(7'h00, 4'h0, Status); `usbbfm.printstatus(Status, MYACK); $display("%0d: Sending Status Command ", $time); `usbbfm.status_IN(7'h00, endpt, Status); `usbbfm.printstatus(Status, MYACK); #5000; $display("%0d: Set configuration -----", $time); `usbbfm.SetConfiguration(2'b01); `usbbfm.setup(address, 4'b0000, Status); `usbbfm.printstatus(Status, MYACK); `usbbfm.status_IN(address, 4'b0000, Status); `usbbfm.printstatus(Status, MYACK); #2000; $display("%0d: Configuration done !!!!!!", $time); tb.test_control.finish_test; end endtask