what memory exists?

  size_needed := $memory_available(nil, 0);
  addresses := newvec(size_needed);
  $memory_available(addresses, size_needed);   

  for i = 0 to size_needed - 1 by 2 do
    out("%d: %08X to %08X\n", i, addresses ! i, addresses ! (i + 1));