- Oberon - mailman3.inf.ethz.ch

Is this the smallest Oberon (program) platform to date?
by Chris Burrows 22 Feb '24

22 Feb '24

Twelve years ago I asked the question "Is this the smallest Oberon (program) platform to date?" https://lists.inf.ethz.ch/pipermail/oberon/2012/006407.html This has since been well and truly beaten! We have now used Astrobe for Cortex-M0 to target a WaveShare RP2040 Zero board which includes features such as: * Dual-core Arm Cortex M0+ processor, flexible clock running up to 133 MHz * 264KB of SRAM, and 2MB of on-board Flash memory etc. etc. The board measures just 1.8cm x 2.35 cm and is priced at $US 4. For more details see: https://www.waveshare.com/product/raspberry-pi/boards-kits/rp2040-zero.htm?… The source code that we used to do this was developed by one of our Astrobe users. He has published an impressive set of libraries, tools and examples for the Raspberry Pi Zero and announced their availability here: https://www.astrobe.com/forum/viewtopic.php?f=9&t=776 You can request a free copy of the latest Personal Edition of Astrobe for Cortex-M0 to compile this code from here: https://www.astrobe.com/personal.htm -- Regards, Chris Burrows CFB Software https://www.astrobe.com

1 0

font size in oberon-risc-emu
by rsykora＠disroot.org 11 Feb '24

11 Feb '24

Dear list, do you know if there is a simple means to change (enlarge) the font size used in Peter De Wachter's oberon-risc-emu? Thank you. Best regards, Ruda

4 3

Re: [Oberon] Oberon Digest, Vol 237, Issue 2
by Daniel Schmid 10 Feb '24

10 Feb '24

Dear Oberon-Listeners Have no idea how to In.Char(ch); About 1000 lines of code seem to work fine (a server to poll remote devices via tcp) but now i would like to get a user keyboard input but i get stuck: PROCEDURE Test2; VAR b: BOOLEAN; ch: CHAR; BEGIN(*PROCEDURE*) Out.String("input: "); b:= In.Char(ch); Out.Char(ch); END(*PROCEDURE*) Test2; compiles fine but doesn't even stop for an input? any idea/hint? Thanks a lot Daniel On Fri, 2024-02-09 at 12:00 +0100, oberon-request(a)lists.inf.ethz.ch wrote: > > Send Oberon mailing list submissions to > > oberon(a)lists.inf.ethz.ch > > > > To subscribe or unsubscribe via the World Wide Web, visit > > https://lists.inf.ethz.ch/mailman/listinfo/oberon > > or, via email, send a message with subject or body 'help' to > > oberon-request(a)lists.inf.ethz.ch > > > > You can reach the person managing the list at > > oberon-owner(a)lists.inf.ethz.ch > > > > When replying, please edit your Subject line so it is more specific > > than "Re: Contents of Oberon digest..." > > > > > > Today's Topics: > > > > 1. Re: font size in oberon-risc-emu (Colby Russell) > > 2. Re: font size in oberon-risc-emu (Michael Schierl) > > > > > > ------------------------------------------------------------------- > > -- > > - > > > > Message: 1 > > Date: Thu, 8 Feb 2024 08:21:28 -0600 > > From: Colby Russell <oberon(a)x.colbyrussell.com> > > To: ETH Oberon and related systems <oberon(a)lists.inf.ethz.ch>, > > rsykora(a)disroot.org > > Subject: Re: [Oberon] font size in oberon-risc-emu > > Message-ID: > > <94762f90-00d2-49c1-b041-d25c9433fb79(a)x.colbyrussell.com> > > Content-Type: text/plain; charset=UTF-8; format=flowed > > > > On 2/8/24 02:07, rsykora(a)disroot.org wrote: > > > do you know if there is a simple means to change (enlarge) > > > the font size used in Peter De Wachter's oberon-risc-emu? > > > > The name of the file is hardcoded.? You need to either recompile > > the > > system or rename the file containing the larger font (so it has the > > name > > of the smaller).? The latter approach will mess up the display of > > texts > > that have "looks" (i.e. formatted with different fonts). > >

3 2

Niklaus Wirth Interviews 1983
by Pablo Cayuela 25 Jan '24

25 Jan '24

Dear friends, I've found some 1983 interviews with Professor Niklaus Wirth, speaking in his native Swiss German, and a presentation of a Lilith Computer with a demonstration of a word processor on it. Due to not being published in youtube or similar sites, there are not any translated subtitles nor a transcription. Despite that I guess that many of you could understand and enjoy the videos. To access them you need to be in Switzerland... or use a VPN with a Swiss ip address. Schweizer Computer 06.09.1983 14 Min SSchweiz, Basel, BS: Neuheiten der Messen "Swissdata" und "Ineltec" o.O.: Präsentation Schweizer Computer "Diser-Modula" entwickelt von Team um ETH-Professor Niklaus Wirth (aprox. 8:48 to 23:02) https://www.srf.ch/play/tv/karussell/video/arabesque?urn=urn:srf:video:6278… Computer-Geschichte 07.09.1983 13 Min Schweiz, Basel, BS: Sonderschau zur Computer-Geschichte an der Swiss-Data-Messe / Interview Ausstellungsmacher Robert Weiss Zürich, ZH: Interview Niklaus Wirth zur Bedeutung des Computers in Zukunft und zur Aufgabe der Schulen (aprox. 6:50 to 13:05) https://www.srf.ch/play/tv/karussell/video/computer-geschichte?urn=urn:srf:… Best regards, Prof Pablo Cayuela Argentina

1 0

Re: [Oberon] Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 22 Jan '24

22 Jan '24

