January 2015 - Oberon - mailman3.inf.ethz.ch

Project Oberon - Copying files to the SD card
by Chris Burrows 09 Jan '15

09 Jan '15

> > From: Bill Buzzell [mailto:captbill279@gmail.com] > Sent: Thursday, 8 January 2015 4:51 AM > To: oberon(a)lists.inf.ethz.ch > Subject: Re: [Oberon] Oberon Digest, Vol 128, Issue 6 > > How do you move files onto the SD card? Anyone know? I tried > extracting the ISO and adding files and un-extracting it again. None > of the files appear visible to Oberon though. Am I using the wrong > encoding somehow? > If you want files on the SD card to be visible from Project Oberon then you need to create them with the appropriate file headers and directory entries as explained in great detail in Chapter 7 The File System of the Project Oberon documentation. You should write a program to do this on the system you want to transfer files from. As the Project Oberon source code is provided most of the hard work is already done for you. However, before you do this you need to understand: a) how to access the SD Card on your system b) how to perform low-level block IO to / from a storage device on your system c) the Project Oberon modules Files, FileDir and the disk IO procedures from Kernel. I used BlackBox Component Pascal v1.6 on Windows 7 as much of the Project Oberon source code (Files.mod and FileDir.mod) can be used with minimal changes, SYSTEM.VAL is compatible with Project Oberon and BlackBox has access to the relevent WinApi system calls: http://www.oberon.ch/blackbox.html If you plan to transfer files from a Windows 7 system to / from the SD Card the following should help get you started: a) how to access the SD Card on your system If you cannot access the SD card via SPI on your system you need to find out how to access it as a raw (i.e. not formatted) device. On Windows the device name convention is \\.\<drivenumber>. On my system the drivenumber is "6" because my SD card appears as Drive 6 in: Admin Tools > Computer Management > Storage > Disk Management The 8GB Project Oberon SDHC Card appears with a 255MB FAT partition, a 64 MB Primary partition and 7.09GB unallocated b) how to perform low-level block IO to / from a storage device on your system The corresponding BlackBox procedure to access this drive using WinApi.CreateFileW is: PROCEDURE Open*(driveName: FullName); VAR physicalName: FullName; BEGIN physicalName := "\\.\" + driveName; drive.handle := WinApi.CreateFileW( physicalName, WinApi.GENERIC_READ + WinApi.GENERIC_WRITE, WinApi.FILE_SHARE_READ + WinApi.FILE_SHARE_WRITE, NIL, WinApi.OPEN_EXISTING, {}, 0) END Open; You also need to implement the equivalent of the low-level sector read / write functions (i.e. Kernel.GetSector and Kernel.PutSector). On Windows the WinApi calls you can use to do this are WinApi.SetFilePointer WinApi.ReadFile WinApi.WriteFile WinApi.GetLastError WinApi.CloseHandle e.g PutSector becomes: PROCEDURE PutSector*(sectorNo: INTEGER; sector: ARRAY OF BYTE); VAR i, org, count, bytesWritten, res: INTEGER; BEGIN ASSERT(sectorNo MOD 29 = 0); sectorNo := sectorNo DIV 29; sectorNo := sectorNo * 2 + FSoffset; org := sectorNo * (SectorSize DIV 2); i := 0; i := WinApi.SetFilePointer(drive.handle, org, i, WinApi.FILE_BEGIN); count := SectorSize; IF (WinApi.WriteFile(drive.handle, SYSTEM.ADR(sector), count, bytesWritten, NIL) = 0) OR (bytesWritten < SectorSize) THEN res := WinApi.GetLastError(); HALT(102) END; END PutSector; NOTE: Windows requires you to run programs that access raw storage devices in 'Administrator Mode'. Regards, Chris Burrows CFB Software Astrobe: Oberon for ARM Microcontrollers http://www.astrobe.com

2 1

Re: [Oberon] Oberon Digest, Vol 127, Issue 18
by Bill Buzzell 07 Jan '15

