Subversion Repositories scan_based_serial_communication

# The list at the beginning defines the scan lists. Defining an input name or output

#                                    name determines what type of scan signal it is.

# Values are always readable (the buffering latch is what is read if writable)

my @signal_list = ( # Inputs - outside to chip

                    { size =>   1, writable => 1, name => 'write_data_1'},

                    { size =>   2, writable => 1, name => 'write_data_2'},

                    { size =>   3, writable => 1, name => 'write_data_3'},

                    # Outputs - chip to outside

                    { size =>   1, writable => 0, name => 'read_data_1'},

                    { size =>   2, writable => 0, name => 'read_data_2'},

                    { size =>   3, writable => 0, name => 'read_data_3'},

                    );

my $scan_chain_length = 0;

for (my $i = 0; $i < scalar @signal_list; $i++) {

    $signal_list[$i]{start} = $scan_chain_length;

    $scan_chain_length += $signal_list[$i]{size};

}