From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,XPRIO autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,abc6a29c7c19fbc8,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-08-28 08:27:51 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!paloalto-snf1.gtei.net!news.gtei.net!enews.sgi.com!coop.net!newsfeed1.global.lmco.com!news.orl.lmco.com!news
From: "mop" <mop65715@pegasus.cc.ucf.edu>
Newsgroups: comp.lang.ada
Subject: Computing checksum for Ada newbie
Date: Tue, 28 Aug 2001 11:11:47 -0400
Organization: Lockheed Martin -- Information Systems Center
Message-ID: <9mgcbl$49b$1@zeus.orl.lmco.com>
NNTP-Posting-Host: orlsr006538.orl.lmco.com
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Xref: archiver1.google.com comp.lang.ada:12518
Date: 2001-08-28T11:11:47-04:00
List-Id: <comp.lang.ada>

I've got two types - we'll call them TYPE_1, TYPE_2.

The checksum (last byte) for TYPE_1 is the byte eight.
The checksum (last byte) for TYPE_2 varies (depends on user parameters)  but
the threshold is byte 517.
The checksum is a simple sum of the the bytes (dont care about overflow)
An example of TYPE_1 is provided.  "BYTE" is defined in my package.

type TYPE_1 is
record
 XX             :  BYTE;  -- first byte
 YY             :  BYTE;  -- second byte
-- etc
 Checksum  :  BYTE;  -- eighth byte
end record;

I want a function - we'll call it Compute_Checksum that'll sum the bytes

function Compute_Checksum return BYTE is  -- dont think this is right.  need
to pass in which type
   INTEGER : Checksum :=0;
begin
-- more help here
end Compute_Checksum;