uart write text for big strings

[Skydec]

Is there a function, or does anyone made one to send bigger strings over the uart? the standard write text function can only send 20 chars at once but I want to send 100 chars at once.

[yo2lio]

Code: Select all

program test;

var my_data : string[1024];

procedure Uart1_Write_Text_(var uart_text : string[$FFFF]);
var pt1 : ^byte;
    data_in : byte;
begin
  pt1 := @uart_text;
  while true do
    begin
      data_in := pt1^;
      if data_in = 0 then break; // end of string
      Uart1_Write_Char(data_in);
    end;
end;

begin
  my_data := '123456789';
  Uart1_Init(9600);
  Uart1_Write_Text_(my_data);
end.

[Skydec]

Thanks,

But it doesn't work..
I think there is an overrun on Uart1_Write_Char (I don't know if the controller is waiting till the caracter is send out, I believe not and the while loop runs at highspeed)

[yo2lio]

Did you read this : http://www.mikroe.com/forum/viewtopic.php?t=3718 ?

[Skydec]

No I didn't but I don't think that's the issue, because when I use the standard write text, it works fine, as long as I stay under the 20 chars.
Maybe I'll rewrite the code a bit to run it interrupt driven, hooefully that will fix it.

Thanks!