DIRECTORYIPDefs USING [Datagram, DByte],CommDriver USING [Buffer],Pup USING [Host];IPOps: CEDAR DEFINITIONS~ BEGINmaxTTL: INT ~ 120; -- maximum value for time to liveMoveBytes: UNSAFE PROC [toPtr: LONG POINTER, toOffset: INT, fromPtr: LONG POINTER, fromOffset: INT, length: INT];HeaderChecksum: PROC [data: IPDefs.Datagram] RETURNS [checksum: IPDefs.DByte];OnesComplementAddBlock: UNSAFE PROC [ptr: LONG POINTER, count: CARDINAL, initialSum: CARDINAL _ 0] RETURNS [sum: CARDINAL];Send: PROC [etherDest: Pup.Host, buffer: CommDriver.Buffer, bytes: CARDINAL]; END.   –  Copyright (C) 1983 by Xerox Corporation. All rights reserved. The following program was created in 1983 but has not been published within the meaning of the copyright law, is furnished under license, and may not be used, copied and/or disclosed except in accordance with the terms of said license.IPOps.mesaLast Edited by: Nichols, August 15, 1983 2:19 pmLast Edited by: Taft, January 5, 1984 4:16 pmJohn Larson, June 4, 1986 11:23:25 pm PDTMove data bytes around.  Uses ByteBlt.Compute the header checksum for a datagram.Computes (efficiently) the ones-complement sum of the 16-bit words in the block [ptr .. ptr+count)^.Put the bits on the wireÊ:  –"cedar" style˜ Icode2šœ©™©head™
Ibody™0M™-Icode™)šÏk	˜	Kšœœ˜Kšœœ
˜Kšœœ˜——šÏnœœ˜Kšœ˜KšœœÏc!˜4šž	œœœ	œœœœœœ
œ˜qK™&—šžœœœ˜NK™+—šžœœœœœ	œœœœ˜{K™dK™ —šžœœ9œ˜NK™—Kšœ˜—— …—    @    