[Oberon] PO2013 - SD Image Tool

[Joerg]

Tomas

Is your RecByte the whole code?
Where do you read the character?

br
Jörg

> Am 21.05.2020 um 12:20 schrieb Tomas Kral <thomas.kral at email.cz>:
> 
> On Thu, 21 May 2020 12:11:57 +0200
> Tomas Kral <thomas.kral at email.cz> wrote:
> 
>> This is what troubles me. With Oberon0 commands producing some longer
>> output, ORC times out before reading pending data.
> 
> MODULE ORC
> CONST Tout = 1000;
> 
>  PROCEDURE RecByte(VAR ch: CHAR);
>    VAR T: LONGINT; ch0: CHAR;
>  BEGIN T := Oberon.Time() + Tout;
>    REPEAT UNTIL (V24.Available(portno) > 0) OR (Oberon.Time() >= T);
>  END RecByte;
> 
>  PROCEDURE SR*;
>   (*receive input*)
>    REPEAT RecByte(xch);
>      IF xch = 0X THEN Texts.WriteString(W, " timeout"); Flush
>  END SR;
> 
> -- 
> Tomas Kral <thomas.kral at email.cz>
> --
> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
> https://lists.inf.ethz.ch/mailman/listinfo/oberon