/*===========================================================================*/
|
/*===========================================================================*/
|
/* DIGITAL I/O */
|
/* DIGITAL I/O */
|
/*---------------------------------------------------------------------------*/
|
/*---------------------------------------------------------------------------*/
|
/* Test the Digital I/O interface. */
|
/* Test the Digital I/O interface. */
|
/*===========================================================================*/
|
/*===========================================================================*/
|
|
|
reg [32*8-1:0] rx_chain;
|
`define VERY_LONG_TIMEOUT
|
integer rx_offset;
|
|
|
// Data rate
|
|
parameter UART_FREQ = 115200;
|
|
integer UART_PERIOD = 1000000000/UART_FREQ;
|
|
|
|
|
reg [7:0] rxbuf;
|
reg [7:0] rxbuf;
|
integer rxcnt;
|
integer rxcnt;
|
`define BAUD 140
|
|
|
|
task uart_rx;
|
task uart_rx;
|
begin
|
begin
|
@(negedge UART_TXD);
|
@(negedge UART_TXD);
|
rxbuf = 0;
|
rxbuf = 0;
|
repeat(`BAUD*3/2) @(posedge mclk);
|
#(UART_PERIOD*3/2);
|
for (rxcnt = 0; rxcnt < 8; rxcnt = rxcnt + 1)
|
for (rxcnt = 0; rxcnt < 8; rxcnt = rxcnt + 1)
|
begin
|
begin
|
rxbuf = {UART_TXD, rxbuf[7:1]};
|
rxbuf = {UART_TXD, rxbuf[7:1]};
|
repeat(`BAUD) @(posedge mclk);
|
#(UART_PERIOD);
|
end
|
end
|
|
$write("%s", rxbuf);
|
|
$fflush();
|
end
|
end
|
endtask
|
endtask
|
|
|
task uart_tx;
|
task uart_tx;
|
input [7:0] txbuf;
|
input [7:0] txbuf;
|
|
|
reg [9:0] txbuf_full;
|
reg [9:0] txbuf_full;
|
integer txcnt;
|
integer txcnt;
|
begin
|
begin
|
UART_RXD = 1'b1;
|
UART_RXD = 1'b1;
|
txbuf_full = {1'b1, txbuf, 1'b0};
|
txbuf_full = {1'b1, txbuf, 1'b0};
|
repeat(`BAUD) @(posedge mclk);
|
#(UART_PERIOD);
|
for (txcnt = 0; txcnt < 10; txcnt = txcnt + 1)
|
for (txcnt = 0; txcnt < 10; txcnt = txcnt + 1)
|
begin
|
begin
|
UART_RXD = txbuf_full[txcnt];
|
UART_RXD = txbuf_full[txcnt];
|
// txbuf_full = {txbuf_full[8:1], 1'b0};
|
#(UART_PERIOD);
|
repeat(`BAUD) @(posedge mclk);
|
|
end
|
end
|
end
|
end
|
endtask
|
endtask
|
|
|
|
initial forever uart_rx;
|
|
|
|
|
initial
|
initial
|
begin
|
begin
|
$display(" ===============================================");
|
$display(" ===============================================");
|
$display("| START SIMULATION |");
|
$display("| START SIMULATION |");
|
$display(" ===============================================");
|
$display(" ===============================================");
|
repeat(5) @(posedge CLK_50MHz);
|
repeat(5) @(posedge CLK_50MHz);
|
stimulus_done = 0;
|
stimulus_done = 0;
|
rx_chain = 0;
|
|
rx_offset = 0;
|
|
|
|
while (rx_offset<1)
|
|
begin
|
|
uart_rx;
|
|
rx_chain = rx_chain | (rxbuf << (31*8-(8*rx_offset)));
|
|
rx_offset = rx_offset+1;
|
|
end
|
|
|
|
repeat(50) @(posedge CLK_50MHz);
|
|
uart_tx("a");
|
|
|
|
// repeat(5000) @(posedge mclk);
|
UART_RXD = 1'b1;
|
// UART_RXD = 1;
|
|
// repeat(160) @(posedge mclk);
|
|
// UART_RXD = 0;
|
|
// repeat(160) @(posedge mclk);
|
|
// UART_RXD = 1;
|
|
// repeat(160) @(posedge mclk);
|
|
// UART_RXD = 0;
|
|
// repeat(160) @(posedge mclk);
|
|
// UART_RXD = 1;
|
|
// repeat(160) @(posedge mclk);
|
|
// UART_RXD = 0;
|
|
// repeat(160) @(posedge mclk);
|
|
// UART_RXD = 1;
|
|
// repeat(160) @(posedge mclk);
|
|
// UART_RXD = 0;
|
|
// repeat(160) @(posedge mclk);
|
|
|
|
|
// Select GPIOs (for software uart)
|
|
SW1 = 1'b0;
|
|
SW0 = 1'b1;
|
|
|
|
// Wait for welcome message to be received
|
|
repeat(125000) @(posedge mclk);
|
|
|
|
// Send something
|
|
uart_tx("B");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("o");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("n");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("j");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("o");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("u");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("r");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx(" ");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx(":");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("-");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx(")");
|
|
repeat(3000) @(posedge mclk);
|
|
uart_tx("\n");
|
|
repeat(3000) @(posedge mclk);
|
|
|
stimulus_done = 1;
|
stimulus_done = 1;
|
//repeat(1000) @(posedge mclk);
|
repeat(10) @(posedge mclk);
|
//$finish();
|
$display("\n");
|
|
$finish();
|
|
|
end
|
end
|
|
|
|
|
