[Oberon] PO2013 - Show Heap Blocks

[Paul Reed]

Hi Tomas,

> tag 146F0H belongs to TextFrames
> 
>  0006CBA0   000146F0 00000000 00000001
>  00000001   E70071F8 00000000 00000000 <== terminates list3

I'm a bit confused - why are there four hex numbers here when your code 
only outputs three?  And these don't look like free blocks to me, the 
mark should be -1.  Also you might consider having some sanity check on 
the pointers you are following - 1 is obviously not an address in the 
heap.

HTH,
Paul