let new_ptable () =
  let page = new_page () in
  for i = 0 to page_size - 1 do
    memory.(page * page_size + i) <- int_of_mode UN
  done;
  page;;