[Oberon] Re (2): File transfer.

Tomas Kral thomas.kral at email.cz
Fri Jun 9 16:34:29 CEST 2017


Hi,

Interesting topic.

I use emulated world to connect to real FPGA system.
My setup is OLR on RPI <-- usb/serial cable --> FPGA Oberon.

On FPGA side I run PCLink1.
On OLR side I run modified ORC.Mod, see below diff

pi at raspberrypi /usr/src/oberon $ diff -w ORC.Mod.txt ORC.Mod.txt~
3,4c3,4
<   CONST (* portno = 1;  *) (*RS-232*)
<     BlkLen = 255; (* pno = 1; *)
---
>   CONST portno = 1; (*RS-232*)
>     BlkLen = 255; pno = 1;
9d8
<   portno, pno: LONGINT;
21,22c20
<   BEGIN portno := V24.Open( "/dev/ttyUSB1"); pno := portno;
<   V24.Start(pno, 19200, 8, V24.ParNo, V24.Stop1, res);
---
>   BEGIN V24.Start(pno, 19200, 8, V24.ParNo, V24.Stop1, res);
150,153c148,149
<   BEGIN (*V24.Send(pno, CLS, res);*)
<     V24.Close(portno);
<     Texts.WriteString(W, "Server closed"); Texts.WriteLn(W);
Texts.Append(Oberon.Log, W.buf); <   portno := 0; pno := portno
---
>   BEGIN V24.Send(pno, CLS, res);
>     Texts.WriteString(W, "Server closed"); Texts.WriteLn(W);
> Texts.Append(Oberon.Log, W.buf)

I have also coded these shell utilities,
orc.set
orc.send
orc.receive
that will allow to transfer files directly from unix host file system,
`orc.set' is also needed to set /dev/ttyUSB{n} device parameters.

Some of my discussion here,
http://saanlima.com/forum/viewtopic.php?f=14&t=1280&start=10

-- 
Tomas Kral <thomas.kral at email.cz>


More information about the Oberon mailing list