- Oberon - mailman3.inf.ethz.ch

Re (3): Variants table.
by peter＠easthope.ca 25 Oct '23

25 Oct '23

Chris Burrows cfbsoftware at gmail.com, Sat Oct 21 05:41:23 CEST 2023 > A language called Oberon 90 / Oberon-90 never existed as such. The > names are simply recent unofficial pseudonyms / aliases for the original > version of Oberon which underwent several revisions in the period from 1986 > to 1990: Thanks. Nobody argued against splitting the Variants table according to "Source dialect". If I do that, the Cross-platform Oberon can be with the other "Oberan" based systems. The Oberon 90 revisions can be mentioned in a footnote. The overall objective is to help the unsophisticated user who otherwise might be overwhelmed and deterred by complexity. Thx, ... P.L. - VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Oberon on OSnews.
by peter＠easthope.ca 25 Oct '23

25 Oct '23

From: Liam Proven lproven at gmail.com, Wed Oct 25 15:52:45 CEST 2023 > https://www.osnews.com/story/137572/ ... Thanks Liam. In that note, Thom Holwerda remarks, "... runs on all platforms where LeanQt is available ...". I found LeanQt is at https://github.com/rochus-keller/LeanQt . Familiar systems have dozens of precompiled Qt packages. Debian has a long list. A precompiled Qt package might let me try Rochus' Oberon with minimal preparation. Thx, ... P. - VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Oberon on OSnews
by Liam Proven 25 Oct '23

25 Oct '23

«Oberon System 3 compatible with the Oberon+ compiler and IDE» https://www.osnews.com/story/137572/oberon-system-3-compatible-with-the-obe… Rochus' work is starting to get some attention. That's a good thing IMHO. -- Liam Proven ~ Profile: https://about.me/liamproven Email: lproven(a)cix.co.uk ~ gMail/gTalk/FB: lproven(a)gmail.com Twitter/LinkedIn: lproven ~ Skype: liamproven IoM: (+44) 7624 277612: UK: (+44) 7939-087884 Czech [+ WhatsApp/Telegram/Signal]: (+420) 702-829-053

1 0

A new fork of Oberon system 3
by Liam Proven 23 Oct '23

23 Oct '23

https://github.com/mikewarot/OberonSystem3FP « This is Mike Warot's bending of Oberon System 3 (also known as ETH Oberon) to fit with his odd tastes. It's no longer compatible with the Oberon+ compiler, IDE and runtimes and the OBX Platform Abstraction Layer (PAL), and thus truly cross-platform (runs on all platforms where LeanQt is available). The migration is just starting, and highly broken. Nothing works yet at all. I'm just taking stock of the pieces. Anything with a .pas extension has at least recieved some attention. I've learned a few things • If a declaration has a * after it, it's meant to be exported from a unit/module/etc. • The automatic begin of a block to match the expected END is annoying when converting back to pascal • There's a lot of code to go through » -- Liam Proven ~ Profile: https://about.me/liamproven Email: lproven(a)cix.co.uk ~ gMail/gTalk/FB: lproven(a)gmail.com Twitter/LinkedIn: lproven ~ Skype: liamproven IoM: (+44) 7624 277612: UK: (+44) 7939-087884 Czech [+ WhatsApp/Telegram/Signal]: (+420) 702-829-053

1 0

Good News on Ceres-3 recreated on FPGA
by Pablo Cayuela 21 Oct '23

21 Oct '23

This project of Ceres on FPGA by Udo Möller was mentioned many times on the list. There is some good news on it. http://www.cpu-ns32k.net/News.html The Ceres-3 is finally working on an FPGA board featuring a Verilog version of the NS32k CPU used in the original hardware: http://www.cpu-ns32k.net/TRIPUTER.html#Ceres Ceres-3 in Action, Fig. 10 of http://www.cpu-ns32k.net/Ceres.html http://www.cpu-ns32k.net/images/Ceres-3-5.jpg At "The Web Site to Remember National Semiconductor's Series 32000 Family" http://www.cpu-ns32k.net you can find many retrocomputing projects that Udo Möller has built along the years, http://www.cpu-ns32k.net/TITAN6.html http://www.cpu-ns32k.net/TRIPUTER.html featuring his own reconstruction of the NS32k family of CPUs functionality in Verilog based only on the documentation manuals of the chips. His design is called the M32632, http://www.cpu-ns32k.net/Overview.html http://www.cpu-ns32k.net/Architecture.html and it is working on a series of Altera FPGA boards, http://www.cpu-ns32k.net/Devhard.html that anyone could use: http://www.cpu-ns32k.net/Getting.html I even port one of his initial versions of the M32632 to a Xilinx FPGA (Digilent Nexys4 board) but not the complete Ceres-3 project. I hope you find this news interesting. Best regards, Prof Pablo Cayuela Argentina

