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

Subversion Repositories uart2bus

[/] [uart2bus/] [trunk/] [scilab/] [calc_baud_gen.sce] - Diff between revs 2 and 7

Only display areas with differences | Details | Blame | View Log

Rev 2 Rev 7
// a short script to calaculate the baud rate generation parameters for the
// a short script to calaculate the baud rate generation parameters for the
// UART to Bus core
// UART to Bus core
mode(-1)
mode(-1)
// define the GCD function since Scilab prefers to use a different function as gcd
// define the GCD function since Scilab prefers to use a different function as gcd
function x = gcdn(a,b)
function x = gcdn(a,b)
x = zeros(length(b),length(a));
x = zeros(length(b),length(a));
for n=1:length(a),
for n=1:length(a),
        for m=1:length(b),
        for m=1:length(b),
                x=a(n);
                x=a(n);
                y=b(m);
                y=b(m);
                while y~=0
                while y~=0
                        r=modulo(x,y);
                        r=modulo(x,y);
                        x=y;
                        x=y;
                        y=r;
                        y=r;
                end
                end
                x(m,n) = x;
                x(m,n) = x;
        end
        end
end
end
endfunction
endfunction
// request the required clock rate and baud rate parameters
// request the required clock rate and baud rate parameters
dig_labels = ["Clock Frequency in MHz"; "UART Baud Rate in bps"];
dig_labels = ["Clock Frequency in MHz"; "UART Baud Rate in bps"];
default_val = ["40", "115200"];
default_val = ["40"; "115200"];
params = evstr(x_mdialog("Enter Core Parameters", dig_labels, default_val));
params = evstr(x_mdialog("Enter Core Parameters", dig_labels, default_val));
// extract the parameters
// extract the parameters
global_clock_freq = params(1)*1e6;
global_clock_freq = params(1)*1e6;
baud_rate = params(2);
baud_rate = params(2);
// calculate the baud rate generator parameters
// calculate the baud rate generator parameters
D_BAUD_FREQ = 16*baud_rate / gcdn(global_clock_freq, 16*baud_rate);
D_BAUD_FREQ = 16*baud_rate / gcdn(global_clock_freq, 16*baud_rate);
D_BAUD_LIMIT = (global_clock_freq / gcdn(global_clock_freq, 16*baud_rate)) - D_BAUD_FREQ;
D_BAUD_LIMIT = (global_clock_freq / gcdn(global_clock_freq, 16*baud_rate)) - D_BAUD_FREQ;
// print the values to the command window
// print the values to the command window
printf("Calculated core baud rate generator parameters:\n");
printf("Calculated core baud rate generator parameters:\n");
printf("    D_BAUD_FREQ  = 12''d%d\n", D_BAUD_FREQ);
printf("    D_BAUD_FREQ  = 12''d%d\n", D_BAUD_FREQ);
printf("    D_BAUD_LIMIT = 16''d%d\n", D_BAUD_LIMIT);
printf("    D_BAUD_LIMIT = 16''d%d\n", D_BAUD_LIMIT);
// open a message with the calculated values
// open a message with the calculated values
mes_str = ["Calculated core baud rate generator parameters:"; ...
mes_str = ["Calculated core baud rate generator parameters:"; ...
           "    D_BAUD_FREQ  = "+string(D_BAUD_FREQ); ...
           "    D_BAUD_FREQ  = "+string(D_BAUD_FREQ); ...
           "    D_BAUD_LIMIT = "+string(D_BAUD_LIMIT); ...
           "    D_BAUD_LIMIT = "+string(D_BAUD_LIMIT); ...
           ""; ...
           ""; ...
           "The verilog definition can be copied from the following lines:"; ...
           "The verilog definition can be copied from the following lines:"; ...
           "`define D_BAUD_FREQ  12''d"+string(D_BAUD_FREQ); ...
           "`define D_BAUD_FREQ  12''d"+string(D_BAUD_FREQ); ...
           "`define D_BAUD_LIMIT 16''d"+string(D_BAUD_LIMIT);
           "`define D_BAUD_LIMIT 16''d"+string(D_BAUD_LIMIT);
           ];
           ];
x_message_modeless(mes_str);
messagebox(mes_str);
 
 

powered by: WebSVN 2.1.0

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