  FUNCTION [INLINE] dfp$page_count
    (    bytes: ost$segment_length): ost$non_negative_integers;

    { This function returns rounds the number of bytes up to the
    { required number of pages

    dfp$page_count := (bytes DIV osv$page_size) +
          $INTEGER ((bytes MOD osv$page_size) > 0);

  FUNCEND dfp$page_count;

?? PUSH (LISTEXT := ON) ??
*copyc osd$integer_limits
*copyc osd$virtual_address
*copyc osv$page_size
?? POP ??
