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
];