
  FUNCTION [INLINE] nlp$cc_user_data_pad_size
    (    data_length: nat$data_length): nlt$cc_user_data_pad_size;

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

{ PURPOSE:
{   This procedure calculates the number of pad bytes needed to align the CC header
{   on a word boundary. The algorithm assumes that the data length represents a block
{   of data where only the first word may not be completely filled (i.e., all words
{   in the block, except possibly the first, are full).

    VAR
      length: integer;

    length := data_length MOD 8;
    IF length <> 0 THEN
      nlp$cc_user_data_pad_size := 8 - length;
    ELSE
      nlp$cc_user_data_pad_size := 0;
    IFEND;

  FUNCEND nlp$cc_user_data_pad_size;

*copyc nat$data_length
*copyc nlt$cc_user_data_pad_size
?? POP ??
