immutable class HEXTET < $BIT_PATTERN{HEXTET} |
---|
$BIT_PATTERN{_} | $HASH | $IS_EQ | $IMMUTABLE | $STR | $BINARY | $BIT_PATTERNS |
const Hextet_Bits : CARD := asize ; |
---|
const Hextet_Max : CARD := 65535 ; |
---|
**** | It IS sixteen bits only! |
const Octets_in_Hextet : CARD := 2 ; |
---|
const asize : CARD := 16 ; |
---|
const maxnum : CARD := Hextet_Max ; |
---|
create : SAME |
---|
const Masks : ARRAY{SAME} := | create(1), create(3), |
---|