[Oberon] PO2013 - Show Heap Blocks

[Tomas Kral]

On Tue, 23 Jun 2020 13:49:48 +0100
Paul Reed <paulreed at paddedcell.com> wrote:

> I'm a bit confused - why are there four hex numbers

Yes, me too, when reading my message again.
The output is this,

000685E0 FFFFFFFF 00068480
00000001 00000000 00000000

  PROCEDURE List32*;
    VAR p, q: INTEGER;
  BEGIN
    p := S.ADR(Kernel.MemLim);
    S.GET(p+20, q); (*32*);
    WHILE q # 0 DO
      Out.Hex(q); S.GET(q+4, p); Out.Hex(p); S.GET(q+8, p); Out.Hex(p);
      Out.Ln; S.GET(q+8, q) (*next*)
    END
  END List32

-- 
Tomas Kral <thomas.kral at email.cz>