April 2016 - Oberon - mailman3.inf.ethz.ch

System V5 - Kernel Real Time Clock - RTC
by Tomas Kral 11 Apr '16

11 Apr '16

Hi, I was thinking how to implement an RTC on FPGA Oberon. Time can be set as follows, System.Date dd mm yy hh mm ss ~ Currently the system clock does not tick. There was a lecture at ETH in 2015 given by Paul Reed, about clock be implemented as a network client, in his paper it says: Exercise 2d: (optional) Develop a Network Time Client - Step 1: add proc. WordMode() to set ctrl to 06H; - in Setup() also write reg 7=70H, 11H=20H, and - BeginCmd(0E2H); EndCmd; all before enabling radio - Step 2: in Tick after displaying status but before Setup(): - if ODD(status DIV 40H) then BeginCmd 61H, set WordMode - SPI(0), get spiData into new variable hdr; - SPI(0), get spiData into new variable len; - SPI(0), get spiData into new variable time; EndCmd - Step 3: if hdr DIV 1000000H = 47H and len=4, then Oberon.SetClock(time) - import Display and ReplConst(1, 900, 10, 100, 100, 2) when time updated - (or ReplConst(1, 1013, 744, 4, 4, 2) is more subtle) ! - Step 4: run and check time is updated with System.Date So far I am not able to follow, does anybody have some experience and could possibly provide more explanation. I guess SCC.Mod that handles the radio needs to be modified, but I cannot see how. Many thanks -- Tomas Kral <thomas.kral(a)email.cz>

1 0

Oberon with strings, Eberon
by Lars 11 Apr '16

11 Apr '16

Found an oberon programmer who "gets it".. i.e. spinach https://github.com/vladfolts/oberonjs/wiki/Eberon-Strings Have to research this. I'm posting it to the list to make it more known that there are people who know of the string problem and aren't denying it. With all these forks of oberon, it's the same problem as standard pascal. You have about 200 different versions of pascal floating around, because standard pascal was castrated and circumscribed in its standard form. So people extend it which fragments the community into hundreds of forks.

7 17

Drivers in proyect oberon emulator
by Ramiro Vargas 11 Apr '16

11 Apr '16

Hi, Im trying to identify the archives where the risc emulator https://github.com/pdewacht/oberon-risc-emu manage the drivers for Mouse,Keyboard,Screen until now I think that is the one terminated in "SDL" Thanks in advance

1 0

Re: [Oberon] Trying to understand vertical scrolling
by Andreas Pirklbauer 11 Apr '16

11 Apr '16

Hello, I have no objection to adding a section on Experimental Oberon on http://www.ocp.inf.ethz.ch/wiki/OCP/Downloads. However, I don't have the password to edit that site, so feel free to add to the site if you have access to its editing function. A section on "Experimental Oberon" could look something along the lines of: Experimental Oberon------------------------Revision of the original Oberon operating system (2013 Edition, as described on http://projectoberon.com) containing a number of simplifications, generalizations and enhancements to the functionality, the module structure and the boot process, including: 1. Continuous fractional line scrolling with variable line spaces2. Multiple logical display areas (virtual displays)3. Streamlined viewer message type hierarchy4. Unified viewer concept5. Refined module structure6. Simplified boot process7. Rudimentary system building tools8. Tools to modify the Oberon inner core Experimental Oberon can be found here: https://github.com/andreaspirklbauer/Oberon-experimental A description of the differences between Experimental Oberon an Original Oberon can be found here: https://github.com/andreaspirklbauer/Oberon-experimental/blob/master/Docume… Various sub-repositories containing only certain features of Experimental Oberon can be found here: https://github.com/andreaspirklbauer ==== peter at easthope.ca peter at easthope.ca Hello Andreas, From: Andreas Pirklbauer <andreas_pirklbauer at yahoo.com>, Fri, 8 Apr 2016 10:39:51 +0000> ... modules Display, MenuViewers, TextFrames from:> http://www.github.com/andreaspirklbauer/Oberon-fractional-scroll-fixed-line… To make your work more accessible, a section in http://www.ocp.inf.ethz.ch/wiki/OCP/Downloads ? Something such as this for example. Experimental Oberon (or Experiments with Oberon?)https://github.com/andreaspirklbauerExperiments with module structure, boot process, display multiplicity, text layout and fractional scrolling. Anyone object to including such new section? How do you state the description? Thanks, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12Tel +1 360 639 0202 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

2 1

Access to Experimental Oberon; was "Trying to understand vertical scrolling"
by peter＠easthope.ca 10 Apr '16

10 Apr '16

