import "io"
import "heap"

let start() be
{ let size_needed, addresses, total_words = 0, total_pages;
  init();
  size_needed := $memory_available(nil, 0);
  addresses := newvec(size_needed);
  $memory_available(addresses, size_needed);   

  out("these areas of memory exist:\n");
  for i = 2 to size_needed - 1 by 2 do
  { out("  %d: 0x%08X to 0x%08X\n", i, addresses ! i, addresses ! (i + 1));
    total_words +:= addresses ! (i + 1) - addresses ! i + 1 }
  total_pages := total_words / page$size;
  out("%d words = %d pages in total\n", total_words, total_pages);
  out("this program is occupying 0x%08X to 0x%08X\n", addresses ! 0, addresses ! 1) }