Search found 9 matches

Go to advanced search

by Alexander Shiryaev
Mon Oct 05, 2015 11:00 am
Forum: Astrobe for FPGA RISC5
Topic: FPGA targets
Replies: 5
Views: 46699

Re: FPGA targets

What is RISC5 core clock frequency on Spartan-6 FPGA?
by Alexander Shiryaev
Sat Dec 06, 2014 5:04 pm
Forum: Oberon Language
Topic: Oberon Competition - Win a $US50 Amazon Gift Voucher
Replies: 6
Views: 70201

Re: Oberon Competition - Win a $US50 Amazon Gift Voucher

Code: Select all

MODULE Quiz;

  VAR a1*, a2*: ARRAY 1000 OF INTEGER;
      
  PROCEDURE* Init*;
    VAR i: INTEGER;
  BEGIN i := 1000;
    REPEAT DEC(i);
      a1[i] := i;
      a2[i] := i
    UNTIL i = 0
  END Init;

END Quiz.
by Alexander Shiryaev
Sat Nov 30, 2013 8:51 pm
Forum: Oberon Language
Topic: New language extension: BYTE data type
Replies: 6
Views: 72554

Re: New language extension: BYTE data type

It's good
by Alexander Shiryaev
Mon Sep 30, 2013 9:15 am
Forum: Oberon Language
Topic: New language extension: BYTE data type
Replies: 6
Views: 72554

Re: New language extension: BYTE data type

Introduction of new data type leads to problems, which not exist before. If you want to introduce integer BYTE type, may be better to keep INTEGER (word addressing) as default integer data type? Then, SYSTEM.PUT(addr, any integer constant) should generate STR, not STRB instruction. In any case, ORD(...
by Alexander Shiryaev
Mon Sep 30, 2013 7:31 am
Forum: Oberon Language
Topic: New language extension: BYTE data type
Replies: 6
Views: 72554

Re: New language extension: BYTE data type

cfbsoftware wrote:

Code: Select all

(* INTEGER transfers *)
...
SYSTEM.PUT(addr, ORD(0))
...
May be

Code: Select all

SYSTEM.PUT(addr, 0)
or

Code: Select all

SYSTEM.PUT(addr, ORD(0X))
?
by Alexander Shiryaev
Sat Jan 19, 2013 4:41 am
Forum: Oberon Language
Topic: STRUCTURE ALIGNMENT
Replies: 2
Views: 26771

Re: STRUCTURE ALIGNMENT

I use the following module: MODULE MemFormatters; (* A. V. Shiryaev, 2013.01 LE: Little-Endian BE: Big-Endian *) IMPORT SYSTEM; (* Write *) PROCEDURE WriteIntLE* (VAR a: ARRAY OF CHAR; VAR w: INTEGER; x: INTEGER); BEGIN a[w] := CHR(x); a[w + 1] := CHR(x DIV 100H); a[w + 2] := CHR(x DIV 10000H); a[w ...
by Alexander Shiryaev
Wed Jan 16, 2013 5:07 pm
Forum: Getting Started
Topic: Ethernet code
Replies: 7
Views: 83503

Re: Ethernet code

If you need Ethernet, it is not difficult. See EasyWEB sources for example.
If you need TCP, it is more complicated.
by Alexander Shiryaev
Mon Oct 29, 2012 2:04 pm
Forum: Cortex-M0, M3, M4 and M7
Topic: Generating a MD5-Hash
Replies: 3
Views: 50852

Re: Generating a MD5-Hash

However, I believe that 4GLCoder deliberatly didn't use NEW to avoid exhausting the heap (there is no automatic garbage collection). POINTER TO RECORD not required here. Context may be of RECORD type. I updated my previous post. As you can see, Context not marked for export, but the following test ...
by Alexander Shiryaev
Mon Oct 29, 2012 2:55 am
Forum: Cortex-M0, M3, M4 and M7
Topic: Generating a MD5-Hash
Replies: 3
Views: 50852

Re: Generating a MD5-Hash

There is my translation. MODULE MD5; (** portable *) (* ejz *) IMPORT SYSTEM; (* ETH Oberon, Copyright 2001 ETH Zuerich Institut fuer Computersysteme, ETH Zentrum, CH-8092 Zuerich. Refer to the "General ETH Oberon System Source License" contract available at: http://www.oberon.ethz.ch/ *) (** The MD...

Go to advanced search