Oberon2013Modifications/DynamicMemorySplit/MemorySplit.Mod.txt at master · schierlm/Oberon2013Modifications · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
MODULE MemorySplit;
  IMPORT SYSTEM, Kernel, Texts, Oberon;

  VAR
    log: Texts.Writer;

  PROCEDURE Show*;
    VAR a: INTEGER;
  BEGIN
    Texts.WriteString(log, "Configured Split: ");
    SYSTEM.GET(4, a);
    Texts.WriteHex(log, a);
    Texts.WriteLn(log);
    Texts.WriteString(log, "Actual Split: ");
    Texts.WriteHex(log, Kernel.heapOrg);
    Texts.WriteLn(log);
    Texts.WriteString(log, "Code/Stack ");
    Texts.WriteHex(log, SYSTEM.REG(12));
    Texts.WriteString(log, "-");
    Texts.WriteHex(log, Kernel.stackOrg - 1);
    Texts.WriteLn(log);
    Texts.WriteString(log, "Heap ");
    Texts.WriteHex(log, Kernel.heapOrg);
    Texts.WriteString(log, "-");
    Texts.WriteHex(log, Kernel.heapLim);
    Texts.WriteLn(log);
    Texts.Append(Oberon.Log, log.buf);
  END Show;

  PROCEDURE Set*;
  VAR
    s: Texts.Scanner;
    sec: Kernel.Sector;
    t: Texts.Text;
    val, beg, end, time: INTEGER;
  BEGIN
    Texts.OpenScanner(s, Oberon.Par.text, Oberon.Par.pos);
    Texts.Scan(s);
    IF (s.class = Texts.Char) & (s.c = "^") THEN
      Oberon.GetSelection(t, beg, end, time);
      IF time >= 0 THEN
        Texts.OpenScanner(s, t, beg); Texts.Scan(s)
      END
    END;
    IF s.class = Texts.Int THEN
      val := s.i;
      Kernel.GetSector(2*29, sec);
      SYSTEM.PUT(SYSTEM.ADR(sec)+4, val);
      Kernel.PutSector(2*29, sec)
    END
  END Set;

BEGIN Texts.OpenWriter(log);
END MemorySplit.