DIRECTORY Basics USING [bitsPerWord]; GreenBay: CEDAR DEFINITIONS ~ BEGIN Pack: UNSAFE PROC [ wordPointer: LONG POINTER TO WORD, -- Pointer to the destination (one element per word) bitsPerElement: (0..Basics.bitsPerWord], base: LONG POINTER, -- Pointer to the source (elements may cross word boundaries) start: NAT, -- Index of starting element count: NAT -- Number of elements ]; UnPack: UNSAFE PROC [ wordPointer: LONG POINTER TO WORD, -- Pointer to the source (one element per word) bitsPerElement: (0..Basics.bitsPerWord], base: LONG POINTER, start: NAT, count: NAT ]; END. šGreenBay.mesa Packers (and unpackers). Copyright (C) 1984, Xerox Corporation. All rights reserved. Michael Plass, October 26, 1984 10:14:38 am PDT Ę$˜Jšœ ™ J™J™