From: Andreas Pirklbauer <andreas_pirklbauer(a)yahoo.com> Date: Sun, 10 Apr 2016 17:11:06 +0000 (UTC) > I have no objection to adding a section on Experimental > Oberon on http://www.ocp.inf.ethz.ch/wiki/OCP/Downloads. Done. Some time back I ordered the sections alphabetically. Given that your section is longer than the others, it is at the end for now. Some readers might prefer to see details at github and a summary of one sentence at ethz.ch. You'll see a few small changes in grammar and a few simplifications in wording. Long before Oberon was a twinkle in Prof. Wirth's eye I was taught to "write as simply as possible". If anything is too irritating, just let me know. Regards, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12 Tel +1 360 639 0202 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Fwd: Re: paint-tool-pict-pictureframes
by scrutinizer 10 Apr '16

10 Apr '16

Dear Tomas, attached different Bitmaps.mod guess you can derive the details. best Gunter -- one module uses Display from X11 version of oberon system v4: MODULE Display; (* RC 13.1.93 *) (* Based on X Window System Version 11 *) IMPORT X11, Console, Unix, S := SYSTEM, Dbg := DebugOutput; ... guess you find it some distros. it won't help much for fpga oberon On 09/04/16 12:05, thomas.kral(a)email.cz wrote: > Dear Guenter, > > I have now completed my first task of porting Ceres-2 Splines.Mod to FPGA Oberon System V5. > As it is part of Draw package. > > I now wish to focus on Paint.Mod, the Modules needed below, > > Bitmaps -> PictureFrames -> Pictures -> Paint > > I have Bitmaps from OLR and the rest kindly provided by yourself. > > I would like to start with Bitmaps, as it is not portable code, I wish to know some background, in case it is documented somewhere. > > Could you please advise? > > Many thanks > Tomas > >

2 1

Installation of NO
by peter＠easthope.ca 10 Apr '16

10 Apr '16

>From sinu.nayak2001 at gmail.com Sun Apr 3 17:38:38 2016 > By the way, I have a full installation of NO alpha collected from ftp://ftp.ethoberon.ethz.ch/ ... Just added the commands to retrieve the zip archives for system rebuilding and made a few other small edits. Desktops.OpenDoc "http://www.ocp.inf.ethz.ch/wiki/Documentation/Installation#toc23" Please have a look. I've laid out the commands so that after Oberon0 is installed, addition of Apps1, Apps2 & etc. can be done from NO itself. In the page opened above, section (14). Does that make sense? Can you find any errors or omissions? Thanks, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12 Tel +1 360 639 0202 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

System V5 - Definitions and Implementations
by thomas.kral＠email.cz 10 Apr '16

10 Apr '16

Hi, I found this example in Programming in Oberon (PIO) book. The PO 2013 project documentation uses Definitions frequently to describe various system functionality, it is easy for the reader to follow concepts without need to understand all details of Implementation. It is a very descriptive aid for documenting, however how can Definitions be used from a programmer's point of view? DEFINITION Buffer; VAR nonempty, nonfull: BOOLEAN; PROCEDURE put(x: INTEGER); PROCEDURE get(VAR x: INTEGER); END Buffer. MODULE Buffer; (*cyclic buffer of integers*) CONST N = 100; VAR nonempty*, nonfull*: BOOLEAN; in, out, n: INTEGER; buf: ARRAY N OF INTEGER; PROCEDURE put*(x: INTEGER); BEGIN IF n < N THEN buf[in] := x; in := (in+1) MOD N; INC(n); nonfull := n < N; nonempty := TRUE END END put; PROCEDURE get*(VAR x: INTEGER); BEGIN IF n > 0 THEN x := buf[out]; out := (out+1) MOD N; DEC(n); nonempty := n > 0; nonfull := TRUE END END get; BEGIN (*initialize*) n := 0; in := 0; out := 0; nonempty := FALSE; nonfull := TRUE END Buffer. Many thanks Tomas

5 5

Re: [Oberon] Trying to understand vertical scrolling
by peter＠easthope.ca 10 Apr '16

10 Apr '16

Hello Andreas, From: Andreas Pirklbauer <andreas_pirklbauer(a)yahoo.com>, Fri, 8 Apr 2016 10:39:51 +0000 > ... modules Display, MenuViewers, TextFrames from: > http://www.github.com/andreaspirklbauer/Oberon-fractional-scroll-fixed-line… To make your work more accessible, a section in http://www.ocp.inf.ethz.ch/wiki/OCP/Downloads ? Something such as this for example. Experimental Oberon (or Experiments with Oberon?) https://github.com/andreaspirklbauer Experiments with module structure, boot process, display multiplicity, text layout and fractional scrolling. Anyone object to including such new section? How do you state the description? Thanks, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12 Tel +1 360 639 0202 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Re (2): My understanding of NO boot mechanics.
by peter＠easthope.ca 10 Apr '16

10 Apr '16

From: Srinivas Nayak <sinu.nayak2001(a)gmail.com> > ... boot method. Also, google of "site:www.ocp.inf.ethz.ch/wiki/ boot" finds http://www.ocp.inf.ethz.ch/wiki/Documentation/BootManager" , as far as I know, written by Andre Fischer. He did a spendid job. Still, with "fresh eyes" and interest, you might find a improvements possible. You or another can edit. Regards, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12 Tel +1 360 639 0202 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0