
DIRECTORY
Basics, Basics16;

Checksum: CEDAR DEFINITIONS IMPORTS Basics ~ BEGIN

bitsPerHalfWord: NAT ~ Basics16.bitsPerWord;
bytesPerHalfWord: NAT ~ Basics16.bytesPerWord;

ComputeChecksum: PROC [
cs: CARD16 ¬ 0, nHalfWords: CARDINAL, p: POINTER, offset: CARDINAL ¬ 0] 
RETURNS [checksum: CARD16];


ComputeChecksumINLINE: PROC[
cs: CARD16 ¬ 0, nHalfWords: CARDINAL, p: POINTER, offset: CARDINAL ¬ 0] 
RETURNS [checksum: CARD16]
= INLINE { RETURN[ComputeChecksumSoftware[cs, nHalfWords, p, offset]] };
ComputeChecksumSoftware: PROC [
cs: CARD16 ¬ 0, nHalfWords: CARDINAL, p: POINTER, offset: CARDINAL] 
RETURNS [checksum: CARD16]
= TRUSTED INLINE {
phw: POINTER TO Basics16.RawWords ¬ LOOPHOLE[p];
FOR i: CARDINAL IN [offset..nHalfWords+offset) DO
t: CARD32;
w: CARD32 = phw[i];
t ¬ cs + w;
t ¬ Basics.LowHalf[t] + Basics.HighHalf[t];
t ¬ 2*t;
cs ¬ Basics.LowHalf[t] + Basics.HighHalf[t];
ENDLOOP;
IF cs = 177777B THEN cs ¬ 0;
RETURN[cs];
};


END.
  ¬  
Checksum.mesa
For Portable Cedar
Copyright Ó 1985, 1988, 1991 by Xerox Corporation.  All rights reserved.
Forrest,  October 4, 1980  2:03 PM
Russ Atkinson (RRA) January 29, 1985 0:37:17 am PST
Carl Hauser, January 14, 1988 2:15:24 pm PST
Willie-s, May 14, 1991 4:54 pm PDT
Doug Wyatt, August 27, 1991 1:52 pm PDT
... produces a checksum for nHalfWords starting at offset halfwords from p.  Start with initial value cs (useful if forming a single checksum for discontinuous areas of memory).  Note that since these checksums must be backward compatible they are 16 bit checksums computed over an integral number of 16 bit halfwords, even on a 32 bit machine.

I would like to add a mathematical definition of the checksum being computed-- chh.
ComputeChecksumINLINE for when you just can't afford a procedure call;  beware of the debugging liabilities caused by large INLINE procedures. 

ComputeChecksumSoftware is provided as documentation and an initial implementation.  
On the Dorado, this implementation is 180 times slower than the microcode at computing the checksum for 32767 characters and it takes 1.8 seconds (vs. 10 ms).

cs _ ((cs ONESADD p^) LEFTROTATE 1) -- implemented by:
Ê  •NewlineDelimiter
–(cedarcode) style™ codešœ™KšÏb™Kšœ
Ïeœ=™HKšœ"™"K™3K™,K™"K™'—K˜ šÏk	˜	K˜K˜ —Kš	ÏnœŸœŸœŸœ
Ÿ˜2K˜ KšœŸœ˜,KšœŸœ˜.K˜ š œŸœŸœŸœŸœ
ŸœŸœŸœ˜|K˜ KšœØ™ØK™ K™SK˜ —K˜ š œŸœŸœŸœŸœ
ŸœŸœŸœ˜€KšœŸœŸœ7˜HKšœ™—K™ KšœU™UK™žK™ š œŸœŸœŸœŸœ
ŸœŸœŸœ˜šœŸœŸœ˜KšœŸœŸœŸœ˜0šŸœŸœŸœŸ˜1KšœŸœ˜
KšœŸœ
˜šœ6™6K˜Kšœ+˜+K˜Kšœ,˜,—KšŸœ˜——KšŸœŸœ˜KšŸœ˜Kšœ˜K˜ —K˜ KšŸœ˜— …—    ¸  
q  