PROCEDURE AllocHeapMem (size: INTEGER; VAR c: Cluster);
...
      IF size < N THEN
         adr := HeapAlloc(65536, N, prot)
      END;
      IF adr = 0 THEN
         adr := HeapAlloc(65536, size, prot);
...

   PROCEDURE HeapAlloc (adr: Libc.PtrVoid; size: INTEGER; prot: SET): Libc.PtrVoid;
      VAR x: Libc.PtrVoid;
   BEGIN
      x := Libc.mmap(adr, size, prot, Libc.MAP_PRIVATE + Libc.MAP_ANON, zerofd, 0);
      IF x = Libc.MAP_FAILED THEN
         x := Libc.NULL
      ELSE
         ASSERT(size MOD 4 = 0, 100);
         Erase(x, size DIV 4)
      END;
      RETURN x
   END HeapAlloc;