August 2018 - Oberon - mailman3.inf.ethz.ch

Wanted: Oberon Syntax in TextMate, Sublime Text or Atom Grammar
by Treutwein Bernhard 01 Jan '22

01 Jan '22

Does somebody have grammars for Oberon / Oberon-2 / Component Pascal / Active Oberon as grammar for TextMate / Sublime Text / Atom Background: Github wrongly classifies Oberon / Oberon-2 / Component Pascal / Active Oberon as Modula-2. I opened quite some tiome ago an issue in the github/linguist project (https://github.com/github/linguist/issues/3888) and they don't accept EBNF grammars. -- Bernhard Treutwein

6 9

FPGA - Screen.Mod
by Tomas Kral 26 Oct '18

26 Oct '18

Hi, EDIT (1) I am looking for `Screen.Mod' module (mainly its `Screen.Grub' command) hinted in PO2013 pictures. I have completed early version of `Bitmaps.Mod' supporting basic set of raster operations. I wish to share pictures and code. As we may not post attachments to the forum, I could expose to GitHub, there is also `WikiBook' run by Lyall E. Please advise. Many thanks. -- Tomas Kral <thomas.kral(a)email.cz>

4 15

FPGA Oberon - Definition Module Tool
by thomas.kral＠email.cz 08 Oct '18

08 Oct '18

Hi, I am thinking of a simple tool that could extract definition info from *.Mod and produce respective *.Def file. Definition files can be quickly looked at, to remind a programmer of the interface *.Mod modules export. While on Linux one could use grep $ grep PROCEDURE\ * *.Mod.txt to obtain info at least about procedures, but how about exported types and variables? I am looking for a recommended way how to simply code such a tool, is it a good idea to use `ORP' parser somehow for the task? I prefer to code it simple, does not have to be perfect, but should carry the idea. Tomas

5 11

FPGA - Files.ReadBytes(), Files.WriteBytes()
by Tomas Kral 07 Oct '18

07 Oct '18

Hi, Files.Mod has procedures for reading/writing a block of bytes, bytewise. PROCEDURE ReadBytes*(VAR r: Rider; VAR x: ARRAY OF BYTE; n: INTEGER); VAR i: INTEGER; BEGIN i := 0; (*this implementation is to be improved*) WHILE i < n DO ReadByte(r, x[i]); INC(i) END END ReadBytes; PROCEDURE WriteBytes*(VAR r: Rider; x: ARRAY OF BYTE; n: INTEGER); VAR i: INTEGER; BEGIN i := 0; (*this implementation is to be improed*) WHILE i < n DO WriteByte(r, x[i]); INC(i) END END WriteBytes; The comment suggests improving the code further. Any hints to improve the code? Thanks -- Tomas Kral <thomas.kral(a)email.cz>

3 9

FPGA - Display.Mod 4-bit colour
by Tomas Kral 02 Oct '18

02 Oct '18

Hi, I wish to modify `Display.Mod' to accept 4-bit colour. Standard interface currently supports 1-bit colour only. PROCEDURE Dot*(col, x, y, mode: INTEGER); PROCEDURE ReplConst*(col, x, y, w, h, mode: INTEGER); PROCEDURE CopyPattern*(col, patadr, x, y, mode: INTEGER); PROCEDURE CopyBlock*(sx, sy, w, h, dx, dy, mode: INTEGER); PROCEDURE ReplPattern*(col, patadr, x, y, w, h, mode: INTEGER); I have a version of VID.v with 4-bit pixels and a 16 entry colour lookup table. So `col' parameter in the range {0..15} defines index into that table. Looking at the code, I realise each display line takes 128 bytes 1-bit. 4-bit it must be 4*128. While single word sets 1-bit colour of 32 pixels, and only 8 pixels of 4-bit colour, correct? I am generally seeking advice for the good starting point, also hwoto set up a test environment for quick tests turnaround? My idea was to make a standalone boot program accepting draw commands over serial. I may start with `ReplConst' (font rendering), and `ReplConst' (line drawing). I wonder how much of the original code I could reuse, just extending the loop count, and some 4-bit manipulation? Many thanks in advance. -- Tomas Kral <thomas.kral(a)email.cz>

3 9

Re: [Oberon] Slim binaries / OMI / Juice implementation details availability
by Chris Burrows 03 Sep '18

03 Sep '18

> > From: Oberon [mailto:oberon-bounces@lists.inf.ethz.ch] On Behalf Of > Erik Terpstra > Sent: Thursday, 30 August 2018 2:29 AM > To: oberon(a)lists.inf.ethz.ch > Subject: [Oberon] Slim binaries / OMI / Juice implementation details > availability > > Hi, > > Are there still implementation details around Slim binaries / OMI / > Juice available in the form of: > > - source code of a compiler that targets it > - source code of a slim binary loader & code generator > - example files (i.e. actual slim binaries to inspect in a hex > editor/viewer) > > If I understand correctly the (now deprecated) Mac Oberon & Win > Oberon systems implemented it, but I can't find actual implementation > details, source code or example [slim]binaries. > > Any help would be appreciated. > If you want to try running an actual slim binaries implementation and inspect the binaries download Michael Franz's S3 version of MacOberon from the ETH ftp site. The compiler generates slim binaries by default: ftp://ftp.ethoberon.ethz.ch/ETHOberon/Macintosh/ The same binaries run on both 680x0 and PowerPC Macs. If you don't have suitable Mac hardware you can use an emulator. I just installed MacOberon on the Basilisk II Mac emulator on Windows 10 and it installed and ran OK. Some Juice-related documentation I haven't see elsewhere is included. For info about Basilisk II see: https://basilisk.cebix.net/ Regards, Chris Burrows CFB Software http://www.astrobe.com/RISC5

2 1

Slim binaries / OMI / Juice implementation details availability
by Erik Terpstra 30 Aug '18

30 Aug '18

Hi, Are there still implementation details around Slim binaries / OMI / Juice available in the form of: - source code of a compiler that targets it - source code of a slim binary loader & code generator - example files (i.e. actual slim binaries to inspect in a hex editor/viewer) If I understand correctly the (now deprecated) Mac Oberon & Win Oberon systems implemented it, but I can't find actual implementation details, source code or example [slim]binaries. Any help would be appreciated. --Erik

6 9

Allocation of dynamic open arrays using NEW(p, len)
by Andreas Pirklbauer 29 Aug '18

29 Aug '18

An enhanced FPGA Oberon 2013 compiler is now available at: https://github.com/andreaspirklbauer/Oberon-enhanced-FPGA-Oberon07-compiler Among other things it contains a dynamic heap allocation procedure NEW(p, len) for open arrays: MODULE Test; TYPE Record = RECORD a, b: INTEGER END ; Array1 = ARRAY OF Record; (*open array*) Array2 = ARRAY 20 OF Record; (*fixed-length array*) Pointer1 = POINTER TO Array1; Pointer2 = POINTER TO Array2; VAR a1: Pointer1; a2: Pointer2; PROCEDURE New1*; BEGIN NEW(a1, 100); a1[53].b := 7 END New1; PROCEDURE New2*; BEGIN NEW(a2); a2[3].b := 7 END New2; END Test. ORP.Compile Test.Mod/s ~ Test.New1 Test.New2

1 0

Re: [Oberon] Oberon board availability
by Chris Burrows 28 Aug '18

28 Aug '18

> -----Original Message----- > From: Oberon [mailto:oberon-bounces@lists.inf.ethz.ch] On Behalf Of > Magnus Karlsson > Sent: Saturday, 28 July 2018 7:04 AM > To: oberon(a)lists.inf.ethz.ch > Subject: Re: [Oberon] Oberon board availability (was Moving oberon to > RISCV?) > > Or you could buy a new Pepino Oberon Kit from Saanlima Electronics > with an Oberon system ready to go, just add monitor, keyboard, mouse > and USB cable. The kit is normally $104.95 but is currently on sale > for 20% off (use coupon OberonGo at checkout). > > See > http://saanlima.com/store/index.php?route=product/product&product_id= > 71 > for more details. We have just finished preparing a new disk image and Verilog bitstream files specifically to run the Project Oberon Workstation on the Pepino LX9 FPGA development board 'out-of-the-box'. This release is based on the very latest Oberon sources (July 2018) and Verilog sources (Jun 2018) as described in 'An Update of the RISC5 Implementation', by Niklaus Wirth 15.6.2018: https://people.inf.ethz.ch/wirth/ProjectOberon/RISC5.Update.pdf The system also includes our enhancements: Support for Numeric / Character CASE statements in the compiler, optional real-time clock devices, timestamps on uploaded files, the additional high-capacity file system HCFiler and more source code examples. The entire source code of the system, including the compiler, is included on the disk image. Go to http://www.astrobe.com/RISC5/Workstation for more details and to request a copy of the system, Regards, Chris Burrows CFB Software http://www.astrobe.com/RISC5/Workstation

5 18

FPGA - Fun with Fonts
by Tomas Kral 28 Aug '18

28 Aug '18

Hi, Just toying with fonts. Does not take much of coding, passing TextFrame as VAR may just add a few lines of code. That's what TextFrame.DisplayLine() does. PROCEDURE Font*; CONST STR = "hello"; VAR ch: CHAR; s: ARRAY 6 OF CHAR; i, x, y, X, Y, dx, w, h, patadr: INTEGER; fnt: Fonts.Font; BEGIN s := STR; X := 50; Y := 20; fnt := Fonts.This("Oberon10.Scn.Fnt"); FOR i := 0 TO LEN(s)-1 DO ch := s[i]; Fonts.GetPat(fnt, ch, dx, x, y, w, h, patadr); Display.CopyPattern(Display.white, patadr, x+X, y+Y, Display.paint); INC(X, dx) END ; END Font; -- Tomas Kral <thomas.kral(a)email.cz>

1 0