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

FPGA - Inline Patterns
by Tomas Kral 24 Apr '17

24 Apr '17

Hi, I have just discovered this interesting and useful construct, found in `Display.Mod', defining a pattern. block := SYSTEM.ADR($0808 FFFF C3C3 C3C3 FFFF$); pattern = w(byte) h(byte) {raster(byte)} block* is exported, so can also be used in user modules. Tomas

2 1

Macintosh BlackBox Component Builder
by Mayson Lancaster 24 Apr '17

24 Apr '17

Would anyone know where I could get a copy of Macintosh BlackBox? Preferably the last released version, but any of 1.3 or 1.4 (was 1.4 released on Mac?). I would love source code, but hey – anything would be great. BB (originally Oberon/F) was the best IDE I've ever used. I'm hoping to implement it on Raspberry Pi, using available Mac emulators… Best wishes to all, Mayson

5 6

Re: [Oberon] Macintosh BlackBox Component Builder
by Chris Burrows 23 Apr '17

23 Apr '17

> -----Original Message----- > From: Oberon [mailto:oberon-bounces@lists.inf.ethz.ch] On Behalf Of > Mayson Lancaster > Sent: Sunday, 23 April 2017 6:18 PM > To: oberon(a)lists.inf.ethz.ch <mailto:oberon@lists.inf.ethz.ch> > Subject: [Oberon] Macintosh BlackBox Component Builder > > Would anyone know where I could get a copy of Macintosh BlackBox? > Preferably the last released version, but any of 1.3 or 1.4 (was 1.4 > released on Mac?). I would love source code, but hey anything would > be great. > > BB (originally Oberon/F) was the best IDE I've ever used. I'm hoping > to implement it on Raspberry Pi, using available Mac emulators > > Best wishes to all, > > Mayson The latest official 68k Mac OS Version of BlackBox is release 1.3.2 (dated Feb 1999). You can still download the Stuffit archive from the Oberon microsystem's site: http://www.oberon.ch/zip/BlackBox1.3.2.sit Regards, Chris Burrows CFB Software http://www.astrobe.com

1 0

FPGA - SYSTEM.COPY
by Tomas Kral 23 Apr '17

23 Apr '17

Hi, Just a quick question re `SYSTEM.COPY(src, dst, n)'. Does it copy two bytes or four bytes entities at a time? Many thanks Tomas

2 1

Re: [Oberon] Operating Systems (was: FPGA - Save / Restore OBERON.FS)
by Chris Burrows 21 Apr '17

21 Apr '17

> -----Original Message----- > From: Oberon [mailto:oberon-bounces@lists.inf.ethz.ch] On Behalf Of > Liam Proven > Sent: Friday, 21 April 2017 1:42 AM > To: ETH Oberon and related systems > Subject: Re: [Oberon] FPGA - Save / Restore OBERON.FS > > On 20 April 2017 at 13:52, Felix Friedrich > <felix.friedrich(a)inf.ethz.ch> wrote: > > > > In A2 / Blubottle the conceptual OberonFS file system size > limitation > > is 8-16 TB > > That's generous. Should be enough for most purposes. > > > (and Minos/HeliOS) > > I don't know about these. > Minos is a real time kernel written entirely in Oberon for the Onbass (On Board (flight) Active Safety System): http://www.robinsons.co.uk/research.html The Oberon-related HeliOS is actually spelt HelyOS. It was developed as part of the ETH Model Helicopter Flight Control System. Links to the related documents are listed in a message on this mailing list last year: "Model Helicopter reports": https://lists.inf.ethz.ch/pipermail/oberon/2016/009021.html One with information about HelyOS is: "A computer system for model helicopter flight control, Technical memo Nr. 3: the software core", Marco A. A. Sanvido, April 1999, 317. https://e-collection.library.ethz.ch/eserv/eth:4358/eth-4358-01.pdf Regards, Chris Burrows CFB Software http://ww.astrobe.com

2 1

Re: [Oberon] SETs (was: FPGA - Bitmaps.Mod)
by Chris Burrows 21 Apr '17

21 Apr '17

