<> <> <> <> <> 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.