Source position: syshelph.inc line 396
type TByteOverlay = bitpacked record
case Integer of
0: (
AsBit: array [TByteBitIndex] of Boolean;
);
1: (
AsNibble: array [TByteNibbleIndex] of nibble;
2: (
AsByte: Byte;
end;