07 Jan '15

Thanks to all, I managed to get the network up on the Pipistrello. I even got the OpenLogic Sniffer to capture the output from the Oberon SPI port to the NRF24L011!! There is a pinout error on the sram wing board. Switching the SCK and MISO did the trick. Unfortunately my keyboard has stopped communicating with Oberon. If you execute "System.SetUser" the system 'hangs' untill you enter the 'user name' + enter + "password" + enter. There is no prompt or any type of feedback. Not sure if this is even necessary. I only had a few minutes of success until the keyboard went down to determine that. It does indeed show up listed in the WIFI's available access points, although it doesn't give the name, just a generic 'other network'. I assume this is to be expected since it is not implemented yet. Regards, Bill On Tue, Dec 23, 2014 at 6:00 AM, <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: Project Oberon Network Setup (peter(a)easthope.ca) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Mon, 22 Dec 2014 09:12:09 -0800 > From: peter(a)easthope.ca > Subject: Re: [Oberon] Project Oberon Network Setup > To: oberon(a)lists.inf.ethz.ch > Message-ID: <E1Y36Wf-0000um-9Y(a)armada.invalid> > > From: Bill Buzzell <captbill279(a)gmail.com> > Date: Sun, 21 Dec 2014 18:09:15 -0500 > > The Oberon interface/desktop? My mouse has me totally lost, haha. > > https://en.wikipedia.org/wiki/Oberon_%28operating_system%29#User_interface > now has reference 23 to > http://www.ethoberon.ethz.ch/ethoberon/tutorial/Mouse.contents.html > > Probably too late to help you Bill but it might help others. > > ... Peter E. > > > -- > 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12 > Tel +1 360 639 0202 http://carnot.yi.org/ Bcc: peter at easthope. ca > > > > > ------------------------------ > > -- > Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems > https://lists.inf.ethz.ch/mailman/listinfo/oberon > > > End of Oberon Digest, Vol 127, Issue 18 > *************************************** >

4 3

step by step
by Gábor Zoltán Sinkó 07 Jan '15

07 Jan '15

First of all sorry for my English is sparse. (google is my friend: P) The next goal for myself: I want to reproduce the ProjektOberon was. Currently there is a loan and Spartan3 Spartan3 developer panels and Linux environment (Ubuntu 10.14). I have no clear line of action. My first step in trying to access the Oberon linux version translated in there, but it did not go as 07 codes contained ... 07 compiler found, but did not get to the green branch :( Is there a howto that tells that even under Windows or Linux that can translate Oberon? I am a programmer, but Oberon just started to learn it. I know a large wall and all, but simply interested. Can you give some clues which can start based on? I know it was surely the word list, but I have not found it so far, and is the son of man is not infinite time and infinite patience. Gabor Z Sinko Hungary

4 3

error: MODULE keyword missing
by peter＠easthope.ca 05 Jan '15

05 Jan '15

Wed Dec 31 16:10:46 CET 2014 > TFLog.Mod compiles with no error. No problem evident there. > Why does Release.Build complain? A redundant copy of TFLog.Mod was in the work directory. Deleted it. Then copied all files from the source repository to /usr/aos/source/. Then tried Release.Build again. Release.Build --path="../Test/" --build --zip --xml A2 ~ Loading package description file Release.Tool ... done. A2: Check if all files are present... 3s done. A2: Check modules and imports... 0s done. Release.Tool@14862 error: A2: Import FoxArrayBase not found in file I386.FoxArrayBaseOptimized.Mod But I386.FoxArrayBaseOptimized.Mod has IMPORT SYSTEM, ArrayBase := FoxArrayBase, Machine, KernelLog, Commands ; FoxArrayBase is imported. Why the complaint? Thanks, ... Peter E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12 Tel +1 360 639 0202 http://carnot.yi.org/ Bcc: peter at easthope. ca

2 1