OpenCores
URL https://opencores.org/ocsvn/scan_based_serial_communication/scan_based_serial_communication/trunk

Subversion Repositories scan_based_serial_communication

[/] [scan_based_serial_communication/] [trunk/] [scan_signal_list.pl] - Blame information for rev 2

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

Line No. Rev Author Line
1 2 Quanticles
 
2
 
3
# The list at the beginning defines the scan lists. Defining an input name or output
4
#                                    name determines what type of scan signal it is.
5
 
6
# Values are always readable (the buffering latch is what is read if writable)
7
 
8
my @signal_list = ( # Inputs - outside to chip
9
                    { size =>   1, writable => 1, name => 'write_data_1'},
10
                    { size =>   2, writable => 1, name => 'write_data_2'},
11
                    { size =>   3, writable => 1, name => 'write_data_3'},
12
 
13
                    # Outputs - chip to outside
14
                    { size =>   1, writable => 0, name => 'read_data_1'},
15
                    { size =>   2, writable => 0, name => 'read_data_2'},
16
                    { size =>   3, writable => 0, name => 'read_data_3'},
17
                    );
18
 
19
my $scan_chain_length = 0;
20
 
21
for (my $i = 0; $i < scalar @signal_list; $i++) {
22
    $signal_list[$i]{start} = $scan_chain_length;
23
    $scan_chain_length += $signal_list[$i]{size};
24
}

powered by: WebSVN 2.1.0

© copyright 1999-2020 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.