URL
https://opencores.org/ocsvn/uart16750/uart16750/trunk
[/] [uart16750/] [trunk/] [sim/] [rtl_sim/] [bin/] [uart_test_stim.pl] - Diff between revs 23 and 25
Show entire file |
Details |
Blame |
View Log
| Rev 23 |
Rev 25 |
| Line 35... |
Line 35... |
# Prototypes
|
# Prototypes
|
sub logmessage($); # Message
|
sub logmessage($); # Message
|
sub uart_write($$); # Address, Data
|
sub uart_write($$); # Address, Data
|
sub uart_read($$); # Address, Expected data
|
sub uart_read($$); # Address, Expected data
|
sub uart_setbaudrate($); # Baudrate
|
sub uart_setbaudrate($); # Baudrate
|
|
sub uart_eu_send($); # Send serial data from external UART
|
|
|
##################################################################
|
##################################################################
|
# Main process
|
# Main process
|
##################################################################
|
##################################################################
|
# Register addresses
|
# Register addresses
|
| Line 799... |
Line 800... |
}
|
}
|
if (TEST_AFC) {
|
if (TEST_AFC) {
|
uart_check_afc ();
|
uart_check_afc ();
|
}
|
}
|
|
|
logmessage ("UART: Test end");
|
|
|
|
##################################################################
|
##################################################################
|
# End main process
|
# End main process
|
##################################################################
|
##################################################################
|
|
|
|
|
| Line 930... |
Line 929... |
for (my $i = 0; $i < $_[0]; $i++) {
|
for (my $i = 0; $i < $_[0]; $i++) {
|
uart_rrbr ($i + $_[1]);
|
uart_rrbr ($i + $_[1]);
|
}
|
}
|
}
|
}
|
|
|
|
# Send serial data from external UART
|
|
sub uart_eu_send($)
|
|
{
|
|
printf ("#EUS 8 %d\n", $_[0]);
|
|
}
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.