#!/usr/bin/perl

uint32_t CalChecksum(

   uint32_t *buffer,
   /*
   --% DESCRIPTION: Pointer to data buffer.
   --% UNITS:       N/A
   --% RANGE:       N/A
   */

   uint32_t word_count,
   /*
   --% DESCRIPTION: Number of 32-bit words.
   --% UNITS:       N/A
   --% RANGE:       N/A
   */

   uint32_t bias
   /*
   --% DESCRIPTION: Bias added to checksum.
   --% UNITS:       N/A
   --% RANGE:       N/A
   */

)
{
   uint32_t checksum = bias;
   while(word_count)
   {
      checksum += *buffer;
      word_count--;
      buffer++;
   }
   return checksum;
}