Michael Schierl schierlm at gmx.de Fri Jan 12 22:25:08 CET 2024 > ... > KernelLog.String? Here, after LinuxA2 Gen. 64-bit, rev.9799 boots, this is the last line in Kernel.log. BootConsole.Mod' failed: Command not successful (res: 3902) A problem deeper than Clipboard.Copy? I think of leaving it until a new release appears. Regards, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re (2): Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 14 Jan '24

14 Jan '24

Bernhard & all, Happy New Year to you also. From: Bernhard Treutwein <bernhard(a)wildwein.de> Date: Sun, 14 Jan 2024 12:42:38 +0100 > maybe it is tracing to the command line from where it was started, > if it was started from a command line ... Helpful tip. The orginating console has no Trace output but shows failure of ASSERT in Machine.Acquire. The Trap report notes i = 2. So I infer that ASSERT(taken[2] # Unix.ThrThis( )) fails. (** Acquire a spin-lock. *) PROCEDURE Acquire*( level: SIGNED32 ); (* non reentrant lock *) VAR i: INTEGER; BEGIN Trace.String("Unix.Machine.Acquire() invoked from Clipboard.TakeSelection."); Trace.Ln(); Unix.MtxLock( mtx[level] ); IF StrongChecks THEN ASSERT(taken[level] = NIL); taken[level] := Unix.ThrThis( ); FOR i := 0 TO level-1 DO ASSERT(taken[i] # Unix.ThrThis( )); (*! lock order *) END; END; END Acquire; Beginning of the console report. LinuxA2 Gen. 64-bit, rev.9799 2024/01/14 08:45 Trap 5.8 (ASSERT failed) SP = 00007F6D79C31A90 FP = 00007F6D79C31AB0 PC = 0000000008061BDB RAX = 00007F6D79C33700 RBX = 0000000008062860 RCX = 0000000000000000 RDX = 00007F6D7E868360 RSI = 00007F6D79C33700 RDI = 0000000008062870 R8 = 00007F6D123A98C0 R9 = 00007F6D5C00F840 R10 = 0000000000000000 R11 = 0000000000200282 R12 = 00007F6D7A10504E R13 = 00007F6D7A10504F R14 = 00007F6D79C32FC0 R15 = 00007F6D5C09D520 Process: 62 run 0 000007F6D123A97D0:Oberon-System.OberonRunner NIL {0} StackTraceBack: Machine.Acquire:288 pc=0000000008061BDB fp=00007F6D79C31AB0 crc=65B37D0E level= [@16] 3 i= [@-12] 2 @hiddenIRVar0= [@-16] 2 Heaps.NewRec:202 pc=000000000806C9F1 fp=00007F6D79C31B10 crc=07B5C2AF p= [@32] -> [@00007F6D79C31B48] 0000000000000000 NIL tag= [@24] 00007F6D10701A48 isRealtime= [@16] false size= [@-16] 56[0000000000000038] blockSize= [@-24] 128[0000000000000080] recordBlockAdr= [@-32] 0000000000000000 dataBlockAdr= [@-40] 0000000000000000 recordBlock= [@-48] 0000000000000000 NIL dataBlock= [@-56] 0000000000000000 NIL typeDesc= [@-64] 00007F6D10701A48 (NIL) Texts.Write:306 pc=00007F6D106FE98A fp=00007F6D79C31B70 crc=BD10AEB2 W= [@24] -> [@00007F6D109ED720] ...(Oberon-Texts.Writer) ch= [@16] M p= [@-16] 00007F6D109EEF40 (Oberon-Texts.PieceDesc) q= [@-24] 0000000000000000 NIL @hiddenIRVar0= [@-32] 0000000000000000 NIL @hiddenIRVar1= [@-40] 0000000000000000 NIL ... Unix.MtxLock( mtx[level] ) doesn't work properly? I don't understand the significance of level, mtx[level], Unix.MtxLock( mtx[level] ), taken[level] and Unix.ThrThis( ). Incidentally, the console is recorded in the working directory in AOS.nnnnn.Log. When I carelessly close the console before reading it, can still read the Log. Thanks for the reply, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 13 Jan '24

13 Jan '24

Michael, Thanks for replying. > Trace.String? Yes, Trace.String appears elsewhere in Unix.Machine.Mod. I should have noticed that Trace is imported and then searched to see it used. =8~/ Adding Trace.String("...") at the beginning of the body of Unix.Machine.Mod doesn't produce output in KernelLog. The output might be elsewhere. I'll hunt. =8~) > KernelLog.String? Didn't succeed to recompile with that added. Thanks again, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Clipboard in Oberon subsystem of A2.
by Michael Schierl 12 Jan '24

12 Jan '24

Hello Peter Lyall, Am 12.01.2024 um 19:33 schrieb peter(a)easthope.ca: > In ETH Oberon I would add Texts.WriteString("...") in Acquire, > recompile and see the result of execution; but with Machine in A2 and > Texts is in Oberon that can't work. How can an A2 Module be adjusted > to deliver Text to Kernel.log? Trace.String? KernelLog.String? Not tested, but one of those two (or both) should work. Regards, Michael

1 0

Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 12 Jan '24

12 Jan '24

Hi, I can trace the execution of Clipboard.Copy up to Machine.Acquire(Machine.X11). In ETH Oberon I would add Texts.WriteString("...") in Acquire, recompile and see the result of execution; but with Machine in A2 and Texts is in Oberon that can't work. How can an A2 Module be adjusted to deliver Text to Kernel.log? Thanks, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

"Make Project Oberon Pretty Again"
by Arthur Yefimov 10 Jan '24

10 Jan '24

To republish Wirth's book on Project Oberon is a brilliant idea. TeX is a perfect solution. I want to participate too. Also I found a few typos in the book.

2 1