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
;;