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

Subversion Repositories uart2spi

[/] [uart2spi/] [trunk/] [verif/] [tb/] [uart_tasks.v] - Rev 3

Compare with Previous | Blame | View Log

 
task reg_write;
input [15:0] addr;
input [31:0] data;
reg [7:0] read_data;
reg flag;
begin
   fork
   begin : loop_1
       tb_top.tb_uart.write_char("w");
       tb_top.tb_uart.write_char("m");
       tb_top.tb_uart.write_char(" ");
       tb_top.tb_uart.write_char(hex2char(addr[15:12]));
       tb_top.tb_uart.write_char(hex2char(addr[11:8]));
       tb_top.tb_uart.write_char(hex2char(addr[7:4]));
       tb_top.tb_uart.write_char(hex2char(addr[3:0]));
       tb_top.tb_uart.write_char(" ");
       tb_top.tb_uart.write_char(hex2char(data[31:28]));
       tb_top.tb_uart.write_char(hex2char(data[27:24]));
       tb_top.tb_uart.write_char(hex2char(data[23:20]));
       tb_top.tb_uart.write_char(hex2char(data[19:16]));
       tb_top.tb_uart.write_char(hex2char(data[15:12]));
       tb_top.tb_uart.write_char(hex2char(data[11:8]));
       tb_top.tb_uart.write_char(hex2char(data[7:4]));
       tb_top.tb_uart.write_char(hex2char(data[3:0]));
       tb_top.tb_uart.write_char("\n");
   end
   begin : loop_2
       // Wait for sucess command
       flag = 0;
       while(flag == 0)
       begin
          tb_top.tb_uart.read_char(read_data,flag);
            //$write ("%c",read_data);
       end
   end
   join
end
endtask
 
task reg_read;
input [15:0] addr;
output [31:0] data;
reg [7:0] read_data;
reg flag;
integer i;
begin
   fork
   begin : loop_1
      tb_top.tb_uart.write_char("r");
      tb_top.tb_uart.write_char("m");
      tb_top.tb_uart.write_char(" ");
      tb_top.tb_uart.write_char(hex2char(addr[15:12]));
      tb_top.tb_uart.write_char(hex2char(addr[11:8]));
      tb_top.tb_uart.write_char(hex2char(addr[7:4]));
      tb_top.tb_uart.write_char(hex2char(addr[3:0]));
      tb_top.tb_uart.write_char(" ");
      tb_top.tb_uart.write_char("\n");
   end
   begin : loop_2
      // Wait for sucess command
      flag = 0;
      i = 0;
      while(flag == 0)
      begin
         tb_top.tb_uart.read_char(read_data,flag);
         //$write ("%d:%c",i,read_data);
           case (i)
           8'd10 : data[31:28] = char2hex(read_data);
           8'd11 : data[27:24] = char2hex(read_data);
           8'd12 : data[23:20] = char2hex(read_data);
           8'd13 : data[19:16] = char2hex(read_data);
           8'd14 : data[15:12] = char2hex(read_data);
           8'd15 : data[11:8]  = char2hex(read_data);
           8'd16 : data[7:4]   = char2hex(read_data);
           8'd17 : data[3:0]   = char2hex(read_data);
           endcase
	   i = i+1;
      end
   end
   join
   //$display("Receoved Data: %x",data);
 
end
endtask
 
// Character to hex number
function [3:0] char2hex;
input [7:0] data_in;
case (data_in)
     8'h30:	char2hex = 4'h0; // character '0' 
     8'h31:	char2hex = 4'h1; // character '1'
     8'h32:	char2hex = 4'h2; // character '2'
     8'h33:	char2hex = 4'h3; // character '3'
     8'h34:	char2hex = 4'h4; // character '4' 
     8'h35:	char2hex = 4'h5; // character '5'
     8'h36:	char2hex = 4'h6; // character '6'
     8'h37:	char2hex = 4'h7; // character '7'
     8'h38:	char2hex = 4'h8; // character '8'
     8'h39:	char2hex = 4'h9; // character '9'
     8'h41:	char2hex = 4'hA; // character 'A'
     8'h42:	char2hex = 4'hB; // character 'B'
     8'h43:	char2hex = 4'hC; // character 'C'
     8'h44:	char2hex = 4'hD; // character 'D'
     8'h45:	char2hex = 4'hE; // character 'E'
     8'h46:	char2hex = 4'hF; // character 'F'
     8'h61:	char2hex = 4'hA; // character 'a'
     8'h62:	char2hex = 4'hB; // character 'b'
     8'h63:	char2hex = 4'hC; // character 'c'
     8'h64:	char2hex = 4'hD; // character 'd'
     8'h65:	char2hex = 4'hE; // character 'e'
     8'h66:	char2hex = 4'hF; // character 'f'
      default :  char2hex = 4'hF;
   endcase 
endfunction
 
// Hex to Asci Character 
function [7:0] hex2char;
input [3:0] data_in;
case (data_in)
     4'h0:	hex2char = 8'h30; // character '0' 
     4'h1:	hex2char = 8'h31; // character '1'
     4'h2:	hex2char = 8'h32; // character '2'
     4'h3:	hex2char = 8'h33; // character '3'
     4'h4:	hex2char = 8'h34; // character '4' 
     4'h5:	hex2char = 8'h35; // character '5'
     4'h6:	hex2char = 8'h36; // character '6'
     4'h7:	hex2char = 8'h37; // character '7'
     4'h8:	hex2char = 8'h38; // character '8'
     4'h9:	hex2char = 8'h39; // character '9'
     4'hA:	hex2char = 8'h41; // character 'A'
     4'hB:	hex2char = 8'h42; // character 'B'
     4'hC:	hex2char = 8'h43; // character 'C'
     4'hD:	hex2char = 8'h44; // character 'D'
     4'hE:	hex2char = 8'h45; // character 'E'
     4'hF:	hex2char = 8'h46; // character 'F'
   endcase 
endfunction
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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