2 2

Re: [Oberon] Re (2): Variants table.
by Chris Burrows 21 Oct '23

21 Oct '23

On Sat, Oct 21, 2023 at 12:41 PM <peter(a)easthope.ca> wrote: > Hello Chris, > > A difference between Oberon-2 and Oberon 90 (or Oberon-90) was > brought to my attention > > A language called Oberon 90 / Oberon-90 never existed as such. The names are simply recent unofficial pseudonyms / aliases for the original version of Oberon which underwent several revisions in the period from 1986 to 1990: https://people.inf.ethz.ch/wirth/projects.html The differences between the latest 1990 version of *Oberon* and its later (1991) superset, *Oberon-2*, are explained in the document titled "Differences between Oberon and Oberon-2" by Hanspeter Mössenböck, the primary designer of those changes. You can download the document from https://doi.org/10.3929/ethz-a-000589808 -- Chris Burrows Oberon-07 for ARM Cortex-M0, M3, M4 and M7 https://www.astrobe.com

1 0

Re (2): Variants table.
by peter＠easthope.ca 21 Oct '23

21 Oct '23

Hello Chris, A difference between Oberon-2 and Oberon 90 (or Oberon-90) was brought to my attention. From: Chris Burrows <cfbsoftware(a)gmail.com> Date: Sat, 21 Oct 2023 08:35:44 +1030 > Oberon and Oberon-90 are one and the same are they not? If so, that > removes one dialect from the list. Regretably, differences, or lack thereof, between Oberon and Oberon-90 are beyond my knowledge. =8~/ If we're lucky, an expert will illuminate. Regards, ... P.L. - VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Variants table.
by Chris Burrows 20 Oct '23

20 Oct '23

On Sat, Oct 21, 2023 at 7:08 AM <peter(a)easthope.ca> wrote: > Hi, > > The variants table has become quite long. > https://en.wikibooks.org/wiki/Oberon/System_Variants > > With 6 dialects in the source dialect column, the table might be > divided into six; a table with 4 columns for each source dialect. > > Bad idea? Good idea? > > Incidental question. Rochus Keller notified of the distinction > between Oberon-2 and Oberon 90. Is this the correct language report > for Oberon 90? > https://people.inf.ethz.ch/wirth/Oberon/Oberon.Report.pdf > > Oberon and Oberon-90 are one and the same are they not? If so, that removes one dialect from the list. -- Chris Burrows Oberon-07 for ARM Cortex-M0, M3, M4 and M7 https://www.astroeb.com

1 0

Variants table.
by peter＠easthope.ca 20 Oct '23

20 Oct '23

Hi, The variants table has become quite long. https://en.wikibooks.org/wiki/Oberon/System_Variants With 6 dialects in the source dialect column, the table might be divided into six; a table with 4 columns for each source dialect. Bad idea? Good idea? Incidental question. Rochus Keller notified of the distinction between Oberon-2 and Oberon 90. Is this the correct language report for Oberon 90? https://people.inf.ethz.ch/wirth/Oberon/Oberon.Report.pdf Thanks, ... P.L. - VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Wrong results of selected REAL multiplications
by Hans Klaver 16 Oct '23

16 Oct '23

