type
P_TAG = bitpacked record
addr: array[0..2] of byte;
len: byte;
r0, g0, b0, code: Byte;
end;
makes more sense to me than GPT.
btw, the P_ indicates a pointer type, in that case:
type
P_TAG = ^T_TAG;
T_TAG = bitpacked record
addr: array[0..2] of byte;
len: byte;
r0, g0, b0, code: Byte;
end;
This also explains the len field.
It doesn't need to be bitpacked, just packed.