
  FUNCTION [INLINE] dfp$word_boundary
    (    byte: integer): integer;

    { This function returns rounds the byte address up to the next
    { highest word, if the byte is not on a word boundary.

    dfp$word_boundary := ((byte DIV 8) * 8) + ($INTEGER ((byte MOD 8) > 0) *
          8);

  FUNCEND dfp$word_boundary;