Hi all, Recently when looking into seemingly wrong output of my code for Texts.WriteReal and Texts.WriteRealFix I discovered that Project Oberon RISC5 floating point multiplication gives wrong results for certain selected values. Specifically when multiplying a number containing the digits of a whole power of 2 by a whole power of 10 sometimes results in *half* the value of the right result; this only occurs when the result is (the REAL representation of) an exact whole power of 2; but puzzlingly in some of these cases the error is not produced. E.g.: 100.0 * 2.56 results in 1.280000E+02 = 128.0 (encoded ('raw') hexadecimal integer value: 43000000H) The right result of this multiplication (2.560000E+02) in hex is 43800000H 1.0E5 * 1.31072 results in 6.553600E+04 = 65536.0 (encoded ('raw') hexadecimal integer value: 47800000H) The right result of this multiplication (131072.0) in hex is 48000000H 1.0E6 * 1.048576 results in 5.242880E+05 = 524288.0 (encoded ('raw') hexadecimal integer value: 49000000H) The right result of this multiplication (1048576.0) in hex is 49800000H But in the following similar case the right result is produced: 1.0E3 * 8.192 results in 8.192000 = 8192.0 (encoded ('raw') hexadecimal integer value: 46000000H) You can verify the integer encodings for IEEE 754 floating point values on the following web page: https://float.exposed (click on 'float' (not on 'double'), paste the hex value (without trailing H) into the field 'Raw Hexadecimal Integer Value' and then press Enter). That these wrong results are not explained by wrong output of Texts.WriteReal is indicated by the hexadecimal encoded results, and also by the fact that the output of Texts.WriteReal for slightly different values is correct. E.g.: 1000.0 * 2.56 results in 2.560000E+03 = 2560.0 (encoded ('raw') hexadecimal integer value: 45200000H) 1.0E6 * 1.048577 results in 1.048577E+06 = 1048577.0 (encoded ('raw') hexadecimal integer value: 49800008H) I compiled and ran the procedure below to test this on Peter de Wachter's RISC emulator. Could someone compile and run this test module on a hardware RISC5 FPGA board to verify the results? Is this a known issue? Does anyone have an explanation? Hans Klaver MODULE TestRealMul; IMPORT Texts, Oberon; VAR W: Texts.Writer; PROCEDURE WriteRealHex* (VAR W: Texts.Writer; x: REAL); (* Write the encoded ('raw') hexadecimal INTEGER value of a REAL. Verify on https://float.exposed *) BEGIN Texts.WriteHex(W, ORD(x)); Texts.Write(W, "H") END WriteRealHex; PROCEDURE Do*; BEGIN Texts.WriteString(W, "1.0E6 * 1.048575 = "); Texts.WriteReal(W, 1.0E6 * 1.048575, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E6 * 1.048576 = "); Texts.WriteReal(W, 1.0E6 * 1.048576, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E6 * 1.048576 = "); Texts.WriteRealHex(W, 1.0E6 * 1.048576); Texts.WriteLn(W); Texts.WriteString(W, "1.0E6 * 1.048577 = "); Texts.WriteReal(W, 1.0E6 * 1.048577, 16); Texts.WriteLn(W); Texts.WriteLn(W); Texts.WriteString(W, "1.0E6 * 2.097152 = "); Texts.WriteReal(W, 1.0E6 * 2.097152, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E6 * 4.194304 = "); Texts.WriteReal(W, 1.0E6 * 4.194304, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E5 * 1.31072 = "); Texts.WriteReal(W, 1.0E5 * 1.31072, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E4 * 3.2768 = "); Texts.WriteReal(W, 1.0E4 * 3.2768, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E4 * 1.6384 = "); Texts.WriteReal(W, 1.0E4 * 1.6384, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E3 * 8.192 = "); Texts.WriteReal(W, 1.0E3 * 8.192, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E3 * 4.096 = "); Texts.WriteReal(W, 1.0E3 * 4.096, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E3 * 2.048 = "); Texts.WriteReal(W, 1.0E3 * 2.048, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E3 * 1.024 = "); Texts.WriteReal(W, 1.0E3 * 1.024, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E2 * 2.56 = "); Texts.WriteReal(W, 1.0E2 * 2.56, 16); Texts.WriteLn(W); Texts.WriteString(W, "100.0 * 2.56 = "); Texts.WriteReal(W, 100.0 * 2.56, 16); Texts.WriteLn(W); Texts.WriteString(W, "100.0 * 2.56 = "); Texts.WriteRealHex(W, 100.0 * 2.56); Texts.WriteLn(W); Texts.WriteString(W, "1000.0 * 2.56 = "); Texts.WriteReal(W, 1000.0 * 2.56, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E2 * 1.28 = "); Texts.WriteReal(W, 1.0E2 * 1.28, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E1 * 6.4 = "); Texts.WriteReal(W, 1.0E1 * 6.4, 16); Texts.WriteLn(W); Texts.WriteString(W, "1.0E1 * 3.2 = "); Texts.WriteReal(W, 1.0E1 * 3.2, 16); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf) END Do; BEGIN Texts.OpenWriter(W) END TestRealMul.Do System.Free TestRealMul ~

4 6