[Oberon] Oberon RS232 - file exchange with Linux / OLR for RPI

Thu Apr 7 22:39:53 CEST 2016

Please try this open procedure in V24.Open:

PROCEDURE Open*( ttyname: ARRAY OF CHAR): LONGINT;
BEGIN
	RETURN Linux0.Open0(SYSTEM.ADR(ttyname[0]), Linux0.RDWR+1000H , 0);
END Open;

1000H is D_SYNC flag, should be same on x86 and ARM. If this does not 
work you would have to send me the relevant output of "strace ./ola" for 
debugging.

Regards,
	Peter

Am 06.04.2016 um 22:08 schrieb thomas.kral at email.cz:
> Peter,
>
> I have compiled both OLR.V24.Mod and ORC.Mod.
> I modified ORC.Mod, I thought I had to ...
> ...
> VAR
>      portno, pno:  LONGINT;
> ....
> BEGIN Texts.OpenWriter(W);
>      portno := V24.Open("/dev/ttyUSB1");
>      pno := portno;
> END ORC;
>
> When receiving a file, I always get only the first block of 255 bytes.
>
> ORC.TestReq reports 16 = 10H = ACK
> ORC.Open reports "connection open"
>
> But I am not able to receive the whole file, only its first block.
>
> Can you please advise?
>
> Many thanks so far.
> Tomas
>
> ---------- Původní zpráva ----------
> Od: thomas.kral at email.cz
> Komu: Peter Matthias
> Datum: 3. 4. 2016 18:47:16
> Předmět: Re: [Oberon] Oberon RS232 - file exchange with Linux / OLR for
>   RPI
>
> Peter,
>
> Thanks so much, I will test and let you know.
>
> Meanwhile I managed to transfer the whole Bitmaps.Mod right from the shell,
>
> # longer files >255 could be split into blocks
> $ split -b255 Bitmaps.Mod
>
> # with $FF length byte inserted to the start of each
> $ for f in [a-z]*; do echo -ne \\xff | cat - $f > $f.1; done
>
> # length byte of the last block <255 must be adjusted by hand
>
> # send REC and file name terminated with NULL!
> $ echo -ne \\x21'Bitmaps.Mod'\\0 > /dev/ttyUSB1
>
> # copy all blocks in a loop
> for f in *.1; do echo $f; cp $f /dev/ttyUSB1; done
>
> Note after each packet sent, ACK should be waited for, this may not be easy to do in shell.
>
> Tomas
>
> ---------- Původní zpráva ----------
> Od: Peter Matthias
> Komu: thomas.kral at email.cz
> Datum: 3. 4. 2016 17:31:09
> Předmět: Fwd: Re: [Oberon] Oberon RS232 - file exchange with Linux / OLR for
>   RPI
>
> Hi Thomas,
>
> since default parameters seem to work for you, I made a q&d implementation.
> You will first have to open /dev/ttyUSB1 to get the port No.
>
> Regards,
> 	Peter
>
> -------- Weitergeleitete Nachricht --------
> Betreff: Re: [Oberon] Oberon RS232 - file exchange with Linux / OLR for RPI
> Datum: Sun, 3 Apr 2016 15:41:03 +0200
> Von: thomas.kral at email.cz
> Antwort an: ETH Oberon and related systems
> An: Peter Matthias
> Kopie (CC): ETH Oberon and related systems
>
> Peter,
>
> Thanks for explaining now I see.
>
> I have RISC5 (FPGA Project Oberon 2013) connected to RPI running OLR.
> I wanted to exchange files using PCLink1 task at RISC5 end with ORC
> master/client on RPI end, as ORC is part of the project.
>
> Meanwhile I managed my 1st file exchange right from Linux shell, file is
> <255 bytes in length = 1 block.
> It took me a very long time to discover that name is NULL terminated, I
> was putting leading length byte in front first.
>
> # send REC and file name terminated with NULL!
> $ echo -ne \\x21'Test.txt'\\0 > /dev/ttyUSB1
>
> # copy one block <255 over line
> $ cp Test.txt /dev/ttyUSB1
>
> On Oberon screen I got ..
> receiving Test.txt done
>
> So far so good -:)
>
> Peter, is there a way to compile in modules for OLR/RPI to support
>    /dev/ttyUSBn
> Could you please advise?
>
> This would allow to run ORC master client, which really is the way to
> exchange files and also boot RISC5 over RS232 as documented in the project.
>
> Many thanks so far
> Tomas
>
>
> ---------- Původní zpráva ----------
> Od: Peter Matthias
> Komu: thomas.kral at email.cz, ETH Oberon and related systems
> Datum: 3. 4. 2016 14:56:46
> Předmět: Re: [Oberon] Oberon RS232 - file exchange with Linux / OLR for RPI
>
> Hi Tomas,
>
> I was only following this thread half way.
>
> Turns out, you want to connect something via V24 to OLR.
>
> Well, V24 like Centronics and network only are dummy modules needed to
> compile other Modules. So you currently have to transfer files via Linux.
>
> Peter
>
> Am 03.04.2016 um 10:49 schrieb thomas.kral at email.cz:
>> Chris,
>>
>> Thank you, this helps.
>>
>> In V24.Mod I can see port number is defined as CONST
>>
>> portno = 1 but also as pno = 1
>>
>> I tried recompiling with other values, same thing.
>>
>> On RPI as on Pepino, serial ports are configured over USB channels.
>> I power Pepino from RPI using uUSB cable, it carries the data link as well.
>>
>> /dev/ttyUSB0 - configured as COM1
>> /dev/ttyUSB1 - configured as COM2
>>
>> Changing the port number to 2 does not help.
>>
>> Also I noticed OLR provides two modules:
>> V24.Mod and OLR.V24.Mod - portable, there is also ConfigV24.Mod.
>>
>> It seems ports are hooked to IRQs in nonportable version assuming x86 platform?
>>
>> I am putting Peter Matthias in cc, in hope he may be of help as far as OLR goes.
>> So the question might be, how to enable serial ports in OLR/RPI ports?
>>
>> Many thanks so far
>> Tomas
>>
>> ---------- Původní zpráva ----------
>> Od: Chris Burrows
>> Komu: ETH Oberon and related systems
>> Datum: 3. 4. 2016 9:52:51
>> Předmět: Re: [Oberon] Oberon RS232 - file exchange with Linux
>>
>>> -----Original Message-----
>>> From: thomas.kral at email.cz [mailto:thomas.kral at email.cz]
>>> Sent: Sunday, 3 April 2016 4:49 PM
>>> To: chris at cfbsoftware.com; ETH Oberon and related systems
>>> Subject: Re: [Oberon] Oberon RS232 - file exchange with Linux
>>>
>>> On LNO - OLR for RPI, I got ...
>>>
>>> OCR.Open - open V24, error=2
>>> OCR.Send Test.txt - connection not open
>>> OCR.TestReq - I got 0 (zero reply)
>>>
>>
>> Look up error 2 in the source code of your Linux version of V24.Mod.  In the Windows version of V24.Mod the CONST error definitions include:
>>
>>     NoSuchPort* = 2;
>>
>> If that is the same for you, check which port you are using in ORC. Make sure it corresponds to the RS232 port on your PC that you have connected to the Pepino board.
>>
>> Regards,
>> Chris
>>
>> CFB Software
>> http://www.astrobe.com/RISC5
>>
>>
>> --
>> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
>> https://lists.inf.ethz.ch/mailman/listinfo/oberon
>>
> --
> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
> https://lists.inf.ethz.ch/mailman/listinfo/oberon
> --
> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
> https://lists.inf.ethz.ch/mailman/listinfo/oberon
>