> -----Original Message----- > From: Oberon [mailto:oberon-bounces@lists.inf.ethz.ch] On Behalf Of > Tomas Kral > Sent: Friday, 21 April 2017 7:15 PM > To: Oberon@ > Subject: [Oberon] FPGA - Bitmaps.Mod > > <snip> > I copied & modified below code without much understanding, it > operates on Oberon SET {0..31} variables. > > left := dst MOD 4; right := w MOD 4; > ... > SYSTEM.GET(src, t); SYSTEM.GET(dst, s); SYSTEM.PUT(dst, s / (t * > {left*8..31} * {0..right*8-1})) ... > > I believe > `s / t' is the intersection, but I do not understand this construct > (t * {left*8..31} * {0..right*8-1}) ? > > So for various screen modes I would generally use: > s / t ... for invert > s + t ... for paint > s - t ... for replace mode? > For an explanation of the various SET operators in Oberon read the document titled "SET: A neglected data type, and its compilation for the ARM", Niklaus Wirth 8.8.2007: https://www.inf.ethz.ch/personal/wirth/Oberon/SETs.pdf Regards, Chris Burrows CFB Software http://www.astrobe.com

1 0

FPGA - Bitmaps.Mod
by Tomas Kral 21 Apr '17

21 Apr '17

Hi, I have made some progress with Bitmaps, and it now supports replace and invert modes. Some constants. CONST BufSize = 1024; linelength = 1024 DIV 8; Height = 768; I use this Clear* method to initialise a bitmap to vertical stripe 0AAAAAAAAH pattern. It makes visual feedback easier. Simplified DisplayBlock* procedure for B/W frame. PROCEDURE DisplayBlock*(B: Bitmap; sx, sy, w, h, dx, dy, mode: INTEGER); VAR pw, pd, src, dst: INTEGER; BEGIN pd := B.depth; IF (w > 0) & (h > 0) & (pd = 1) THEN pw := B.width DIV 8; src := B.base; dy := Height-dy-h; (* convert dy to screen coordinate 0,0 = top,left *) dst := Display.Base + dy * linelength + dx DIV 8; (* top left corner *) IF mode = Display.invert THEN REPEAT DisplayBlock2(src, dst, pw); DEC(h); INC(src, pw); INC(dst, linelength) UNTIL h = 0 ELSE REPEAT DisplayBlock0(src, dst, pw); DEC(h); INC(src, pw); INC(dst, linelength) UNTIL h = 0 END END END DisplayBlock; Just calls line by line copy procedures depending on mode = replace / paint (to do) / invert I copied & modified below code without much understanding, it operates on Oberon SET {0..31} variables. left := dst MOD 4; right := w MOD 4; ... SYSTEM.GET(src, t); SYSTEM.GET(dst, s); SYSTEM.PUT(dst, s / (t * {left*8..31} * {0..right*8-1})) ... I believe `s / t' is the intersection, but I do not understand this construct (t * {left*8..31} * {0..right*8-1}) ? So for various screen modes I would generally use: s / t ... for invert s + t ... for paint s - t ... for replace mode? I tested simple byte copy, but this works only on bitmaps with n*8 (w,h) dimensions. (* test src to dst byte copy *) (*WHILE w # 0 DO SYSTEM.GET(src, ch); SYSTEM.PUT(dst, ch); INC(src); INC(dst); DEC(w, 8) END*) Many thanks Tomas

1 0

File transfer.
by peter＠easthope.ca 20 Apr '17

20 Apr '17

In Oberon on the bare gate array machine and in Peter De W's emulation, how are files transferred between Oberon and the environment? With PC-Native O. under QEMU on Linux, I'd use FTP; not yet available in the contemporary system. The emulation has PCLink1. It works only on the gate array machine? Thanks, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 Pender Is.: +1 250 629 3757 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

2 1

FPGA - Save / Restore OBERON.FS
by Tomas Kral 20 Apr '17

20 Apr '17

Hi, EDIT, at the end EDIT(2), at the end Reading some earlier post by Paul Read, I look for `dd' syntax to save and restore my work on uSD card. Providing uSD card is formatted as 256MB FAT + 65MB OBERON. Restore my work indexed as `1' may work like this, $ dd if=OBERON1.FS of=/dev/sdc bs=1024 seek=262145 By how about saving the work first, $ dd if=/dev/sdc of=OBERON1.FS bs=1024 skip=262145 count=??? What count should I use? `System.Watch' may give a clue, but does not seem exact. EDIT, correction I could also use a fixed value of the whole 65MB Oberon partition, but not sure if below is correct $ dd if=/dev/sdc of=OBERON1.FS bs=1024 skip=262145 count=$((65*1024)) EDIT(2), correction Reading `dd' manual, allows for suffixes, $ dd if=/dev/sdc of=OBERON1.FS bs=1K skip=265K count=65K Correct? Many thanks. Tomas

5 8

Leveraging ETHO's superb HumanComputerInterface: Call-back/Norayr ?
by eas lab 20 Apr '17

20 Apr '17

Oberon's HumanComputerInterface is unequaled in my opinion/experience. Now that Windows puts a vital partition at the end, it's a problem to install Linux to a laptop, without messing the WinTel system which may have a monopoly on the WiFi-ability. Because LinuxNativeOberon is small and runs nicely, even in a mere FrameBuffer, and with good font size; this allows an ETHO system to be run from a USBstik - comfortably. The problem of LNO not being able to immediately read/write to all of the FileTree can be minimised by some tricks, such as providing a temporary link to LNO, by the linux application which browses the file tree. Perhaps that can also simplify <clipboarding> between LNO and Linux, and even the Windows TextFiles. Also interesting, would be to have inet access, to be able to use, [possibly modified] ETHO's Mail & NNTP, ftp, telnet... clients. I don't know how LNO would communicate with the very good *nix underlying internet connectivity? And was wondering how a naive exchange of byte-blocks: LNO <-> Linux; via files would work. Rather than a closed/hidden/integrated design, I propose an open <bolted on> script based solution, which minimises the need to do serious C-coding. Apparently the LNO <-> Linux communication would need to be interrupt driven [or in *nix jargon via "signals"]. While googling for ideas, I came across: norayr/events_in_oberon/clb.Mod MODULE clb; .... Would the so-called call-back mechanism allow LNO to read/write the underlying inet traffic ? == TIA.

3 2